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.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 4,0,0,0
PRODUCTVERSION 4,0,0,0
FILEVERSION 5,0,0,0
PRODUCTVERSION 5,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.0.0.0\0"
VALUE "ProductVersion", "5.0.0.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

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

13
Source/GUIBase/uEditorDBItem.dfm
View File

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

12
Source/GUIBase/uEditorGridBase.dfm
View File

@ -5,8 +5,8 @@ inherited fEditorGridBase: TfEditorGridBase
ClientHeight = 444
ClientWidth = 543
OnDestroy = CustomEditorDestroy
ExplicitWidth = 551
ExplicitHeight = 478
ExplicitWidth = 559
ExplicitHeight = 482
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -22,10 +22,10 @@ inherited fEditorGridBase: TfEditorGridBase
inherited TBXDock: TTBXDock
Top = 27
Width = 543
Height = 75
Height = 78
ExplicitTop = 27
ExplicitWidth = 543
ExplicitHeight = 75
ExplicitHeight = 78
inherited tbxMain: TTBXToolbar
DockPos = 0
DragHandleStyle = dhDouble
@ -76,7 +76,7 @@ inherited fEditorGridBase: TfEditorGridBase
end
object tbxFiltro: TTBXToolbar [1]
Left = 0
Top = 49
Top = 51
Align = alRight
CloseButton = False
DefaultDock = TBXDock
@ -180,7 +180,7 @@ inherited fEditorGridBase: TfEditorGridBase
end
object TBXTMain2: TTBXToolbar
Left = 334
Top = 49
Top = 51
Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|'
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\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>
@ -56,28 +59,40 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contabilidad_controller.dcp" />
<DCCReference Include="Contactos_data.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.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="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" />
<DCCReference Include="uGruposClienteController.pas" />
<DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uInstaladoresController.pas" />
<DCCReference Include="uListadosContactosReportController.pas" />
<DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProcedenciasClienteController.pas" />
<DCCReference Include="uProveedoresController.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\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" />
@ -86,11 +101,14 @@
<DCCReference Include="View\uIEditorElegirClientes.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" />
<DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
<DCCReference Include="View\uIEditorElegirInstaladores.pas" />
<DCCReference Include="View\uIEditorElegirPersonaContacto.pas" />
<DCCReference Include="View\uIEditorElegirProveedores.pas" />
<DCCReference Include="View\uIEditorElegirVendedores.pas" />
<DCCReference Include="View\uIEditorGruposCliente.pas" />
<DCCReference Include="View\uIEditorGruposProveedor.pas" />
<DCCReference Include="View\uIEditorInstalador.pas" />
<DCCReference Include="View\uIEditorInstaladores.pas" />
<DCCReference Include="View\uIEditorListadosContactosPreview.pas" />
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
@ -98,7 +116,6 @@
<DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\uIEditorVendedor.pas" />
<DCCReference Include="View\uIEditorVendedores.pas" />
<DCCReference Include="xmlrtl.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup>
</Project>

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

@ -30,12 +30,24 @@ requires
Base,
GUIBase,
ApplicationBase,
Contactos_model;
Contactos_model,
dbrtl,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
RemObjects_Core_D11,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
vclx;
contains
uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: 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.

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

@ -49,12 +49,23 @@
<DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<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\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.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">
<Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass>
@ -63,6 +74,10 @@
<Form>DataModuleContactos</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uDataModuleInstaladores.pas">
<Form>DataModuleInstaladore</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uDataModuleProveedores.pas">
<Form>DataModuleProveedores</Form>
<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">
<MainSource>MainSource</MainSource>
</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="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\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleInstaladores.pas" />
<DCCReference Include="Data\uIDataModuleListadosContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.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

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

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

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

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

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

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

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

@ -523,6 +523,266 @@ object srvContactos: TsrvContactos
DictionaryEntry = 'Contactos_TIENDA'
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
Params = <>
Statements = <
@ -5059,6 +5319,127 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
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>
Left = 126
Top = 14
@ -5176,4 +5557,16 @@ object srvContactos: TsrvContactos
Left = 224
Top = 143
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

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

