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>
<![CDATA[]]>
</Notes>
<LastBuildRun>00:00:03</LastBuildRun>
<LastBuildStart>12/09/2016 11:17:57</LastBuildStart>
<LastBuildState>False</LastBuildState>
<LastBuildRun>00:02:57</LastBuildRun>
<LastBuildStart>06/02/2017 18:43:48</LastBuildStart>
<LastBuildState>True</LastBuildState>
</properties>
</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_RECEPCION,
ID_TIENDA,
TIENDA)
TIENDA,
LISTA_NOMBRES)
AS
SELECT
ALBARANES_CLIENTE.ID,
@ -1853,7 +1854,8 @@ SELECT
ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION,
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
ALBARANES_CLIENTE
@ -1864,6 +1866,7 @@ FROM
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 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,
CONDICIONES,
CALIDADES,
REFERENCIA_CLIENTE)
REFERENCIA_CLIENTE,
LISTA_NOMBRES)
AS
SELECT CONTRATOS_CLIENTE.ID,
/* CONTRATOS_CLIENTE.ID_EMPRESA,*/
@ -2656,7 +2660,8 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.TIPO_CONTRATO,
CONTRATOS_CLIENTE.CONDICIONES,
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
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)
INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE)
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 */
@ -2903,8 +2910,10 @@ CREATE VIEW V_FACTURAS_CLIENTE(
ASIENTO_PUNTEADO,
ID_CONTRATO,
REF_CONTRATO,
VENDEDOR,
SIN_COMISION,
TIPO_FACTURA)
TIPO_FACTURA,
LISTA_NOMBRES)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@ -2954,8 +2963,10 @@ SELECT FACTURAS_CLIENTE.ID,
V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO,
FACTURAS_CLIENTE.ID_CONTRATO,
CONTRATOS_CLIENTE.REFERENCIA,
VENDEDORES.NOMBRE as VENDEDOR,
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
LEFT JOIN FACTURAS_CLIENTE
@ -2967,6 +2978,8 @@ SELECT FACTURAS_CLIENTE.ID,
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 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,
TIPO_PRESUPUESTO,
CALIDADES,
REFERENCIA_CLIENTE)
REFERENCIA_CLIENTE,
LISTA_NOMBRES)
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
@ -3997,7 +4011,8 @@ SELECT
PRESUPUESTOS_CLIENTE.NO_VALORADO,
PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.CALIDADES,
PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE
PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE,
TRIM(leading ', ' from V_CONTACTOS_NOMBRES.OTROS_NOMBRES) as LISTA_NOMBRES
FROM
PRESUPUESTOS_CLIENTE
@ -4006,8 +4021,12 @@ FROM
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 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 */
CREATE VIEW V_PROVEEDORES(
ID,
@ -4168,7 +4187,8 @@ CREATE VIEW V_RECIBOS_CLIENTE(
FECHA_MODIFICACION,
USUARIO,
ID_TIENDA,
TIENDA)
TIENDA,
LISTA_NOMBRES)
AS
SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@ -4204,7 +4224,8 @@ SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO,
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
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)
LEFT JOIN TIENDAS
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">
<MainSource>MainSource</MainSource>
</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="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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

3
Source/Cliente/FactuGES.dproj
View File

@ -52,8 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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><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"
1 VERSIONINFO
FILEVERSION 2,8,0,0
PRODUCTVERSION 2,8,0,0
FILEVERSION 2,8,2,0
PRODUCTVERSION 2,8,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.8.0.0\0"
VALUE "ProductVersion", "2.8.2.0\0"
END
END
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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

