Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ampliacion Tarea #1425 -> Añadir una columna en la lista de clientes para mostrar los nombres de la pestaña 'Direcciones'.

Browse Source 
Disponible en clientes, presupuestos, contratos, albaranes de cliente, facturas de cliente y recibos de cliente.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@658 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2017-02-07 15:04:25 +00:00
parent 7622518f60
commit 2b9fc81f02
46 changed files with 1163 additions and 611 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Build/Build.release.fbpInf
View File

@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:00:03</LastBuildRun> <LastBuildRun>00:02:57</LastBuildRun>
<LastBuildStart>12/09/2016 11:17:57</LastBuildStart> <LastBuildStart>06/02/2017 18:43:48</LastBuildStart>
<LastBuildState>False</LastBuildState> <LastBuildState>True</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.release.fbz6
View File

Binary file not shown.

44
Database/scripts/factuges.sql
View File

@ -1805,7 +1805,8 @@ CREATE VIEW V_ALBARANES_CLIENTE(
FECHA_ENVIO, FECHA_ENVIO,
FECHA_RECEPCION, FECHA_RECEPCION,
ID_TIENDA, ID_TIENDA,
TIENDA) TIENDA,
LISTA_NOMBRES)
AS AS
SELECT SELECT
ALBARANES_CLIENTE.ID, ALBARANES_CLIENTE.ID,
@ -1853,7 +1854,8 @@ SELECT
ALBARANES_CLIENTE.FECHA_ENVIO, ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION, ALBARANES_CLIENTE.FECHA_RECEPCION,
ALBARANES_CLIENTE.ID_TIENDA, ALBARANES_CLIENTE.ID_TIENDA,
COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA,
TRIM(leading ', ' from V_CONTACTOS_NOMBRES.OTROS_NOMBRES) as LISTA_NOMBRES
FROM FROM
ALBARANES_CLIENTE ALBARANES_CLIENTE
@ -1864,6 +1866,7 @@ FROM
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = ALBARANES_CLIENTE.ID_TIENDA) LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = ALBARANES_CLIENTE.ID_TIENDA)
LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (ALBARANES_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID)
; ;
@ -2606,7 +2609,8 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
TIPO_CONTRATO, TIPO_CONTRATO,
CONDICIONES, CONDICIONES,
CALIDADES, CALIDADES,
REFERENCIA_CLIENTE) REFERENCIA_CLIENTE,
LISTA_NOMBRES)
AS AS
SELECT CONTRATOS_CLIENTE.ID, SELECT CONTRATOS_CLIENTE.ID,
/* CONTRATOS_CLIENTE.ID_EMPRESA,*/ /* CONTRATOS_CLIENTE.ID_EMPRESA,*/
@ -2656,7 +2660,8 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.TIPO_CONTRATO, CONTRATOS_CLIENTE.TIPO_CONTRATO,
CONTRATOS_CLIENTE.CONDICIONES, CONTRATOS_CLIENTE.CONDICIONES,
CONTRATOS_CLIENTE.CALIDADES, CONTRATOS_CLIENTE.CALIDADES,
CONTRATOS_CLIENTE.REFERENCIA_CLIENTE CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
TRIM(leading ', ' from V_CONTACTOS_NOMBRES.OTROS_NOMBRES) as LISTA_NOMBRES
FROM CONTRATOS_CLIENTE FROM CONTRATOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE)
@ -2664,8 +2669,10 @@ SELECT CONTRATOS_CLIENTE.ID,
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID)
INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE) INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE)
LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA) LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA)
; LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (CONTRATOS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID)
WHERE CONTRATOS_CLIENTE.fecha_contrato >= '01.01.2014'
;
/* View: V_EMPRESAS_TIENDAS */ /* View: V_EMPRESAS_TIENDAS */
@ -2903,8 +2910,10 @@ CREATE VIEW V_FACTURAS_CLIENTE(
ASIENTO_PUNTEADO, ASIENTO_PUNTEADO,
ID_CONTRATO, ID_CONTRATO,
REF_CONTRATO, REF_CONTRATO,
VENDEDOR,
SIN_COMISION, SIN_COMISION,
TIPO_FACTURA) TIPO_FACTURA,
LISTA_NOMBRES)
AS AS
SELECT FACTURAS_CLIENTE.ID, SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.ID_EMPRESA,
@ -2954,8 +2963,10 @@ SELECT FACTURAS_CLIENTE.ID,
V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO, V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO,
FACTURAS_CLIENTE.ID_CONTRATO, FACTURAS_CLIENTE.ID_CONTRATO,
CONTRATOS_CLIENTE.REFERENCIA, CONTRATOS_CLIENTE.REFERENCIA,
VENDEDORES.NOMBRE as VENDEDOR,
FACTURAS_CLIENTE.SIN_COMISION, FACTURAS_CLIENTE.SIN_COMISION,
FACTURAS_CLIENTE.TIPO_FACTURA FACTURAS_CLIENTE.TIPO_FACTURA,
V_CONTACTOS_NOMBRES.OTROS_NOMBRES as LISTA_NOMBRES
FROM V_FAC_CLI_SITUACION FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
@ -2967,6 +2978,8 @@ SELECT FACTURAS_CLIENTE.ID,
LEFT JOIN TIENDAS ON (TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA) LEFT JOIN TIENDAS ON (TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA)
LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID) LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID)
LEFT JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = FACTURAS_CLIENTE.ID_CONTRATO) LEFT JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = FACTURAS_CLIENTE.ID_CONTRATO)
LEFT JOIN CONTACTOS as VENDEDORES ON (CONTRATOS_CLIENTE.ID_VENDEDOR = VENDEDORES.ID)
LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (FACTURAS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID)
; ;
@ -3951,7 +3964,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
NO_VALORADO, NO_VALORADO,
TIPO_PRESUPUESTO, TIPO_PRESUPUESTO,
CALIDADES, CALIDADES,
REFERENCIA_CLIENTE) REFERENCIA_CLIENTE,
LISTA_NOMBRES)
AS AS
SELECT SELECT
PRESUPUESTOS_CLIENTE.ID, PRESUPUESTOS_CLIENTE.ID,
@ -3997,7 +4011,8 @@ SELECT
PRESUPUESTOS_CLIENTE.NO_VALORADO, PRESUPUESTOS_CLIENTE.NO_VALORADO,
PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO, PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.CALIDADES, PRESUPUESTOS_CLIENTE.CALIDADES,
PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE,
TRIM(leading ', ' from V_CONTACTOS_NOMBRES.OTROS_NOMBRES) as LISTA_NOMBRES
FROM FROM
PRESUPUESTOS_CLIENTE PRESUPUESTOS_CLIENTE
@ -4006,8 +4021,12 @@ FROM
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (PRESUPUESTOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (PRESUPUESTOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID)
LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = PRESUPUESTOS_CLIENTE.ID_TIENDA) LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = PRESUPUESTOS_CLIENTE.ID_TIENDA)
LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO) LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO)
LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID)
WHERE PRESUPUESTOS_CLIENTE.fecha_presupuesto >= '01.01.2014'
; ;
/* View: V_PROVEEDORES */ /* View: V_PROVEEDORES */
CREATE VIEW V_PROVEEDORES( CREATE VIEW V_PROVEEDORES(
ID, ID,
@ -4168,7 +4187,8 @@ CREATE VIEW V_RECIBOS_CLIENTE(
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO, USUARIO,
ID_TIENDA, ID_TIENDA,
TIENDA) TIENDA,
LISTA_NOMBRES)
AS AS
SELECT RECIBOS_CLIENTE.ID, SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO, RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@ -4204,7 +4224,8 @@ SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.FECHA_MODIFICACION, RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO, RECIBOS_CLIENTE.USUARIO,
RECIBOS_CLIENTE.ID_TIENDA, RECIBOS_CLIENTE.ID_TIENDA,
COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA,
V_CONTACTOS_NOMBRES.OTROS_NOMBRES as LISTA_NOMBRES
FROM RECIBOS_CLIENTE FROM RECIBOS_CLIENTE
LEFT JOIN V_REC_CLI_SITUACION LEFT JOIN V_REC_CLI_SITUACION
@ -4227,6 +4248,7 @@ LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
LEFT JOIN TIENDAS LEFT JOIN TIENDAS
ON (TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA) ON (TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA)
LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (RECIBOS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID)
; ;

96
Source/Base/Base.dproj
View File

@ -58,55 +58,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.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\dxPSCoreD11.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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

3
Source/Cliente/FactuGES.dproj
View File

@ -52,8 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">2</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.8.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,8,0,0 FILEVERSION 2,8,2,0
PRODUCTVERSION 2,8,0,0 PRODUCTVERSION 2,8,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.8.0.0\0" VALUE "FileVersion", "2.8.2.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.8.0.0\0" VALUE "ProductVersion", "2.8.2.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Base.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frx11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frxe11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\fs11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

9
Source/GUIBase/uViewGrid.dfm
View File

@ -45,11 +45,10 @@ inherited frViewGrid: TfrViewGrid
object cxGridViewICONO: TcxGridDBColumn object cxGridViewICONO: TcxGridDBColumn
Caption = 'Icono' Caption = 'Icono'
OnCustomDrawCell = cxGridViewICONOCustomDrawCell OnCustomDrawCell = cxGridViewICONOCustomDrawCell
BestFitMaxWidth = 22 BestFitMaxWidth = 18
MinWidth = 22 MinWidth = 18
Options.HorzSizing = False
Options.Sorting = False Options.Sorting = False
Width = 22 Width = 18
OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader
end end
end end
@ -163,7 +162,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 42299.692793553240000000 ReportDocument.CreationDate = 42772.762583020830000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True

8
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -328,6 +328,14 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DisplayLabel = 'AlbaranesCliente_TIENDA' DisplayLabel = 'AlbaranesCliente_TIENDA'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_TIENDA' DictionaryEntry = 'AlbaranesCliente_TIENDA'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

47
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{7EB3AC27-59E8-42B4-ADA3-CE4D9CAEB13C}'; RID_ListaAnosAlbaranes = '{3BF46A2A-B09F-4966-80AC-36B91AB3F410}';
RID_AlbaranesCliente = '{D2DA1D56-1646-4F90-8DE9-D4B5FFE8B553}'; RID_AlbaranesCliente = '{37A96813-FF20-4C48-8043-08624BDF1EEC}';
RID_AlbaranesCliente_Detalles = '{BBD1F7AA-F56C-43AE-A7C7-0F58965BDF4A}'; RID_AlbaranesCliente_Detalles = '{7A054D7B-816E-40D3-8810-00601F96937D}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -71,6 +71,7 @@ const
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA'; fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
fld_AlbaranesClienteTIENDA = 'TIENDA'; fld_AlbaranesClienteTIENDA = 'TIENDA';
fld_AlbaranesClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ AlbaranesCliente field indexes } { AlbaranesCliente field indexes }
idx_AlbaranesClienteID_CONTRATO = 0; idx_AlbaranesClienteID_CONTRATO = 0;
@ -119,6 +120,7 @@ const
idx_AlbaranesClienteFECHA_RECEPCION = 43; idx_AlbaranesClienteFECHA_RECEPCION = 43;
idx_AlbaranesClienteID_TIENDA = 44; idx_AlbaranesClienteID_TIENDA = 44;
idx_AlbaranesClienteTIENDA = 45; idx_AlbaranesClienteTIENDA = 45;
idx_AlbaranesClienteLISTA_NOMBRES = 46;
{ AlbaranesCliente_Detalles fields } { AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID'; fld_AlbaranesCliente_DetallesID = 'ID';
@ -155,7 +157,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{203EE597-D0C7-4604-A953-891F0E3D98FF}'] ['{0C7CD8C2-CB8B-4224-863B-760D2E239D64}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -190,7 +192,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{D6D78EF6-CA78-4ED9-B294-D1D466E1726B}'] ['{D3E1233E-BD17-40E1-B5B2-C8241F7BFF04}']
{ Property getters and setters } { Property getters and setters }
function GetID_CONTRATOValue: Integer; function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer); procedure SetID_CONTRATOValue(const aValue: Integer);
@ -374,6 +376,10 @@ type
procedure SetTIENDAValue(const aValue: String); procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean; function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean); procedure SetTIENDAIsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -469,6 +475,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
@ -662,6 +670,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual; function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue; property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
@ -756,6 +768,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -765,7 +779,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{020AD67D-D6F1-4E13-962A-E7B9FE5F4C5E}'] ['{A6C61208-F037-4EFA-BBBF-1DBC79AF7C44}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1980,6 +1994,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteTIENDA].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteTIENDA].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsString;
end;
procedure TAlbaranesClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsString := aValue;
end;
function TAlbaranesClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsVariant := Null;
end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

