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

Tareas #1356: En un presupuesto, añadir un campo libre para indicar qué contiene. Debe aparecer en el grid.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@600 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-11-21 17:53:12 +00:00
parent f4e7bb4936
commit a4dd391435
31 changed files with 1028 additions and 752 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Database/scripts/factuges.sql
View File

@ -934,7 +934,8 @@ CREATE TABLE CONTRATOS_CLIENTE (
MOVIL VARCHAR(25), MOVIL VARCHAR(25),
ID_DIRECCION TIPO_ID, ID_DIRECCION TIPO_ID,
TIPO_CONTRATO VARCHAR(255), TIPO_CONTRATO VARCHAR(255),
CONDICIONES TIPO_NOTAS CONDICIONES TIPO_NOTAS,
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
); );
@ -1396,7 +1397,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
ID_CONTRATO TIPO_ID, ID_CONTRATO TIPO_ID,
NO_VALORADO TIPO_BOOLEANO, NO_VALORADO TIPO_BOOLEANO,
TIPO_PRESUPUESTO VARCHAR(255), TIPO_PRESUPUESTO VARCHAR(255),
CALIDADES TIPO_NOTAS CALIDADES TIPO_NOTAS,
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
); );
@ -2540,7 +2542,9 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
VENDEDOR, VENDEDOR,
PERSONA_CONTACTO, PERSONA_CONTACTO,
TIPO_CONTRATO, TIPO_CONTRATO,
CONDICIONES) CONDICIONES,
CALIDADES,
REFERENCIA_CLIENTE)
AS AS
SELECT CONTRATOS_CLIENTE.ID, SELECT CONTRATOS_CLIENTE.ID,
/* CONTRATOS_CLIENTE.ID_EMPRESA,*/ /* CONTRATOS_CLIENTE.ID_EMPRESA,*/
@ -2588,7 +2592,9 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTACTOS2.NOMBRE AS VENDEDOR, CONTACTOS2.NOMBRE AS VENDEDOR,
CONTRATOS_CLIENTE.PERSONA_CONTACTO, CONTRATOS_CLIENTE.PERSONA_CONTACTO,
CONTRATOS_CLIENTE.TIPO_CONTRATO, CONTRATOS_CLIENTE.TIPO_CONTRATO,
CONTRATOS_CLIENTE.CONDICIONES CONTRATOS_CLIENTE.CONDICIONES,
CONTRATOS_CLIENTE.CALIDADES,
CONTRATOS_CLIENTE.REFERENCIA_CLIENTE
FROM CONTRATOS_CLIENTE FROM CONTRATOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE)
@ -3875,7 +3881,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
REF_CONTRATO, REF_CONTRATO,
NO_VALORADO, NO_VALORADO,
TIPO_PRESUPUESTO, TIPO_PRESUPUESTO,
CALIDADES) CALIDADES,
REFERENCIA_CLIENTE)
AS AS
SELECT SELECT
PRESUPUESTOS_CLIENTE.ID, PRESUPUESTOS_CLIENTE.ID,
@ -3920,7 +3927,8 @@ SELECT
CONTRATOS_CLIENTE.REFERENCIA, CONTRATOS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.NO_VALORADO, PRESUPUESTOS_CLIENTE.NO_VALORADO,
PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO, PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.CALIDADES PRESUPUESTOS_CLIENTE.CALIDADES,
PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE
FROM FROM
PRESUPUESTOS_CLIENTE PRESUPUESTOS_CLIENTE
@ -3931,7 +3939,6 @@ FROM
LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO) LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO)
; ;
/* View: V_PROVEEDORES */ /* View: V_PROVEEDORES */
CREATE VIEW V_PROVEEDORES( CREATE VIEW V_PROVEEDORES(
ID, ID,

117
Source/Base/Base.dproj
View File

@ -44,27 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -80,54 +59,54 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" /> <DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" /> <DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" /> <DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" /> <DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" /> <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" /> <DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" /> <DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" /> <DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" /> <DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" /> <DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" /> <DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" /> <DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" /> <DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" /> <DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" /> <DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" /> <DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" /> <DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" /> <DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" /> <DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" /> <DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" /> <DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" /> <DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" /> <DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" /> <DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

3
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</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.5.8.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.5.8.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">5</VersionInfo><VersionInfo Name="Release">9</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.5.9.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.5.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\Servidor\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Servidor\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

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

@ -332,6 +332,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datMemo DataType = datMemo
DisplayLabel = 'Calidades' DisplayLabel = 'Calidades'
DictionaryEntry = 'ContratosCliente_CALIDADES' DictionaryEntry = 'ContratosCliente_CALIDADES'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{F0526200-C062-476D-80A3-1CC74B381BC7}'; RID_Valores = '{DB288B62-3376-4EA8-A16B-92FABB15E1A7}';
RID_Propiedades = '{761E7D92-ACCC-487C-B663-31B34E278F2C}'; RID_Propiedades = '{3F49C9C0-A176-4268-BBE1-2F3A6ED0AF94}';
RID_ListaAnosContratos = '{EFA96A9D-E452-46F5-92D2-6301FA044EB5}'; RID_ListaAnosContratos = '{88182026-223D-438E-92E0-EA01835AF503}';
RID_ContratosClienteBeneficios = '{70EF0F8A-3021-466B-8D83-EEFC14E93578}'; RID_ContratosClienteBeneficios = '{F521EB65-8167-449B-BF50-EA1CB017F919}';
RID_ContratosCliente = '{5474C56D-8D15-4BBF-A918-B09541C5DD87}'; RID_ContratosCliente = '{1EE07E71-6530-4136-9372-8A62ABB4C53E}';
RID_TiposCapitulos = '{E013587B-70DE-493C-A82F-1436745706BE}'; RID_TiposCapitulos = '{A686096C-3DDA-428A-8717-B490FBF9D421}';
RID_ContratosCliente_Detalles = '{C8845677-3FB0-4456-90DE-C5B5447BB721}'; RID_ContratosCliente_Detalles = '{A466E6CC-EAD0-4A56-B5A1-75AD4BCAD0EA}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -126,6 +126,7 @@ const
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO'; fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
fld_ContratosClienteCONDICIONES = 'CONDICIONES'; fld_ContratosClienteCONDICIONES = 'CONDICIONES';
fld_ContratosClienteCALIDADES = 'CALIDADES'; fld_ContratosClienteCALIDADES = 'CALIDADES';
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -175,6 +176,7 @@ const
idx_ContratosClienteTIPO_CONTRATO = 44; idx_ContratosClienteTIPO_CONTRATO = 44;
idx_ContratosClienteCONDICIONES = 45; idx_ContratosClienteCONDICIONES = 45;
idx_ContratosClienteCALIDADES = 46; idx_ContratosClienteCALIDADES = 46;
idx_ContratosClienteREFERENCIA_CLIENTE = 47;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -233,7 +235,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{F961655F-A527-46B5-8498-A63C87148DBD}'] ['{47E1BDF6-B0A2-4419-BEB6-0DF205C5F64C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -259,7 +261,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) TValoresDataTableRules = class(TDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -292,7 +294,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{C8EA9375-DC1B-4883-AA5D-337B12C8CB03}'] ['{5C51DAC7-B80E-4A79-9BAA-005E517E5A9D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -318,7 +320,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -351,7 +353,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{477D5EE0-90BB-4992-A681-D55DE22F223F}'] ['{83AF2CBF-AA2F-45F6-AD84-C87BAC7B6695}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -365,7 +367,7 @@ type
end; end;
{ TListaAnosContratosDataTableRules } { TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -386,7 +388,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{C1AD6AEE-9535-4AAD-84EC-C4F26774FDD5}'] ['{04BD7FD9-0F85-4F94-B8D4-8CCBB1C4D7DA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -460,7 +462,7 @@ type
end; end;
{ TContratosClienteBeneficiosDataTableRules } { TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios) TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -541,7 +543,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{04D661CB-EC6C-49CD-BD55-5A14CCA1E63C}'] ['{8462E438-53BE-4ED9-8C10-AB5CDDAACA1A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -725,6 +727,10 @@ type
function GetCALIDADESValue: IROStrings; function GetCALIDADESValue: IROStrings;
function GetCALIDADESIsNull: Boolean; function GetCALIDADESIsNull: Boolean;
procedure SetCALIDADESIsNull(const aValue: Boolean); procedure SetCALIDADESIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -822,10 +828,12 @@ type
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
property CALIDADES: IROStrings read GetCALIDADESValue; property CALIDADES: IROStrings read GetCALIDADESValue;
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private private
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
@ -1023,6 +1031,10 @@ type
function GetCALIDADESValue: IROStrings; virtual; function GetCALIDADESValue: IROStrings; virtual;
function GetCALIDADESIsNull: Boolean; virtual; function GetCALIDADESIsNull: Boolean; virtual;
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1119,6 +1131,8 @@ type
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull; property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
property CALIDADES: IROStrings read GetCALIDADESValue; property CALIDADES: IROStrings read GetCALIDADESValue;
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1131,7 +1145,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{2ECBA155-63C8-4E4A-ABFA-0447AF922692}'] ['{3BA1C9A1-DD78-47B3-B1DE-F671F7B2B0C8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1175,7 +1189,7 @@ type
end; end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1226,7 +1240,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{C6C57E6F-5A54-4337-88B0-B74807CF03CD}'] ['{EA171C1D-256C-44C8-AA5E-727819A510D5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1336,7 +1350,7 @@ type
end; end;
{ TContratosCliente_DetallesDataTableRules } { TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2911,6 +2925,27 @@ begin
DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := Null; DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString;
end;
procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].IsNull;
end;
procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{38C40949-A51A-4309-80CD-2D42A1603624}'; RID_ValoresDelta = '{EB84C856-C87F-4ED4-A98D-050744E9CCB6}';
RID_PropiedadesDelta = '{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}'; RID_PropiedadesDelta = '{409D42DE-E54B-4042-9ACB-004C3568EEBA}';
RID_ListaAnosContratosDelta = '{7874DD16-167E-457B-BD65-4AE8A24EDBF3}'; RID_ListaAnosContratosDelta = '{60EBEB72-4CF4-42A9-85DE-817C53EC0473}';
RID_ContratosClienteBeneficiosDelta = '{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}'; RID_ContratosClienteBeneficiosDelta = '{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}';
RID_ContratosClienteDelta = '{526FC8D5-7105-4C5C-9956-342BEB9C9C12}'; RID_ContratosClienteDelta = '{C0AF8753-5906-4472-8FD1-040299E5C45E}';
RID_TiposCapitulosDelta = '{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}'; RID_TiposCapitulosDelta = '{1C929971-38B4-421A-A50C-D7DE36FA55C0}';
RID_ContratosCliente_DetallesDelta = '{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}'; RID_ContratosCliente_DetallesDelta = '{F8984113-BD7D-4FFA-B223-D24FC930C2AB}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{38C40949-A51A-4309-80CD-2D42A1603624}'] ['{EB84C856-C87F-4ED4-A98D-050744E9CCB6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}'] ['{409D42DE-E54B-4042-9ACB-004C3568EEBA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{7874DD16-167E-457B-BD65-4AE8A24EDBF3}'] ['{60EBEB72-4CF4-42A9-85DE-817C53EC0473}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}'] ['{C5BF5C61-FB5F-4A2F-B74D-55EEFDCED70D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -324,7 +324,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{526FC8D5-7105-4C5C-9956-342BEB9C9C12}'] ['{C0AF8753-5906-4472-8FD1-040299E5C45E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -373,6 +373,7 @@ type
function GetOldTIPO_CONTRATOValue : String; function GetOldTIPO_CONTRATOValue : String;
function GetOldCONDICIONESValue : IROStrings; function GetOldCONDICIONESValue : IROStrings;
function GetOldCALIDADESValue : IROStrings; function GetOldCALIDADESValue : IROStrings;
function GetOldREFERENCIA_CLIENTEValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -422,6 +423,7 @@ type
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue; property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -717,6 +719,12 @@ type
function GetOldCALIDADESValue: IROStrings; virtual; function GetOldCALIDADESValue: IROStrings; virtual;
function GetOldCALIDADESIsNull: Boolean; virtual; function GetOldCALIDADESIsNull: Boolean; virtual;
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual; procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -907,6 +915,10 @@ type
property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull; property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -916,7 +928,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}'] ['{1C929971-38B4-421A-A50C-D7DE36FA55C0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1010,7 +1022,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}'] ['{F8984113-BD7D-4FFA-B223-D24FC930C2AB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -3351,6 +3363,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]);
end;
function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]);
end;
procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -434,6 +434,10 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'CALIDADES' DatasetField = 'CALIDADES'
TableField = 'CALIDADES' TableField = 'CALIDADES'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -696,6 +700,11 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'CALIDADES' Name = 'CALIDADES'
DataType = datMemo DataType = datMemo
DictionaryEntry = 'ContratosCliente_CALIDADES' DictionaryEntry = 'ContratosCliente_CALIDADES'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end> end>
end end
item item
@ -946,11 +955,6 @@ object srvContratosCliente: TsrvContratosCliente
Commands = < Commands = <
item item
Params = < Params = <
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -1154,6 +1158,17 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'CONDICIONES' Name = 'CONDICIONES'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
end
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1169,17 +1184,17 @@ object srvContratosCliente: TsrvContratosCliente
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' + 'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' + '_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' + ' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES)'#10' VAL' + 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' + 'ENCIA_CLIENTE)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' +
'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' + ', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_PO' +
'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' + 'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' +
'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' + ' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' +
'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' + 'IVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_' +
'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' + 'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID' +
'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' + '_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' +
'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' + ' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' +
'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' + 'E, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO' +
'IDADES)'#10#10 ', :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1205,15 +1220,9 @@ object srvContratosCliente: TsrvContratosCliente
end end
item item
Params = < Params = <
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datInteger
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = '' Value = ''
end end
item item
@ -1414,6 +1423,17 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datMemo DataType = datMemo
Value = '' Value = ''
end end
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1443,7 +1463,8 @@ object srvContratosCliente: TsrvContratosCliente
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' + 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' + 'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' + 'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
'ES'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE'#10' WHERE'#10' (ID' +
' = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

123
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

@ -20,7 +20,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
449) 449)
object edtFechaContrato: TcxDBDateEdit object edtFechaContrato: TcxDBDateEdit
Left = 104 Left = 104
Top = 55 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONTRATO' DataBinding.DataField = 'FECHA_CONTRATO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -38,11 +38,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 2
Width = 129 Width = 129
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 377 Left = 384
Top = 289 Top = 289
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
@ -59,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Height = 200 Height = 200
Width = 507 Width = 507
end end
@ -90,7 +90,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 104 Left = 104
Top = 109 Top = 136
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -115,21 +115,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 215 Left = 222
Top = 109 Top = 136
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 5 TabOrder = 6
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
Left = 104 Left = 104
Top = 82 Top = 109
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.Items = < Properties.Items = <
@ -154,11 +154,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 4
Width = 260 Width = 260
end end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 377 Left = 384
Top = 28 Top = 28
Width = 127 Width = 127
Height = 225 Height = 225
@ -168,9 +168,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 377 ExplicitLeft = 384
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 127 ExplicitWidth = 127
ExplicitHeight = 225 ExplicitHeight = 225
@ -188,24 +188,24 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 103 Width = 103
end end
inherited bVerFichaCliente: TBitBtn inherited bVerFichaCliente: TBitBtn
Left = 209 Left = 202
ExplicitLeft = 209 ExplicitLeft = 202
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited bElegirDireccion: TButton inherited bElegirDireccion: TButton
Left = 378 Left = 371
ExplicitLeft = 378 ExplicitLeft = 371
end end
inherited edtTelefonos: TcxTextEdit inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193 ExplicitWidth = 193
Width = 193 Width = 193
end end
inherited edtReferencia: TcxDBTextEdit inherited edtReferencia: TcxDBTextEdit
Left = 267 Left = 263
ExplicitLeft = 267 ExplicitLeft = 263
ExplicitWidth = 103 ExplicitWidth = 103
Width = 103 Width = 103
end end
@ -213,7 +213,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 193 Top = 220
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -229,35 +229,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 328
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 8
Height = 100 Height = 100
Width = 396 Width = 396
end end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 342
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Height = 100
Width = 396
end
object cbVendedor: TcxDBLookupComboBox object cbVendedor: TcxDBLookupComboBox
Left = 104 Left = 104
Top = 136 Top = 163
DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -282,12 +282,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 27 Width = 27
end end
object cbTipoContrato: TcxDBComboBox object cbTipoContrato: TcxDBComboBox
Left = 271 Left = 274
Top = 55 Top = 82
DataBinding.DataField = 'TIPO_CONTRATO' DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -308,9 +308,31 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 3
Width = 113 Width = 113
end end
object edtlREF_CLIENTE: TcxDBTextEdit
Left = 104
Top = 55
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Height = 21
Width = 335
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -333,6 +355,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Control = eReferencia Control = eReferencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Ref. contenido:'
Control = edtlREF_CLIENTE
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True

2
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
View File

@ -64,6 +64,8 @@ type
dxLayoutControl1Item7: TdxLayoutItem; dxLayoutControl1Item7: TdxLayoutItem;
cbTipoContrato: TcxDBComboBox; cbTipoContrato: TcxDBComboBox;
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item12: TdxLayoutItem;
edtlREF_CLIENTE: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);

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

@ -68,6 +68,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
SortOrder = soDescending SortOrder = soDescending
Width = 58 Width = 58
end end
object cxGridViewColumn1: TcxGridDBColumn
Caption = 'Ref. contenido:'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO' DataBinding.FieldName = 'TIPO_CONTRATO'
BestFitMaxWidth = 25 BestFitMaxWidth = 25

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

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

BIN
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.RES
View File

Binary file not shown.

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

@ -26,11 +26,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
object tbl_PresupuestosCliente: TDAMemDataTable object tbl_PresupuestosCliente: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item
Name = 'CALIDADES'
DataType = datMemo
DisplayLabel = 'Calidades'
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -292,6 +287,16 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Size = 255 Size = 255
DisplayLabel = 'Tipo' DisplayLabel = 'Tipo'
DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO' DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
end
item
Name = 'CALIDADES'
DataType = datMemo
DisplayLabel = 'Calidades'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{F595E737-38D5-4136-AFD4-5757F25F6EF8}'; RID_Valores = '{A5753DD4-D84A-4351-BC29-3B338F55A041}';
RID_Propiedades = '{CBC06F9E-0133-4EF7-8E2D-58220BA8DDA9}'; RID_Propiedades = '{BEA5D369-3FF6-476F-BB9C-AFCE9DA1B2B6}';
RID_ListaAnosPresupuestos = '{D786DD19-6B5D-423D-B297-0C4013A9C199}'; RID_ListaAnosPresupuestos = '{972E7C8B-FF56-4A25-885A-1154815BC103}';
RID_PresupuestosCliente = '{34EA2D75-66D0-4D4C-8E5E-44EBF0D67C55}'; RID_PresupuestosCliente = '{B8A5C581-F50A-4023-90F7-8BD62CF17C4B}';
RID_CapitulosPresupuesto = '{1F64878E-DBCB-4B12-929A-DBD3F2E99119}'; RID_CapitulosPresupuesto = '{2EA00EAB-E78D-4D2B-88CF-61560814222A}';
RID_PresupuestosCliente_Detalles = '{11B0814E-C750-4649-A479-C9C5FB17ABA4}'; RID_PresupuestosCliente_Detalles = '{F838D06B-B2D9-4CD6-9B17-F07D762C23FC}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -57,7 +57,6 @@ const
idx_ListaAnosPresupuestosANO = 0; idx_ListaAnosPresupuestosANO = 0;
{ PresupuestosCliente fields } { PresupuestosCliente fields }
fld_PresupuestosClienteCALIDADES = 'CALIDADES';
fld_PresupuestosClienteID = 'ID'; fld_PresupuestosClienteID = 'ID';
fld_PresupuestosClienteID_EMPRESA = 'ID_EMPRESA'; fld_PresupuestosClienteID_EMPRESA = 'ID_EMPRESA';
fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO'; fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
@ -99,50 +98,53 @@ const
fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO'; fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO';
fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO'; fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO';
fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO'; fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
fld_PresupuestosClienteCALIDADES = 'CALIDADES';
fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
{ PresupuestosCliente field indexes } { PresupuestosCliente field indexes }
idx_PresupuestosClienteCALIDADES = 0; idx_PresupuestosClienteID = 0;
idx_PresupuestosClienteID = 1; idx_PresupuestosClienteID_EMPRESA = 1;
idx_PresupuestosClienteID_EMPRESA = 2; idx_PresupuestosClienteFECHA_PRESUPUESTO = 2;
idx_PresupuestosClienteFECHA_PRESUPUESTO = 3; idx_PresupuestosClienteFECHA_VIGENCIA = 3;
idx_PresupuestosClienteFECHA_VIGENCIA = 4; idx_PresupuestosClienteFECHA_DECISION = 4;
idx_PresupuestosClienteFECHA_DECISION = 5; idx_PresupuestosClienteREFERENCIA = 5;
idx_PresupuestosClienteREFERENCIA = 6; idx_PresupuestosClienteSITUACION = 6;
idx_PresupuestosClienteSITUACION = 7; idx_PresupuestosClienteID_CLIENTE = 7;
idx_PresupuestosClienteID_CLIENTE = 8; idx_PresupuestosClienteID_DIRECCION = 8;
idx_PresupuestosClienteID_DIRECCION = 9; idx_PresupuestosClienteNIF_CIF = 9;
idx_PresupuestosClienteNIF_CIF = 10; idx_PresupuestosClienteNOMBRE = 10;
idx_PresupuestosClienteNOMBRE = 11; idx_PresupuestosClientePERSONA_CONTACTO = 11;
idx_PresupuestosClientePERSONA_CONTACTO = 12; idx_PresupuestosClienteFORMA_PAGO = 12;
idx_PresupuestosClienteFORMA_PAGO = 13; idx_PresupuestosClientePLAZO_ENTREGA = 13;
idx_PresupuestosClientePLAZO_ENTREGA = 14; idx_PresupuestosClienteOBSERVACIONES = 14;
idx_PresupuestosClienteOBSERVACIONES = 15; idx_PresupuestosClienteINCIDENCIAS = 15;
idx_PresupuestosClienteINCIDENCIAS = 16; idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17; idx_PresupuestosClienteFECHA_ALTA = 17;
idx_PresupuestosClienteFECHA_ALTA = 18; idx_PresupuestosClienteFECHA_MODIFICACION = 18;
idx_PresupuestosClienteFECHA_MODIFICACION = 19; idx_PresupuestosClienteUSUARIO = 19;
idx_PresupuestosClienteUSUARIO = 20; idx_PresupuestosClienteIMPORTE_NETO = 20;
idx_PresupuestosClienteIMPORTE_NETO = 21; idx_PresupuestosClienteIMPORTE_PORTE = 21;
idx_PresupuestosClienteIMPORTE_PORTE = 22; idx_PresupuestosClienteDESCUENTO = 22;
idx_PresupuestosClienteDESCUENTO = 23; idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 24; idx_PresupuestosClienteBASE_IMPONIBLE = 24;
idx_PresupuestosClienteBASE_IMPONIBLE = 25; idx_PresupuestosClienteID_TIPO_IVA = 25;
idx_PresupuestosClienteID_TIPO_IVA = 26; idx_PresupuestosClienteIVA = 26;
idx_PresupuestosClienteIVA = 27; idx_PresupuestosClienteIMPORTE_IVA = 27;
idx_PresupuestosClienteIMPORTE_IVA = 28; idx_PresupuestosClienteRE = 28;
idx_PresupuestosClienteRE = 29; idx_PresupuestosClienteIMPORTE_RE = 29;
idx_PresupuestosClienteIMPORTE_RE = 30; idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 30;
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 31; idx_PresupuestosClienteIMPORTE_TOTAL = 31;
idx_PresupuestosClienteIMPORTE_TOTAL = 32; idx_PresupuestosClienteID_FORMA_PAGO = 32;
idx_PresupuestosClienteID_FORMA_PAGO = 33; idx_PresupuestosClienteID_TIENDA = 33;
idx_PresupuestosClienteID_TIENDA = 34; idx_PresupuestosClienteTIENDA = 34;
idx_PresupuestosClienteTIENDA = 35; idx_PresupuestosClienteID_VENDEDOR = 35;
idx_PresupuestosClienteID_VENDEDOR = 36; idx_PresupuestosClienteVENDEDOR = 36;
idx_PresupuestosClienteVENDEDOR = 37; idx_PresupuestosClienteID_CONTRATO = 37;
idx_PresupuestosClienteID_CONTRATO = 38; idx_PresupuestosClienteREF_CONTRATO = 38;
idx_PresupuestosClienteREF_CONTRATO = 39; idx_PresupuestosClienteNO_VALORADO = 39;
idx_PresupuestosClienteNO_VALORADO = 40; idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 41; idx_PresupuestosClienteCALIDADES = 41;
idx_PresupuestosClienteREFERENCIA_CLIENTE = 42;
{ CapitulosPresupuesto fields } { CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID'; fld_CapitulosPresupuestoID = 'ID';
@ -211,7 +213,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{6AAE0E7B-A1FC-4518-BCAB-ED352C578B1B}'] ['{C68B5E3B-7C25-40DB-BA71-461534ED307A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -261,7 +263,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) TValoresDataTableRules = class(TDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -318,7 +320,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{D8C6A56F-07F3-41B3-8C4A-8907BD2C6CD7}'] ['{8D007D9A-95CD-48ED-B0FB-32C5632D2DCB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -338,7 +340,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -365,7 +367,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{71555714-D8E6-431C-8612-6110C535E9E9}'] ['{651D3400-6969-4005-8674-F7E5937D797D}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -379,7 +381,7 @@ type
end; end;
{ TListaAnosPresupuestosDataTableRules } { TListaAnosPresupuestosDataTableRules }
TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos) TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -400,11 +402,8 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{49DE2369-0531-479D-98D6-A1B1FFA0D767}'] ['{17B40030-2811-48A3-BDB0-91B68C2109FC}']
{ Property getters and setters } { Property getters and setters }
function GetCALIDADESValue: IROStrings;
function GetCALIDADESIsNull: Boolean;
procedure SetCALIDADESIsNull(const aValue: Boolean);
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean; function GetIDIsNull: Boolean;
@ -565,11 +564,16 @@ type
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); procedure SetTIPO_PRESUPUESTOValue(const aValue: String);
function GetTIPO_PRESUPUESTOIsNull: Boolean; function GetTIPO_PRESUPUESTOIsNull: Boolean;
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean);
function GetCALIDADESValue: IROStrings;
function GetCALIDADESIsNull: Boolean;
procedure SetCALIDADESIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
{ Properties } { Properties }
property CALIDADES: IROStrings read GetCALIDADESValue;
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@ -652,26 +656,27 @@ type
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue; property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
property CALIDADES: IROStrings read GetCALIDADESValue;
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;
end; end;
{ TPresupuestosClienteDataTableRules } { TPresupuestosClienteDataTableRules }
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private private
f_CALIDADES: IROStrings;
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
procedure CALIDADES_OnChange(Sender: TObject); f_CALIDADES: IROStrings;
procedure FORMA_PAGO_OnChange(Sender: TObject); procedure FORMA_PAGO_OnChange(Sender: TObject);
procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure CALIDADES_OnChange(Sender: TObject);
protected protected
{ Property getters and setters } { Property getters and setters }
function GetCALIDADESValue: IROStrings; virtual;
function GetCALIDADESIsNull: Boolean; virtual;
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual; function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual; function GetIDIsNull: Boolean; virtual;
@ -832,10 +837,15 @@ type
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual; procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual;
function GetTIPO_PRESUPUESTOIsNull: Boolean; virtual; function GetTIPO_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetCALIDADESValue: IROStrings; virtual;
function GetCALIDADESIsNull: Boolean; virtual;
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property CALIDADES: IROStrings read GetCALIDADESValue;
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@ -918,6 +928,10 @@ type
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue; property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
property CALIDADES: IROStrings read GetCALIDADESValue;
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;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -927,7 +941,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{B7A20983-4BA3-4219-A117-B437AAC6979E}'] ['{F3216D59-B6FF-4EEB-9E6A-9AC425472CD5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1001,7 +1015,7 @@ type
end; end;
{ TCapitulosPresupuestoDataTableRules } { TCapitulosPresupuestoDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto) TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1082,7 +1096,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{DD320F0F-A644-47A2-AC0F-58C2D86FC696}'] ['{6ABABBED-D539-4A65-A815-551502FCB5ED}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1192,7 +1206,7 @@ type
end; end;
{ TPresupuestosCliente_DetallesDataTableRules } { TPresupuestosCliente_DetallesDataTableRules }
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles) TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1564,10 +1578,6 @@ var
begin begin
inherited; inherited;
StrList := TStringList.Create;
StrList.OnChange := CALIDADES_OnChange;
f_CALIDADES := NewROStrings(StrList,True);
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := FORMA_PAGO_OnChange; StrList.OnChange := FORMA_PAGO_OnChange;
f_FORMA_PAGO := NewROStrings(StrList,True); f_FORMA_PAGO := NewROStrings(StrList,True);
@ -1583,6 +1593,10 @@ begin
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange; StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True); f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := CALIDADES_OnChange;
f_CALIDADES := NewROStrings(StrList,True);
end; end;
destructor TPresupuestosClienteDataTableRules.Destroy; destructor TPresupuestosClienteDataTableRules.Destroy;
@ -1590,11 +1604,6 @@ begin
inherited; inherited;
end; end;
procedure TPresupuestosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject);
begin
if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := TStringList(Sender).Text;
end;
procedure TPresupuestosClienteDataTableRules.FORMA_PAGO_OnChange(Sender: TObject); procedure TPresupuestosClienteDataTableRules.FORMA_PAGO_OnChange(Sender: TObject);
begin begin
if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteFORMA_PAGO].AsVariant := TStringList(Sender).Text; if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteFORMA_PAGO].AsVariant := TStringList(Sender).Text;
@ -1615,21 +1624,9 @@ begin
if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
end; end;
function TPresupuestosClienteDataTableRules.GetCALIDADESValue: IROStrings; procedure TPresupuestosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject);
begin begin
result := f_CALIDADES; if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := TStringList(Sender).Text;
result.Text := DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsString;
end;
function TPresupuestosClienteDataTableRules.GetCALIDADESIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteCALIDADES].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := Null;
end; end;
function TPresupuestosClienteDataTableRules.GetIDValue: Integer; function TPresupuestosClienteDataTableRules.GetIDValue: Integer;
@ -2477,6 +2474,44 @@ begin
DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsVariant := Null; DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsVariant := Null;
end; end;
function TPresupuestosClienteDataTableRules.GetCALIDADESValue: IROStrings;
begin
result := f_CALIDADES;
result.Text := DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsString;
end;
function TPresupuestosClienteDataTableRules.GetCALIDADESIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteCALIDADES].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString;
end;
procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString := aValue;
end;
function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null;
end;
{ TCapitulosPresupuestoDataTableRules } { TCapitulosPresupuestoDataTableRules }
constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable); constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,17 +9,17 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{2B3EF096-6069-48F1-9372-FE2E3B086A6A}'; RID_ValoresDelta = '{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}';
RID_PropiedadesDelta = '{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}'; RID_PropiedadesDelta = '{A051A8E9-5AAA-434A-BF25-B8A8903781B1}';
RID_ListaAnosPresupuestosDelta = '{843FE025-D441-4A64-9BA6-7CE3C254BFD2}'; RID_ListaAnosPresupuestosDelta = '{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}';
RID_PresupuestosClienteDelta = '{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}'; RID_PresupuestosClienteDelta = '{F86AA970-F689-43EE-95B7-E9C5294A5DE3}';
RID_CapitulosPresupuestoDelta = '{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}'; RID_CapitulosPresupuestoDelta = '{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}';
RID_PresupuestosCliente_DetallesDelta = '{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}'; RID_PresupuestosCliente_DetallesDelta = '{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{2B3EF096-6069-48F1-9372-FE2E3B086A6A}'] ['{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -125,7 +125,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}'] ['{A051A8E9-5AAA-434A-BF25-B8A8903781B1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -171,7 +171,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{843FE025-D441-4A64-9BA6-7CE3C254BFD2}'] ['{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -205,9 +205,8 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}'] ['{F86AA970-F689-43EE-95B7-E9C5294A5DE3}']
{ Property getters and setters } { Property getters and setters }
function GetOldCALIDADESValue : IROStrings;
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldFECHA_PRESUPUESTOValue : DateTime; function GetOldFECHA_PRESUPUESTOValue : DateTime;
@ -249,9 +248,10 @@ type
function GetOldREF_CONTRATOValue : String; function GetOldREF_CONTRATOValue : String;
function GetOldNO_VALORADOValue : SmallInt; function GetOldNO_VALORADOValue : SmallInt;
function GetOldTIPO_PRESUPUESTOValue : String; function GetOldTIPO_PRESUPUESTOValue : String;
function GetOldCALIDADESValue : IROStrings;
function GetOldREFERENCIA_CLIENTEValue : String;
{ Properties } { Properties }
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue; property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue;
@ -293,28 +293,25 @@ type
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue; property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue;
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
end; end;
{ TPresupuestosClienteBusinessProcessorRules } { TPresupuestosClienteBusinessProcessorRules }
TPresupuestosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente, IPresupuestosClienteDelta) TPresupuestosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente, IPresupuestosClienteDelta)
private private
f_CALIDADES: IROStrings;
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
procedure CALIDADES_OnChange(Sender: TObject); f_CALIDADES: IROStrings;
procedure FORMA_PAGO_OnChange(Sender: TObject); procedure FORMA_PAGO_OnChange(Sender: TObject);
procedure PLAZO_ENTREGA_OnChange(Sender: TObject); procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure CALIDADES_OnChange(Sender: TObject);
protected protected
{ Property getters and setters } { Property getters and setters }
function GetCALIDADESValue: IROStrings; virtual;
function GetCALIDADESIsNull: Boolean; virtual;
function GetOldCALIDADESValue: IROStrings; virtual;
function GetOldCALIDADESIsNull: Boolean; virtual;
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual; function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual; function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual;
@ -557,12 +554,19 @@ type
function GetOldTIPO_PRESUPUESTOIsNull: Boolean; virtual; function GetOldTIPO_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual; procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual;
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetCALIDADESValue: IROStrings; virtual;
function GetCALIDADESIsNull: Boolean; virtual;
function GetOldCALIDADESValue: IROStrings; virtual;
function GetOldCALIDADESIsNull: Boolean; virtual;
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property CALIDADES : IROStrings read GetCALIDADESValue;
property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull;
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -727,6 +731,14 @@ type
property TIPO_PRESUPUESTOIsNull : Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; property TIPO_PRESUPUESTOIsNull : Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
property OldTIPO_PRESUPUESTOIsNull : Boolean read GetOldTIPO_PRESUPUESTOIsNull; property OldTIPO_PRESUPUESTOIsNull : Boolean read GetOldTIPO_PRESUPUESTOIsNull;
property CALIDADES : IROStrings read GetCALIDADESValue;
property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -736,7 +748,7 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}'] ['{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -890,7 +902,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}'] ['{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -1472,10 +1484,6 @@ var
begin begin
inherited; inherited;
StrList := TStringList.Create;
StrList.OnChange := CALIDADES_OnChange;
f_CALIDADES := NewROStrings(StrList,True);
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := FORMA_PAGO_OnChange; StrList.OnChange := FORMA_PAGO_OnChange;
f_FORMA_PAGO := NewROStrings(StrList,True); f_FORMA_PAGO := NewROStrings(StrList,True);
@ -1491,6 +1499,10 @@ begin
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange; StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True); f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := CALIDADES_OnChange;
f_CALIDADES := NewROStrings(StrList,True);
end; end;
destructor TPresupuestosClienteBusinessProcessorRules.Destroy; destructor TPresupuestosClienteBusinessProcessorRules.Destroy;
@ -1498,11 +1510,6 @@ begin
inherited; inherited;
end; end;
procedure TPresupuestosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := TStringList(Sender).Text;
end;
procedure TPresupuestosClienteBusinessProcessorRules.FORMA_PAGO_OnChange(Sender: TObject); procedure TPresupuestosClienteBusinessProcessorRules.FORMA_PAGO_OnChange(Sender: TObject);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFORMA_PAGO] := TStringList(Sender).Text; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFORMA_PAGO] := TStringList(Sender).Text;
@ -1523,32 +1530,9 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := TStringList(Sender).Text; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := TStringList(Sender).Text;
end; end;
function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings; procedure TPresupuestosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject);
begin begin
result := f_CALIDADES; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := TStringList(Sender).Text;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES];
end;
function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := Null;
end; end;
function TPresupuestosClienteBusinessProcessorRules.GetIDValue: Integer; function TPresupuestosClienteBusinessProcessorRules.GetIDValue: Integer;
@ -2810,6 +2794,65 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := Null;
end; end;
function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings;
begin
result := f_CALIDADES;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES];
end;
function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
end;
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null;
end;
{ TCapitulosPresupuestoBusinessProcessorRules } { TCapitulosPresupuestoBusinessProcessorRules }
constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -334,15 +334,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
DatasetField = 'CALIDADES' DatasetField = 'CALIDADES'
TableField = 'CALIDADES' TableField = 'CALIDADES'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end> end>
end> end>
Name = 'PresupuestosCliente' Name = 'PresupuestosCliente'
Fields = < Fields = <
item
Name = 'CALIDADES'
DataType = datMemo
DisplayLabel = 'Calidades'
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -562,6 +561,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO' DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
end
item
Name = 'CALIDADES'
DataType = datMemo
DisplayLabel = 'Calidades'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end> end>
end end
item item
@ -877,17 +886,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Commands = < Commands = <
item item
Params = < Params = <
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item
Name = 'TIPO_PRESUPUESTO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -1052,6 +1050,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'NO_VALORADO' Name = 'NO_VALORADO'
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end
item
Name = 'TIPO_PRESUPUESTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1067,16 +1082,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' + 'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
'_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' + '_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' +
'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO, NO_VALO' + 'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO, NO_VALO' +
'RADO, TIPO_PRESUPUESTO, CALIDADES)'#10' VALUES'#10' (:ID,'#10' :FECH' + 'RADO, TIPO_PRESUPUESTO, CALIDADES, REFERENCIA_CLIENTE)'#10' VALUES'#10 +
'A_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10' ' + ' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECIS' +
' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' ' + 'ION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :' +
' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' ' + 'PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACION' +
' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_N' + 'ES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, ' +
'ETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_' + ':USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPOR' +
'IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_' + 'TE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,' +
'RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_T' + #10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :' +
'IENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRES' + 'ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_' +
'UPUESTO, :CALIDADES)'#10' '#10#10#10#10#10 'VALORADO, :TIPO_PRESUPUESTO, :CALIDADES, :REFERENCIA_CLIENTE)'#10' ' +
' '#10#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1104,17 +1120,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end end
item item
Params = < Params = <
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item
Name = 'TIPO_PRESUPUESTO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
@ -1279,6 +1284,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'TIPO_PRESUPUESTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALIDADES'
DataType = datMemo
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1308,7 +1330,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' + ' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' +
'ID_CONTRATO = :ID_CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' ' + 'ID_CONTRATO = :ID_CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' ' +
'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO,'#10' CALIDADES = :CALIDADES' + 'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO,'#10' CALIDADES = :CALIDADES' +
#10' WHERE'#10' (ID = :OLD_ID)'#10#10 ','#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE'#10' WHERE'#10' (ID =' +
' :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -11,12 +11,14 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
end end
inherited cxGridViewVISIBLE2: TcxGridDBColumn [4] inherited cxGridViewVISIBLE2: TcxGridDBColumn [4]
Visible = True Visible = True
Width = 51 BestFitMaxWidth = 40
Width = 40
end end
inherited cxGridViewVISIBLE: TcxGridDBColumn [5] inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Caption = #191'Valorado?' Caption = #191'Valorado?'
Visible = True Visible = True
Width = 51 BestFitMaxWidth = 40
Width = 40
end end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn [6] inherited cxGridViewID_ARTICULO: TcxGridDBColumn [6]
VisibleForCustomization = False VisibleForCustomization = False

