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

Arreglado un fallo en contratos de cliente: cuando un cliente tiene varias direcciones y se elegía una direferente a la dirección fiscal no se copiaba ni el nombre ni el NIF/CIF al contrato. Sólo se copiaba la dirección. Ahora se copian todos los datos completos de la dirección al contrato. Se ha copiado del funcionamiento de facturas de cliente.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@660 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2017-04-21 16:50:18 +00:00
parent 6f62ee2ef0
commit 9b814af80b
32 changed files with 1064 additions and 744 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

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

1
Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
View File

@ -74,6 +74,7 @@ begin
try try
with ADireccion do with ADireccion do
begin begin
NIF_CIF := AContacto.NIF_CIF;
NOMBRE := AContacto.NOMBRE; NOMBRE := AContacto.NOMBRE;
CALLE := AContacto.CALLE; CALLE := AContacto.CALLE;
POBLACION := AContacto.POBLACION; POBLACION := AContacto.POBLACION;

436
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -2,18 +2,19 @@ inherited fEditorCliente: TfEditorCliente
Left = 387 Left = 387
Top = 297 Top = 297
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ClientHeight = 852 ClientHeight = 1052
ClientWidth = 998 ClientWidth = 994
ExplicitWidth = 1006 ExplicitTop = -70
ExplicitHeight = 886 ExplicitWidth = 1002
ExplicitHeight = 1086
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 998 Width = 994
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ExplicitWidth = 896 ExplicitWidth = 998
inherited Image1: TImage inherited Image1: TImage
Left = 971 Left = 967
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -49,49 +50,48 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 998 Width = 994
ExplicitWidth = 896 ExplicitWidth = 998
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 446 ExplicitWidth = 579
object TBXItem7: TTBXItem [7] object TBXItem7: TTBXItem [7]
Action = actGruposCliente Action = actGruposCliente
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 998 ExplicitWidth = 994
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 833 Top = 1033
Width = 998 Width = 994
ExplicitTop = 626 ExplicitTop = 833
ExplicitWidth = 896 ExplicitWidth = 998
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 992 Width = 988
Height = 721 Height = 912
ActivePage = pagPersonal ExplicitWidth = 992
ExplicitWidth = 890 ExplicitHeight = 712
ExplicitHeight = 514
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 882 ExplicitLeft = 0
ExplicitHeight = 486 ExplicitTop = 0
ExplicitWidth = 984
ExplicitHeight = 684
inherited frViewPersonalContacto1: TfrViewPersonalContacto inherited frViewPersonalContacto1: TfrViewPersonalContacto
Top = 543 Top = 681
Width = 984 Width = 980
TabOrder = 1 TabOrder = 1
ExplicitTop = 336 ExplicitTop = 681
ExplicitWidth = 882 ExplicitWidth = 980
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 984 Width = 980
ExplicitTop = 25 ExplicitWidth = 984
ExplicitWidth = 882
ExplicitHeight = 461
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 984 Width = 980
ExplicitWidth = 882 ExplicitWidth = 984
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end
@ -109,8 +109,8 @@ inherited fEditorCliente: TfEditorCliente
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 984 Width = 980
Height = 543 Height = 681
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -120,271 +120,183 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 882 ExplicitWidth = 984
ExplicitHeight = 0 ExplicitHeight = 534
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 984 Width = 980
Height = 543 Height = 681
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882 ExplicitWidth = 984
ExplicitHeight = 0 ExplicitHeight = 534
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 922 Left = 935
Top = 218 Top = 218
ExplicitLeft = 922 ExplicitLeft = 935
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 922 Left = 935
Top = 190 Top = 190
ExplicitLeft = 922 ExplicitLeft = 935
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 922 Left = 935
Top = 162 Top = 162
ExplicitLeft = 922 ExplicitLeft = 935
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 216 Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 243 Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 336 ExplicitWidth = 336
Width = 336 Width = 336
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 270 Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 560 Left = 568
Top = 243 Top = 243
Style.LookAndFeel.SkinName = '' ExplicitLeft = 568
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 560
ExplicitTop = 243 ExplicitTop = 243
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 739 Left = 747
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' ExplicitLeft = 747
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 739
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eNombreComercial: TcxDBTextEdit inherited eNombreComercial: TcxDBTextEdit
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 348 Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348 ExplicitTop = 348
ExplicitWidth = 538 ExplicitWidth = 538
Width = 538 Width = 538
end end
inherited cbGrupoCliente: TcxDBComboBox inherited cbGrupoCliente: TcxDBComboBox
Top = 138 Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eBloqueo: TcxDBTextEdit inherited eBloqueo: TcxDBTextEdit
Top = 375 Top = 375
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 375 ExplicitTop = 375
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eCodigoAsignado: TcxDBTextEdit inherited eCodigoAsignado: TcxDBTextEdit
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited cbProcedenciaCliente: TcxDBComboBox inherited cbProcedenciaCliente: TcxDBComboBox
Top = 165 Top = 165
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165 ExplicitTop = 165
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 739 Left = 747
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' ExplicitLeft = 747
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 739
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 739 Left = 747
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' ExplicitLeft = 747
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 739
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 739 Left = 747
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' ExplicitLeft = 747
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 739
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 312 Left = 315
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' ExplicitLeft = 315
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 312
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 739 Left = 747
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' ExplicitLeft = 747
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 739
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 739 Left = 747
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' ExplicitLeft = 747
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 739
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 739 Left = 747
Top = 217 Top = 217
Style.LookAndFeel.SkinName = '' ExplicitLeft = 747
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 739
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 104 ExplicitWidth = 104
Width = 104 Width = 104
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 297 Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297 ExplicitTop = 297
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 644 Left = 652
Top = 270 Top = 270
ExplicitLeft = 644 ExplicitLeft = 652
ExplicitTop = 270 ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 229 ExplicitWidth = 229
Width = 229 Width = 229
end end
@ -409,54 +321,32 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 882 ExplicitWidth = 980
ExplicitHeight = 486 ExplicitHeight = 884
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 984 Width = 980
Height = 693 Height = 884
ExplicitWidth = 882 ExplicitWidth = 980
ExplicitHeight = 486 ExplicitHeight = 884
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 984 Width = 980
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882 ExplicitWidth = 980
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 345 ExplicitWidth = 345
Width = 345 Width = 345
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 596 Left = 594
Style.LookAndFeel.SkinName = '' ExplicitLeft = 594
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitWidth = 318 ExplicitWidth = 318
Width = 318 Width = 318
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 622 ExplicitWidth = 622
Width = 622 Width = 622
end end
inherited eDC: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 743 ExplicitWidth = 743
Width = 743 Width = 743
end end
@ -466,18 +356,22 @@ inherited fEditorCliente: TfEditorCliente
inherited pagPersonal: TTabSheet inherited pagPersonal: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 882 ExplicitWidth = 984
ExplicitHeight = 486 ExplicitHeight = 684
inherited memObservaciones22: TcxDBMemo
ExplicitWidth = 980
ExplicitHeight = 884
Height = 884
Width = 980
end
end end
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 4 ImageIndex = 4
ExplicitWidth = 882
ExplicitHeight = 486
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
Width = 984 Width = 980
Height = 193 Height = 193
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -488,102 +382,74 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 882 ExplicitWidth = 980
ExplicitHeight = 193 ExplicitHeight = 193
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 984 Width = 980
Height = 193 Height = 193
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882 ExplicitWidth = 980
ExplicitHeight = 193 ExplicitHeight = 193
inherited Label1: TLabel inherited Label1: TLabel
Left = 641 Left = 638
Top = 30 Top = 30
Width = 277 Width = 277
ExplicitLeft = 641 ExplicitLeft = 638
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 277 ExplicitWidth = 277
end end
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 713 Left = 710
Top = 62 Top = 62
Style.LookAndFeel.SkinName = '' ExplicitLeft = 710
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 713
ExplicitTop = 62 ExplicitTop = 62
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 427 ExplicitWidth = 427
Width = 427 Width = 427
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 427 ExplicitWidth = 427
Width = 427 Width = 427
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 289 ExplicitWidth = 289
Width = 289 Width = 289
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 481 Left = 478
Top = 57 Top = 57
ExplicitLeft = 481 ExplicitLeft = 478
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 289 ExplicitWidth = 289
Width = 289 Width = 289
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 481 Left = 478
Top = 84 Top = 84
ExplicitLeft = 481 ExplicitLeft = 478
ExplicitTop = 84 ExplicitTop = 84
end end
inherited cxDBSpinEdit1: TcxDBSpinEdit inherited cxDBSpinEdit1: TcxDBSpinEdit
Left = 713 Left = 710
Top = 89 Top = 89
Style.LookAndFeel.SkinName = '' ExplicitLeft = 710
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 713
ExplicitTop = 89 ExplicitTop = 89
end end
inherited cxDBSpinEdit2: TcxDBSpinEdit inherited cxDBSpinEdit2: TcxDBSpinEdit
Left = 713 Left = 710
Top = 116 Top = 116
Style.LookAndFeel.SkinName = '' ExplicitLeft = 710
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 713
ExplicitTop = 116 ExplicitTop = 116
end end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
@ -599,13 +465,11 @@ inherited fEditorCliente: TfEditorCliente
object pagDirecciones: TTabSheet object pagDirecciones: TTabSheet
Caption = 'Direcciones' Caption = 'Direcciones'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 882
ExplicitHeight = 486
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
Width = 984 Width = 980
Height = 693 Height = 884
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -615,11 +479,11 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 882 ExplicitWidth = 980
ExplicitHeight = 486 ExplicitHeight = 884
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 984 Width = 980
Height = 668 Height = 859
ExplicitWidth = 984 ExplicitWidth = 984
ExplicitHeight = 668 ExplicitHeight = 668
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -630,8 +494,20 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 984 Width = 980
ExplicitWidth = 984 ExplicitWidth = 984
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -639,13 +515,11 @@ inherited fEditorCliente: TfEditorCliente
Caption = 'Descuentos' Caption = 'Descuentos'
ImageIndex = 2 ImageIndex = 2
TabVisible = False TabVisible = False
ExplicitWidth = 882
ExplicitHeight = 486
inline frViewClienteDescuentos1: TfrViewClienteDescuentos inline frViewClienteDescuentos1: TfrViewClienteDescuentos
Left = 0 Left = 0
Top = 0 Top = 0
Width = 984 Width = 980
Height = 693 Height = 884
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -655,16 +529,16 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 882 ExplicitWidth = 980
ExplicitHeight = 486 ExplicitHeight = 884
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 984 Width = 980
Height = 668 Height = 859
ExplicitWidth = 984 ExplicitWidth = 984
ExplicitHeight = 668 ExplicitHeight = 668
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 984 Width = 980
ExplicitWidth = 984 ExplicitWidth = 984
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
@ -684,13 +558,15 @@ inherited fEditorCliente: TfEditorCliente
object pagContabilidad: TTabSheet object pagContabilidad: TTabSheet
Caption = 'Contabilidad' Caption = 'Contabilidad'
ImageIndex = 5 ImageIndex = 5
ExplicitWidth = 882 ExplicitLeft = 0
ExplicitHeight = 486 ExplicitTop = 0
ExplicitWidth = 984
ExplicitHeight = 684
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 984 Width = 980
Height = 693 Height = 884
Align = alClient Align = alClient
AutoSize = True AutoSize = True
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -701,50 +577,38 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 882 ExplicitWidth = 984
ExplicitHeight = 486 ExplicitHeight = 684
inherited layoutApunte: TdxLayoutControl inherited layoutApunte: TdxLayoutControl
Width = 984 Width = 980
Height = 693 Height = 884
ExplicitWidth = 882 ExplicitWidth = 984
ExplicitHeight = 486 ExplicitHeight = 684
DesignSize = ( DesignSize = (
984 980
693) 884)
inherited eRefSubCuenta: TcxDBTextEdit inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 441 ExplicitWidth = 441
Width = 441 Width = 441
end end
inherited BitBtn3: TBitBtn inherited BitBtn3: TBitBtn
Left = 642 Left = 638
ExplicitLeft = 642 ExplicitLeft = 638
end end
inherited eSubCuenta: TcxDBTextEdit inherited eSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 779 ExplicitWidth = 779
Width = 779 Width = 779
end end
inherited BitBtn1: TBitBtn inherited BitBtn1: TBitBtn
Left = 758 Left = 754
ExplicitLeft = 758 ExplicitLeft = 754
end end
inherited BitBtn2: TBitBtn inherited BitBtn2: TBitBtn
Left = 884 Left = 880
ExplicitLeft = 884 ExplicitLeft = 880
end end
inherited cbIgnorarContabilidad: TcxDBCheckBox inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewCliente1.dsContacto DataBinding.DataSource = frViewCliente1.dsContacto
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 862 ExplicitWidth = 862
Width = 862 Width = 862
end end
@ -760,12 +624,8 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 998 Width = 994
ExplicitWidth = 896 ExplicitWidth = 998
inherited lbComentario: TLabel
Width = 988
Height = 25
end
end end
inherited dsDataTable: TDADataSource inherited dsDataTable: TDADataSource
Left = 16 Left = 16

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