55
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{B498D9C0-EE0A-46DA-A371-702D825BDB3A}'; RID_ListaAnosAlbaranesDelta = '{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}';
RID_AlbaranesClienteDelta = '{D704D54E-00E5-4A35-B737-A915BB515300}'; RID_AlbaranesClienteDelta = '{2EAD0C36-219E-47BB-8D37-78BD32D11744}';
RID_AlbaranesCliente_DetallesDelta = '{999E4300-FF31-4EA7-B81E-287E2000B1BD}'; RID_AlbaranesCliente_DetallesDelta = '{2ACFBDE5-B171-408C-A739-A72B52566077}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{B498D9C0-EE0A-46DA-A371-702D825BDB3A}'] ['{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{D704D54E-00E5-4A35-B737-A915BB515300}'] ['{2EAD0C36-219E-47BB-8D37-78BD32D11744}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
@ -98,6 +98,7 @@ type
function GetOldFECHA_RECEPCIONValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties } { Properties }
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue; property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
@ -146,6 +147,7 @@ type
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end; end;
{ TAlbaranesClienteBusinessProcessorRules } { TAlbaranesClienteBusinessProcessorRules }
@ -431,6 +433,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual; function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue; property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
@ -617,6 +625,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -626,7 +638,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{999E4300-FF31-4EA7-B81E-287E2000B1BD}'] ['{2ACFBDE5-B171-408C-A739-A72B52566077}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -2313,6 +2325,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIENDA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIENDA] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES];
end;
function TAlbaranesClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteLISTA_NOMBRES];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteLISTA_NOMBRES]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := Null;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules } { TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

16
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -231,6 +231,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'REF_CONTRATO' DatasetField = 'REF_CONTRATO'
TableField = 'REF_CONTRATO' TableField = 'REF_CONTRATO'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
@ -494,6 +498,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_TIENDA' DictionaryEntry = 'AlbaranesCliente_TIENDA'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
end> end>
end end
item item
@ -1731,6 +1741,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
Name = 'AlbaranesCliente_ID_TIPO_IVA' Name = 'AlbaranesCliente_ID_TIPO_IVA'
DataType = datInteger DataType = datInteger
end
item
Name = 'AlbaranesCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end> end>
Left = 48 Left = 48
Top = 136 Top = 136

26
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -8,8 +8,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Height = 492 Height = 492
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 596 ExplicitWidth = 1121
ExplicitHeight = 351 ExplicitHeight = 492
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
@ -173,6 +173,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 78 Width = 78
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres'
DataBinding.FieldName = 'LISTA_NOMBRES'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
@ -198,12 +202,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 1121 Width = 1121
ExplicitWidth = 596 ExplicitWidth = 1121
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 596 ExplicitWidth = 1121
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 1121 Width = 1121
ExplicitWidth = 596 ExplicitWidth = 1121
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 499 ExplicitWidth = 499
Width = 499 Width = 499
@ -221,10 +225,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 1121 Width = 1121
ExplicitWidth = 596 ExplicitWidth = 1121
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 1111 Width = 1111
ExplicitWidth = 586 ExplicitWidth = 1111
end end
end end
end end
@ -236,14 +240,14 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 594 Top = 594
Visible = True Visible = True
ExplicitTop = 453 ExplicitTop = 594
ExplicitWidth = 596 ExplicitWidth = 1121
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 1121 Width = 1121
ExplicitWidth = 596 ExplicitWidth = 1121
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 1111 Width = 1111
ExplicitWidth = 586 ExplicitWidth = 1111
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem3: TTBXItem object TBXItem3: TTBXItem

1
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -60,6 +60,7 @@ type
cxStyleRETRASADOS: TcxStyle; cxStyleRETRASADOS: TcxStyle;
cxGridViewTIENDA: TcxGridDBColumn; cxGridViewTIENDA: TcxGridDBColumn;
cxGridViewREF_CONTRATO: TcxGridDBColumn; cxGridViewREF_CONTRATO: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;

8
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -106,7 +106,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'ContratosCliente_PROVINCIA' DisplayLabel = 'Provincia'
DictionaryEntry = 'ContratosCliente_PROVINCIA' DictionaryEntry = 'ContratosCliente_PROVINCIA'
end end
item item
@ -337,6 +337,12 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'REFERENCIA_CLIENTE' Name = 'REFERENCIA_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

24
Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj
View File

@ -43,6 +43,8 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<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><Excluded_Packages> <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\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -52,23 +54,23 @@
<DelphiCompile Include="ContratosCliente_model.dpk"> <DelphiCompile Include="ContratosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.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\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleContratosCliente.pas" /> <DCCReference Include="Data\uIDataModuleContratosCliente.pas" />
<DCCReference Include="Data\uIDataModuleContratosClienteReport.pas" /> <DCCReference Include="Data\uIDataModuleContratosClienteReport.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schContratosClienteClient_Intf.pas" /> <DCCReference Include="schContratosClienteClient_Intf.pas" />
<DCCReference Include="schContratosClienteServer_Intf.pas" /> <DCCReference Include="schContratosClienteServer_Intf.pas" />
<DCCReference Include="uBizContratosCliente.pas" /> <DCCReference Include="uBizContratosCliente.pas" />
<DCCReference Include="uBizDetallesContratoCliente.pas" /> <DCCReference Include="uBizDetallesContratoCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

63
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{DB288B62-3376-4EA8-A16B-92FABB15E1A7}'; RID_Valores = '{70561B10-CF0E-4CB0-9EDE-9E07CA3DC825}';
RID_Propiedades = '{3F49C9C0-A176-4268-BBE1-2F3A6ED0AF94}'; RID_Propiedades = '{42795964-B53A-4ABC-8C07-3AAF06D510F2}';
RID_ListaAnosContratos = '{88182026-223D-438E-92E0-EA01835AF503}'; RID_ListaAnosContratos = '{3C8A3C5F-0BF7-4ED2-A43F-09AB91F800DD}';
RID_ContratosClienteBeneficios = '{F521EB65-8167-449B-BF50-EA1CB017F919}'; RID_ContratosClienteBeneficios = '{298384FF-93DD-400F-99FF-6F94B609A8F3}';
RID_ContratosCliente = '{1EE07E71-6530-4136-9372-8A62ABB4C53E}'; RID_ContratosCliente = '{599407C8-CB47-4921-A309-EA98160811DB}';
RID_TiposCapitulos = '{A686096C-3DDA-428A-8717-B490FBF9D421}'; RID_TiposCapitulos = '{9AEF97F4-6F51-4965-847A-2AE04F02AF26}';
RID_ContratosCliente_Detalles = '{A466E6CC-EAD0-4A56-B5A1-75AD4BCAD0EA}'; RID_ContratosCliente_Detalles = '{F3C415E0-E714-4252-82B0-A62CD86B7ED8}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -127,6 +127,7 @@ const
fld_ContratosClienteCONDICIONES = 'CONDICIONES'; fld_ContratosClienteCONDICIONES = 'CONDICIONES';
fld_ContratosClienteCALIDADES = 'CALIDADES'; fld_ContratosClienteCALIDADES = 'CALIDADES';
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -177,6 +178,7 @@ const
idx_ContratosClienteCONDICIONES = 45; idx_ContratosClienteCONDICIONES = 45;
idx_ContratosClienteCALIDADES = 46; idx_ContratosClienteCALIDADES = 46;
idx_ContratosClienteREFERENCIA_CLIENTE = 47; idx_ContratosClienteREFERENCIA_CLIENTE = 47;
idx_ContratosClienteLISTA_NOMBRES = 48;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -235,7 +237,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{47E1BDF6-B0A2-4419-BEB6-0DF205C5F64C}'] ['{2620E76F-9DE4-4A08-9B01-F4FDC10BE790}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -294,7 +296,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{5C51DAC7-B80E-4A79-9BAA-005E517E5A9D}'] ['{9C04A9FE-841E-4326-AE5F-88AFA615E660}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -353,7 +355,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{83AF2CBF-AA2F-45F6-AD84-C87BAC7B6695}'] ['{8DF60C08-E50F-4823-9294-DB2BD0124094}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -388,7 +390,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{04BD7FD9-0F85-4F94-B8D4-8CCBB1C4D7DA}'] ['{613D5F73-5101-403F-B998-0FCE68876699}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -543,7 +545,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{8462E438-53BE-4ED9-8C10-AB5CDDAACA1A}'] ['{01B1FEF2-2A92-4080-8AA6-D0668432174B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -731,6 +733,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean; function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -830,6 +836,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -1035,6 +1043,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1133,6 +1145,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1145,7 +1159,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{3BA1C9A1-DD78-47B3-B1DE-F671F7B2B0C8}'] ['{F69A1386-D2A9-4D05-82A9-F050398B2E40}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1240,7 +1254,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{EA171C1D-256C-44C8-AA5E-727819A510D5}'] ['{E34606BE-1525-42AA-85DF-2F29600C6B53}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2946,6 +2960,27 @@ begin
DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].AsString;
end;
procedure TContratosClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].IsNull;
end;
procedure TContratosClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