100
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -20,7 +20,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
555) 555)
object edtFechaPresupuesto: TcxDBDateEdit object edtFechaPresupuesto: TcxDBDateEdit
Left = 103 Left = 103
Top = 55 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PRESUPUESTO' DataBinding.DataField = 'FECHA_PRESUPUESTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -38,7 +38,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 2
Width = 187 Width = 187
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
@ -59,7 +59,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 13
Height = 245 Height = 245
Width = 793 Width = 793
end end
@ -90,7 +90,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 103 Left = 103
Top = 136 Top = 163
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -115,21 +115,21 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 270 Left = 270
Top = 136 Top = 163
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 7 TabOrder = 8
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaDecision: TcxDBDateEdit object edtFechaDecision: TcxDBDateEdit
Left = 295 Left = 295
Top = 82 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION' DataBinding.DataField = 'FECHA_DECISION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -146,12 +146,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 260 Width = 260
end end
object edtFechaVigencia: TcxDBDateEdit object edtFechaVigencia: TcxDBDateEdit
Left = 103 Left = 103
Top = 82 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VIGENCIA' DataBinding.DataField = 'FECHA_VIGENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -172,12 +172,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 4
Width = 260 Width = 260
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
Left = 103 Left = 103
Top = 109 Top = 136
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -203,7 +203,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 6
Width = 260 Width = 260
end end
inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
@ -217,7 +217,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 12
ReadOnly = False ReadOnly = False
ExplicitLeft = 432 ExplicitLeft = 432
ExplicitTop = 28 ExplicitTop = 28
@ -264,7 +264,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 220 Top = 247
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -280,13 +280,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Height = 44 Height = 44
Width = 475 Width = 475
end end
object memPlazoEntrega: TcxDBMemo object memPlazoEntrega: TcxDBMemo
Left = 22 Left = 22
Top = 348 Top = 365
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA' DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -302,13 +302,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Height = 100 Height = 100
Width = 396 Width = 396
end end
object cbVendedor: TcxDBLookupComboBox object cbVendedor: TcxDBLookupComboBox
Left = 103 Left = 103
Top = 163 Top = 190
DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -333,12 +333,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 9
Width = 27 Width = 27
end end
object cbTipoPresupuesto: TcxDBComboBox object cbTipoPresupuesto: TcxDBComboBox
Left = 289 Left = 289
Top = 55 Top = 82
DataBinding.DataField = 'TIPO_PRESUPUESTO' DataBinding.DataField = 'TIPO_PRESUPUESTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
@ -353,9 +353,31 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 3
Width = 186 Width = 186
end end
object edtRef_cliente: TcxDBTextEdit
Left = 103
Top = 55
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Height = 21
Width = 204
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -381,21 +403,31 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical] Caption = 'Ref. contenido:'
AlignHorz = ahClient Control = edtRef_cliente
Caption = 'Fecha presup.:'
Control = edtFechaPresupuesto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item12: TdxLayoutItem object dxLayoutControl1Group12: TdxLayoutGroup
AutoAligns = [aaVertical] ShowCaption = False
AlignHorz = ahClient Hidden = True
Caption = 'Tipo presup.:' LayoutDirection = ldHorizontal
Control = cbTipoPresupuesto ShowBorder = False
ControlOptions.ShowBorder = False object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha presup.:'
Control = edtFechaPresupuesto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Tipo presup.:'
Control = cbTipoPresupuesto
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup

3
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -69,6 +69,9 @@ type
dxLayoutControl1Item12: TdxLayoutItem; dxLayoutControl1Item12: TdxLayoutItem;
cbTipoPresupuesto: TcxDBComboBox; cbTipoPresupuesto: TcxDBComboBox;
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item13: TdxLayoutItem;
edtRef_cliente: TcxDBTextEdit;
dxLayoutControl1Group12: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);

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

@ -70,6 +70,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 65 Width = 65
end end
object cxGridViewColumn1: TcxGridDBColumn
Caption = 'Ref. contenido'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewTIPO: TcxGridDBColumn object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_PRESUPUESTO' DataBinding.FieldName = 'TIPO_PRESUPUESTO'
BestFitMaxWidth = 25 BestFitMaxWidth = 25

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

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

1
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
View File

@ -124,6 +124,7 @@ begin
AContrato.RE := APresupuesto.RE; AContrato.RE := APresupuesto.RE;
AContrato.IMPORTE_RE := APresupuesto.IMPORTE_RE; AContrato.IMPORTE_RE := APresupuesto.IMPORTE_RE;
AContrato.TIPO_CONTRATO := APresupuesto.TIPO_PRESUPUESTO; AContrato.TIPO_CONTRATO := APresupuesto.TIPO_PRESUPUESTO;
AContrato.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE;
end; end;
procedure CopiarDetallesAContrato( procedure CopiarDetallesAContrato(

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -128,16 +128,16 @@ uses
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

582
Source/Servidor/FactuGES_Server.dproj
View File

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

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,5,8,0 FILEVERSION 2,5,9,0
PRODUCTVERSION 2,5,8,0 PRODUCTVERSION 2,5,9,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.5.8.0\0" VALUE "FileVersion", "2.5.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.8.0\0" VALUE "ProductVersion", "2.5.9.0\0"
VALUE "CompileDate", "lunes, 17 de noviembre de 2014 15:57\0" VALUE "CompileDate", "martes, 18 de noviembre de 2014 16:40\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.