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

Version 5.0 (SE bifurca acana y estudio

Browse Source
This commit is contained in:
roberto 2025-02-26 10:43:21 +01:00
parent 73d8135f26
commit 267014df42
52 changed files with 3960 additions and 1200 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Cliente/FactuGES.dproj
View File

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

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,0,0,0 FILEVERSION 5,0,0,0
PRODUCTVERSION 4,0,0,0 PRODUCTVERSION 5,0,0,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", "4.0.0.0\0" VALUE "FileVersion", "5.0.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.0.0.0\0" VALUE "ProductVersion", "5.0.0.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="$(SystemRoot)\system32\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

13
Source/GUIBase/uEditorDBItem.dfm
View File

@ -10,7 +10,7 @@ inherited fEditorDBItem: TfEditorDBItem
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 650 Width = 650
ExplicitTop = 49 ExplicitTop = 51
ExplicitWidth = 650 ExplicitWidth = 650
inherited Image1: TImage inherited Image1: TImage
Left = 623 Left = 623
@ -54,7 +54,7 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 650 Width = 650
ExplicitWidth = 650 ExplicitWidth = 650
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 605 ExplicitWidth = 647
inherited TBXItem26: TTBXItem inherited TBXItem26: TTBXItem
Visible = False Visible = False
end end
@ -110,12 +110,14 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 109 Top = 111
Width = 644 Width = 644
Height = 328 Height = 326
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 109
ExplicitHeight = 328
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0 ExplicitLeft = 0
@ -126,7 +128,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
object PnlComentario: TPanel [4] object PnlComentario: TPanel [4]
Left = 0 Left = 0
Top = 76 Top = 78
Width = 650 Width = 650
Height = 30 Height = 30
Align = alTop Align = alTop
@ -136,6 +138,7 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
VerticalAlignment = taAlignTop VerticalAlignment = taAlignTop
ExplicitTop = 76
object lbComentario: TLabel object lbComentario: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 6 Left = 6

12
Source/GUIBase/uEditorGridBase.dfm
View File

@ -5,8 +5,8 @@ inherited fEditorGridBase: TfEditorGridBase
ClientHeight = 444 ClientHeight = 444
ClientWidth = 543 ClientWidth = 543
OnDestroy = CustomEditorDestroy OnDestroy = CustomEditorDestroy
ExplicitWidth = 551 ExplicitWidth = 559
ExplicitHeight = 478 ExplicitHeight = 482
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -22,10 +22,10 @@ inherited fEditorGridBase: TfEditorGridBase
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 27 Top = 27
Width = 543 Width = 543
Height = 75 Height = 78
ExplicitTop = 27 ExplicitTop = 27
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 75 ExplicitHeight = 78
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
DockPos = 0 DockPos = 0
DragHandleStyle = dhDouble DragHandleStyle = dhDouble
@ -76,7 +76,7 @@ inherited fEditorGridBase: TfEditorGridBase
end end
object tbxFiltro: TTBXToolbar [1] object tbxFiltro: TTBXToolbar [1]
Left = 0 Left = 0
Top = 49 Top = 51
Align = alRight Align = alRight
CloseButton = False CloseButton = False
DefaultDock = TBXDock DefaultDock = TBXDock
@ -180,7 +180,7 @@ inherited fEditorGridBase: TfEditorGridBase
end end
object TBXTMain2: TTBXToolbar object TBXTMain2: TTBXToolbar
Left = 334 Left = 334
Top = 49 Top = 51
Caption = 'tbxMain' Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|' ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks DockMode = dmCannotFloatOrChangeDocks

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

Binary file not shown.

43
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -46,6 +46,9 @@
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -56,28 +59,40 @@
<DelphiCompile Include="Contactos_controller.dpk"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="Contabilidad_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="Contactos_data.dcp" /> <DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
<DCCReference Include="designide.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" /> <DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
<DCCReference Include="uClientesController.pas" /> <DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" /> <DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" /> <DCCReference Include="uDireccionesContactoController.pas" />
<DCCReference Include="uGruposClienteController.pas" /> <DCCReference Include="uGruposClienteController.pas" />
<DCCReference Include="uGruposProveedorController.pas" /> <DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uInstaladoresController.pas" />
<DCCReference Include="uListadosContactosReportController.pas" /> <DCCReference Include="uListadosContactosReportController.pas" />
<DCCReference Include="uPersonalContactoController.pas" /> <DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProcedenciasClienteController.pas" /> <DCCReference Include="uProcedenciasClienteController.pas" />
<DCCReference Include="uProveedoresController.pas" /> <DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="uVendedoresController.pas" /> <DCCReference Include="uVendedoresController.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="View\uIEditorCliente.pas" /> <DCCReference Include="View\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" /> <DCCReference Include="View\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" /> <DCCReference Include="View\uIEditorContacto.pas" />
@ -86,11 +101,14 @@
<DCCReference Include="View\uIEditorElegirClientes.pas" /> <DCCReference Include="View\uIEditorElegirClientes.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" /> <DCCReference Include="View\uIEditorElegirContactos.pas" />
<DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" /> <DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
<DCCReference Include="View\uIEditorElegirInstaladores.pas" />
<DCCReference Include="View\uIEditorElegirPersonaContacto.pas" /> <DCCReference Include="View\uIEditorElegirPersonaContacto.pas" />
<DCCReference Include="View\uIEditorElegirProveedores.pas" /> <DCCReference Include="View\uIEditorElegirProveedores.pas" />
<DCCReference Include="View\uIEditorElegirVendedores.pas" /> <DCCReference Include="View\uIEditorElegirVendedores.pas" />
<DCCReference Include="View\uIEditorGruposCliente.pas" /> <DCCReference Include="View\uIEditorGruposCliente.pas" />
<DCCReference Include="View\uIEditorGruposProveedor.pas" /> <DCCReference Include="View\uIEditorGruposProveedor.pas" />
<DCCReference Include="View\uIEditorInstalador.pas" />
<DCCReference Include="View\uIEditorInstaladores.pas" />
<DCCReference Include="View\uIEditorListadosContactosPreview.pas" /> <DCCReference Include="View\uIEditorListadosContactosPreview.pas" />
<DCCReference Include="View\uIEditorPersonalContacto.pas" /> <DCCReference Include="View\uIEditorPersonalContacto.pas" />
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" /> <DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
@ -98,7 +116,6 @@
<DCCReference Include="View\uIEditorProveedores.pas" /> <DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\uIEditorVendedor.pas" /> <DCCReference Include="View\uIEditorVendedor.pas" />
<DCCReference Include="View\uIEditorVendedores.pas" /> <DCCReference Include="View\uIEditorVendedores.pas" />
<DCCReference Include="xmlrtl.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" /> <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>

16
Source/Modulos/Contactos/Data/Contactos_data.dpk
View File

@ -30,12 +30,24 @@ requires
Base, Base,
GUIBase, GUIBase,
ApplicationBase, ApplicationBase,
Contactos_model; Contactos_model,
dbrtl,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
RemObjects_Core_D11,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
vclx;
contains contains
uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule}, uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule}, uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule},
uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule}, uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule},
uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule}; uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule},
uDataModuleInstaladores in 'uDataModuleInstaladores.pas' {DataModuleInstaladores: TDAClientDataModule};
end. end.

27
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,12 +49,23 @@
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form> <Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
@ -63,6 +74,10 @@
<Form>DataModuleContactos</Form> <Form>DataModuleContactos</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleInstaladores.pas">
<Form>DataModuleInstaladore</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uDataModuleProveedores.pas"> <DCCReference Include="uDataModuleProveedores.pas">
<Form>DataModuleProveedores</Form> <Form>DataModuleProveedores</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

BIN
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

Binary file not shown.

31
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,24 +49,25 @@
<DelphiCompile Include="Contactos_model.dpk"> <DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\FormasPago_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\FormasPago_model.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\TiposIVA_model.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" /> <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleClientes.pas" /> <DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleInstaladores.pas" />
<DCCReference Include="Data\uIDataModuleListadosContactosReport.pas" /> <DCCReference Include="Data\uIDataModuleListadosContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" /> <DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\uIDataModuleVendedores.pas" /> <DCCReference Include="Data\uIDataModuleVendedores.pas" />

988
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

1184
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

18
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -12,6 +12,7 @@ const
BIZ_CLIENT_CLIENTE = 'Client.Cliente'; BIZ_CLIENT_CLIENTE = 'Client.Cliente';
BIZ_CLIENT_PROVEEDOR = 'Client.Proveedor'; BIZ_CLIENT_PROVEEDOR = 'Client.Proveedor';
BIZ_CLIENT_VENDEDOR = 'Client.Vendedor'; BIZ_CLIENT_VENDEDOR = 'Client.Vendedor';
BIZ_CLIENT_INSTALADOR = 'Client.Instalador';
CATEGORIA_CLIENTE = 1; CATEGORIA_CLIENTE = 1;
CATEGORIA_PROVEEDOR = 2; CATEGORIA_PROVEEDOR = 2;
@ -204,6 +205,10 @@ type
property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
end; end;
IBizInstalador = interface (IBizContacto)
['{3E3121B9-FE13-4A3D-B767-2890FB31E38A}']
end;
TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable) TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable)
protected protected
FDatosBancarios : IBizContactosDatosBancarios; FDatosBancarios : IBizContactosDatosBancarios;
@ -413,6 +418,10 @@ type
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
end; end;
TBizInstalador = class(TBizContacto, IBizInstalador)
public
procedure IniciarValoresContactoNuevo; override;
end;
TBizVendedor = class(TBizContacto, IBizVendedor) TBizVendedor = class(TBizContacto, IBizVendedor)
protected protected
@ -1001,11 +1010,20 @@ begin
DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger := aValue; DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger := aValue;
end; end;
{ TBizInstalador }
procedure TBizInstalador.IniciarValoresContactoNuevo;
begin
inherited;
ID_CATEGORIA := CATEGORIA_INSTALADOR;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_CONTACTO, TBizContacto); RegisterDataTableRules(BIZ_CLIENT_CONTACTO, TBizContacto);
RegisterDataTableRules(BIZ_CLIENT_CLIENTE, TBizCliente); RegisterDataTableRules(BIZ_CLIENT_CLIENTE, TBizCliente);
RegisterDataTableRules(BIZ_CLIENT_PROVEEDOR, TBizProveedor); RegisterDataTableRules(BIZ_CLIENT_PROVEEDOR, TBizProveedor);
RegisterDataTableRules(BIZ_CLIENT_VENDEDOR, TBizVendedor); RegisterDataTableRules(BIZ_CLIENT_VENDEDOR, TBizVendedor);
RegisterDataTableRules(BIZ_CLIENT_INSTALADOR, TBizInstalador);
finalization finalization

10
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -299,6 +299,12 @@ object PluginContactos: TPluginContactos
ImageIndex = 6 ImageIndex = 6
OnExecute = actProcedenciasClienteExecute OnExecute = actProcedenciasClienteExecute
end end
object actInstaladores: TAction
Category = 'Empresa'
Caption = 'Alba'#241'iles / Instaladores'
ImageIndex = 4
OnExecute = actInstaladoresExecute
end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
Images = SmallImages Images = SmallImages
@ -311,6 +317,10 @@ object PluginContactos: TPluginContactos
Action = actVendedores Action = actVendedores
SubMenuImages = SmallImages SubMenuImages = SmallImages
end end
object Instaladores1: TMenuItem
Tag = 103
Action = actInstaladores
end
end end
object Da1: TMenuItem object Da1: TMenuItem
Caption = 'Datos' Caption = 'Datos'