71
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{EB84C856-C87F-4ED4-A98D-050744E9CCB6}'; RID_ValoresDelta = '{4C6DB20B-7CD7-4030-BD89-8AAA22A9CBB8}';
RID_PropiedadesDelta = '{409D42DE-E54B-4042-9ACB-004C3568EEBA}'; RID_PropiedadesDelta = '{F5FC8E51-B4DB-46CF-A7AB-8A54CE4C8E15}';
RID_ListaAnosContratosDelta = '{60EBEB72-4CF4-42A9-85DE-817C53EC0473}'; RID_ListaAnosContratosDelta = '{17BC2843-25E2-47F3-AD18-7C7A78284701}';
RID_ContratosClienteBeneficiosDelta = '{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}'; RID_ContratosClienteBeneficiosDelta = '{6F425251-01C7-4E7F-A383-9B80DCF50117}';
RID_ContratosClienteDelta = '{C0AF8753-5906-4472-8FD1-040299E5C45E}'; RID_ContratosClienteDelta = '{C99393C6-A96C-4C04-AE04-35FD4EF00ED2}';
RID_TiposCapitulosDelta = '{1C929971-38B4-421A-A50C-D7DE36FA55C0}'; RID_TiposCapitulosDelta = '{E50EF164-9D6C-4B3D-A69F-C4C22D137585}';
RID_ContratosCliente_DetallesDelta = '{F8984113-BD7D-4FFA-B223-D24FC930C2AB}'; RID_ContratosCliente_DetallesDelta = '{B74A0577-D340-49D9-B145-7D9407B03919}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{EB84C856-C87F-4ED4-A98D-050744E9CCB6}'] ['{4C6DB20B-7CD7-4030-BD89-8AAA22A9CBB8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{409D42DE-E54B-4042-9ACB-004C3568EEBA}'] ['{F5FC8E51-B4DB-46CF-A7AB-8A54CE4C8E15}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{60EBEB72-4CF4-42A9-85DE-817C53EC0473}'] ['{17BC2843-25E2-47F3-AD18-7C7A78284701}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}'] ['{6F425251-01C7-4E7F-A383-9B80DCF50117}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -324,7 +324,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{C0AF8753-5906-4472-8FD1-040299E5C45E}'] ['{C99393C6-A96C-4C04-AE04-35FD4EF00ED2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -374,6 +374,7 @@ type
function GetOldCONDICIONESValue : IROStrings; function GetOldCONDICIONESValue : IROStrings;
function GetOldCALIDADESValue : IROStrings; function GetOldCALIDADESValue : IROStrings;
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -424,6 +425,7 @@ type
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue; property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -725,6 +727,12 @@ type
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -919,6 +927,10 @@ type
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -928,7 +940,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{1C929971-38B4-421A-A50C-D7DE36FA55C0}'] ['{E50EF164-9D6C-4B3D-A69F-C4C22D137585}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1022,7 +1034,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{F8984113-BD7D-4FFA-B223-D24FC930C2AB}'] ['{B74A0577-D340-49D9-B145-7D9407B03919}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -3394,6 +3406,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES];
end;
function TContratosClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES]);
end;
function TContratosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteLISTA_NOMBRES];
end;
function TContratosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteLISTA_NOMBRES]);
end;
procedure TContratosClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