@ -34,6 +34,7 @@ type
bpSubCuentasContacto: TDABusinessProcessor;
schContactos: TDASchema;
DataDictionary: TDADataDictionary;
bpInstaladores: TDABusinessProcessor;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
@ -53,7 +54,7 @@ uses
uDataModuleServer, uDatabaseUtils, uUsersManager,
schContactosClient_Intf, uBizVendedoresServer,
uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils,
uRptListadosContactos_Server;
uBizInstaladoresServer, uRptListadosContactos_Server;
procedure Create_srvContactos(out anInstance : IUnknown);
begin
@ -83,6 +84,7 @@ begin
bpVendedores.BusinessRulesID := BIZ_SERVER_VENDEDOR;
bpClientes.BusinessRulesID := BIZ_SERVER_CLIENTE;
bpProveedores.BusinessRulesID := BIZ_SERVER_PROVEEDOR;
bpInstaladores.BusinessRulesID := BIZ_SERVER_INSTALADOR;
end;
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,
xmlrtl,
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
uContactosViewRegister in 'uContactosViewRegister.pas',
@ -99,6 +121,12 @@ contains
uViewConfiguracionContactos in 'uViewConfiguracionContactos.pas' {frViewConfiguracionContactos},
uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: 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.

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

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

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

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

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

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

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

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

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

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

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

@ -8,7 +8,7 @@ uses
uControllerBase, uIDataModuleContratosCliente, uClientesController,
uDetallesContratoClienteController, uGestorDocumentosController,
uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente,
uIntegerListUtils;
uIntegerListUtils, uBizContactos;
type
TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios);
@ -63,6 +63,7 @@ type
function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
@ -70,6 +71,7 @@ type
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
end;
TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -137,19 +139,22 @@ type
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false);
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false);
procedure GenerarPDF(AContrato : IBizContratoCliente; AllItems: Boolean = false; AFirmado: Boolean = False);
procedure GenerarPDF(AContrato : IBizContratoCliente; AllItems: Boolean = false; AFirmado: Boolean = False);
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure VerBeneficio(const ID: Integer);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
end;
implementation
@ -157,7 +162,7 @@ implementation
uses
Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorContratosCliente, uDataModuleContratosCliente, Variants,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf,
@ -254,6 +259,32 @@ begin
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;
Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean;
// En el caso de cambiar almenos un elemento del conjunto se devuelve true
@ -431,6 +462,8 @@ begin
// ID_FACTURAIsNull := True;
REFERENCIA := '';
SITUACION := SITUACION_CONTRATO_PENDIENTE;
ID_INSTALADORIsNull := True;
NOMBRE_INSTALADORIsNull := True;
end;
Result.AsignarVendedor;
Result.Post;
@ -1049,6 +1082,35 @@ begin
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);
var
Condicion: TDAWhereExpression;

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

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

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