15
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -32,6 +32,8 @@ type
actProcedenciasCliente: TAction; actProcedenciasCliente: TAction;
Procedenciasdecliente1: TMenuItem; Procedenciasdecliente1: TMenuItem;
Empresas1: TMenuItem; Empresas1: TMenuItem;
actInstaladores: TAction;
Instaladores1: TMenuItem;
procedure actClientesExecute(Sender: TObject); procedure actClientesExecute(Sender: TObject);
procedure actProveedoresExecute(Sender: TObject); procedure actProveedoresExecute(Sender: TObject);
procedure actVendedoresExecute(Sender: TObject); procedure actVendedoresExecute(Sender: TObject);
@ -41,6 +43,7 @@ type
function GetVistaConfiguracion : TClass; function GetVistaConfiguracion : TClass;
function GetEtiquetaConfiguracion : String; function GetEtiquetaConfiguracion : String;
procedure actVendedoresUpdate(Sender: TObject); procedure actVendedoresUpdate(Sender: TObject);
procedure actInstaladoresExecute(Sender: TObject);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -56,7 +59,7 @@ uses
uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente, uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente,
uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente, uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente,
uContactosViewRegister, uBizContactos, uViewConfiguracionContactos, uContactosViewRegister, uBizContactos, uViewConfiguracionContactos,
uFactuGES_App; uFactuGES_App, uInstaladoresController;
function GetModule : TModuleController; function GetModule : TModuleController;
begin begin
@ -104,6 +107,16 @@ begin
AGruposProveedorController.VerTodos(AGruposProveedor); AGruposProveedorController.VerTodos(AGruposProveedor);
end; end;
procedure TPluginContactos.actInstaladoresExecute(Sender: TObject);
var
AInstaladoresController : IInstaladoresController;
AInstaladores : IBizInstalador;
begin
AInstaladoresController := TInstaladoresController.Create;
AInstaladores := (AInstaladoresController.BuscarTodos as IBizInstalador);
AInstaladoresController.VerTodos(AInstaladores);
end;
procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject); procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject);
var var
AProcedenciasClienteController : IProcedenciasClienteController; AProcedenciasClienteController : IProcedenciasClienteController;

393
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -523,6 +523,266 @@ object srvContactos: TsrvContactos
DictionaryEntry = 'Contactos_TIENDA' DictionaryEntry = 'Contactos_TIENDA'
end> end>
end end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_INSTALADORES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
end
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
end>
end>
Name = 'Instaladores'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Instaladores_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
DictionaryEntry = 'Instaladores_ID_CATEGORIA'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'Instaladores_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'Instaladores_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DictionaryEntry = 'Instaladores_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DictionaryEntry = 'Instaladores_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
DictionaryEntry = 'Instaladores_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
DictionaryEntry = 'Instaladores_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DictionaryEntry = 'Instaladores_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
DictionaryEntry = 'Instaladores_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Instaladores_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Instaladores_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
DictionaryEntry = 'Instaladores_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Instaladores_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_REFERENCIA'
end
item
Name = 'ID_TIENDA'
DataType = datInteger
DictionaryEntry = 'Instaladores_ID_TIENDA'
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
DictionaryEntry = 'Instaladores_TIENDA'
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -5059,6 +5319,127 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Persona de contacto' DisplayLabel = 'Persona de contacto'
end
item
Name = 'Instaladores_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'Instaladores_ID_CATEGORIA'
DataType = datInteger
end
item
Name = 'Instaladores_NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'Instaladores_NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_CALLE'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_POBLACION'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'Instaladores_TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'Instaladores_TELEFONO_2'
DataType = datString
Size = 25
end
item
Name = 'Instaladores_MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'Instaladores_MOVIL_2'
DataType = datString
Size = 25
end
item
Name = 'Instaladores_FAX'
DataType = datString
Size = 25
end
item
Name = 'Instaladores_EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_EMAIL_2'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_NOTAS'
DataType = datMemo
end
item
Name = 'Instaladores_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'Instaladores_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Instaladores_USUARIO'
DataType = datString
Size = 30
end
item
Name = 'Instaladores_ID_EMPRESA'
DataType = datInteger
end
item
Name = 'Instaladores_REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'Instaladores_ID_TIENDA'
DataType = datInteger
end
item
Name = 'Instaladores_TIENDA'
DataType = datString
Size = 255
end> end>
Left = 126 Left = 126
Top = 14 Top = 14
@ -5176,4 +5557,16 @@ object srvContactos: TsrvContactos
Left = 224 Left = 224
Top = 143 Top = 143
end end
object bpInstaladores: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
RefreshDatasetName = 'Contactos_Refresh'
ReferencedDataset = 'Instaladores'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 88
Top = 287
end
end end

4
Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -34,6 +34,7 @@ type
bpSubCuentasContacto: TDABusinessProcessor; bpSubCuentasContacto: TDABusinessProcessor;
schContactos: TDASchema; schContactos: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
bpInstaladores: TDABusinessProcessor;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
const IncludeSchema: Boolean; const MaxRecords: Integer); const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
@ -53,7 +54,7 @@ uses
uDataModuleServer, uDatabaseUtils, uUsersManager, uDataModuleServer, uDatabaseUtils, uUsersManager,
schContactosClient_Intf, uBizVendedoresServer, schContactosClient_Intf, uBizVendedoresServer,
uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils, uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils,
uRptListadosContactos_Server; uBizInstaladoresServer, uRptListadosContactos_Server;
procedure Create_srvContactos(out anInstance : IUnknown); procedure Create_srvContactos(out anInstance : IUnknown);
begin begin
@ -83,6 +84,7 @@ begin
bpVendedores.BusinessRulesID := BIZ_SERVER_VENDEDOR; bpVendedores.BusinessRulesID := BIZ_SERVER_VENDEDOR;
bpClientes.BusinessRulesID := BIZ_SERVER_CLIENTE; bpClientes.BusinessRulesID := BIZ_SERVER_CLIENTE;
bpProveedores.BusinessRulesID := BIZ_SERVER_PROVEEDOR; bpProveedores.BusinessRulesID := BIZ_SERVER_PROVEEDOR;
bpInstaladores.BusinessRulesID := BIZ_SERVER_INSTALADOR;
end; end;
function TsrvContactos.DarTiendaDeUsuario(const ID_Empresa: Integer; function TsrvContactos.DarTiendaDeUsuario(const ID_Empresa: Integer;

543
Source/Modulos/Contactos/Views/Contactos_view.bdsproj
View File

@ -1,543 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">Delphi.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{3A12FF5E-75C6-4E1E-BC5C-B6B9010BA595}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource">Contactos_view.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">8</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">0</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">0</Compiler>
<Compiler Name="R">0</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix"></Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">False</Compiler>
<Compiler Name="UnsafeCode">False</Compiler>
<Compiler Name="UnsafeCast">False</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
<Compiler Name="CodePage"></Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">3</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="GenerateHpps">False</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">False</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">16384</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription"></Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir">.\</Directories>
<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
<Directories Name="Packages"></Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="Debug Symbols Search Path"></Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<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:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxComnD10.bpl">ExpressCommonLibrary by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxLibraryD10.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxThemeD10.bpl">Express XP Theme Manager by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxEditorsD10.bpl">ExpressEditors Library 5 by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxDataD10.bpl">ExpressDataController by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxExtEditorsD10.bpl">ExpressExtendedEditors Library 5 by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxGridD10.bpl">ExpressQuantumGrid 5 by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxPageControlD10.bpl">Express Cross Platform PageControl by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxExportD10.bpl">Express Cross Platform Export Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxSchedulerD10.bpl">ExpressScheduler 2 by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxTreeListD10.bpl">ExpressQuantumTreeList 4 by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxVerticalGridD10.bpl">ExpressVerticalGrid by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxDockingD10.bpl">ExpressDocking Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxLayoutControlD10.bpl">ExpressLayout Control by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxNavBarD10.bpl">ExpressNavBar by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvAppFrmD10R.bpl">JVCL Application and Form Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvCoreD10R.bpl">JVCL Core Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\Jcl100.bpl">JEDI Code Library RTL package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JclVcl100.bpl">JEDI Code Library VCL package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvSystemD10R.bpl">JVCL System Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvStdCtrlsD10R.bpl">JVCL Standard Controls Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvBandsD10R.bpl">JVCL Band Objects Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvBDED10R.bpl">JVCL BDE Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvCtrlsD10R.bpl">JVCL Controls Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvCmpD10R.bpl">JVCL Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvDotNetCtrlsD10R.bpl">JVCL DotNet Controls Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvEDID10R.bpl">JVCL EDI Components</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvGlobusD10R.bpl">JVCL Globus Components</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvHMID10R.bpl">JVCL HMI Controls runtime package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvInterpreterD10R.bpl">JVCL Interpreter Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvJansD10R.bpl">JVCL Jans Components</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvManagedThreadsD10R.bpl">JVCL Managed Threads - runtime package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvMMD10R.bpl">JVCL Multimedia and Image Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvNetD10R.bpl">JVCL Network Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvPageCompsD10R.bpl">JVCL Page Style Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvPluginD10R.bpl">JVCL Plugin Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvPrintPreviewD10R.bpl">JVCL Print Preview Components</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvRuntimeDesignD10R.bpl">JVCL Runtime Design Components Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvTimeFrameworkD10R.bpl">JVCL Time Framework</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvValidatorsD10R.bpl">JVCL Validators and Error Indicator Components</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvWizardD10R.bpl">JVCL Wizard Run Time Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvXPCtrlsD10R.bpl">JVCL XP Controls Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\PluginSDK_D10R.bpl">(untitled)</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=0
Freeze Message=The application seems to be frozen.
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
Show TerminateBtn=1
TerminateBtn Operation=1
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=1
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesSection=1
loSaveCPUSection=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soExcDate=1
soExcAddress=1
soExcModule=1
soExcType=1
soExcMessage=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpUser=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=0
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndCompressAllFiles=0
edoShowExceptionDialog=1
edoSendEmailChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=1
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoShowProcedureOffset=0
boActivateCrashDetection=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_CustomDataCaption=1
mtDialog_CustomDataCaption0="Other"
Count mtDialog_CustomDataHeader=1
mtDialog_CustomDataHeader0="Other Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModule=1
mtLog_ExcModule0="Module"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpUser=1
mtLog_CmpUser0="User"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
EurekaLog Last Line -->
</BorlandProject>

32
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -59,7 +59,29 @@ requires
designide, designide,
xmlrtl, xmlrtl,
vclactnband, vclactnband,
GestorInformes_controller; GestorInformes_controller,
dxCoreD11,
cxGridD11,
cxPageControlD11,
cxExtEditorsD11,
cxExportD11,
dxPSCoreD11,
dxComnD11,
dxPScxCommonD11,
dxPSLnksD11,
vclshlctrls,
dxPScxGrid6LnkD11,
dclcxLibraryD11,
dcldxCoreD11,
PngComponentsD10,
PNG_D10,
tb2k_d10,
tbx_d10,
dxLayoutControlD11,
JSDialog100,
JvStdCtrlsD11R,
JvPageCompsD11R,
JvCtrlsD11R;
contains contains
uContactosViewRegister in 'uContactosViewRegister.pas', uContactosViewRegister in 'uContactosViewRegister.pas',
@ -99,6 +121,12 @@ contains
uViewConfiguracionContactos in 'uViewConfiguracionContactos.pas' {frViewConfiguracionContactos}, uViewConfiguracionContactos in 'uViewConfiguracionContactos.pas' {frViewConfiguracionContactos},
uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor}, uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor},
uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TCustomEditor}, uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TCustomEditor},
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor}; uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor},
uViewInstaladores in 'uViewInstaladores.pas' {frViewInstaladores: TFrame},
uViewInstalador in 'uViewInstalador.pas' {frViewInstalador: TFrame},
uEditorInstaladores in 'uEditorInstaladores.pas' {fEditorInstaladores: TCustomEditor},
uEditorInstalador in 'uEditorInstalador.pas' {fEditorInstalador: TCustomEditor},
uEditorElegirInstaladores in 'uEditorElegirInstaladores.pas' {fEditorElegirInstaladores: TCustomEditor},
uViewDatosYSeleccionInstalador in 'uViewDatosYSeleccionInstalador.pas' {frViewDatosYSeleccionInstalador: TFrame};
end. end.