22
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -438,6 +438,10 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'REFERENCIA_CLIENTE' DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -705,6 +709,13 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'REFERENCIA_CLIENTE' Name = 'REFERENCIA_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
end> end>
end end
item item
@ -2109,6 +2120,17 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'ContratosCliente_CONDICIONES' Name = 'ContratosCliente_CONDICIONES'
DataType = datMemo DataType = datMemo
end
item
Name = 'ContratosCliente_REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'ContratosCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

21
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -50,9 +50,8 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Properties.ShowDescriptions = False Properties.ShowDescriptions = False
OnGetCellHint = cxGridViewINCIDENCIASACTIVASGetCellHint OnGetCellHint = cxGridViewINCIDENCIASACTIVASGetCellHint
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 18
Options.HorzSizing = False Width = 18
Width = 22
end end
object cxGridViewINCIDENCIAS: TcxGridDBColumn object cxGridViewINCIDENCIAS: TcxGridDBColumn
DataBinding.FieldName = 'INCIDENCIAS' DataBinding.FieldName = 'INCIDENCIAS'
@ -133,6 +132,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres'
DataBinding.FieldName = 'LISTA_NOMBRES'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
@ -153,27 +156,15 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903 Width = 903
ExplicitWidth = 903 ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 806
Width = 806 Width = 806
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 504 ExplicitWidth = 504
Width = 504 Width = 504

1
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -46,6 +46,7 @@ type
cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewColumn1: TcxGridDBColumn; cxGridViewColumn1: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

6
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -323,6 +323,12 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'TIPO_FACTURA' Name = 'TIPO_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

8
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.dproj
View File

@ -41,11 +41,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<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">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><Excluded_Packages> <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\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
@ -551,4 +547,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection=English TextsCollection=English
EurekaLog Last Line --> EurekaLog Last Line -->

47
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{145AB429-AA3C-428B-862E-44860A53C63D}'; RID_ListaAnosFacturas = '{AC458C56-0773-4661-8AA4-2B189CB69716}';
RID_FacturasCliente = '{FB6656F1-09E4-4105-B0E9-4D9ADE60387B}'; RID_FacturasCliente = '{0F0BF96C-EF73-4658-93A2-63D12D3DCAD2}';
RID_FacturasCliente_Detalles = '{29D7E3D2-87AC-4F64-98AA-E4501188EB6B}'; RID_FacturasCliente_Detalles = '{906608D3-E31F-41F1-AE03-8212770A53CA}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -76,6 +76,7 @@ const
fld_FacturasClienteVENDEDOR = 'VENDEDOR'; fld_FacturasClienteVENDEDOR = 'VENDEDOR';
fld_FacturasClienteSIN_COMISION = 'SIN_COMISION'; fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA'; fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA';
fld_FacturasClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -129,6 +130,7 @@ const
idx_FacturasClienteVENDEDOR = 48; idx_FacturasClienteVENDEDOR = 48;
idx_FacturasClienteSIN_COMISION = 49; idx_FacturasClienteSIN_COMISION = 49;
idx_FacturasClienteTIPO_FACTURA = 50; idx_FacturasClienteTIPO_FACTURA = 50;
idx_FacturasClienteLISTA_NOMBRES = 51;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -165,7 +167,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{9B736788-CB7F-4171-80FB-BB95F35FFF7B}'] ['{06173361-C007-4344-A43F-5AF52B29F8B7}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -200,7 +202,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{B69EA0DD-6019-492A-821A-0EE660AC366C}'] ['{6E9D699F-963B-43BE-B76D-FB72A2674FDA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -405,6 +407,10 @@ type
procedure SetTIPO_FACTURAValue(const aValue: String); procedure SetTIPO_FACTURAValue(const aValue: String);
function GetTIPO_FACTURAIsNull: Boolean; function GetTIPO_FACTURAIsNull: Boolean;
procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); procedure SetTIPO_FACTURAIsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -510,6 +516,8 @@ type
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue; property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull; property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -722,6 +730,10 @@ type
procedure SetTIPO_FACTURAValue(const aValue: String); virtual; procedure SetTIPO_FACTURAValue(const aValue: String); virtual;
function GetTIPO_FACTURAIsNull: Boolean; virtual; function GetTIPO_FACTURAIsNull: Boolean; virtual;
procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -826,6 +838,8 @@ type
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue; property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull; property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -835,7 +849,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{824CB867-0513-46EE-8E49-714506B6D7B0}'] ['{276F9B23-EBA6-457E-AEEF-CEBBF244B602}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2150,6 +2164,27 @@ begin
DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsVariant := Null; DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].AsString;
end;
procedure TFacturasClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

