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

Ticket #331 -> Poner un campo nuevo en presupuestos y contratos (tipo contrato) para decir si es cocina, armario... (TERMINADO)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@509 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2010-04-25 15:27:40 +00:00
parent aee103bc92
commit afe918af56
19 changed files with 406 additions and 226 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Database/scripts/factuges.sql
View File

@ -1297,7 +1297,8 @@ CREATE TABLE CONTRATOS_CLIENTE (
PERSONA_CONTACTO VARCHAR(255) COLLATE ES_ES, PERSONA_CONTACTO VARCHAR(255) COLLATE ES_ES,
RECARGO_EQUIVALENCIA TIPO_BOOLEANO, RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
RE TIPO_PORCENTAJE, RE TIPO_PORCENTAJE,
IMPORTE_RE TIPO_IMPORTE IMPORTE_RE TIPO_IMPORTE,
TIPO_CONTRATO VARCHAR(255)
); );
CREATE TABLE CONTRATOS_CLIENTE_DETALLES ( CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
@ -3730,7 +3731,8 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
ID_FORMA_PAGO, ID_FORMA_PAGO,
ID_VENDEDOR, ID_VENDEDOR,
VENDEDOR, VENDEDOR,
PERSONA_CONTACTO) PERSONA_CONTACTO,
TIPO_CONTRATO)
AS AS
SELECT CONTRATOS_CLIENTE.ID, SELECT CONTRATOS_CLIENTE.ID,
/* CONTRATOS_CLIENTE.ID_EMPRESA,*/ /* CONTRATOS_CLIENTE.ID_EMPRESA,*/
@ -3776,8 +3778,8 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.ID_FORMA_PAGO, CONTRATOS_CLIENTE.ID_FORMA_PAGO,
CONTRATOS_CLIENTE.ID_VENDEDOR, CONTRATOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR, CONTACTOS2.NOMBRE AS VENDEDOR,
CONTRATOS_CLIENTE.PERSONA_CONTACTO CONTRATOS_CLIENTE.PERSONA_CONTACTO,
CONTRATOS_CLIENTE.TIPO_CONTRATO
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)
LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID) LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)

96
Source/Base/Base.dproj
View File

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

56
Source/GUIBase/GUIBase.dproj
View File

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

22
Source/Modulos/Articulos/Controller/Articulos_controller.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

22
Source/Modulos/Articulos/Data/Articulos_data.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

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

@ -135,6 +135,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'ContratosCliente_REFERENCIA' DictionaryEntry = 'ContratosCliente_REFERENCIA'
end end
item item
@ -312,6 +313,13 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Size = 255 Size = 255
DisplayLabel = 'Persona de contacto' DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO' DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
end
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
DisplayLabel = 'Tipo'
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -43,8 +43,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="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

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