116
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -47,41 +47,63 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contratos de cliente\adortl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" /> <DCCReference Include="$(SystemRoot)\system32\ApplicationBase.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Base.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
<DCCReference Include="..\..\Contratos de cliente\bdertl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\bdertl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Contactos_controller.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Contactos_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Contactos_model.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Contactos_model.dcp" />
<DCCReference Include="..\..\Contratos de cliente\cxDataD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\cxEditorsD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dbrtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\designide.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dsnap.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\FormasPago_controller.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\FormasPago_model.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dcldxCoreD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GestorInformes_controller.dcp" /> <DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GUISDK_D11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxComnD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Jcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxCoreD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JclVcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JvCoreD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JvGlobusD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JvSystemD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\rtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\TiposIVA_controller.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\TiposIVA_model.dcp" /> <DCCReference Include="$(SystemRoot)\system32\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\FormasPago_model.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vclactnband.dcp" /> <DCCReference Include="$(SystemRoot)\system32\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcldb.dcp" /> <DCCReference Include="$(SystemRoot)\system32\GUIBase.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcljpg.dcp" /> <DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vclx.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\xmlrtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JSDialog100.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvGlobusD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\TiposIVA_controller.dcp" />
<DCCReference Include="$(SystemRoot)\system32\TiposIVA_model.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclshlctrls.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
<DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>
@ -110,6 +132,10 @@
<Form>fEditorElegirDireccionEntrega</Form> <Form>fEditorElegirDireccionEntrega</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirInstaladores.pas">
<Form>fEditorElegirInstaladores</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirPersonaContacto.pas"> <DCCReference Include="uEditorElegirPersonaContacto.pas">
<Form>fEditorElegirPersonaContacto</Form> <Form>fEditorElegirPersonaContacto</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
@ -130,6 +156,14 @@
<Form>fEditorGruposProveedor</Form> <Form>fEditorGruposProveedor</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInstalador.pas">
<Form>fEditorInstalador</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInstaladores.pas">
<Form>fEditorInstaladores</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorListadosContactosReport.pas"> <DCCReference Include="uEditorListadosContactosReport.pas">
<Form>fEditorListadosContactosPreview</Form> <Form>fEditorListadosContactosPreview</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
@ -193,6 +227,10 @@
<Form>frViewDatosYSeleccionCliente</Form> <Form>frViewDatosYSeleccionCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewDatosYSeleccionInstalador.pas">
<Form>frViewInstalador</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionProveedor.pas"> <DCCReference Include="uViewDatosYSeleccionProveedor.pas">
<Form>frViewDatosYSeleccionProveedor</Form> <Form>frViewDatosYSeleccionProveedor</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -201,6 +239,14 @@
<Form>frViewDireccionesEntrega</Form> <Form>frViewDireccionesEntrega</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewInstalador.pas">
<Form>frViewInstalador</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewInstaladores.pas">
<Form>frViewInstaladores</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPersonalContacto.pas"> <DCCReference Include="uViewPersonalContacto.pas">
<Form>frViewPersonalContacto</Form> <Form>frViewPersonalContacto</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>

5
Source/Modulos/Contactos/Views/uContactosViewRegister.pas
View File

@ -16,21 +16,24 @@ uses
uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente, uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente,
uEditorGruposProveedor, uEditorListadosContactosReport, uEditorGruposProveedor, uEditorListadosContactosReport,
uViewConfiguracionContactos, uEditorPersonal, uEditorElegirPersonaContacto, uViewConfiguracionContactos, uEditorPersonal, uEditorElegirPersonaContacto,
uEditorElegirDireccionEntrega; uEditorElegirDireccionEntrega, uEditorInstaladores, uEditorInstalador, uEditorElegirInstaladores;
procedure RegisterViews; procedure RegisterViews;
begin begin
EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes'); EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes');
EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores'); EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores');
EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores'); EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores');
EditorRegistry.RegisterClass(TfEditorInstaladores, 'EditorInstaladores');
EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente'); EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente');
EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor'); EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor');
EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor'); EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor');
EditorRegistry.RegisterClass(TfEditorInstalador, 'EditorInstalador');
EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes'); EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes');
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores'); EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores'); EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores');
EditorRegistry.RegisterClass(TfEditorElegirInstaladores, 'EditorElegirInstaladores');
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion'); EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega'); EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');

42
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -19,12 +19,18 @@ inherited fEditorContacto: TfEditorContacto
Left = 922 Left = 922
ExplicitLeft = 607 ExplicitLeft = 607
end end
inherited lblDesbloquear: TcxLabel
Left = 824
ExplicitLeft = 824
AnchorX = 869
AnchorY = 14
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 949 Width = 949
ExplicitWidth = 949 ExplicitWidth = 949
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 423 ExplicitWidth = 347
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -86,17 +92,17 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 943 Width = 943
Height = 599 Height = 606
ExplicitWidth = 943 ExplicitWidth = 943
ExplicitHeight = 599 ExplicitHeight = 599
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 571 ExplicitHeight = 578
inline frViewPersonalContacto1: TfrViewPersonalContacto inline frViewPersonalContacto1: TfrViewPersonalContacto
Left = 0 Left = 0
Top = 368 Top = 375
Width = 935 Width = 935
Height = 203 Height = 203
Align = alBottom Align = alBottom
@ -108,7 +114,7 @@ inherited fEditorContacto: TfEditorContacto
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitTop = 368 ExplicitTop = 375
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 203 ExplicitHeight = 203
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -120,6 +126,18 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 935 Width = 935
ExplicitWidth = 935 ExplicitWidth = 935
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -130,7 +148,7 @@ inherited fEditorContacto: TfEditorContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 935 Width = 935
Height = 571 Height = 578
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -141,7 +159,7 @@ inherited fEditorContacto: TfEditorContacto
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 571 ExplicitHeight = 578
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 935 Width = 935
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
@ -182,6 +200,10 @@ inherited fEditorContacto: TfEditorContacto
object pagPersonal: TTabSheet object pagPersonal: TTabSheet
Caption = 'Observaciones' Caption = 'Observaciones'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object memObservaciones22: TcxDBMemo object memObservaciones22: TcxDBMemo
Left = 0 Left = 0
Top = 0 Top = 0
@ -194,7 +216,7 @@ inherited fEditorContacto: TfEditorContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Height = 571 Height = 578
Width = 935 Width = 935
end end
end end
@ -202,10 +224,6 @@ inherited fEditorContacto: TfEditorContacto
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 949 Width = 949
ExplicitWidth = 949 ExplicitWidth = 949
inherited lbComentario: TLabel
Width = 939
Height = 25
end
end end
inherited dsDataTable: TDADataSource [5] inherited dsDataTable: TDADataSource [5]
Left = 168 Left = 168

2
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -15,7 +15,7 @@ uses
uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls, uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
uDAInterfaces, uViewPersonalContacto, uViewDetallesGenerico, cxControls, uDAInterfaces, uViewPersonalContacto, uViewDetallesGenerico, cxControls,
cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit; cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxLabel;
type type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto) TfEditorContacto = class(TfEditorDBItem, IEditorContacto)

5
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -10,11 +10,8 @@ inherited fEditorContactos: TfEditorContactos
Caption = 'Lista de contactos' Caption = 'Lista de contactos'
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 543
end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 194 ExplicitWidth = 195
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical] EditOptions = [tboUseEditWhenVertical]
end end