@ -15,7 +15,8 @@ uses
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos, uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto, uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto,
uViewPersonalContacto, Grids, DBGrids; uViewPersonalContacto, Grids, DBGrids, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMemo, cxDBEdit;
type type
TfEditorCliente = class(TfEditorContacto, IEditorCliente) TfEditorCliente = class(TfEditorContacto, IEditorCliente)
@ -46,7 +47,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc} {$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem, cxDBEdit, uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils, uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils,
uClientesController; uClientesController;

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

@ -24,7 +24,7 @@ inherited fEditorContacto: TfEditorContacto
Width = 949 Width = 949
ExplicitWidth = 949 ExplicitWidth = 949
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 423
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -86,20 +86,19 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 943 Width = 943
Height = 608 Height = 599
ActivePage = pagPersonal
ExplicitWidth = 943 ExplicitWidth = 943
ExplicitHeight = 608 ExplicitHeight = 599
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 580 ExplicitHeight = 571
inline frViewPersonalContacto1: TfrViewPersonalContacto inline frViewPersonalContacto1: TfrViewPersonalContacto
Left = 0 Left = 0
Top = 430 Top = 368
Width = 935 Width = 935
Height = 150 Height = 203
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -109,12 +108,12 @@ inherited fEditorContacto: TfEditorContacto
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitTop = 430 ExplicitTop = 368
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 150 ExplicitHeight = 203
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 935 Width = 935
Height = 125 Height = 178
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 125 ExplicitHeight = 125
end end
@ -131,7 +130,7 @@ inherited fEditorContacto: TfEditorContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 935 Width = 935
Height = 580 Height = 571
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -142,17 +141,13 @@ inherited fEditorContacto: TfEditorContacto
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 580 ExplicitHeight = 571
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 935 Width = 935
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 935 ExplicitWidth = 935
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 114 ExplicitWidth = 114
Width = 114 Width = 114
@ -160,10 +155,6 @@ inherited fEditorContacto: TfEditorContacto
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 570 Left = 570
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570 ExplicitLeft = 570
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 112 ExplicitWidth = 112
@ -171,28 +162,16 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
@ -215,7 +194,7 @@ inherited fEditorContacto: TfEditorContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Height = 580 Height = 571
Width = 935 Width = 935
end end
end end

18
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm
View File

@ -1,12 +1,12 @@
inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Width = 350 Width = 781
Height = 212 Height = 212
ExplicitWidth = 350 ExplicitWidth = 781
ExplicitHeight = 212 ExplicitHeight = 212
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 350 Width = 781
Height = 212 Height = 212
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -18,7 +18,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
350 781
212) 212)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 64 Left = 64
@ -28,7 +28,6 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -51,7 +50,6 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -74,7 +72,6 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -97,7 +94,6 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -120,7 +116,6 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -136,14 +131,13 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Width = 327 Width = 327
end end
object edtCodigoPostal: TcxDBTextEdit object edtCodigoPostal: TcxDBTextEdit
Left = 258 Left = 689
Top = 122 Top = 122
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -247,7 +241,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object Button3: TBitBtn object Button3: TBitBtn
Left = 148 Left = 579
Top = 176 Top = 176
Width = 192 Width = 192
Height = 25 Height = 25