@ -9,12 +9,12 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{C4BF01E2-31F4-4AB9-8B68-44342C4EC58C}'; RID_Valores = '{57BFD5F5-494A-4231-B97D-032F7E10F24B}';
RID_Propiedades = '{54F6EFB8-CF1F-49A0-A5ED-410EE8AF1E84}'; RID_Propiedades = '{4D58ECE3-A9F8-43A4-AAA3-CD646C22B7DE}';
RID_ListaAnosContratos = '{B15460FD-230C-47B6-B916-9DD01DBF78D7}'; RID_ListaAnosContratos = '{1D11C4F1-0182-4996-BAC0-9196D938AA76}';
RID_ContratosCliente = '{AA883DBC-951B-429E-ACF6-25E65CD069CF}'; RID_ContratosCliente = '{73CCDE34-A6B2-46FB-A827-92F690E6DDBC}';
RID_TiposCapitulos = '{A5CF013F-B9D5-4F6E-9CF9-EAEC850DABAF}'; RID_TiposCapitulos = '{EDB0FFD7-2779-4985-821B-E4777E629C36}';
RID_ContratosCliente_Detalles = '{6BF2A61B-E6A3-4683-9E5E-517F1C2A9414}'; RID_ContratosCliente_Detalles = '{4B663F62-78D9-4AFF-A977-54BE10A624FE}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -95,6 +95,7 @@ const
fld_ContratosClienteID_VENDEDOR = 'ID_VENDEDOR'; fld_ContratosClienteID_VENDEDOR = 'ID_VENDEDOR';
fld_ContratosClienteVENDEDOR = 'VENDEDOR'; fld_ContratosClienteVENDEDOR = 'VENDEDOR';
fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -141,6 +142,7 @@ const
idx_ContratosClienteID_VENDEDOR = 41; idx_ContratosClienteID_VENDEDOR = 41;
idx_ContratosClienteVENDEDOR = 42; idx_ContratosClienteVENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43; idx_ContratosClientePERSONA_CONTACTO = 43;
idx_ContratosClienteTIPO_CONTRATO = 44;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -195,7 +197,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{1182811B-CA60-444B-8E48-100F58175E23}'] ['{7C23406A-157C-424B-ABCF-148CC015BC4F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -254,7 +256,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{3CC8D26D-D024-4B4C-B349-63C6BC8828B8}'] ['{52FAC363-53E6-4F11-AE60-FE16A842EEA4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -313,7 +315,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{115F0DE9-0E1F-481F-8A31-A4F2B409ED8B}'] ['{F741301B-D6DB-457C-9B43-1EC77A740D17}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -348,7 +350,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{0D9EA959-92B6-43CB-95E5-5A0F0F1A8845}'] ['{BC6E72B5-30B2-4553-8C99-CBBBCA899EBA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -522,6 +524,10 @@ type
procedure SetPERSONA_CONTACTOValue(const aValue: String); procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean; function GetPERSONA_CONTACTOIsNull: Boolean;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
function GetTIPO_CONTRATOValue: String;
procedure SetTIPO_CONTRATOValue(const aValue: String);
function GetTIPO_CONTRATOIsNull: Boolean;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -613,6 +619,8 @@ type
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -800,6 +808,10 @@ type
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetTIPO_CONTRATOValue: String; virtual;
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
function GetTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -890,6 +902,8 @@ type
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -902,7 +916,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{C7356BFF-06B4-4FA2-A24C-9B3B9A82480C}'] ['{BA175773-59CB-4349-A002-2BF8672EFA85}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -997,7 +1011,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{8D251749-25EB-4C4C-B0E0-8E8848E0DE02}'] ['{45989059-DF2C-4A8B-8A53-028E6F526A87}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2342,6 +2356,27 @@ begin
DataTable.Fields[idx_ContratosClientePERSONA_CONTACTO].AsVariant := Null; DataTable.Fields[idx_ContratosClientePERSONA_CONTACTO].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetTIPO_CONTRATOValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsString;
end;
procedure TContratosClienteDataTableRules.SetTIPO_CONTRATOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetTIPO_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetTIPO_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

67
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_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 = '{99FB8B11-BABD-437D-8CF7-E71ED3293C56}'; RID_ValoresDelta = '{94A3010D-5D46-4AA9-9838-04B55576C94E}';
RID_PropiedadesDelta = '{957B81A4-2A44-4028-A288-7D141540CFB7}'; RID_PropiedadesDelta = '{99F13846-B993-4348-AE33-7D0922C5D1AD}';
RID_ListaAnosContratosDelta = '{5099A92C-DD01-4C99-8739-32C7316F0F29}'; RID_ListaAnosContratosDelta = '{74150E30-F707-4AF1-9D4C-69ACEE1FF491}';
RID_ContratosClienteDelta = '{08EE2D2A-1788-482F-AC8D-C6ABF921D84E}'; RID_ContratosClienteDelta = '{4D6235D2-E6FF-4894-889B-937ED4E1A5C7}';
RID_TiposCapitulosDelta = '{C725F601-473D-44E3-A497-3AAD4D96A6AA}'; RID_TiposCapitulosDelta = '{837573E5-D7F7-44CC-A73C-797CBB7D62F0}';
RID_ContratosCliente_DetallesDelta = '{5BA78EB9-366D-4035-8B44-A771F9EBB0D3}'; RID_ContratosCliente_DetallesDelta = '{EA0605D9-70CD-4487-8706-ECC60AEC6E82}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{99FB8B11-BABD-437D-8CF7-E71ED3293C56}'] ['{94A3010D-5D46-4AA9-9838-04B55576C94E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{957B81A4-2A44-4028-A288-7D141540CFB7}'] ['{99F13846-B993-4348-AE33-7D0922C5D1AD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{5099A92C-DD01-4C99-8739-32C7316F0F29}'] ['{74150E30-F707-4AF1-9D4C-69ACEE1FF491}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -169,7 +169,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{08EE2D2A-1788-482F-AC8D-C6ABF921D84E}'] ['{4D6235D2-E6FF-4894-889B-937ED4E1A5C7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -215,6 +215,7 @@ type
function GetOldID_VENDEDORValue : Integer; function GetOldID_VENDEDORValue : Integer;
function GetOldVENDEDORValue : String; function GetOldVENDEDORValue : String;
function GetOldPERSONA_CONTACTOValue : String; function GetOldPERSONA_CONTACTOValue : String;
function GetOldTIPO_CONTRATOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -261,6 +262,7 @@ type
property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
property OldVENDEDOR : String read GetOldVENDEDORValue; property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -536,6 +538,12 @@ type
function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetTIPO_CONTRATOValue: String; virtual;
function GetTIPO_CONTRATOIsNull: Boolean; virtual;
function GetOldTIPO_CONTRATOValue: String; virtual;
function GetOldTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -714,6 +722,10 @@ type
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO : String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull : Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldTIPO_CONTRATOIsNull : Boolean read GetOldTIPO_CONTRATOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -723,7 +735,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{C725F601-473D-44E3-A497-3AAD4D96A6AA}'] ['{837573E5-D7F7-44CC-A73C-797CBB7D62F0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -817,7 +829,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{5BA78EB9-366D-4035-8B44-A771F9EBB0D3}'] ['{EA0605D9-70CD-4487-8706-ECC60AEC6E82}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -2676,6 +2688,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePERSONA_CONTACTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePERSONA_CONTACTO] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetTIPO_CONTRATOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO];
end;
function TContratosClienteBusinessProcessorRules.GetTIPO_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldTIPO_CONTRATOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTIPO_CONTRATO];
end;
function TContratosClienteBusinessProcessorRules.GetOldTIPO_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTIPO_CONTRATO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetTIPO_CONTRATOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetTIPO_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -311,6 +311,10 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'ID_DIRECCION' DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION' TableField = 'ID_DIRECCION'
end
item
DatasetField = 'TIPO_CONTRATO'
TableField = 'TIPO_CONTRATO'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -557,6 +561,12 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO' DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
end
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
end> end>
end end
item item
@ -790,6 +800,12 @@ object srvContratosCliente: TsrvContratosCliente
Commands = < Commands = <
item item
Params = < Params = <
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -997,15 +1013,16 @@ 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)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' + 'LEFONO, MOVIL, TIPO_CONTRATO)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :N' +
', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_PO' + 'IF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10 +
'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' + ' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :' +
' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' + 'FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :' +
'IVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_' + 'INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_' +
'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID' + 'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' +
'_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' + '_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :I' +
' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' + 'D_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, ' +
'E, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL)'#10#10 ':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL,' +
' :TIPO_CONTRATO)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1031,6 +1048,12 @@ object srvContratosCliente: TsrvContratosCliente
end end
item item
Params = < Params = <
item
Name = 'TIPO_CONTRATO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
@ -1250,7 +1273,8 @@ object srvContratosCliente: TsrvContratosCliente
'= :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' PERSONA_CONTAC' + '= :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' PERSONA_CONTAC' +
'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' + 'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' +
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' + 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
'NO = :TELEFONO,'#10' MOVIL = :MOVIL'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
'NTRATO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1855,6 +1879,12 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'ContratosCliente_ID_DIRECCION' Name = 'ContratosCliente_ID_DIRECCION'
DataType = datInteger DataType = datInteger
end
item
Name = 'ContratosCliente_TIPO_CONTRATO'
DataType = datString
Size = 255
DisplayLabel = 'Tipo'
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