66
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -8,7 +8,7 @@ uses
uControllerBase, uIDataModuleContratosCliente, uClientesController, uControllerBase, uIDataModuleContratosCliente, uClientesController,
uDetallesContratoClienteController, uGestorDocumentosController, uDetallesContratoClienteController, uGestorDocumentosController,
uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente, uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente,
uIntegerListUtils; uIntegerListUtils, uBizContactos;
type type
TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios); TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios);
@ -63,6 +63,7 @@ type
function DarListaAnosContratos: TStringList; function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente); procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
@ -70,6 +71,7 @@ type
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente); procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
end; end;
TContratosClienteController = class(TControllerBase, IContratosClienteController) TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -143,6 +145,7 @@ type
function DarListaAnosContratos: TStringList; function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente); procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
@ -150,6 +153,8 @@ type
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente); procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
end; end;
implementation implementation
@ -157,7 +162,7 @@ implementation
uses uses
Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorContratosCliente, uDataModuleContratosCliente, Variants, uIEditorContratosCliente, uDataModuleContratosCliente, Variants,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente, schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente, uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf, schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf,
@ -254,6 +259,32 @@ begin
end; end;
end; end;
function TContratosClienteController.CambiarInstalador(AContrato: IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
var
bEnEdicion : Boolean;
begin
if not Assigned(AContrato) then
raise Exception.Create ('AContrato no asignado');
ShowHourglassCursor;
try
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
if not bEnEdicion then
AContrato.Edit;
AContrato.DataTable.Edit;
AContrato.ID_INSTALADOR := AInstalador.ID;
AContrato.NOMBRE_INSTALADOR := AInstalador.NOMBRE;
if not bEnEdicion then
AContrato.Post;
finally
HideHourglassCursor;
end;
end;
function TContratosClienteController.CambiarSituacion(AContrato: IBizContratoCliente; function TContratosClienteController.CambiarSituacion(AContrato: IBizContratoCliente;
Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean;
// En el caso de cambiar almenos un elemento del conjunto se devuelve true // En el caso de cambiar almenos un elemento del conjunto se devuelve true
@ -431,6 +462,8 @@ begin
// ID_FACTURAIsNull := True; // ID_FACTURAIsNull := True;
REFERENCIA := ''; REFERENCIA := '';
SITUACION := SITUACION_CONTRATO_PENDIENTE; SITUACION := SITUACION_CONTRATO_PENDIENTE;
ID_INSTALADORIsNull := True;
NOMBRE_INSTALADORIsNull := True;
end; end;
Result.AsignarVendedor; Result.AsignarVendedor;
Result.Post; Result.Post;
@ -1049,6 +1082,35 @@ begin
end; end;
end; end;
procedure TContratosClienteController.FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
var
Condicion: TDAWhereExpression;
FechaIni: String;
FechaFin: String;
begin
AContrato.DataTable.DynamicWhere.Clear;
AContrato.DataTable.DynamicWhere.Xml := ADynWhereDataTable;
if (Ano <> 'Todos') then
begin
// Filtrar las facturas actuales por empresa
FechaIni := '01/01/' + Ano;
FechaFin := '31/12/' + Ano;
with AContrato.DataTable.DynamicWhere do
begin
// (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_ContratosClienteFECHA_CONTRATO), NewConstant(FechaIni, datString), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_ContratosClienteFECHA_CONTRATO), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
end;
end;
end;
procedure TContratosClienteController.FiltrarEmpresa(AContrato: IBizContratoCliente); procedure TContratosClienteController.FiltrarEmpresa(AContrato: IBizContratoCliente);
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;

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

@ -350,6 +350,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE' Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime DataType = datDateTime
end
item
Name = 'ID_INSTALADOR'
DataType = datInteger
end
item
Name = 'NOMBRE_INSTALADOR'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,14 +9,14 @@ 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 = '{07040A27-DD19-4D93-B5DA-C9C49C1822CA}'; RID_Valores = '{20F4DF5F-38DB-4AA6-B17F-5192ED36BC0D}';
RID_Propiedades = '{3006A5CE-2DB4-46FD-97B3-65E9CBA7AD2A}'; RID_Propiedades = '{10A019F3-E795-413B-AE1A-8075665936C4}';
RID_ListaAnosContratos = '{09600C3F-3F5A-4DB6-87A9-12C67B9AC2F1}'; RID_ListaAnosContratos = '{B706B31A-572A-44D7-815A-11028E17F3F0}';
RID_ContratosClienteBeneficios = '{B58A588F-6D51-43FB-B318-5F9ABE371CBE}'; RID_ContratosClienteBeneficios = '{F9036DB4-7264-4B53-B7B7-A33F1FA4F72C}';
RID_ContratosCliente = '{AFEF7F44-F9AD-4DCC-82CE-A441F94C7B6E}'; RID_ContratosCliente = '{210D5B45-17D3-4EA9-82CC-FD40936C848C}';
RID_TiposCapitulos = '{C4F51BD4-AB1F-4564-8370-E83BDA635D61}'; RID_TiposCapitulos = '{6781118D-1743-4A35-AD55-9C426656C662}';
RID_ContratosCliente_Detalles = '{E45B94F9-C284-41CE-A73F-69E835616CBC}'; RID_ContratosCliente_Detalles = '{DC6E8B1B-AEEE-4CBC-A18D-5B7AB6B693FC}';
RID_ContratoClienteFacturasProv = '{4884E75F-7CFE-4300-B53A-7F8F87745F99}'; RID_ContratoClienteFacturasProv = '{9F92B050-F8CB-4D0B-8C98-53D93B2F93D3}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -141,6 +141,8 @@ const
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE'; fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE';
fld_ContratosClienteID_INSTALADOR = 'ID_INSTALADOR';
fld_ContratosClienteNOMBRE_INSTALADOR = 'NOMBRE_INSTALADOR';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -193,6 +195,8 @@ const
idx_ContratosClienteREFERENCIA_CLIENTE = 47; idx_ContratosClienteREFERENCIA_CLIENTE = 47;
idx_ContratosClienteLISTA_NOMBRES = 48; idx_ContratosClienteLISTA_NOMBRES = 48;
idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 49; idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 49;
idx_ContratosClienteID_INSTALADOR = 50;
idx_ContratosClienteNOMBRE_INSTALADOR = 51;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -269,7 +273,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{72662564-0D03-463E-94DA-D8D703FC7FFD}'] ['{90B6AEAB-CA86-415A-9867-AE6DDF147292}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -328,7 +332,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{F1B345B8-6699-4700-8097-BFC5BDFD8537}'] ['{D75A4B85-BBF5-495B-81BD-D8423BEB8878}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -387,7 +391,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{36FADA3D-628F-480A-B077-EA8D6676A7C1}'] ['{A58F3174-AAB8-42A5-9F76-CD538099B39D}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -422,7 +426,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{BBC61983-3B64-4845-A47B-F8511BBF7A73}'] ['{443426BE-76C1-459F-B040-945933103153}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -637,7 +641,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{5ECD7363-96C7-4393-AADE-B82526538C1E}'] ['{E5FEBD8B-4FA0-4E95-B596-969808CA3467}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -833,6 +837,14 @@ type
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
function GetID_INSTALADORValue: Integer;
procedure SetID_INSTALADORValue(const aValue: Integer);
function GetID_INSTALADORIsNull: Boolean;
procedure SetID_INSTALADORIsNull(const aValue: Boolean);
function GetNOMBRE_INSTALADORValue: String;
procedure SetNOMBRE_INSTALADORValue(const aValue: String);
function GetNOMBRE_INSTALADORIsNull: Boolean;
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -936,6 +948,10 @@ type
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue; property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull; property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -1149,6 +1165,14 @@ type
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual; procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual; function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_INSTALADORValue: Integer; virtual;
procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
function GetID_INSTALADORIsNull: Boolean; virtual;
procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_INSTALADORValue: String; virtual;
procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1251,6 +1275,10 @@ type
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue; property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull; property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1263,7 +1291,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{9303AF23-576A-4218-A01D-460C960EE4B3}'] ['{42253827-AA15-492F-AFAC-257EB0C0F6D7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1358,7 +1386,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7DA1AFC7-EB2B-4195-8CC5-0AB9E9B72906}'] ['{4654E368-8185-40CF-AAD9-9233379440E5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1609,7 +1637,7 @@ type
{ IContratoClienteFacturasProv } { IContratoClienteFacturasProv }
IContratoClienteFacturasProv = interface(IDAStronglyTypedDataTable) IContratoClienteFacturasProv = interface(IDAStronglyTypedDataTable)
['{92725D42-6696-45DF-9DB5-D9606DF194DD}'] ['{B6845872-92DB-4F81-8768-8FD56B3FD473}']
{ Property getters and setters } { Property getters and setters }
function GetID_CONTRATOValue: Integer; function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer); procedure SetID_CONTRATOValue(const aValue: Integer);
@ -3318,6 +3346,48 @@ begin
DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetID_INSTALADORValue: Integer;
begin
result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger;
end;
procedure TContratosClienteDataTableRules.SetID_INSTALADORValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger := aValue;
end;
function TContratosClienteDataTableRules.GetID_INSTALADORIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].IsNull;
end;
procedure TContratosClienteDataTableRules.SetID_INSTALADORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString;
end;
procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].IsNull;
end;
procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,19 +9,19 @@ 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 = '{D65A1140-B47F-4E5C-9F78-5E23024E699F}'; RID_ValoresDelta = '{3B7D377E-AB81-4975-8494-9821E0FC6AA4}';
RID_PropiedadesDelta = '{6F61B397-916F-47F9-8B1F-143BBE4D8761}'; RID_PropiedadesDelta = '{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}';
RID_ListaAnosContratosDelta = '{E49B48FF-2E1A-4370-9CA7-31E903528445}'; RID_ListaAnosContratosDelta = '{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}';
RID_ContratosClienteBeneficiosDelta = '{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}'; RID_ContratosClienteBeneficiosDelta = '{703EB6BB-27C5-4E04-AB28-7253E5724A2F}';
RID_ContratosClienteDelta = '{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}'; RID_ContratosClienteDelta = '{9DE64986-EE28-44BE-BE23-11127CD3AFB0}';
RID_TiposCapitulosDelta = '{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}'; RID_TiposCapitulosDelta = '{7D66353C-5A18-40C0-8523-6DEB3A54899C}';
RID_ContratosCliente_DetallesDelta = '{8CE89C32-E498-4B5A-9083-8C056ABE340F}'; RID_ContratosCliente_DetallesDelta = '{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}';
RID_ContratoClienteFacturasProvDelta = '{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}'; RID_ContratoClienteFacturasProvDelta = '{95667A5A-0FA5-4E92-A851-F3D3E7C98260}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{D65A1140-B47F-4E5C-9F78-5E23024E699F}'] ['{3B7D377E-AB81-4975-8494-9821E0FC6AA4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -79,7 +79,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{6F61B397-916F-47F9-8B1F-143BBE4D8761}'] ['{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -137,7 +137,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{E49B48FF-2E1A-4370-9CA7-31E903528445}'] ['{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -171,7 +171,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}'] ['{703EB6BB-27C5-4E04-AB28-7253E5724A2F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -385,7 +385,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}'] ['{9DE64986-EE28-44BE-BE23-11127CD3AFB0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -437,6 +437,8 @@ type
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLISTA_NOMBRESValue : String; function GetOldLISTA_NOMBRESValue : String;
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime; function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime;
function GetOldID_INSTALADORValue : Integer;
function GetOldNOMBRE_INSTALADORValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -489,6 +491,8 @@ type
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue; property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -802,6 +806,18 @@ type
function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual; function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual; procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_INSTALADORValue: Integer; virtual;
function GetID_INSTALADORIsNull: Boolean; virtual;
function GetOldID_INSTALADORValue: Integer; virtual;
function GetOldID_INSTALADORIsNull: Boolean; virtual;
procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_INSTALADORValue: String; virtual;
function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
function GetOldNOMBRE_INSTALADORValue: String; virtual;
function GetOldNOMBRE_INSTALADORIsNull: Boolean; virtual;
procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1004,6 +1020,14 @@ type
property FECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull; property FECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue; property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
property OldFECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull; property OldFECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull;
property ID_INSTALADOR : Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
property ID_INSTALADORIsNull : Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
property OldID_INSTALADORIsNull : Boolean read GetOldID_INSTALADORIsNull;
property NOMBRE_INSTALADOR : String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
property NOMBRE_INSTALADORIsNull : Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
property OldNOMBRE_INSTALADORIsNull : Boolean read GetOldNOMBRE_INSTALADORIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1013,7 +1037,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}'] ['{7D66353C-5A18-40C0-8523-6DEB3A54899C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1107,7 +1131,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{8CE89C32-E498-4B5A-9083-8C056ABE340F}'] ['{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -1357,7 +1381,7 @@ type
{ IContratoClienteFacturasProvDelta } { IContratoClienteFacturasProvDelta }
IContratoClienteFacturasProvDelta = interface(IContratoClienteFacturasProv) IContratoClienteFacturasProvDelta = interface(IContratoClienteFacturasProv)
['{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}'] ['{95667A5A-0FA5-4E92-A851-F3D3E7C98260}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -3802,6 +3826,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetID_INSTALADORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR];
end;
function TContratosClienteBusinessProcessorRules.GetID_INSTALADORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR]);
end;
function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR];
end;
function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR]);
end;
procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
end;
function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
end;
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
end;
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
end;
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -491,6 +491,14 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE' DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE'
TableField = 'FECHA_ULT_PRESENTACION_CLIENTE' TableField = 'FECHA_ULT_PRESENTACION_CLIENTE'
end
item
DatasetField = 'ID_INSTALADOR'
TableField = 'ID_INSTALADOR'
end
item
DatasetField = 'NOMBRE_INSTALADOR'
TableField = 'NOMBRE_INSTALADOR'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -769,6 +777,15 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE' Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime DataType = datDateTime
end
item
Name = 'ID_INSTALADOR'
DataType = datInteger
end
item
Name = 'NOMBRE_INSTALADOR'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1321,6 +1338,17 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'FECHA_ULT_PRESENTACION_CLIENTE' Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime DataType = datDateTime
Value = '' Value = ''
end
item
Name = 'ID_INSTALADOR'
DataType = datInteger
Value = ''
end
item
Name = 'NOMBRE_INSTALADOR'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1337,18 +1365,19 @@ object srvContratosCliente: TsrvContratosCliente
'_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, REFER' + 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE)'#10' VAL' + 'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE,'#10' ' +
'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' + 'ID_INSTALADOR, NOMBRE_INSTALADOR)'#10' VALUES'#10' (:ID, :ID_CLIENTE' +
'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' + ', :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINC' +
'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' + 'IA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACIO' +
'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' + 'N, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIA' +
'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' + 'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPO' +
'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' + 'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :' +
'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' + 'BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL' +
'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' + ', :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTAC' +
'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' + 'TO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MO' +
'IDADES, :REFERENCIA_CLIENTE, :ID_EMPRESA, :FECHA_ULT_PRESENTACIO' + 'VIL, :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIEN' +
'N_CLIENTE)'#10#10 'TE, :ID_EMPRESA, :FECHA_ULT_PRESENTACION_CLIENTE,'#10' :ID_INSTA' +
'LADOR, :NOMBRE_INSTALADOR)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1598,6 +1627,17 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datDateTime DataType = datDateTime
Value = '' Value = ''
end end
item
Name = 'ID_INSTALADOR'
DataType = datInteger
Value = ''
end
item
Name = 'NOMBRE_INSTALADOR'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1629,7 +1669,9 @@ object srvContratosCliente: TsrvContratosCliente
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' + 'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ID_EMPRESA' + 'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ID_EMPRESA' +
' = :ID_EMPRESA,'#10' FECHA_ULT_PRESENTACION_CLIENTE = :FECHA_ULT_' + ' = :ID_EMPRESA,'#10' FECHA_ULT_PRESENTACION_CLIENTE = :FECHA_ULT_' +
'PRESENTACION_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 'PRESENTACION_CLIENTE,'#10' ID_INSTALADOR = :ID_INSTALADOR,'#10' NO' +
'MBRE_INSTALADOR = :NOMBRE_INSTALADOR'#10' WHERE'#10' (ID = :OLD_ID)'#10 +
#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

112
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
View File