25
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.pas
View File

@ -76,9 +76,6 @@ type
FCliente : IBizCliente; FCliente : IBizCliente;
FOnClienteChanged : TNotifyEvent; FOnClienteChanged : TNotifyEvent;
FMsgElegirCliente: String; FMsgElegirCliente: String;
function GetMsgElegirCliente: String;
procedure SetMsgElegirCliente(const Value: String);
protected protected
function GetController: IClientesController; function GetController: IClientesController;
procedure SetController(Value: IClientesController); procedure SetController(Value: IClientesController);
@ -89,6 +86,8 @@ type
procedure SetReadOnly(Value: Boolean); override; procedure SetReadOnly(Value: Boolean); override;
function GetID_Cliente: integer; function GetID_Cliente: integer;
procedure SetID_Cliente(const Value: integer); procedure SetID_Cliente(const Value: integer);
function GetMsgElegirCliente: String;
procedure SetMsgElegirCliente(const Value: String);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -104,7 +103,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDataModuleClientes, Math, uCustomView; uDataModuleClientes, Math, uCustomView, uDialogUtils;
procedure TfrViewDatosYSeleccionCliente.actElegirContactoExecute(Sender: TObject); procedure TfrViewDatosYSeleccionCliente.actElegirContactoExecute(Sender: TObject);
var var
@ -137,9 +136,23 @@ begin
end; end;
procedure TfrViewDatosYSeleccionCliente.actVerContactoExecute(Sender: TObject); procedure TfrViewDatosYSeleccionCliente.actVerContactoExecute(Sender: TObject);
var
ACliente : IBizCliente;
begin begin
inherited; if not Assigned(Cliente) then
Controller.Ver(Cliente); ShowErrorMessage('No se ha indicado un cliente', 'El contrato no tiene ningún cliente asociado a mostrar.')
else begin
Controller.Ver(Cliente);
if (Application.MessageBox('¿Desea recargar los datos del cliente en el documento?', 'Atención', MB_YESNO) = IDYES) then
begin
ACliente := (Controller.Buscar(Cliente.ID) as IBizCliente);
if Assigned(ACliente) then
Self.Cliente := ACliente;
ACliente := Nil;
end;
end;
end; end;
procedure TfrViewDatosYSeleccionCliente.actVerContactoUpdate(Sender: TObject); procedure TfrViewDatosYSeleccionCliente.actVerContactoUpdate(Sender: TObject);

6
Source/Modulos/Contactos/Views/uViewDatosYSeleccionProveedor.dfm
View File

@ -28,7 +28,6 @@ inherited frViewDatosYSeleccionProveedor: TfrViewDatosYSeleccionProveedor
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -51,7 +50,6 @@ inherited frViewDatosYSeleccionProveedor: TfrViewDatosYSeleccionProveedor
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -74,7 +72,6 @@ inherited frViewDatosYSeleccionProveedor: TfrViewDatosYSeleccionProveedor
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -97,7 +94,6 @@ inherited frViewDatosYSeleccionProveedor: TfrViewDatosYSeleccionProveedor
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -120,7 +116,6 @@ inherited frViewDatosYSeleccionProveedor: TfrViewDatosYSeleccionProveedor
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -143,7 +138,6 @@ inherited frViewDatosYSeleccionProveedor: TfrViewDatosYSeleccionProveedor
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame

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

@ -64,6 +64,8 @@ type
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end; end;
TContratosClienteController = class(TControllerBase, IContratosClienteController) TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -138,6 +140,8 @@ type
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end; end;
implementation implementation
@ -292,6 +296,45 @@ begin
end; end;
end; end;
procedure TContratosClienteController.CopiarDireccion(
const ADireccion: IBizDireccionesContacto;
AContrato: IBizContratoCliente);
var
bEnEdicion : Boolean;
begin
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (CopiarDireccion)');
if not Assigned(ADireccion) then
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
if AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
if ADireccion.DataTable.Active then
ADireccion.DataTable.Active := True;
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
if not bEnEdicion then
AContrato.Edit;
ShowHourglassCursor;
AContrato.Edit;
try
AContrato.CALLE := ADireccion.CALLE;
AContrato.POBLACION := ADireccion.POBLACION;
AContrato.CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
AContrato.PROVINCIA := ADireccion.PROVINCIA;
AContrato.NIF_CIF := ADireccion.NIF_CIF;
AContrato.NOMBRE := ADireccion.NOMBRE;
if not bEnEdicion then
AContrato.Post;
finally
HideHourglassCursor;
end;
end;
constructor TContratosClienteController.Create; constructor TContratosClienteController.Create;
begin begin
inherited; inherited;

3
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk
View File

@ -93,6 +93,7 @@ contains
uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame}, uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame},
uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame}, uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame},
uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame}, uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame},
uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame}; uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame},
uViewClienteContrato in 'uViewClienteContrato.pas' {frViewClienteContrato: TFrame};
end. end.

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