55
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{13B2244C-664D-4276-B52B-B4F0ADD71D74}'; RID_ListaAnosFacturasDelta = '{4F7128B4-BEAB-4EEA-A48D-6F47671DDA6E}';
RID_FacturasClienteDelta = '{A39B6A48-A724-487A-AC10-ED6BF3D502CC}'; RID_FacturasClienteDelta = '{0D72186B-4364-45DB-B4CE-BC95F7C696C3}';
RID_FacturasCliente_DetallesDelta = '{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}'; RID_FacturasCliente_DetallesDelta = '{2BF7FECE-AC21-4D6D-80D0-79E75DBB6727}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{13B2244C-664D-4276-B52B-B4F0ADD71D74}'] ['{4F7128B4-BEAB-4EEA-A48D-6F47671DDA6E}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{A39B6A48-A724-487A-AC10-ED6BF3D502CC}'] ['{0D72186B-4364-45DB-B4CE-BC95F7C696C3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -103,6 +103,7 @@ type
function GetOldVENDEDORValue : String; function GetOldVENDEDORValue : String;
function GetOldSIN_COMISIONValue : SmallInt; function GetOldSIN_COMISIONValue : SmallInt;
function GetOldTIPO_FACTURAValue : String; function GetOldTIPO_FACTURAValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -156,6 +157,7 @@ type
property OldVENDEDOR : String read GetOldVENDEDORValue; property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue; property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue; property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -470,6 +472,12 @@ type
function GetOldTIPO_FACTURAIsNull: Boolean; virtual; function GetOldTIPO_FACTURAIsNull: Boolean; virtual;
procedure SetTIPO_FACTURAValue(const aValue: String); virtual; procedure SetTIPO_FACTURAValue(const aValue: String); virtual;
procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -676,6 +684,10 @@ type
property TIPO_FACTURAIsNull : Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull; property TIPO_FACTURAIsNull : Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue; property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
property OldTIPO_FACTURAIsNull : Boolean read GetOldTIPO_FACTURAIsNull; property OldTIPO_FACTURAIsNull : Boolean read GetOldTIPO_FACTURAIsNull;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -685,7 +697,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}'] ['{2BF7FECE-AC21-4D6D-80D0-79E75DBB6727}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -2521,6 +2533,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES];
end;
function TFacturasClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteLISTA_NOMBRES];
end;
function TFacturasClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteLISTA_NOMBRES]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

48
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -506,10 +506,12 @@ object RptFacturasCliente: TRptFacturasCliente
#39' || extract (year from fecha_factura)'#10'when extract (month from ' + #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, TIPO_FACTURA, ID_CLIENTE' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, TIPO_FACTURA, ID_CLIENTE' +
', NOMBRE, SITUACION, REFERENCIA_CLIENTE, NIF_CIF, FECHA_FACTURA,' + ','#10'v_facturas_cliente.NOMBRE || COALESCE(v_contactos_nombres.otro' +
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, IMPORTE_RE, IMPORTE_TOTAL' + 's_nombres, '#39#39') as NOMBRE,'#10'SITUACION, REFERENCIA_CLIENTE, NIF_CIF' +
#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, REFER' + ', FECHA_FACTURA, BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, IMPORTE_R' +
'ENCIA'#10#10 'E, IMPORTE_TOTAL'#10'from v_facturas_cliente'#10'LEFT OUTER JOIN v_conta' +
'ctos_nombres ON (v_contactos_nombres.id = v_facturas_cliente.id_' +
'cliente)'#10'where {where}'#10'order by ANO, MES, REFERENCIA'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -689,23 +691,25 @@ object RptFacturasCliente: TRptFacturasCliente
'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' + 'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' +
'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' + 'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' + 'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' +
'CTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CL' + 'CTURAS_CLIENTE.NIF_CIF,'#10' V_FACTURAS_CLIENTE.NOMBRE || COALESC' +
'IENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENT' + 'E(v_contactos_nombres.otros_nombres, '#39#39') as NOMBRE,'#10' V_FACTUR' +
'E.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTOS_DAT' + 'AS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_C' +
'OS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACT' + 'LIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTO' +
'OS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTA' + 'S_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CO' +
'CTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF' + 'NTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' ' +
'_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE' + 'CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF a' +
'_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.' + 's NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as ' +
'PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO' + 'CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPR' +
'_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS' + 'ESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as C' +
'.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.RE' + 'ODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMP' +
'GISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT' + 'RESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRES' +
' JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO' + 'AS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE' +
' ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOI' + #10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS' +
'N CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = ' + '_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEF' +
'V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID' + 'T JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTAC' +
#10 'TO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'LEFT OUTER JOIN v_contactos_' +
'nombres ON (v_contactos_nombres.id = V_FACTURAS_CLIENTE.id_clien' +
'te)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1488,7 +1492,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 41304.573816296300000000 ReportOptions.LastChange = 42143.652865393500000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

12
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -519,6 +519,12 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'TIPO_FACTURA' Name = 'TIPO_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_LISTA_NOMBRES'
end> end>
end end
item item
@ -1469,6 +1475,12 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger DataType = datInteger
DisplayLabel = 'ID_CLIENTE' DisplayLabel = 'ID_CLIENTE'
end end
item
Name = 'FacturasCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end
item item
Name = 'FacturasCliente_NIF_CIF' Name = 'FacturasCliente_NIF_CIF'
DataType = datString DataType = datString

16
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -165,6 +165,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataBinding.FieldName = 'VENDEDOR' DataBinding.FieldName = 'VENDEDOR'
Visible = False Visible = False
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres'
DataBinding.FieldName = 'LISTA_NOMBRES'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'
@ -188,27 +192,15 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 802 Width = 802
ExplicitWidth = 802 ExplicitWidth = 802
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 144 ExplicitWidth = 144
Width = 144 Width = 144
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 367 Left = 367
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 367 ExplicitLeft = 367
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273

1
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -64,6 +64,7 @@ type
cxGridViewREF_CONTRATO: TcxGridDBColumn; cxGridViewREF_CONTRATO: TcxGridDBColumn;
cxGridViewTIPO_FACTURA: TcxGridDBColumn; cxGridViewTIPO_FACTURA: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

6
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -297,6 +297,12 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'REFERENCIA_CLIENTE' Name = 'REFERENCIA_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