@ -49,61 +49,68 @@
<DelphiCompile Include="ContratosCliente_view.dpk"> <DelphiCompile Include="ContratosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
<DCCReference Include="ConCli_AlbCli_relation.dcp" /> <DCCReference Include="$(SystemRoot)\system32\ConCli_AlbCli_relation.dcp" />
<DCCReference Include="ConCli_FacCli_relation.dcp" /> <DCCReference Include="$(SystemRoot)\system32\ConCli_FacCli_relation.dcp" />
<DCCReference Include="ConCli_PedProv_relation.dcp" /> <DCCReference Include="$(SystemRoot)\system32\ConCli_PedProv_relation.dcp" />
<DCCReference Include="ContratosCliente_controller.dcp" /> <DCCReference Include="$(SystemRoot)\system32\ContratosCliente_controller.dcp" />
<DCCReference Include="ContratosCliente_model.dcp" /> <DCCReference Include="$(SystemRoot)\system32\ContratosCliente_model.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dclcxLibraryD11.dcp" />
<DCCReference Include="dcldxCoreD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dcldxCoreD11.dcp" />
<DCCReference Include="designide.dcp" /> <DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" /> <DCCReference Include="$(SystemRoot)\system32\GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="$(SystemRoot)\system32\GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvMMD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
<DCCReference Include="PreCli_ConCli_relation.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PreCli_ConCli_relation.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclshlctrls.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
<DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
<DCCReference Include="uContratosClienteViewRegister.pas" /> <DCCReference Include="uContratosClienteViewRegister.pas" />
<DCCReference Include="uEditorContratoCliente.pas"> <DCCReference Include="uEditorContratoCliente.pas">
<Form>fEditorPresupuestoCliente</Form> <Form>fEditorPresupuestoCliente</Form>
<DesignClass>TfEditorPedidoCliente</DesignClass> <DesignClass>TfEditorPedidoCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorContratoClienteBeneficio.pas"> <DCCReference Include="uEditorContratoClienteBeneficio.pas">
<Form>fEditorContratoClienteBeneficios</Form> <Form>fEditorContratoClienteBeneficio</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorContratosCliente.pas"> <DCCReference Include="uEditorContratosCliente.pas">
@ -162,13 +169,6 @@
<Form>frViewElegirArticulosContratosCliente</Form> <Form>frViewElegirArticulosContratosCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -2,20 +2,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 332 Left = 332
Top = 147 Top = 147
Caption = 'Nuevo contrato de cliente' Caption = 'Nuevo contrato de cliente'
ClientHeight = 798 ClientHeight = 949
ClientWidth = 872 ClientWidth = 993
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 880 ExplicitWidth = 1009
ExplicitHeight = 832 ExplicitHeight = 987
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 872 Width = 993
Caption = 'Nuevo contrato de cliente' Caption = 'Nuevo contrato de cliente'
ExplicitTop = 49 ExplicitWidth = 993
ExplicitWidth = 872
inherited Image1: TImage inherited Image1: TImage
Left = 845 Left = 966
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -125,12 +124,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
960000000049454E44AE426082} 960000000049454E44AE426082}
ExplicitLeft = 735 ExplicitLeft = 735
end end
inherited lblDesbloquear: TcxLabel
Left = 868
ExplicitLeft = 868
AnchorX = 913
AnchorY = 14
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 872 Width = 993
ExplicitWidth = 872 ExplicitWidth = 993
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 518
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -148,7 +153,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 872 ExplicitWidth = 993
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem34: TTBXItem object TBXItem34: TTBXItem
@ -163,124 +168,126 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 779 Top = 930
Width = 872 Width = 993
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 779 ExplicitTop = 930
ExplicitWidth = 872 ExplicitWidth = 993
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 866 Width = 987
Height = 473 Height = 622
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 866 ExplicitTop = 111
ExplicitHeight = 473 ExplicitWidth = 987
ExplicitHeight = 622
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 445 ExplicitHeight = 594
inline frViewContratoCliente1: TfrViewContratoCliente inline frViewContratoCliente1: TfrViewContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 979
Height = 445 Height = 594
Align = alClient Align = alClient
AutoSize = True
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 445 ExplicitHeight = 594
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 858 Width = 979
Height = 445 Height = 594
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 445 ExplicitHeight = 594
inherited edtFechaContrato: TcxDBDateEdit inherited edtFechaContrato: TcxDBDateEdit
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 129 ExplicitWidth = 108
Width = 129 Width = 108
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Left = 465 Left = 531
Top = 330 Top = 340
ExplicitLeft = 465 ExplicitLeft = 531
ExplicitTop = 330 ExplicitTop = 340
ExplicitWidth = 404 ExplicitWidth = 351
ExplicitHeight = 139 ExplicitHeight = 135
Height = 139 Height = 135
Width = 404 Width = 351
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 122 ExplicitWidth = 283
Width = 122 Width = 283
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 165 Top = 165
ExplicitTop = 165 ExplicitTop = 165
ExplicitWidth = 122 ExplicitWidth = 145
Width = 122 Width = 145
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 305 Left = 371
Top = 165 Top = 165
ExplicitLeft = 305 ExplicitLeft = 371
ExplicitTop = 165 ExplicitTop = 165
end end
inherited cbSituacion: TcxDBImageComboBox inherited cbSituacion: TcxDBImageComboBox
Top = 138 Top = 138
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 260 ExplicitWidth = 283
Width = 260 Width = 283
end end
inherited memFormaPago: TcxDBMemo inherited memFormaPago: TcxDBMemo
Top = 314 Top = 449
ExplicitTop = 314 ExplicitTop = 449
ExplicitWidth = 396 ExplicitWidth = 392
ExplicitHeight = 100 ExplicitHeight = 55
Height = 100 Height = 55
Width = 396 Width = 392
end end
inherited memPlazoEntrega: TcxDBMemo inherited memPlazoEntrega: TcxDBMemo
Top = 387 Top = 529
ExplicitTop = 387 ExplicitTop = 529
ExplicitWidth = 396 ExplicitWidth = 392
ExplicitHeight = 100 ExplicitHeight = 55
Height = 100 Height = 55
Width = 396 Width = 392
end end
inherited cbVendedor: TcxDBLookupComboBox inherited cbVendedor: TcxDBLookupComboBox
Top = 192 Top = 192
ExplicitTop = 192 ExplicitTop = 192
ExplicitWidth = 27 ExplicitWidth = 283
Width = 27 Width = 283
end end
inherited cbTipoContrato: TcxDBComboBox inherited cbTipoContrato: TcxDBComboBox
Left = 331 Left = 368
Top = 84 Top = 84
ExplicitLeft = 331 ExplicitLeft = 368
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 113 ExplicitWidth = 96
Width = 113 Width = 96
end end
inherited edtlREF_CLIENTE: TcxDBTextEdit inherited edtlREF_CLIENTE: TcxDBTextEdit
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 335 ExplicitWidth = 283
Width = 335 Width = 283
end end
inherited frViewClienteContrato1: TfrViewClienteContrato inherited frViewClienteContrato1: TfrViewClienteContrato
Left = 465 Left = 531
Top = 30 Top = 30
Width = 357 Width = 357
ExplicitLeft = 465 ExplicitLeft = 531
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 357 ExplicitWidth = 357
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -290,10 +297,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 82 Left = 82
Top = 72 Top = 72
Width = 266 Width = 260
ExplicitLeft = 82 ExplicitLeft = 82
ExplicitTop = 72 ExplicitTop = 72
ExplicitWidth = 266 ExplicitWidth = 260
end end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Left = 82 Left = 82
@ -303,8 +310,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Properties.OnEditValueChanged = frViewClienteContrato1edtlNombrePropertiesEditValueChanged Properties.OnEditValueChanged = frViewClienteContrato1edtlNombrePropertiesEditValueChanged
ExplicitLeft = 82 ExplicitLeft = 82
ExplicitTop = 95 ExplicitTop = 95
ExplicitWidth = 707 ExplicitWidth = 260
Width = 707 Width = 260
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 82 Left = 82
@ -312,8 +319,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitLeft = 82 ExplicitLeft = 82
ExplicitTop = 122 ExplicitTop = 122
ExplicitWidth = 707 ExplicitWidth = 260
Width = 707 Width = 260
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
Left = 82 Left = 82
@ -321,8 +328,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitLeft = 82 ExplicitLeft = 82
ExplicitTop = 149 ExplicitTop = 149
ExplicitWidth = 707 ExplicitWidth = 260
Width = 707 Width = 260
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
Left = 82 Left = 82
@ -330,8 +337,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitLeft = 82 ExplicitLeft = 82
ExplicitTop = 176 ExplicitTop = 176
ExplicitWidth = 589 ExplicitWidth = 142
Width = 589 Width = 142
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
Left = 82 Left = 82
@ -339,14 +346,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitLeft = 82 ExplicitLeft = 82
ExplicitTop = 203 ExplicitTop = 203
ExplicitWidth = 707 ExplicitWidth = 260
Width = 707 Width = 260
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 278 Left = 333
Top = 176 Top = 176
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitLeft = 278 ExplicitLeft = 333
ExplicitTop = 176 ExplicitTop = 176
end end
inherited Button1: TBitBtn inherited Button1: TBitBtn
@ -362,9 +369,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 11 ExplicitTop = 11
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 168 Left = 223
Top = 230 Top = 230
ExplicitLeft = 168 ExplicitLeft = 223
ExplicitTop = 230 ExplicitTop = 230
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
@ -372,29 +379,51 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Top = 42 Top = 42
ExplicitLeft = 82 ExplicitLeft = 82
ExplicitTop = 42 ExplicitTop = 42
ExplicitWidth = 283 ExplicitWidth = 260
Width = 283 Width = 260
end end
end end
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Top = 243 Top = 359
Width = 451 Width = 392
ExplicitTop = 243 ExplicitTop = 359
ExplicitWidth = 451 ExplicitWidth = 392
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 451 Width = 392
ExplicitWidth = 392
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
ExplicitWidth = 390 ExplicitWidth = 331
Width = 390 Width = 331
end end
end end
end end
inherited edtFechaUltRevision: TcxDBDateEdit inherited edtFechaUltRevision: TcxDBDateEdit
Top = 111 Top = 111
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 123 ExplicitWidth = 283
Width = 123 Width = 283
end
inherited frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador
Left = 11
Top = 224
Width = 425
ExplicitLeft = 11
ExplicitTop = 224
ExplicitWidth = 425
inherited dxLayoutControl1: TdxLayoutControl
Width = 425
ExplicitWidth = 425
inherited edtlNombreInstalador: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 224
Width = 224
end
inherited Button3: TBitBtn
Left = 233
ExplicitLeft = 233
end
end
end end
end end
end end
@ -405,8 +434,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 979
Height = 445 Height = 594
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -418,79 +447,106 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 445 ExplicitHeight = 594
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 858 Width = 979
ExplicitWidth = 858 Height = 24
ExplicitWidth = 979
ExplicitHeight = 24
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit [5] inherited FontName: TJvFontComboBox
Left = 0 Left = 368
Width = 110 Top = 0
ExplicitLeft = 0 ExplicitLeft = 368
ExplicitWidth = 110 ExplicitTop = 0
end end
inherited UpDown1: TUpDown [6] inherited FontSize: TEdit
Left = 110 Left = 513
ExplicitLeft = 110 Top = 0
Width = 126
ExplicitLeft = 513
ExplicitTop = 0
ExplicitWidth = 126
end end
inherited FontName: TJvFontComboBox [7] inherited UpDown1: TUpDown
Left = 127 Left = 639
ExplicitLeft = 127 Top = 0
ExplicitLeft = 639
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 272 Left = 656
ExplicitLeft = 272 Top = 0
ExplicitLeft = 656
ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 280 Left = 664
ExplicitLeft = 280 Top = 0
ExplicitLeft = 664
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 314 Left = 698
ExplicitLeft = 314 Top = 0
ExplicitLeft = 698
ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 348 Left = 732
ExplicitLeft = 348 Top = 0
ExplicitLeft = 732
ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 382 Left = 766
ExplicitLeft = 382 Top = 0
ExplicitLeft = 766
ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 390 Left = 774
ExplicitLeft = 390 Top = 0
ExplicitLeft = 774
ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 424 Left = 808
ExplicitLeft = 424 Top = 0
ExplicitLeft = 808
ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 458 Left = 842
ExplicitLeft = 458 Top = 0
ExplicitLeft = 842
ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 858 Top = 50
Height = 373 Width = 979
ExplicitWidth = 858 Height = 544
ExplicitHeight = 373 ExplicitTop = 50
ExplicitWidth = 979
ExplicitHeight = 544
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 858 Top = 24
ExplicitWidth = 858 Width = 979
ExplicitTop = 24
ExplicitWidth = 979
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665 ExplicitWidth = 718
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
@ -510,8 +566,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object dxLayoutControl2: TdxLayoutControl object dxLayoutControl2: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 979
Height = 445 Height = 594
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -557,8 +613,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 979
Height = 445 Height = 594
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -604,8 +660,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 979
Height = 445 Height = 594
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -615,25 +671,25 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 445 ExplicitHeight = 594
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 858 Width = 979
ExplicitWidth = 858 ExplicitWidth = 979
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 858 Width = 979
Height = 417 Height = 566
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 417 ExplicitHeight = 566
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 854 ExplicitWidth = 975
ExplicitHeight = 400 ExplicitHeight = 549
Height = 400 Height = 549
Width = 854 Width = 975
end end
end end
end end
@ -645,8 +701,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 979
Height = 445 Height = 594
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -656,18 +712,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 445 ExplicitHeight = 594
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 858 Width = 979
ExplicitWidth = 858 ExplicitWidth = 979
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 858 Width = 979
Height = 422 Height = 569
ExplicitTop = 29 ExplicitTop = 25
ExplicitWidth = 858 ExplicitWidth = 979
ExplicitHeight = 407 ExplicitHeight = 569
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 8 Left = 8
@ -677,17 +733,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 872 Width = 993
ExplicitWidth = 872 ExplicitTop = 78
ExplicitWidth = 993
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 862 Width = 983
Height = 25 Height = 25
end end
end end
inline frViewTotales1: TfrViewTotales [5] inline frViewTotales1: TfrViewTotales [5]
Left = 0 Left = 0
Top = 585 Top = 736
Width = 872 Width = 993
Height = 194 Height = 194
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -698,22 +755,22 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 585 ExplicitTop = 736
ExplicitWidth = 872 ExplicitWidth = 993
ExplicitHeight = 194 ExplicitHeight = 194
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 872 Width = 993
ExplicitWidth = 872 ExplicitWidth = 993
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 429 Left = 486
Height = 122 Height = 122
ExplicitLeft = 429 ExplicitLeft = 486
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 541 Left = 598
Width = 210 Width = 210
ExplicitLeft = 541 ExplicitLeft = 598
ExplicitWidth = 210 ExplicitWidth = 210
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
@ -722,16 +779,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 612 Left = 669
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 612 ExplicitLeft = 669
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 542 Left = 599
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 542 ExplicitLeft = 599
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
@ -739,26 +796,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 541 Left = 598
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 541 ExplicitLeft = 598
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 541 Left = 598
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 541 ExplicitLeft = 598
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 541 Left = 598
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 541 ExplicitLeft = 598
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 612 Left = 669
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 612 ExplicitLeft = 669
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
@ -779,9 +836,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 281 Left = 338
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 281 ExplicitLeft = 338
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219 ExplicitWidth = 219