@ -49,58 +49,51 @@
<DelphiCompile Include="ContratosCliente_view.dpk"> <DelphiCompile Include="ContratosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" /> <DCCReference Include="ConCli_AlbCli_relation.dcp" />
<DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" /> <DCCReference Include="ConCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\ConCli_PedProv_relation.dcp" /> <DCCReference Include="ConCli_PedProv_relation.dcp" />
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" /> <DCCReference Include="ContratosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" /> <DCCReference Include="ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxExportD11.dcp" /> <DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" /> <DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxGridD11.dcp" /> <DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" /> <DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" /> <DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\dcldxCoreD11.dcp" /> <DCCReference Include="dcldxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\designide.dcp" /> <DCCReference Include="designide.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" /> <DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" /> <DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" /> <DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" /> <DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" /> <DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" /> <DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" /> <DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" /> <DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" /> <DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" /> <DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Lib\Jcl.dcp" /> <DCCReference Include="Jcl.dcp" />
<DCCReference Include="..\..\Lib\JclVcl.dcp" /> <DCCReference Include="JclVcl.dcp" />
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" /> <DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" /> <DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" /> <DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" /> <DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" /> <DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" /> <DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" /> <DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" /> <DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="..\..\Lib\tbx_d10.dcp" /> <DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclshlctrls.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
<DCCReference Include="uContratosClienteViewRegister.pas" /> <DCCReference Include="uContratosClienteViewRegister.pas" />
<DCCReference Include="uEditorContratoCliente.pas"> <DCCReference Include="uEditorContratoCliente.pas">
<Form>fEditorPresupuestoCliente</Form> <Form>fEditorPresupuestoCliente</Form>
@ -126,6 +119,10 @@
<Form>fEditorElegirPresupuestosCliente</Form> <Form>fEditorElegirPresupuestosCliente</Form>
<DesignClass>TfEditorElegirPedidosCliente</DesignClass> <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewClienteContrato.pas">
<Form>frViewClienteContrato</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewContratoCliente.pas"> <DCCReference Include="uViewContratoCliente.pas">
<Form>frViewContratoCliente</Form> <Form>frViewContratoCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -158,6 +155,13 @@
<Form>frViewElegirArticulosContratosCliente</Form> <Form>frViewElegirArticulosContratosCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -168,27 +168,219 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 614 ExplicitTop = 779
ExplicitWidth = 872 ExplicitWidth = 872
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 866 Width = 866
Height = 464 Height = 464
ActivePage = pagDocumentos
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 866 ExplicitWidth = 866
ExplicitHeight = 299 ExplicitHeight = 464
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 271 ExplicitHeight = 436
inline frViewContratoCliente1: TfrViewContratoCliente
Left = 0
Top = 0
Width = 858
Height = 436
Align = alClient
TabOrder = 0
ReadOnly = False
ExplicitWidth = 858
ExplicitHeight = 436
inherited dxLayoutControl1: TdxLayoutControl
Width = 858
Height = 436
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 858
ExplicitHeight = 436
inherited edtFechaContrato: TcxDBDateEdit
Top = 84
ExplicitTop = 84
ExplicitWidth = 129
Width = 129
end
inherited memObservaciones: TcxDBMemo
Left = 449
Top = 378
ExplicitLeft = 449
ExplicitTop = 378
ExplicitWidth = 404
ExplicitHeight = 139
Height = 139
Width = 404
end
inherited eReferencia: TcxDBTextEdit
Top = 30
ExplicitTop = 30
ExplicitWidth = 122
Width = 122
end
inherited cbFormaPago: TcxDBLookupComboBox
Top = 138
ExplicitTop = 138
ExplicitWidth = 122
Width = 122
end
inherited bFormasPago: TButton
Left = 289
Top = 138
ExplicitLeft = 289
ExplicitTop = 138
end
inherited cbSituacion: TcxDBImageComboBox
Top = 111
ExplicitTop = 111
ExplicitWidth = 260
Width = 260
end
inherited memFormaPago: TcxDBMemo
Top = 216
ExplicitTop = 216
ExplicitWidth = 396
ExplicitHeight = 100
Height = 100
Width = 396
end
inherited memPlazoEntrega: TcxDBMemo
Top = 333
ExplicitTop = 333
ExplicitWidth = 396
ExplicitHeight = 100
Height = 100
Width = 396
end
inherited cbVendedor: TcxDBLookupComboBox
Top = 165
ExplicitTop = 165
ExplicitWidth = 27
Width = 27
end
inherited cbTipoContrato: TcxDBComboBox
Left = 310
Top = 84
ExplicitLeft = 310
ExplicitTop = 84
ExplicitWidth = 113
Width = 113
end
inherited edtlREF_CLIENTE: TcxDBTextEdit
Top = 57
ExplicitTop = 57
ExplicitWidth = 335
Width = 335
end
inherited frViewClienteContrato1: TfrViewClienteContrato
Left = 449
Top = 30
Width = 357
ExplicitLeft = 449
ExplicitTop = 30
ExplicitWidth = 357
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
LookAndFeel = dxLayoutOfficeLookAndFeel1
inherited Bevel1: TBevel
Left = 82
Top = 72
Width = 266
ExplicitLeft = 82
ExplicitTop = 72
ExplicitWidth = 266
end
inherited edtlNombre: TcxDBTextEdit
Left = 82
Top = 95
DataBinding.DataSource = dsDataTable
Properties.OnChange = frViewClienteContrato1edtlNombrePropertiesChange
Properties.OnEditValueChanged = frViewClienteContrato1edtlNombrePropertiesEditValueChanged
ExplicitLeft = 82
ExplicitTop = 95
ExplicitWidth = 707
Width = 707
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 82
Top = 122
DataBinding.DataSource = dsDataTable
ExplicitLeft = 82
ExplicitTop = 122
ExplicitWidth = 707
Width = 707
end
inherited edtCalle: TcxDBTextEdit
Left = 82
Top = 149
DataBinding.DataSource = dsDataTable
ExplicitLeft = 82
ExplicitTop = 149
ExplicitWidth = 707
Width = 707
end
inherited edtPoblacion: TcxDBTextEdit
Left = 82
Top = 176
DataBinding.DataSource = dsDataTable
ExplicitLeft = 82
ExplicitTop = 176
ExplicitWidth = 589
Width = 589
end
inherited edtProvincia: TcxDBTextEdit
Left = 82
Top = 203
DataBinding.DataSource = dsDataTable
ExplicitLeft = 82
ExplicitTop = 203
ExplicitWidth = 707
Width = 707
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 294
Top = 176
DataBinding.DataSource = dsDataTable
ExplicitLeft = 294
ExplicitTop = 176
end
inherited Button1: TBitBtn
Left = 11
Top = 11
ExplicitLeft = 11
ExplicitTop = 11
end
inherited Button2: TBitBtn
Left = 132
Top = 11
ExplicitLeft = 132
ExplicitTop = 11
end
inherited Button3: TBitBtn
Left = 184
Top = 230
ExplicitLeft = 184
ExplicitTop = 230
end
inherited cxDBTextEdit1: TcxDBTextEdit
Left = 82
Top = 42
ExplicitLeft = 82
ExplicitTop = 42
ExplicitWidth = 283
Width = 283
end
end
end
end
end
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 271
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -206,7 +398,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 271 ExplicitHeight = 436
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
@ -216,65 +408,67 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontSize: TEdit [5]
Left = 0 Left = 0
ExplicitLeft = 0
end
inherited ToolButton13: TToolButton [6]
Left = 145
ExplicitLeft = 145
end
inherited ToolButton6: TToolButton [7]
Left = 153
ExplicitLeft = 153
end
inherited ToolButton7: TToolButton [8]
Left = 187
ExplicitLeft = 187
end
inherited ToolButton8: TToolButton [9]
Left = 221
ExplicitLeft = 221
end
inherited ToolButton12: TToolButton [10]
Left = 255
ExplicitLeft = 255
end
inherited ToolButton9: TToolButton [11]
Left = 263
ExplicitLeft = 263
end
inherited ToolButton10: TToolButton [12]
Left = 297
ExplicitLeft = 297
end
inherited ToolButton11: TToolButton [13]
Left = 331
ExplicitLeft = 331
end
inherited FontSize: TEdit [14]
Left = 365
Width = 110 Width = 110
ExplicitLeft = 365 ExplicitLeft = 0
ExplicitWidth = 110 ExplicitWidth = 110
end end
inherited UpDown1: TUpDown [15] inherited UpDown1: TUpDown [6]
Left = 475 Left = 110
ExplicitLeft = 475 ExplicitLeft = 110
end
inherited FontName: TJvFontComboBox [7]
Left = 127
ExplicitLeft = 127
end
inherited ToolButton13: TToolButton
Left = 272
ExplicitLeft = 272
end
inherited ToolButton6: TToolButton
Left = 280
ExplicitLeft = 280
end
inherited ToolButton7: TToolButton
Left = 314
ExplicitLeft = 314
end
inherited ToolButton8: TToolButton
Left = 348
ExplicitLeft = 348
end
inherited ToolButton12: TToolButton
Left = 382
ExplicitLeft = 382
end
inherited ToolButton9: TToolButton
Left = 390
ExplicitLeft = 390
end
inherited ToolButton10: TToolButton
Left = 424
ExplicitLeft = 424
end
inherited ToolButton11: TToolButton
Left = 458
ExplicitLeft = 458
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 858 Width = 858
Height = 361 Height = 361
ExplicitTop = 53 ExplicitTop = 75
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 218 ExplicitHeight = 361
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 858 Width = 858
ExplicitTop = 46
ExplicitWidth = 858 ExplicitWidth = 858
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 858 ExplicitWidth = 858
@ -294,7 +488,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagCalidades: TTabSheet object pagCalidades: TTabSheet
Caption = 'Calidades' Caption = 'Calidades'
ImageIndex = 5 ImageIndex = 5
ExplicitHeight = 271
object dxLayoutControl2: TdxLayoutControl object dxLayoutControl2: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -304,7 +497,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 271
object memCalidades: TcxDBMemo object memCalidades: TcxDBMemo
Left = 10 Left = 10
Top = 10 Top = 10
@ -343,7 +535,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagCondiciones: TTabSheet object pagCondiciones: TTabSheet
Caption = 'Condiciones' Caption = 'Condiciones'
ImageIndex = 4 ImageIndex = 4
ExplicitHeight = 271
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -353,7 +544,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 271
object memCondiciones: TcxDBMemo object memCondiciones: TcxDBMemo
Left = 10 Left = 10
Top = 10 Top = 10
@ -392,7 +582,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 271
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -408,7 +597,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 271 ExplicitHeight = 436
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
@ -420,9 +609,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 858 Width = 858
Height = 408 Height = 408
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 243 ExplicitHeight = 408
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitTop = 18
ExplicitWidth = 854 ExplicitWidth = 854
ExplicitHeight = 391 ExplicitHeight = 391
Height = 391 Height = 391
@ -435,7 +623,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Caption = 'Documentos' Caption = 'Documentos'
ImageIndex = 5 ImageIndex = 5
OnShow = pagDocumentosShow OnShow = pagDocumentosShow
ExplicitHeight = 271
inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -451,7 +638,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 271 ExplicitHeight = 436
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
@ -459,8 +646,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited ListView1: TListView inherited ListView1: TListView
Width = 858 Width = 858
Height = 407 Height = 407
ExplicitTop = 29
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 242 ExplicitHeight = 407
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 8 Left = 8
@ -491,7 +679,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 420 ExplicitTop = 585
ExplicitWidth = 872 ExplicitWidth = 872
ExplicitHeight = 194 ExplicitHeight = 194
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -499,7 +687,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 872 ExplicitWidth = 872
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 429 Left = 429
Height = 122
ExplicitLeft = 429 ExplicitLeft = 429
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 541 Left = 541

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