100
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -187,6 +187,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -207,91 +211,72 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitHeight = 242 ExplicitHeight = 242
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 831 Width = 831
Height = 24
ExplicitWidth = 831 ExplicitWidth = 831
ExplicitHeight = 24 inherited ToolButton4: TToolButton
Wrap = True
end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 0
Top = 22
Wrap = False Wrap = False
ExplicitLeft = 0
ExplicitTop = 22
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 368 Left = 34
Top = 0 ExplicitLeft = 34
ExplicitLeft = 368
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 513 Left = 179
Top = 0
Width = 74 Width = 74
ExplicitLeft = 513 ExplicitLeft = 179
ExplicitTop = 0
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 587 Left = 253
Top = 0 ExplicitLeft = 253
ExplicitLeft = 587
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 604 Left = 270
Top = 0 ExplicitLeft = 270
ExplicitLeft = 604
ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 612 Left = 278
Top = 0 ExplicitLeft = 278
ExplicitLeft = 612
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 646 Left = 312
Top = 0 ExplicitLeft = 312
ExplicitLeft = 646
ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 680 Left = 346
Top = 0 ExplicitLeft = 346
ExplicitLeft = 680
ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 714 Left = 380
Top = 0 ExplicitLeft = 380
ExplicitLeft = 714
ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 722 Left = 388
Top = 0 ExplicitLeft = 388
ExplicitLeft = 722
ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 756 Left = 422
Top = 0 ExplicitLeft = 422
ExplicitLeft = 756
ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 790 Left = 456
Top = 0 ExplicitLeft = 456
ExplicitLeft = 790
ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50
Width = 831 Width = 831
Height = 192 Height = 170
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 273 ExplicitHeight = 273
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24
Width = 831 Width = 831
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 834
@ -310,6 +295,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -386,10 +375,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 845 Width = 845
ExplicitWidth = 845 ExplicitWidth = 845
inherited lbComentario: TLabel
Width = 835
Height = 25
end
end end
inline frViewTotales1: TfrViewTotales [5] inline frViewTotales1: TfrViewTotales [5]
Left = 0 Left = 0
@ -503,15 +488,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
end
end
end
end end
end end
end end