9
Source/GUIBase/uViewGrid.dfm
View File

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

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

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

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

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{7EB3AC27-59E8-42B4-ADA3-CE4D9CAEB13C}';
RID_AlbaranesCliente = '{D2DA1D56-1646-4F90-8DE9-D4B5FFE8B553}';
RID_AlbaranesCliente_Detalles = '{BBD1F7AA-F56C-43AE-A7C7-0F58965BDF4A}';
RID_ListaAnosAlbaranes = '{3BF46A2A-B09F-4966-80AC-36B91AB3F410}';
RID_AlbaranesCliente = '{37A96813-FF20-4C48-8043-08624BDF1EEC}';
RID_AlbaranesCliente_Detalles = '{7A054D7B-816E-40D3-8810-00601F96937D}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -71,6 +71,7 @@ const
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
fld_AlbaranesClienteTIENDA = 'TIENDA';
fld_AlbaranesClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID_CONTRATO = 0;
@ -119,6 +120,7 @@ const
idx_AlbaranesClienteFECHA_RECEPCION = 43;
idx_AlbaranesClienteID_TIENDA = 44;
idx_AlbaranesClienteTIENDA = 45;
idx_AlbaranesClienteLISTA_NOMBRES = 46;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@ -155,7 +157,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{203EE597-D0C7-4604-A953-891F0E3D98FF}']
['{0C7CD8C2-CB8B-4224-863B-760D2E239D64}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -190,7 +192,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{D6D78EF6-CA78-4ED9-B294-D1D466E1726B}']
['{D3E1233E-BD17-40E1-B5B2-C8241F7BFF04}']
{ Property getters and setters }
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
@ -374,6 +376,10 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: 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 }
@ -469,6 +475,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
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;
{ TAlbaranesClienteDataTableRules }
@ -662,6 +670,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: 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 }
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 TIENDA: String read GetTIENDAValue write SetTIENDAValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -765,7 +779,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{020AD67D-D6F1-4E13-962A-E7B9FE5F4C5E}']
['{A6C61208-F037-4EFA-BBBF-1DBC79AF7C44}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1980,6 +1994,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteTIENDA].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{B498D9C0-EE0A-46DA-A371-702D825BDB3A}';
RID_AlbaranesClienteDelta = '{D704D54E-00E5-4A35-B737-A915BB515300}';
RID_AlbaranesCliente_DetallesDelta = '{999E4300-FF31-4EA7-B81E-287E2000B1BD}';
RID_ListaAnosAlbaranesDelta = '{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}';
RID_AlbaranesClienteDelta = '{2EAD0C36-219E-47BB-8D37-78BD32D11744}';
RID_AlbaranesCliente_DetallesDelta = '{2ACFBDE5-B171-408C-A739-A72B52566077}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{B498D9C0-EE0A-46DA-A371-702D825BDB3A}']
['{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{D704D54E-00E5-4A35-B737-A915BB515300}']
['{2EAD0C36-219E-47BB-8D37-78BD32D11744}']
{ Property getters and setters }
function GetOldID_CONTRATOValue : Integer;
function GetOldIDValue : Integer;
@ -98,6 +98,7 @@ type
function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties }
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
@ -146,6 +147,7 @@ type
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@ -431,6 +433,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); 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 }
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
@ -617,6 +625,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -626,7 +638,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{999E4300-FF31-4EA7-B81E-287E2000B1BD}']
['{2ACFBDE5-B171-408C-A739-A72B52566077}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -2313,6 +2325,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIENDA] := Null;
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 }
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
DatasetField = 'REF_CONTRATO'
TableField = 'REF_CONTRATO'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end>
end>
Name = 'AlbaranesCliente'
@ -494,6 +498,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_TIENDA'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
end>
end
item
@ -1731,6 +1741,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
Name = 'AlbaranesCliente_ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'AlbaranesCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end>
Left = 48
Top = 136

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

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

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

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

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

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

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