@ -18,7 +18,7 @@ uses
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesContratoCliente, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesContratoCliente,
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, cxPC, uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, cxPC,
uViewDocumentos, uViewDocumentos,
uViewDocumentosContratoCliente, uViewDatosYSeleccionClienteContrato, uViewDocumentosContratoCliente, uViewClienteContrato,
cxLabel, uBizTiposIVA, uTiposIVAController, dxLayoutControl; cxLabel, uBizTiposIVA, uTiposIVAController, dxLayoutControl;
type type
@ -47,6 +47,7 @@ type
memCalidades: TcxDBMemo; memCalidades: TcxDBMemo;
dxLayoutGroup1: TdxLayoutGroup; dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem; dxLayoutItem1: TdxLayoutItem;
frViewContratoCliente1: TfrViewContratoCliente;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -61,7 +62,11 @@ type
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
procedure pagDocumentosShow(Sender: TObject); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor. procedure pagDocumentosShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure frViewClienteContrato1edtlNombrePropertiesEditValueChanged(
Sender: TObject);
procedure frViewClienteContrato1edtlNombrePropertiesChange(Sender: TObject); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor.
private private
//procedure RecalcularPortePorUnidad; //procedure RecalcularPortePorUnidad;
@ -70,7 +75,7 @@ type
FContrato: IBizContratoCliente; FContrato: IBizContratoCliente;
FTiposIVAController : ITiposIVAController; FTiposIVAController : ITiposIVAController;
FTiposIVA: IBizTipoIVA; FTiposIVA: IBizTipoIVA;
FViewContrato: IViewContratoCliente; FViewContratoCliente: IViewContratoCliente;
FViewClienteContrato :IViewDatosYSeleccionClienteContrato; FViewClienteContrato :IViewDatosYSeleccionClienteContrato;
FController : IContratosClienteController; FController : IContratosClienteController;
@ -80,22 +85,18 @@ type
function GetContrato: IBizContratoCliente; function GetContrato: IBizContratoCliente;
procedure SetContrato(const Value: IBizContratoCliente); virtual; procedure SetContrato(const Value: IBizContratoCliente); virtual;
function GetViewContrato: IViewContratoCliente; function GetViewContratoCliente: IViewContratoCliente;
procedure SetViewContrato(const Value: IViewContratoCliente); procedure SetViewContratoCliente(const Value: IViewContratoCliente);
procedure PrevisualizarInterno; override; procedure PrevisualizarInterno; override;
procedure ImprimirInterno; override; procedure ImprimirInterno; override;
procedure GuardarInterno; override; procedure GuardarInterno; override;
procedure EliminarInterno; override; procedure EliminarInterno; override;
property ViewContrato: IViewContratoCliente read GetViewContrato write SetViewContrato; property ViewContratoCliente: IViewContratoCliente read GetViewContratoCliente write SetViewContratoCliente;
procedure OnClienteChanged(Sender : TObject); procedure OnClienteChanged(Sender : TObject);
//Si queremos crear otra vista para el editor heredado solo tendriamos que
//sobreescribir este metodo
procedure AsignarVista; virtual;
procedure PonerTitulos(const ATitulo: string = ''); override; procedure PonerTitulos(const ATitulo: string = ''); override;
function GetModified: Boolean; override; function GetModified: Boolean; override;
procedure SetModified(const Value : Boolean); override; procedure SetModified(const Value : Boolean); override;
@ -123,47 +124,14 @@ uses
{ {
**************************** TfEditorContratoCliente **************************** **************************** TfEditorContratoCliente ****************************
} }
procedure TfEditorContratoCliente.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FContrato.SITUACION = SITUACION_Contrato_PENDIENTE);
end;
procedure TfEditorContratoCliente.actEnviarPorEMailExecute(Sender: TObject);
begin
inherited;
FController.EnviarContratoPorEMail(Contrato);
end;
procedure TfEditorContratoCliente.actEnviarPorEMailUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos;
end;
procedure TfEditorContratoCliente.AsignarVista;
var
AViewContratoCliente: TfrViewContratoCliente;
begin
AViewContratoCliente := TfrViewContratoCliente.create(Self);
with AViewContratoCliente do
begin
Parent := pagGeneral;
Align := alClient;
dxLayoutControl1.LookAndFeel := dxLayoutOfficeLookAndFeel1;
end;
ViewContrato := AViewContratoCliente;
end;
constructor TfEditorContratoCliente.Create(AOwner: TComponent); constructor TfEditorContratoCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;
pgPaginas.ActivePageIndex := 0; pgPaginas.ActivePageIndex := 0;
AsignarVista; ViewContratoCliente := frViewContratoCliente1;
FTiposIVAController := TTiposIVAController.Create; FTiposIVAController := TTiposIVAController.Create;
end; end;
procedure TfEditorContratoCliente.CustomEditorClose(Sender: TObject; procedure TfEditorContratoCliente.CustomEditorClose(Sender: TObject;
@ -174,10 +142,15 @@ begin
//Este método eliminará el directorio temporal si se ha creado //Este método eliminará el directorio temporal si se ha creado
frViewDocumentosContratoCliente1.actEliminarTodo.Execute; frViewDocumentosContratoCliente1.actEliminarTodo.Execute;
FViewContrato := NIL; dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := nil;
FViewContratoCliente := NIL;
FViewClienteContrato := NIL; FViewClienteContrato := NIL;
FTiposIVA := NIL;
FTiposIVAController := Nil;
FContrato := NIL; FContrato := NIL;
FTiposIVAController := Nil;
end; end;
destructor TfEditorContratoCliente.Destroy; destructor TfEditorContratoCliente.Destroy;
@ -186,9 +159,18 @@ begin
inherited; inherited;
end; end;
procedure TfEditorContratoCliente.dsDataTableDataChange(Sender: TObject;
Field: TField);
begin
inherited;
if Assigned(FContrato) and (not (FContrato.DataTable.Fetching) or
not (FContrato.DataTable.Opening) or not (FContrato.DataTable.Closing)) then
PonerTitulos;
end;
procedure TfEditorContratoCliente.EliminarInterno; procedure TfEditorContratoCliente.EliminarInterno;
begin begin
if (ShowConfirmMessage('¿Desea borrar este Contrato de cliente?', '') = IDYES) then if (ShowConfirmMessage('¿Desea borrar este contrato de cliente?', '') = IDYES) then
begin begin
FController.Eliminar(FContrato); FController.Eliminar(FContrato);
inherited inherited
@ -199,7 +181,7 @@ procedure TfEditorContratoCliente.FormShow(Sender: TObject);
begin begin
inherited; inherited;
if not Assigned(FViewContrato) then if not Assigned(FViewContratoCliente) then
raise Exception.Create('No hay ninguna vista asignada'); raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(Contrato) then if not Assigned(Contrato) then
@ -211,6 +193,21 @@ begin
Contrato.DataTable.Active := True; Contrato.DataTable.Active := True;
end; end;
procedure TfEditorContratoCliente.frViewClienteContrato1edtlNombrePropertiesChange(
Sender: TObject);
begin
inherited;
PonerTitulos;
end;
procedure TfEditorContratoCliente.frViewClienteContrato1edtlNombrePropertiesEditValueChanged(
Sender: TObject);
begin
inherited;
with (Sender as TcxDBTextEdit) do
Enabled := (FContrato.ID <> 0)
end;
procedure TfEditorContratoCliente.frViewTotales1bTiposIVAClick( procedure TfEditorContratoCliente.frViewTotales1bTiposIVAClick(
Sender: TObject); Sender: TObject);
begin begin
@ -263,9 +260,9 @@ begin
Result := FContrato; Result := FContrato;
end; end;
function TfEditorContratoCliente.GetViewContrato: IViewContratoCliente; function TfEditorContratoCliente.GetViewContratoCliente: IViewContratoCliente;
begin begin
Result := FViewContrato; Result := FViewContratoCliente;
end; end;
procedure TfEditorContratoCliente.GuardarInterno; procedure TfEditorContratoCliente.GuardarInterno;
@ -302,14 +299,45 @@ begin
end; end;
procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject); procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
var
AClientesController : IClientesController;
ADireccion : IBizDireccionesContacto;
begin begin
if Assigned(FContrato) then if Assigned(FContrato) then
begin begin
FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente; FContrato.Cliente := frViewContratoCliente1.frViewClienteContrato1.Cliente;
//Desactivado porque en Contratos no utilizan el catálogo de clientes if not (FContrato.DataTable.State in dsEditModes) then
// if (FContrato.Detalles.RecordCount > 0) then FContrato.DataTable.Edit;
// FController.DetallesController.ActualizarDetalles(FContrato.Detalles, FContrato.Cliente);
// En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
AClientesController := TClientesController.Create;
try
case FContrato.Cliente.Direcciones.RecordCount of
0 : //No hay direcciones secundarias asociadas
else ADireccion := AClientesController.ElegirDireccion(FContrato.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este contrato.');
end;
// Si hay dirección de envio, copiarla a la factura y poner el coste del porte
if Assigned(ADireccion) then
begin
if not ADireccion.IDIsNull then
try
FContrato.Edit;
FContrato.IMPORTE_PORTE := ADireccion.PORTE;
FController.CopiarDireccion(ADireccion, FContrato);
finally
ADireccion := NIL;
end;
end
finally
AClientesController := Nil;
end;
//Desactivado porque en Contratos no utilizan el catálogo de clientes
// if (FContrato.Detalles.RecordCount > 0) then
// FController.DetallesController.ActualizarDetalles(FContrato.Detalles, FContrato.Cliente);
end; end;
end; end;
@ -384,7 +412,7 @@ begin
if Assigned(FController) then if Assigned(FController) then
begin begin
// ViewContrato.ViewClienteContrato.Controller := Controller.ClienteController; ViewContratoCliente.Controller := FController;
frViewDetallesContratoCliente1.Controller := Controller.DetallesController; frViewDetallesContratoCliente1.Controller := Controller.DetallesController;
//GESTION_DOCUMENTOS //GESTION_DOCUMENTOS
@ -420,32 +448,55 @@ begin
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable; frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
FTiposIVA.DataTable.Active := True; FTiposIVA.DataTable.Active := True;
if Assigned(FViewContrato) then if Assigned(FViewContratoCliente) then
begin begin
ViewContrato.ViewClienteContrato.OnClienteChanged := NIL; frViewContratoCliente1.frViewClienteContrato1.Cliente := FContrato.Cliente;
frViewContratoCliente1.frViewClienteContrato1.OnClienteChanged := NIL;
try try
FViewContrato.Contrato := FContrato; ViewContratoCliente.Contrato := FContrato;
frViewDetallesContratoCliente1.Detalles := FContrato.Detalles; frViewDetallesContratoCliente1.Detalles := FContrato.Detalles;
frViewDetallesContratoCliente1.Contrato := FContrato; //Para poder sacar los descuento del articulos segun el cliente seleccionado frViewDetallesContratoCliente1.Contrato := FContrato; //Para poder sacar los descuento del articulos segun el cliente seleccionado
finally finally
ViewContrato.ViewClienteContrato.OnClienteChanged := OnClienteChanged; frViewContratoCliente1.frViewClienteContrato1.OnClienteChanged := OnClienteChanged;
end; end;
end; end
end; end
else begin
frViewContratoCliente1.frViewClienteContrato1.OnClienteChanged := NIL;
frViewContratoCliente1.frViewClienteContrato1.Cliente := NIL;
dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.dsTiposIVA.DataTable := NIL;
end
end; end;
procedure TfEditorContratoCliente.SetViewContrato(const Value: IViewContratoCliente); procedure TfEditorContratoCliente.SetViewContratoCliente(const Value: IViewContratoCliente);
begin begin
FViewContrato := Value; FViewContratoCliente := Value;
if Assigned(FViewContrato) then if Assigned(FViewContratoCliente) and Assigned(Contrato) then
begin FViewContratoCliente.Contrato := Contrato;
FViewClienteContrato := FViewContrato.ViewClienteContrato; end;
if Assigned(Contrato) then
FViewContrato.Contrato := Contrato; procedure TfEditorContratoCliente.actEliminarUpdate(Sender: TObject);
end; begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FContrato.SITUACION = SITUACION_Contrato_PENDIENTE);
end;
procedure TfEditorContratoCliente.actEnviarPorEMailExecute(Sender: TObject);
begin
inherited;
FController.EnviarContratoPorEMail(Contrato);
end;
procedure TfEditorContratoCliente.actEnviarPorEMailUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos;
end; end;
end. end.

110
Source/Modulos/Contratos de cliente/Views/uViewClienteContrato.dfm Normal file
View File

@ -0,0 +1,110 @@
inherited frViewClienteContrato: TfrViewClienteContrato
Width = 357
Height = 318
ExplicitWidth = 357
ExplicitHeight = 318
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
Height = 318
ExplicitWidth = 357
ExplicitHeight = 318
DesignSize = (
357
318)
object Bevel1: TBevel [0]
Left = 81
Top = 71
Width = 266
Height = 13
Shape = bsBottomLine
end
inherited edtlNombre: TcxDBTextEdit
Left = 81
Top = 94
TabOrder = 3
ExplicitLeft = 81
ExplicitTop = 94
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 81
Top = 121
TabOrder = 4
ExplicitLeft = 81
ExplicitTop = 121
end
inherited edtCalle: TcxDBTextEdit
Left = 81
Top = 148
TabOrder = 5
ExplicitLeft = 81
ExplicitTop = 148
end
inherited edtPoblacion: TcxDBTextEdit
Left = 81
Top = 175
TabOrder = 6
ExplicitLeft = 81
ExplicitTop = 175
end
inherited edtProvincia: TcxDBTextEdit
Left = 81
Top = 202
TabOrder = 8
ExplicitLeft = 81
ExplicitTop = 202
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 265
Top = 175
TabOrder = 7
ExplicitLeft = 265
ExplicitTop = 175
end
inherited Button3: TBitBtn
Left = 155
Top = 229
TabOrder = 9
ExplicitLeft = 155
ExplicitTop = 229
end
object cxDBTextEdit1: TcxDBTextEdit [10]
Left = 81
Top = 41
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Height = 21
Width = 283
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
object dxLayoutControl1Item10: TdxLayoutItem [1]
Caption = 'Nombre:'
Control = cxDBTextEdit1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem [2]
Caption = 'Datos fiscales'
Offsets.Bottom = 3
Offsets.Top = 3
Control = Bevel1
ControlOptions.ShowBorder = False
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Raz'#243'n:'
end
end
end
end

34
Source/Modulos/Contratos de cliente/Views/uViewClienteContrato.pas Normal file
View File

@ -0,0 +1,34 @@
unit uViewClienteContrato;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls;
type
IViewDatosYSeleccionClienteContrato = interface(IViewDatosYSeleccionCliente)
['{21E1DD04-D5F9-4A07-BA62-7A1D0C2F9A21}']
end;
TfrViewClienteContrato = class(TfrViewDatosYSeleccionCliente, IViewDatosYSeleccionClienteContrato)
dxLayoutControl1Item10: TdxLayoutItem;
cxDBTextEdit1: TcxDBTextEdit;
Bevel1: TBevel;
dxLayoutControl1Item11: TdxLayoutItem;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frViewClienteContrato: TfrViewClienteContrato;
implementation
{$R *.dfm}
end.

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

@ -42,8 +42,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129 Width = 129
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 384 Left = 426
Top = 289 Top = 382
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -60,8 +60,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 11
Height = 200 Height = 139
Width = 507 Width = 404
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 104 Left = 104
@ -119,7 +119,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 222 Left = 264
Top = 136 Top = 136
Width = 132 Width = 132
Height = 21 Height = 21
@ -157,60 +157,6 @@ inherited frViewContratoCliente: TfrViewContratoCliente
TabOrder = 4 TabOrder = 4
Width = 260 Width = 260
end end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 384
Top = 28
Width = 127
Height = 225
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 384
ExplicitTop = 28
ExplicitWidth = 127
ExplicitHeight = 225
inherited dxLayoutControl1: TdxLayoutControl
Width = 127
Height = 225
ExplicitWidth = 127
ExplicitHeight = 225
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end
inherited bVerFichaCliente: TBitBtn
Left = 202
ExplicitLeft = 202
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited bElegirDireccion: TButton
Left = 371
ExplicitLeft = 371
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end
inherited edtReferencia: TcxDBTextEdit
Left = 263
ExplicitLeft = 263
ExplicitWidth = 103
Width = 103
end
end
end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 220 Top = 220
@ -286,7 +232,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 27 Width = 27
end end
object cbTipoContrato: TcxDBComboBox object cbTipoContrato: TcxDBComboBox
Left = 274 Left = 297
Top = 82 Top = 82
DataBinding.DataField = 'TIPO_CONTRATO' DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -333,6 +279,50 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Height = 21 Height = 21
Width = 335 Width = 335
end end
inline frViewClienteContrato1: TfrViewClienteContrato
Left = 426
Top = 28
Width = 357
Height = 318
TabOrder = 10
ReadOnly = False
ExplicitLeft = 426
ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 707
Width = 707
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 707
Width = 707
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 707
Width = 707
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 589
Width = 589
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 707
Width = 707
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 270
ExplicitLeft = 270
end
inherited Button3: TBitBtn
Left = 160
ExplicitLeft = 160
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -457,7 +447,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
AlignVert = avClient AlignVert = avClient
Caption = 'New Item' Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = frViewDatosYSeleccionClienteContrato1 Control = frViewClienteContrato1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

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

@ -11,18 +11,19 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaContratoCliente, Buttons, ActnList, cxLookupEdit, uViewDireccionEntregaContratoCliente, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClienteContrato, uBizContactos, uBizFormasPago, cxButtonEdit, uBizContactos, uContratosClienteController,
uVendedoresController; uVendedoresController, uViewClienteContrato;
type type
IViewContratoCliente = interface(IViewBase) IViewContratoCliente = interface(IViewBase)
['{3DE0231D-760E-437B-88E5-144B88024797}'] ['{3DE0231D-760E-437B-88E5-144B88024797}']
function GetController : IContratosClienteController;
procedure SetController (const Value : IContratosClienteController);
property Controller : IContratosClienteController read GetController write SetController;
function GetContrato: IBizContratoCliente; function GetContrato: IBizContratoCliente;
procedure SetContrato(const Value: IBizContratoCliente); procedure SetContrato(const Value: IBizContratoCliente);
property Contrato: IBizContratoCliente read GetContrato write SetContrato; property Contrato: IBizContratoCliente read GetContrato write SetContrato;
function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
end; end;
TfrViewContratoCliente = class(TfrViewBase, IViewContratoCliente) TfrViewContratoCliente = class(TfrViewBase, IViewContratoCliente)
@ -48,7 +49,6 @@ type
cbSituacion: TcxDBImageComboBox; cbSituacion: TcxDBImageComboBox;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup;
frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutControl1Item8: TdxLayoutItem; dxLayoutControl1Item8: TdxLayoutItem;
memFormaPago: TcxDBMemo; memFormaPago: TcxDBMemo;
@ -66,6 +66,7 @@ type
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item12: TdxLayoutItem; dxLayoutControl1Item12: TdxLayoutItem;
edtlREF_CLIENTE: TcxDBTextEdit; edtlREF_CLIENTE: TcxDBTextEdit;
frViewClienteContrato1: TfrViewClienteContrato;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
@ -77,15 +78,16 @@ type
FVendedor : IBizVendedor; FVendedor : IBizVendedor;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
FVendedoresController : IVendedoresController; FVendedoresController : IVendedoresController;
FViewClienteContrato : IViewDatosYSeleccionClienteContrato; FController : IContratosClienteController;
function GetContrato: IBizContratoCliente; function GetContrato: IBizContratoCliente;
procedure SetContrato(const Value: IBizContratoCliente); virtual; procedure SetContrato(const Value: IBizContratoCliente); virtual;
function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
function GetController : IContratosClienteController;
procedure SetController (const Value : IContratosClienteController);
public public
property Contrato: IBizContratoCliente read GetContrato write SetContrato; property Controller : IContratosClienteController read GetController write SetController;
property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato; property Contrato: IBizContratoCliente read GetContrato write SetContrato;
end; end;
implementation implementation
@ -95,7 +97,7 @@ implementation
{ TfrViewContratoCliente } { TfrViewContratoCliente }
uses uses
uClientesController, uBizDireccionesContacto, uContratosClienteController, uPresupuestosClienteController; uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
@ -112,7 +114,6 @@ begin
FVendedor := Nil; FVendedor := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
FVendedoresController := TVendedoresController.Create; FVendedoresController := TVendedoresController.Create;
FViewClienteContrato := frViewDatosYSeleccionClienteContrato1;
cbTipoContrato.Properties.Items.Clear; cbTipoContrato.Properties.Items.Clear;
cbTipoContrato.Properties.Items.Add(CTE_COCINA); cbTipoContrato.Properties.Items.Add(CTE_COCINA);
@ -129,8 +130,8 @@ begin
FFormasPagoController := NIL; FFormasPagoController := NIL;
FVendedor := Nil; FVendedor := Nil;
FVendedoresController := NIL; FVendedoresController := NIL;
FViewClienteContrato := NIL;
inherited; inherited;
end; end;
procedure TfrViewContratoCliente.frViewClienteContratoButton1Click(Sender: TObject); procedure TfrViewContratoCliente.frViewClienteContratoButton1Click(Sender: TObject);
@ -141,7 +142,7 @@ begin
if (Application.MessageBox('Los descuentos de los artículos del Contrato serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then if (Application.MessageBox('Los descuentos de los artículos del Contrato serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit; Exit;
end; end;
frViewDatosYSeleccionClienteContrato1.actElegirContacto.Execute; frViewClienteContrato1.actElegirContacto.Execute;
end; end;
procedure TfrViewContratoCliente.frViewClienteContratoButton2Click(Sender: TObject); procedure TfrViewContratoCliente.frViewClienteContratoButton2Click(Sender: TObject);
@ -152,7 +153,7 @@ begin
if (Application.MessageBox('Los descuentos de los artículos del Contrato serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then if (Application.MessageBox('Los descuentos de los artículos del Contrato serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit; Exit;
end; end;
frViewDatosYSeleccionClienteContrato1.actAnadirContacto.Execute; frViewClienteContrato1.actAnadirContacto.Execute;
end; end;
function TfrViewContratoCliente.GetContrato: IBizContratoCliente; function TfrViewContratoCliente.GetContrato: IBizContratoCliente;
@ -160,9 +161,9 @@ begin
Result := FContrato; Result := FContrato;
end; end;
function TfrViewContratoCliente.GetViewClienteContrato: IViewDatosYSeleccionClienteContrato; function TfrViewContratoCliente.GetController: IContratosClienteController;
begin begin
Result := FViewClienteContrato; Result := FController;
end; end;
procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente); procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente);
@ -180,14 +181,23 @@ begin
dsVendedor.DataTable := FVendedor.DataTable; dsVendedor.DataTable := FVendedor.DataTable;
dsVendedor.DataTable.Active := True; dsVendedor.DataTable.Active := True;
FViewClienteContrato.Contrato := FContrato; frViewClienteContrato1.MsgElegirCliente := 'Elija el cliente al que se le realizará el contrato.';
end end
else begin else begin
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
dsFormaPago.DataTable := NIL; dsFormaPago.DataTable := NIL;
dsVendedor.DataTable := NIL; dsVendedor.DataTable := NIL;
FViewClienteContrato.Contrato := Nil; frViewClienteContrato1.Cliente := Nil;
end; end;
end; end;
procedure TfrViewContratoCliente.SetController(
const Value: IContratosClienteController);
begin
FController := Value;
if Assigned(FController) then
frViewClienteContrato1.Controller := FController.ClienteController;
end;
end. end.

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

@ -130,7 +130,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
DataBinding.FieldName = 'VENDEDOR' DataBinding.FieldName = 'VENDEDOR'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres' Caption = 'Otros nombres'

29
Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteContrato inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteContrato
Width = 447 Width = 913
Height = 224 Height = 258
ExplicitWidth = 447 ExplicitWidth = 913
ExplicitHeight = 224 ExplicitHeight = 258
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 447 Width = 913
Height = 224 Height = 258
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -18,16 +18,15 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
447 913
224) 258)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 66 Left = 66
Top = 41 Top = 41
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsContrato
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -48,8 +47,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsContrato
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -153,7 +151,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object bVerFichaCliente: TBitBtn object bVerFichaCliente: TBitBtn
Left = 245 Left = 711
Top = 181 Top = 181
Width = 192 Width = 192
Height = 25 Height = 25
@ -216,7 +214,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
Width = 437 Width = 437
end end
object bElegirDireccion: TButton object bElegirDireccion: TButton
Left = 414 Left = 880
Top = 95 Top = 95
Width = 23 Width = 23
Height = 25 Height = 25
@ -242,13 +240,12 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
Width = 193 Width = 193
end end
object edtReferencia: TcxDBTextEdit object edtReferencia: TcxDBTextEdit
Left = 284 Left = 514
Top = 68 Top = 68
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame

5
Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
View File

@ -222,7 +222,7 @@ var
ADireccion : IBizDireccionesContacto; ADireccion : IBizDireccionesContacto;
begin begin
if FCliente.Direcciones.RecordCount > 0 then if FCliente.Direcciones.RecordCount > 0 then
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.') ADireccion := FClientesController.ElegirDireccion(FCliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este contrato.')
else begin else begin
ADireccion := FDireccionesController.Nuevo; ADireccion := FDireccionesController.Nuevo;
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion); FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
@ -244,6 +244,9 @@ begin
with FContrato do with FContrato do
begin begin
NIF_CIF := ADireccion.NIF_CIF;
NOMBRE := ADireccion.NOMBRE;
NOMBRE_CLIENTE := ADireccion.NOMBRE;
CALLE := ADireccion.CALLE; CALLE := ADireccion.CALLE;
POBLACION := ADireccion.POBLACION; POBLACION := ADireccion.POBLACION;
CODIGO_POSTAL := ADireccion.CODIGO_POSTAL; CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;

