Se sube la tercera version de contratos de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@433 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
a53d79b7cd
commit
a4f98110bb
128
Build/Build.fbp5
128
Build/Build.fbp5
@ -16180,6 +16180,134 @@ Comments=
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{C4FEE197-50FF-430F-8FAF-F8DFCF1E2BF9}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{0F34C9D8-D082-4268-B4D4-2B5FDF9BE4ED}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{B536251C-FD93-413D-A5A2-7253F4FCDF73}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.dpk]]>
|
||||
</Property>
|
||||
|
||||
@ -395,36 +395,20 @@ BEGIN
|
||||
EXIT;
|
||||
END^
|
||||
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS (
|
||||
aid integer)
|
||||
CREATE PROCEDURE PROC_PRE_CON_CAPITULOS (
|
||||
aid integer, tipo varchar(15))
|
||||
as
|
||||
begin
|
||||
exit;
|
||||
end^
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
aid integer)
|
||||
CREATE PROCEDURE PROC_PRE_CON_CAPITULOS_CONCEP(
|
||||
aid integer, tipo varchar(15))
|
||||
as
|
||||
begin
|
||||
exit;
|
||||
end^
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS_TOTALES (
|
||||
aid integer)
|
||||
as
|
||||
begin
|
||||
exit;
|
||||
end^
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_RESUMEN (
|
||||
aid integer)
|
||||
as
|
||||
begin
|
||||
exit;
|
||||
end^
|
||||
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
|
||||
@ -5165,11 +5149,11 @@ begin
|
||||
end
|
||||
^
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_CAPITULOS (
|
||||
aid integer)
|
||||
ALTER PROCEDURE PROC_PRE_CON_CAPITULOS (
|
||||
aid integer, tipo varchar(15))
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
id_pre_con integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(25),
|
||||
concepto varchar(2000),
|
||||
@ -5209,77 +5193,129 @@ begin
|
||||
tipo_detalle_aux = 'Titulo';
|
||||
tipo_articulo_aux = 'NA';
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :num_filas
|
||||
do
|
||||
if (TIPO = 'Presupuesto') then
|
||||
begin
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :num_filas
|
||||
do
|
||||
begin
|
||||
if (num_filas = 0) then
|
||||
suspend;
|
||||
suspend;
|
||||
end
|
||||
end
|
||||
else if (TIPO = 'Contrato') then
|
||||
begin
|
||||
/* ¿Existe el contrato? */
|
||||
for select count(*)
|
||||
from contratos_cliente_detalles
|
||||
where id_contrato = :AID
|
||||
into :num_filas
|
||||
do
|
||||
begin
|
||||
if (num_filas = 0) then
|
||||
suspend;
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, tipo_articulo, F_RTFTOTEXT(concepto) as concepto,
|
||||
coalesce(descuento,0), coalesce(importe_total,0), coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :TIPO_ARTICULO, :CONCEPTO,
|
||||
:DESCUENTO, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
if (TIPO = 'Presupuesto') then
|
||||
begin
|
||||
contador = contador + 1;
|
||||
|
||||
/*CONCEPTO*/
|
||||
if ((visible <> 0) and (tipo_detalle = 'Concepto')) then
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, tipo_articulo, F_RTFTOTEXT(concepto) as concepto,
|
||||
coalesce(descuento,0), coalesce(importe_total,0), coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE, :TIPO_ARTICULO, :CONCEPTO,
|
||||
:DESCUENTO, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
/*Escribimos capitulo anterior*/
|
||||
if ((Importe_total > 0) and
|
||||
((ultimo_tipo_detalle = 'Descuento')
|
||||
or (ultimo_tipo_detalle = 'Subtotal'))) then
|
||||
begin
|
||||
Importe_aux = Importe_total;
|
||||
id = id_aux;
|
||||
posicion = posicion_aux;
|
||||
tipo_detalle = tipo_detalle_aux;
|
||||
tipo_articulo = tipo_articulo_aux;
|
||||
concepto = concepto_aux;
|
||||
importe_total = total_acumulado;
|
||||
importe_descuento = importe_descuento_aux;
|
||||
descuento = descuento_aux;
|
||||
visible = 1;
|
||||
suspend;
|
||||
total_acumulado = 0.0;
|
||||
importe_descuento_aux = 0.0;
|
||||
descuento_aux = 0.0;
|
||||
/*Inicializamos*/
|
||||
ID_AUX = -1;
|
||||
posicion_aux = -1;
|
||||
concepto_aux = 'General';
|
||||
tipo_detalle_aux = 'Titulo';
|
||||
tipo_articulo_aux = 'NA';
|
||||
importe_total = Importe_aux;
|
||||
end
|
||||
contador = contador + 1;
|
||||
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
end
|
||||
/*CONCEPTO*/
|
||||
if ((visible <> 0) and (tipo_detalle = 'Concepto')) then
|
||||
begin
|
||||
/*Escribimos capitulo anterior*/
|
||||
if ((Importe_total > 0)
|
||||
and ((ultimo_tipo_detalle = 'Descuento') or (ultimo_tipo_detalle = 'Subtotal'))) then
|
||||
begin
|
||||
Importe_aux = Importe_total;
|
||||
id = id_aux;
|
||||
posicion = posicion_aux;
|
||||
tipo_detalle = tipo_detalle_aux;
|
||||
tipo_articulo = tipo_articulo_aux;
|
||||
concepto = concepto_aux;
|
||||
importe_total = total_acumulado;
|
||||
importe_descuento = importe_descuento_aux;
|
||||
descuento = descuento_aux;
|
||||
visible = 1;
|
||||
suspend;
|
||||
total_acumulado = 0.0;
|
||||
importe_descuento_aux = 0.0;
|
||||
descuento_aux = 0.0;
|
||||
/*Inicializamos*/
|
||||
ID_AUX = -1;
|
||||
posicion_aux = -1;
|
||||
concepto_aux = 'General';
|
||||
tipo_detalle_aux = 'Titulo';
|
||||
tipo_articulo_aux = 'NA';
|
||||
importe_total = Importe_aux;
|
||||
end
|
||||
|
||||
/*TITULO*/
|
||||
else if ((tipo_detalle = 'Titulo') or (tipo_detalle = 'Titulo opcional')) then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
end
|
||||
|
||||
id_aux_temp = id;
|
||||
posicion_aux_temp = posicion;
|
||||
tipo_detalle_aux_temp = tipo_detalle;
|
||||
tipo_articulo_aux_temp = tipo_articulo;
|
||||
concepto_aux_temp = concepto;
|
||||
/*TITULO*/
|
||||
else if ((tipo_detalle = 'Titulo') or (tipo_detalle = 'Titulo opcional')) then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
id_aux_temp = id;
|
||||
posicion_aux_temp = posicion;
|
||||
tipo_detalle_aux_temp = tipo_detalle;
|
||||
tipo_articulo_aux_temp = tipo_articulo;
|
||||
concepto_aux_temp = concepto;
|
||||
|
||||
/*Escribimos capitulo anterior*/
|
||||
if (id_aux > 0) then
|
||||
/*Escribimos capitulo anterior*/
|
||||
if (id_aux > 0) then
|
||||
begin
|
||||
id = id_aux;
|
||||
posicion = posicion_aux;
|
||||
tipo_detalle = tipo_detalle_aux;
|
||||
tipo_articulo = tipo_articulo_aux;
|
||||
concepto = concepto_aux;
|
||||
importe_total = total_acumulado;
|
||||
importe_descuento = importe_descuento_aux;
|
||||
descuento = descuento_aux;
|
||||
visible = 1;
|
||||
suspend;
|
||||
total_acumulado = 0.0;
|
||||
importe_descuento_aux = 0.0;
|
||||
descuento_aux = 0.0;
|
||||
end
|
||||
|
||||
id_aux = id_aux_temp;
|
||||
posicion_aux = posicion_aux_temp;
|
||||
tipo_detalle_aux = tipo_detalle_aux_temp;
|
||||
tipo_articulo_aux = tipo_articulo_aux_temp;
|
||||
concepto_aux = concepto_aux_temp;
|
||||
end
|
||||
|
||||
/*SUBTOTAL*/
|
||||
else if (tipo_detalle = 'Subtotal') then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
end
|
||||
else if (tipo_detalle = 'Descuento') then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
importe_descuento_aux = importe_total;
|
||||
descuento_aux = descuento;
|
||||
end
|
||||
|
||||
if (contador = num_filas) then
|
||||
begin
|
||||
id = id_aux;
|
||||
posicion = posicion_aux;
|
||||
@ -5291,33 +5327,106 @@ begin
|
||||
descuento = descuento_aux;
|
||||
visible = 1;
|
||||
suspend;
|
||||
total_acumulado = 0.0;
|
||||
importe_descuento_aux = 0.0;
|
||||
descuento_aux = 0.0;
|
||||
break;
|
||||
end
|
||||
end
|
||||
end
|
||||
else if (TIPO = 'Contrato') then
|
||||
begin
|
||||
for select id, id_contrato, posicion, tipo_detalle, tipo_articulo, F_RTFTOTEXT(concepto) as concepto,
|
||||
coalesce(descuento,0), coalesce(importe_total,0), coalesce(visible, 1)
|
||||
from contratos_cliente_detalles
|
||||
where id_contrato = :AID
|
||||
order by id_contrato, posicion
|
||||
into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE, :TIPO_ARTICULO, :CONCEPTO,
|
||||
:DESCUENTO, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
contador = contador + 1;
|
||||
|
||||
/*CONCEPTO*/
|
||||
if ((visible <> 0) and (tipo_detalle = 'Concepto')) then
|
||||
begin
|
||||
/*Escribimos capitulo anterior*/
|
||||
if ((Importe_total > 0)
|
||||
and ((ultimo_tipo_detalle = 'Descuento') or (ultimo_tipo_detalle = 'Subtotal'))) then
|
||||
begin
|
||||
Importe_aux = Importe_total;
|
||||
id = id_aux;
|
||||
posicion = posicion_aux;
|
||||
tipo_detalle = tipo_detalle_aux;
|
||||
tipo_articulo = tipo_articulo_aux;
|
||||
concepto = concepto_aux;
|
||||
importe_total = total_acumulado;
|
||||
importe_descuento = importe_descuento_aux;
|
||||
descuento = descuento_aux;
|
||||
visible = 1;
|
||||
suspend;
|
||||
total_acumulado = 0.0;
|
||||
importe_descuento_aux = 0.0;
|
||||
descuento_aux = 0.0;
|
||||
/*Inicializamos*/
|
||||
ID_AUX = -1;
|
||||
posicion_aux = -1;
|
||||
concepto_aux = 'General';
|
||||
tipo_detalle_aux = 'Titulo';
|
||||
tipo_articulo_aux = 'NA';
|
||||
importe_total = Importe_aux;
|
||||
end
|
||||
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
end
|
||||
|
||||
id_aux = id_aux_temp;
|
||||
posicion_aux = posicion_aux_temp;
|
||||
tipo_detalle_aux = tipo_detalle_aux_temp;
|
||||
tipo_articulo_aux = tipo_articulo_aux_temp;
|
||||
concepto_aux = concepto_aux_temp;
|
||||
end
|
||||
/*TITULO*/
|
||||
else if ((tipo_detalle = 'Titulo') or (tipo_detalle = 'Titulo opcional')) then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
id_aux_temp = id;
|
||||
posicion_aux_temp = posicion;
|
||||
tipo_detalle_aux_temp = tipo_detalle;
|
||||
tipo_articulo_aux_temp = tipo_articulo;
|
||||
concepto_aux_temp = concepto;
|
||||
|
||||
/*SUBTOTAL*/
|
||||
else if (tipo_detalle = 'Subtotal') then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
end
|
||||
/*Escribimos capitulo anterior*/
|
||||
if (id_aux > 0) then
|
||||
begin
|
||||
id = id_aux;
|
||||
posicion = posicion_aux;
|
||||
tipo_detalle = tipo_detalle_aux;
|
||||
tipo_articulo = tipo_articulo_aux;
|
||||
concepto = concepto_aux;
|
||||
importe_total = total_acumulado;
|
||||
importe_descuento = importe_descuento_aux;
|
||||
descuento = descuento_aux;
|
||||
visible = 1;
|
||||
suspend;
|
||||
total_acumulado = 0.0;
|
||||
importe_descuento_aux = 0.0;
|
||||
descuento_aux = 0.0;
|
||||
end
|
||||
|
||||
else if (tipo_detalle = 'Descuento') then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
importe_descuento_aux = importe_total;
|
||||
descuento_aux = descuento;
|
||||
end
|
||||
id_aux = id_aux_temp;
|
||||
posicion_aux = posicion_aux_temp;
|
||||
tipo_detalle_aux = tipo_detalle_aux_temp;
|
||||
tipo_articulo_aux = tipo_articulo_aux_temp;
|
||||
concepto_aux = concepto_aux_temp;
|
||||
end
|
||||
|
||||
if (contador = num_filas) then
|
||||
begin
|
||||
/*SUBTOTAL*/
|
||||
else if (tipo_detalle = 'Subtotal') then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
end
|
||||
else if (tipo_detalle = 'Descuento') then
|
||||
begin
|
||||
ultimo_tipo_detalle = tipo_detalle;
|
||||
importe_descuento_aux = importe_total;
|
||||
descuento_aux = descuento;
|
||||
end
|
||||
|
||||
if (contador = num_filas) then
|
||||
begin
|
||||
id = id_aux;
|
||||
posicion = posicion_aux;
|
||||
tipo_detalle = tipo_detalle_aux;
|
||||
@ -5329,16 +5438,17 @@ begin
|
||||
visible = 1;
|
||||
suspend;
|
||||
break;
|
||||
end
|
||||
end
|
||||
end
|
||||
end;
|
||||
^
|
||||
end^
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
aid integer)
|
||||
ALTER PROCEDURE PROC_PRE_CON_CAPITULOS_CONCEP (
|
||||
aid integer,
|
||||
tipo varchar(15))
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
id_pre_con integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(25),
|
||||
id_capitulo integer,
|
||||
@ -5357,248 +5467,86 @@ declare variable capitulo_actual integer;
|
||||
begin
|
||||
capitulo_actual = -1;
|
||||
ID_CAPITULO = -1;
|
||||
for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
|
||||
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, presupuestos_propiedades.descripcion,
|
||||
|
||||
if (TIPO = 'Presupuesto') then
|
||||
begin
|
||||
for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
|
||||
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, presupuestos_propiedades.descripcion,
|
||||
/* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/
|
||||
pre.CONCEPTO,
|
||||
pre.cantidad,
|
||||
case
|
||||
when (pre.descuento <> 0) then (pre.importe_total / pre.cantidad)
|
||||
else pre.importe_unidad
|
||||
end as importe_unidad,
|
||||
pre.descuento, pre.importe_porte,
|
||||
pre.importe_total, coalesce(pre.visible, 1)
|
||||
from presupuestos_cliente_detalles pre
|
||||
left join presupuestos_propiedades on (pre.id_articulo = presupuestos_propiedades.id)
|
||||
where pre.id_presupuesto = :AID
|
||||
order by pre.id_presupuesto, pre.posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE,
|
||||
:TIPO_ARTICULO, :ID_ARTICULO, :PROPIEDAD, :CONCEPTO, :CANTIDAD,
|
||||
:IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
pre.CONCEPTO,
|
||||
pre.cantidad,
|
||||
case
|
||||
when (pre.descuento <> 0) then (pre.importe_total / pre.cantidad)
|
||||
else pre.importe_unidad
|
||||
end as importe_unidad,
|
||||
pre.descuento, pre.importe_porte,
|
||||
pre.importe_total, coalesce(pre.visible, 1)
|
||||
from presupuestos_cliente_detalles pre
|
||||
left join presupuestos_propiedades on (pre.id_articulo = presupuestos_propiedades.id)
|
||||
where pre.id_presupuesto = :AID
|
||||
order by pre.id_presupuesto, pre.posicion
|
||||
into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE,
|
||||
:TIPO_ARTICULO, :ID_ARTICULO, :PROPIEDAD, :CONCEPTO, :CANTIDAD,
|
||||
:IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
if (:tipo_detalle = 'Titulo') then
|
||||
begin
|
||||
if (:tipo_detalle = 'Titulo') then
|
||||
begin
|
||||
capitulo_actual = :ID;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
else if ((:tipo_detalle = 'Subtotal')
|
||||
or (:tipo_detalle = 'Descuento')) then
|
||||
begin
|
||||
capitulo_actual = -1;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
else
|
||||
if (:tipo_detalle = 'Concepto') then
|
||||
begin
|
||||
suspend;
|
||||
end
|
||||
capitulo_actual = :ID;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
end;
|
||||
^
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_CAPITULOS_TOTALES (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(25),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint,
|
||||
tipo_articulo varchar(2))
|
||||
as
|
||||
declare variable num_filas integer;
|
||||
declare variable contador integer;
|
||||
declare variable existe numeric(11,2);
|
||||
declare variable total_acumulado numeric(11,2);
|
||||
else if ((:tipo_detalle = 'Subtotal')
|
||||
or (:tipo_detalle = 'Descuento')) then
|
||||
begin
|
||||
capitulo_actual = -1;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
else if (:tipo_detalle = 'Concepto') then
|
||||
begin
|
||||
suspend;
|
||||
end
|
||||
end
|
||||
end
|
||||
else if (TIPO = 'Contrato') then
|
||||
begin
|
||||
existe = 0;
|
||||
total_acumulado = 0.0;
|
||||
contador = 0;
|
||||
num_filas = 0;
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :num_filas
|
||||
do
|
||||
for select pre.id, pre.id_contrato, pre.posicion, pre.tipo_detalle,
|
||||
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, presupuestos_propiedades.descripcion,
|
||||
/* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/
|
||||
pre.CONCEPTO,
|
||||
pre.cantidad,
|
||||
case
|
||||
when (pre.descuento <> 0) then (pre.importe_total / pre.cantidad)
|
||||
else pre.importe_unidad
|
||||
end as importe_unidad,
|
||||
pre.descuento, pre.importe_porte,
|
||||
pre.importe_total, coalesce(pre.visible, 1)
|
||||
from contratos_cliente_detalles pre
|
||||
left join presupuestos_propiedades on (pre.id_articulo = presupuestos_propiedades.id)
|
||||
where pre.id_contrato = :AID
|
||||
order by pre.id_contrato, pre.posicion
|
||||
into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE,
|
||||
:TIPO_ARTICULO, :ID_ARTICULO, :PROPIEDAD, :CONCEPTO, :CANTIDAD,
|
||||
:IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
if (:tipo_detalle = 'Titulo') then
|
||||
begin
|
||||
if (num_filas = 0) then
|
||||
suspend;
|
||||
capitulo_actual = :ID;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
|
||||
/* Ver si hay conceptos al principio sin capitulos */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, tipo_articulo
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
rows 1
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :TIPO_ARTICULO
|
||||
do
|
||||
else if ((:tipo_detalle = 'Subtotal')
|
||||
or (:tipo_detalle = 'Descuento')) then
|
||||
begin
|
||||
if (TIPO_DETALLE = 'Concepto') then
|
||||
EXISTE = 1;
|
||||
capitulo_actual = -1;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
|
||||
if (existe = 1) then
|
||||
else if (:tipo_detalle = 'Concepto') then
|
||||
begin
|
||||
contador = 0;
|
||||
/* Existen conceptos sin capitulo */
|
||||
for select tipo_detalle, tipo_articulo, importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :TIPO_DETALLE, :TIPO_ARTICULO, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
contador = contador + 1;
|
||||
|
||||
if ((visible <> 0) and (tipo_detalle = 'Concepto')) then
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
|
||||
if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then
|
||||
begin
|
||||
importe_total = total_acumulado;
|
||||
tipo_detalle = 'Titulo';
|
||||
concepto = 'General';
|
||||
visible = 1;
|
||||
ID = -1;
|
||||
posicion = -1;
|
||||
suspend;
|
||||
break;
|
||||
end
|
||||
end
|
||||
suspend;
|
||||
end
|
||||
|
||||
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, tipo_articulo, F_RTFTOTEXT(concepto) as concepto,
|
||||
importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where ((tipo_detalle = 'Subtotal') or (tipo_detalle = 'Descuento')) and id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :TIPO_ARTICULO, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
suspend;
|
||||
end;
|
||||
^
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_RESUMEN (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(25),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
as
|
||||
declare variable num_capitulos integer;
|
||||
declare variable num_filas integer;
|
||||
declare variable contador integer;
|
||||
declare variable existe numeric(11,2);
|
||||
declare variable total_acumulado numeric(11,2);
|
||||
declare variable concepto_capitulo varchar(2000);
|
||||
declare variable tipo varchar(25);
|
||||
begin
|
||||
existe = 0;
|
||||
total_acumulado = 0.0;
|
||||
contador = 0;
|
||||
num_filas = 0;
|
||||
num_capitulos = 0;
|
||||
concepto_capitulo = '';
|
||||
tipo = '';
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :num_filas
|
||||
do
|
||||
begin
|
||||
if (num_filas = 0) then
|
||||
suspend;
|
||||
end
|
||||
|
||||
/* Ver si hay conceptos al principio sin capitulos */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
rows 1
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE
|
||||
do
|
||||
begin
|
||||
if (TIPO_DETALLE = 'Concepto') then
|
||||
EXISTE = 1;
|
||||
end
|
||||
|
||||
num_capitulos = 1;
|
||||
if (existe = 1) then
|
||||
begin
|
||||
contador = 0;
|
||||
/* Existen conceptos sin capitulo */
|
||||
for select tipo_detalle, coalesce(importe_total,0), coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :TIPO_DETALLE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
contador = contador + 1;
|
||||
|
||||
if ((visible <> 0) and (tipo_detalle = 'Concepto')) then
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
|
||||
if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then
|
||||
begin
|
||||
importe_total = total_acumulado;
|
||||
tipo_detalle = 'Titulo';
|
||||
if (num_capitulos > 1) then
|
||||
concepto = 'CAPÍTULO ' || num_capitulos ||'. General';
|
||||
else
|
||||
concepto = 'General';
|
||||
visible = 1;
|
||||
ID = -1;
|
||||
posicion = -1;
|
||||
suspend;
|
||||
break;
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
/* Tratar el resto de las filas */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle,
|
||||
F_RTFTOTEXT(concepto) as concepto, coalesce(importe_total,0), coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID and
|
||||
tipo_detalle in ('Titulo', 'Titulo opcional', 'Subtotal')
|
||||
order by posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
contador = contador + 1;
|
||||
if ((tipo_detalle = 'Titulo') or (tipo_detalle = 'Titulo opcional')) then
|
||||
begin
|
||||
concepto_capitulo = concepto;
|
||||
tipo = tipo_detalle;
|
||||
end
|
||||
if (tipo_detalle = 'Subtotal') then
|
||||
begin
|
||||
concepto = 'CAPÍTULO ' || num_capitulos || '. ' || concepto_capitulo;
|
||||
tipo_detalle = tipo;
|
||||
num_capitulos = num_capitulos + 1;
|
||||
suspend;
|
||||
end
|
||||
end
|
||||
end;
|
||||
^
|
||||
|
||||
end
|
||||
end
|
||||
end^
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
|
||||
@ -44,13 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -65,52 +58,52 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
77
Source/Informes/1/InfContratoCliente.fr3
Normal file
77
Source/Informes/1/InfContratoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -17,9 +17,11 @@
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
|
||||
<Projects Include="Controller\ContratosCliente_controller.dproj" />
|
||||
<Projects Include="Data\ContratosCliente_data.dproj" />
|
||||
<Projects Include="Model\ContratosCliente_model.dproj" />
|
||||
@ -149,6 +151,15 @@
|
||||
<Target Name="ContratosCliente_controller:Make">
|
||||
<MSBuild Projects="Controller\ContratosCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="ConCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="ConCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="ConCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="ContratosCliente_view">
|
||||
<MSBuild Projects="Views\ContratosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -221,14 +232,23 @@
|
||||
<Target Name="Contabilidad_view:Make">
|
||||
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_controller;PresupuestosCliente_view;FacturasCliente_view;Contabilidad_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_controller;PresupuestosCliente_view;FacturasCliente_view;Contabilidad_view;FacturasCliente_controller" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;Contabilidad_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;Contabilidad_view:Clean;FacturasCliente_controller:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;Contabilidad_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;Contabilidad_view:Make;FacturasCliente_controller:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CC.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3D8.tmp */
|
||||
|
||||
@ -87,12 +87,11 @@ var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorContratosClientePreview;
|
||||
begin
|
||||
{
|
||||
AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptPresupuestos(AListaID);
|
||||
AStream := FDataModule.GetRptContratos(AListaID);
|
||||
try
|
||||
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
@ -114,7 +113,6 @@ begin
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList);
|
||||
|
||||
@ -49,19 +49,19 @@
|
||||
<DelphiCompile Include="ContratosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="uDataModuleContratosCliente.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\uDataModuleContratosCliente.dfm */
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\ContratosCliente_data.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CA.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3D6.tmp */
|
||||
|
||||
@ -271,9 +271,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
@ -283,49 +280,36 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_POSICION'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_TIPO_DETALLE'
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_CANTIDAD'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
@ -335,31 +319,19 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'ContratosCliente_Detalles_REFERENCIA'
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -47,8 +47,8 @@ type
|
||||
function NewItem : IBizContratoCliente;
|
||||
|
||||
// Report
|
||||
// function GetRptPresupuestos(const AListaID: TIntegerList): Binary;
|
||||
// function GetRptPDFPresupuesto(const AID: Integer): Binary;
|
||||
function GetRptContratos(const AListaID: TIntegerList): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer): Binary;
|
||||
|
||||
function GetAnosItems : TStringList;
|
||||
end;
|
||||
@ -74,8 +74,7 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
{
|
||||
function TDataModuleContratosCliente.GetRptPDFPresupuesto(
|
||||
function TDataModuleContratosCliente.GetRptPDFContrato(
|
||||
const AID: Integer): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
@ -88,9 +87,8 @@ begin
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
end;
|
||||
}
|
||||
{
|
||||
function TDataModuleContratosCliente.GetRptPresupuestos(const AListaID: TIntegerList): Binary;
|
||||
|
||||
function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
@ -101,7 +99,6 @@ begin
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
function TDataModuleContratosCliente.NewItem: IBizContratoCliente;
|
||||
begin
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C8.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3D4.tmp */
|
||||
|
||||
@ -7,9 +7,9 @@ uses
|
||||
|
||||
type
|
||||
IDataModuleContratosClienteReport = interface
|
||||
['{DC68737D-C6C5-4D3C-B368-F6F61847B14C}']
|
||||
// function GetRptContratos(const AListaID: TIntegerList): Binary;
|
||||
// function GetRptPDFContrato(const AID: Integer): Binary;
|
||||
['{6AB7469B-842A-413E-AF33-9506477A9666}']
|
||||
function GetRptContratos(const AListaID: TIntegerList): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -3,18 +3,18 @@ unit schContratosClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{C55D11E9-65FC-4D70-9973-28AF6C47FBF0}';
|
||||
RID_Propiedades = '{142468D4-5077-4E8D-826E-8069D7A6C595}';
|
||||
RID_ListaAnosContratos = '{0C404E65-D474-4C9A-9811-946BA5B27FF9}';
|
||||
RID_ContratosCliente = '{2BB45A66-C7BC-4559-B367-A8FD08DFD436}';
|
||||
RID_CapitulosPresupuesto = '{2FB0E35B-6873-420C-A786-776290CF5B3D}';
|
||||
RID_ContratosCliente_Detalles = '{F40D28FA-A966-4DBC-A621-4E7B5FE8F2B6}';
|
||||
RID_Valores = '{3D19DEF5-914A-46D7-A124-F6F0EDA4F5CD}';
|
||||
RID_Propiedades = '{AC03292D-3979-4EF3-B2B9-A982F1304F04}';
|
||||
RID_ListaAnosContratos = '{1CC19E3E-086B-4841-9397-6243150B8C4C}';
|
||||
RID_ContratosCliente = '{260A343C-A9AD-4FBF-936A-18EB4D41015E}';
|
||||
RID_CapitulosPresupuesto = '{81073CEA-E892-4D6C-9F67-FEA4A277E99D}';
|
||||
RID_ContratosCliente_Detalles = '{6DD9B2BA-E8A0-4B99-AFCF-84DD9F7757FF}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -187,7 +187,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{8E753B15-FED2-4844-A2FC-E8233C5592BB}']
|
||||
['{BD5359D6-1C6B-4FF6-89CD-4C453B81C6FF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -213,7 +213,7 @@ type
|
||||
end;
|
||||
|
||||
{ TValoresDataTableRules }
|
||||
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
|
||||
TValoresDataTableRules = class(TDADataTableRules, IValores)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -246,7 +246,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{FD5BFFD7-C1D9-47EB-812D-38CA5C6282CA}']
|
||||
['{A10E9B69-1C8B-45C2-9BCB-A0302C4AC7AF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -272,7 +272,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPropiedadesDataTableRules }
|
||||
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
|
||||
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -305,7 +305,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{235123F8-7331-401B-9AA5-9BDA20AAA262}']
|
||||
['{E4123587-2E3D-458E-B085-57785F97D932}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -319,7 +319,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosContratosDataTableRules }
|
||||
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
|
||||
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -340,7 +340,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{119AA554-5DB9-4298-9295-494F428E7D37}']
|
||||
['{4CAF6952-8428-4E72-B220-CCD5A9E54534}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -584,7 +584,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContratosClienteDataTableRules }
|
||||
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
|
||||
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
|
||||
private
|
||||
f_FORMA_PAGO: IROStrings;
|
||||
f_PLAZO_ENTREGA: IROStrings;
|
||||
@ -843,7 +843,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuesto }
|
||||
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
|
||||
['{413BFB1A-6690-4993-AE2D-F7D10F2A509F}']
|
||||
['{06F551D1-440E-4C4E-BA45-5D348EE73B5B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -887,7 +887,7 @@ type
|
||||
end;
|
||||
|
||||
{ TCapitulosPresupuestoDataTableRules }
|
||||
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
|
||||
TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -938,7 +938,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{5423818A-9BE3-442B-8D65-2555D8F4E2BE}']
|
||||
['{1CC871ED-69D4-4330-B5E4-E6C39CBAF6FB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -960,8 +960,8 @@ type
|
||||
procedure SetCONCEPTOValue(const aValue: String);
|
||||
function GetCONCEPTOIsNull: Boolean;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
function GetCANTIDADValue: Float;
|
||||
procedure SetCANTIDADValue(const aValue: Float);
|
||||
function GetCANTIDADValue: Integer;
|
||||
procedure SetCANTIDADValue(const aValue: Integer);
|
||||
function GetCANTIDADIsNull: Boolean;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean);
|
||||
function GetIMPORTE_UNIDADValue: Currency;
|
||||
@ -972,8 +972,8 @@ type
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
function GetIMPORTE_TOTALIsNull: Boolean;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
||||
function GetVISIBLEValue: Integer;
|
||||
procedure SetVISIBLEValue(const aValue: Integer);
|
||||
function GetVISIBLEValue: SmallInt;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt);
|
||||
function GetVISIBLEIsNull: Boolean;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean);
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
@ -1013,13 +1013,13 @@ type
|
||||
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
@ -1036,7 +1036,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContratosCliente_DetallesDataTableRules }
|
||||
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
|
||||
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1060,8 +1060,8 @@ type
|
||||
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
||||
function GetCONCEPTOIsNull: Boolean; virtual;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDADValue: Float; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Float); virtual;
|
||||
function GetCANTIDADValue: Integer; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
||||
function GetCANTIDADIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_UNIDADValue: Currency; virtual;
|
||||
@ -1072,8 +1072,8 @@ type
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
||||
function GetVISIBLEValue: Integer; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: Integer); virtual;
|
||||
function GetVISIBLEValue: SmallInt; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
|
||||
function GetVISIBLEIsNull: Boolean; virtual;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULOValue: Integer; virtual;
|
||||
@ -1112,13 +1112,13 @@ type
|
||||
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
@ -2454,14 +2454,14 @@ begin
|
||||
DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
|
||||
function TContratosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsFloat;
|
||||
result := DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TContratosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
|
||||
procedure TContratosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsFloat := aValue;
|
||||
DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
|
||||
@ -2517,14 +2517,14 @@ begin
|
||||
DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesDataTableRules.GetVISIBLEValue: Integer;
|
||||
function TContratosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsInteger;
|
||||
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
|
||||
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsInteger := aValue;
|
||||
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{D4CFBEE8-C05D-479B-9EF3-9549F9374E6B}';
|
||||
RID_PropiedadesDelta = '{C582A32E-52A4-4D38-8AD5-CAE1F14AB8CA}';
|
||||
RID_ListaAnosContratosDelta = '{62F4DAFC-86F6-499E-8805-05AFE18FBBCD}';
|
||||
RID_ContratosClienteDelta = '{ED89C087-EA55-440E-A916-8786F2D9349C}';
|
||||
RID_CapitulosPresupuestoDelta = '{058D5EDB-E8DC-4F8B-8A8C-0DA3924F19C9}';
|
||||
RID_ContratosCliente_DetallesDelta = '{EE58E925-305D-4C3B-A2B5-FBB523DAA210}';
|
||||
RID_ValoresDelta = '{67AF0554-58A9-4307-AEAF-9DE811A918EC}';
|
||||
RID_PropiedadesDelta = '{507E171D-414D-4A89-A9E0-E086AC189EE6}';
|
||||
RID_ListaAnosContratosDelta = '{DC340F12-FB81-4584-9F1D-B07ABE76CB26}';
|
||||
RID_ContratosClienteDelta = '{644E1C8D-D6AE-4E9D-B50E-2FA0F6AE240D}';
|
||||
RID_CapitulosPresupuestoDelta = '{BC9AAD40-2F0B-4452-9D04-2C9993175480}';
|
||||
RID_ContratosCliente_DetallesDelta = '{0EF2A883-04F3-47B0-AB4E-4DE3977CA9B2}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{D4CFBEE8-C05D-479B-9EF3-9549F9374E6B}']
|
||||
['{67AF0554-58A9-4307-AEAF-9DE811A918EC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -77,7 +77,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{C582A32E-52A4-4D38-8AD5-CAE1F14AB8CA}']
|
||||
['{507E171D-414D-4A89-A9E0-E086AC189EE6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -135,7 +135,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{62F4DAFC-86F6-499E-8805-05AFE18FBBCD}']
|
||||
['{DC340F12-FB81-4584-9F1D-B07ABE76CB26}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -169,7 +169,7 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{ED89C087-EA55-440E-A916-8786F2D9349C}']
|
||||
['{644E1C8D-D6AE-4E9D-B50E-2FA0F6AE240D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -675,7 +675,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuestoDelta }
|
||||
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
|
||||
['{058D5EDB-E8DC-4F8B-8A8C-0DA3924F19C9}']
|
||||
['{BC9AAD40-2F0B-4452-9D04-2C9993175480}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -769,17 +769,17 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{EE58E925-305D-4C3B-A2B5-FBB523DAA210}']
|
||||
['{0EF2A883-04F3-47B0-AB4E-4DE3977CA9B2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
function GetOldTIPO_DETALLEValue : String;
|
||||
function GetOldCONCEPTOValue : String;
|
||||
function GetOldCANTIDADValue : Float;
|
||||
function GetOldCANTIDADValue : Integer;
|
||||
function GetOldIMPORTE_UNIDADValue : Currency;
|
||||
function GetOldIMPORTE_TOTALValue : Currency;
|
||||
function GetOldVISIBLEValue : Integer;
|
||||
function GetOldVISIBLEValue : SmallInt;
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
function GetOldTIPO_ARTICULOValue : String;
|
||||
function GetOldDESCUENTOValue : Float;
|
||||
@ -793,10 +793,10 @@ type
|
||||
property OldPOSICION : Integer read GetOldPOSICIONValue;
|
||||
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
|
||||
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
||||
property OldCANTIDAD : Float read GetOldCANTIDADValue;
|
||||
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
||||
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldVISIBLE : Integer read GetOldVISIBLEValue;
|
||||
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
|
||||
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
||||
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
@ -840,11 +840,11 @@ type
|
||||
function GetOldCONCEPTOIsNull: Boolean; virtual;
|
||||
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDADValue: Float; virtual;
|
||||
function GetCANTIDADValue: Integer; virtual;
|
||||
function GetCANTIDADIsNull: Boolean; virtual;
|
||||
function GetOldCANTIDADValue: Float; virtual;
|
||||
function GetOldCANTIDADValue: Integer; virtual;
|
||||
function GetOldCANTIDADIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Float); virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_UNIDADValue: Currency; virtual;
|
||||
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
|
||||
@ -858,11 +858,11 @@ type
|
||||
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
||||
function GetVISIBLEValue: Integer; virtual;
|
||||
function GetVISIBLEValue: SmallInt; virtual;
|
||||
function GetVISIBLEIsNull: Boolean; virtual;
|
||||
function GetOldVISIBLEValue: Integer; virtual;
|
||||
function GetOldVISIBLEValue: SmallInt; virtual;
|
||||
function GetOldVISIBLEIsNull: Boolean; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: Integer); virtual;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULOValue: Integer; virtual;
|
||||
function GetID_ARTICULOIsNull: Boolean; virtual;
|
||||
@ -922,9 +922,9 @@ type
|
||||
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
||||
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
|
||||
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||
property OldCANTIDAD : Float read GetOldCANTIDADValue;
|
||||
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
||||
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
|
||||
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
@ -934,9 +934,9 @@ type
|
||||
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
|
||||
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property OldVISIBLE : Integer read GetOldVISIBLEValue;
|
||||
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
|
||||
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
|
||||
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
@ -2869,7 +2869,7 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCONCEPTO] := Null;
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCANTIDAD];
|
||||
end;
|
||||
@ -2879,7 +2879,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCANTIDAD]);
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesCANTIDAD];
|
||||
end;
|
||||
@ -2889,7 +2889,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesCANTIDAD]);
|
||||
end;
|
||||
|
||||
procedure TContratosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
|
||||
procedure TContratosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCANTIDAD] := aValue;
|
||||
end;
|
||||
@ -2962,7 +2962,7 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesIMPORTE_TOTAL] := Null;
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE];
|
||||
end;
|
||||
@ -2972,7 +2972,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE]);
|
||||
end;
|
||||
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
|
||||
function TContratosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVISIBLE];
|
||||
end;
|
||||
@ -2982,7 +2982,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVISIBLE]);
|
||||
end;
|
||||
|
||||
procedure TContratosCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
|
||||
procedure TContratosCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE] := aValue;
|
||||
end;
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\uPluginContratosCliente.dfm */
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\ContratosCliente_plugin.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf212.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf420.tmp */
|
||||
|
||||
@ -195,13 +195,14 @@ object RptContratosCliente: TRptContratosCliente
|
||||
'ORTE_PORTE,'#10' V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIEN' +
|
||||
'TE.IMPORTE_DESCUENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_' +
|
||||
'CONTRATOS_CLIENTE.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_C' +
|
||||
'LIENTE.IMPORTE_RE,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' CONTA' +
|
||||
'CTOS.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE, CONTACTOS.NOM' +
|
||||
'BRE,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IM' +
|
||||
'PORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' V_CON' +
|
||||
'TRATOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10' INNER J' +
|
||||
'OIN CONTACTOS ON (CONTACTOS.ID = V_CONTRATOS_CLIENTE.ID_CLIENTE)' +
|
||||
#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
|
||||
'LIENTE.IMPORTE_RE,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CON' +
|
||||
'TRATOS_CLIENTE.REF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' ' +
|
||||
' V_CONTRATOS_CLIENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' ' +
|
||||
'V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA' +
|
||||
','#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE' +
|
||||
'.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS' +
|
||||
'_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM' +
|
||||
#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -272,10 +273,6 @@ object RptContratosCliente: TRptContratosCliente
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = 'NIF_CIF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_CLIENTE'
|
||||
TableField = 'REF_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
@ -295,6 +292,26 @@ object RptContratosCliente: TRptContratosCliente
|
||||
item
|
||||
DatasetField = 'VENDEDOR'
|
||||
TableField = 'VENDEDOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALLE'
|
||||
TableField = 'CALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POBLACION'
|
||||
TableField = 'POBLACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PROVINCIA'
|
||||
TableField = 'PROVINCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CODIGO_POSTAL'
|
||||
TableField = 'CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_CLIENTE'
|
||||
TableField = 'REF_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -364,21 +381,41 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'REF_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
@ -402,9 +439,9 @@ object RptContratosCliente: TRptContratosCliente
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = '32'
|
||||
ParamType = daptInput
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -412,21 +449,146 @@ object RptContratosCliente: TRptContratosCliente
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
SQL =
|
||||
'SELECT * FROM PRO_CONT_CAPITULOS_CONCEPTOS(:ID_CONTRATO)'#10'WHERE (' +
|
||||
'VISIBLE <> 0) AND {where}'#10'ORDER BY ID_CONTRATO, POSICION'#10
|
||||
'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Contra' +
|
||||
'to'#39')'#10'WHERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, POSIC' +
|
||||
'ION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PRE_CON'
|
||||
TableField = 'ID_PRE_CON'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
TableField = 'POSICION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_DETALLE'
|
||||
TableField = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CAPITULO'
|
||||
TableField = 'ID_CAPITULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_ARTICULO'
|
||||
TableField = 'TIPO_ARTICULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ARTICULO'
|
||||
TableField = 'ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PROPIEDAD'
|
||||
TableField = 'PROPIEDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CANTIDAD'
|
||||
TableField = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_UNIDAD'
|
||||
TableField = 'IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCUENTO'
|
||||
TableField = 'DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_PORTE'
|
||||
TableField = 'IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'VISIBLE'
|
||||
TableField = 'VISIBLE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Capitulos_Detalles'
|
||||
Fields = <>
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'ID_CAPITULO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PROPIEDAD'
|
||||
DataType = datString
|
||||
Size = 50
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
ReadOnly = True
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -434,37 +596,99 @@ object RptContratosCliente: TRptContratosCliente
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
SQL =
|
||||
'SELECT * FROM PRO_CONT_CAPITULOS(:ID_CONTRATO)'#10'WHERE (VISIBLE <>' +
|
||||
' 0) AND {where}'#10'ORDER BY ID_CONTRATO, POSICION'#10
|
||||
'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Contrato'#39')'#10'WH' +
|
||||
'ERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PRE_CON'
|
||||
TableField = 'ID_PRE_CON'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
TableField = 'POSICION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_DETALLE'
|
||||
TableField = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'VISIBLE'
|
||||
TableField = 'VISIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_ARTICULO'
|
||||
TableField = 'TIPO_ARTICULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCUENTO'
|
||||
TableField = 'DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_DESCUENTO'
|
||||
TableField = 'IMPORTE_DESCUENTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Capitulos'
|
||||
Fields = <>
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
ReadOnly = True
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
Value = '2'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
SQL =
|
||||
'SELECT * FROM PRO_CONT_RESUMEN(:ID_CONTRATO)'#10'WHERE (VISIBLE <> 0' +
|
||||
') AND (TIPO_DETALLE = '#39'Titulo'#39')'#10'AND {where}'#10'ORDER BY ID_CONTRATO' +
|
||||
', POSICION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Informe_Resumen'
|
||||
Fields = <>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -569,7 +793,7 @@ object RptContratosCliente: TRptContratosCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 40010.751494131950000000
|
||||
ReportOptions.LastChange = 40066.714263229170000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
''
|
||||
@ -685,7 +909,7 @@ object RptContratosCliente: TRptContratosCliente
|
||||
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' DatosCliente.Lines.Clear;'
|
||||
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||
'{ DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||
''
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
|
||||
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||
@ -694,7 +918,8 @@ object RptContratosCliente: TRptContratosCliente
|
||||
' '#39' + <frxDBCabecera."POBLACION">);'
|
||||
''
|
||||
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
||||
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">); '
|
||||
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
||||
'} '
|
||||
'end;'
|
||||
''
|
||||
'procedure MasterData1OnBeforePrint(Sender: TfrxComponent);'
|
||||
@ -727,23 +952,90 @@ object RptContratosCliente: TRptContratosCliente
|
||||
'begin'
|
||||
'end;'
|
||||
''
|
||||
'procedure Footer1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure Memo29OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
'if ((<frxDBCapitulos."IMPORTE_TOTAL"> = 0) '
|
||||
'and (<frxDBCapitulos."DESCUENTO"> = 0)) then'
|
||||
'begin '
|
||||
' Memo13.Visible := False; '
|
||||
' Memo20.Visible := False; '
|
||||
' Memo21.Visible := False; '
|
||||
' Memo11.Visible := False; '
|
||||
'end '
|
||||
'else'
|
||||
'begin '
|
||||
' Memo13.Visible := True; '
|
||||
' Memo20.Visible := True;'
|
||||
' Memo21.Visible := True;'
|
||||
' Memo11.Visible := True; '
|
||||
'end'
|
||||
' if (<frxDBCabecera."IVA"> > 0) then'
|
||||
' begin'
|
||||
|
||||
' Memo29.visible := True; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin'
|
||||
' Memo29.visible := False; '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo30OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (<frxDBCabecera."RE"> > 0) then'
|
||||
' begin'
|
||||
|
||||
' Memo30.visible := True; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin'
|
||||
' Memo30.visible := False; '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
|
||||
' begin'
|
||||
' Memo40.Visible := False;'
|
||||
|
||||
' Memo37.Visible := False; ' +
|
||||
' '
|
||||
' end;'
|
||||
''
|
||||
' if (Length(<frxDBCabecera."FORMA_PAGO">) = 0) then'
|
||||
' begin'
|
||||
' Memo38.Visible := False;'
|
||||
|
||||
' Memo27.Visible := False; ' +
|
||||
' '
|
||||
' end; '
|
||||
''
|
||||
' if (Length(<frxDBCabecera."PLAZO_ENTREGA">) = 0) then'
|
||||
' begin'
|
||||
' Memo39.Visible := False;'
|
||||
|
||||
' Memo28.Visible := False; ' +
|
||||
' '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
|
||||
' if (sum(<frxDBDetalles."IMPORTE_TOTAL">, DetailData1) = 0) the' +
|
||||
'n'
|
||||
' begin'
|
||||
' Footer1.Height := 10;'
|
||||
' Memo13.Visible := False;'
|
||||
' Memo20.Visible := False; '
|
||||
' Memo21.Visible := False; '
|
||||
' Memo11.Visible := False;'
|
||||
' Memo24.Visible := False;'
|
||||
' end'
|
||||
' else'
|
||||
' begin'
|
||||
' Footer1.Height := 55; '
|
||||
' Memo13.Visible := True; '
|
||||
' Memo20.Visible := True;'
|
||||
' Memo21.Visible := True;'
|
||||
' Memo11.Visible := True;'
|
||||
' Memo24.Visible := True; '
|
||||
' end;'
|
||||
''
|
||||
' if (<frxDBCapitulos."IMPORTE_DESCUENTO"> = 0) then'
|
||||
' begin'
|
||||
' Footer1.Height := 35; '
|
||||
' Memo11.Visible := False;'
|
||||
' Memo24.Visible := False; '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
@ -888,7 +1180,8 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Top = 128
|
||||
end
|
||||
object IBDatabase1: TIBDatabase
|
||||
DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES_PRODUCCION.FDB'
|
||||
Connected = True
|
||||
DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
|
||||
Params.Strings = (
|
||||
'user_name=sysdba'
|
||||
'password=masterkey'
|
||||
@ -899,6 +1192,7 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Top = 296
|
||||
end
|
||||
object IBTransaction1: TIBTransaction
|
||||
Active = True
|
||||
Left = 48
|
||||
Top = 352
|
||||
end
|
||||
@ -933,59 +1227,6 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Left = 136
|
||||
Top = 416
|
||||
end
|
||||
object DataSource4: TDataSource
|
||||
DataSet = resumen
|
||||
Left = 216
|
||||
Top = 488
|
||||
end
|
||||
object resumen: TIBQuery
|
||||
Database = IBDatabase1
|
||||
Transaction = IBTransaction1
|
||||
SQL.Strings = (
|
||||
'select id, id_presupuesto, posicion, tipo_detalle, concepto,'
|
||||
' importe_total, visible'
|
||||
'from presupuestos_cliente_detalles'
|
||||
'where tipo_detalle = '#39'Titulo'#39' and id_presupuesto = 18'
|
||||
'order by posicion'
|
||||
'')
|
||||
Left = 136
|
||||
Top = 488
|
||||
object resumenID: TIntegerField
|
||||
FieldName = 'ID'
|
||||
Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."ID"'
|
||||
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
|
||||
Required = True
|
||||
end
|
||||
object resumenID_PRESUPUESTO: TIntegerField
|
||||
FieldName = 'ID_PRESUPUESTO'
|
||||
Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."ID_PRESUPUESTO"'
|
||||
Required = True
|
||||
end
|
||||
object resumenPOSICION: TIntegerField
|
||||
FieldName = 'POSICION'
|
||||
Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."POSICION"'
|
||||
end
|
||||
object resumenTIPO_DETALLE: TIBStringField
|
||||
FieldName = 'TIPO_DETALLE'
|
||||
Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."TIPO_DETALLE"'
|
||||
Size = 10
|
||||
end
|
||||
object resumenCONCEPTO: TIBStringField
|
||||
FieldName = 'CONCEPTO'
|
||||
Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."CONCEPTO"'
|
||||
Size = 2000
|
||||
end
|
||||
object resumenIMPORTE_TOTAL: TIBBCDField
|
||||
FieldName = 'IMPORTE_TOTAL'
|
||||
Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."IMPORTE_TOTAL"'
|
||||
Precision = 18
|
||||
Size = 2
|
||||
end
|
||||
object resumenVISIBLE: TSmallintField
|
||||
FieldName = 'VISIBLE'
|
||||
Origin = '"PRESUPUESTOS_CLIENTE_DETALLES"."VISIBLE"'
|
||||
end
|
||||
end
|
||||
object frxDBCapitulos: TfrxDBDataset
|
||||
UserName = 'frxDBCapitulos'
|
||||
CloseDataSource = False
|
||||
@ -993,13 +1234,6 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Left = 352
|
||||
Top = 16
|
||||
end
|
||||
object frxDBResumen: TfrxDBDataset
|
||||
UserName = 'frxDBResumen'
|
||||
CloseDataSource = False
|
||||
DataSource = DADSResumen
|
||||
Left = 520
|
||||
Top = 16
|
||||
end
|
||||
object DABin2DataStreamer1: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 80
|
||||
@ -1009,124 +1243,91 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Transaction = IBTransaction1
|
||||
SQL.Strings = (
|
||||
'SELECT'
|
||||
' V_CONTRATOS_CLIENTE.ID, V_CONTRATOS_CLIENTE.ID_EMPRESA,'
|
||||
' V_CONTRATOS_CLIENTE.FECHA_CONTRATO,'
|
||||
' V_CONTRATOS_CLIENTE.REFERENCIA,'
|
||||
' V_CONTRATOS_CLIENTE.OBSERVACIONES,'
|
||||
|
||||
' V_PRESUPUESTOS_CLIENTE.ID, V_PRESUPUESTOS_CLIENTE.ID_EMPRESA' +
|
||||
','
|
||||
' V_PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,'
|
||||
' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'
|
||||
' V_PRESUPUESTOS_CLIENTE.PORTADA,'
|
||||
' V_CONTRATOS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMPORT' +
|
||||
'E_PORTE,'
|
||||
|
||||
' V_PRESUPUESTOS_CLIENTE.MEMORIA, V_PRESUPUESTOS_CLIENTE.OBSER' +
|
||||
'VACIONES,'
|
||||
|
||||
' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PRESUPUESTOS_CLIENTE.' +
|
||||
'IMPORTE_PORTE,'
|
||||
|
||||
' V_PRESUPUESTOS_CLIENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMP' +
|
||||
'ORTE_DESCUENTO,'
|
||||
|
||||
' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENT' +
|
||||
'E.IVA,'
|
||||
' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'
|
||||
' V_PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE,'
|
||||
' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'
|
||||
' V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_D' +
|
||||
'ESCUENTO,'
|
||||
' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENTE.IVA,'
|
||||
' V_CONTRATOS_CLIENTE.ID_CLIENTE,'
|
||||
' V_CLIENTES.NIF_CIF, V_CLIENTES.NOMBRE,'
|
||||
|
||||
' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.I' +
|
||||
'MPORTE_TOTAL,'
|
||||
' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE' +
|
||||
'_TOTAL,'
|
||||
|
||||
' V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.PO' +
|
||||
'BLACION,'
|
||||
' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'
|
||||
'FROM'
|
||||
' V_PRESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'
|
||||
' (V_PRESUPUESTOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'
|
||||
' WHERE V_PRESUPUESTOS_CLIENTE.ID = 18')
|
||||
' V_CONTRATOS_CLIENTE INNER JOIN V_CLIENTES ON'
|
||||
' (V_CONTRATOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'
|
||||
' WHERE V_CONTRATOS_CLIENTE.ID = 18')
|
||||
Left = 136
|
||||
Top = 296
|
||||
object cabeceraID: TIntegerField
|
||||
FieldName = 'ID'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."ID"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."ID"'
|
||||
end
|
||||
object cabeceraID_EMPRESA: TIntegerField
|
||||
FieldName = 'ID_EMPRESA'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."ID_EMPRESA"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."ID_EMPRESA"'
|
||||
end
|
||||
object cabeceraFECHA_PRESUPUESTO: TDateField
|
||||
FieldName = 'FECHA_PRESUPUESTO'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."FECHA_PRESUPUESTO"'
|
||||
object cabeceraFECHA_CONTRATO: TDateField
|
||||
FieldName = 'FECHA_CONTRATO'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."FECHA_CONTRATO"'
|
||||
end
|
||||
object cabeceraREFERENCIA: TIBStringField
|
||||
FieldName = 'REFERENCIA'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."REFERENCIA"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."REFERENCIA"'
|
||||
Size = 255
|
||||
end
|
||||
object cabeceraPORTADA: TMemoField
|
||||
FieldName = 'PORTADA'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."PORTADA"'
|
||||
ProviderFlags = [pfInUpdate]
|
||||
BlobType = ftMemo
|
||||
Size = 8
|
||||
end
|
||||
object cabeceraMEMORIA: TMemoField
|
||||
FieldName = 'MEMORIA'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."MEMORIA"'
|
||||
ProviderFlags = [pfInUpdate]
|
||||
BlobType = ftMemo
|
||||
Size = 8
|
||||
end
|
||||
object cabeceraOBSERVACIONES: TMemoField
|
||||
FieldName = 'OBSERVACIONES'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."OBSERVACIONES"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."OBSERVACIONES"'
|
||||
ProviderFlags = [pfInUpdate]
|
||||
BlobType = ftMemo
|
||||
Size = 8
|
||||
end
|
||||
object cabeceraIMPORTE_NETO: TIBBCDField
|
||||
FieldName = 'IMPORTE_NETO'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_NETO"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_NETO"'
|
||||
Precision = 18
|
||||
Size = 2
|
||||
end
|
||||
object cabeceraIMPORTE_PORTE: TIBBCDField
|
||||
FieldName = 'IMPORTE_PORTE'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_PORTE"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_PORTE"'
|
||||
Precision = 18
|
||||
Size = 2
|
||||
end
|
||||
object cabeceraDESCUENTO: TFloatField
|
||||
FieldName = 'DESCUENTO'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."DESCUENTO"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."DESCUENTO"'
|
||||
end
|
||||
object cabeceraIMPORTE_DESCUENTO: TIBBCDField
|
||||
FieldName = 'IMPORTE_DESCUENTO'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_DESCUENTO"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_DESCUENTO"'
|
||||
Precision = 18
|
||||
Size = 2
|
||||
end
|
||||
object cabeceraBASE_IMPONIBLE: TIBBCDField
|
||||
FieldName = 'BASE_IMPONIBLE'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."BASE_IMPONIBLE"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."BASE_IMPONIBLE"'
|
||||
Precision = 18
|
||||
Size = 2
|
||||
end
|
||||
object cabeceraIVA: TFloatField
|
||||
FieldName = 'IVA'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."IVA"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."IVA"'
|
||||
end
|
||||
object cabeceraID_CLIENTE: TIntegerField
|
||||
FieldName = 'ID_CLIENTE'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."ID_CLIENTE"'
|
||||
end
|
||||
object cabeceraREFERENCIA_CLIENTE: TIBStringField
|
||||
FieldName = 'REFERENCIA_CLIENTE'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."REFERENCIA_CLIENTE"'
|
||||
Size = 255
|
||||
end
|
||||
object cabeceraCLIENTE_FINAL: TIBStringField
|
||||
FieldName = 'CLIENTE_FINAL'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."CLIENTE_FINAL"'
|
||||
Size = 255
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."ID_CLIENTE"'
|
||||
end
|
||||
object cabeceraNIF_CIF: TIBStringField
|
||||
FieldName = 'NIF_CIF'
|
||||
@ -1140,13 +1341,13 @@ object RptContratosCliente: TRptContratosCliente
|
||||
end
|
||||
object cabeceraIMPORTE_IVA: TIBBCDField
|
||||
FieldName = 'IMPORTE_IVA'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_IVA"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_IVA"'
|
||||
Precision = 18
|
||||
Size = 2
|
||||
end
|
||||
object cabeceraIMPORTE_TOTAL: TIBBCDField
|
||||
FieldName = 'IMPORTE_TOTAL'
|
||||
Origin = '"V_PRESUPUESTOS_CLIENTE"."IMPORTE_TOTAL"'
|
||||
Origin = '"V_CONTRATOS_CLIENTE"."IMPORTE_TOTAL"'
|
||||
Precision = 18
|
||||
Size = 2
|
||||
end
|
||||
@ -1184,12 +1385,56 @@ object RptContratosCliente: TRptContratosCliente
|
||||
end
|
||||
object tbl_Capitulos: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <>
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_PRESUPUESTO=ID')
|
||||
@ -1204,33 +1449,6 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Left = 352
|
||||
Top = 128
|
||||
end
|
||||
object DADSResumen: TDADataSource
|
||||
DataSet = tbl_Resumen.Dataset
|
||||
DataTable = tbl_Resumen
|
||||
Left = 520
|
||||
Top = 72
|
||||
end
|
||||
object tbl_Resumen: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
Value = '2'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_PRESUPUESTO=ID')
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABin2DataStreamer1
|
||||
LogicalName = 'Informe_Resumen'
|
||||
IndexDefs = <>
|
||||
Left = 520
|
||||
Top = 128
|
||||
end
|
||||
object frxPDFExport1: TfrxPDFExport
|
||||
ShowDialog = False
|
||||
UseFileCache = True
|
||||
@ -1372,12 +1590,76 @@ object RptContratosCliente: TRptContratosCliente
|
||||
end
|
||||
object tbl_Detalles: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <>
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'ID_CAPITULO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PROPIEDAD'
|
||||
DataType = datString
|
||||
Size = 50
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = '32'
|
||||
ParamType = daptInput
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
MasterMappingMode = mmWhere
|
||||
MasterParamsMappings.Strings = (
|
||||
|
||||
@ -30,23 +30,23 @@ type
|
||||
capitulos: TIBQuery;
|
||||
DataSource3: TDataSource;
|
||||
detalles: TIBQuery;
|
||||
DataSource4: TDataSource;
|
||||
resumen: TIBQuery;
|
||||
resumenID: TIntegerField;
|
||||
resumenPOSICION: TIntegerField;
|
||||
resumenTIPO_DETALLE: TIBStringField;
|
||||
resumenCONCEPTO: TIBStringField;
|
||||
resumenIMPORTE_TOTAL: TIBBCDField;
|
||||
resumenVISIBLE: TSmallintField;
|
||||
frxDBCapitulos: TfrxDBDataset;
|
||||
frxDBResumen: TfrxDBDataset;
|
||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||
cabecera: TIBQuery;
|
||||
DADSCapitulos: TDADataSource;
|
||||
tbl_Capitulos: TDAMemDataTable;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
DADSInformeListadoContratos: TDADataSource;
|
||||
tbl_InformeListadoContratos: TDAMemDataTable;
|
||||
frxDBInformeListadoContratos: TfrxDBDataset;
|
||||
frxDBInformeListadoContratosResumen: TfrxDBDataset;
|
||||
DADSInformeListadoContratosResumen: TDADataSource;
|
||||
tbl_InformeListadoContratosResumen: TDAMemDataTable;
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
cabeceraID: TIntegerField;
|
||||
cabeceraID_EMPRESA: TIntegerField;
|
||||
cabeceraFECHA_CONTRATO: TDateField;
|
||||
cabeceraREFERENCIA: TIBStringField;
|
||||
cabeceraPORTADA: TMemoField;
|
||||
cabeceraMEMORIA: TMemoField;
|
||||
cabeceraOBSERVACIONES: TMemoField;
|
||||
cabeceraIMPORTE_NETO: TIBBCDField;
|
||||
cabeceraIMPORTE_PORTE: TIBBCDField;
|
||||
@ -55,8 +55,6 @@ type
|
||||
cabeceraBASE_IMPONIBLE: TIBBCDField;
|
||||
cabeceraIVA: TFloatField;
|
||||
cabeceraID_CLIENTE: TIntegerField;
|
||||
cabeceraREFERENCIA_CLIENTE: TIBStringField;
|
||||
cabeceraCLIENTE_FINAL: TIBStringField;
|
||||
cabeceraNIF_CIF: TIBStringField;
|
||||
cabeceraNOMBRE: TIBStringField;
|
||||
cabeceraIMPORTE_IVA: TIBBCDField;
|
||||
@ -66,18 +64,6 @@ type
|
||||
cabeceraPOBLACION: TIBStringField;
|
||||
cabeceraPROVINCIA: TIBStringField;
|
||||
cabeceraCODIGO_POSTAL: TIBStringField;
|
||||
DADSCapitulos: TDADataSource;
|
||||
tbl_Capitulos: TDAMemDataTable;
|
||||
DADSResumen: TDADataSource;
|
||||
tbl_Resumen: TDAMemDataTable;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
DADSInformeListadoContratos: TDADataSource;
|
||||
tbl_InformeListadoContratos: TDAMemDataTable;
|
||||
frxDBInformeListadoContratos: TfrxDBDataset;
|
||||
frxDBInformeListadoContratosResumen: TfrxDBDataset;
|
||||
DADSInformeListadoContratosResumen: TDADataSource;
|
||||
tbl_InformeListadoContratosResumen: TDAMemDataTable;
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
@ -93,7 +79,7 @@ type
|
||||
FListaNombresClientes: TStringList;
|
||||
FImporteMinimo: Currency;
|
||||
FDesglosado : Boolean;
|
||||
|
||||
|
||||
procedure _GenerarContrato(const AID : Integer);
|
||||
|
||||
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
|
||||
@ -141,9 +127,6 @@ begin
|
||||
frxDBDetalles.DataSource := DADSDetalles;
|
||||
frxDBDetalles.CloseDataSource := False;
|
||||
|
||||
frxDBResumen.DataSource := DADSResumen;
|
||||
frxDBResumen.CloseDataSource := False;
|
||||
|
||||
FListaNombresClientes := TStringList.Create;
|
||||
|
||||
with tbl_Detalles do
|
||||
@ -414,7 +397,6 @@ begin
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_Capitulos.Active := False;
|
||||
tbl_Detalles.Active := False;
|
||||
tbl_Resumen.Active := False;
|
||||
|
||||
FreeANDNIL(FListaNombresClientes);
|
||||
end;
|
||||
@ -533,12 +515,10 @@ begin
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_Capitulos.Active := False;
|
||||
tbl_Detalles.Active := False;
|
||||
tbl_Resumen.Active := False;
|
||||
|
||||
tbl_Cabecera.ParamByName('ID').AsInteger := AID;
|
||||
tbl_Capitulos.ParamByName('ID_Contrato').AsInteger := AID;
|
||||
tbl_Detalles.ParamByName('ID_Contrato').AsInteger := AID;
|
||||
tbl_Resumen.ParamByName('ID_Contrato').AsInteger := AID;
|
||||
tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID;
|
||||
tbl_Detalles.ParamByName('ID_PRE_CON').AsInteger := AID;
|
||||
|
||||
// Se asignan los parametros en este orden para que funcionen
|
||||
// dentro de las relaciones maestro-detalle (capítulos y conceptos).
|
||||
@ -546,7 +526,6 @@ begin
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_Capitulos.Active := True;
|
||||
tbl_Detalles.Active := True;
|
||||
tbl_Resumen.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
|
||||
@ -662,8 +662,6 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
@ -673,44 +671,36 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_POSICION'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_TIPO_DETALLE'
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_CANTIDAD'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
@ -720,24 +710,19 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
|
||||
@ -44,8 +44,7 @@ uses
|
||||
Dialogs, uSistemaFunc, uROClasses,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schContratosClienteClient_Intf, uRestriccionesUsuarioUtils,
|
||||
// uRptContratosCliente_Server,
|
||||
uBizContratosClienteServer;
|
||||
uRptContratosCliente_Server, uBizContratosClienteServer;
|
||||
|
||||
procedure Create_srvContratosCliente(out anInstance : IUnknown);
|
||||
begin
|
||||
@ -79,31 +78,27 @@ begin
|
||||
end;
|
||||
|
||||
function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptContratosCliente;
|
||||
var
|
||||
AReportGenerator : TRptContratosCliente;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptContratosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarPresupuesto(ListaID);
|
||||
Result := AReportGenerator.GenerarContrato(ListaID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptContratosCliente;
|
||||
var
|
||||
AReportGenerator : TRptContratosCliente;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptContratosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID);
|
||||
Result := AReportGenerator.GenerarContratoEnPDF(ListaID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -46,7 +46,8 @@ requires
|
||||
dxLayoutControlD11,
|
||||
dxComnD11,
|
||||
ContratosCliente_model,
|
||||
ContratosCliente_controller;
|
||||
ContratosCliente_controller,
|
||||
ConCli_FacCli_relation;
|
||||
|
||||
contains
|
||||
uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas',
|
||||
|
||||
@ -52,6 +52,7 @@
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
|
||||
@ -25,4 +25,4 @@ END
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */
|
||||
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf210.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf41E.tmp */
|
||||
|
||||
@ -168,15 +168,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
DockPos = 343
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitWidth = 299
|
||||
object TBXItem43: TTBXItem
|
||||
Action = actAceptar
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXItem44: TTBXItem
|
||||
Action = actAnular
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
ExplicitWidth = 170
|
||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem40: TTBXItem
|
||||
@ -215,24 +207,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
OnExecute = actGenerarFacturaExecute
|
||||
OnUpdate = actGenerarFacturaUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Aceptar'
|
||||
ImageIndex = 27
|
||||
OnExecute = actAceptarExecute
|
||||
OnUpdate = actAceptarUpdate
|
||||
end
|
||||
object actAnular: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Anular'
|
||||
ImageIndex = 28
|
||||
OnExecute = actAnularExecute
|
||||
OnUpdate = actAnularUpdate
|
||||
end
|
||||
object actEnviarEMail: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Enviar por e-mail...'
|
||||
Hint = 'Enviar el presupuesto por correo electr'#243'nico'
|
||||
Hint = 'Enviar el contrato por correo electr'#243'nico'
|
||||
OnExecute = actEnviarEMailExecute
|
||||
OnUpdate = actEnviarEMailUpdate
|
||||
end
|
||||
@ -2022,7 +2000,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||
Instruction.Text = 'Generar a partir del presupuesto...'
|
||||
Instruction.Text = 'Generar a partir del contrato...'
|
||||
Instruction.Glyph.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
@ -2069,7 +2047,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Caption = 'Generar factura de cliente'
|
||||
Value = 200
|
||||
Info.Strings = (
|
||||
'Genera una factura de cliente igual que el presupuesto.')
|
||||
'Genera una factura de cliente igual que el contrato.')
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -2374,12 +2352,12 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Instruction.Icon = tdiCustom
|
||||
CustomButtons = <
|
||||
item
|
||||
Caption = 'Previsualizar el presupuesto/s seleccionado/s'
|
||||
Caption = 'Previsualizar el contrato/s seleccionado/s'
|
||||
Value = 100
|
||||
Default = True
|
||||
end
|
||||
item
|
||||
Caption = 'Previsualizar la lista de presupuestos actual'
|
||||
Caption = 'Previsualizar la lista de contratos actual'
|
||||
Value = 200
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
@ -2685,12 +2663,12 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Instruction.Icon = tdiCustom
|
||||
CustomButtons = <
|
||||
item
|
||||
Caption = 'Imprimir el presupuesto/s seleccionado/s'
|
||||
Caption = 'Imprimir el contrato/s seleccionado/s'
|
||||
Value = 100
|
||||
Default = True
|
||||
end
|
||||
item
|
||||
Caption = 'Imprimir la lista de presupuesto actual'
|
||||
Caption = 'Imprimir la lista de contratos actual'
|
||||
Value = 200
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
@ -2961,7 +2939,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||
Instruction.Text =
|
||||
'Los siguientes presupuestos no han podido ser eliminados, porque' +
|
||||
'Los siguientes contratos no han podido ser eliminados, porque' +
|
||||
' tienen factura asociada'
|
||||
Instruction.Glyph.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
@ -3298,7 +3276,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Instruction.Icon = tdiCustom
|
||||
CustomButtons = <
|
||||
item
|
||||
Caption = 'Listado de presupuestos.'
|
||||
Caption = 'Listado de contratos.'
|
||||
Value = 100
|
||||
Default = True
|
||||
end>
|
||||
|
||||
@ -32,10 +32,6 @@ type
|
||||
JsListaContratosNoEliminados: TJSDialog;
|
||||
TBXItem41: TTBXItem;
|
||||
Generarcertificado1: TMenuItem;
|
||||
actAceptar: TAction;
|
||||
actAnular: TAction;
|
||||
TBXItem43: TTBXItem;
|
||||
TBXItem44: TTBXItem;
|
||||
TBXSeparatorItem18: TTBXSeparatorItem;
|
||||
actEnviarEMail: TAction;
|
||||
TBXItem45: TTBXItem;
|
||||
@ -95,9 +91,8 @@ implementation
|
||||
uses
|
||||
uDataModuleContratosCliente, uDataModuleUsuarios, uFactuGES_App,
|
||||
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
|
||||
uDBSelectionListUtils, uGridUtils,
|
||||
uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils,
|
||||
// uGridStatusUtils,
|
||||
// uGenerarFacturasCliPreCliUtils,
|
||||
|
||||
|
||||
|
||||
@ -274,14 +269,8 @@ end;
|
||||
procedure TfEditorContratosCliente.actGenerarFacturaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
{
|
||||
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del presupuesto %s a la factura?', [Contratos.REFERENCIA])) = IDYES) then
|
||||
GenerarFacturaCliPre(Contratos.ID)
|
||||
else
|
||||
GenerarFacturaCliPre(Contratos.ID, False);
|
||||
|
||||
GenerarFacturaCli(Contratos.ID);
|
||||
actRefrescar.Execute;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.actGenerarFacturaUpdate(Sender: TObject);
|
||||
|
||||
@ -155,12 +155,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Value = 'PENDIENTE'
|
||||
end
|
||||
item
|
||||
Description = 'ACEPTADO'
|
||||
Value = 'ACEPTADO'
|
||||
end
|
||||
item
|
||||
Description = 'ANULADO'
|
||||
Value = 'ANULADO'
|
||||
Description = 'TERMINADO'
|
||||
Value = 'TERMINADO'
|
||||
end>
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
|
||||
@ -201,17 +201,19 @@ begin
|
||||
FMsgElegirCliente := 'Elija el cliente al que se le realizará el Contrato.';
|
||||
FClientesController := TClientesController.Create;
|
||||
FDireccionesController := TDireccionesContactoController.Create;
|
||||
FDireccion := FDireccionesController.Nuevo;
|
||||
|
||||
edtlNombre.Enabled := False;
|
||||
edtNIFCIF.Enabled := False;
|
||||
edtDireccion.Enabled := False;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
|
||||
|
||||
Button5.Visible := False;
|
||||
end;
|
||||
|
||||
destructor TfrViewDatosYSeleccionClienteContrato.Destroy;
|
||||
begin
|
||||
FDireccion := NIL;
|
||||
FClientesController := NIL;
|
||||
FDireccionesController := NIL;
|
||||
inherited;
|
||||
@ -255,7 +257,7 @@ begin
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
FDireccion := ADireccion;
|
||||
FContrato.Edit;
|
||||
EscribirTextoDireccion;
|
||||
|
||||
if FDireccion.IDIsNull then
|
||||
begin
|
||||
@ -266,15 +268,6 @@ begin
|
||||
// FContrato.ID_DIRECCION := FDireccion.ID;
|
||||
FContrato.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
end;
|
||||
|
||||
//Siempre asignaremos la direccion y persona de contacto ya sea de las direcciones del contacto o la ID_Direccion=0 que es la principal de la ficha
|
||||
FContrato.CALLE := FDireccion.CALLE;
|
||||
FContrato.POBLACION := FDireccion.POBLACION;
|
||||
FContrato.PROVINCIA := FDireccion.PROVINCIA;
|
||||
FContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
|
||||
FContrato.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
|
||||
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -297,6 +290,14 @@ var
|
||||
begin
|
||||
ACadena := '';
|
||||
|
||||
//Siempre asignaremos la direccion y persona de contacto ya sea de las direcciones del contacto o la ID_Direccion=0 que es la principal de la ficha
|
||||
FContrato.Edit;
|
||||
FContrato.CALLE := FDireccion.CALLE;
|
||||
FContrato.POBLACION := FDireccion.POBLACION;
|
||||
FContrato.PROVINCIA := FDireccion.PROVINCIA;
|
||||
FContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
|
||||
FContrato.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
|
||||
|
||||
if Assigned(FDireccion) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
[FDireccion.CALLE, FDireccion.POBLACION,
|
||||
@ -334,9 +335,8 @@ begin
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else begin
|
||||
FContrato.Edit;
|
||||
FContrato.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
@ -367,7 +367,16 @@ end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.RefrescarDireccion;
|
||||
begin
|
||||
FDireccion := FDireccionesController.Nuevo;
|
||||
// FDireccion := FDireccionesController.Nuevo;
|
||||
|
||||
// if (not FContrato.ID_DIRECCIONIsNull) and
|
||||
// (FDireccionesController.Localizar(FCliente.Direcciones, FContrato.ID_DIRECCION)) then
|
||||
// FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
|
||||
// else
|
||||
// FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||
|
||||
// EscribirTextoDireccion;
|
||||
|
||||
FDireccion.Active := True;
|
||||
FDireccion.DataTable.Insert;
|
||||
try
|
||||
@ -406,7 +415,7 @@ begin
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
|
||||
//Solo podremos establecer persona de contacto si se ha asignado un cliente
|
||||
//Solo podremos establecer persona de contacto si se ha asignado un cliente
|
||||
if FCliente.ID > 0 then
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
|
||||
@ -819,6 +819,7 @@ begin
|
||||
|
||||
try
|
||||
AFactura.DataTable.ApplyUpdates;
|
||||
Result := bEliminado;
|
||||
except
|
||||
//En el caso de una factura que tiene recibos con devoluciones hechas no se puede borrar aunque la factura este en situacion de pendiente
|
||||
AFactura.DataTable.CancelUpdates;
|
||||
@ -832,6 +833,8 @@ end;
|
||||
|
||||
function TFacturasClienteController.EsEliminable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
|
||||
if not Assigned(AFactura) then
|
||||
raise Exception.Create ('Factura no asignado: EsEliminable');
|
||||
|
||||
|
||||
@ -419,7 +419,7 @@ begin
|
||||
FECHA_PRESUPUESTO := DateOf(Now);
|
||||
INCIDENCIAS_ACTIVAS := 0;
|
||||
INCIDENCIASIsNull := True;
|
||||
// ID_FACTURAIsNull := True;
|
||||
ID_CONTRATOIsNull := True;
|
||||
FECHA_DECISIONIsNull := True;
|
||||
REFERENCIA := '';
|
||||
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
|
||||
|
||||
@ -42,14 +42,14 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PresupuestosCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PresupuestosCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PresupuestosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="uDataModulePresupuestosCliente.pas">
|
||||
<Form>DataModulePresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
@ -537,4 +537,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
EurekaLog Last Line -->
|
||||
|
||||
@ -266,64 +266,45 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
Required = True
|
||||
DisplayLabel = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO'
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO'
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_POSICION'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE'
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
@ -333,31 +314,19 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA'
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -9,12 +9,12 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{6B7512A8-EB4C-4244-943F-285DE30A5DBE}';
|
||||
RID_Propiedades = '{C567C7CF-99D4-41BF-B2F2-D87F2FD59F42}';
|
||||
RID_ListaAnosPresupuestos = '{79474858-E6AF-4D32-B3B1-78304B4BDB06}';
|
||||
RID_PresupuestosCliente = '{43648F68-D4C5-471D-A900-221D25AABEF1}';
|
||||
RID_CapitulosPresupuesto = '{0CB24F2A-9812-437C-98D1-C7E659E3FD4E}';
|
||||
RID_PresupuestosCliente_Detalles = '{53C6C0B3-DA6B-4627-8F0E-EBDEA0FEC1D9}';
|
||||
RID_Valores = '{360865F6-D61C-4F56-81B3-80940311084F}';
|
||||
RID_Propiedades = '{578A1925-5462-48CD-88F8-00151C73B996}';
|
||||
RID_ListaAnosPresupuestos = '{44749161-C1BE-4754-8CE5-6A09AF383611}';
|
||||
RID_PresupuestosCliente = '{8145DD24-FBBA-4F26-A6F1-8EE2C84AD837}';
|
||||
RID_CapitulosPresupuesto = '{249810AA-086E-4490-940F-A0AF43A71A5A}';
|
||||
RID_PresupuestosCliente_Detalles = '{854200B0-5648-479E-9BC9-6DE111FF31E6}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -185,7 +185,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{DF8B5E15-0AA9-4CBD-B49C-CC89DC2058F1}']
|
||||
['{DD6974D3-A0C4-4E21-A334-E50E81583DA9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -244,7 +244,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{04EF207A-CCEC-47CA-8295-275761FCA347}']
|
||||
['{6512B700-7A3B-45A4-80AC-B6D48193D4CB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -303,7 +303,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestos }
|
||||
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
|
||||
['{108DEB55-A6EF-48D8-9F41-A78EA77811E5}']
|
||||
['{EED87562-4E5D-4164-8D9E-AE13BEB8A806}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -338,7 +338,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente }
|
||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{CB9876C3-FD15-4C82-AC1A-DDAFEBFF048F}']
|
||||
['{CB9CB465-7592-4B43-9E99-7A6E743BBFD2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -829,7 +829,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuesto }
|
||||
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
|
||||
['{A3650725-FE09-4108-9EFF-6E1E4D911632}']
|
||||
['{96561128-301B-4707-91F2-6428F82033FE}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -924,7 +924,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_Detalles }
|
||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{005DEE46-9C8D-4169-8AFC-D0A849982376}']
|
||||
['{006D2E37-2AEC-43DD-B5A4-3BB45956BABC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -946,8 +946,8 @@ type
|
||||
procedure SetCONCEPTOValue(const aValue: String);
|
||||
function GetCONCEPTOIsNull: Boolean;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
function GetCANTIDADValue: Float;
|
||||
procedure SetCANTIDADValue(const aValue: Float);
|
||||
function GetCANTIDADValue: Integer;
|
||||
procedure SetCANTIDADValue(const aValue: Integer);
|
||||
function GetCANTIDADIsNull: Boolean;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean);
|
||||
function GetIMPORTE_UNIDADValue: Currency;
|
||||
@ -958,8 +958,8 @@ type
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
function GetIMPORTE_TOTALIsNull: Boolean;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
||||
function GetVISIBLEValue: Integer;
|
||||
procedure SetVISIBLEValue(const aValue: Integer);
|
||||
function GetVISIBLEValue: SmallInt;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt);
|
||||
function GetVISIBLEIsNull: Boolean;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean);
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
@ -999,13 +999,13 @@ type
|
||||
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
@ -1046,8 +1046,8 @@ type
|
||||
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
||||
function GetCONCEPTOIsNull: Boolean; virtual;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDADValue: Float; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Float); virtual;
|
||||
function GetCANTIDADValue: Integer; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
||||
function GetCANTIDADIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_UNIDADValue: Currency; virtual;
|
||||
@ -1058,8 +1058,8 @@ type
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
||||
function GetVISIBLEValue: Integer; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: Integer); virtual;
|
||||
function GetVISIBLEValue: SmallInt; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
|
||||
function GetVISIBLEIsNull: Boolean; virtual;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULOValue: Integer; virtual;
|
||||
@ -1098,13 +1098,13 @@ type
|
||||
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
@ -2419,14 +2419,14 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsFloat;
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsFloat := aValue;
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
|
||||
@ -2482,14 +2482,14 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: Integer;
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsInteger;
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{D7395CE4-863C-4302-8580-560E4F7EDBA4}';
|
||||
RID_PropiedadesDelta = '{904BB545-3A5D-4014-AEB1-E9DAE9EC7485}';
|
||||
RID_ListaAnosPresupuestosDelta = '{5BA0E871-EC39-4EA6-9BA4-C1AA22E49B8B}';
|
||||
RID_PresupuestosClienteDelta = '{037B9DD0-0CBA-4BB2-951B-F8E3E6A8D35E}';
|
||||
RID_CapitulosPresupuestoDelta = '{440D5A1A-69CF-49E5-9822-CA252C881177}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{C09202CF-837F-4819-9CD4-BB6A390E7745}';
|
||||
RID_ValoresDelta = '{A31ECE4B-F45F-4FFA-B8D2-E4C30437FC6C}';
|
||||
RID_PropiedadesDelta = '{17913405-B1A3-414E-B9CC-8668063D831C}';
|
||||
RID_ListaAnosPresupuestosDelta = '{28DC5CF0-35FD-4430-997C-CE68FAFA4B91}';
|
||||
RID_PresupuestosClienteDelta = '{AD87C5AB-4E58-404D-997A-A099D3BE6A93}';
|
||||
RID_CapitulosPresupuestoDelta = '{F88C93D2-E737-4E68-8C96-6F328113A033}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{98D1A78A-661D-41D6-9920-E0105FFE38FD}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{D7395CE4-863C-4302-8580-560E4F7EDBA4}']
|
||||
['{A31ECE4B-F45F-4FFA-B8D2-E4C30437FC6C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -77,7 +77,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{904BB545-3A5D-4014-AEB1-E9DAE9EC7485}']
|
||||
['{17913405-B1A3-414E-B9CC-8668063D831C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -135,7 +135,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestosDelta }
|
||||
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
|
||||
['{5BA0E871-EC39-4EA6-9BA4-C1AA22E49B8B}']
|
||||
['{28DC5CF0-35FD-4430-997C-CE68FAFA4B91}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -169,7 +169,7 @@ type
|
||||
|
||||
{ IPresupuestosClienteDelta }
|
||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||
['{037B9DD0-0CBA-4BB2-951B-F8E3E6A8D35E}']
|
||||
['{AD87C5AB-4E58-404D-997A-A099D3BE6A93}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -663,7 +663,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuestoDelta }
|
||||
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
|
||||
['{440D5A1A-69CF-49E5-9822-CA252C881177}']
|
||||
['{F88C93D2-E737-4E68-8C96-6F328113A033}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -757,17 +757,17 @@ type
|
||||
|
||||
{ IPresupuestosCliente_DetallesDelta }
|
||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||
['{C09202CF-837F-4819-9CD4-BB6A390E7745}']
|
||||
['{98D1A78A-661D-41D6-9920-E0105FFE38FD}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
function GetOldTIPO_DETALLEValue : String;
|
||||
function GetOldCONCEPTOValue : String;
|
||||
function GetOldCANTIDADValue : Float;
|
||||
function GetOldCANTIDADValue : Integer;
|
||||
function GetOldIMPORTE_UNIDADValue : Currency;
|
||||
function GetOldIMPORTE_TOTALValue : Currency;
|
||||
function GetOldVISIBLEValue : Integer;
|
||||
function GetOldVISIBLEValue : SmallInt;
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
function GetOldTIPO_ARTICULOValue : String;
|
||||
function GetOldDESCUENTOValue : Float;
|
||||
@ -781,10 +781,10 @@ type
|
||||
property OldPOSICION : Integer read GetOldPOSICIONValue;
|
||||
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
|
||||
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
||||
property OldCANTIDAD : Float read GetOldCANTIDADValue;
|
||||
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
||||
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldVISIBLE : Integer read GetOldVISIBLEValue;
|
||||
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
|
||||
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
||||
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
@ -828,11 +828,11 @@ type
|
||||
function GetOldCONCEPTOIsNull: Boolean; virtual;
|
||||
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDADValue: Float; virtual;
|
||||
function GetCANTIDADValue: Integer; virtual;
|
||||
function GetCANTIDADIsNull: Boolean; virtual;
|
||||
function GetOldCANTIDADValue: Float; virtual;
|
||||
function GetOldCANTIDADValue: Integer; virtual;
|
||||
function GetOldCANTIDADIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Float); virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_UNIDADValue: Currency; virtual;
|
||||
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
|
||||
@ -846,11 +846,11 @@ type
|
||||
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
||||
function GetVISIBLEValue: Integer; virtual;
|
||||
function GetVISIBLEValue: SmallInt; virtual;
|
||||
function GetVISIBLEIsNull: Boolean; virtual;
|
||||
function GetOldVISIBLEValue: Integer; virtual;
|
||||
function GetOldVISIBLEValue: SmallInt; virtual;
|
||||
function GetOldVISIBLEIsNull: Boolean; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: Integer); virtual;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULOValue: Integer; virtual;
|
||||
function GetID_ARTICULOIsNull: Boolean; virtual;
|
||||
@ -910,9 +910,9 @@ type
|
||||
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
||||
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
|
||||
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
|
||||
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||
property OldCANTIDAD : Float read GetOldCANTIDADValue;
|
||||
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
||||
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
|
||||
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
@ -922,9 +922,9 @@ type
|
||||
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
|
||||
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property OldVISIBLE : Integer read GetOldVISIBLEValue;
|
||||
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
|
||||
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
|
||||
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
@ -2826,7 +2826,7 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD];
|
||||
end;
|
||||
@ -2836,7 +2836,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]);
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCANTIDAD];
|
||||
end;
|
||||
@ -2846,7 +2846,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD] := aValue;
|
||||
end;
|
||||
@ -2919,7 +2919,7 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE];
|
||||
end;
|
||||
@ -2929,7 +2929,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE]);
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVISIBLE];
|
||||
end;
|
||||
@ -2939,7 +2939,7 @@ begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVISIBLE]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE] := aValue;
|
||||
end;
|
||||
|
||||
@ -483,9 +483,9 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = '32'
|
||||
ParamType = daptInput
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -493,8 +493,9 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
SQL =
|
||||
'SELECT * FROM PRO_PRES_CAPITULOS_CONCEPTOS(:ID_PRESUPUESTO)'#10'WHER' +
|
||||
'E (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRESUPUESTO, POSICION'#10
|
||||
'SELECT * FROM PROC_PRE_CON_CAPITULOS_CONCEP(:ID_PRE_CON, '#39'Presup' +
|
||||
'uesto'#39')'#10'WHERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, PO' +
|
||||
'SICION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -502,8 +503,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PRESUPUESTO'
|
||||
TableField = 'ID_PRESUPUESTO'
|
||||
DatasetField = 'ID_PRE_CON'
|
||||
TableField = 'ID_PRE_CON'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
@ -566,7 +567,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
@ -630,7 +631,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
@ -640,8 +641,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
SQL =
|
||||
'SELECT * FROM PRO_PRES_CAPITULOS(:ID_PRESUPUESTO)'#10'WHERE (VISIBLE' +
|
||||
' <> 0) AND {where}'#10'ORDER BY ID_PRESUPUESTO, POSICION'#10
|
||||
'SELECT * FROM PROC_PRE_CON_CAPITULOS(:ID_PRE_CON, '#39'Presupuesto'#39')' +
|
||||
#10'WHERE (VISIBLE <> 0) AND {where}'#10'ORDER BY ID_PRE_CON, POSICION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -649,8 +650,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PRESUPUESTO'
|
||||
TableField = 'ID_PRESUPUESTO'
|
||||
DatasetField = 'ID_PRE_CON'
|
||||
TableField = 'ID_PRE_CON'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
@ -693,7 +694,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
@ -733,87 +734,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
end>
|
||||
ReadOnly = True
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = '2'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
SQL =
|
||||
'SELECT * FROM PRO_PRES_RESUMEN(:ID_PRESUPUESTO)'#10'WHERE (VISIBLE <' +
|
||||
'> 0) AND (TIPO_DETALLE = '#39'Titulo'#39')'#10'AND {where}'#10'ORDER BY ID_PRESU' +
|
||||
'PUESTO, POSICION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PRESUPUESTO'
|
||||
TableField = 'ID_PRESUPUESTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
TableField = 'POSICION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_DETALLE'
|
||||
TableField = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'VISIBLE'
|
||||
TableField = 'VISIBLE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Resumen'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -902,7 +822,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
Left = 48
|
||||
Top = 16
|
||||
Top = 24
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <>
|
||||
@ -919,7 +839,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 40010.751494131950000000
|
||||
ReportOptions.LastChange = 40066.748108344910000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
''
|
||||
@ -1077,23 +997,91 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
'begin'
|
||||
'end;'
|
||||
''
|
||||
'procedure Footer1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure Memo29OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
'if ((<frxDBCapitulos."IMPORTE_TOTAL"> = 0) '
|
||||
'and (<frxDBCapitulos."DESCUENTO"> = 0)) then'
|
||||
'begin '
|
||||
' Memo13.Visible := False; '
|
||||
' Memo20.Visible := False; '
|
||||
' Memo21.Visible := False; '
|
||||
' Memo11.Visible := False; '
|
||||
'end '
|
||||
'else'
|
||||
'begin '
|
||||
' Memo13.Visible := True; '
|
||||
' Memo20.Visible := True;'
|
||||
' Memo21.Visible := True;'
|
||||
' Memo11.Visible := True; '
|
||||
'end'
|
||||
' if (<frxDBCabecera."IVA"> > 0) then'
|
||||
' begin'
|
||||
|
||||
' Memo29.visible := True; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin'
|
||||
' Memo29.visible := False; '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo30OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (<frxDBCabecera."RE"> > 0) then'
|
||||
' begin'
|
||||
|
||||
' Memo30.visible := True; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin'
|
||||
' Memo30.visible := False; '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
|
||||
' begin'
|
||||
' Memo40.Visible := False;'
|
||||
|
||||
' Memo37.Visible := False; ' +
|
||||
' '
|
||||
' end;'
|
||||
''
|
||||
' if (Length(<frxDBCabecera."FORMA_PAGO">) = 0) then'
|
||||
' begin'
|
||||
' Memo38.Visible := False;'
|
||||
|
||||
' Memo27.Visible := False; ' +
|
||||
' '
|
||||
' end; '
|
||||
''
|
||||
' if (Length(<frxDBCabecera."PLAZO_ENTREGA">) = 0) then'
|
||||
' begin'
|
||||
' Memo39.Visible := False;'
|
||||
|
||||
' Memo28.Visible := False; ' +
|
||||
' '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (sum(<frxDBDetalles."IMPORTE_TOTAL">, DetailData1) = 0)'
|
||||
|
||||
' and (sum(<frxDBDetalles."IMPORTE_TOTAL">, DetailData2) = 0) th' +
|
||||
'en'
|
||||
' begin'
|
||||
' Footer1.Height := 10;'
|
||||
' Memo13.Visible := False;'
|
||||
' Memo20.Visible := False; '
|
||||
' Memo21.Visible := False; '
|
||||
' Memo11.Visible := False;'
|
||||
' Memo24.Visible := False;'
|
||||
' end'
|
||||
' else'
|
||||
' begin'
|
||||
' Footer1.Height := 55;'
|
||||
' Memo13.Visible := True; '
|
||||
' Memo20.Visible := True;'
|
||||
' Memo21.Visible := True;'
|
||||
' Memo11.Visible := True;'
|
||||
' Memo24.Visible := True; '
|
||||
' end;'
|
||||
''
|
||||
' if (<frxDBCapitulos."IMPORTE_DESCUENTO"> = 0) then'
|
||||
' begin'
|
||||
' Footer1.Height := 35; '
|
||||
' Memo11.Visible := False;'
|
||||
' Memo24.Visible := False; '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
@ -1373,13 +1361,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Left = 352
|
||||
Top = 16
|
||||
end
|
||||
object frxDBResumen: TfrxDBDataset
|
||||
UserName = 'frxDBResumen'
|
||||
CloseDataSource = False
|
||||
DataSource = DADSResumen
|
||||
Left = 520
|
||||
Top = 16
|
||||
end
|
||||
object DABin2DataStreamer1: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 80
|
||||
@ -1571,7 +1552,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
@ -1611,7 +1592,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
@ -1628,64 +1609,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Left = 352
|
||||
Top = 128
|
||||
end
|
||||
object DADSResumen: TDADataSource
|
||||
DataSet = tbl_Resumen.Dataset
|
||||
DataTable = tbl_Resumen
|
||||
Left = 520
|
||||
Top = 72
|
||||
end
|
||||
object tbl_Resumen: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = '2'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_PRESUPUESTO=ID')
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = DABin2DataStreamer1
|
||||
LogicalName = 'Informe_Resumen'
|
||||
IndexDefs = <>
|
||||
Left = 520
|
||||
Top = 128
|
||||
end
|
||||
object frxPDFExport1: TfrxPDFExport
|
||||
ShowDialog = False
|
||||
UseFileCache = True
|
||||
@ -1819,7 +1742,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
@ -1880,9 +1803,9 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = '32'
|
||||
ParamType = daptInput
|
||||
Name = 'ID_PRE_CON'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
MasterMappingMode = mmWhere
|
||||
MasterParamsMappings.Strings = (
|
||||
|
||||
@ -40,7 +40,6 @@ type
|
||||
resumenIMPORTE_TOTAL: TIBBCDField;
|
||||
resumenVISIBLE: TSmallintField;
|
||||
frxDBCapitulos: TfrxDBDataset;
|
||||
frxDBResumen: TfrxDBDataset;
|
||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||
cabecera: TIBQuery;
|
||||
cabeceraID: TIntegerField;
|
||||
@ -70,8 +69,6 @@ type
|
||||
cabeceraCODIGO_POSTAL: TIBStringField;
|
||||
DADSCapitulos: TDADataSource;
|
||||
tbl_Capitulos: TDAMemDataTable;
|
||||
DADSResumen: TDADataSource;
|
||||
tbl_Resumen: TDAMemDataTable;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
DADSInformeListadoPresupuestos: TDADataSource;
|
||||
tbl_InformeListadoPresupuestos: TDAMemDataTable;
|
||||
@ -143,9 +140,6 @@ begin
|
||||
frxDBDetalles.DataSource := DADSDetalles;
|
||||
frxDBDetalles.CloseDataSource := False;
|
||||
|
||||
frxDBResumen.DataSource := DADSResumen;
|
||||
frxDBResumen.CloseDataSource := False;
|
||||
|
||||
FListaNombresClientes := TStringList.Create;
|
||||
|
||||
with tbl_Detalles do
|
||||
@ -416,7 +410,6 @@ begin
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_Capitulos.Active := False;
|
||||
tbl_Detalles.Active := False;
|
||||
tbl_Resumen.Active := False;
|
||||
|
||||
FreeANDNIL(FListaNombresClientes);
|
||||
end;
|
||||
@ -535,12 +528,10 @@ begin
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_Capitulos.Active := False;
|
||||
tbl_Detalles.Active := False;
|
||||
tbl_Resumen.Active := False;
|
||||
|
||||
tbl_Cabecera.ParamByName('ID').AsInteger := AID;
|
||||
tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
|
||||
tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
|
||||
tbl_Resumen.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
|
||||
tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID;
|
||||
tbl_Detalles.ParamByName('ID_PRE_CON').AsInteger := AID;
|
||||
|
||||
// Se asignan los parametros en este orden para que funcionen
|
||||
// dentro de las relaciones maestro-detalle (capítulos y conceptos).
|
||||
@ -548,7 +539,6 @@ begin
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_Capitulos.Active := True;
|
||||
tbl_Detalles.Active := True;
|
||||
tbl_Resumen.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
|
||||
@ -652,56 +652,45 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO'
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_POSICION'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE'
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_ARTICULO'
|
||||
@ -711,24 +700,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
|
||||
@ -211,7 +211,8 @@ begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and ViewGrid.esSeleccionCeldaDatos
|
||||
and (FPresupuestos.SITUACION <> SITUACION_PRESUPUESTO_ANULADO);
|
||||
and (FPresupuestos.SITUACION <> SITUACION_PRESUPUESTO_ANULADO)
|
||||
and (FPresupuestos.REF_CONTRATO = '');
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestosCliente.actEliminarUpdate(Sender: TObject);
|
||||
|
||||
Binary file not shown.
@ -0,0 +1,39 @@
|
||||
package ConCli_FacCli_relation;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
Base,
|
||||
Contactos_model,
|
||||
Contactos_controller,
|
||||
ContratosCliente_controller,
|
||||
ContratosCliente_model,
|
||||
FacturasCliente_controller,
|
||||
FacturasCliente_model;
|
||||
|
||||
contains
|
||||
uGenerarFacturasCliUtils in 'uGenerarFacturasCliUtils.pas' {dmGenerarFacturasCli};
|
||||
|
||||
end.
|
||||
@ -0,0 +1,652 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid>
|
||||
<MainSource>ConCli_FacCli_relation.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\ConCli_FacCli_relation.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcl31w100.bpl">Delphi 1.0 Compatibility Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclmid100.bpl">Borland MyBase DataAccess Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcldbxcds100.bpl">Borland SimpleDataset Component (DBX)</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\BPL_D10\dcldxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dclcxSchedulerD10.bpl">ExpressScheduler 2 by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dclcxVerticalGridD10.bpl">ExpressVerticalGrid by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvBandsD10D.bpl">JVCL Band Objects</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvCmpD10D.bpl">JVCL Non-Visual Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvCryptD10D.bpl">JVCL Encryption and Compression Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvDlgsD10D.bpl">JVCL Dialog Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvDockingD10D.bpl">JVCL Docking Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvDotNetCtrlsD10D.bpl">JVCL DotNet Controls</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvEDID10D.bpl">JVCL EDI Components Designtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvHMID10D.bpl">JVCL HMI Controls design time unit</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvInterpreterD10D.bpl">JVCL Interpreter Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvJansD10D.bpl">JVCL Jans Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvManagedThreadsD10D.bpl">JVCL Managed Threads</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvMMD10D.bpl">JVCL Multimedia and Image Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvNetD10D.bpl">JVCL Network Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvPageCompsD10D.bpl">JVCL Page Style Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvPluginD10D.bpl">JVCL Plugin Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvPrintPreviewD10D.bpl">JVCL Print Preview Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvRuntimeDesignD10D.bpl">JVCL Runtime Design Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvTimeFrameworkD10D.bpl">JVCL Time Framework</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvUIBD10D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvValidatorsD10D.bpl">JVCL Validators and Error Provider Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl">Internet Explorer Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">ConCli_FacCli_relation.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="ConCli_FacCli_relation.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Presupuestos de cliente - Contratos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\Presupuestos de cliente - Contratos de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Presupuestos de cliente - Contratos de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Presupuestos de cliente - Contratos de cliente\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\Presupuestos de cliente - Contratos de cliente\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\Presupuestos de cliente - Contratos de cliente\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\Presupuestos de cliente - Contratos de cliente\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="uGenerarFacturasCliUtils.pas">
|
||||
<Form>dmGenerarFacturasCli</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -0,0 +1,313 @@
|
||||
object dmGenerarFacturasCli: TdmGenerarFacturasCli
|
||||
OldCreateOrder = False
|
||||
Height = 176
|
||||
Width = 254
|
||||
object JsListaFacturasGenerados: TJSDialog
|
||||
DialogOptions = [doCommandLinks, doModal]
|
||||
Glyph.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||
Instruction.Text = 'Se ha generado la factura de cliente'
|
||||
Instruction.Glyph.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||
Instruction.Icon = tdiCustom
|
||||
CustomButtons = <
|
||||
item
|
||||
Caption = 'Ver la factura'
|
||||
Value = 100
|
||||
Info.Strings = (
|
||||
'Mostrar la factura que se ha creado')
|
||||
end>
|
||||
ButtonBar.Buttons = [cbOK]
|
||||
ButtonBar.Cancel = cbOK
|
||||
ButtonBar.UseCancel = False
|
||||
MainIcon = tdiCustom
|
||||
Title = 'FactuGES'
|
||||
Position = dpMainFormCenter
|
||||
Icon.Data = {
|
||||
0000010003002020100001000400E8020000360000002020000001000800A808
|
||||
00001E0300002020000001002000A8100000C60B000028000000200000004000
|
||||
0000010004000000000000020000000000000000000000000000000000000000
|
||||
000000008000008000000080800080000000800080008080000080808000C0C0
|
||||
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
||||
0000000000000000000000000000000008777777777777777777777700000000
|
||||
0877767777677776777767760000000008F88888888888888888888700000000
|
||||
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
|
||||
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
|
||||
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
|
||||
08F8676767677677677658E50000000008FF8888888887878787888700000000
|
||||
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
|
||||
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
|
||||
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
|
||||
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
|
||||
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
|
||||
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
|
||||
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
|
||||
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
|
||||
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
|
||||
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
|
||||
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
|
||||
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
|
||||
0000200000004000000001000800000000000004000000000000000000000001
|
||||
00000001000000000000694731007C5D49007E604C0081635000826451008567
|
||||
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
|
||||
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
|
||||
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
|
||||
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
|
||||
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
|
||||
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
|
||||
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
|
||||
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
|
||||
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
|
||||
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
|
||||
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
|
||||
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
|
||||
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
|
||||
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
|
||||
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
|
||||
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
|
||||
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
|
||||
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
|
||||
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
|
||||
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
|
||||
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
|
||||
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
|
||||
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
|
||||
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
|
||||
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
|
||||
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
|
||||
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
|
||||
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
|
||||
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
|
||||
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
|
||||
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
|
||||
0D0D0000000000000000009C9C19191919191919191919191919191919191919
|
||||
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
|
||||
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
|
||||
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
|
||||
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
|
||||
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
|
||||
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
|
||||
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
|
||||
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
|
||||
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
|
||||
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
|
||||
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
|
||||
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
|
||||
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
|
||||
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
|
||||
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
|
||||
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
|
||||
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
|
||||
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
|
||||
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
|
||||
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
|
||||
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
|
||||
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
|
||||
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
|
||||
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
|
||||
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
|
||||
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
|
||||
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
|
||||
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
|
||||
0000000000000000000000003227000000000000000000000000000000000000
|
||||
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
|
||||
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
|
||||
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000007067
|
||||
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
|
||||
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
|
||||
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
|
||||
A070000000000000000000000000000000000000000000000000000000005E54
|
||||
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
|
||||
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
|
||||
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
|
||||
967F000000000000000000000000000000000000000000000000000000006055
|
||||
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
|
||||
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
|
||||
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006056
|
||||
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
|
||||
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
|
||||
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006155
|
||||
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
|
||||
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
|
||||
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006157
|
||||
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
|
||||
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
|
||||
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006256
|
||||
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
|
||||
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
|
||||
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006256
|
||||
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
|
||||
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006256
|
||||
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
|
||||
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006257
|
||||
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
|
||||
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
|
||||
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006357
|
||||
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
|
||||
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
|
||||
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006357
|
||||
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
|
||||
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
|
||||
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006458
|
||||
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
|
||||
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
|
||||
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006458
|
||||
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
|
||||
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
|
||||
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006459
|
||||
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
|
||||
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
|
||||
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006559
|
||||
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
|
||||
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
|
||||
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
|
||||
967E000000000000000000000000000000000000000000000000000000006559
|
||||
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
|
||||
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
|
||||
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000000000000000000000000000685A
|
||||
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
|
||||
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000007792910072A7A3001E33366957
|
||||
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
|
||||
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
|
||||
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
|
||||
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
|
||||
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
|
||||
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
|
||||
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
|
||||
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
|
||||
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
|
||||
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
|
||||
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
|
||||
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
|
||||
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
|
||||
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
|
||||
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
|
||||
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
|
||||
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
|
||||
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
|
||||
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
|
||||
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
|
||||
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
|
||||
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
|
||||
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
|
||||
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
|
||||
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
|
||||
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
|
||||
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
|
||||
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
|
||||
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
|
||||
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
|
||||
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
|
||||
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
|
||||
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
|
||||
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
|
||||
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
|
||||
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
|
||||
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
|
||||
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
|
||||
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
|
||||
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
|
||||
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
|
||||
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
|
||||
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
|
||||
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||
001F8000003F800000FFF8FFFFFF}
|
||||
Width = 450
|
||||
Left = 72
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,253 @@
|
||||
unit uGenerarFacturasCliUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Classes, pngimage, JSDialog,
|
||||
uBizContratosCliente, uBizFacturasCliente;
|
||||
|
||||
type
|
||||
TdmGenerarFacturasCli = class(TDataModule)
|
||||
JsListaFacturasGenerados: TJSDialog;
|
||||
end;
|
||||
|
||||
function GenerarFacturaCli(const IDContrato : Integer) : Boolean; overload;
|
||||
function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
|
||||
// function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDialogUtils, uBizDetallesContratoCliente, uBizDetallesFacturaCliente,
|
||||
uContratosClienteController, uFacturasClienteController, uClientesController,
|
||||
uDetallesFacturaClienteController, uControllerDetallesBase,
|
||||
uBizContactos, schFacturasClienteClient_Intf,
|
||||
schContratosClienteClient_Intf;
|
||||
|
||||
var
|
||||
dmGenerarFacturasCli: TdmGenerarFacturasCli;
|
||||
AContratosClienteController : IContratosClienteController;
|
||||
AFacturasClienteController : IFacturasClienteController;
|
||||
AClientesController : IClientesController;
|
||||
|
||||
{ Métodos auxiliares }
|
||||
procedure CopiarContratoAFactura(AContrato: IBizContratoCliente; AFactura : IBizFacturaCliente);
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
raise Exception.Create ('Factura no asignado (CopiarContratoAFactura)');
|
||||
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create ('Contrato no asignado (CopiarContratoAFactura)');
|
||||
|
||||
if not AContrato.DataTable.Active then
|
||||
AContrato.DataTable.Active := True;
|
||||
|
||||
// La factura tiene que venir ya abierto y posicionado donde hay que copiar
|
||||
AFactura.ID_CLIENTE := AContrato.ID_CLIENTE;
|
||||
// Lo dejamos listo para que se localize la subcuenta contable asociada al cliente
|
||||
AFacturasClienteController.RecuperarCliente(AFactura);
|
||||
AFactura.Cliente.Open;
|
||||
|
||||
AFactura.NIF_CIF := AContrato.NIF_CIF;
|
||||
AFactura.NOMBRE := AContrato.NOMBRE;
|
||||
AFactura.CALLE := AContrato.CALLE;
|
||||
AFactura.POBLACION := AContrato.POBLACION;
|
||||
AFactura.PROVINCIA := AContrato.PROVINCIA;
|
||||
AFactura.CODIGO_POSTAL := AContrato.CODIGO_POSTAL;
|
||||
|
||||
|
||||
// AFactura.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO;
|
||||
// AFactura.DataTable.FieldByName(fld_FacturasClientePLAZO_ENTREGA).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant;
|
||||
AFactura.DataTable.FieldByName(fld_FacturasClienteOBSERVACIONES).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant;
|
||||
AFactura.IMPORTE_NETO := AContrato.IMPORTE_NETO;
|
||||
AFactura.IMPORTE_PORTE := AContrato.IMPORTE_PORTE;
|
||||
AFactura.DESCUENTO := AContrato.DESCUENTO;
|
||||
AFactura.IMPORTE_DESCUENTO := AContrato.IMPORTE_DESCUENTO;
|
||||
AFactura.BASE_IMPONIBLE := AContrato.BASE_IMPONIBLE;
|
||||
AFactura.ID_TIPO_IVA := AContrato.ID_TIPO_IVA;
|
||||
AFactura.IVA := AContrato.IVA;
|
||||
AFactura.IMPORTE_IVA := AContrato.IMPORTE_IVA;
|
||||
AFactura.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
|
||||
AFactura.ID_TIENDA := AContrato.ID_TIENDA;
|
||||
// AFactura.ID_VENDEDOR := AContrato.ID_VENDEDOR;
|
||||
AFactura.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA;
|
||||
AFactura.RE := AContrato.RE;
|
||||
AFactura.IMPORTE_RE := AContrato.IMPORTE_RE;
|
||||
end;
|
||||
|
||||
procedure CopiarDetallesAFactura(
|
||||
AContrato: IBizContratoCliente;
|
||||
AFactura: IBizFacturaCliente;
|
||||
AArticulos: IBizDetallesContratoCliente);
|
||||
var
|
||||
i : integer;
|
||||
ADetalles : IBizDetallesFacturaCliente;
|
||||
ADetallesController : IDetallesFacturaClienteController;
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
raise Exception.Create ('Factura no asignada (CopiarDetallesAFactura)');
|
||||
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create ('Contrato no asignado (CopiarDetallesAFactura)');
|
||||
|
||||
if not Assigned(AArticulos) then
|
||||
raise Exception.Create ('Artículos no asignado (CopiarDetallesAFatura)');
|
||||
|
||||
if not AArticulos.DataTable.Active then
|
||||
AArticulos.DataTable.Active := True;
|
||||
|
||||
// El contrato tiene que venir ya abierto y posicionado donde hay que copiar
|
||||
|
||||
ADetalles := AFactura.Detalles;
|
||||
ADetallesController := TDetallesFacturaClienteController.Create;
|
||||
try
|
||||
//OJO IMPORTANTE
|
||||
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
|
||||
//obligarle siempre a recalcular los detalles una sola vez
|
||||
ADetallesController.BeginUpdate(ADetalles);
|
||||
|
||||
AArticulos.DataTable.First;
|
||||
for i := 0 to AArticulos.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
ADetallesController.Add(ADetalles, AArticulos.TIPO_DETALLE);
|
||||
ADetalles.Edit;
|
||||
ADetalles.REFERENCIA := AArticulos.REFERENCIA;
|
||||
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
|
||||
// ADetalles.TIPO_ARTICULO := AArticulos.TIPO_ARTICULO;
|
||||
ADetalles.CONCEPTO := AArticulos.CONCEPTO;
|
||||
ADetalles.CANTIDAD := AArticulos.CANTIDAD;
|
||||
ADetalles.IMPORTE_UNIDAD := AArticulos.IMPORTE_UNIDAD;
|
||||
ADetalles.IMPORTE_TOTAL := AArticulos.IMPORTE_TOTAL;
|
||||
ADetalles.DESCUENTO := AArticulos.DESCUENTO;
|
||||
ADetalles.IMPORTE_PORTE := AArticulos.IMPORTE_PORTE;
|
||||
ADetalles.VISIBLE := AArticulos.VISIBLE;
|
||||
ADetalles.REFERENCIA_PROVEEDOR := AArticulos.REFERENCIA_PROVEEDOR;
|
||||
ADetalles.Post;
|
||||
AArticulos.Next;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADetalles);
|
||||
ADetallesController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure Inicializar;
|
||||
begin
|
||||
dmGenerarFacturasCli := TdmGenerarFacturasCli.Create(nil);
|
||||
AContratosClienteController := TContratosClienteController.Create;
|
||||
AFacturasClienteController := TFacturasClienteController.Create;
|
||||
AClientesController := TClientesController.Create;
|
||||
end;
|
||||
|
||||
procedure Finalizar;
|
||||
begin
|
||||
FreeAndNIL(dmGenerarFacturasCli);
|
||||
AContratosClienteController := nil;
|
||||
AFacturasClienteController := nil;
|
||||
AClientesController := nil;
|
||||
end;
|
||||
|
||||
|
||||
function GenerarFacturaCli(const IDContrato : Integer) : Boolean; overload;
|
||||
var
|
||||
AContrato : IBizContratoCliente;
|
||||
AFactura : IBizFacturaCliente;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
try
|
||||
if not Assigned(AContratosClienteController) then
|
||||
Inicializar;
|
||||
|
||||
AContrato := AContratosClienteController.Buscar(IDContrato);
|
||||
if Assigned(AContrato) then
|
||||
Result := GenerarFacturaCli(AContrato, AFactura);
|
||||
finally
|
||||
if Assigned(AContratosClienteController) then
|
||||
Finalizar;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
|
||||
var
|
||||
ARespuesta : Integer;
|
||||
|
||||
begin
|
||||
Result := False;
|
||||
AFactura := NIL;
|
||||
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create('Contrato de cliente no asignado (GenerarContratoCli)');
|
||||
|
||||
if not AContrato.DataTable.Active then
|
||||
AContrato.DataTable.Active := True;
|
||||
|
||||
if not Assigned(AContratosClienteController) then
|
||||
Inicializar;
|
||||
|
||||
try
|
||||
AFactura := AFacturasClienteController.Nuevo;
|
||||
CopiarContratoAFactura(AContrato, AFactura);
|
||||
CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles);
|
||||
|
||||
//Sustituir por if de guardar
|
||||
if AFacturasClienteController.Guardar(AFactura) then
|
||||
begin
|
||||
with dmGenerarFacturasCli.JsListaFacturasGenerados do
|
||||
begin
|
||||
Instruction.Text := 'Se ha generado la factura';
|
||||
|
||||
Content.Clear;
|
||||
Content.Add(Format('Se ha generado correctamente la factura %s a partir del contrato de cliente' + #10#13, [AFactura.REFERENCIA]));
|
||||
Execute;
|
||||
|
||||
ARespuesta := CustomButtonResult;
|
||||
case ARespuesta of
|
||||
100 : begin
|
||||
// Ver el albarán
|
||||
AFacturasClienteController.Ver(AFactura);
|
||||
end;
|
||||
200 : // Continuar;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
finally
|
||||
if Assigned(AContratosClienteController) then
|
||||
Finalizar;
|
||||
end;
|
||||
end;
|
||||
{
|
||||
function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean; overload;
|
||||
var
|
||||
APedido : IBizPedidoCliente;
|
||||
AAlbaran : IBizAlbaranCliente;
|
||||
begin
|
||||
Result := False;
|
||||
IDAlbaran := -1;
|
||||
|
||||
AAlbaran := NIL;
|
||||
try
|
||||
if not Assigned(APedidosClienteController) then
|
||||
Inicializar;
|
||||
|
||||
APedido := APedidosClienteController.ElegirPedidos(APedidosClienteController.BuscarPendientes,
|
||||
'Elija el pedido de cliente que desea utilizar para dar de alta el albarán de cliente.'
|
||||
, False);
|
||||
|
||||
if Assigned(APedido) then
|
||||
begin
|
||||
Result := GenerarAlbaranCli(APedido, AAlbaran);
|
||||
if Result then
|
||||
IDAlbaran := AAlbaran.ID;
|
||||
end;
|
||||
finally
|
||||
if Assigned(APedidosClienteController) then
|
||||
Finalizar;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end.
|
||||
Binary file not shown.
@ -132,7 +132,7 @@ uses
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
|
||||
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
|
||||
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas',
|
||||
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
|
||||
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
|
||||
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
|
||||
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
|
||||
|
||||
@ -1,293 +1,297 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 26 de agosto de 2009 12:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclfqb100.bpl">FastQueryBuilder 1.03</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\JvUIBD11D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
|
||||
<Form>srvContratosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 26 de agosto de 2009 12:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclfqb100.bpl">FastQueryBuilder 1.03</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\JvUIBD11D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
|
||||
<Form>RptContratosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
|
||||
<Form>srvContratosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
VALUE "FileVersion", "2.3.5.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.3.5.0\0"
|
||||
VALUE "CompileDate", "martes, 01 de septiembre de 2009 18:29\0"
|
||||
VALUE "CompileDate", "jueves, 10 de septiembre de 2009 15:58\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user