6
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -54,7 +54,7 @@ type
var Error: Boolean); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor. var Error: Boolean); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor.
private private
procedure RecalcularPortePorUnidad; //procedure RecalcularPortePorUnidad;
protected protected
FContrato: IBizContratoCliente; FContrato: IBizContratoCliente;
@ -351,14 +351,14 @@ begin
FController.Preview(FContrato); FController.Preview(FContrato);
end; end;
procedure TfEditorContratoCliente.RecalcularPortePorUnidad; {procedure TfEditorContratoCliente.RecalcularPortePorUnidad;
begin begin
//Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento //Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento
//no puede ir en la clase de negocio porque no es una lógica que tenga sentido fuera del editor. //no puede ir en la clase de negocio porque no es una lógica que tenga sentido fuera del editor.
if Assigned(Controller) if Assigned(Controller)
and Assigned(Controller.DetallesController) then and Assigned(Controller.DetallesController) then
Controller.DetallesController.DesglosarPorteDetalles(FContrato.IMPORTE_PORTE, FContrato.Detalles) Controller.DetallesController.DesglosarPorteDetalles(FContrato.IMPORTE_PORTE, FContrato.Detalles)
end; end;}
procedure TfEditorContratoCliente.SetController(const Value: IContratosClienteController); procedure TfEditorContratoCliente.SetController(const Value: IContratosClienteController);
begin begin

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