4
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -494,10 +494,10 @@ var
bEnEdicion : Boolean; bEnEdicion : Boolean;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado (CopiarDireccionEnvio)'); raise Exception.Create ('Factura no asignada (CopiarDireccion)');
if not Assigned(ADireccionEnvio) then if not Assigned(ADireccionEnvio) then
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccionEnvio)'); raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
if AFactura.DataTable.Active then if AFactura.DataTable.Active then
AFactura.DataTable.Active := True; AFactura.DataTable.Active := True;

58
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,35 +49,35 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Comisiones\adortl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\..\Comisiones\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Comisiones\Articulos_view.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\Articulos_view.dcp" />
<DCCReference Include="..\..\Comisiones\Contabilidad_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Comisiones\Contabilidad_view.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Comisiones\Contactos_view.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\Contactos_view.dcp" />
<DCCReference Include="..\..\Comisiones\cxDataD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\..\Comisiones\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Comisiones\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Comisiones\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\dbrtl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Comisiones\dsnap.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\..\Comisiones\dxComnD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Comisiones\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Comisiones\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Comisiones\dxThemeD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Comisiones\FacturasCliente_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Comisiones\FacturasCliente_model.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Comisiones\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Comisiones\GUIBase.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Comisiones\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Comisiones\PNG_D10.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Comisiones\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\rtl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Comisiones\vcl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Comisiones\vclactnband.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Comisiones\vcldb.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\..\Comisiones\vcljpg.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Comisiones\vclx.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Views\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