59
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{A5753DD4-D84A-4351-BC29-3B338F55A041}'; RID_Valores = '{69845B8B-862E-4186-A539-0491EC6224F3}';
RID_Propiedades = '{BEA5D369-3FF6-476F-BB9C-AFCE9DA1B2B6}'; RID_Propiedades = '{895EC925-C718-4589-BD6E-3B98E68C7469}';
RID_ListaAnosPresupuestos = '{972E7C8B-FF56-4A25-885A-1154815BC103}'; RID_ListaAnosPresupuestos = '{4258D9C8-6F6E-4C32-B278-7DDE0FCE6843}';
RID_PresupuestosCliente = '{B8A5C581-F50A-4023-90F7-8BD62CF17C4B}'; RID_PresupuestosCliente = '{52ACB41F-F244-4D13-9769-9202F76311C0}';
RID_CapitulosPresupuesto = '{2EA00EAB-E78D-4D2B-88CF-61560814222A}'; RID_CapitulosPresupuesto = '{A1E223AB-6F46-437F-B40F-7CCF8AD46DEA}';
RID_PresupuestosCliente_Detalles = '{F838D06B-B2D9-4CD6-9B17-F07D762C23FC}'; RID_PresupuestosCliente_Detalles = '{BFF68D7B-A862-4E85-AA60-7BD45944AEC5}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -100,6 +100,7 @@ const
fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO'; fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
fld_PresupuestosClienteCALIDADES = 'CALIDADES'; fld_PresupuestosClienteCALIDADES = 'CALIDADES';
fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_PresupuestosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ PresupuestosCliente field indexes } { PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0; idx_PresupuestosClienteID = 0;
@ -145,6 +146,7 @@ const
idx_PresupuestosClienteTIPO_PRESUPUESTO = 40; idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
idx_PresupuestosClienteCALIDADES = 41; idx_PresupuestosClienteCALIDADES = 41;
idx_PresupuestosClienteREFERENCIA_CLIENTE = 42; idx_PresupuestosClienteREFERENCIA_CLIENTE = 42;
idx_PresupuestosClienteLISTA_NOMBRES = 43;
{ CapitulosPresupuesto fields } { CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID'; fld_CapitulosPresupuestoID = 'ID';
@ -213,7 +215,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{C68B5E3B-7C25-40DB-BA71-461534ED307A}'] ['{4A86E969-6E16-450C-A82B-D645B8E298C4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -320,7 +322,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{8D007D9A-95CD-48ED-B0FB-32C5632D2DCB}'] ['{B33EF001-F0B3-4377-A019-646EB05608B0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -367,7 +369,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{651D3400-6969-4005-8674-F7E5937D797D}'] ['{4F552890-7869-406F-B323-DDC2C6BBAABD}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -402,7 +404,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{17B40030-2811-48A3-BDB0-91B68C2109FC}'] ['{302CF5F9-CA89-4181-9EE0-29CE9C739B7E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -571,6 +573,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean; function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -660,6 +666,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
end; end;
{ TPresupuestosClienteDataTableRules } { TPresupuestosClienteDataTableRules }
@ -844,6 +852,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -932,6 +944,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -941,7 +955,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{F3216D59-B6FF-4EEB-9E6A-9AC425472CD5}'] ['{1D0F3A1A-E5C1-487E-8EF0-0496F49E0D34}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1096,7 +1110,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{6ABABBED-D539-4A65-A815-551502FCB5ED}'] ['{ECFB879A-6B6E-4125-A97B-14BA365AFB4E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2512,6 +2526,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null;
end; end;
function TPresupuestosClienteDataTableRules.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].AsString;
end;
procedure TPresupuestosClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].AsString := aValue;
end;
function TPresupuestosClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].AsVariant := Null;
end;
{ TCapitulosPresupuestoDataTableRules } { TCapitulosPresupuestoDataTableRules }
constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable); constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);

67
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}'; RID_ValoresDelta = '{687FCBCD-2F9D-4E98-8515-FD5E9FCEE32A}';
RID_PropiedadesDelta = '{A051A8E9-5AAA-434A-BF25-B8A8903781B1}'; RID_PropiedadesDelta = '{784A3DDA-A3AF-49BB-A49C-7EEF41AA4565}';
RID_ListaAnosPresupuestosDelta = '{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}'; RID_ListaAnosPresupuestosDelta = '{881F141B-82C6-448C-80E9-D26A157B293A}';
RID_PresupuestosClienteDelta = '{F86AA970-F689-43EE-95B7-E9C5294A5DE3}'; RID_PresupuestosClienteDelta = '{C5E20CDB-A1E1-42F8-B46F-25C93C4957F6}';
RID_CapitulosPresupuestoDelta = '{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}'; RID_CapitulosPresupuestoDelta = '{17439B2D-6084-4A58-8AB1-6437324028C0}';
RID_PresupuestosCliente_DetallesDelta = '{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}'; RID_PresupuestosCliente_DetallesDelta = '{D011385B-63AE-4484-AF6A-DE0CA4F3E913}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}'] ['{687FCBCD-2F9D-4E98-8515-FD5E9FCEE32A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -125,7 +125,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{A051A8E9-5AAA-434A-BF25-B8A8903781B1}'] ['{784A3DDA-A3AF-49BB-A49C-7EEF41AA4565}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -171,7 +171,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}'] ['{881F141B-82C6-448C-80E9-D26A157B293A}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -205,7 +205,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{F86AA970-F689-43EE-95B7-E9C5294A5DE3}'] ['{C5E20CDB-A1E1-42F8-B46F-25C93C4957F6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -250,6 +250,7 @@ type
function GetOldTIPO_PRESUPUESTOValue : String; function GetOldTIPO_PRESUPUESTOValue : String;
function GetOldCALIDADESValue : IROStrings; function GetOldCALIDADESValue : IROStrings;
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -295,6 +296,7 @@ type
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end; end;
{ TPresupuestosClienteBusinessProcessorRules } { TPresupuestosClienteBusinessProcessorRules }
@ -565,6 +567,12 @@ type
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -739,6 +747,10 @@ type
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -748,7 +760,7 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}'] ['{17439B2D-6084-4A58-8AB1-6437324028C0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -902,7 +914,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}'] ['{D011385B-63AE-4484-AF6A-DE0CA4F3E913}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -2853,6 +2865,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null;
end; end;
function TPresupuestosClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES];
end;
function TPresupuestosClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteLISTA_NOMBRES];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteLISTA_NOMBRES]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES] := Null;
end;
{ TCapitulosPresupuestoBusinessProcessorRules } { TCapitulosPresupuestoBusinessProcessorRules }
constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

20
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -338,6 +338,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
DatasetField = 'REFERENCIA_CLIENTE' DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end> end>
end> end>
Name = 'PresupuestosCliente' Name = 'PresupuestosCliente'
@ -565,12 +569,20 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'CALIDADES' Name = 'CALIDADES'
DataType = datMemo DataType = datMemo
DisplayLabel = 'Calidades' BlobType = dabtBlob
DictionaryEntry = 'PresupuestosCliente_CALIDADES'
end end
item item
Name = 'REFERENCIA_CLIENTE' Name = 'REFERENCIA_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'PresupuestosCliente_LISTA_NOMBRES'
end> end>
end end
item item
@ -2144,6 +2156,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'PresupuestosCliente_NO_VALORADO' Name = 'PresupuestosCliente_NO_VALORADO'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'PresupuestosCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

6
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -124,6 +124,12 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 63 Width = 63
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres'
DataBinding.FieldName = 'LISTA_NOMBRES'
BestFitMaxWidth = 65
Width = 65
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'

1
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -47,6 +47,7 @@ type
cxStyleRECHAZADO: TcxStyle; cxStyleRECHAZADO: TcxStyle;
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxGridViewColumn1: TcxGridDBColumn; cxGridViewColumn1: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

7
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -382,6 +382,13 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_TIENDA' DictionaryEntry = 'RecibosCliente_TIENDA'
end end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
ServerAutoRefresh = True
end
item item
Name = 'CUENTA_CONTABLE' Name = 'CUENTA_CONTABLE'
DataType = datString DataType = datString