58
Source/Modulos/Contratos de cliente/Views/uEditorContratosClienteBeneficios.dfm
View File

@ -2,8 +2,8 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
Caption = 'fEditorContratosClienteBeneficios' Caption = 'fEditorContratosClienteBeneficios'
ClientHeight = 560 ClientHeight = 560
ClientWidth = 771 ClientWidth = 771
ExplicitWidth = 779 ExplicitWidth = 787
ExplicitHeight = 594 ExplicitHeight = 598
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -19,14 +19,28 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
Width = 771 Width = 771
ExplicitWidth = 771 ExplicitWidth = 771
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 427 ExplicitWidth = 456
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 362
inherited lblAno: TTBXLabelItem
Visible = True
end
inherited cbxListaAnos: TTBXComboBoxItem
Visible = True
end
inherited sepAno: TTBXSeparatorItem
Visible = True
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 771 ExplicitWidth = 771
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 362
Visible = True Visible = True
ExplicitWidth = 87 ExplicitLeft = 362
ExplicitWidth = 94
object TBItem1: TTBItem object TBItem1: TTBItem
Action = actVerBeneficio Action = actVerBeneficio
end end
@ -40,9 +54,9 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
end end
inline frViewContratosClienteBeneficios1: TfrViewContratosClienteBeneficios [3] inline frViewContratosClienteBeneficios1: TfrViewContratosClienteBeneficios [3]
Left = 0 Left = 0
Top = 102 Top = 105
Width = 771 Width = 771
Height = 439 Height = 436
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -52,14 +66,14 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 105
ExplicitWidth = 771 ExplicitWidth = 771
ExplicitHeight = 439 ExplicitHeight = 436
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 771 Width = 771
Height = 311 Height = 308
ExplicitWidth = 771 ExplicitWidth = 771
ExplicitHeight = 311 ExplicitHeight = 308
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -107,20 +121,36 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 250
Width = 250
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 250
Width = 250
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 474 Left = 441
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 474 ExplicitLeft = 441
ExplicitWidth = 250
Width = 250
end
inherited txtFiltroTodo2: TcxTextEdit
Left = 441
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitWidth = 250
Width = 250
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -134,8 +164,8 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 413 Top = 410
ExplicitTop = 413 ExplicitTop = 410
ExplicitWidth = 771 ExplicitWidth = 771
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 771 Width = 771

59
Source/Modulos/Contratos de cliente/Views/uEditorContratosClienteBeneficios.pas
View File

@ -19,6 +19,8 @@ type
TBItem1: TTBItem; TBItem1: TTBItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actVerBeneficioExecute(Sender: TObject); procedure actVerBeneficioExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
private private
FContratos: IBizContratosClienteBeneficios; FContratos: IBizContratosClienteBeneficios;
FController : IContratosClienteController; FController : IContratosClienteController;
@ -33,6 +35,7 @@ type
protected protected
procedure ImprimirInterno; override; procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override; procedure PrevisualizarInterno; override;
procedure RefrescarInterno; override;
public public
property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos; property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos;
@ -46,8 +49,10 @@ var
implementation implementation
{$R *.dfm} uses
cxControls;
{$R *.dfm}
{ TfEditorContratosClienteBeneficios } { TfEditorContratosClienteBeneficios }
procedure TfEditorContratosClienteBeneficios.actVerBeneficioExecute( procedure TfEditorContratosClienteBeneficios.actVerBeneficioExecute(
@ -71,6 +76,8 @@ end;
procedure TfEditorContratosClienteBeneficios.FormShow(Sender: TObject); procedure TfEditorContratosClienteBeneficios.FormShow(Sender: TObject);
begin begin
cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED
inherited; inherited;
ViewGrid := frViewContratosClienteBeneficios1; ViewGrid := frViewContratosClienteBeneficios1;
FContratos.Active := True; FContratos.Active := True;
@ -93,26 +100,64 @@ begin
end; end;
procedure TfEditorContratosClienteBeneficios.OnListaAnosChange(Sender: TObject; const Text: string);
begin
Controller.FiltrarAnoBeneficios(Contratos, DynWhereDataTable, Text);
if Contratos.DataTable.Active then
RefrescarInterno;
end;
procedure TfEditorContratosClienteBeneficios.PrevisualizarInterno; procedure TfEditorContratosClienteBeneficios.PrevisualizarInterno;
begin begin
inherited; inherited;
end;
procedure TfEditorContratosClienteBeneficios.RefrescarInterno;
begin
//Volvemos a cargar los años de los Contratos
if Assigned(FController) then
ListaAnos := FController.DarListaAnosContratos;
//Pasamos del padre ya que refresh da error
// inherited;
ShowHourglassCursor;
ViewGrid.SaveGridStatus;
ViewGrid._FocusedView.BeginUpdate;
try
Contratos.DataTable.Active := False;
Contratos.DataTable.Active := True;
finally
ViewGrid._FocusedView.EndUpdate;
ViewGrid.RestoreGridStatus;
HideHourglassCursor;
end;
end; end;
procedure TfEditorContratosClienteBeneficios.SetContratos(const Value: IBizContratosClienteBeneficios); procedure TfEditorContratosClienteBeneficios.SetContratos(const Value: IBizContratosClienteBeneficios);
begin begin
FContratos := Value; FContratos := Value;
frViewContratosClienteBeneficios1.Contratos := FContratos;
if Assigned(FContratos) then
begin
//Se guarda el where de la sentencia origen, por si el editor tiene filtros que
//afecten a este where y en un futuro se desea volver al where origen (filtro de año))
DynWhereDataTable := FContratos.DataTable.DynamicWhere.Xml;
frViewContratosClienteBeneficios1.Contratos := FContratos;
end;
end; end;
procedure TfEditorContratosClienteBeneficios.SetController( procedure TfEditorContratosClienteBeneficios.SetController(const Value: IContratosClienteController);
const Value: IContratosClienteController);
begin begin
FController := Value; FController := Value;
// if Assigned(FController) then if Assigned(FController) then
// ListaAnos := FController.DarListaAnosContratos; ListaAnos := FController.DarListaAnosContratos;
end; end;
end. end.

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

@ -1,23 +1,23 @@
inherited frViewContratoCliente: TfrViewContratoCliente inherited frViewContratoCliente: TfrViewContratoCliente
Width = 817 Width = 1027
Height = 491 Height = 801
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 817 ExplicitWidth = 1027
ExplicitHeight = 491 ExplicitHeight = 801
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 817 Width = 1027
Height = 491 Height = 801
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
817 1027
491) 801)
object edtFechaContrato: TcxDBDateEdit object edtFechaContrato: TcxDBDateEdit
Left = 131 Left = 131
Top = 82 Top = 82
@ -42,8 +42,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129 Width = 129
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 444 Left = 529
Top = 334 Top = 344
Align = alClient Align = alClient
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -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 = 13 TabOrder = 14
Height = 139 Height = 139
Width = 404 Width = 404
end end
@ -119,7 +119,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 282 Left = 367
Top = 163 Top = 163
Width = 132 Width = 132
Height = 21 Height = 21
@ -159,7 +159,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 324 Top = 459
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -175,13 +175,13 @@ 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 = 100 Height = 100
Width = 396 Width = 396
end end
object memPlazoEntrega: TcxDBMemo object memPlazoEntrega: TcxDBMemo
Left = 22 Left = 22
Top = 415 Top = 637
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA' DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -197,7 +197,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 = 11 TabOrder = 12
Height = 100 Height = 100
Width = 396 Width = 396
end end
@ -232,7 +232,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 27 Width = 27
end end
object cbTipoContrato: TcxDBComboBox object cbTipoContrato: TcxDBComboBox
Left = 318 Left = 365
Top = 82 Top = 82
DataBinding.DataField = 'TIPO_CONTRATO' DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -280,21 +280,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 335 Width = 335
end end
inline frViewClienteContrato1: TfrViewClienteContrato inline frViewClienteContrato1: TfrViewClienteContrato
Left = 444 Left = 529
Top = 28 Top = 28
Width = 366 Width = 476
Height = 270 Height = 280
TabOrder = 12 TabOrder = 13
ReadOnly = False ReadOnly = False
ExplicitLeft = 444 ExplicitLeft = 529
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 366 ExplicitWidth = 476
ExplicitHeight = 270 ExplicitHeight = 280
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 366 Width = 476
Height = 270 Height = 280
ExplicitWidth = 366 ExplicitWidth = 478
ExplicitHeight = 270 ExplicitHeight = 280
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 707 ExplicitWidth = 707
Width = 707 Width = 707
@ -316,12 +316,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 707 Width = 707
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 259 Left = 385
ExplicitLeft = 259 ExplicitLeft = 385
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 149 Left = 275
ExplicitLeft = 149 ExplicitLeft = 275
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283 ExplicitWidth = 283
@ -331,13 +331,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 22 Left = 22
Top = 247 Top = 363
Width = 451 Width = 476
Height = 41 Height = 60
TabOrder = 9 Align = alClient
TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 247 ExplicitTop = 363
ExplicitWidth = 476
ExplicitHeight = 60
inherited dxLayoutControl1: TdxLayoutControl
Width = 476
ExplicitWidth = 475
end
end end
object edtFechaUltRevision: TcxDBDateEdit object edtFechaUltRevision: TcxDBDateEdit
Left = 131 Left = 131
@ -362,6 +369,65 @@ inherited frViewContratoCliente: TfrViewContratoCliente
TabOrder = 4 TabOrder = 4
Width = 123 Width = 123
end end
inline frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador
Left = 10
Top = 229
Width = 488
Height = 110
Align = alClient
TabOrder = 9
ReadOnly = False
ExplicitLeft = 10
ExplicitTop = 229
ExplicitWidth = 488
ExplicitHeight = 110
inherited dxLayoutControl1: TdxLayoutControl
Width = 488
Height = 110
ExplicitWidth = 499
ExplicitHeight = 110
inherited edtlNombreInstalador: TcxDBTextEdit
Left = 109
DataBinding.DataSource = DADataSource
ExplicitLeft = 109
ExplicitWidth = 224
Width = 224
end
inherited Button1: TBitBtn
Width = 175
Caption = 'Elegir un alba'#241'il / instalador'
ExplicitWidth = 175
end
inherited Button2: TBitBtn
Left = 191
Width = 190
Caption = 'Dar de alta un alba'#241'il / instalador'
ExplicitLeft = 191
ExplicitWidth = 190
end
inherited Button3: TBitBtn
Left = 231
Width = 260
Caption = 'Ver ficha completa del alba'#241'il / instalador...'
ExplicitLeft = 231
ExplicitWidth = 260
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Alba'#241'il / Instalador:'
end
end
end
inherited DADataSource: TDADataSource
Left = 424
end
inherited ActionList1: TActionList
Left = 456
end
inherited PngImageList: TPngImageList
Left = 488
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -453,8 +519,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
end end
end end
object dxLayoutControl1Item15: TdxLayoutItem
Control = frViewDatosYSeleccionInstalador1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
Caption = 'La factura pertenece a la tienda' Caption = 'El contrato pertenece a la tienda'
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewTienda1 Control = frViewTienda1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True

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