@ -9,14 +9,14 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{07040A27-DD19-4D93-B5DA-C9C49C1822CA}';
RID_Propiedades = '{3006A5CE-2DB4-46FD-97B3-65E9CBA7AD2A}';
RID_ListaAnosContratos = '{09600C3F-3F5A-4DB6-87A9-12C67B9AC2F1}';
RID_ContratosClienteBeneficios = '{B58A588F-6D51-43FB-B318-5F9ABE371CBE}';
RID_ContratosCliente = '{AFEF7F44-F9AD-4DCC-82CE-A441F94C7B6E}';
RID_TiposCapitulos = '{C4F51BD4-AB1F-4564-8370-E83BDA635D61}';
RID_ContratosCliente_Detalles = '{E45B94F9-C284-41CE-A73F-69E835616CBC}';
RID_ContratoClienteFacturasProv = '{4884E75F-7CFE-4300-B53A-7F8F87745F99}';
RID_Valores = '{20F4DF5F-38DB-4AA6-B17F-5192ED36BC0D}';
RID_Propiedades = '{10A019F3-E795-413B-AE1A-8075665936C4}';
RID_ListaAnosContratos = '{B706B31A-572A-44D7-815A-11028E17F3F0}';
RID_ContratosClienteBeneficios = '{F9036DB4-7264-4B53-B7B7-A33F1FA4F72C}';
RID_ContratosCliente = '{210D5B45-17D3-4EA9-82CC-FD40936C848C}';
RID_TiposCapitulos = '{6781118D-1743-4A35-AD55-9C426656C662}';
RID_ContratosCliente_Detalles = '{DC6E8B1B-AEEE-4CBC-A18D-5B7AB6B693FC}';
RID_ContratoClienteFacturasProv = '{9F92B050-F8CB-4D0B-8C98-53D93B2F93D3}';
{ Data table names }
nme_Valores = 'Valores';
@ -141,6 +141,8 @@ const
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE';
fld_ContratosClienteID_INSTALADOR = 'ID_INSTALADOR';
fld_ContratosClienteNOMBRE_INSTALADOR = 'NOMBRE_INSTALADOR';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -193,6 +195,8 @@ const
idx_ContratosClienteREFERENCIA_CLIENTE = 47;
idx_ContratosClienteLISTA_NOMBRES = 48;
idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 49;
idx_ContratosClienteID_INSTALADOR = 50;
idx_ContratosClienteNOMBRE_INSTALADOR = 51;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -269,7 +273,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{72662564-0D03-463E-94DA-D8D703FC7FFD}']
['{90B6AEAB-CA86-415A-9867-AE6DDF147292}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -328,7 +332,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{F1B345B8-6699-4700-8097-BFC5BDFD8537}']
['{D75A4B85-BBF5-495B-81BD-D8423BEB8878}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -387,7 +391,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{36FADA3D-628F-480A-B077-EA8D6676A7C1}']
['{A58F3174-AAB8-42A5-9F76-CD538099B39D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -422,7 +426,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{BBC61983-3B64-4845-A47B-F8511BBF7A73}']
['{443426BE-76C1-459F-B040-945933103153}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -637,7 +641,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{5ECD7363-96C7-4393-AADE-B82526538C1E}']
['{E5FEBD8B-4FA0-4E95-B596-969808CA3467}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -833,6 +837,14 @@ type
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: 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 }
@ -936,6 +948,10 @@ type
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_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;
{ TContratosClienteDataTableRules }
@ -1149,6 +1165,14 @@ type
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -1251,6 +1275,10 @@ type
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_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
constructor Create(aDataTable: TDADataTable); override;
@ -1263,7 +1291,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{9303AF23-576A-4218-A01D-460C960EE4B3}']
['{42253827-AA15-492F-AFAC-257EB0C0F6D7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1358,7 +1386,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7DA1AFC7-EB2B-4195-8CC5-0AB9E9B72906}']
['{4654E368-8185-40CF-AAD9-9233379440E5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1609,7 +1637,7 @@ type
{ IContratoClienteFacturasProv }
IContratoClienteFacturasProv = interface(IDAStronglyTypedDataTable)
['{92725D42-6696-45DF-9DB5-D9606DF194DD}']
['{B6845872-92DB-4F81-8768-8FD56B3FD473}']
{ Property getters and setters }
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
@ -3318,6 +3346,48 @@ begin
DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{D65A1140-B47F-4E5C-9F78-5E23024E699F}';
RID_PropiedadesDelta = '{6F61B397-916F-47F9-8B1F-143BBE4D8761}';
RID_ListaAnosContratosDelta = '{E49B48FF-2E1A-4370-9CA7-31E903528445}';
RID_ContratosClienteBeneficiosDelta = '{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}';
RID_ContratosClienteDelta = '{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}';
RID_TiposCapitulosDelta = '{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}';
RID_ContratosCliente_DetallesDelta = '{8CE89C32-E498-4B5A-9083-8C056ABE340F}';
RID_ContratoClienteFacturasProvDelta = '{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}';
RID_ValoresDelta = '{3B7D377E-AB81-4975-8494-9821E0FC6AA4}';
RID_PropiedadesDelta = '{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}';
RID_ListaAnosContratosDelta = '{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}';
RID_ContratosClienteBeneficiosDelta = '{703EB6BB-27C5-4E04-AB28-7253E5724A2F}';
RID_ContratosClienteDelta = '{9DE64986-EE28-44BE-BE23-11127CD3AFB0}';
RID_TiposCapitulosDelta = '{7D66353C-5A18-40C0-8523-6DEB3A54899C}';
RID_ContratosCliente_DetallesDelta = '{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}';
RID_ContratoClienteFacturasProvDelta = '{95667A5A-0FA5-4E92-A851-F3D3E7C98260}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{D65A1140-B47F-4E5C-9F78-5E23024E699F}']
['{3B7D377E-AB81-4975-8494-9821E0FC6AA4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -79,7 +79,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{6F61B397-916F-47F9-8B1F-143BBE4D8761}']
['{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -137,7 +137,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{E49B48FF-2E1A-4370-9CA7-31E903528445}']
['{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -171,7 +171,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}']
['{703EB6BB-27C5-4E04-AB28-7253E5724A2F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -385,7 +385,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}']
['{9DE64986-EE28-44BE-BE23-11127CD3AFB0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -437,6 +437,8 @@ type
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLISTA_NOMBRESValue : String;
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime;
function GetOldID_INSTALADORValue : Integer;
function GetOldNOMBRE_INSTALADORValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -489,6 +491,8 @@ type
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
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;
{ TContratosClienteBusinessProcessorRules }
@ -802,6 +806,18 @@ type
function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); 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 }
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 OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1013,7 +1037,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}']
['{7D66353C-5A18-40C0-8523-6DEB3A54899C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1107,7 +1131,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{8CE89C32-E498-4B5A-9083-8C056ABE340F}']
['{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -1357,7 +1381,7 @@ type
{ IContratoClienteFacturasProvDelta }
IContratoClienteFacturasProvDelta = interface(IContratoClienteFacturasProv)
['{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}']
['{95667A5A-0FA5-4E92-A851-F3D3E7C98260}']
{ Property getters and setters }
function GetOldID_CONTRATOValue : Integer;
function GetOldREFERENCIAValue : String;
@ -3802,6 +3826,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null;
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 }
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
DatasetField = '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>
Name = 'ContratosCliente'
@ -769,6 +777,15 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
end
item
Name = 'ID_INSTALADOR'
DataType = datInteger
end
item
Name = 'NOMBRE_INSTALADOR'
DataType = datString
Size = 255
end>
end
item
@ -1321,6 +1338,17 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_INSTALADOR'
DataType = datInteger
Value = ''
end
item
Name = 'NOMBRE_INSTALADOR'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
@ -1337,18 +1365,19 @@ object srvContratosCliente: TsrvContratosCliente
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE)'#10' VAL' +
'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' +
'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' +
'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' +
'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' +
'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' +
'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' +
'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' +
'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' +
'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' +
'IDADES, :REFERENCIA_CLIENTE, :ID_EMPRESA, :FECHA_ULT_PRESENTACIO' +
'N_CLIENTE)'#10#10
'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE,'#10' ' +
'ID_INSTALADOR, NOMBRE_INSTALADOR)'#10' VALUES'#10' (:ID, :ID_CLIENTE' +
', :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINC' +
'IA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACIO' +
'N, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIA' +
'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPO' +
'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :' +
'BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL' +
', :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTAC' +
'TO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MO' +
'VIL, :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIEN' +
'TE, :ID_EMPRESA, :FECHA_ULT_PRESENTACION_CLIENTE,'#10' :ID_INSTA' +
'LADOR, :NOMBRE_INSTALADOR)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1598,6 +1627,17 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datDateTime
Value = ''
end
item
Name = 'ID_INSTALADOR'
DataType = datInteger
Value = ''
end
item
Name = 'NOMBRE_INSTALADOR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1629,7 +1669,9 @@ object srvContratosCliente: TsrvContratosCliente
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ID_EMPRESA' +
' = :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
ColumnMappings = <>
end>

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

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

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

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

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

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

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