128
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -42,7 +42,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 860 Width = 860
ExplicitWidth = 860 ExplicitWidth = 860
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 634
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -80,20 +80,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 854 Width = 854
Height = 368 Height = 359
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 854 ExplicitWidth = 854
ExplicitHeight = 368 ExplicitHeight = 359
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 331
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 846 Width = 846
Height = 340 Height = 331
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -104,48 +104,96 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 331
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 846 Width = 846
Height = 340 Height = 331
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 331
inherited frViewClienteFactura1: TfrViewClienteFactura inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159
Width = 159
end
inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 78
Width = 78
end
inherited frViewTienda1: TfrViewTienda
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited cbTienda: TcxComboBox
DataBinding.DataSource = dsDataTable ExplicitWidth = 399
end Width = 399
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 244
DataBinding.DataSource = dsDataTable
ExplicitLeft = 244
end
inherited Button3: TBitBtn
Left = 134
ExplicitLeft = 134
end end
end end
end end
inherited frViewClienteFactura1: TfrViewClienteFactura
Width = 398
ExplicitWidth = 398
inherited dxLayoutControl1: TdxLayoutControl
Width = 398
inherited Bevel1: TBevel
Width = 266
ExplicitWidth = 266
end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = dsDataTable
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 240
DataBinding.DataSource = dsDataTable
ExplicitLeft = 240
end
inherited Button3: TBitBtn
Left = 130
ExplicitLeft = 130
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
inherited edtFechaVencimiento: TcxDBDateEdit
ExplicitWidth = 310
Width = 310
end
inherited frViewObservaciones1: TfrViewObservaciones inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 228 Height = 228
ExplicitWidth = 521
ExplicitHeight = 228 ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
Height = 228 Height = 228
Width = 521
end end
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 158
Width = 158
end
end end
end end
end end
@ -156,7 +204,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 846 Width = 846
Height = 340 Height = 331
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -169,7 +217,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 331
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 846 Width = 846
Height = 24 Height = 24
@ -254,12 +302,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 53
Width = 846 Width = 846
Height = 290 Height = 278
ExplicitTop = 50 ExplicitTop = 53
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 290 ExplicitHeight = 278
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
@ -267,7 +315,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 846 ExplicitWidth = 846
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 731
end end
end end
end end
@ -348,8 +396,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 457 Left = 457
Top = 30 Top = 30
Height = 122
ExplicitLeft = 457 ExplicitLeft = 457
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 569 Left = 569