@ -39,10 +39,10 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 260 Width = 129
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 374 Left = 377
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 = 9 TabOrder = 10
Height = 200 Height = 200
Width = 507 Width = 507
end end
@ -115,16 +115,16 @@ 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 = 3 TabOrder = 4
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 212 Left = 215
Top = 109 Top = 109
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 4 TabOrder = 5
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
@ -150,11 +150,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 = 2 TabOrder = 3
Width = 260 Width = 260
end end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 374 Left = 377
Top = 28 Top = 28
Width = 127 Width = 127
Height = 225 Height = 225
@ -164,9 +164,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 374 ExplicitLeft = 377
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 127 ExplicitWidth = 127
ExplicitHeight = 225 ExplicitHeight = 225
@ -184,24 +184,24 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 103 Width = 103
end end
inherited bVerFichaCliente: TBitBtn inherited bVerFichaCliente: TBitBtn
Left = 212 Left = 209
ExplicitLeft = 212 ExplicitLeft = 209
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 = 381 Left = 378
ExplicitLeft = 381 ExplicitLeft = 378
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 = 268 Left = 267
ExplicitLeft = 268 ExplicitLeft = 267
ExplicitWidth = 103 ExplicitWidth = 103
Width = 103 Width = 103
end end
@ -225,7 +225,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 = 6 TabOrder = 7
Height = 100 Height = 100
Width = 396 Width = 396
end end
@ -247,7 +247,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 = 7 TabOrder = 8
Height = 100 Height = 100
Width = 396 Width = 396
end end
@ -278,9 +278,34 @@ 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 = 5 TabOrder = 6
Width = 27 Width = 27
end end
object cbTipoPresupuesto: TcxDBComboBox
Left = 271
Top = 55
DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.Items.Strings = (
'Cocina'
'Ba'#241'o'
'Armarios'
'Electrodom'#233'sticos'
'Varios')
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 113
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -303,12 +328,29 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Control = eReferencia Control = eReferencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'Fecha contrato:' ShowCaption = False
Control = edtFechaContrato Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha contrato:'
Control = edtFechaContrato
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Tipo contrato:'
Control = cbTipoPresupuesto
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item10: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Situaci'#243'n:' Caption = 'Situaci'#243'n:'
Control = cbSituacion Control = cbSituacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False

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

@ -61,6 +61,9 @@ type
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
cbVendedor: TcxDBLookupComboBox; cbVendedor: TcxDBLookupComboBox;
dsVendedor: TDADataSource; dsVendedor: TDADataSource;
dxLayoutControl1Item7: TdxLayoutItem;
cbTipoPresupuesto: TcxDBComboBox;
dxLayoutControl1Group11: 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);

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

@ -68,6 +68,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
SortOrder = soDescending SortOrder = soDescending
Width = 58 Width = 58
end end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO'
BestFitMaxWidth = 25
Width = 55
end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n' Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
@ -121,27 +126,15 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903 Width = 903
ExplicitWidth = 903 ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 806
Width = 806 Width = 806
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 504 ExplicitWidth = 504
Width = 504 Width = 504

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

@ -39,6 +39,7 @@ type
cxGridViewNIF_CIF: TcxGridDBColumn; cxGridViewNIF_CIF: TcxGridDBColumn;
cxGridViewINCIDENCIAS: TcxGridDBColumn; cxGridViewINCIDENCIAS: TcxGridDBColumn;
cxStyleRECHAZADO: TcxStyle; cxStyleRECHAZADO: TcxStyle;
cxGridViewTIPO_CONTRATO: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

22
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -43,6 +43,10 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -52,21 +56,21 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk"> <DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Views\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\Views\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\Views\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\Views\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\Views\dbrtl.dcp" />
<DCCReference Include="..\Views\dsnap.dcp" />
<DCCReference Include="..\Views\rtl.dcp" />
<DCCReference Include="..\Views\vcl.dcp" />
<DCCReference Include="..\Views\vcldb.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="uBizDetallesPresupuestoCliente.pas" /> <DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
<DCCReference Include="uBizPresupuestosCliente.pas" /> <DCCReference Include="uBizPresupuestosCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -117,6 +117,7 @@ begin
AContrato.RECARGO_EQUIVALENCIA := APresupuesto.RECARGO_EQUIVALENCIA; AContrato.RECARGO_EQUIVALENCIA := APresupuesto.RECARGO_EQUIVALENCIA;
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;
end; end;
procedure CopiarDetallesAContrato( procedure CopiarDetallesAContrato(

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.4.2.0\0" VALUE "FileVersion", "2.4.2.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.4.2.0\0" VALUE "ProductVersion", "2.4.2.0\0"
VALUE "CompileDate", "sábado, 24 de abril de 2010 18:00\0" VALUE "CompileDate", "domingo, 25 de abril de 2010 16:31\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"