53
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{83EE4B73-468E-4522-9045-EB32E8876743}'; RID_ListaAnosRecibos = '{AE89E2C7-E725-49D7-923C-C31DB52289BC}';
RID_RecibosCliente = '{5A7D52CC-AC14-459B-8FFC-2EBB710C20FA}'; RID_RecibosCliente = '{EA2A5415-CD57-4A6D-B0ED-02C852CDF365}';
RID_PagosCliente = '{BA9CFF7F-552C-47D4-BB2C-75A68BB06A1C}'; RID_PagosCliente = '{91E0EB25-0D8D-49CC-BEE9-DDB4DC953232}';
RID_RecibosCompensadosCli = '{A1FB671D-EA16-4357-92F7-2C9F7D2C4433}'; RID_RecibosCompensadosCli = '{8418F37E-CDF2-49D4-8EA6-458D5619E4D4}';
{ Data table names } { Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos'; nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -63,6 +63,7 @@ const
fld_RecibosClienteUSUARIO = 'USUARIO'; fld_RecibosClienteUSUARIO = 'USUARIO';
fld_RecibosClienteID_TIENDA = 'ID_TIENDA'; fld_RecibosClienteID_TIENDA = 'ID_TIENDA';
fld_RecibosClienteTIENDA = 'TIENDA'; fld_RecibosClienteTIENDA = 'TIENDA';
fld_RecibosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE'; fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE';
{ RecibosCliente field indexes } { RecibosCliente field indexes }
@ -102,7 +103,8 @@ const
idx_RecibosClienteUSUARIO = 33; idx_RecibosClienteUSUARIO = 33;
idx_RecibosClienteID_TIENDA = 34; idx_RecibosClienteID_TIENDA = 34;
idx_RecibosClienteTIENDA = 35; idx_RecibosClienteTIENDA = 35;
idx_RecibosClienteCUENTA_CONTABLE = 36; idx_RecibosClienteLISTA_NOMBRES = 36;
idx_RecibosClienteCUENTA_CONTABLE = 37;
{ PagosCliente fields } { PagosCliente fields }
fld_PagosClienteID = 'ID'; fld_PagosClienteID = 'ID';
@ -223,7 +225,7 @@ const
type type
{ IListaAnosRecibos } { IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable) IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{79193CD1-BBC0-4BEE-9525-6395209D7766}'] ['{FAC8D465-4E19-43A8-B172-67E80A7D2D39}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -258,7 +260,7 @@ type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{E8C9C142-DC49-4341-8819-3FC9FFB74C3C}'] ['{68685DBB-DED5-49DD-8E6F-844F238408B8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -404,6 +406,10 @@ type
procedure SetTIENDAValue(const aValue: String); procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean; function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean); procedure SetTIENDAIsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
function GetCUENTA_CONTABLEValue: String; function GetCUENTA_CONTABLEValue: String;
procedure SetCUENTA_CONTABLEValue(const aValue: String); procedure SetCUENTA_CONTABLEValue(const aValue: String);
function GetCUENTA_CONTABLEIsNull: Boolean; function GetCUENTA_CONTABLEIsNull: Boolean;
@ -483,6 +489,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
end; end;
@ -636,6 +644,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual; function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CONTABLEValue: String; virtual; function GetCUENTA_CONTABLEValue: String; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual; procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual; function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
@ -714,6 +726,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
@ -725,7 +739,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{B0DE3F8D-7057-49AC-91D0-719C2C24E338}'] ['{CFF8F00A-377F-4D2C-A75E-4B5E8B17F6F5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -964,7 +978,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{AC077764-D35C-477D-8FD8-2F68644F812C}'] ['{241530CF-F60C-48CC-838B-F3F34C69347C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2221,6 +2235,27 @@ begin
DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null; DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].AsString;
end;
procedure TRecibosClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].AsString := aValue;
end;
function TRecibosClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].IsNull;
end;
procedure TRecibosClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].AsVariant := Null;
end;
function TRecibosClienteDataTableRules.GetCUENTA_CONTABLEValue: String; function TRecibosClienteDataTableRules.GetCUENTA_CONTABLEValue: String;
begin begin
result := DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsString; result := DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsString;

59
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{0101D983-84D7-4B01-B359-32BE7D3A9CBE}'; RID_ListaAnosRecibosDelta = '{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}';
RID_RecibosClienteDelta = '{3A483FF6-4CAD-45BC-9638-78C3A876344F}'; RID_RecibosClienteDelta = '{7241C382-E1CC-4FC6-A769-0EBA50663E8D}';
RID_PagosClienteDelta = '{0BE77245-6A46-42CA-A074-48D3C835D089}'; RID_PagosClienteDelta = '{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}';
RID_RecibosCompensadosCliDelta = '{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}'; RID_RecibosCompensadosCliDelta = '{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}';
type type
{ IListaAnosRecibosDelta } { IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos) IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{0101D983-84D7-4B01-B359-32BE7D3A9CBE}'] ['{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{3A483FF6-4CAD-45BC-9638-78C3A876344F}'] ['{7241C382-E1CC-4FC6-A769-0EBA50663E8D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -89,6 +89,7 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String;
function GetOldCUENTA_CONTABLEValue : String; function GetOldCUENTA_CONTABLEValue : String;
{ Properties } { Properties }
@ -128,6 +129,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
end; end;
@ -352,6 +354,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual; function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CONTABLEValue: String; virtual; function GetCUENTA_CONTABLEValue: String; virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual; function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
function GetOldCUENTA_CONTABLEValue: String; virtual; function GetOldCUENTA_CONTABLEValue: String; virtual;
@ -504,6 +512,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
property CUENTA_CONTABLE : String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLE : String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
@ -517,7 +529,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{0BE77245-6A46-42CA-A074-48D3C835D089}'] ['{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -755,7 +767,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}'] ['{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -2382,6 +2394,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES];
end;
function TRecibosClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteLISTA_NOMBRES];
end;
function TRecibosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteLISTA_NOMBRES]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CONTABLEValue: String; function TRecibosClienteBusinessProcessorRules.GetCUENTA_CONTABLEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE];