@ -12,7 +12,8 @@ uses
uViewDireccionEntregaContratoCliente, Buttons, ActnList, cxLookupEdit, uViewDireccionEntregaContratoCliente, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
uBizFormasPago, cxButtonEdit, uBizContactos, uContratosClienteController, uBizFormasPago, cxButtonEdit, uBizContactos, uContratosClienteController,
uVendedoresController, uViewClienteContrato, uViewTienda; uVendedoresController, uViewClienteContrato, uViewTienda,
uViewDatosYSeleccionInstalador;
type type
IViewContratoCliente = interface(IViewBase) IViewContratoCliente = interface(IViewBase)
@ -72,6 +73,8 @@ type
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item14: TdxLayoutItem; dxLayoutControl1Item14: TdxLayoutItem;
edtFechaUltRevision: TcxDBDateEdit; edtFechaUltRevision: TcxDBDateEdit;
dxLayoutControl1Item15: TdxLayoutItem;
frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
@ -90,6 +93,9 @@ type
function GetController : IContratosClienteController; function GetController : IContratosClienteController;
procedure SetController (const Value : IContratosClienteController); procedure SetController (const Value : IContratosClienteController);
procedure OnInstaladorChanged(Sender : TObject);
public public
property Controller : IContratosClienteController read GetController write SetController; property Controller : IContratosClienteController read GetController write SetController;
property Contrato: IBizContratoCliente read GetContrato write SetContrato; property Contrato: IBizContratoCliente read GetContrato write SetContrato;
@ -102,7 +108,7 @@ implementation
{ TfrViewContratoCliente } { TfrViewContratoCliente }
uses uses
uClientesController, uBizDireccionesContacto, uPresupuestosClienteController; uFactuGES_App, uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
@ -131,10 +137,32 @@ begin
cbTipoContrato.Properties.Items.Add(CTE_OBRA); cbTipoContrato.Properties.Items.Add(CTE_OBRA);
cbTipoContrato.Properties.Items.Add(CTE_VARIOS); cbTipoContrato.Properties.Items.Add(CTE_VARIOS);
cbTipoContrato.Properties.Items.Add(CTE_MAMPARAS);
cbTipoContrato.Properties.Items.Add(CTE_PUERTAS);
cbTipoContrato.Properties.Items.Add(CTE_CERAMICA);
cbTipoContrato.Properties.Items.Add(CTE_TARIMAS);
cbTipoContrato.Properties.Items.Add(CTE_PAPEL);
cbTipoContrato.Properties.Items.Add(CTE_VENTANAS);
cbTipoContrato.Properties.Items.Add(CTE_CERRAJERIA);
cbTipoContrato.Properties.Items.Add(CTE_VARIOSEXT);
//Victor nos solicita que quitemos el cambio de fecha porque van a empezar a dar las comisiones cuando se acepta un contrato
//El usuario administrador y gerencia verán todo
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR)
OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA_COMUN)
OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA_ACANA)
OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA_CRISTINA)
) then
dxLayoutControl1Item2.Enabled := True
//todos los demás serán restringidos
else
dxLayoutControl1Item2.Enabled := False;
end; end;
procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject);
begin begin
frViewDatosYSeleccionInstalador1.OnInstaladorChanged := Nil;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
FVendedor := Nil; FVendedor := Nil;
@ -175,6 +203,14 @@ begin
Result := FController; Result := FController;
end; end;
procedure TfrViewContratoCliente.OnInstaladorChanged(Sender: TObject);
begin
if Assigned(FContrato) then
begin
FController.CambiarInstalador(FContrato, frViewDatosYSeleccionInstalador1.Instalador);
end;
end;
procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente); procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente);
begin begin
FContrato := Value; FContrato := Value;
@ -191,6 +227,9 @@ begin
dsVendedor.DataTable := FVendedor.DataTable; dsVendedor.DataTable := FVendedor.DataTable;
dsVendedor.DataTable.Active := True; dsVendedor.DataTable.Active := True;
frViewDatosYSeleccionInstalador1.ID_Instalador := FContrato.ID_INSTALADOR;
frViewDatosYSeleccionInstalador1.OnInstaladorChanged := OnInstaladorChanged;
frViewClienteContrato1.MsgElegirCliente := 'Elija el cliente al que se le realizará el contrato.'; frViewClienteContrato1.MsgElegirCliente := 'Elija el cliente al que se le realizará el contrato.';
end end
else begin else begin

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

@ -190,6 +190,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
end end
object cxGridViewInstalador: TcxGridDBColumn
Caption = 'Alba'#241'il / Instalador'
DataBinding.FieldName = 'NOMBRE_INSTALADOR'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'

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

@ -57,6 +57,7 @@ type
actVendedor: TAction; actVendedor: TAction;
TBXSeparatorItem3: TTBXSeparatorItem; TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem; TBXItem4: TTBXItem;
cxGridViewInstalador: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

78
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -1,28 +1,30 @@
inherited frViewPedidoProveedor: TfrViewPedidoProveedor inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 934 Width = 1042
Height = 594 Height = 619
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 934 ExplicitWidth = 1042
ExplicitHeight = 594 ExplicitHeight = 619
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 934 Width = 1042
Height = 594 Height = 619
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 934
ExplicitHeight = 594
DesignSize = ( DesignSize = (
934 1042
594) 619)
inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
Left = 577 Left = 642
Top = 28 Top = 28
Width = 357 Width = 350
Height = 215 Height = 225
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -31,13 +33,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 15
ReadOnly = False ReadOnly = False
ExplicitLeft = 577 ExplicitLeft = 642
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 357 ExplicitHeight = 225
ExplicitHeight = 215
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 357 Height = 225
Height = 215
Align = alClient Align = alClient
ExplicitWidth = 357 ExplicitWidth = 357
ExplicitHeight = 215 ExplicitHeight = 215
@ -62,14 +62,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 283 Width = 283
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 254 Left = 297
ExplicitLeft = 254 ExplicitLeft = 297
ExplicitWidth = 71 ExplicitWidth = 71
Width = 71 Width = 71
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 127 Left = 170
ExplicitLeft = 127 ExplicitLeft = 170
end end
end end
end end
@ -180,17 +180,41 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Height = 166 Height = 166
ExplicitWidth = 273 ExplicitWidth = 273
ExplicitHeight = 166 ExplicitHeight = 166
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 529 Left = 529
Top = 159 Top = 159
ExplicitLeft = 529 ExplicitLeft = 529
ExplicitTop = 159 ExplicitTop = 159
end end
inherited txtDireccion: TStaticText
Width = 551
Height = 177
ExplicitWidth = 551
ExplicitHeight = 177
end
inherited rdxDestinoCliente: TRadioButton
Width = 566
ExplicitWidth = 566
end
inherited cbListaDireccionesCliente: TcxDBLookupComboBox
ExplicitWidth = 551
Width = 551
end
inherited cbUbicacion: TcxDBComboBox inherited cbUbicacion: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 183
Width = 183
end end
inherited eNumBultos: TcxDBSpinEdit inherited eNumBultos: TcxDBSpinEdit
Left = 588 Left = 588
@ -238,7 +262,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 20 Width = 20
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 415 Left = 480
Top = 163 Top = 163
Width = 132 Width = 132
Height = 21 Height = 21
@ -292,7 +316,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 20 Width = 20
end end
object Button1: TButton object Button1: TButton
Left = 447 Left = 512
Top = 190 Top = 190
Width = 100 Width = 100
Height = 23 Height = 23
@ -300,8 +324,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
TabOrder = 9 TabOrder = 9
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 577 Left = 642
Top = 279 Top = 289
Width = 357 Width = 357
Height = 46 Height = 46
Align = alBottom Align = alBottom
@ -314,8 +338,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ParentFont = False ParentFont = False
TabOrder = 16 TabOrder = 16
ReadOnly = False ReadOnly = False
ExplicitLeft = 577 ExplicitLeft = 642
ExplicitTop = 279 ExplicitTop = 289
ExplicitWidth = 357 ExplicitWidth = 357
ExplicitHeight = 46 ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -427,7 +451,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 250 Width = 250
end end
object Button2: TButton object Button2: TButton
Left = 341 Left = 406
Top = 190 Top = 190
Width = 100 Width = 100
Height = 23 Height = 23

15
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -19,7 +19,15 @@ const
CTE_VARIOS = 'Varios'; CTE_VARIOS = 'Varios';
CTE_SALON = 'Salón'; CTE_SALON = 'Salón';
CTE_DORMITORIO = 'Dormitorio'; CTE_DORMITORIO = 'Dormitorio';
CTE_JARDIN = 'Terraza y jardín'; CTE_JARDIN = 'Hogar y jardín';
CTE_MAMPARAS = 'Mamparas y grifería';
CTE_PUERTAS = 'Puertas y rodapie';
CTE_CERAMICA = 'Cerámica';
CTE_TARIMAS = 'Tarimas';
CTE_PAPEL = 'Papel pintado y moduras';
CTE_VENTANAS = 'Ventanas';
CTE_CERRAJERIA = 'Cerrajeria';
CTE_VARIOSEXT = 'Varios externos';
CTE_FORMA_PAGO_COCINA = 'FORMA_PAGO_COCINA'; CTE_FORMA_PAGO_COCINA = 'FORMA_PAGO_COCINA';
CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA'; CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
@ -559,7 +567,10 @@ begin
if not EsModificable(APresupuesto) then if not EsModificable(APresupuesto) then
begin begin
SetDataTableReadOnly(APresupuesto.DataTable, True); SetDataTableReadOnly(APresupuesto.DataTable, True);
AEditor.ReadOnly := True; //En el caso de las plantilla dejamos mover el cursor del grid pero sin poder modificar nada
//activamos el grid para que puedan consultar contenido.
if not (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PLANTILLA) then
AEditor.ReadOnly := True;
end; end;
AEditor.ShowModal; AEditor.ShowModal;