@ -43,6 +43,8 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\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><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -52,23 +54,23 @@
<DelphiCompile Include="ContratosCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.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\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="adortl.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleContratosCliente.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="schContratosClienteServer_Intf.pas" />
<DCCReference Include="uBizContratosCliente.pas" />
<DCCReference Include="uBizDetallesContratoCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -9,13 +9,13 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{DB288B62-3376-4EA8-A16B-92FABB15E1A7}';
RID_Propiedades = '{3F49C9C0-A176-4268-BBE1-2F3A6ED0AF94}';
RID_ListaAnosContratos = '{88182026-223D-438E-92E0-EA01835AF503}';
RID_ContratosClienteBeneficios = '{F521EB65-8167-449B-BF50-EA1CB017F919}';
RID_ContratosCliente = '{1EE07E71-6530-4136-9372-8A62ABB4C53E}';
RID_TiposCapitulos = '{A686096C-3DDA-428A-8717-B490FBF9D421}';
RID_ContratosCliente_Detalles = '{A466E6CC-EAD0-4A56-B5A1-75AD4BCAD0EA}';
RID_Valores = '{70561B10-CF0E-4CB0-9EDE-9E07CA3DC825}';
RID_Propiedades = '{42795964-B53A-4ABC-8C07-3AAF06D510F2}';
RID_ListaAnosContratos = '{3C8A3C5F-0BF7-4ED2-A43F-09AB91F800DD}';
RID_ContratosClienteBeneficios = '{298384FF-93DD-400F-99FF-6F94B609A8F3}';
RID_ContratosCliente = '{599407C8-CB47-4921-A309-EA98160811DB}';
RID_TiposCapitulos = '{9AEF97F4-6F51-4965-847A-2AE04F02AF26}';
RID_ContratosCliente_Detalles = '{F3C415E0-E714-4252-82B0-A62CD86B7ED8}';
{ Data table names }
nme_Valores = 'Valores';
@ -127,6 +127,7 @@ const
fld_ContratosClienteCONDICIONES = 'CONDICIONES';
fld_ContratosClienteCALIDADES = 'CALIDADES';
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -177,6 +178,7 @@ const
idx_ContratosClienteCONDICIONES = 45;
idx_ContratosClienteCALIDADES = 46;
idx_ContratosClienteREFERENCIA_CLIENTE = 47;
idx_ContratosClienteLISTA_NOMBRES = 48;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -235,7 +237,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{47E1BDF6-B0A2-4419-BEB6-0DF205C5F64C}']
['{2620E76F-9DE4-4A08-9B01-F4FDC10BE790}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -294,7 +296,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{5C51DAC7-B80E-4A79-9BAA-005E517E5A9D}']
['{9C04A9FE-841E-4326-AE5F-88AFA615E660}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -353,7 +355,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{83AF2CBF-AA2F-45F6-AD84-C87BAC7B6695}']
['{8DF60C08-E50F-4823-9294-DB2BD0124094}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -388,7 +390,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{04BD7FD9-0F85-4F94-B8D4-8CCBB1C4D7DA}']
['{613D5F73-5101-403F-B998-0FCE68876699}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -543,7 +545,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{8462E438-53BE-4ED9-8C10-AB5CDDAACA1A}']
['{01B1FEF2-2A92-4080-8AA6-D0668432174B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -731,6 +733,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: 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 }
@ -830,6 +836,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
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;
{ TContratosClienteDataTableRules }
@ -1035,6 +1043,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -1133,6 +1145,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -1145,7 +1159,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{3BA1C9A1-DD78-47B3-B1DE-F671F7B2B0C8}']
['{F69A1386-D2A9-4D05-82A9-F050398B2E40}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1240,7 +1254,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{EA171C1D-256C-44C8-AA5E-727819A510D5}']
['{E34606BE-1525-42AA-85DF-2F29600C6B53}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2946,6 +2960,27 @@ begin
DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{EB84C856-C87F-4ED4-A98D-050744E9CCB6}';
RID_PropiedadesDelta = '{409D42DE-E54B-4042-9ACB-004C3568EEBA}';
RID_ListaAnosContratosDelta = '{60EBEB72-4CF4-42A9-85DE-817C53EC0473}';
RID_ContratosClienteBeneficiosDelta = '{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}';
RID_ContratosClienteDelta = '{C0AF8753-5906-4472-8FD1-040299E5C45E}';
RID_TiposCapitulosDelta = '{1C929971-38B4-421A-A50C-D7DE36FA55C0}';
RID_ContratosCliente_DetallesDelta = '{F8984113-BD7D-4FFA-B223-D24FC930C2AB}';
RID_ValoresDelta = '{4C6DB20B-7CD7-4030-BD89-8AAA22A9CBB8}';
RID_PropiedadesDelta = '{F5FC8E51-B4DB-46CF-A7AB-8A54CE4C8E15}';
RID_ListaAnosContratosDelta = '{17BC2843-25E2-47F3-AD18-7C7A78284701}';
RID_ContratosClienteBeneficiosDelta = '{6F425251-01C7-4E7F-A383-9B80DCF50117}';
RID_ContratosClienteDelta = '{C99393C6-A96C-4C04-AE04-35FD4EF00ED2}';
RID_TiposCapitulosDelta = '{E50EF164-9D6C-4B3D-A69F-C4C22D137585}';
RID_ContratosCliente_DetallesDelta = '{B74A0577-D340-49D9-B145-7D9407B03919}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{EB84C856-C87F-4ED4-A98D-050744E9CCB6}']
['{4C6DB20B-7CD7-4030-BD89-8AAA22A9CBB8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{409D42DE-E54B-4042-9ACB-004C3568EEBA}']
['{F5FC8E51-B4DB-46CF-A7AB-8A54CE4C8E15}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{60EBEB72-4CF4-42A9-85DE-817C53EC0473}']
['{17BC2843-25E2-47F3-AD18-7C7A78284701}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}']
['{6F425251-01C7-4E7F-A383-9B80DCF50117}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -324,7 +324,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{C0AF8753-5906-4472-8FD1-040299E5C45E}']
['{C99393C6-A96C-4C04-AE04-35FD4EF00ED2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -374,6 +374,7 @@ type
function GetOldCONDICIONESValue : IROStrings;
function GetOldCALIDADESValue : IROStrings;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -424,6 +425,7 @@ type
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end;
{ TContratosClienteBusinessProcessorRules }
@ -725,6 +727,12 @@ type
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -919,6 +927,10 @@ type
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -928,7 +940,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{1C929971-38B4-421A-A50C-D7DE36FA55C0}']
['{E50EF164-9D6C-4B3D-A69F-C4C22D137585}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1022,7 +1034,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{F8984113-BD7D-4FFA-B223-D24FC930C2AB}']
['{B74A0577-D340-49D9-B145-7D9407B03919}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -3394,6 +3406,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null;
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 }
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
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end>
end>
Name = 'ContratosCliente'
@ -705,6 +709,13 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
end>
end
item
@ -2109,6 +2120,17 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'ContratosCliente_CONDICIONES'
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>
Left = 48
Top = 152

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

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

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

@ -46,6 +46,7 @@ type
cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewColumn1: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
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'
DataType = datString
Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end>
Params = <>
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><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>
@ -551,4 +547,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{145AB429-AA3C-428B-862E-44860A53C63D}';
RID_FacturasCliente = '{FB6656F1-09E4-4105-B0E9-4D9ADE60387B}';
RID_FacturasCliente_Detalles = '{29D7E3D2-87AC-4F64-98AA-E4501188EB6B}';
RID_ListaAnosFacturas = '{AC458C56-0773-4661-8AA4-2B189CB69716}';
RID_FacturasCliente = '{0F0BF96C-EF73-4658-93A2-63D12D3DCAD2}';
RID_FacturasCliente_Detalles = '{906608D3-E31F-41F1-AE03-8212770A53CA}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -76,6 +76,7 @@ const
fld_FacturasClienteVENDEDOR = 'VENDEDOR';
fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA';
fld_FacturasClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -129,6 +130,7 @@ const
idx_FacturasClienteVENDEDOR = 48;
idx_FacturasClienteSIN_COMISION = 49;
idx_FacturasClienteTIPO_FACTURA = 50;
idx_FacturasClienteLISTA_NOMBRES = 51;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -165,7 +167,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{9B736788-CB7F-4171-80FB-BB95F35FFF7B}']
['{06173361-C007-4344-A43F-5AF52B29F8B7}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -200,7 +202,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{B69EA0DD-6019-492A-821A-0EE660AC366C}']
['{6E9D699F-963B-43BE-B76D-FB72A2674FDA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -405,6 +407,10 @@ type
procedure SetTIPO_FACTURAValue(const aValue: String);
function GetTIPO_FACTURAIsNull: 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 }
@ -510,6 +516,8 @@ type
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
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;
{ TFacturasClienteDataTableRules }
@ -722,6 +730,10 @@ type
procedure SetTIPO_FACTURAValue(const aValue: String); virtual;
function GetTIPO_FACTURAIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -826,6 +838,8 @@ type
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -835,7 +849,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{824CB867-0513-46EE-8E49-714506B6D7B0}']
['{276F9B23-EBA6-457E-AEEF-CEBBF244B602}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2150,6 +2164,27 @@ begin
DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{13B2244C-664D-4276-B52B-B4F0ADD71D74}';
RID_FacturasClienteDelta = '{A39B6A48-A724-487A-AC10-ED6BF3D502CC}';
RID_FacturasCliente_DetallesDelta = '{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}';
RID_ListaAnosFacturasDelta = '{4F7128B4-BEAB-4EEA-A48D-6F47671DDA6E}';
RID_FacturasClienteDelta = '{0D72186B-4364-45DB-B4CE-BC95F7C696C3}';
RID_FacturasCliente_DetallesDelta = '{2BF7FECE-AC21-4D6D-80D0-79E75DBB6727}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{13B2244C-664D-4276-B52B-B4F0ADD71D74}']
['{4F7128B4-BEAB-4EEA-A48D-6F47671DDA6E}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{A39B6A48-A724-487A-AC10-ED6BF3D502CC}']
['{0D72186B-4364-45DB-B4CE-BC95F7C696C3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -103,6 +103,7 @@ type
function GetOldVENDEDORValue : String;
function GetOldSIN_COMISIONValue : SmallInt;
function GetOldTIPO_FACTURAValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -156,6 +157,7 @@ type
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -470,6 +472,12 @@ type
function GetOldTIPO_FACTURAIsNull: Boolean; virtual;
procedure SetTIPO_FACTURAValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -676,6 +684,10 @@ type
property TIPO_FACTURAIsNull : Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -685,7 +697,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}']
['{2BF7FECE-AC21-4D6D-80D0-79E75DBB6727}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -2521,6 +2533,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := Null;
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 }
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 ' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, TIPO_FACTURA, ID_CLIENTE' +
', NOMBRE, SITUACION, REFERENCIA_CLIENTE, NIF_CIF, FECHA_FACTURA,' +
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, IMPORTE_RE, IMPORTE_TOTAL' +
#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, REFER' +
'ENCIA'#10#10
','#10'v_facturas_cliente.NOMBRE || COALESCE(v_contactos_nombres.otro' +
's_nombres, '#39#39') as NOMBRE,'#10'SITUACION, REFERENCIA_CLIENTE, NIF_CIF' +
', FECHA_FACTURA, BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, IMPORTE_R' +
'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
ColumnMappings = <
item
@ -689,23 +691,25 @@ object RptFacturasCliente: TRptFacturasCliente
'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' +
'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' +
'CTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CL' +
'IENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENT' +
'E.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTOS_DAT' +
'OS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACT' +
'OS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTA' +
'CTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF' +
'_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE' +
'_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.' +
'PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO' +
'_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS' +
'.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.RE' +
'GISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT' +
' JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO' +
' ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOI' +
'N CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = ' +
'V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID' +
#10
'CTURAS_CLIENTE.NIF_CIF,'#10' V_FACTURAS_CLIENTE.NOMBRE || COALESC' +
'E(v_contactos_nombres.otros_nombres, '#39#39') as NOMBRE,'#10' V_FACTUR' +
'AS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_C' +
'LIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTO' +
'S_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CO' +
'NTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' ' +
'CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF a' +
's NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as ' +
'CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPR' +
'ESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as C' +
'ODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMP' +
'RESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRES' +
'AS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE' +
#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS' +
'_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEF' +
'T JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTAC' +
'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
ColumnMappings = <
item
@ -1488,7 +1492,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 41304.573816296300000000
ReportOptions.LastChange = 42143.652865393500000000
ScriptLanguage = 'PascalScript'
ShowProgress = 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'
DataType = datString
Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_LISTA_NOMBRES'
end>
end
item
@ -1469,6 +1475,12 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger
DisplayLabel = 'ID_CLIENTE'
end
item
Name = 'FacturasCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end
item
Name = 'FacturasCliente_NIF_CIF'
DataType = datString

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

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

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

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

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

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

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

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{A5753DD4-D84A-4351-BC29-3B338F55A041}';
RID_Propiedades = '{BEA5D369-3FF6-476F-BB9C-AFCE9DA1B2B6}';
RID_ListaAnosPresupuestos = '{972E7C8B-FF56-4A25-885A-1154815BC103}';
RID_PresupuestosCliente = '{B8A5C581-F50A-4023-90F7-8BD62CF17C4B}';
RID_CapitulosPresupuesto = '{2EA00EAB-E78D-4D2B-88CF-61560814222A}';
RID_PresupuestosCliente_Detalles = '{F838D06B-B2D9-4CD6-9B17-F07D762C23FC}';
RID_Valores = '{69845B8B-862E-4186-A539-0491EC6224F3}';
RID_Propiedades = '{895EC925-C718-4589-BD6E-3B98E68C7469}';
RID_ListaAnosPresupuestos = '{4258D9C8-6F6E-4C32-B278-7DDE0FCE6843}';
RID_PresupuestosCliente = '{52ACB41F-F244-4D13-9769-9202F76311C0}';
RID_CapitulosPresupuesto = '{A1E223AB-6F46-437F-B40F-7CCF8AD46DEA}';
RID_PresupuestosCliente_Detalles = '{BFF68D7B-A862-4E85-AA60-7BD45944AEC5}';
{ Data table names }
nme_Valores = 'Valores';
@ -100,6 +100,7 @@ const
fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
fld_PresupuestosClienteCALIDADES = 'CALIDADES';
fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_PresupuestosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
{ PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0;
@ -145,6 +146,7 @@ const
idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
idx_PresupuestosClienteCALIDADES = 41;
idx_PresupuestosClienteREFERENCIA_CLIENTE = 42;
idx_PresupuestosClienteLISTA_NOMBRES = 43;
{ CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID';
@ -213,7 +215,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{C68B5E3B-7C25-40DB-BA71-461534ED307A}']
['{4A86E969-6E16-450C-A82B-D645B8E298C4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -320,7 +322,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{8D007D9A-95CD-48ED-B0FB-32C5632D2DCB}']
['{B33EF001-F0B3-4377-A019-646EB05608B0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -367,7 +369,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{651D3400-6969-4005-8674-F7E5937D797D}']
['{4F552890-7869-406F-B323-DDC2C6BBAABD}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -402,7 +404,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{17B40030-2811-48A3-BDB0-91B68C2109FC}']
['{302CF5F9-CA89-4181-9EE0-29CE9C739B7E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -571,6 +573,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: 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 }
@ -660,6 +666,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
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;
{ TPresupuestosClienteDataTableRules }
@ -844,6 +852,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -932,6 +944,8 @@ type
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -941,7 +955,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{F3216D59-B6FF-4EEB-9E6A-9AC425472CD5}']
['{1D0F3A1A-E5C1-487E-8EF0-0496F49E0D34}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1096,7 +1110,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{6ABABBED-D539-4A65-A815-551502FCB5ED}']
['{ECFB879A-6B6E-4125-A97B-14BA365AFB4E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2512,6 +2526,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}';
RID_PropiedadesDelta = '{A051A8E9-5AAA-434A-BF25-B8A8903781B1}';
RID_ListaAnosPresupuestosDelta = '{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}';
RID_PresupuestosClienteDelta = '{F86AA970-F689-43EE-95B7-E9C5294A5DE3}';
RID_CapitulosPresupuestoDelta = '{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}';
RID_PresupuestosCliente_DetallesDelta = '{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}';
RID_ValoresDelta = '{687FCBCD-2F9D-4E98-8515-FD5E9FCEE32A}';
RID_PropiedadesDelta = '{784A3DDA-A3AF-49BB-A49C-7EEF41AA4565}';
RID_ListaAnosPresupuestosDelta = '{881F141B-82C6-448C-80E9-D26A157B293A}';
RID_PresupuestosClienteDelta = '{C5E20CDB-A1E1-42F8-B46F-25C93C4957F6}';
RID_CapitulosPresupuestoDelta = '{17439B2D-6084-4A58-8AB1-6437324028C0}';
RID_PresupuestosCliente_DetallesDelta = '{D011385B-63AE-4484-AF6A-DE0CA4F3E913}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}']
['{687FCBCD-2F9D-4E98-8515-FD5E9FCEE32A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -125,7 +125,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{A051A8E9-5AAA-434A-BF25-B8A8903781B1}']
['{784A3DDA-A3AF-49BB-A49C-7EEF41AA4565}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -171,7 +171,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}']
['{881F141B-82C6-448C-80E9-D26A157B293A}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -205,7 +205,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{F86AA970-F689-43EE-95B7-E9C5294A5DE3}']
['{C5E20CDB-A1E1-42F8-B46F-25C93C4957F6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -250,6 +250,7 @@ type
function GetOldTIPO_PRESUPUESTOValue : String;
function GetOldCALIDADESValue : IROStrings;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLISTA_NOMBRESValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -295,6 +296,7 @@ type
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end;
{ TPresupuestosClienteBusinessProcessorRules }
@ -565,6 +567,12 @@ type
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -739,6 +747,10 @@ type
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -748,7 +760,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}']
['{17439B2D-6084-4A58-8AB1-6437324028C0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -902,7 +914,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}']
['{D011385B-63AE-4484-AF6A-DE0CA4F3E913}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -2853,6 +2865,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null;
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 }
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
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end>
end>
Name = 'PresupuestosCliente'
@ -565,12 +569,20 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'CALIDADES'
DataType = datMemo
DisplayLabel = 'Calidades'
BlobType = dabtBlob
DictionaryEntry = 'PresupuestosCliente_CALIDADES'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'PresupuestosCliente_LISTA_NOMBRES'
end>
end
item
@ -2144,6 +2156,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'PresupuestosCliente_NO_VALORADO'
DataType = datSmallInt
end
item
Name = 'PresupuestosCliente_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end>
Left = 48
Top = 152

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

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

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

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

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

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

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

@ -9,10 +9,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{83EE4B73-468E-4522-9045-EB32E8876743}';
RID_RecibosCliente = '{5A7D52CC-AC14-459B-8FFC-2EBB710C20FA}';
RID_PagosCliente = '{BA9CFF7F-552C-47D4-BB2C-75A68BB06A1C}';
RID_RecibosCompensadosCli = '{A1FB671D-EA16-4357-92F7-2C9F7D2C4433}';
RID_ListaAnosRecibos = '{AE89E2C7-E725-49D7-923C-C31DB52289BC}';
RID_RecibosCliente = '{EA2A5415-CD57-4A6D-B0ED-02C852CDF365}';
RID_PagosCliente = '{91E0EB25-0D8D-49CC-BEE9-DDB4DC953232}';
RID_RecibosCompensadosCli = '{8418F37E-CDF2-49D4-8EA6-458D5619E4D4}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -63,6 +63,7 @@ const
fld_RecibosClienteUSUARIO = 'USUARIO';
fld_RecibosClienteID_TIENDA = 'ID_TIENDA';
fld_RecibosClienteTIENDA = 'TIENDA';
fld_RecibosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE';
{ RecibosCliente field indexes }
@ -102,7 +103,8 @@ const
idx_RecibosClienteUSUARIO = 33;
idx_RecibosClienteID_TIENDA = 34;
idx_RecibosClienteTIENDA = 35;
idx_RecibosClienteCUENTA_CONTABLE = 36;
idx_RecibosClienteLISTA_NOMBRES = 36;
idx_RecibosClienteCUENTA_CONTABLE = 37;
{ PagosCliente fields }
fld_PagosClienteID = 'ID';
@ -223,7 +225,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{79193CD1-BBC0-4BEE-9525-6395209D7766}']
['{FAC8D465-4E19-43A8-B172-67E80A7D2D39}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -258,7 +260,7 @@ type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{E8C9C142-DC49-4341-8819-3FC9FFB74C3C}']
['{68685DBB-DED5-49DD-8E6F-844F238408B8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -404,6 +406,10 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: 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;
procedure SetCUENTA_CONTABLEValue(const aValue: String);
function GetCUENTA_CONTABLEIsNull: Boolean;
@ -483,6 +489,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
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_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
end;
@ -636,6 +644,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: 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;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
@ -714,6 +726,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
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_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
@ -725,7 +739,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
['{B0DE3F8D-7057-49AC-91D0-719C2C24E338}']
['{CFF8F00A-377F-4D2C-A75E-4B5E8B17F6F5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -964,7 +978,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{AC077764-D35C-477D-8FD8-2F68644F812C}']
['{241530CF-F60C-48CC-838B-F3F34C69347C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2221,6 +2235,27 @@ begin
DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null;
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;
begin
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{0101D983-84D7-4B01-B359-32BE7D3A9CBE}';
RID_RecibosClienteDelta = '{3A483FF6-4CAD-45BC-9638-78C3A876344F}';
RID_PagosClienteDelta = '{0BE77245-6A46-42CA-A074-48D3C835D089}';
RID_RecibosCompensadosCliDelta = '{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}';
RID_ListaAnosRecibosDelta = '{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}';
RID_RecibosClienteDelta = '{7241C382-E1CC-4FC6-A769-0EBA50663E8D}';
RID_PagosClienteDelta = '{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}';
RID_RecibosCompensadosCliDelta = '{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{0101D983-84D7-4B01-B359-32BE7D3A9CBE}']
['{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
['{3A483FF6-4CAD-45BC-9638-78C3A876344F}']
['{7241C382-E1CC-4FC6-A769-0EBA50663E8D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -89,6 +89,7 @@ type
function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String;
function GetOldCUENTA_CONTABLEValue : String;
{ Properties }
@ -128,6 +129,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
end;
@ -352,6 +354,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); 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_CONTABLEIsNull: Boolean; virtual;
function GetOldCUENTA_CONTABLEValue: String; virtual;
@ -504,6 +512,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
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_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
@ -517,7 +529,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
['{0BE77245-6A46-42CA-A074-48D3C835D089}']
['{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@ -755,7 +767,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}']
['{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -2382,6 +2394,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null;
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;
begin
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'
TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
'select v_recibos_cliente.*, cont_subcuentas.descripcion as CUENT' +
'A_CONTABLE'#10'from v_recibos_cliente'#10' left outer join pagos_clie' +
'nte pag on'#10' (pag.id_recibo = v_recibos_cliente.id)'#10' le' +
'ft outer join pagos_cliente pag2 on'#10' ((pag2.id_recibo = p' +
'ag.id_recibo) and (pag2.id > pag.id))'#10' left outer join cont_s' +
'ubcuentas on'#10' (cont_subcuentas.id = pag.cuenta)'#10'where (pa' +
'g2.id is null) and {Where}'#10
'select v_recibos_cliente.ID, v_recibos_cliente.ID_RECIBO_COMPENS' +
'ADO, v_recibos_cliente.REFERENCIA_REC_COMPENSADO,'#10' v_recibos_' +
'cliente.REFERENCIA, v_recibos_cliente.SITUACION, v_recibos_clien' +
'te.ID_FACTURA, v_recibos_cliente.FECHA_FACTURA, v_recibos_client' +
'e.FORMA_PAGO_FACTURA,'#10' v_recibos_cliente.IMPORTE_FACTURA, v_r' +
'ecibos_cliente.ID_REMESA, v_recibos_cliente.REFERENCIA_REMESA, v' +
'_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
ColumnMappings = <
item
@ -157,18 +176,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
@ -205,6 +212,22 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'CUENTA_CONTABLE'
TableField = '<unknown>'
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>
Name = 'RecibosCliente'
@ -415,11 +438,17 @@ object srvRecibosCliente: TsrvRecibosCliente
Size = 255
DictionaryEntry = 'RecibosCliente_TIENDA'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_LISTA_NOMBRES'
end
item
Name = 'CUENTA_CONTABLE'
DataType = datString
Size = 255
DisplayLabel = 'Cuenta contable'
DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE'
end>
end
item
@ -1741,6 +1770,18 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 255
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>
Left = 48
Top = 152

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

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

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

@ -58,6 +58,7 @@ type
cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
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',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_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',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_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',
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',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_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',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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 ..\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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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>
<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"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
<Form>RptListadosContactos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
<Form>RptListadosContactos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,8,0,0
PRODUCTVERSION 2,8,0,0
FILEVERSION 2,8,2,0
PRODUCTVERSION 2,8,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "2.8.0.0\0"
VALUE "CompileDate", "jueves, 10 de noviembre de 2016 15:18\0"
VALUE "ProductVersion", "2.8.2.0\0"
VALUE "CompileDate", "lunes, 06 de febrero de 2017 19:05\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.