81
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -48,13 +48,32 @@ object srvRecibosCliente: TsrvRecibosCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE' TargetTable = 'V_RECIBOS_CLIENTE'
SQL = SQL =
'select v_recibos_cliente.*, cont_subcuentas.descripcion as CUENT' + 'select v_recibos_cliente.ID, v_recibos_cliente.ID_RECIBO_COMPENS' +
'A_CONTABLE'#10'from v_recibos_cliente'#10' left outer join pagos_clie' + 'ADO, v_recibos_cliente.REFERENCIA_REC_COMPENSADO,'#10' v_recibos_' +
'nte pag on'#10' (pag.id_recibo = v_recibos_cliente.id)'#10' le' + 'cliente.REFERENCIA, v_recibos_cliente.SITUACION, v_recibos_clien' +
'ft outer join pagos_cliente pag2 on'#10' ((pag2.id_recibo = p' + 'te.ID_FACTURA, v_recibos_cliente.FECHA_FACTURA, v_recibos_client' +
'ag.id_recibo) and (pag2.id > pag.id))'#10' left outer join cont_s' + 'e.FORMA_PAGO_FACTURA,'#10' v_recibos_cliente.IMPORTE_FACTURA, v_r' +
'ubcuentas on'#10' (cont_subcuentas.id = pag.cuenta)'#10'where (pa' + 'ecibos_cliente.ID_REMESA, v_recibos_cliente.REFERENCIA_REMESA, v' +
'g2.id is null) and {Where}'#10 '_recibos_cliente.FECHA_EMISION,'#10' v_recibos_cliente.FECHA_VENC' +
'IMIENTO, v_recibos_cliente.DESCRIPCION, v_recibos_cliente.OBSERV' +
'ACIONES, v_recibos_cliente.IMPORTE,'#10' v_recibos_cliente.OTROS_' +
'GASTOS, v_recibos_cliente.IMPORTE_TOTAL, v_recibos_cliente.ID_EM' +
'PRESA, v_recibos_cliente.ID_CLIENTE,'#10' v_recibos_cliente.NOMBR' +
'E_CLIENTE, v_recibos_cliente.ENTIDAD_CLIENTE, v_recibos_cliente.' +
'SUCURSAL_CLIENTE,'#10' v_recibos_cliente.DC_CLIENTE, v_recibos_cl' +
'iente.CUENTA_CLIENTE, v_recibos_cliente.NIF_CIF, v_recibos_clien' +
'te.NOMBRE, v_recibos_cliente.CALLE,'#10' v_recibos_cliente.POBLAC' +
'ION, v_recibos_cliente.CODIGO_POSTAL, v_recibos_cliente.PROVINCI' +
'A, v_recibos_cliente.FECHA_ALTA, v_recibos_cliente.FECHA_MODIFIC' +
'ACION, v_recibos_cliente.USUARIO,'#10' v_recibos_cliente.ID_TIEND' +
'A, v_recibos_cliente.TIENDA, v_recibos_cliente.LISTA_NOMBRES,'#10' ' +
' cont_subcuentas.descripcion as CUENTA_CONTABLE'#10'from v_recibos_' +
'cliente'#10' left outer join pagos_cliente pag on'#10' (pag.id' +
'_recibo = v_recibos_cliente.id)'#10' left outer join pagos_client' +
'e pag2 on'#10' ((pag2.id_recibo = pag.id_recibo) and (pag2.id' +
' > pag.id))'#10' left outer join cont_subcuentas on'#10' (cont' +
'_subcuentas.id = pag.cuenta)'#10'where (pag2.id is null) and {Where}' +
#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -157,18 +176,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'CUENTA_CLIENTE' DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE'
end end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item item
DatasetField = 'ID_TIENDA' DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA' TableField = 'ID_TIENDA'
@ -205,6 +212,22 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'CUENTA_CONTABLE' DatasetField = 'CUENTA_CONTABLE'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'CUENTA_CONTABLE' SQLOrigin = 'CUENTA_CONTABLE'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end> end>
end> end>
Name = 'RecibosCliente' Name = 'RecibosCliente'
@ -415,11 +438,17 @@ object srvRecibosCliente: TsrvRecibosCliente
Size = 255 Size = 255
DictionaryEntry = 'RecibosCliente_TIENDA' DictionaryEntry = 'RecibosCliente_TIENDA'
end end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_LISTA_NOMBRES'
end
item item
Name = 'CUENTA_CONTABLE' Name = 'CUENTA_CONTABLE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Cuenta contable' DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE'
end> end>
end end
item item
@ -1741,6 +1770,18 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'LISTA_NOMBRES'
end
item
Name = 'RecibosCliente_CUENTA_CONTABLE'
DataType = datString
Size = 255
DisplayLabel = 'Cuenta contable'
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

16
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -195,6 +195,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
DataBinding.FieldName = 'CODIGO_POSTAL' DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False Visible = False
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres'
DataBinding.FieldName = 'LISTA_NOMBRES'
end
object cxGridViewCUENTA_CONTABLE: TcxGridDBColumn object cxGridViewCUENTA_CONTABLE: TcxGridDBColumn
Caption = 'Cuenta contable' Caption = 'Cuenta contable'
DataBinding.FieldName = 'CUENTA_CONTABLE' DataBinding.FieldName = 'CUENTA_CONTABLE'
@ -223,27 +227,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Width = 686 Width = 686
ExplicitWidth = 686 ExplicitWidth = 686
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 183 ExplicitWidth = 183
Width = 183 Width = 183
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 367 Left = 367
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 367 ExplicitLeft = 367
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234

1
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -58,6 +58,7 @@ type
cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewCUENTA_CONTABLE: TcxGridDBColumn; cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

14
Source/Servidor/FactuGES_Server.dpr
View File

@ -115,20 +115,14 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas', schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
@ -138,7 +132,13 @@ uses
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

596
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,298 +1,306 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <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">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.0.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.8.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de noviembre de 2016 12:55</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <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">8</VersionInfo><VersionInfo Name="Release">2</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.8.2.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.8.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 06 de febrero de 2017 19:05</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</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"/> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/> </ProjectExtensions>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<Form>srvEjercicios</Form> <ItemGroup>
<DesignClass>TDataAbstractService</DesignClass> <DelphiCompile Include="FactuGES_Server.dpr">
</DCCReference> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
</DCCReference> <Form>srvEjercicios</Form>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvProvinciasPoblaciones</Form> </DCCReference>
<DesignClass>TRORemoteDataModule</DesignClass> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Base\schBase_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <Form>srvProvinciasPoblaciones</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DesignClass>TRORemoteDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
</DCCReference> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
</DCCReference> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>RptComisiones</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<Form>srvComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/> <Form>RptComisiones</Form>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> </DCCReference>
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvComisiones</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/> <Form>srvContabilidad</Form>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>RptListadosContactos</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/> <Form>RptListadosContactos</Form>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas"> </DCCReference>
<Form>RptContratosCliente</Form> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
</DCCReference> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvContratosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <Form>RptContratosCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> </DCCReference>
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<DesignClass>TDataModule</DesignClass> <Form>srvContratosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> </DCCReference>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <Form>RptFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> </DCCReference>
<Form>RptFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DesignClass>TDataModule</DesignClass> <Form>srvFacturasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> </DCCReference>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <Form>RptFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvGestorDocumentos</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<Form>srvGestorInformes</Form> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <Form>srvGestorDocumentos</Form>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvHistoricoMovimientos</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
</DCCReference> <Form>srvGestorInformes</Form>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
</DCCReference> <Form>srvHistoricoMovimientos</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<Form>RptPedidosProveedor</Form> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DesignClass>TDataModule</DesignClass> <Form>srvInventario</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> </DCCReference>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <Form>RptPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> </DCCReference>
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
</DCCReference> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvPresupuestosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>RptRecibosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <Form>RptRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>RptRecibosProveedor</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <Form>RptRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvReferencias</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
</DCCReference> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <Form>srvRemesasProveedor</Form>
<Form>srvUnidadesMedida</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
</DCCReference> <Form>srvUnidadesMedida</Form>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>frConexionBD</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>frConfGeneral</Form> <Form>srvConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>fConfiguracion</Form> <Form>frConexionBD</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>FrameConfiguracion</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>srvLogin</Form> <Form>fConfiguracion</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>fAcercaDe</Form> <Form>FrameConfiguracion</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="srvLogin_Impl.pas">
<DesignClass>TDataModule</DesignClass> <Form>srvLogin</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="Utiles\RegExpr.pas"/> </DCCReference>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <Form>dmServer</Form>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> </DCCReference>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <Form>fServerForm</Form>
<DCCReference Include="Utiles\uSesionesUtils.pas"/> </DCCReference>
</ItemGroup> <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> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,8,0,0 FILEVERSION 2,8,2,0
PRODUCTVERSION 2,8,0,0 PRODUCTVERSION 2,8,2,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.8.0.0\0" VALUE "FileVersion", "2.8.2.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.8.0.0\0" VALUE "ProductVersion", "2.8.2.0\0"
VALUE "CompileDate", "jueves, 10 de noviembre de 2016 15:18\0" VALUE "CompileDate", "lunes, 06 de febrero de 2017 19:05\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.