194
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -5,8 +5,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ClientHeight = 801 ClientHeight = 801
ClientWidth = 848 ClientWidth = 848
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 856 ExplicitWidth = 864
ExplicitHeight = 835 ExplicitHeight = 839
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -137,7 +137,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 848 Width = 848
ExplicitWidth = 848 ExplicitWidth = 848
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 518
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -184,32 +184,46 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 842 Width = 842
Height = 442 Height = 440
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 842 ExplicitWidth = 842
ExplicitHeight = 442 ExplicitHeight = 440
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 414 ExplicitHeight = 412
inline frViewPresupuestoCliente1: TfrViewPresupuestoCliente inline frViewPresupuestoCliente1: TfrViewPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 414 Height = 412
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 414 ExplicitHeight = 412
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 834 Width = 834
Height = 414 Height = 412
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 414 ExplicitHeight = 412
inherited edtFechaPresupuesto: TcxDBDateEdit
ExplicitWidth = 187
Width = 187
end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Left = 403 Left = 403
ExplicitLeft = 403 ExplicitLeft = 403
ExplicitWidth = 793
Width = 793
end
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 122
Width = 122
end
inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 122
Width = 122
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 241 Left = 241
@ -218,11 +232,28 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited edtFechaDecision: TcxDBDateEdit inherited edtFechaDecision: TcxDBDateEdit
Left = 287 Left = 287
ExplicitLeft = 287 ExplicitLeft = 287
ExplicitWidth = 260
Width = 260
end
inherited edtFechaVigencia: TcxDBDateEdit
ExplicitWidth = 260
Width = 260
end
inherited cbSituacion: TcxDBImageComboBox
ExplicitWidth = 260
Width = 260
end end
inherited frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto inherited frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
Left = 403 Left = 403
Width = 320
ExplicitLeft = 403 ExplicitLeft = 403
ExplicitWidth = 320
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 320
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 279 Left = 279
ExplicitLeft = 279 ExplicitLeft = 279
@ -231,6 +262,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 190 Left = 190
ExplicitLeft = 190 ExplicitLeft = 190
end end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton inherited Button4: TButton
Left = 359 Left = 359
ExplicitLeft = 359 ExplicitLeft = 359
@ -239,15 +278,54 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 359 Left = 359
ExplicitLeft = 359 ExplicitLeft = 359
end end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 363
Width = 363
end
end end
end end
inherited memFormaPago: TcxDBMemo
ExplicitWidth = 475
ExplicitHeight = 44
Height = 44
Width = 475
end
inherited memPlazoEntrega: TcxDBMemo inherited memPlazoEntrega: TcxDBMemo
Top = 407 Top = 407
ExplicitTop = 407 ExplicitTop = 407
ExplicitWidth = 396
ExplicitHeight = 100
Height = 100
Width = 396
end
inherited cbVendedor: TcxDBLookupComboBox
ExplicitWidth = 27
Width = 27
end end
inherited cbTipoPresupuesto: TcxDBComboBox inherited cbTipoPresupuesto: TcxDBComboBox
Left = 282 Left = 282
ExplicitLeft = 282 ExplicitLeft = 282
ExplicitWidth = 186
Width = 186
end
inherited edtRef_cliente: TcxDBTextEdit
ExplicitWidth = 204
Width = 204
end
inherited frViewTienda1: TfrViewTienda
Width = 451
ExplicitWidth = 451
inherited dxLayoutControl1: TdxLayoutControl
Width = 451
inherited cbTienda: TcxComboBox
ExplicitWidth = 390
Width = 390
end
end
end
inherited edtFechaUltRevision: TcxDBDateEdit
ExplicitWidth = 111
Width = 111
end end
end end
end end
@ -259,7 +337,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 414 Height = 412
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -272,24 +350,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 414 ExplicitHeight = 412
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 834 Width = 834
Height = 24
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368 ExplicitLeft = 368
ExplicitTop = 0 ExplicitTop = 0
end end
@ -359,7 +424,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 834 Width = 834
Height = 364 Height = 362
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 364 ExplicitHeight = 364
@ -370,7 +435,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665 ExplicitWidth = 718
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
@ -391,7 +456,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 414 Height = 412
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -438,7 +503,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 414 Height = 412
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -449,7 +514,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 414 ExplicitHeight = 412
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 834 Width = 834
ExplicitWidth = 834 ExplicitWidth = 834
@ -459,13 +524,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 834 Width = 834
Height = 386 Height = 384
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 386 ExplicitHeight = 386
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 830 ExplicitWidth = 830
ExplicitHeight = 369 ExplicitHeight = 367
Height = 369 Height = 367
Width = 830 Width = 830
end end
end end
@ -479,7 +544,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 414 Height = 412
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -490,14 +555,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 414 ExplicitHeight = 412
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 834 Width = 834
ExplicitWidth = 834 ExplicitWidth = 834
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 834 Width = 834
Height = 391 Height = 387
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 391 ExplicitHeight = 391
end end
@ -513,6 +578,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 848 ExplicitWidth = 848
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 838 Width = 838
Height = 25
end end
end end
inline frViewTotales1: TfrViewTotalesPresupuesto [5] inline frViewTotales1: TfrViewTotalesPresupuesto [5]
@ -537,16 +603,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 848 ExplicitWidth = 848
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 310 Left = 352
Top = 57 Top = 57
ExplicitLeft = 310 Height = 122
ExplicitLeft = 352
ExplicitTop = 57 ExplicitTop = 57
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 422 Left = 464
Top = 88 Top = 88
Width = 342 Width = 342
ExplicitLeft = 422 ExplicitLeft = 464
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 342 ExplicitWidth = 342
end end
@ -554,20 +622,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 493 Left = 535
Top = 108 Top = 108
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 493 ExplicitLeft = 535
ExplicitTop = 108 ExplicitTop = 108
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 423 Left = 465
Top = 162 Top = 162
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 423 ExplicitLeft = 465
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Top = 84 Top = 84
@ -575,57 +649,69 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 84 ExplicitTop = 84
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 422 Left = 464
Top = 108 Top = 108
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 422 ExplicitLeft = 464
ExplicitTop = 108 ExplicitTop = 108
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 422 Left = 464
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 422 ExplicitLeft = 464
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 422 Left = 464
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 422 ExplicitLeft = 464
ExplicitTop = 135 ExplicitTop = 135
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 493 Left = 535
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 493 ExplicitLeft = 535
ExplicitTop = 135 ExplicitTop = 135
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Top = 111 Top = 111
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 147
Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 138 Top = 138
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 81
Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 162 Left = 204
Top = 138 Top = 138
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 162 ExplicitLeft = 204
ExplicitTop = 138 ExplicitTop = 138
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165 Top = 165
ExplicitTop = 165 ExplicitTop = 165
ExplicitWidth = 219
Width = 219
end end
inherited cbValorado: TcxDBCheckBox inherited cbValorado: TcxDBCheckBox
Left = 11 Left = 11

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

@ -282,6 +282,7 @@ begin
try try
bEsNuevo := FPresupuesto.EsNuevo; bEsNuevo := FPresupuesto.EsNuevo;
//Victor nos solicita que quitemos el cambio de fecha porque van a empezar a dar las comisiones cuando se acepta un contrato
if not bEsNuevo then if not bEsNuevo then
if (FPresupuesto.FECHA_ULT_PRESENTACION_CLIENTE < Date) then if (FPresupuesto.FECHA_ULT_PRESENTACION_CLIENTE < Date) then
if ShowConfirmMessage('Cambio fecha actualización', '¿Desea cambiar la fecha de última actualización del presupuesto por la de hoy?') = IDYES then if ShowConfirmMessage('Cambio fecha actualización', '¿Desea cambiar la fecha de última actualización del presupuesto por la de hoy?') = IDYES then

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

@ -232,6 +232,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Height = 224 Height = 224
ExplicitWidth = 320 ExplicitWidth = 320
ExplicitHeight = 224 ExplicitHeight = 224
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 320 Left = 320
ExplicitLeft = 320 ExplicitLeft = 320
@ -240,6 +244,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 231 Left = 231
ExplicitLeft = 231 ExplicitLeft = 231
end end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -252,6 +260,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 400 Left = 400
ExplicitLeft = 400 ExplicitLeft = 400
end end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 363
Width = 363
end
end end
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo

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

@ -136,6 +136,15 @@ begin
cbTipoPresupuesto.Properties.Items.Add(CTE_OBRA); cbTipoPresupuesto.Properties.Items.Add(CTE_OBRA);
cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOS); cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOS);
cbTipoPresupuesto.Properties.Items.Add(CTE_MAMPARAS);
cbTipoPresupuesto.Properties.Items.Add(CTE_PUERTAS);
cbTipoPresupuesto.Properties.Items.Add(CTE_CERAMICA);
cbTipoPresupuesto.Properties.Items.Add(CTE_TARIMAS);
cbTipoPresupuesto.Properties.Items.Add(CTE_PAPEL);
cbTipoPresupuesto.Properties.Items.Add(CTE_VENTANAS);
cbTipoPresupuesto.Properties.Items.Add(CTE_CERRAJERIA);
cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOSEXT);
//FILTRO DE EMPRESAS //FILTRO DE EMPRESAS
{ if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then { if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
begin begin

2
Source/Modulos/Relaciones/Contratos de cliente - Pedidos de proveedor/uGenerarPedidosProvUtils.pas
View File

@ -80,7 +80,7 @@ begin
// APedido.IMPORTE_IVA := AContrato.IMPORTE_IVA; // APedido.IMPORTE_IVA := AContrato.IMPORTE_IVA;
// APedido.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL; // APedido.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
APedido.ID_TIENDA := AContrato.ID_TIENDA; APedido.ID_TIENDA := AContrato.ID_TIENDA;
// APedido.ID_VENDEDOR := AContrato.ID_VENDEDOR; APedido.ID_VENDEDOR := AContrato.ID_VENDEDOR;
// APedido.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA; // APedido.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA;
// APedido.RE := AContrato.RE; // APedido.RE := AContrato.RE;
// APedido.IMPORTE_RE := AContrato.IMPORTE_RE; // APedido.IMPORTE_RE := AContrato.IMPORTE_RE;

22
Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/PedProv_AlbProv_relation.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

BIN
Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/PedProv_AlbProv_relation.res
View File

Binary file not shown.

11
Source/Servidor/FactuGES_Server.dpr
View File

@ -110,8 +110,6 @@ uses
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: TDataModule}, uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: TDataModule},
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule}, uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
@ -135,10 +133,13 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_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',
uBizInstaladoresServer in '..\Modulos\Contactos\Model\uBizInstaladoresServer.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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}

3
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<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">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 01 de agosto de 2024 15:42</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">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">5.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de febrero de 2025 17:26</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_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -106,6 +106,7 @@
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizInstaladoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">

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 4,0,0,0 FILEVERSION 5,0,0,0
PRODUCTVERSION 4,0,0,0 PRODUCTVERSION 5,0,0,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", "4.0.0.0\0" VALUE "FileVersion", "5.0.0.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "4.0.0.0\0" VALUE "ProductVersion", "5.0.0.0\0"
VALUE "CompileDate", "jueves, 19 de septiembre de 2024 18:07\0" VALUE "CompileDate", "martes, 25 de febrero de 2025 18:22\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.