@ -19,6 +19,8 @@ type
TBItem1: TTBItem;
procedure FormShow(Sender: TObject);
procedure actVerBeneficioExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
private
FContratos: IBizContratosClienteBeneficios;
FController : IContratosClienteController;
@ -33,6 +35,7 @@ type
protected
procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override;
procedure RefrescarInterno; override;
public
property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos;
@ -46,8 +49,10 @@ var
implementation
{$R *.dfm}
uses
cxControls;
{$R *.dfm}
{ TfEditorContratosClienteBeneficios }
procedure TfEditorContratosClienteBeneficios.actVerBeneficioExecute(
@ -71,6 +76,8 @@ end;
procedure TfEditorContratosClienteBeneficios.FormShow(Sender: TObject);
begin
cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED
inherited;
ViewGrid := frViewContratosClienteBeneficios1;
FContratos.Active := True;
@ -93,26 +100,64 @@ begin
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;
begin
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;
procedure TfEditorContratosClienteBeneficios.SetContratos(const Value: IBizContratosClienteBeneficios);
begin
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;
procedure TfEditorContratosClienteBeneficios.SetController(
const Value: IContratosClienteController);
procedure TfEditorContratosClienteBeneficios.SetController(const Value: IContratosClienteController);
begin
FController := Value;
// if Assigned(FController) then
// ListaAnos := FController.DarListaAnosContratos;
if Assigned(FController) then
ListaAnos := FController.DarListaAnosContratos;
end;
end.

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

@ -1,23 +1,23 @@
inherited frViewContratoCliente: TfrViewContratoCliente
Width = 817
Height = 491
Width = 1027
Height = 801
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 817
ExplicitHeight = 491
ExplicitWidth = 1027
ExplicitHeight = 801
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 817
Height = 491
Width = 1027
Height = 801
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
817
491)
1027
801)
object edtFechaContrato: TcxDBDateEdit
Left = 131
Top = 82
@ -42,8 +42,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129
end
object memObservaciones: TcxDBMemo
Left = 444
Top = 334
Left = 529
Top = 344
Align = alClient
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@ -59,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13
TabOrder = 14
Height = 139
Width = 404
end
@ -119,7 +119,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122
end
object bFormasPago: TButton
Left = 282
Left = 367
Top = 163
Width = 132
Height = 21
@ -159,7 +159,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
object memFormaPago: TcxDBMemo
Left = 22
Top = 324
Top = 459
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource
@ -175,13 +175,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
TabOrder = 11
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 415
Top = 637
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
@ -197,7 +197,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
TabOrder = 12
Height = 100
Width = 396
end
@ -232,7 +232,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 27
end
object cbTipoContrato: TcxDBComboBox
Left = 318
Left = 365
Top = 82
DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource
@ -280,21 +280,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 335
end
inline frViewClienteContrato1: TfrViewClienteContrato
Left = 444
Left = 529
Top = 28
Width = 366
Height = 270
TabOrder = 12
Width = 476
Height = 280
TabOrder = 13
ReadOnly = False
ExplicitLeft = 444
ExplicitLeft = 529
ExplicitTop = 28
ExplicitWidth = 366
ExplicitHeight = 270
ExplicitWidth = 476
ExplicitHeight = 280
inherited dxLayoutControl1: TdxLayoutControl
Width = 366
Height = 270
ExplicitWidth = 366
ExplicitHeight = 270
Width = 476
Height = 280
ExplicitWidth = 478
ExplicitHeight = 280
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 707
Width = 707
@ -316,12 +316,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 707
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 259
ExplicitLeft = 259
Left = 385
ExplicitLeft = 385
end
inherited Button3: TBitBtn
Left = 149
ExplicitLeft = 149
Left = 275
ExplicitLeft = 275
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
@ -331,13 +331,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
inline frViewTienda1: TfrViewTienda
Left = 22
Top = 247
Width = 451
Height = 41
TabOrder = 9
Top = 363
Width = 476
Height = 60
Align = alClient
TabOrder = 10
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 247
ExplicitTop = 363
ExplicitWidth = 476
ExplicitHeight = 60
inherited dxLayoutControl1: TdxLayoutControl
Width = 476
ExplicitWidth = 475
end
end
object edtFechaUltRevision: TcxDBDateEdit
Left = 131
@ -362,6 +369,65 @@ inherited frViewContratoCliente: TfrViewContratoCliente
TabOrder = 4
Width = 123
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
ShowCaption = False
Hidden = True
@ -453,8 +519,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
end
end
object dxLayoutControl1Item15: TdxLayoutItem
Control = frViewDatosYSeleccionInstalador1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group10: TdxLayoutGroup
Caption = 'La factura pertenece a la tienda'
Caption = 'El contrato pertenece a la tienda'
object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewTienda1
ControlOptions.AutoColor = True

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