3
Source/Modulos/Facturas de cliente/Views/uViewClienteFactura.dfm
View File

@ -6,6 +6,8 @@ inherited frViewClienteFactura: TfrViewClienteFactura
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 357 Width = 357
Height = 318 Height = 318
ExplicitWidth = 357
ExplicitHeight = 318
object Bevel1: TBevel [0] object Bevel1: TBevel [0]
Left = 81 Left = 81
Top = 71 Top = 71
@ -80,7 +82,6 @@ inherited frViewClienteFactura: TfrViewClienteFactura
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame

4
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -250,16 +250,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 7
Width = 158 Width = 158
end end

2
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -70,8 +70,10 @@ type
FController : IFacturasClienteController; FController : IFacturasClienteController;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
function GetFactura: IBizFacturaCliente; function GetFactura: IBizFacturaCliente;
procedure SetFactura(const Value: IBizFacturaCliente); procedure SetFactura(const Value: IBizFacturaCliente);
function GetController : IFacturasClienteController; function GetController : IFacturasClienteController;
procedure SetController (const Value : IFacturasClienteController); procedure SetController (const Value : IFacturasClienteController);
public public

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

@ -27,7 +27,6 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
AutoSize = False AutoSize = False
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -49,7 +48,6 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
AutoSize = False AutoSize = False
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -203,7 +201,6 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
AutoSize = False AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsPresupuesto DataBinding.DataSource = dsPresupuesto
ParentFont = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -258,7 +255,6 @@ inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionCliente
AutoSize = False AutoSize = False
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.8.3.0\0" VALUE "FileVersion", "2.8.3.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.8.3.0\0" VALUE "ProductVersion", "2.8.3.0\0"
VALUE "CompileDate", "miércoles, 08 de marzo de 2017 18:18\0" VALUE "CompileDate", "viernes, 21 de abril de 2017 18:20\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.