@ -12,7 +12,8 @@ uses
uViewDireccionEntregaContratoCliente, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
uBizFormasPago, cxButtonEdit, uBizContactos, uContratosClienteController,
uVendedoresController, uViewClienteContrato, uViewTienda;
uVendedoresController, uViewClienteContrato, uViewTienda,
uViewDatosYSeleccionInstalador;
type
IViewContratoCliente = interface(IViewBase)
@ -72,6 +73,8 @@ type
dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item14: TdxLayoutItem;
edtFechaUltRevision: TcxDBDateEdit;
dxLayoutControl1Item15: TdxLayoutItem;
frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
@ -90,6 +93,9 @@ type
function GetController : IContratosClienteController;
procedure SetController (const Value : IContratosClienteController);
procedure OnInstaladorChanged(Sender : TObject);
public
property Controller : IContratosClienteController read GetController write SetController;
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
@ -102,7 +108,7 @@ implementation
{ TfrViewContratoCliente }
uses
uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
uFactuGES_App, uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
@ -131,10 +137,32 @@ begin
cbTipoContrato.Properties.Items.Add(CTE_OBRA);
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;
procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject);
begin
frViewDatosYSeleccionInstalador1.OnInstaladorChanged := Nil;
FFormasPago := Nil;
FFormasPagoController := NIL;
FVendedor := Nil;
@ -175,6 +203,14 @@ begin
Result := FController;
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);
begin
FContrato := Value;
@ -191,6 +227,9 @@ begin
dsVendedor.DataTable := FVendedor.DataTable;
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.';
end
else begin

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

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

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

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

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

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

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

@ -19,7 +19,15 @@ const
CTE_VARIOS = 'Varios';
CTE_SALON = 'Salón';
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_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
@ -559,7 +567,10 @@ begin
if not EsModificable(APresupuesto) then
begin
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;
AEditor.ShowModal;

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

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

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

@ -282,6 +282,7 @@ begin
try
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 (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

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

@ -232,6 +232,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Height = 224
ExplicitWidth = 320
ExplicitHeight = 224
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 320
ExplicitLeft = 320
@ -240,6 +244,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 231
ExplicitLeft = 231
end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
@ -252,6 +260,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 400
ExplicitLeft = 400
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 363
Width = 363
end
end
end
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_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
{ if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
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_TOTAL := AContrato.IMPORTE_TOTAL;
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.RE := AContrato.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',
uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: 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',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_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',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
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 ..\Servicios\RODLFile.res}

3
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -106,6 +106,7 @@
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizInstaladoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.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"
1 VERSIONINFO
FILEVERSION 4,0,0,0
PRODUCTVERSION 4,0,0,0
FILEVERSION 5,0,0,0
PRODUCTVERSION 5,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "4.0.0.0\0"
VALUE "CompileDate", "jueves, 19 de septiembre de 2024 18:07\0"
VALUE "ProductVersion", "5.0.0.0\0"
VALUE "CompileDate", "martes, 25 de febrero de 2025 18:22\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.