AcotaCocinas/AlonsoYSal_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios para la generacion de recibos en facturas con recibos ya existentes y preparacion de facturas de proveedor para

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@18 40301925-124e-1c4e-b97d-170ad7a8785b
This commit is contained in:
roberto 2020-01-23 18:43:09 +00:00
parent e8511e0bfb
commit 368730858e
95 changed files with 3824 additions and 1193 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

4
Build/Build.fbpInf
View File

@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:03:22</LastBuildRun> <LastBuildRun>00:00:00</LastBuildRun>
<LastBuildStart>09/09/2016 18:07:38</LastBuildStart> <LastBuildStart>21/01/2020 11:30:34</LastBuildStart>
<LastBuildState>False</LastBuildState> <LastBuildState>False</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

55
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -14,6 +14,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 674 Width = 674
Caption = 'Empresa' Caption = 'Empresa'
ExplicitTop = 49
ExplicitWidth = 674 ExplicitWidth = 674
inherited Image1: TImage inherited Image1: TImage
Left = 647 Left = 647
@ -87,6 +88,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 668 Width = 668
Height = 423 Height = 423
ActivePage = pagDatosBancarios
ExplicitTop = 109 ExplicitTop = 109
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 423 ExplicitHeight = 423
@ -160,95 +162,95 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 100 Width = 100
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 351 Left = 354
Top = 270 Top = 270
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 351 ExplicitLeft = 354
ExplicitTop = 270 ExplicitTop = 270
end end
inherited ePaginaWeb: TcxDBTextEdit inherited ePaginaWeb: TcxDBTextEdit
Left = 539 Left = 542
Top = 216 Top = 216
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 539 ExplicitLeft = 542
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited eMailParticular: TcxDBTextEdit inherited eMailParticular: TcxDBTextEdit
Left = 539 Left = 542
Top = 189 Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 539 ExplicitLeft = 542
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited eMailTrabajo: TcxDBTextEdit inherited eMailTrabajo: TcxDBTextEdit
Left = 539 Left = 542
Top = 162 Top = 162
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 539 ExplicitLeft = 542
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 539 Left = 542
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 539 ExplicitLeft = 542
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 539 Left = 542
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 539 ExplicitLeft = 542
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 539 Left = 542
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 539 ExplicitLeft = 542
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 539 Left = 542
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 539 ExplicitLeft = 542
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -284,13 +286,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 76 Width = 76
end end
inherited cxDBImage1: TcxDBImage inherited cxDBImage1: TcxDBImage
Left = 444 Left = 447
Top = 267 Top = 267
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 444 ExplicitLeft = 447
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 140 ExplicitWidth = 140
ExplicitHeight = 100 ExplicitHeight = 100
@ -388,7 +390,9 @@ inherited fEditorEmpresa: TfEditorEmpresa
end end
object pagTiendas: TTabSheet object pagTiendas: TTabSheet
Caption = 'Tiendas' Caption = 'Tiendas'
Enabled = False
ImageIndex = 2 ImageIndex = 2
TabVisible = False
inline frViewTiendas1: TfrViewTiendas inline frViewTiendas1: TfrViewTiendas
Left = 0 Left = 0
Top = 0 Top = 0
@ -409,7 +413,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 660 Width = 660
Height = 370 Height = 370
ExplicitWidth = 660 ExplicitWidth = 660
ExplicitHeight = 400 ExplicitHeight = 370
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewCODIGO_CONTABLE: TcxGridDBColumn inherited cxGridViewCODIGO_CONTABLE: TcxGridDBColumn
VisibleForCustomization = False VisibleForCustomization = False
@ -419,24 +423,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 660 Width = 660
ExplicitWidth = 660 ExplicitWidth = 660
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
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 674 Width = 674
ExplicitTop = 76
ExplicitWidth = 674 ExplicitWidth = 674
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 664 Width = 664

105
Source/Base/Base.dproj
View File

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

BIN
Source/Base/Base.res
View File

Binary file not shown.

4
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,9 @@
<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">9</VersionInfo><VersionInfo Name="Release">4</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.9.4.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.9.4.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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

6
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -687,6 +687,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
object Logistica1: TMenuItem object Logistica1: TMenuItem
Tag = 5000 Tag = 5000
Action = actMenuLogistica Action = actMenuLogistica
Enabled = False
Visible = False
object N7: TMenuItem object N7: TMenuItem
Tag = 200 Tag = 200
Caption = '-' Caption = '-'
@ -699,10 +701,14 @@ object fPantallaPrincipal: TfPantallaPrincipal
object Contabilidad1: TMenuItem object Contabilidad1: TMenuItem
Tag = 6000 Tag = 6000
Action = actMenuContabilidad Action = actMenuContabilidad
Enabled = False
Visible = False
end end
object Informes1: TMenuItem object Informes1: TMenuItem
Tag = 7000 Tag = 7000
Action = actMenuInformes Action = actMenuInformes
Enabled = False
Visible = False
end end
end end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter object JvXPMenuItemPainter1: TJvXPMenuItemPainter

3
Source/Cliente/uPantallaPrincipal.pas
View File

@ -211,8 +211,7 @@ begin
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PERFIL_ADMINISTRADOR) then if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PERFIL_ADMINISTRADOR) then
begin begin
Administracin1.Visible := False; Administracin1.Visible := False;
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PREFIL_GERENCIA) then ConfigurarFactuGES1.Visible := False;
ConfigurarFactuGES1.Visible := False;
end; end;
end; end;

6
Source/FactuGES.inc
View File

@ -1,4 +1,4 @@
{$DEFINE MULTIEMPRESA} {DEFINE MULTIEMPRESA}
{$DEFINE ALMACEN} {DEFINE ALMACEN}
{$DEFINE PEDIDOSPROVEEDOR} {DEFINE PEDIDOSPROVEEDOR}
{$DEFINE CONTABILIDAD} {$DEFINE CONTABILIDAD}

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\Model\Base.dcp" /> <DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\ccpackD11.dcp" /> <DCCReference Include="..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxDataD11.dcp" /> <DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxEditorsD11.dcp" /> <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxExportD11.dcp" /> <DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxLibraryD11.dcp" /> <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dbrtl.dcp" /> <DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxThemeD11.dcp" /> <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frx11.dcp" /> <DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frxe11.dcp" /> <DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\fs11.dcp" /> <DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvGlobusD11R.dcp" /> <DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PngComponentsD10.dcp" /> <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PNG_D10.dcp" /> <DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\rtl.dcp" /> <DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tb2k_d10.dcp" /> <DCCReference Include="..\Servidor\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tbx_d10.dcp" /> <DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcl.dcp" /> <DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclactnband.dcp" /> <DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcldb.dcp" /> <DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcljpg.dcp" /> <DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclx.dcp" /> <DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

102
Source/GUIBase/uViewTotales.dfm
View File

@ -1,14 +1,14 @@
inherited frViewTotales: TfrViewTotales inherited frViewTotales: TfrViewTotales
Width = 788 Width = 935
Height = 224 Height = 266
Align = alBottom Align = alBottom
ExplicitWidth = 451 ExplicitWidth = 935
ExplicitHeight = 224 ExplicitHeight = 266
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
AlignWithMargins = True AlignWithMargins = True
Left = 0 Left = 0
Top = 0 Top = 0
Width = 788 Width = 935
Height = 217 Height = 217
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -21,14 +21,14 @@ inherited frViewTotales: TfrViewTotales
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451 ExplicitWidth = 451
object Bevel3: TBevel object Bevel3: TBevel
Left = 389 Left = 534
Top = 28 Top = 28
Width = 3 Width = 3
Height = 122 Height = 122
Shape = bsRightLine Shape = bsRightLine
end end
object Bevel4: TBevel object Bevel4: TBevel
Left = 501 Left = 646
Top = 70 Top = 70
Width = 210 Width = 210
Height = 9 Height = 9
@ -36,7 +36,7 @@ inherited frViewTotales: TfrViewTotales
end end
object ImporteDto: TcxDBCurrencyEdit object ImporteDto: TcxDBCurrencyEdit
Left = 175 Left = 175
Top = 55 Top = 82
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_DESCUENTO' DataBinding.DataField = 'IMPORTE_DESCUENTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -61,12 +61,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 3
Height = 21 Height = 21
Width = 93 Width = 93
end end
object ImporteIVA: TcxDBCurrencyEdit object ImporteIVA: TcxDBCurrencyEdit
Left = 572 Left = 717
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA' DataBinding.DataField = 'IMPORTE_IVA'
@ -92,12 +92,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Height = 21 Height = 21
Width = 137 Width = 137
end end
object ImporteTotal: TcxDBCurrencyEdit object ImporteTotal: TcxDBCurrencyEdit
Left = 502 Left = 647
Top = 159 Top = 159
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL' DataBinding.DataField = 'IMPORTE_TOTAL'
@ -124,13 +124,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 13
Height = 21 Height = 21
Width = 137 Width = 137
end end
object edtDescuento: TcxDBSpinEdit object edtDescuento: TcxDBSpinEdit
Left = 104 Left = 104
Top = 55 Top = 82
AutoSize = False AutoSize = False
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -154,12 +154,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 2
Height = 21 Height = 21
Width = 65 Width = 65
end end
object edtIVA: TcxDBSpinEdit object edtIVA: TcxDBSpinEdit
Left = 501 Left = 646
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IVA' DataBinding.DataField = 'IVA'
@ -191,12 +191,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 9
Height = 21 Height = 21
Width = 65 Width = 65
end end
object ImporteBase: TcxDBCurrencyEdit object ImporteBase: TcxDBCurrencyEdit
Left = 501 Left = 646
Top = 28 Top = 28
AutoSize = False AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE' DataBinding.DataField = 'BASE_IMPONIBLE'
@ -221,12 +221,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Height = 21 Height = 21
Width = 92 Width = 92
end end
object edtRE: TcxDBSpinEdit object edtRE: TcxDBSpinEdit
Left = 501 Left = 646
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'RE' DataBinding.DataField = 'RE'
@ -258,12 +258,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Height = 21 Height = 21
Width = 65 Width = 65
end end
object ImporteRE: TcxDBCurrencyEdit object ImporteRE: TcxDBCurrencyEdit
Left = 572 Left = 717
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_RE' DataBinding.DataField = 'IMPORTE_RE'
@ -289,13 +289,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 12
Height = 21 Height = 21
Width = 56 Width = 56
end end
object eImporteNeto: TcxDBCurrencyEdit object eImporteNeto: TcxDBCurrencyEdit
Left = 104 Left = 104
Top = 28 Top = 55
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_NETO' DataBinding.DataField = 'IMPORTE_NETO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -320,13 +320,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 1
Height = 21 Height = 21
Width = 147 Width = 147
end end
object ePorte: TcxDBCurrencyEdit object ePorte: TcxDBCurrencyEdit
Left = 104 Left = 104
Top = 82 Top = 109
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_PORTE' DataBinding.DataField = 'IMPORTE_PORTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -350,13 +350,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 4
Height = 21 Height = 21
Width = 147 Width = 147
end end
object eIVA: TcxDBLookupComboBox object eIVA: TcxDBLookupComboBox
Left = 104 Left = 104
Top = 109 Top = 136
DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
@ -383,20 +383,20 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 81 Width = 81
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 241 Left = 386
Top = 109 Top = 136
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver los tipos de IVA...' Caption = 'Ver los tipos de IVA...'
TabOrder = 5 TabOrder = 6
end end
object cbRecargoEquivalencia: TcxDBCheckBox object cbRecargoEquivalencia: TcxDBCheckBox
Left = 104 Left = 104
Top = 136 Top = 163
Caption = 'Aplicar recargo de equivalencia' Caption = 'Aplicar recargo de equivalencia'
DataBinding.DataField = 'RECARGO_EQUIVALENCIA' DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -417,9 +417,37 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 219 Width = 219
end end
object eImporteDetalleResumen: TcxDBCurrencyEdit
Left = 104
Top = 28
AutoSize = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = [fsBold]
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 21
Width = 342
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -433,6 +461,12 @@ inherited frViewTotales: TfrViewTotales
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'ImporteNeto:'
Visible = False
Control = eImporteDetalleResumen
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient

2
Source/GUIBase/uViewTotales.pas
View File

@ -59,6 +59,8 @@ type
cbRecargoEquivalencia: TcxDBCheckBox; cbRecargoEquivalencia: TcxDBCheckBox;
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem;
eImporteDetalleResumen: TcxDBCurrencyEdit;
public public
{ Public declarations } { Public declarations }
end; end;

87
Source/Informes/1/InfContratoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

BIN
Source/Lib/ApplicationBase.dcp
View File

Binary file not shown.

BIN
Source/Lib/Base.dcp
View File

Binary file not shown.

BIN
Source/Lib/GUIBase.dcp
View File

Binary file not shown.

2
Source/Modulos/Albaranes de cliente/Plugin/uPluginAlbaranesCliente.dfm
View File

@ -254,7 +254,9 @@ object PluginAlbaranesCliente: TPluginAlbaranesCliente
object actAlbaranesCliente: TAction object actAlbaranesCliente: TAction
Category = 'Ventas' Category = 'Ventas'
Caption = 'Albaranes de cliente' Caption = 'Albaranes de cliente'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actAlbaranesClienteExecute OnExecute = actAlbaranesClienteExecute
end end
object actAlbaranesDevCliente: TAction object actAlbaranesDevCliente: TAction

2
Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
View File

@ -65,7 +65,9 @@ object PluginComisiones: TPluginComisiones
object actComisiones: TAction object actComisiones: TAction
Category = 'Comisiones' Category = 'Comisiones'
Caption = 'Liquidaciones de comisiones' Caption = 'Liquidaciones de comisiones'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actComisionesExecute OnExecute = actComisionesExecute
OnUpdate = actComisionesUpdate OnUpdate = actComisionesUpdate
end end

4
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
View File

@ -620,14 +620,18 @@ object PluginContabilidad: TPluginContabilidad
object actBalances: TAction object actBalances: TAction
Category = 'Contabilidad' Category = 'Contabilidad'
Caption = 'Balances' Caption = 'Balances'
Enabled = False
ImageIndex = 5 ImageIndex = 5
Visible = False
OnExecute = actBalancesExecute OnExecute = actBalancesExecute
OnUpdate = actBalancesUpdate OnUpdate = actBalancesUpdate
end end
object actCuentasEspeciales: TAction object actCuentasEspeciales: TAction
Category = 'Contabilidad' Category = 'Contabilidad'
Caption = 'Cuentas especiales' Caption = 'Cuentas especiales'
Enabled = False
ImageIndex = 6 ImageIndex = 6
Visible = False
OnExecute = actCuentasEspecialesExecute OnExecute = actCuentasEspecialesExecute
OnUpdate = actCuentasEspecialesUpdate OnUpdate = actCuentasEspecialesUpdate
end end

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

@ -286,12 +286,16 @@ object PluginContactos: TPluginContactos
end end
object actGruposCliente: TAction object actGruposCliente: TAction
Caption = 'Grupos de cliente' Caption = 'Grupos de cliente'
Enabled = False
ImageIndex = 5 ImageIndex = 5
Visible = False
OnExecute = actGruposClienteExecute OnExecute = actGruposClienteExecute
end end
object actGruposProveedor: TAction object actGruposProveedor: TAction
Caption = 'Grupos de proveedor' Caption = 'Grupos de proveedor'
Enabled = False
ImageIndex = 5 ImageIndex = 5
Visible = False
OnExecute = actGruposProveedorExecute OnExecute = actGruposProveedorExecute
end end
object actProcedenciasCliente: TAction object actProcedenciasCliente: TAction

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

@ -47,40 +47,40 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" /> <DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" /> <DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" /> <DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" /> <DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" /> <DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" /> <DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

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

@ -4,7 +4,6 @@ inherited fEditorCliente: TfEditorCliente
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ClientHeight = 1052 ClientHeight = 1052
ClientWidth = 994 ClientWidth = 994
ExplicitTop = -70
ExplicitWidth = 1002 ExplicitWidth = 1002
ExplicitHeight = 1086 ExplicitHeight = 1086
PixelsPerInch = 96 PixelsPerInch = 96
@ -12,7 +11,8 @@ inherited fEditorCliente: TfEditorCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 994 Width = 994
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ExplicitWidth = 998 ExplicitTop = 49
ExplicitWidth = 994
inherited Image1: TImage inherited Image1: TImage
Left = 967 Left = 967
Picture.Data = { Picture.Data = {
@ -51,9 +51,9 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 994 Width = 994
ExplicitWidth = 998 ExplicitWidth = 994
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 579 ExplicitWidth = 446
object TBXItem7: TTBXItem [7] object TBXItem7: TTBXItem [7]
Action = actGruposCliente Action = actGruposCliente
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -66,32 +66,34 @@ inherited fEditorCliente: TfEditorCliente
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 1033 Top = 1033
Width = 994 Width = 994
ExplicitTop = 833 ExplicitTop = 1033
ExplicitWidth = 998 ExplicitWidth = 994
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 988 Width = 988
Height = 912 Height = 921
ExplicitWidth = 992 ExplicitTop = 109
ExplicitHeight = 712 ExplicitWidth = 988
ExplicitHeight = 921
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0 ExplicitWidth = 980
ExplicitTop = 0 ExplicitHeight = 893
ExplicitWidth = 984
ExplicitHeight = 684
inherited frViewPersonalContacto1: TfrViewPersonalContacto inherited frViewPersonalContacto1: TfrViewPersonalContacto
Top = 681 Top = 690
Width = 980 Width = 980
Enabled = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 681 Visible = False
ExplicitTop = 690
ExplicitWidth = 980 ExplicitWidth = 980
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 980 Width = 980
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 178
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 980 Width = 980
ExplicitWidth = 984 ExplicitWidth = 980
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end
@ -110,7 +112,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 681 Height = 690
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -120,14 +122,14 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 534 ExplicitHeight = 690
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 980 Width = 980
Height = 681 Height = 690
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 534 ExplicitHeight = 690
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 935 Left = 935
Top = 218 Top = 218
@ -148,18 +150,30 @@ inherited fEditorCliente: TfEditorCliente
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
@ -167,12 +181,20 @@ inherited fEditorCliente: TfEditorCliente
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 568 Left = 568
Top = 243 Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 568 ExplicitLeft = 568
ExplicitTop = 243 ExplicitTop = 243
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 747 Left = 747
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 747 ExplicitLeft = 747
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 177 ExplicitWidth = 177
@ -180,36 +202,61 @@ inherited fEditorCliente: TfEditorCliente
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
Enabled = False
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
@ -217,6 +264,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 747 Left = 747
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 747 ExplicitLeft = 747
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 177 ExplicitWidth = 177
@ -225,6 +276,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 747 Left = 747
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 747 ExplicitLeft = 747
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 177 ExplicitWidth = 177
@ -233,6 +288,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 747 Left = 747
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 747 ExplicitLeft = 747
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 177 ExplicitWidth = 177
@ -240,6 +299,10 @@ inherited fEditorCliente: TfEditorCliente
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
@ -247,6 +310,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 315 Left = 315
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 315 ExplicitLeft = 315
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 271 ExplicitWidth = 271
@ -256,6 +323,10 @@ inherited fEditorCliente: TfEditorCliente
Left = 747 Left = 747
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 747 ExplicitLeft = 747
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 148 ExplicitWidth = 148
@ -265,6 +336,10 @@ inherited fEditorCliente: TfEditorCliente
Left = 747 Left = 747
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 747 ExplicitLeft = 747
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 148 ExplicitWidth = 148
@ -273,6 +348,10 @@ inherited fEditorCliente: TfEditorCliente
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 747 Left = 747
Top = 217 Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 747 ExplicitLeft = 747
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 148 ExplicitWidth = 148
@ -280,12 +359,20 @@ inherited fEditorCliente: TfEditorCliente
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
@ -297,6 +384,10 @@ inherited fEditorCliente: TfEditorCliente
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
@ -313,6 +404,26 @@ inherited fEditorCliente: TfEditorCliente
Width = 521 Width = 521
end end
end end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
inherited dxLayoutControlContactoItem24: TdxLayoutItem
Visible = False
end
inherited dxLayoutControlContactoItem19: TdxLayoutItem
Enabled = False
Visible = False
end
end
end
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
Visible = False
end
end
end
end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
Left = 24 Left = 24
@ -321,13 +432,15 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
Enabled = False
TabVisible = False
ExplicitWidth = 980 ExplicitWidth = 980
ExplicitHeight = 884 ExplicitHeight = 893
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 980 Width = 980
Height = 884 Height = 893
ExplicitWidth = 980 ExplicitWidth = 980
ExplicitHeight = 884 ExplicitHeight = 893
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 980 Width = 980
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
@ -354,20 +467,24 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagPersonal: TTabSheet inherited pagPersonal: TTabSheet
Enabled = False
TabVisible = False
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 684 ExplicitHeight = 893
inherited memObservaciones22: TcxDBMemo inherited memObservaciones22: TcxDBMemo
ExplicitWidth = 980 ExplicitWidth = 980
ExplicitHeight = 884 ExplicitHeight = 893
Height = 884 Height = 893
Width = 980 Width = 980
end end
end end
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
Enabled = False
ImageIndex = 4 ImageIndex = 4
TabVisible = False
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
@ -401,23 +518,39 @@ inherited fEditorCliente: TfEditorCliente
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 710 Left = 710
Top = 62 Top = 62
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 710
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
@ -430,6 +563,10 @@ inherited fEditorCliente: TfEditorCliente
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
@ -443,12 +580,20 @@ inherited fEditorCliente: TfEditorCliente
inherited cxDBSpinEdit1: TcxDBSpinEdit inherited cxDBSpinEdit1: TcxDBSpinEdit
Left = 710 Left = 710
Top = 89 Top = 89
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 710
ExplicitTop = 89 ExplicitTop = 89
end end
inherited cxDBSpinEdit2: TcxDBSpinEdit inherited cxDBSpinEdit2: TcxDBSpinEdit
Left = 710 Left = 710
Top = 116 Top = 116
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 710
ExplicitTop = 116 ExplicitTop = 116
end end
@ -464,12 +609,14 @@ inherited fEditorCliente: TfEditorCliente
end end
object pagDirecciones: TTabSheet object pagDirecciones: TTabSheet
Caption = 'Direcciones' Caption = 'Direcciones'
Enabled = False
ImageIndex = 1 ImageIndex = 1
TabVisible = False
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 884 Height = 893
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -480,12 +627,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 980 ExplicitWidth = 980
ExplicitHeight = 884 ExplicitHeight = 893
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 980 Width = 980
Height = 859 Height = 868
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 668 ExplicitHeight = 868
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
SortIndex = 0 SortIndex = 0
@ -495,19 +642,7 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 980 Width = 980
ExplicitWidth = 984 ExplicitWidth = 980
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
@ -519,7 +654,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 884 Height = 893
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -530,16 +665,16 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 980 ExplicitWidth = 980
ExplicitHeight = 884 ExplicitHeight = 893
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 980 Width = 980
Height = 859 Height = 868
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 668 ExplicitHeight = 868
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 980 Width = 980
ExplicitWidth = 984 ExplicitWidth = 980
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end
@ -557,16 +692,14 @@ inherited fEditorCliente: TfEditorCliente
end end
object pagContabilidad: TTabSheet object pagContabilidad: TTabSheet
Caption = 'Contabilidad' Caption = 'Contabilidad'
Enabled = False
ImageIndex = 5 ImageIndex = 5
ExplicitLeft = 0 TabVisible = False
ExplicitTop = 0
ExplicitWidth = 984
ExplicitHeight = 684
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 884 Height = 893
Align = alClient Align = alClient
AutoSize = True AutoSize = True
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -577,17 +710,21 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 684 ExplicitHeight = 893
inherited layoutApunte: TdxLayoutControl inherited layoutApunte: TdxLayoutControl
Width = 980 Width = 980
Height = 884 Height = 893
ExplicitWidth = 984 ExplicitWidth = 980
ExplicitHeight = 684 ExplicitHeight = 893
DesignSize = ( DesignSize = (
980 980
884) 893)
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
@ -596,6 +733,10 @@ inherited fEditorCliente: TfEditorCliente
ExplicitLeft = 638 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
@ -609,6 +750,10 @@ inherited fEditorCliente: TfEditorCliente
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
@ -625,7 +770,12 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 994 Width = 994
ExplicitWidth = 998 ExplicitTop = 76
ExplicitWidth = 994
inherited lbComentario: TLabel
Width = 984
Height = 25
end
end end
inherited dsDataTable: TDADataSource inherited dsDataTable: TDADataSource
Left = 16 Left = 16

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

@ -72,9 +72,9 @@ begin
ViewContacto := frViewCliente1; ViewContacto := frViewCliente1;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
pagContabilidad.TabVisible := true; // pagContabilidad.TabVisible := true;
{$ELSE} {$ELSE}
pagContabilidad.TabVisible := false; // pagContabilidad.TabVisible := false;
{$ENDIF} {$ENDIF}
end; end;

36
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 = 423 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -86,17 +86,17 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 943 Width = 943
Height = 599 Height = 608
ExplicitWidth = 943 ExplicitWidth = 943
ExplicitHeight = 599 ExplicitHeight = 599
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 571 ExplicitHeight = 580
inline frViewPersonalContacto1: TfrViewPersonalContacto inline frViewPersonalContacto1: TfrViewPersonalContacto
Left = 0 Left = 0
Top = 368 Top = 377
Width = 935 Width = 935
Height = 203 Height = 203
Align = alBottom Align = alBottom
@ -108,7 +108,7 @@ inherited fEditorContacto: TfEditorContacto
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitTop = 368 ExplicitTop = 377
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 203 ExplicitHeight = 203
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -120,6 +120,18 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 935 Width = 935
ExplicitWidth = 935 ExplicitWidth = 935
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -130,7 +142,7 @@ inherited fEditorContacto: TfEditorContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 935 Width = 935
Height = 571 Height = 580
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -141,7 +153,7 @@ inherited fEditorContacto: TfEditorContacto
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 935 ExplicitWidth = 935
ExplicitHeight = 571 ExplicitHeight = 580
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 935 Width = 935
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
@ -182,6 +194,10 @@ inherited fEditorContacto: TfEditorContacto
object pagPersonal: TTabSheet object pagPersonal: TTabSheet
Caption = 'Observaciones' Caption = 'Observaciones'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object memObservaciones22: TcxDBMemo object memObservaciones22: TcxDBMemo
Left = 0 Left = 0
Top = 0 Top = 0
@ -194,7 +210,7 @@ inherited fEditorContacto: TfEditorContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Height = 571 Height = 580
Width = 935 Width = 935
end end
end end
@ -202,10 +218,6 @@ inherited fEditorContacto: TfEditorContacto
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 949 Width = 949
ExplicitWidth = 949 ExplicitWidth = 949
inherited lbComentario: TLabel
Width = 939
Height = 25
end
end end
inherited dsDataTable: TDADataSource [5] inherited dsDataTable: TDADataSource [5]
Left = 168 Left = 168

190
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -8,7 +8,8 @@ inherited fEditorProveedor: TfEditorProveedor
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 945 Width = 945
ExplicitWidth = 648 ExplicitTop = 49
ExplicitWidth = 945
inherited Image1: TImage inherited Image1: TImage
Left = 918 Left = 918
Picture.Data = { Picture.Data = {
@ -47,7 +48,7 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 945 Width = 945
ExplicitWidth = 648 ExplicitWidth = 945
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 945 ExplicitWidth = 945
end end
@ -55,32 +56,33 @@ inherited fEditorProveedor: TfEditorProveedor
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 801 Top = 801
Width = 945 Width = 945
ExplicitTop = 571 ExplicitTop = 801
ExplicitWidth = 648 ExplicitWidth = 945
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 939 Width = 939
Height = 689 Height = 689
ExplicitWidth = 642 ExplicitTop = 109
ExplicitHeight = 459 ExplicitWidth = 939
ExplicitHeight = 689
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 431 ExplicitHeight = 661
inherited frViewPersonalContacto1: TfrViewPersonalContacto inherited frViewPersonalContacto1: TfrViewPersonalContacto
Top = 511 Top = 458
Width = 931 Width = 931
TabOrder = 1 TabOrder = 1
ExplicitTop = 281 Visible = False
ExplicitWidth = 634 ExplicitTop = 458
ExplicitWidth = 931
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 931 Width = 931
ExplicitTop = 25 ExplicitWidth = 931
ExplicitWidth = 634 ExplicitHeight = 178
ExplicitHeight = 406
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 931 Width = 931
ExplicitWidth = 634 ExplicitWidth = 931
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end
@ -99,7 +101,7 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 931 Width = 931
Height = 511 Height = 458
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -109,30 +111,30 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 0 ExplicitHeight = 458
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 931 Width = 931
Height = 511 Height = 458
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 0 ExplicitHeight = 458
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 886 Left = 869
Top = 218 Top = 218
ExplicitLeft = 886 ExplicitLeft = 869
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 886 Left = 869
Top = 190 Top = 190
ExplicitLeft = 886 ExplicitLeft = 869
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 886 Left = 869
Top = 162 Top = 162
ExplicitLeft = 886 ExplicitLeft = 869
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
@ -166,23 +168,23 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 267 Width = 267
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 518 Left = 507
Top = 243 Top = 243
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 518 ExplicitLeft = 507
ExplicitTop = 243 ExplicitTop = 243
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 697 Left = 686
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 697 ExplicitLeft = 686
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -201,6 +203,7 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cbGrupoProveedor: TcxDBComboBox inherited cbGrupoProveedor: TcxDBComboBox
Top = 165 Top = 165
Enabled = False
ExplicitTop = 165 ExplicitTop = 165
ExplicitWidth = 227 ExplicitWidth = 227
Width = 227 Width = 227
@ -218,37 +221,37 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 221 Width = 221
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 697 Left = 686
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 697 ExplicitLeft = 686
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 697 Left = 686
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 697 ExplicitLeft = 686
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 697 Left = 686
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 697 ExplicitLeft = 686
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -264,26 +267,26 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 303 Left = 299
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 303 ExplicitLeft = 299
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 254 ExplicitWidth = 254
Width = 254 Width = 254
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 697 Left = 686
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 697 ExplicitLeft = 686
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
@ -295,26 +298,26 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 192 Width = 192
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 697 Left = 686
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 697 ExplicitLeft = 686
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 697 Left = 686
Top = 217 Top = 217
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 697 ExplicitLeft = 686
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -340,10 +343,11 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 253 Width = 253
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 602 Left = 591
Top = 270 Top = 270
Width = 290 Width = 290
ExplicitLeft = 602 Enabled = False
ExplicitLeft = 591
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 290 ExplicitWidth = 290
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -372,21 +376,42 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 521 Width = 521
end end
end end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
inherited dxLayoutControlContactoItem20: TdxLayoutItem
Enabled = False
Visible = False
end
end
end
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
Enabled = False
Visible = False
end
end
end
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
Visible = True
end
end
end end
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 431 ExplicitHeight = 661
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 931 Width = 931
Height = 661 Height = 661
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 431 ExplicitHeight = 661
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 931 Width = 931
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634 ExplicitWidth = 931
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -431,16 +456,22 @@ inherited fEditorProveedor: TfEditorProveedor
end end
end end
inherited pagPersonal: TTabSheet inherited pagPersonal: TTabSheet
Enabled = False
TabVisible = False
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 931 ExplicitWidth = 931
ExplicitHeight = 661 ExplicitHeight = 661
inherited memObservaciones22: TcxDBMemo
ExplicitWidth = 931
ExplicitHeight = 661
Height = 661
Width = 931
end
end end
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 2 ImageIndex = 2
ExplicitWidth = 634
ExplicitHeight = 431
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
@ -455,15 +486,16 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 225 ExplicitHeight = 225
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 931 Width = 931
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634 ExplicitWidth = 931
inherited Label1: TLabel inherited Label1: TLabel
Top = 135 Top = 135
Width = 190 Width = 190
Enabled = False
ExplicitTop = 135 ExplicitTop = 135
ExplicitWidth = 190 ExplicitWidth = 190
end end
@ -471,6 +503,7 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 641 Left = 641
Top = 30 Top = 30
Width = 149 Width = 149
Enabled = False
ExplicitLeft = 641 ExplicitLeft = 641
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 149 ExplicitWidth = 149
@ -519,6 +552,7 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
Top = 167 Top = 167
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -530,6 +564,7 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eDiasVencimiento1: TcxDBSpinEdit inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 713 Left = 713
Top = 75 Top = 75
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -540,6 +575,7 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eDiasVencimiento2: TcxDBSpinEdit inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 713 Left = 713
Top = 102 Top = 102
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -550,6 +586,7 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eDiasVencimiento3: TcxDBSpinEdit inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 713 Left = 713
Top = 129 Top = 129
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -557,14 +594,26 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitLeft = 713 ExplicitLeft = 713
ExplicitTop = 129 ExplicitTop = 129
end end
inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup
inherited dxLayoutControl1Group5: TdxLayoutGroup
Enabled = False
Visible = False
end
end
inherited dxLayoutControl1Group4: TdxLayoutGroup
Enabled = False
Visible = False
end
end
end end
end end
end end
object pagDirecciones: TTabSheet object pagDirecciones: TTabSheet
Caption = 'Direcciones' Caption = 'Direcciones'
Enabled = False
ImageIndex = 3 ImageIndex = 3
ExplicitWidth = 634 TabVisible = False
ExplicitHeight = 431
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
@ -579,17 +628,17 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 431 ExplicitHeight = 661
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 931 Width = 931
Height = 636 Height = 636
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 436 ExplicitHeight = 636
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 931 Width = 931
ExplicitWidth = 634 ExplicitWidth = 931
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 113 ExplicitWidth = 113
end end
@ -607,9 +656,9 @@ inherited fEditorProveedor: TfEditorProveedor
end end
object PagContabilidad: TTabSheet object PagContabilidad: TTabSheet
Caption = 'Contabilidad' Caption = 'Contabilidad'
Enabled = False
ImageIndex = 4 ImageIndex = 4
ExplicitWidth = 634 TabVisible = False
ExplicitHeight = 431
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
Left = 0 Left = 0
Top = 0 Top = 0
@ -625,13 +674,13 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 431 ExplicitHeight = 661
inherited layoutApunte: TdxLayoutControl inherited layoutApunte: TdxLayoutControl
Width = 931 Width = 931
Height = 661 Height = 661
ExplicitWidth = 634 ExplicitWidth = 931
ExplicitHeight = 431 ExplicitHeight = 661
inherited eRefSubCuenta: TcxDBTextEdit inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -679,7 +728,8 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 945 Width = 945
ExplicitWidth = 648 ExplicitTop = 76
ExplicitWidth = 945
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 935 Width = 935
Height = 25 Height = 25

6
Source/Modulos/Contactos/Views/uEditorProveedor.pas
View File

@ -15,7 +15,7 @@ uses
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos, dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega, uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls, uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls,
uViewPersonalContacto; uViewPersonalContacto, cxMemo;
type type
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor) TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
@ -67,9 +67,9 @@ begin
ViewContacto := frViewProveedor1; ViewContacto := frViewProveedor1;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
pagContabilidad.TabVisible := true; // pagContabilidad.TabVisible := true;
{$ELSE} {$ELSE}
pagContabilidad.TabVisible := false; // pagContabilidad.TabVisible := false;
{$ENDIF} {$ENDIF}
end; end;

57
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -9,18 +9,18 @@ inherited frViewCliente: TfrViewCliente
Width = 646 Width = 646
Height = 563 Height = 563
ExplicitWidth = 646 ExplicitWidth = 646
ExplicitHeight = 609 ExplicitHeight = 563
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 601 Left = 584
ExplicitLeft = 601 ExplicitLeft = 584
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 601 Left = 584
ExplicitLeft = 601 ExplicitLeft = 584
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 601 Left = 584
ExplicitLeft = 601 ExplicitLeft = 584
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 132 Left = 132
@ -62,24 +62,24 @@ inherited frViewCliente: TfrViewCliente
Width = 213 Width = 213
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 268 Left = 259
Top = 247 Top = 247
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 9
ExplicitLeft = 268 ExplicitLeft = 259
ExplicitTop = 247 ExplicitTop = 247
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 449 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15 TabOrder = 15
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 233 ExplicitWidth = 233
Width = 233 Width = 233
end end
@ -239,35 +239,35 @@ inherited frViewCliente: TfrViewCliente
Width = 211 Width = 211
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 449 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 14
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 233 ExplicitWidth = 233
Width = 233 Width = 233
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 449 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 16
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 233 ExplicitWidth = 233
Width = 233 Width = 233
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 449 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17 TabOrder = 17
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 233 ExplicitWidth = 233
Width = 233 Width = 233
end end
@ -282,47 +282,47 @@ inherited frViewCliente: TfrViewCliente
Width = 135 Width = 135
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 247 Left = 242
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 247 ExplicitLeft = 242
ExplicitWidth = 59 ExplicitWidth = 59
Width = 59 Width = 59
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 449 Left = 440
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18 TabOrder = 18
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 204 ExplicitWidth = 204
Width = 204 Width = 204
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 449 Left = 440
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19 TabOrder = 19
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 204 ExplicitWidth = 204
Width = 204 Width = 204
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 449 Left = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20 TabOrder = 20
ExplicitLeft = 449 ExplicitLeft = 440
ExplicitWidth = 204 ExplicitWidth = 204
Width = 204 Width = 204
end end
@ -350,11 +350,11 @@ inherited frViewCliente: TfrViewCliente
Width = 256 Width = 256
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 354 Left = 345
Width = 270 Width = 270
AutoSize = True AutoSize = True
TabOrder = 21 TabOrder = 21
ExplicitLeft = 354 ExplicitLeft = 345
ExplicitWidth = 270 ExplicitWidth = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 270 Width = 270
@ -379,6 +379,8 @@ inherited frViewCliente: TfrViewCliente
ExplicitHeight = 127 ExplicitHeight = 127
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
ExplicitWidth = 585
ExplicitHeight = 127
Height = 127 Height = 127
Width = 585 Width = 585
end end
@ -440,6 +442,7 @@ inherited frViewCliente: TfrViewCliente
end end
end end
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
Visible = True
inherited dxLayoutControlContactoItem8: TdxLayoutItem inherited dxLayoutControlContactoItem8: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
end end

25
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -45,23 +45,36 @@ inherited frViewClientes: TfrViewClientes
VisibleForCustomization = False VisibleForCustomization = False
Width = 22 Width = 22
end end
inherited cxGridViewTIENDA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
object cxGridViewFECHA_ALTA: TcxGridDBColumn [4] object cxGridViewFECHA_ALTA: TcxGridDBColumn [4]
Caption = 'Fecha alta' Caption = 'Fecha alta'
DataBinding.FieldName = 'FECHA_ALTA' DataBinding.FieldName = 'FECHA_ALTA'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False Properties.ShowTime = False
Visible = False
VisibleForCustomization = False
end end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [7] object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [7]
DataBinding.FieldName = 'NOMBRE_COMERCIAL' DataBinding.FieldName = 'NOMBRE_COMERCIAL'
Visible = False
VisibleForCustomization = False
Width = 164 Width = 164
end end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [9] object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [9]
Caption = 'Persona contacto' Caption = 'Persona contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO' DataBinding.FieldName = 'PERSONA_CONTACTO'
end end
inherited cxGridViewPAGINA_WEB: TcxGridDBColumn
VisibleForCustomization = False
end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
DataBinding.FieldName = 'LISTA_NOMBRES' DataBinding.FieldName = 'LISTA_NOMBRES'
Visible = False
BestFitMaxWidth = 60 BestFitMaxWidth = 60
VisibleForCustomization = False
Width = 90 Width = 90
end end
end end
@ -75,15 +88,27 @@ inherited frViewClientes: TfrViewClientes
Width = 633 Width = 633
ExplicitWidth = 633 ExplicitWidth = 633
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 661 ExplicitWidth = 661
Width = 661 Width = 661
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 271 Left = 271
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 271 ExplicitLeft = 271
ExplicitWidth = 427 ExplicitWidth = 427
Width = 427 Width = 427

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

@ -415,6 +415,7 @@ inherited frViewContacto: TfrViewContacto
Top = 28 Top = 28
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ReadOnly = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = clWindow
@ -473,7 +474,6 @@ inherited frViewContacto: TfrViewContacto
ExplicitLeft = 312 ExplicitLeft = 312
ExplicitTop = 280 ExplicitTop = 280
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 290
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -503,8 +503,7 @@ inherited frViewContacto: TfrViewContacto
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'NOTAS' DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
ExplicitWidth = 580 ExplicitHeight = 228
ExplicitHeight = 163
Height = 228 Height = 228
end end
end end

73
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -25,6 +25,10 @@ inherited frViewProveedor: TfrViewProveedor
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 138 Left = 138
Top = 220 Top = 220
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 7
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 220 ExplicitTop = 220
@ -34,6 +38,10 @@ inherited frViewProveedor: TfrViewProveedor
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Left = 138 Left = 138
Top = 247 Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 8
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 247 ExplicitTop = 247
@ -43,6 +51,10 @@ inherited frViewProveedor: TfrViewProveedor
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 138 Left = 138
Top = 274 Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 10
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 274 ExplicitTop = 274
@ -52,12 +64,20 @@ inherited frViewProveedor: TfrViewProveedor
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 271 Left = 271
Top = 247 Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 9
ExplicitLeft = 271 ExplicitLeft = 271
ExplicitTop = 247 ExplicitTop = 247
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 452 Left = 452
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15 TabOrder = 15
ExplicitLeft = 452 ExplicitLeft = 452
ExplicitWidth = 91 ExplicitWidth = 91
@ -170,6 +190,10 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 452 Left = 452
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 14
ExplicitLeft = 452 ExplicitLeft = 452
ExplicitWidth = 127 ExplicitWidth = 127
@ -177,6 +201,10 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 452 Left = 452
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 16
ExplicitLeft = 452 ExplicitLeft = 452
ExplicitWidth = 155 ExplicitWidth = 155
@ -184,6 +212,10 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 452 Left = 452
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17 TabOrder = 17
ExplicitLeft = 452 ExplicitLeft = 452
ExplicitWidth = 121 ExplicitWidth = 121
@ -191,12 +223,20 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 138 Left = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 211 Left = 211
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 211 ExplicitLeft = 211
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
@ -204,6 +244,10 @@ inherited frViewProveedor: TfrViewProveedor
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 452 Left = 452
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18 TabOrder = 18
ExplicitLeft = 452 ExplicitLeft = 452
ExplicitWidth = 133 ExplicitWidth = 133
@ -232,6 +276,10 @@ inherited frViewProveedor: TfrViewProveedor
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 452 Left = 452
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19 TabOrder = 19
ExplicitLeft = 452 ExplicitLeft = 452
ExplicitWidth = 133 ExplicitWidth = 133
@ -239,6 +287,10 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 452 Left = 452
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20 TabOrder = 20
ExplicitLeft = 452 ExplicitLeft = 452
ExplicitWidth = 133 ExplicitWidth = 133
@ -246,6 +298,10 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 138 Left = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitWidth = 38 ExplicitWidth = 38
Width = 38 Width = 38
@ -253,6 +309,10 @@ inherited frViewProveedor: TfrViewProveedor
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 138 Left = 138
Top = 301 Top = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 11
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 301 ExplicitTop = 301
@ -268,18 +328,25 @@ inherited frViewProveedor: TfrViewProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 451 Width = 451
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
end end
end end
inherited frViewObservaciones1: TfrViewObservaciones inherited frViewObservaciones1: TfrViewObservaciones
Top = 442
Width = 521 Width = 521
Height = 228 Height = 228
TabOrder = 22 TabOrder = 22
ExplicitTop = 442
ExplicitWidth = 521 ExplicitWidth = 521
ExplicitHeight = 228 ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = dsContacto
Height = 228 Height = 228
Width = 521 Width = 521
end end
@ -300,7 +367,6 @@ inherited frViewProveedor: TfrViewProveedor
end end
object dxLayoutControlContactoItem24: TdxLayoutItem object dxLayoutControlContactoItem24: TdxLayoutItem
Caption = 'C'#243'digo de cliente:' Caption = 'C'#243'digo de cliente:'
Visible = False
Control = eCodigoAsignado Control = eCodigoAsignado
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -327,6 +393,11 @@ inherited frViewProveedor: TfrViewProveedor
end end
end end
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
inherited dxLayoutControlContactoGroup2: TdxLayoutGroup
inherited dxLayoutControlContactoItem9: TdxLayoutItem
Visible = True
end
end
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
Caption = 'El proveedor pertenece a la tienda' Caption = 'El proveedor pertenece a la tienda'
end end

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

@ -29,11 +29,17 @@ inherited frViewProveedores: TfrViewProveedores
ImageIndex = 1 ImageIndex = 1
Value = 1 Value = 1
end> end>
Visible = False
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
VisibleForCustomization = False
Width = 22 Width = 22
end end
inherited cxGridViewTIENDA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewNOMBRE: TcxGridDBColumn inherited cxGridViewNOMBRE: TcxGridDBColumn
BestFitMaxWidth = 0 BestFitMaxWidth = 0
end end
@ -56,15 +62,27 @@ inherited frViewProveedores: TfrViewProveedores
Width = 483 Width = 483
ExplicitWidth = 483 ExplicitWidth = 483
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 386 ExplicitWidth = 386
Width = 386 Width = 386
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 130 ExplicitWidth = 130
Width = 130 Width = 130
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 234 Left = 234
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 234 ExplicitLeft = 234
ExplicitWidth = 239 ExplicitWidth = 239
Width = 239 Width = 239

46
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -16,15 +16,19 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" /> <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" /> <Projects Include="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" /> <Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Recibos de cliente\ConCli_RecCli_relation.dproj" />
<Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" /> <Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
<Projects Include="Controller\ContratosCliente_controller.dproj" /> <Projects Include="Controller\ContratosCliente_controller.dproj" />
<Projects Include="Data\ContratosCliente_data.dproj" /> <Projects Include="Data\ContratosCliente_data.dproj" />
@ -182,6 +186,15 @@
<Target Name="PreCli_ConCli_relation:Make"> <Target Name="PreCli_ConCli_relation:Make">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" Targets="Make" /> <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" Targets="Make" />
</Target> </Target>
<Target Name="ConCli_RecCli_relation">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Recibos de cliente\ConCli_RecCli_relation.dproj" Targets="" />
</Target>
<Target Name="ConCli_RecCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Recibos de cliente\ConCli_RecCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="ConCli_RecCli_relation:Make">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Recibos de cliente\ConCli_RecCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="ConCli_PedProv_relation"> <Target Name="ConCli_PedProv_relation">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" Targets="" /> <MSBuild Projects="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" Targets="" />
</Target> </Target>
@ -281,14 +294,41 @@
<Target Name="FacturasProveedor_plugin:Make"> <Target Name="FacturasProveedor_plugin:Make">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosCliente_view">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_view:Clean">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_view:Make">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FacturasProveedor_controller;FacturasProveedor_plugin" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_RecCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FacturasProveedor_controller;FacturasProveedor_plugin;RecibosCliente_view;FacturasCliente_controller;FacturasCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_RecCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean;RecibosCliente_view:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_RecCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make;RecibosCliente_view:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -268,6 +268,7 @@ begin
begin begin
AContrato.DataTable.Edit; AContrato.DataTable.Edit;
AContrato.SITUACION := Situacion; AContrato.SITUACION := Situacion;
AContrato.FECHA_DECISION := FechaDecision;
AContrato.DataTable.Post; AContrato.DataTable.Post;
end; end;
@ -283,6 +284,7 @@ begin
begin begin
AContrato.DataTable.Edit; AContrato.DataTable.Edit;
AContrato.SITUACION := Situacion; AContrato.SITUACION := Situacion;
AContrato.FECHA_DECISION := FechaDecision;
AContrato.DataTable.Post; AContrato.DataTable.Post;
end; end;
Next; Next;

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

@ -106,7 +106,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Provincia' DisplayLabel = 'ContratosCliente_PROVINCIA'
DictionaryEntry = 'ContratosCliente_PROVINCIA' DictionaryEntry = 'ContratosCliente_PROVINCIA'
end end
item item
@ -337,12 +337,24 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'REFERENCIA_CLIENTE' Name = 'REFERENCIA_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'ContratosCliente_REFERENCIA_CLIENTE'
DictionaryEntry = 'ContratosCliente_REFERENCIA_CLIENTE'
end end
item item
Name = 'LISTA_NOMBRES' Name = 'LISTA_NOMBRES'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Otros nombres' DisplayLabel = 'Otros nombres'
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
end
item
Name = 'FACTURA_ASOCIADA'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{58A2DEFE-73CE-4294-A509-3456173EC1E8}'; RID_Valores = '{FF170B3B-0B30-4A6E-B36F-AED5E8250AC5}';
RID_Propiedades = '{FD279174-BDCF-4C6E-86A5-9EF688F8A386}'; RID_Propiedades = '{2CA5D47F-7A40-4C99-8D82-62D14C8611F9}';
RID_ListaAnosContratos = '{995B8113-D69E-45F6-B0C6-279DE92E8AE1}'; RID_ListaAnosContratos = '{CB4AC0C2-A13B-4E20-B34C-FA4B4B7AAAB7}';
RID_ContratosClienteBeneficios = '{AADFE498-8072-4F5F-84FD-7BDAE2D03E88}'; RID_ContratosClienteBeneficios = '{C8F49F14-3BD4-4EDC-B535-1084245828BA}';
RID_ContratosCliente = '{6BBAF32D-E3F6-4C2F-BB50-EEB0BABCE782}'; RID_ContratosCliente = '{84BF7884-DAEC-4F6F-82D1-6F65B0955416}';
RID_TiposCapitulos = '{4355D117-B641-4CF9-99AC-17558CB0C354}'; RID_TiposCapitulos = '{B2D051D8-4424-4B02-AD1F-C5BAE040894B}';
RID_ContratosCliente_Detalles = '{02F28C43-5EC9-4A4F-A2BC-CD4BF581ED0B}'; RID_ContratosCliente_Detalles = '{9DBF2D50-49C9-4CE5-BFBD-D0DBFCE0EA8E}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -136,6 +136,8 @@ const
fld_ContratosClienteCALIDADES = 'CALIDADES'; fld_ContratosClienteCALIDADES = 'CALIDADES';
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_ContratosClienteFECHA_DECISION = 'FECHA_DECISION';
fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -187,6 +189,8 @@ const
idx_ContratosClienteCALIDADES = 46; idx_ContratosClienteCALIDADES = 46;
idx_ContratosClienteREFERENCIA_CLIENTE = 47; idx_ContratosClienteREFERENCIA_CLIENTE = 47;
idx_ContratosClienteLISTA_NOMBRES = 48; idx_ContratosClienteLISTA_NOMBRES = 48;
idx_ContratosClienteFECHA_DECISION = 49;
idx_ContratosClienteFACTURA_ASOCIADA = 50;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -245,7 +249,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{8DC482B0-0D63-436F-AB19-74A480249588}'] ['{37D9C952-11C7-44D0-8A56-023852645B0F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -304,7 +308,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{83E4E5BD-A49A-4677-A830-7C9B83F3DDE4}'] ['{5252B717-197E-41E3-A902-78CD6A804EBD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -363,7 +367,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{35D2C046-61DA-487F-A0F4-5E3AB7CCA58D}'] ['{C59F0AC9-2FA9-46DB-B506-352CCE2AAA5E}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -398,7 +402,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{FEA1561B-0DF3-4193-8881-62C4433488E8}'] ['{6EFAD955-7B1E-45EF-9DA1-D7596933323F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -601,7 +605,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{F2DEA876-B1A6-475D-8D1D-8D416E7D40CA}'] ['{C292C53E-7CE7-4DAC-8FED-D5984431BAF6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -793,6 +797,14 @@ type
procedure SetLISTA_NOMBRESValue(const aValue: String); procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean; function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
function GetFECHA_DECISIONValue: DateTime;
procedure SetFECHA_DECISIONValue(const aValue: DateTime);
function GetFECHA_DECISIONIsNull: Boolean;
procedure SetFECHA_DECISIONIsNull(const aValue: Boolean);
function GetFACTURA_ASOCIADAValue: String;
procedure SetFACTURA_ASOCIADAValue(const aValue: String);
function GetFACTURA_ASOCIADAIsNull: Boolean;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -894,6 +906,10 @@ type
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue;
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -1103,6 +1119,14 @@ type
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual; function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetFECHA_DECISIONValue: DateTime; virtual;
procedure SetFECHA_DECISIONValue(const aValue: DateTime); virtual;
function GetFECHA_DECISIONIsNull: Boolean; virtual;
procedure SetFECHA_DECISIONIsNull(const aValue: Boolean); virtual;
function GetFACTURA_ASOCIADAValue: String; virtual;
procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual;
function GetFACTURA_ASOCIADAIsNull: Boolean; virtual;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1203,6 +1227,10 @@ type
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue;
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1215,7 +1243,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{5F81E7D5-452E-4E0A-88C8-1F996B6AF531}'] ['{6FD186D4-E64F-45A9-88A6-163E72D11671}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1310,7 +1338,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{251944F0-59A0-4544-BC1D-DC85411F2FD7}'] ['{43B88BE1-14BC-4332-889D-8091C7420325}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3121,6 +3149,48 @@ begin
DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].AsVariant := Null; DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetFECHA_DECISIONValue: DateTime;
begin
result := DataTable.Fields[idx_ContratosClienteFECHA_DECISION].AsDateTime;
end;
procedure TContratosClienteDataTableRules.SetFECHA_DECISIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ContratosClienteFECHA_DECISION].AsDateTime := aValue;
end;
function TContratosClienteDataTableRules.GetFECHA_DECISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteFECHA_DECISION].IsNull;
end;
procedure TContratosClienteDataTableRules.SetFECHA_DECISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteFECHA_DECISION].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetFACTURA_ASOCIADAValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsString;
end;
procedure TContratosClienteDataTableRules.SetFACTURA_ASOCIADAValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetFACTURA_ASOCIADAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].IsNull;
end;
procedure TContratosClienteDataTableRules.SetFACTURA_ASOCIADAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{B57572E7-8CF0-400C-A161-CC3597A61C0B}'; RID_ValoresDelta = '{8D6C76F9-F425-4A12-A6DA-CDADFCB371D5}';
RID_PropiedadesDelta = '{9194A821-5316-4432-AB61-66CB529F49E3}'; RID_PropiedadesDelta = '{785FA853-7F7C-4D4B-A3F1-F605B64D365A}';
RID_ListaAnosContratosDelta = '{E141AD09-588D-4313-90DB-61941556C617}'; RID_ListaAnosContratosDelta = '{9AED0858-AA56-4911-97AE-7FA8F5BA1BDF}';
RID_ContratosClienteBeneficiosDelta = '{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}'; RID_ContratosClienteBeneficiosDelta = '{0A6BE4D0-4128-48DD-8E05-87DB06C0181F}';
RID_ContratosClienteDelta = '{07069709-DA46-44C8-9C1C-AAB3F80D3F26}'; RID_ContratosClienteDelta = '{13EC691D-B231-48FE-BE2D-E8EC546D4FDA}';
RID_TiposCapitulosDelta = '{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}'; RID_TiposCapitulosDelta = '{ABCB3BD5-D32A-405C-9799-900FAB730F45}';
RID_ContratosCliente_DetallesDelta = '{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}'; RID_ContratosCliente_DetallesDelta = '{09923382-3A40-4992-9F2C-903B5B6CA290}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{B57572E7-8CF0-400C-A161-CC3597A61C0B}'] ['{8D6C76F9-F425-4A12-A6DA-CDADFCB371D5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{9194A821-5316-4432-AB61-66CB529F49E3}'] ['{785FA853-7F7C-4D4B-A3F1-F605B64D365A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{E141AD09-588D-4313-90DB-61941556C617}'] ['{9AED0858-AA56-4911-97AE-7FA8F5BA1BDF}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}'] ['{0A6BE4D0-4128-48DD-8E05-87DB06C0181F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{07069709-DA46-44C8-9C1C-AAB3F80D3F26}'] ['{13EC691D-B231-48FE-BE2D-E8EC546D4FDA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -423,6 +423,8 @@ type
function GetOldCALIDADESValue : IROStrings; function GetOldCALIDADESValue : IROStrings;
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLISTA_NOMBRESValue : String; function GetOldLISTA_NOMBRESValue : String;
function GetOldFECHA_DECISIONValue : DateTime;
function GetOldFACTURA_ASOCIADAValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -474,6 +476,8 @@ type
property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -781,6 +785,18 @@ type
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual; function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetFECHA_DECISIONValue: DateTime; virtual;
function GetFECHA_DECISIONIsNull: Boolean; virtual;
function GetOldFECHA_DECISIONValue: DateTime; virtual;
function GetOldFECHA_DECISIONIsNull: Boolean; virtual;
procedure SetFECHA_DECISIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_DECISIONIsNull(const aValue: Boolean); virtual;
function GetFACTURA_ASOCIADAValue: String; virtual;
function GetFACTURA_ASOCIADAIsNull: Boolean; virtual;
function GetOldFACTURA_ASOCIADAValue: String; virtual;
function GetOldFACTURA_ASOCIADAIsNull: Boolean; virtual;
procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -979,6 +995,14 @@ type
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull; property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
property FECHA_DECISION : DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue;
property FECHA_DECISIONIsNull : Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
property OldFECHA_DECISIONIsNull : Boolean read GetOldFECHA_DECISIONIsNull;
property FACTURA_ASOCIADA : String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
property FACTURA_ASOCIADAIsNull : Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldFACTURA_ASOCIADAIsNull : Boolean read GetOldFACTURA_ASOCIADAIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -988,7 +1012,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}'] ['{ABCB3BD5-D32A-405C-9799-900FAB730F45}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1082,7 +1106,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}'] ['{09923382-3A40-4992-9F2C-903B5B6CA290}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -3609,6 +3633,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetFECHA_DECISIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_DECISION];
end;
function TContratosClienteBusinessProcessorRules.GetFECHA_DECISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_DECISION]);
end;
function TContratosClienteBusinessProcessorRules.GetOldFECHA_DECISIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_DECISION];
end;
function TContratosClienteBusinessProcessorRules.GetOldFECHA_DECISIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_DECISION]);
end;
procedure TContratosClienteBusinessProcessorRules.SetFECHA_DECISIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_DECISION] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetFECHA_DECISIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_DECISION] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetFACTURA_ASOCIADAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA];
end;
function TContratosClienteBusinessProcessorRules.GetFACTURA_ASOCIADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA]);
end;
function TContratosClienteBusinessProcessorRules.GetOldFACTURA_ASOCIADAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFACTURA_ASOCIADA];
end;
function TContratosClienteBusinessProcessorRules.GetOldFACTURA_ASOCIADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFACTURA_ASOCIADA]);
end;
procedure TContratosClienteBusinessProcessorRules.SetFACTURA_ASOCIADAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetFACTURA_ASOCIADAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

6
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -12,7 +12,8 @@ const
BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS = 'Client.ContratosClienteBeneficios'; BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS = 'Client.ContratosClienteBeneficios';
SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE'; SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE';
SITUACION_CONTRATO_TERMINADO = 'TERMINADO'; SITUACION_CONTRATO_ACEPTADO = 'ACEPTADO';
SITUACION_CONTRATO_RECHAZADO = 'RECHAZADO';
type type
@ -207,7 +208,8 @@ begin
with Result do with Result do
begin begin
Add(SITUACION_CONTRATO_PENDIENTE); Add(SITUACION_CONTRATO_PENDIENTE);
Add(SITUACION_CONTRATO_TERMINADO); Add(SITUACION_CONTRATO_ACEPTADO);
Add(SITUACION_CONTRATO_RECHAZADO);
end; end;
end; end;

4
Source/Modulos/Contratos de cliente/Plugin/uPluginContratosCliente.dfm
View File

@ -134,13 +134,13 @@ object PluginContratosCliente: TPluginContratosCliente
Top = 72 Top = 72
object actContratosCliente: TAction object actContratosCliente: TAction
Category = 'Ventas' Category = 'Ventas'
Caption = 'Contratos de cliente' Caption = 'Presupuestos de cliente'
ImageIndex = 0 ImageIndex = 0
OnExecute = actContratosClienteExecute OnExecute = actContratosClienteExecute
end end
object actInfContratos: TAction object actInfContratos: TAction
Category = 'Informes' Category = 'Informes'
Caption = 'Informe contratos' Caption = 'Informe presupuestos'
OnExecute = actContratosClienteExecute OnExecute = actContratosClienteExecute
end end
end end

2
Source/Modulos/Contratos de cliente/Plugin/uPluginContratosCliente.pas
View File

@ -78,7 +78,7 @@ var
AContratosCliente : IBizContratoCliente; AContratosCliente : IBizContratoCliente;
AText : String; AText : String;
begin begin
AText := Format('Lista de contratos del cliente %s', [ANombreCliente]); // AText := Format('Lista de presupuestos de cliente - %s', [ANombreCliente]);
AContratosClienteController := TContratosClienteController.Create; AContratosClienteController := TContratosClienteController.Create;
try try
ShowHourglassCursor; ShowHourglassCursor;

4
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -1207,8 +1207,7 @@ object RptContratosCliente: TRptContratosCliente
Top = 128 Top = 128
end end
object IBDatabase1: TIBDatabase object IBDatabase1: TIBDatabase
Connected = True DatabaseName = 'C:\Codigo Arribas2\Output\Debug\Database\FACTUGES.FDB'
DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
Params.Strings = ( Params.Strings = (
'user_name=sysdba' 'user_name=sysdba'
'password=masterkey' 'password=masterkey'
@ -1219,7 +1218,6 @@ object RptContratosCliente: TRptContratosCliente
Top = 296 Top = 296
end end
object IBTransaction1: TIBTransaction object IBTransaction1: TIBTransaction
Active = True
Left = 48 Left = 48
Top = 352 Top = 352
end end

24
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
View File

@ -82,6 +82,10 @@ type
FListaNombresClientes: TStringList; FListaNombresClientes: TStringList;
FImporteMinimo: Currency; FImporteMinimo: Currency;
FDesglosado : Boolean; FDesglosado : Boolean;
FVerLogotipo : Boolean;
FNombreEmpresa: String;
FVerPrecios: Boolean;
FVerTotales: Boolean;
procedure _GenerarContrato(const AID : Integer); procedure _GenerarContrato(const AID : Integer);
@ -146,6 +150,14 @@ var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
//Inicializamos parametros
FVerLogotipo := true;
FNombreEmpresa := '';
FVerPrecios := true;
FVerTotales := true;
try try
//Vamos generando todos y cada uno de los Contratos recibidos //Vamos generando todos y cada uno de los Contratos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
@ -482,6 +494,13 @@ var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
//Inicializamos parametros
FVerLogotipo := True;
FNombreEmpresa := '';
FVerPrecios := True;
FVerTotales := True;
try try
//Vamos generando todos y cada uno de los Contratos recibidos //Vamos generando todos y cada uno de los Contratos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
@ -539,8 +558,13 @@ begin
raise Exception.Create (('Error Servidor: _GenerarContrato, no encuentra informe ' + rptInforme)); raise Exception.Create (('Error Servidor: _GenerarContrato, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.Variables.Variables['NombreEmpresa'] := ''''+FNombreEmpresa+'''';
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerTotales'] := FVerTotales;
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

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

@ -478,6 +478,14 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'LISTA_NOMBRES' DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES' TableField = 'LISTA_NOMBRES'
end
item
DatasetField = 'FECHA_DECISION'
TableField = 'FECHA_DECISION'
end
item
DatasetField = 'FACTURA_ASOCIADA'
TableField = 'FACTURA_ASOCIADA'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -752,6 +760,15 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES' DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
end
item
Name = 'FACTURA_ASOCIADA'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1216,6 +1233,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1232,16 +1254,17 @@ object srvContratosCliente: TsrvContratosCliente
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' + '_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' + ' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' + 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
'ENCIA_CLIENTE)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' + 'ENCIA_CLIENTE, FECHA_DECISION)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :' +
', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_PO' + 'NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,' +
'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' + #10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, ' +
' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' + ':FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, ' +
'IVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_' + ':INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE' +
'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID' + '_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BAS' +
'_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' + 'E_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :' +
' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' + 'ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO,' +
'E, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO' + ' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL' +
', :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE)'#10#10 ', :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE,' +
#10' :FECHA_DECISION)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1481,6 +1504,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1510,8 +1538,8 @@ object srvContratosCliente: TsrvContratosCliente
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' + 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' + 'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' + 'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE'#10' WHERE'#10' (ID' + 'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_DECI' +
' = :OLD_ID)'#10#10 'SION = :FECHA_DECISION'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -76,7 +76,8 @@ requires
JvCoreD11R, JvCoreD11R,
JvSystemD11R, JvSystemD11R,
JvPageCompsD11R, JvPageCompsD11R,
ConCli_PedProv_relation; ConCli_PedProv_relation,
ConCli_RecCli_relation;
contains contains
uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas', uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas',
@ -94,6 +95,7 @@ contains
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}; uViewClienteContrato in 'uViewClienteContrato.pas' {frViewClienteContrato: TFrame},
uEditorFechaDecisionContrato in 'uEditorFechaDecisionContrato.pas' {fEditorFechaDecisionContrato: TFrame};
end. end.

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

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

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

@ -11,7 +11,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 872 Width = 872
Caption = 'Nuevo contrato de cliente' Caption = 'Nuevo presupuesto de cliente'
ExplicitTop = 49
ExplicitWidth = 872 ExplicitWidth = 872
inherited Image1: TImage inherited Image1: TImage
Left = 845 Left = 845
@ -129,7 +130,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 872 Width = 872
ExplicitWidth = 872 ExplicitWidth = 872
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 634 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -173,118 +174,147 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 866 Width = 866
Height = 464 Height = 473
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 109
ExplicitWidth = 866 ExplicitWidth = 866
ExplicitHeight = 464 ExplicitHeight = 473
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 436 ExplicitHeight = 445
inline frViewContratoCliente1: TfrViewContratoCliente inline frViewContratoCliente1: TfrViewContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 436 Height = 445
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 436 ExplicitHeight = 445
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 858 Width = 858
Height = 436 Height = 445
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 436 ExplicitHeight = 445
inherited edtFechaContrato: TcxDBDateEdit inherited edtFechaContrato: TcxDBDateEdit
Left = 103
Top = 84 Top = 84
ExplicitLeft = 103
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Left = 449 Left = 451
Top = 378 Top = 330
ExplicitLeft = 449 ExplicitLeft = 451
ExplicitTop = 378 ExplicitTop = 330
ExplicitWidth = 404 ExplicitWidth = 404
ExplicitHeight = 139 ExplicitHeight = 139
Height = 139 Height = 139
Width = 404 Width = 404
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 103
Top = 30 Top = 30
ExplicitLeft = 103
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 122 ExplicitWidth = 122
Width = 122 Width = 122
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 138 Left = 103
ExplicitTop = 138 Top = 165
ExplicitLeft = 103
ExplicitTop = 165
ExplicitWidth = 122 ExplicitWidth = 122
Width = 122 Width = 122
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 289 Left = 291
Top = 138 Top = 165
ExplicitLeft = 289 ExplicitLeft = 291
ExplicitTop = 138 ExplicitTop = 165
end end
inherited cbSituacion: TcxDBImageComboBox inherited cbSituacion: TcxDBImageComboBox
Top = 111 Left = 103
ExplicitTop = 111 Top = 138
Properties.Items = <
item
Description = 'PENDIENTE'
ImageIndex = 0
Value = 'PENDIENTE'
end
item
Description = 'ACEPTADO'
Value = 'ACEPTADO'
end
item
Description = 'RECHAZADO'
Value = 'RECHAZADO'
end>
ExplicitLeft = 103
ExplicitTop = 138
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited memFormaPago: TcxDBMemo inherited memFormaPago: TcxDBMemo
Top = 216 Top = 243
ExplicitTop = 216 ExplicitTop = 243
ExplicitWidth = 396 ExplicitWidth = 396
ExplicitHeight = 100 ExplicitHeight = 100
Height = 100 Height = 100
Width = 396 Width = 396
end end
inherited memPlazoEntrega: TcxDBMemo inherited memPlazoEntrega: TcxDBMemo
Top = 333 Top = 351
ExplicitTop = 333 ExplicitTop = 351
ExplicitWidth = 396 ExplicitWidth = 396
ExplicitHeight = 100 ExplicitHeight = 100
Height = 100 Height = 100
Width = 396 Width = 396
end end
inherited cbVendedor: TcxDBLookupComboBox inherited cbVendedor: TcxDBLookupComboBox
Top = 165 Left = 103
ExplicitTop = 165 Top = 192
ExplicitLeft = 103
ExplicitTop = 192
ExplicitWidth = 27 ExplicitWidth = 27
Width = 27 Width = 27
end end
inherited cbTipoContrato: TcxDBComboBox inherited cbTipoContrato: TcxDBComboBox
Left = 310 Left = 320
Top = 84 Top = 84
ExplicitLeft = 310 ExplicitLeft = 320
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 113 ExplicitWidth = 113
Width = 113 Width = 113
end end
inherited edtlREF_CLIENTE: TcxDBTextEdit inherited edtlREF_CLIENTE: TcxDBTextEdit
Left = 103
Top = 57 Top = 57
Enabled = False
ExplicitLeft = 103
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 335 ExplicitWidth = 335
Width = 335 Width = 335
end end
inherited frViewClienteContrato1: TfrViewClienteContrato inherited frViewClienteContrato1: TfrViewClienteContrato
Left = 449 Left = 451
Top = 30 Top = 30
Width = 357 Width = 357
ExplicitLeft = 449 ExplicitLeft = 451
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 357 ExplicitWidth = 357
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 357 Width = 357
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 357
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 82 Left = 82
Top = 72 Top = 72
@ -341,10 +371,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 707 Width = 707
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 294 Left = 292
Top = 176 Top = 176
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitLeft = 294 ExplicitLeft = 292
ExplicitTop = 176 ExplicitTop = 176
end end
inherited Button1: TBitBtn inherited Button1: TBitBtn
@ -360,9 +390,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 11 ExplicitTop = 11
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 184 Left = 182
Top = 230 Top = 230
ExplicitLeft = 184 ExplicitLeft = 182
ExplicitTop = 230 ExplicitTop = 230
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
@ -375,6 +405,32 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
end end
inherited edtFechaDecision: TcxDBDateEdit
Left = 103
Top = 111
ExplicitLeft = 103
ExplicitTop = 111
ExplicitWidth = 115
Width = 115
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Enabled = False
Visible = False
end
inherited dxLayoutControl1Group11: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha:'
end
inherited dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Tipo presupuesto:'
end
end
end
end
end
end end
end end
end end
@ -385,7 +441,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 436 Height = 445
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -398,7 +454,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 436 ExplicitHeight = 445
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
@ -461,17 +517,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 858 Width = 858
Height = 361 Height = 373
ExplicitTop = 75 ExplicitTop = 72
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 361 ExplicitHeight = 373
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 = 665
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
@ -487,12 +542,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
object pagCalidades: TTabSheet object pagCalidades: TTabSheet
Caption = 'Calidades' Caption = 'Calidades'
Enabled = False
ImageIndex = 5 ImageIndex = 5
TabVisible = False
object dxLayoutControl2: TdxLayoutControl object dxLayoutControl2: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 436 Height = 445
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -534,12 +591,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
object pagCondiciones: TTabSheet object pagCondiciones: TTabSheet
Caption = 'Condiciones' Caption = 'Condiciones'
Enabled = False
ImageIndex = 4 ImageIndex = 4
TabVisible = False
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 436 Height = 445
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -586,7 +645,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 436 Height = 445
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -597,7 +656,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 436 ExplicitHeight = 445
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
@ -607,13 +666,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 858 Width = 858
Height = 408 Height = 417
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 408 ExplicitHeight = 417
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 854 ExplicitWidth = 854
ExplicitHeight = 391 ExplicitHeight = 400
Height = 391 Height = 400
Width = 854 Width = 854
end end
end end
@ -627,7 +686,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 436 Height = 445
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -638,17 +697,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 436 ExplicitHeight = 445
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 858 Width = 858
Height = 407 Height = 422
ExplicitTop = 29
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 407 ExplicitHeight = 422
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 8 Left = 8
@ -659,6 +717,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 872 Width = 872
ExplicitTop = 76
ExplicitWidth = 872 ExplicitWidth = 872
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 862 Width = 862

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

@ -381,13 +381,13 @@ begin
if (FTitulo = '') and Assigned(FContrato) then if (FTitulo = '') and Assigned(FContrato) then
begin begin
if FContrato.EsNuevo then if FContrato.EsNuevo then
FTitulo := 'Nuevo Contrato de cliente' FTitulo := 'Nuevo presupuesto de cliente' //FTitulo := 'Nuevo Contrato de cliente'
else else
FTitulo := 'Contrato de cliente' + ' - ' + FContrato.Cliente.Nombre + ' - ' + FContrato.SITUACION; FTitulo := 'Presupuesto de cliente' + ' - ' + FContrato.Cliente.Nombre + ' - ' + FContrato.SITUACION;
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')'; Self.Caption := FTitulo; // + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end; end;
procedure TfEditorContratoCliente.PrevisualizarInterno; procedure TfEditorContratoCliente.PrevisualizarInterno;

141
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

@ -1,5 +1,5 @@
inherited fEditorContratosCliente: TfEditorContratosCliente inherited fEditorContratosCliente: TfEditorContratosCliente
Caption = 'Lista de contratos de cliente' Caption = 'Lista de presupuestos de cliente'
ClientHeight = 551 ClientHeight = 551
ClientWidth = 1119 ClientWidth = 1119
ExplicitWidth = 1127 ExplicitWidth = 1127
@ -8,7 +8,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 1119 Width = 1119
Caption = 'Lista de contratos de cliente' Caption = 'Lista de presupuesto de cliente'
ExplicitWidth = 1119 ExplicitWidth = 1119
inherited Image1: TImage inherited Image1: TImage
Left = 1092 Left = 1092
@ -202,29 +202,31 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
DockPos = 343 DockPos = 343
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 431
ExplicitWidth = 687 ExplicitWidth = 370
object TBXSeparatorItem18: TTBXSeparatorItem object TBXSeparatorItem18: TTBXSeparatorItem
end end
object TBXItem44: TTBXItem object TBXItem44: TTBXItem
Action = actGenerarPedidoProv Action = actAceptar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSeparatorItem21: TTBXSeparatorItem
end
object TBXItem48: TTBXItem object TBXItem48: TTBXItem
Action = actVerPedidosProveedor Action = actRechazar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSeparatorItem20: TTBXSeparatorItem object TBXSeparatorItem20: TTBXSeparatorItem
end end
object TBXItem43: TTBXItem object TBXItem43: TTBXItem
Action = actGenerarAlbaranCli Action = actGenerarReciboCli
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSeparatorItem19: TTBXSeparatorItem
end
object TBXItem40: TTBXItem object TBXItem40: TTBXItem
Action = actGenerarFactura Action = actGenerarFactura
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSeparatorItem19: TTBXSeparatorItem
end
object TBXItem46: TTBXItem object TBXItem46: TTBXItem
Action = actInformes Action = actInformes
end end
@ -285,7 +287,9 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
object actListadoBeneficios: TAction object actListadoBeneficios: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Listar beneficios' Caption = 'Listar beneficios'
Enabled = False
ImageIndex = 26 ImageIndex = 26
Visible = False
OnExecute = actListadoBeneficiosExecute OnExecute = actListadoBeneficiosExecute
end end
object actGenerarPedidoProv: TAction object actGenerarPedidoProv: TAction
@ -309,6 +313,27 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Visible = False Visible = False
OnExecute = actVerFacturasProveedorExecute OnExecute = actVerFacturasProveedorExecute
end end
object actAceptar: TAction
Category = 'Acciones'
Caption = 'Aceptar'
ImageIndex = 27
OnExecute = actAceptarExecute
OnUpdate = actAceptarUpdate
end
object actRechazar: TAction
Category = 'Acciones'
Caption = 'Rechazar'
ImageIndex = 28
OnExecute = actRechazarExecute
OnUpdate = actRechazarUpdate
end
object actGenerarReciboCli: TAction
Category = 'Acciones'
Caption = 'Generar recibo'
ImageIndex = 30
OnExecute = actGenerarReciboCliExecute
OnUpdate = actGenerarReciboCliUpdate
end
end end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <
@ -1061,6 +1086,106 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
AE426082} AE426082}
Name = 'PngImage29' Name = 'PngImage29'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F330000012D4944415478DA63FCFFFF3F0325
80916203966D3945B60991DEA68C6003B42CC41852B26F6355F4E7E77F86DFDF
FE31FCFEFC97E1FBFBDF60F68E73460C89D19D0CE7764C4318000230434E2E77
C63048416B135C3308A018D0B7F8235C214CB30CFF5E880B3E3F6278F12F11CC
16175BC3F0FFF76F06865F7F18E4EC4E103600A41904600688092E076B66001A
22E77C16BB01BFBEFC6338BFD915C30BC89A19FFFC619075BF881A0620FF8334
FFFAF297E1D75760A07DF9C3B032A610670C641FF64018D03D793E8682A9B63B
184C53EA197E89A933309DE86638BFEF3CC3DC7DCF19A6B478C1D973F67E6764
C465C3B116C5D003AFD556DDBD7C10AB7CB293649865F5BDD5F80CF84FB10B80
D42A9042AABA00A4D1AAE6FE6A901A503E22D90573F7FD80EB011B40696E0400
A0BEE1E16734A0290000000049454E44AE426082}
Name = 'PngImage30'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

111
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -54,6 +54,10 @@ type
TBXSeparatorItem20: TTBXSeparatorItem; TBXSeparatorItem20: TTBXSeparatorItem;
actVerFacturasProveedor: TAction; actVerFacturasProveedor: TAction;
TBXItem49: TTBXItem; TBXItem49: TTBXItem;
actAceptar: TAction;
actRechazar: TAction;
actGenerarReciboCli: TAction;
TBXSeparatorItem21: TTBXSeparatorItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
@ -81,6 +85,13 @@ type
procedure actGenerarPedidoProvUpdate(Sender: TObject); procedure actGenerarPedidoProvUpdate(Sender: TObject);
procedure actVerPedidosProveedorExecute(Sender: TObject); procedure actVerPedidosProveedorExecute(Sender: TObject);
procedure actVerFacturasProveedorExecute(Sender: TObject); procedure actVerFacturasProveedorExecute(Sender: TObject);
procedure actRechazarExecute(Sender: TObject);
procedure actRechazarUpdate(Sender: TObject);
procedure actGenerarReciboCliExecute(Sender: TObject);
procedure actGenerarReciboCliUpdate(Sender: TObject);
private
procedure cambiarSituacion (const ASituacion: String);
protected protected
FContratos: IBizContratoCliente; FContratos: IBizContratoCliente;
@ -117,8 +128,9 @@ implementation
uses uses
uDataModuleContratosCliente, uDataModuleUsuarios, uFactuGES_App, uDataModuleContratosCliente, uDataModuleUsuarios, uFactuGES_App,
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs, uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils, uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils, uGenerarRecibosCliUtils,
uGenerarAlbaranesCliUtils, uGestorInformesController, uGenerarPedidosProvUtils; uGenerarAlbaranesCliUtils, uGestorInformesController, uGenerarPedidosProvUtils,
uEditorFechaDecisionContrato;
{$R *.dfm} {$R *.dfm}
@ -127,24 +139,17 @@ uses
*************************** TfEditorContratosCliente *************************** *************************** TfEditorContratosCliente ***************************
} }
procedure TfEditorContratosCliente.actAceptarExecute(Sender: TObject); procedure TfEditorContratosCliente.actAceptarExecute(Sender: TObject);
{var var
AContratos: IBizContratoCliente; AContratos: IBizContratoCliente;
AllItems: Boolean;} AllItems: Boolean;
AFecha: TDate;
begin begin
{ AContratos := Nil;
AContratos := Nil;
AllItems := False; AllItems := False;
//Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada //Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
AFecha := Null; if ElegirFechaDecisionContrato(AFecha) then
with TfEditorFechaDecision.Create(nil) do
try
if ShowModal = mrOk then
AFecha := edtFechaDecision.Date;
finally
Free;
end;
if not VarIsNull(AFecha) then
begin begin
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -161,12 +166,11 @@ begin
ViewGrid._Grid.BeginUpdate; ViewGrid._Grid.BeginUpdate;
if Assigned(AContratos) then if Assigned(AContratos) then
begin begin
FController.CambiarSituacion(AContratos, SITUACION_CONTRATO_TERMINADO, AFecha, AllItems); FController.CambiarSituacion(AContratos, SITUACION_CONTRATO_ACEPTADO, AFecha, AllItems);
actRefrescar.Execute; actRefrescar.Execute;
end; end;
ViewGrid._Grid.EndUpdate; ViewGrid._Grid.EndUpdate;
end; end;
}
end; end;
procedure TfEditorContratosCliente.actAceptarUpdate(Sender: TObject); procedure TfEditorContratosCliente.actAceptarUpdate(Sender: TObject);
@ -174,7 +178,7 @@ begin
inherited; inherited;
(Sender as TAction).Enabled := HayDatos (Sender as TAction).Enabled := HayDatos
and ViewGrid.esSeleccionCeldaDatos and ViewGrid.esSeleccionCeldaDatos
and (FContratos.SITUACION <> SITUACION_CONTRATO_PENDIENTE); and (FContratos.SITUACION = SITUACION_CONTRATO_PENDIENTE);
end; end;
procedure TfEditorContratosCliente.actAnularExecute(Sender: TObject); procedure TfEditorContratosCliente.actAnularExecute(Sender: TObject);
@ -298,11 +302,10 @@ end;
procedure TfEditorContratosCliente.actGenerarFacturaUpdate(Sender: TObject); procedure TfEditorContratosCliente.actGenerarFacturaUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := HayDatos (Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1) and not (ViewGrid.NumSeleccionados > 1)
and ViewGrid.esSeleccionCeldaDatos; and ViewGrid.esSeleccionCeldaDatos
and (FContratos.SITUACION = SITUACION_CONTRATO_ACEPTADO);
end; end;
procedure TfEditorContratosCliente.actGenerarPedidoProvExecute(Sender: TObject); procedure TfEditorContratosCliente.actGenerarPedidoProvExecute(Sender: TObject);
@ -361,6 +364,36 @@ begin
FController.VerListadoBeneficios; FController.VerListadoBeneficios;
end; end;
procedure TfEditorContratosCliente.actRechazarExecute(Sender: TObject);
begin
cambiarSituacion(SITUACION_CONTRATO_RECHAZADO);
end;
procedure TfEditorContratosCliente.actRechazarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
and ViewGrid.esSeleccionCeldaDatos
and (FContratos.SITUACION = SITUACION_CONTRATO_PENDIENTE);
end;
procedure TfEditorContratosCliente.actGenerarReciboCliExecute(Sender: TObject);
begin
inherited;
GenerarReciboCli(Contratos.ID);
actRefrescar.Execute;
end;
procedure TfEditorContratosCliente.actGenerarReciboCliUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and ViewGrid.esSeleccionCeldaDatos
and (FContratos.SITUACION = SITUACION_CONTRATO_ACEPTADO)
and (FContratos.FACTURA_ASOCIADA = '');
end;
procedure TfEditorContratosCliente.actVerFacturasProveedorExecute( procedure TfEditorContratosCliente.actVerFacturasProveedorExecute(
Sender: TObject); Sender: TObject);
begin begin
@ -423,6 +456,40 @@ begin
FController.Ver(Contratos); FController.Ver(Contratos);
end; end;
procedure TfEditorContratosCliente.cambiarSituacion(const ASituacion: String);
var
AContratos: IBizContratoCliente;
AllItems: Boolean;
AFecha: TDate;
begin
AContratos := Nil;
AllItems := False;
//Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
if ElegirFechaDecisionContrato(AFecha) then
begin
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contratos as ISeleccionable).SelectedRecords);
AContratos := (Controller as IContratosClienteController).ExtraerSeleccionados(Contratos) as IBizContratoCliente;
end
else begin
AContratos := Contratos;
end;
ViewGrid._Grid.BeginUpdate;
if Assigned(AContratos) then
begin
FController.CambiarSituacion(AContratos, ASituacion, AFecha, AllItems);
actRefrescar.Execute;
end;
ViewGrid._Grid.EndUpdate;
end;
end;
constructor TfEditorContratosCliente.Create(AOwner: TComponent); constructor TfEditorContratosCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;
@ -594,7 +661,7 @@ var
FTitulo : String; FTitulo : String;
begin begin
if (ATitulo = '') then if (ATitulo = '') then
FTitulo := 'Lista de contratos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE FTitulo := 'Lista de presupuestos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE
else else
FTitulo := ATitulo; FTitulo := ATitulo;

87
Source/Modulos/Contratos de cliente/Views/uEditorFechaDecisionContrato.dfm Normal file
View File

@ -0,0 +1,87 @@
inherited fEditorFechaDecisionContrato: TfEditorFechaDecisionContrato
ActiveControl = edtFechaDecision
Caption = 'Establecer la fecha de decisi'#243'n del presupuesto:'
ClientHeight = 227
ClientWidth = 411
ExplicitWidth = 417
ExplicitHeight = 259
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 411
ExplicitWidth = 411
end
inherited Bevel3: TBevel
Top = 183
Width = 411
ExplicitTop = 183
ExplicitWidth = 411
end
inherited pnlBotones: TPanel
Top = 185
Width = 411
ExplicitTop = 185
ExplicitWidth = 411
inherited btnAceptar: TButton
Left = 248
Top = 9
ExplicitLeft = 248
ExplicitTop = 9
end
inherited btnCancelar: TButton
Left = 327
Top = 9
ExplicitLeft = 327
ExplicitTop = 9
end
end
inherited pnlHeader: TPanel
Width = 411
ExplicitWidth = 411
inherited lblTitle: TLabel
Width = 361
Caption = 'Establecer la fecha de decisi'#243'n del presupuesto:'
ExplicitWidth = 269
end
inherited lblComments: TLabel
Width = 336
Height = 27
Caption =
'Indique el d'#237'a en el cual el cliente acept'#243' o rechaz'#243' el presupu' +
'esto.'
ExplicitWidth = 321
end
end
inherited pnlCuerpo: TPanel
Width = 411
Height = 117
ExplicitWidth = 411
ExplicitHeight = 117
object Label1: TLabel
Left = 97
Top = 48
Width = 33
Height = 13
Caption = 'Fecha:'
end
object edtFechaDecision: TDateTimePicker
Left = 137
Top = 44
Width = 186
Height = 21
Date = 40115.680976192130000000
Time = 40115.680976192130000000
TabOrder = 0
end
end
inherited ActionListDialog: TActionList
Left = 296
Top = 56
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

74
Source/Modulos/Contratos de cliente/Views/uEditorFechaDecisionContrato.pas Normal file
View File

@ -0,0 +1,74 @@
unit uEditorFechaDecisionContrato;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, ComCtrls;
type
TfEditorFechaDecisionContrato = class(TfDialogBase)
edtFechaDecision: TDateTimePicker;
Label1: TLabel;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
function GetDate: TDate;
procedure SetDate(const Value: TDate);
public
property Fecha : TDate read GetDate write SetDate;
end;
function ElegirFechaDecisionContrato(var AFecha : TDate): Boolean;
implementation
{$R *.dfm}
function ElegirFechaDecisionContrato(var AFecha : TDate): Boolean;
var
AEditor : TfEditorFechaDecisionContrato;
begin
AEditor := TfEditorFechaDecisionContrato.Create(NIL);
try
AEditor.Fecha := AFecha;
Result := (AEditor.ShowModal = mrOk);
if Result then
AFecha := AEditor.Fecha;
finally
AEditor.Release;
end;
end;
procedure TfEditorFechaDecisionContrato.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOK;
end;
procedure TfEditorFechaDecisionContrato.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
procedure TfEditorFechaDecisionContrato.FormShow(Sender: TObject);
begin
inherited;
edtFechaDecision.Date := Now;
end;
function TfEditorFechaDecisionContrato.GetDate: TDate;
begin
Result := edtFechaDecision.Date;
end;
procedure TfEditorFechaDecisionContrato.SetDate(const Value: TDate);
begin
edtFechaDecision.Date := Value;
end;
end.

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

@ -15,8 +15,6 @@ inherited frViewContratoCliente: TfrViewContratoCliente
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 810
ExplicitHeight = 449
DesignSize = ( DesignSize = (
817 817
491) 491)
@ -61,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 12
Height = 139 Height = 139
Width = 404 Width = 404
end end
@ -92,7 +90,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 104 Left = 104
Top = 136 Top = 163
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -117,21 +115,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 6
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 267 Left = 267
Top = 136 Top = 163
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 6 TabOrder = 7
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
Left = 104 Left = 104
Top = 109 Top = 136
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.Items = < Properties.Items = <
@ -156,12 +154,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 260 Width = 260
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 220 Top = 247
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -177,35 +175,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 363
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 9
Height = 100 Height = 100
Width = 396 Width = 396
end end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 376
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Height = 100
Width = 396
end
object cbVendedor: TcxDBLookupComboBox object cbVendedor: TcxDBLookupComboBox
Left = 104 Left = 104
Top = 163 Top = 190
DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -230,7 +228,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Width = 27 Width = 27
end end
object cbTipoContrato: TcxDBComboBox object cbTipoContrato: TcxDBComboBox
@ -286,7 +284,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Top = 28 Top = 28
Width = 366 Width = 366
Height = 270 Height = 270
TabOrder = 10 TabOrder = 11
ReadOnly = False ReadOnly = False
ExplicitLeft = 429 ExplicitLeft = 429
ExplicitTop = 28 ExplicitTop = 28
@ -295,6 +293,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 366 Width = 366
Height = 270 Height = 270
ExplicitWidth = 366
ExplicitHeight = 270
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 707 ExplicitWidth = 707
Width = 707 Width = 707
@ -323,12 +323,37 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Left = 164 Left = 164
ExplicitLeft = 164 ExplicitLeft = 164
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited dxLayoutControl1Group_Root: TdxLayoutGroup
ExplicitWidth = 283 inherited dxLayoutControl1Item10: TdxLayoutItem
Width = 283 Enabled = False
Visible = False
end
end end
end end
end end
object edtFechaDecision: TcxDBDateEdit
Left = 104
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION'
DataBinding.DataSource = DADataSource
Properties.DateButtons = [btnToday]
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 115
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -376,6 +401,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Fecha decisi'#243'n:'
Control = edtFechaDecision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item10: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient

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

@ -67,6 +67,8 @@ type
dxLayoutControl1Item12: TdxLayoutItem; dxLayoutControl1Item12: TdxLayoutItem;
edtlREF_CLIENTE: TcxDBTextEdit; edtlREF_CLIENTE: TcxDBTextEdit;
frViewClienteContrato1: TfrViewClienteContrato; frViewClienteContrato1: TfrViewClienteContrato;
dxLayoutControl1Item13: TdxLayoutItem;
edtFechaDecision: TcxDBDateEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);

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

@ -22,7 +22,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 contratos' Format = '0 presupuestos'
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA Column = cxGridViewREFERENCIA
end end
@ -67,9 +67,15 @@ inherited frViewContratosCliente: TfrViewContratosCliente
SortOrder = soDescending SortOrder = soDescending
Width = 58 Width = 58
end end
object cxGridViewColumn1: TcxGridDBColumn object cxGridViewFECHA_CONTRATO: TcxGridDBColumn
Caption = 'Ref. contenido:' Caption = 'Fecha'
DataBinding.FieldName = 'REFERENCIA_CLIENTE' DataBinding.FieldName = 'FECHA_CONTRATO'
BestFitMaxWidth = 25
Width = 105
end
object cxGridViewFECHA_DECISION: TcxGridDBColumn
Caption = 'Fecha decisi'#243'n'
DataBinding.FieldName = 'FECHA_DECISION'
end end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO' DataBinding.FieldName = 'TIPO_CONTRATO'
@ -82,11 +88,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 80 Width = 80
end end
object cxGridViewFECHA_CONTRATO: TcxGridDBColumn object cxGridViewColumn1: TcxGridDBColumn
Caption = 'Fecha contrato' Caption = 'Ref. contenido:'
DataBinding.FieldName = 'FECHA_CONTRATO' DataBinding.FieldName = 'REFERENCIA_CLIENTE'
BestFitMaxWidth = 25 Visible = False
Width = 105 VisibleForCustomization = False
end end
object cxGridViewNIF_CIF: TcxGridDBColumn object cxGridViewNIF_CIF: TcxGridDBColumn
Caption = 'NIF/CIF' Caption = 'NIF/CIF'
@ -134,6 +140,12 @@ inherited frViewContratosCliente: TfrViewContratosCliente
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres' Caption = 'Otros nombres'
DataBinding.FieldName = 'LISTA_NOMBRES' DataBinding.FieldName = 'LISTA_NOMBRES'
Visible = False
VisibleForCustomization = False
end
object cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn
Caption = 'Factura/s asociada/s'
DataBinding.FieldName = 'FACTURA_ASOCIADA'
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
@ -142,8 +154,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
object cxGridLevelPendientes: TcxGridLevel object cxGridLevelPendientes: TcxGridLevel
Caption = 'Pendientes' Caption = 'Pendientes'
end end
object cxGridLevelTerminados: TcxGridLevel object cxGridLevelAceptados: TcxGridLevel
Caption = 'Terminados' Caption = 'Aceptados'
end
object cxGridLevelRechazados: TcxGridLevel
Caption = 'Rechazados'
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -155,15 +170,27 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903 Width = 903
ExplicitWidth = 903 ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 806
Width = 806 Width = 806
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 504 ExplicitWidth = 504
Width = 504 Width = 504

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

@ -30,7 +30,7 @@ type
cxGridViewFECHA_CONTRATO: TcxGridDBColumn; cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridLevelPendientes: TcxGridLevel; cxGridLevelPendientes: TcxGridLevel;
cxGridLevelTerminados: TcxGridLevel; cxGridLevelAceptados: TcxGridLevel;
cxStylePENDIENTES: TcxStyle; cxStylePENDIENTES: TcxStyle;
cxStyleACEPTADO: TcxStyle; cxStyleACEPTADO: TcxStyle;
actCliente: TAction; actCliente: TAction;
@ -47,6 +47,9 @@ type
cxGridViewVENDEDOR: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewColumn1: TcxGridDBColumn; cxGridViewColumn1: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn; cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
cxGridLevelRechazados: TcxGridLevel;
cxGridViewFECHA_DECISION: TcxGridDBColumn;
cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -139,7 +142,8 @@ begin
case cxGrid.ActiveLevel.Index of case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE); 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO); 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_ACEPTADO, SITUACION_CONTRATO_ACEPTADO);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_RECHAZADO, SITUACION_CONTRATO_RECHAZADO);
end; end;
end; end;
@ -225,7 +229,9 @@ begin
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if ASituacion = SITUACION_CONTRATO_PENDIENTE then if ASituacion = SITUACION_CONTRATO_PENDIENTE then
AStyle.TextColor := cxStylePENDIENTES.TextColor AStyle.TextColor := cxStylePENDIENTES.TextColor
else if ASituacion = SITUACION_CONTRATO_TERMINADO then else if ASituacion = SITUACION_CONTRATO_ACEPTADO then
AStyle.TextColor := cxStyleACEPTADO.TextColor
else if ASituacion = SITUACION_CONTRATO_RECHAZADO then
AStyle.TextColor := cxStyleRECHAZADO.TextColor AStyle.TextColor := cxStyleRECHAZADO.TextColor
end; end;
end; end;

3
Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
View File

@ -126,9 +126,6 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 40415.784062094910000000 ReportDocument.CreationDate = 40415.784062094910000000

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

@ -86,7 +86,8 @@ begin
case cxGrid.ActiveLevel.Index of case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE); 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO); 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_ACEPTADO, SITUACION_CONTRATO_ACEPTADO);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_RECHAZADO, SITUACION_CONTRATO_RECHAZADO);
end; end;
end; end;

93
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
View File

@ -1,8 +1,8 @@
inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 975 Width = 855
Height = 494 Height = 510
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 975 Width = 855
Height = 24 Height = 24
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
@ -82,8 +82,8 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 975 Width = 855
Height = 444 Height = 460
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID_ARTICULO: TcxGridDBColumn inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 57 Width = 57
@ -93,49 +93,46 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
inherited cxGridViewVISIBLE2: TcxGridDBColumn [5] object cxGridViewPROPIEDAD: TcxGridDBColumn [5]
Visible = True
BestFitMaxWidth = 20
end
inherited cxGridViewVISIBLE: TcxGridDBColumn [6]
Caption = #191'Valorado?'
Visible = True
BestFitMaxWidth = 20
end
object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
Caption = 'Propiedad' Caption = 'Propiedad'
DataBinding.FieldName = 'PROPIEDAD' DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties' PropertiesClassName = 'TcxRichEditProperties'
Visible = False
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
VisibleForCustomization = False
Width = 138 Width = 138
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [8] inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
DataBinding.FieldName = '' DataBinding.FieldName = ''
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10] inherited cxGridViewDESCRIPCION: TcxGridDBColumn
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 186 Width = 186
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [11] inherited cxGridViewCANTIDAD: TcxGridDBColumn
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12] inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
VisibleForCustomization = False VisibleForCustomization = False
Width = 26 Width = 26
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [13] inherited cxGridViewDESCUENTO: TcxGridDBColumn
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14] inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15] inherited cxGridViewVISIBLE: TcxGridDBColumn [13]
Visible = True
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14]
end
inherited cxGridViewVISIBLE2: TcxGridDBColumn [15]
Visible = True
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16] inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
VisibleForCustomization = False VisibleForCustomization = False
@ -145,47 +142,55 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
Width = 975 Width = 855
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 663 ExplicitWidth = 665
object TBXSubmenuItem1: TTBXSubmenuItem [0] object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo' Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
DropdownCombo = True DropdownCombo = True
ImageIndex = 12 ImageIndex = 12
object TBXItem14: TTBXItem object TBXItem16: TTBXItem
Action = actCapituloArmarioF Action = actCapituloCocina
end
object TBXItem17: TTBXItem
Action = actCapituloArmarioI
end
object TBXSeparatorItem10: TTBXSeparatorItem
end end
object TBXItem15: TTBXItem object TBXItem15: TTBXItem
Action = actCapituloBano Action = actCapituloBano
end end
object TBXSeparatorItem8: TTBXSeparatorItem object TBXSeparatorItem10: TTBXSeparatorItem
end
object TBXItem16: TTBXItem
Action = actCapituloCocina
end
object TBXSeparatorItem7: TTBXSeparatorItem
end end
object TBXItem19: TTBXItem object TBXItem19: TTBXItem
Action = actCapituloElectrodomesticos Action = actCapituloElectrodomesticos
Caption = 'Cap'#237'tulo de electrodom'#233'sticos' Caption = 'Cap'#237'tulo de electrodom'#233'sticos'
end end
object TBXItem22: TTBXItem
Action = actCapituloObra
end
object TBXItem20: TTBXItem object TBXItem20: TTBXItem
Action = actCapituloVarios Action = actCapituloVarios
end end
object TBXSeparatorItem11: TTBXSeparatorItem
end
object TBXItem21: TTBXItem object TBXItem21: TTBXItem
Action = actCapituloImportes Action = actCapituloImportes
end end
object TBXSeparatorItem8: TTBXSeparatorItem
Visible = False
end
object TBXItem14: TTBXItem
Action = actCapituloArmarioF
Enabled = False
Visible = False
end
object TBXItem17: TTBXItem
Action = actCapituloArmarioI
Enabled = False
Visible = False
end
object TBXSeparatorItem7: TTBXSeparatorItem
end
object TBXItem22: TTBXItem
Action = actCapituloObra
Enabled = False
Visible = False
end
object TBXSeparatorItem11: TTBXSeparatorItem
Visible = False
end
end end
object TBXSeparatorItem6: TTBXSeparatorItem [1] object TBXSeparatorItem6: TTBXSeparatorItem [1]
end end

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

Binary file not shown.

18
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.dproj
View File

@ -49,15 +49,15 @@
<DelphiCompile Include="FacturasCliente_controller.dpk"> <DelphiCompile Include="FacturasCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\AlbaranesCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" /> <DCCReference Include="..\..\..\Servidor\AlbaranesCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" /> <DCCReference Include="..\..\..\Servidor\FacturasCliente_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" /> <DCCReference Include="..\..\..\Servidor\FacturasCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\RecibosCliente_controller.dcp" />
<DCCReference Include="uArticulosFacturaClienteController.pas" /> <DCCReference Include="uArticulosFacturaClienteController.pas" />
<DCCReference Include="uDetallesFacturaClienteController.pas" /> <DCCReference Include="uDetallesFacturaClienteController.pas" />
<DCCReference Include="uFacturasClienteController.pas" /> <DCCReference Include="uFacturasClienteController.pas" />

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

@ -4,7 +4,7 @@ interface
uses uses
Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente, Windows, Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente, uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
uBizFacturasCliente, uBizDireccionesContacto; uBizFacturasCliente, uBizDireccionesContacto;
@ -135,7 +135,8 @@ uses
uBizDetallesAlbaranCliente, uFacturasClienteReportController, DateUtils, Forms, uBizDetallesAlbaranCliente, uFacturasClienteReportController, DateUtils, Forms,
Dialogs, uIntegerListUtils, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente, Dialogs, uIntegerListUtils, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
uBizEjercicios, uRecibosClienteController, uBizRecibosCliente, uBizEjercicios, uRecibosClienteController, uBizRecibosCliente,
uSistemaFunc, uEMailUtils, uDialogElegirEMail; uSistemaFunc, uEMailUtils, uDialogElegirEMail, uDialogUtils;
//, uDialogUtils, Windows;
procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente; procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente;
@ -1362,15 +1363,21 @@ var
AFormaPago: IBizFormaPago; AFormaPago: IBizFormaPago;
ARecibosClienteController: IRecibosClienteController; ARecibosClienteController: IRecibosClienteController;
ARecibos: IBizRecibosCliente; ARecibos: IBizRecibosCliente;
ARecibosACuenta: IBizRecibosCliente;
AFechaVencimiento: TDateTime; AFechaVencimiento: TDateTime;
i: Integer; i: Integer;
ADiaVencimiento: Integer; ADiaVencimiento: Integer;
ADiasMas: Integer; ADiasMas: Integer;
BSemaforo: Boolean; BSemaforo: Boolean;
AImporteTotal: Currency;
aa: String;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
Exit; Exit;
aa:= '';
i := 1;
AImporteTotal := AFactura.IMPORTE_TOTAL;
AFormasPagoController := TFormasPagoController.Create; AFormasPagoController := TFormasPagoController.Create;
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO); AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
@ -1386,12 +1393,44 @@ begin
ARecibos := ARecibosClienteController.BuscarRecibosFactura(AFactura.ID); ARecibos := ARecibosClienteController.BuscarRecibosFactura(AFactura.ID);
ARecibosClienteController.EliminarTodo(ARecibos); ARecibosClienteController.EliminarTodo(ARecibos);
//Miramos si existen recibos a cuenta para ese contrato, si es así los tendremos en cuenta para las facturas
ARecibosACuenta := ARecibosClienteController.BuscarRecibosContrato(AFactura.ID_CONTRATO);
ARecibosACuenta.DataTable.Active := True;
if ARecibosACuenta.DataTable.RecordCount > 0 then
begin
if (ShowConfirmMessage('Generar factura a cliente', 'Hay un/os recibo/s a cuenta creados para el presupuesto asociado a la factura, desea incluirlo/s') = IDYES) then
begin
ARecibosACuenta.DataTable.First;
while not ARecibosACuenta.DataTable.EOF do
begin
AImporteTotal := AImporteTotal - ARecibosAcuenta.IMPORTE_TOTAL;
ARecibosACuenta.DataTable.Edit;
ARecibosAcuenta.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibosAcuenta.ID_FACTURA := AFactura.ID;
ARecibosAcuenta.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibosAcuenta.ID_CLIENTE := AFactura.ID_CLIENTE;
ARecibosAcuenta.ID_TIENDA := AFactura.ID_TIENDA;
ARecibosAcuenta.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
ARecibosAcuenta.CALLE := AFactura.CALLE;
ARecibosAcuenta.NIF_CIF := AFactura.NIF_CIF;
ARecibosAcuenta.POBLACION := AFactura.POBLACION;
ARecibosAcuenta.PROVINCIA := AFactura.PROVINCIA;
ARecibosAcuenta.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
ARecibosACuenta.DataTable.Post;
Inc(i);
ARecibosACuenta.DataTable.Next;
end;
ARecibosACuenta.DataTable.ApplyUpdates;
end;
end;
//Se cambia la lógica a peticion de acana, en el caso de meter una fecha de vencimiento, //Se cambia la lógica a peticion de acana, en el caso de meter una fecha de vencimiento,
//los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento //los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento
//de la factura. (Se permitirá para acana poder dar de alta facturas sin recibos asociados) //de la factura. (Se permitirá para acana poder dar de alta facturas sin recibos asociados)
With AFormaPago.Plazos.DataTable do With AFormaPago.Plazos.DataTable do
begin begin
i := 1;
First; First;
repeat repeat
//SOLO PARA ACANA (Leer comentario anterior //SOLO PARA ACANA (Leer comentario anterior
@ -1416,7 +1455,7 @@ begin
if AFormaPago.Plazos.RecordCount < 1 then if AFormaPago.Plazos.RecordCount < 1 then
begin begin
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO; ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL; ARecibos.IMPORTE := AImporteTotal;
end end
else else
begin begin
@ -1456,7 +1495,7 @@ begin
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas); AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibos.IMPORTE := AImporteTotal * (AFormaPago.Plazos.PORCENTAJE / 100);
end; end;
ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + CifraToLetras(ARecibos.IMPORTE); ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + CifraToLetras(ARecibos.IMPORTE);
@ -1473,6 +1512,7 @@ begin
AFormaPago := Nil; AFormaPago := Nil;
ARecibosClienteController := Nil; ARecibosClienteController := Nil;
ARecibos := Nil; ARecibos := Nil;
ARecibosACuenta := Nil;
end; end;
function TFacturasClienteController.GetClienteController: IClientesController; function TFacturasClienteController.GetClienteController: IClientesController;
@ -1486,4 +1526,3 @@ begin
end; end;
end. end.

74
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -22,7 +22,12 @@
<Projects Include="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" /> <Projects Include="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" />
<Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" /> <Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" />
<Projects Include="..\Recibos de cliente\Model\RecibosCliente_model.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasCliente_controller.dproj" /> <Projects Include="Controller\FacturasCliente_controller.dproj" />
<Projects Include="Data\FacturasCliente_data.dproj" /> <Projects Include="Data\FacturasCliente_data.dproj" />
<Projects Include="Model\FacturasCliente_model.dproj" /> <Projects Include="Model\FacturasCliente_model.dproj" />
@ -170,15 +175,6 @@
<Target Name="FacturasCliente_model:Make"> <Target Name="FacturasCliente_model:Make">
<MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="Make" /> <MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_data">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_data:Clean">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_data:Make">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller"> <Target Name="FacturasCliente_controller">
<MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="" /> <MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="" />
</Target> </Target>
@ -188,6 +184,15 @@
<Target Name="FacturasCliente_controller:Make"> <Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_data">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_data:Clean">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_data:Make">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view"> <Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" /> <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target> </Target>
@ -251,14 +256,59 @@
<Target Name="PresupuestosCliente_view:Make"> <Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosCliente_controller">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_controller:Clean">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_controller:Make">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_model">
<MSBuild Projects="..\Recibos de cliente\Model\RecibosCliente_model.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_model:Clean">
<MSBuild Projects="..\Recibos de cliente\Model\RecibosCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_model:Make">
<MSBuild Projects="..\Recibos de cliente\Model\RecibosCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_data">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_data:Clean">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_data:Make">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="ConCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="ConCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="ConCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_controller">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_controller:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_controller:Make">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;PedidosProveedor_view;PresupuestosCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_controller;FacturasCliente_data;Contabilidad_view;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_controller;RecibosCliente_model;RecibosCliente_data;ConCli_FacCli_relation;PresupuestosCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_controller:Clean;FacturasCliente_data:Clean;Contabilidad_view:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_controller:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;ConCli_FacCli_relation:Clean;PresupuestosCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_controller:Make;FacturasCliente_data:Make;Contabilidad_view:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_controller:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;ConCli_FacCli_relation:Make;PresupuestosCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -193,9 +193,24 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Enabled = False
ExplicitWidth = 158 ExplicitWidth = 158
Width = 158 Width = 158
end end
inherited edtSituacion: TcxDBComboBox
ExplicitWidth = 294
Width = 294
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup
inherited dxLayoutControl1Group9: TdxLayoutGroup
Enabled = False
Visible = False
end
end
end
end
end end
end end
end end
@ -324,7 +339,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
object pagContabilidad: TTabSheet object pagContabilidad: TTabSheet
Caption = 'Contabilidad' Caption = 'Contabilidad'
Enabled = False
ImageIndex = 2 ImageIndex = 2
TabVisible = False
inline frViewListaSubcuentas1: TfrViewListaSubcuentas inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0 Left = 0
Top = 0 Top = 0

13
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -80,7 +80,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Left = 431 Left = 431
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 431
ExplicitWidth = 194 ExplicitWidth = 83
object TBXItem42: TTBXItem object TBXItem42: TTBXItem
Action = actCambiarSituacion Action = actCambiarSituacion
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -187,6 +187,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Visible = True Visible = True
end end
inherited cxGridViewREF_CONTRATO: TcxGridDBColumn
Caption = 'Presupuesto'
end
inherited cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -298,13 +305,17 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
object actEnviarMail: TAction object actEnviarMail: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Enviar por e-mail' Caption = 'Enviar por e-mail'
Enabled = False
ImageIndex = 26 ImageIndex = 26
Visible = False
OnExecute = actEnviarMailExecute OnExecute = actEnviarMailExecute
OnUpdate = actEnviarMailUpdate OnUpdate = actEnviarMailUpdate
end end
object actCambiarSituacion: TAction object actCambiarSituacion: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Cambio de situaci'#243'n' Caption = 'Cambio de situaci'#243'n'
Enabled = False
Visible = False
OnExecute = actCambiarSituacionExecute OnExecute = actCambiarSituacionExecute
end end
end end

7
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -433,6 +433,10 @@ var
begin begin
inherited; inherited;
if FController.Anadir(Facturas) then
FController.Ver(Facturas);
{
Respuesta := JsNuevaFacturaDialog.Execute; Respuesta := JsNuevaFacturaDialog.Execute;
if Respuesta <> IDCANCEL then if Respuesta <> IDCANCEL then
@ -453,7 +457,7 @@ begin
finally finally
FPedidosClienteController := NIL; FPedidosClienteController := NIL;
end;} end;}
end; { end;
200 : begin // Utilizar albaranes 200 : begin // Utilizar albaranes
GenerarFacturaCli; GenerarFacturaCli;
actRefrescar.Execute; actRefrescar.Execute;
@ -464,6 +468,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorFacturasCliente.OnListaAnosChange(Sender: TObject; const Text: string); procedure TfEditorFacturasCliente.OnListaAnosChange(Sender: TObject; const Text: string);

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

@ -194,6 +194,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -290,6 +291,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Top = 84 Top = 84
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -345,6 +347,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Situaci'#243'n:' Caption = 'Situaci'#243'n:'
Enabled = False
Visible = False
Control = edtSituacion Control = edtSituacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -372,6 +376,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object ledtFechaVencimiento: TdxLayoutItem object ledtFechaVencimiento: TdxLayoutItem
Caption = 'Fecha de vencimiento:' Caption = 'Fecha de vencimiento:'
Enabled = False
Visible = False
Control = edtFechaVencimiento Control = edtFechaVencimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

8
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -257,6 +257,14 @@ begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignada (Anadir)'); raise Exception.Create ('Factura no asignada (Anadir)');
AFactura.Insert; AFactura.Insert;
FDetallesController.Add(AFactura.Detalles, TIPO_DETALLE_CONCEPTO);
if not AFactura.Detalles.DataTable.Editing then
AFactura.Detalles.DataTable.Edit;
AFactura.Detalles.CANTIDAD := 1;
AFactura.Detalles.IMPORTE_UNIDAD := 0;
AFactura.Detalles.Post;
Result := True; Result := True;
end; end;

16
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -22,6 +22,7 @@
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" /> <Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" /> <Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" /> <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" /> <Projects Include="Data\FacturasProveedor_data.dproj" />
@ -251,14 +252,23 @@
<Target Name="FacturasCliente_controller:Make"> <Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PresupuestosCliente_controller">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_controller:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_controller:Make">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;ContratosCliente_view;ContratosCliente_controller;FacturasCliente_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;ContratosCliente_view;ContratosCliente_controller;FacturasCliente_controller;PresupuestosCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;ContratosCliente_view:Clean;ContratosCliente_controller:Clean;FacturasCliente_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;ContratosCliente_view:Clean;ContratosCliente_controller:Clean;FacturasCliente_controller:Clean;PresupuestosCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;ContratosCliente_view:Make;ContratosCliente_controller:Make;FacturasCliente_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;ContratosCliente_view:Make;ContratosCliente_controller:Make;FacturasCliente_controller:Make;PresupuestosCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

339
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -2,20 +2,21 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 454 Left = 454
Top = 208 Top = 208
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ClientHeight = 606 ClientHeight = 668
ClientWidth = 746 ClientWidth = 1111
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 754 ExplicitWidth = 1119
ExplicitHeight = 640 ExplicitHeight = 702
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 746 Width = 1111
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ExplicitWidth = 746 ExplicitTop = 49
ExplicitWidth = 1111
inherited Image1: TImage inherited Image1: TImage
Left = 719 Left = 1084
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,8 +40,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 746 Width = 1111
ExplicitWidth = 746 ExplicitWidth = 1111
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -54,7 +55,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 746 ExplicitWidth = 1111
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -69,32 +70,33 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 587 Top = 649
Width = 746 Width = 1111
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 587 ExplicitTop = 649
ExplicitWidth = 746 ExplicitWidth = 1111
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 740 Width = 1105
Height = 312 Height = 374
ActivePage = PagContratos ActivePage = pagContenido
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 740 ExplicitTop = 109
ExplicitHeight = 312 ExplicitWidth = 1105
ExplicitHeight = 374
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 732 ExplicitWidth = 1097
ExplicitHeight = 284 ExplicitHeight = 346
inline frViewFacturaProveedor1: TfrViewFacturaProveedor inline frViewFacturaProveedor1: TfrViewFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 1097
Height = 284 Height = 346
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -104,16 +106,16 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 732 ExplicitWidth = 1097
ExplicitHeight = 284 ExplicitHeight = 346
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 732 Width = 1097
Height = 284 Height = 346
ExplicitWidth = 732 ExplicitWidth = 1097
ExplicitHeight = 284 ExplicitHeight = 346
DesignSize = ( DesignSize = (
732 1097
284) 346)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
@ -127,8 +129,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 53 Width = 53
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 183 Left = 548
ExplicitLeft = 183 ExplicitLeft = 548
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 191 ExplicitWidth = 191
@ -151,9 +153,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 191 Width = 191
end end
inherited frViewProveedorFactura1: TfrViewProveedorFactura inherited frViewProveedorFactura1: TfrViewProveedorFactura
Left = 343 Left = 708
Width = 350 Width = 350
ExplicitLeft = 343 ExplicitLeft = 708
ExplicitWidth = 350 ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350 Width = 350
@ -203,12 +205,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited frViewObservaciones1: TfrViewObservaciones inherited frViewObservaciones1: TfrViewObservaciones
Width = 671 Width = 671
Height = 228
ExplicitWidth = 671 ExplicitWidth = 671
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 228 ExplicitWidth = 1036
ExplicitHeight = 20
Width = 671 Width = 671
end end
end end
@ -218,15 +219,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 1097
Height = 284 Height = 346
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -238,88 +235,126 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 732 ExplicitWidth = 1097
ExplicitHeight = 284 ExplicitHeight = 346
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 732 Width = 1097
ExplicitWidth = 732 Height = 24
ExplicitWidth = 1097
ExplicitHeight = 24
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 0 Left = 368
ExplicitLeft = 0 Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 145 Left = 513
Top = 0
Width = 57 Width = 57
ExplicitLeft = 145 ExplicitLeft = 513
ExplicitTop = 0
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 202 Left = 570
ExplicitLeft = 202 Top = 0
ExplicitLeft = 570
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 219 Left = 587
ExplicitLeft = 219 Top = 0
ExplicitLeft = 587
ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 227 Left = 595
ExplicitLeft = 227 Top = 0
ExplicitLeft = 595
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 261 Left = 629
ExplicitLeft = 261 Top = 0
ExplicitLeft = 629
ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 295 Left = 663
ExplicitLeft = 295 Top = 0
ExplicitLeft = 663
ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 329 Left = 697
ExplicitLeft = 329 Top = 0
ExplicitLeft = 697
ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 337 Left = 705
ExplicitLeft = 337 Top = 0
ExplicitLeft = 705
ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 371 Left = 739
ExplicitLeft = 371 Top = 0
ExplicitLeft = 739
ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 405 Left = 773
ExplicitLeft = 405 Top = 0
ExplicitLeft = 773
ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 732 Top = 50
Height = 212 Width = 1097
ExplicitWidth = 732 Height = 296
ExplicitHeight = 212 ExplicitTop = 50
ExplicitWidth = 1097
ExplicitHeight = 296
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 732 Top = 24
ExplicitWidth = 732 Width = 1097
ExplicitTop = 24
ExplicitWidth = 1097
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
end
end
inherited ActionListContenido: TActionList
inherited actAnadirArticulos: TAction
Enabled = True
Visible = True
end
end end
end end
end end
object PagContratos: TTabSheet object PagContratos: TTabSheet
Caption = 'Contratos' Caption = 'Presupuestos relacionados'
Enabled = False
ImageIndex = 2 ImageIndex = 2
TabVisible = False
inline frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor inline frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 1097
Height = 284 Height = 346
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -329,39 +364,29 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 732 ExplicitWidth = 1097
ExplicitHeight = 284 ExplicitHeight = 346
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 732 Width = 1097
Height = 259 Height = 321
ExplicitWidth = 732 ExplicitWidth = 1097
ExplicitHeight = 259 ExplicitHeight = 321
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 732 Width = 1097
ExplicitWidth = 732 ExplicitWidth = 1097
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
object pagContabilidad: TTabSheet object pagContabilidad: TTabSheet
Caption = 'Contabilidad' Caption = 'Contabilidad'
Enabled = False
ImageIndex = 3 ImageIndex = 3
TabVisible = False
inline frViewListaSubcuentas1: TfrViewListaSubcuentas inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 1097
Height = 69 Height = 69
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -372,10 +397,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 732 ExplicitWidth = 1097
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 732 Width = 1097
ExplicitWidth = 732 ExplicitWidth = 1097
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Left = 92 Left = 92
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -387,12 +412,12 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 407 Width = 407
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 505 Left = 758
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 505 ExplicitLeft = 758
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
@ -407,8 +432,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 424 Top = 486
Width = 746 Width = 1111
Height = 163 Height = 163
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -419,101 +444,101 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 424 ExplicitTop = 486
ExplicitWidth = 746 ExplicitWidth = 1111
ExplicitHeight = 163 ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 746 Width = 1111
ExplicitWidth = 746 ExplicitWidth = 1111
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 398 Left = 630
Top = 30 Top = 30
Height = 122 Height = 122
ExplicitLeft = 398 ExplicitLeft = 630
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 510 Left = 742
Top = 57 Top = 57
Width = 186 Width = 186
ExplicitLeft = 510 ExplicitLeft = 742
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 186 ExplicitWidth = 186
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Top = 57 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 84
ExplicitWidth = 207 ExplicitWidth = 207
Width = 207 Width = 207
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 581 Left = 813
Top = 77 Top = 77
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581 ExplicitLeft = 813
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 143 ExplicitWidth = 143
Width = 143 Width = 143
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 511 Left = 743
Top = 131 Top = 131
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 511 ExplicitLeft = 743
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 213 ExplicitWidth = 213
Width = 213 Width = 213
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Top = 57 Top = 84
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 84
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 510 Left = 742
Top = 77 Top = 77
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 510 ExplicitLeft = 742
ExplicitTop = 77 ExplicitTop = 77
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 510 Left = 742
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 510 ExplicitLeft = 742
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 510 Left = 742
Top = 104 Top = 104
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -521,35 +546,35 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 510 ExplicitLeft = 742
ExplicitTop = 104 ExplicitTop = 104
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 581 Left = 813
Top = 104 Top = 104
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581 ExplicitLeft = 813
ExplicitTop = 104 ExplicitTop = 104
ExplicitWidth = 143 ExplicitWidth = 143
Width = 143 Width = 143
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Top = 30 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 57
ExplicitWidth = 278 ExplicitWidth = 278
Width = 278 Width = 278
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Top = 84 Top = 111
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -558,43 +583,60 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
OnEditing = frViewTotales1ePorteEditing OnEditing = frViewTotales1ePorteEditing
ExplicitTop = 84 ExplicitTop = 111
ExplicitWidth = 278 ExplicitWidth = 278
Width = 278 Width = 278
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 111 Top = 138
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk Style.Color = clInfoBk
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 138
ExplicitWidth = 140 ExplicitWidth = 140
Width = 140 Width = 140
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 250 Left = 482
Top = 111 Top = 138
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 250 ExplicitLeft = 482
ExplicitTop = 111 ExplicitTop = 138
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 138 Top = 165
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 165
ExplicitWidth = 278 ExplicitWidth = 278
Width = 278 Width = 278
end end
inherited eImporteDetalleResumen: TcxDBCurrencyEdit
Top = 30
DataBinding.DataField = 'IMPORTE_UNIDAD'
DataBinding.DataSource = frViewDetallesFacturaProveedor1.DADataSource
Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewTotales1eImporteDetalleResumenPropertiesEditValueChanged
Style.IsFontAssigned = True
ExplicitTop = 30
ExplicitWidth = 342
Width = 342
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1 LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = True
end
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False Visible = False
inherited dxLayoutControl1Group10: TdxLayoutGroup inherited dxLayoutControl1Group10: TdxLayoutGroup
@ -623,8 +665,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited PnlComentario: TPanel [5] inherited PnlComentario: TPanel [5]
Width = 746 Width = 1111
ExplicitWidth = 746 ExplicitTop = 76
ExplicitWidth = 1111
inherited lbComentario: TLabel
Width = 1101
Height = 25
end
end end
inherited EditorActionList: TActionList [9] inherited EditorActionList: TActionList [9]
Left = 8 Left = 8

14
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -43,7 +43,9 @@ type
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean); procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor. var Error: Boolean);
procedure frViewTotales1eImporteDetalleResumenPropertiesEditValueChanged(
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;
@ -165,6 +167,7 @@ begin
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate; frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
Factura.DataTable.Active := True; Factura.DataTable.Active := True;
end; end;
procedure TfEditorFacturaProveedor.frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject); procedure TfEditorFacturaProveedor.frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
@ -195,6 +198,13 @@ begin
Factura.DESCUENTO := DisplayValue; Factura.DESCUENTO := DisplayValue;
end; end;
procedure TfEditorFacturaProveedor.frViewTotales1eImporteDetalleResumenPropertiesEditValueChanged(
Sender: TObject);
begin
inherited;
showmessage('recalcular importes detalle');
end;
procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate( procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
@ -352,6 +362,7 @@ var
AMensaje : String; AMensaje : String;
begin begin
inherited; inherited;
{
if (not Assigned(FFactura)) or (FFactura.ID_PROVEEDOR = ID_NULO) then if (not Assigned(FFactura)) or (FFactura.ID_PROVEEDOR = ID_NULO) then
begin begin
if FFactura.TIPO = CTE_TIPO_FACTURA then if FFactura.TIPO = CTE_TIPO_FACTURA then
@ -361,6 +372,7 @@ begin
ShowWarningMessage(AMensaje); ShowWarningMessage(AMensaje);
AllowChange := False; AllowChange := False;
end; end;
}
end; end;
procedure TfEditorFacturaProveedor.PonerTitulos(const ATitulo: string); procedure TfEditorFacturaProveedor.PonerTitulos(const ATitulo: string);

6
Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm
View File

@ -31,8 +31,6 @@ object fEditorFormaPago: TfEditorFormaPago
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitWidth = 412
ExplicitHeight = 515
object Bevel4: TBevel object Bevel4: TBevel
Left = 10 Left = 10
Top = 329 Top = 329
@ -168,6 +166,7 @@ object fEditorFormaPago: TfEditorFormaPago
Top = 98 Top = 98
DataBinding.DataField = 'ID_SUBCUENTA' DataBinding.DataField = 'ID_SUBCUENTA'
DataBinding.DataSource = dsFormaPago DataBinding.DataSource = dsFormaPago
Enabled = False
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
item item
@ -199,6 +198,7 @@ object fEditorFormaPago: TfEditorFormaPago
Caption = 'Ignorar en contabilidad' Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD' DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
DataBinding.DataSource = dsFormaPago DataBinding.DataSource = dsFormaPago
Enabled = False
Properties.ValueChecked = 1 Properties.ValueChecked = 1
Properties.ValueUnchecked = 0 Properties.ValueUnchecked = 0
TabOrder = 4 TabOrder = 4
@ -234,7 +234,9 @@ object fEditorFormaPago: TfEditorFormaPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object panelVencimiento: TdxLayoutGroup object panelVencimiento: TdxLayoutGroup
Enabled = False
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False

8
Source/Modulos/Presupuestos de cliente/Plugin/uPluginPresupuestosCliente.dfm
View File

@ -134,13 +134,17 @@ object PluginPresupuestosCliente: TPluginPresupuestosCliente
Top = 72 Top = 72
object actPresupuestosCliente: TAction object actPresupuestosCliente: TAction
Category = 'Ventas' Category = 'Ventas'
Caption = 'Presupuestos de cliente' Caption = 'Presupuestos de cliente desactivado'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actPresupuestosClienteExecute OnExecute = actPresupuestosClienteExecute
end end
object actInfPresupuestos: TAction object actInfPresupuestos: TAction
Category = 'Informes' Category = 'Informes'
Caption = 'Informe presupuestos' Caption = 'Informe presupuestos desactivado'
Enabled = False
Visible = False
OnExecute = actPresupuestosClienteExecute OnExecute = actPresupuestosClienteExecute
end end
end end

4
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -1071,8 +1071,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Top = 128 Top = 128
end end
object IBDatabase1: TIBDatabase object IBDatabase1: TIBDatabase
Connected = True DatabaseName = 'C:\Codigo Arribas2\Output\Debug\Database\FACTUGES.FDB'
DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
Params.Strings = ( Params.Strings = (
'user_name=sysdba' 'user_name=sysdba'
'password=masterkey' 'password=masterkey'
@ -1083,7 +1082,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Top = 296 Top = 296
end end
object IBTransaction1: TIBTransaction object IBTransaction1: TIBTransaction
Active = True
Left = 48 Left = 48
Top = 352 Top = 352
end end

41
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -61,6 +61,7 @@ type
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente; function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente; function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
function BuscarRecibosContrato(const ID_CONTRATO: Integer): IBizRecibosCliente;
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente; function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
function BuscarRecibosARemesar(const AListaVisibles, AListaNoVisibles: TStringList): IBizRecibosCliente; function BuscarRecibosARemesar(const AListaVisibles, AListaNoVisibles: TStringList): IBizRecibosCliente;
@ -86,6 +87,7 @@ type
function DarListaAnosRecibos: TStringList; function DarListaAnosRecibos: TStringList;
procedure FiltrarAno(ARecibo: IBizRecibosCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(ARecibo: IBizRecibosCliente; ADynWhereDataTable: WideString; const Ano: String);
end; end;
TRecibosClienteController = class(TControllerBase, IRecibosClienteController) TRecibosClienteController = class(TControllerBase, IRecibosClienteController)
@ -135,6 +137,7 @@ type
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente; function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente; function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
function BuscarRecibosContrato(const ID_CONTRATO: Integer): IBizRecibosCliente;
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente; function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
function BuscarRecibosARemesar(const AListaVisibles, AListaNoVisibles: TStringList): IBizRecibosCliente; function BuscarRecibosARemesar(const AListaVisibles, AListaNoVisibles: TStringList): IBizRecibosCliente;
@ -160,6 +163,8 @@ type
function DarListaAnosRecibos: TStringList; function DarListaAnosRecibos: TStringList;
procedure FiltrarAno(ARecibo: IBizRecibosCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(ARecibo: IBizRecibosCliente; ADynWhereDataTable: WideString; const Ano: String);
end; end;
implementation implementation
@ -437,6 +442,42 @@ begin
end; end;
end; end;
function TRecibosClienteController.BuscarRecibosContrato(const ID_CONTRATO: Integer): IBizRecibosCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// Recibos no asociados a ninguna factura
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_FACTURA), NewNull(), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
// Recibos asociados a un contrato
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_CONTRATO), NewConstant(ID_CONTRATO, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TRecibosClienteController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente; function TRecibosClienteController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;

4
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.dproj
View File

@ -49,8 +49,8 @@
<DelphiCompile Include="RecibosCliente_data.dpk"> <DelphiCompile Include="RecibosCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Pagos\16x16\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Pagos\16x16\RecibosCliente_model.dcp" />
<DCCReference Include="uDataModuleRecibosCliente.pas"> <DCCReference Include="uDataModuleRecibosCliente.pas">
<Form>DataModuleRecibosCliente</Form> <Form>DataModuleRecibosCliente</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

22
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -392,6 +392,19 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Size = 255 Size = 255
DisplayLabel = 'Cuenta contable' DisplayLabel = 'Cuenta contable'
DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE' DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE'
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
end
item
Name = 'ID_CON_FACTURA'
DataType = datInteger
end
item
Name = 'REFERENCIA_CONTRATO'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -579,6 +592,15 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'TIENDA' Name = 'TIENDA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 1
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

201
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{6F080A07-7F79-49DA-8223-2A765568A41D}'; RID_ListaAnosRecibos = '{D5B6BF26-7BBC-47E0-B49F-E6F4D3B44319}';
RID_RecibosCliente = '{FF13E325-433D-4B3F-ACBD-95CB1636F3EE}'; RID_RecibosCliente = '{B32FEACD-28B0-4FF2-8003-F5A89897D1B2}';
RID_PagosCliente = '{1E77A59F-B566-4264-8DB5-E93D18972BB8}'; RID_PagosCliente = '{992BD3A1-1E54-4F16-9744-B8F6390D83C6}';
RID_RecibosCompensadosCli = '{98D8A267-FB74-476C-A8E5-F8CD6C1E4CD5}'; RID_RecibosCompensadosCli = '{745905DF-2406-47A4-953E-36D56DF294E3}';
{ Data table names } { Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos'; nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -65,6 +65,9 @@ const
fld_RecibosClienteTIENDA = 'TIENDA'; fld_RecibosClienteTIENDA = 'TIENDA';
fld_RecibosClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; fld_RecibosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE'; fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE';
fld_RecibosClienteID_CONTRATO = 'ID_CONTRATO';
fld_RecibosClienteID_CON_FACTURA = 'ID_CON_FACTURA';
fld_RecibosClienteREFERENCIA_CONTRATO = 'REFERENCIA_CONTRATO';
{ RecibosCliente field indexes } { RecibosCliente field indexes }
idx_RecibosClienteID = 0; idx_RecibosClienteID = 0;
@ -105,6 +108,9 @@ const
idx_RecibosClienteTIENDA = 35; idx_RecibosClienteTIENDA = 35;
idx_RecibosClienteLISTA_NOMBRES = 36; idx_RecibosClienteLISTA_NOMBRES = 36;
idx_RecibosClienteCUENTA_CONTABLE = 37; idx_RecibosClienteCUENTA_CONTABLE = 37;
idx_RecibosClienteID_CONTRATO = 38;
idx_RecibosClienteID_CON_FACTURA = 39;
idx_RecibosClienteREFERENCIA_CONTRATO = 40;
{ PagosCliente fields } { PagosCliente fields }
fld_PagosClienteID = 'ID'; fld_PagosClienteID = 'ID';
@ -183,6 +189,8 @@ const
fld_RecibosCompensadosCliUSUARIO = 'USUARIO'; fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
fld_RecibosCompensadosCliID_TIENDA = 'ID_TIENDA'; fld_RecibosCompensadosCliID_TIENDA = 'ID_TIENDA';
fld_RecibosCompensadosCliTIENDA = 'TIENDA'; fld_RecibosCompensadosCliTIENDA = 'TIENDA';
fld_RecibosCompensadosCliLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_RecibosCompensadosCliID_CONTRATO = 'ID_CONTRATO';
{ RecibosCompensadosCli field indexes } { RecibosCompensadosCli field indexes }
idx_RecibosCompensadosCliID = 0; idx_RecibosCompensadosCliID = 0;
@ -221,11 +229,13 @@ const
idx_RecibosCompensadosCliUSUARIO = 33; idx_RecibosCompensadosCliUSUARIO = 33;
idx_RecibosCompensadosCliID_TIENDA = 34; idx_RecibosCompensadosCliID_TIENDA = 34;
idx_RecibosCompensadosCliTIENDA = 35; idx_RecibosCompensadosCliTIENDA = 35;
idx_RecibosCompensadosCliLISTA_NOMBRES = 36;
idx_RecibosCompensadosCliID_CONTRATO = 37;
type type
{ IListaAnosRecibos } { IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable) IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{56AA9455-4989-40E3-B732-0FE6B0E52E03}'] ['{D3C1EE97-0A4D-4B95-94FA-8F71079694AF}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -239,7 +249,7 @@ type
end; end;
{ TListaAnosRecibosDataTableRules } { TListaAnosRecibosDataTableRules }
TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos) TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -260,7 +270,7 @@ type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{5072D408-2297-4727-B0A0-EB3FCB2C231C}'] ['{29EF7928-3ACF-4AA1-985F-316885B0F742}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -414,6 +424,18 @@ type
procedure SetCUENTA_CONTABLEValue(const aValue: String); procedure SetCUENTA_CONTABLEValue(const aValue: String);
function GetCUENTA_CONTABLEIsNull: Boolean; function GetCUENTA_CONTABLEIsNull: Boolean;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
function GetID_CONTRATOIsNull: Boolean;
procedure SetID_CONTRATOIsNull(const aValue: Boolean);
function GetID_CON_FACTURAValue: Integer;
procedure SetID_CON_FACTURAValue(const aValue: Integer);
function GetID_CON_FACTURAIsNull: Boolean;
procedure SetID_CON_FACTURAIsNull(const aValue: Boolean);
function GetREFERENCIA_CONTRATOValue: String;
procedure SetREFERENCIA_CONTRATOValue(const aValue: String);
function GetREFERENCIA_CONTRATOIsNull: Boolean;
procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -493,10 +515,16 @@ type
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property ID_CON_FACTURA: Integer read GetID_CON_FACTURAValue write SetID_CON_FACTURAValue;
property ID_CON_FACTURAIsNull: Boolean read GetID_CON_FACTURAIsNull write SetID_CON_FACTURAIsNull;
property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
end; end;
{ TRecibosClienteDataTableRules } { TRecibosClienteDataTableRules }
TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -652,6 +680,18 @@ type
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual; procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual; function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual; procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetID_CON_FACTURAValue: Integer; virtual;
procedure SetID_CON_FACTURAValue(const aValue: Integer); virtual;
function GetID_CON_FACTURAIsNull: Boolean; virtual;
procedure SetID_CON_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CONTRATOValue: String; virtual;
procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -730,6 +770,12 @@ type
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property ID_CON_FACTURA: Integer read GetID_CON_FACTURAValue write SetID_CON_FACTURAValue;
property ID_CON_FACTURAIsNull: Boolean read GetID_CON_FACTURAIsNull write SetID_CON_FACTURAIsNull;
property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -739,7 +785,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{CFAC341F-7138-4FBB-AC89-E63550865FCC}'] ['{08480DE6-29F3-4979-93F8-2C70BE75F582}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -855,7 +901,7 @@ type
end; end;
{ TPagosClienteDataTableRules } { TPagosClienteDataTableRules }
TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -978,7 +1024,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{C1ABC344-B387-4169-A394-4F93FD736B79}'] ['{33CEE61F-AA71-4B69-890D-B4A8730BF65F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1124,6 +1170,14 @@ type
procedure SetTIENDAValue(const aValue: String); procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean; function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean); procedure SetTIENDAIsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
function GetID_CONTRATOIsNull: Boolean;
procedure SetID_CONTRATOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1199,10 +1253,14 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
end; end;
{ TRecibosCompensadosCliDataTableRules } { TRecibosCompensadosCliDataTableRules }
TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1350,6 +1408,14 @@ type
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual; function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1424,6 +1490,10 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2277,6 +2347,69 @@ begin
DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsVariant := Null; DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetID_CONTRATOValue: Integer;
begin
result := DataTable.Fields[idx_RecibosClienteID_CONTRATO].AsInteger;
end;
procedure TRecibosClienteDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosClienteID_CONTRATO].AsInteger := aValue;
end;
function TRecibosClienteDataTableRules.GetID_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosClienteID_CONTRATO].IsNull;
end;
procedure TRecibosClienteDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosClienteID_CONTRATO].AsVariant := Null;
end;
function TRecibosClienteDataTableRules.GetID_CON_FACTURAValue: Integer;
begin
result := DataTable.Fields[idx_RecibosClienteID_CON_FACTURA].AsInteger;
end;
procedure TRecibosClienteDataTableRules.SetID_CON_FACTURAValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosClienteID_CON_FACTURA].AsInteger := aValue;
end;
function TRecibosClienteDataTableRules.GetID_CON_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosClienteID_CON_FACTURA].IsNull;
end;
procedure TRecibosClienteDataTableRules.SetID_CON_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosClienteID_CON_FACTURA].AsVariant := Null;
end;
function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOValue: String;
begin
result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString;
end;
procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString := aValue;
end;
function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].IsNull;
end;
procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsVariant := Null;
end;
{ TPagosClienteDataTableRules } { TPagosClienteDataTableRules }
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable); constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
@ -3435,6 +3568,48 @@ begin
DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsVariant := Null; DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsVariant := Null;
end; end;
function TRecibosCompensadosCliDataTableRules.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliLISTA_NOMBRES].AsString;
end;
procedure TRecibosCompensadosCliDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosCliLISTA_NOMBRES].AsString := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliLISTA_NOMBRES].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliLISTA_NOMBRES].AsVariant := Null;
end;
function TRecibosCompensadosCliDataTableRules.GetID_CONTRATOValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_CONTRATO].AsInteger;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosCompensadosCliID_CONTRATO].AsInteger := aValue;
end;
function TRecibosCompensadosCliDataTableRules.GetID_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosCliID_CONTRATO].IsNull;
end;
procedure TRecibosCompensadosCliDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosCliID_CONTRATO].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_ListaAnosRecibos, TListaAnosRecibosDataTableRules); RegisterDataTableRules(RID_ListaAnosRecibos, TListaAnosRecibosDataTableRules);

231
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}'; RID_ListaAnosRecibosDelta = '{72D48DE9-24CF-46E8-851D-FFB3C34EF8A0}';
RID_RecibosClienteDelta = '{46CE98E3-16F4-43A1-8219-F238C0D52079}'; RID_RecibosClienteDelta = '{7C11BE84-F76A-4894-B7D2-2148A6A5FDB2}';
RID_PagosClienteDelta = '{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}'; RID_PagosClienteDelta = '{7C905E12-6184-4266-A621-3082A0495D15}';
RID_RecibosCompensadosCliDelta = '{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}'; RID_RecibosCompensadosCliDelta = '{0CE1BC42-8D5A-4EA3-9E6F-E0158BD7F9B1}';
type type
{ IListaAnosRecibosDelta } { IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos) IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}'] ['{72D48DE9-24CF-46E8-851D-FFB3C34EF8A0}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{46CE98E3-16F4-43A1-8219-F238C0D52079}'] ['{7C11BE84-F76A-4894-B7D2-2148A6A5FDB2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -91,6 +91,9 @@ type
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String; function GetOldLISTA_NOMBRESValue : String;
function GetOldCUENTA_CONTABLEValue : String; function GetOldCUENTA_CONTABLEValue : String;
function GetOldID_CONTRATOValue : Integer;
function GetOldID_CON_FACTURAValue : Integer;
function GetOldREFERENCIA_CONTRATOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -131,6 +134,9 @@ type
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CON_FACTURA : Integer read GetOldID_CON_FACTURAValue;
property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
end; end;
{ TRecibosClienteBusinessProcessorRules } { TRecibosClienteBusinessProcessorRules }
@ -366,6 +372,24 @@ type
function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual; function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual; procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual; procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
function GetOldID_CONTRATOValue: Integer; virtual;
function GetOldID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetID_CON_FACTURAValue: Integer; virtual;
function GetID_CON_FACTURAIsNull: Boolean; virtual;
function GetOldID_CON_FACTURAValue: Integer; virtual;
function GetOldID_CON_FACTURAIsNull: Boolean; virtual;
procedure SetID_CON_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_CON_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CONTRATOValue: String; virtual;
function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
function GetOldREFERENCIA_CONTRATOValue: String; virtual;
function GetOldREFERENCIA_CONTRATOIsNull: Boolean; virtual;
procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -520,6 +544,18 @@ type
property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull; property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull;
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
property ID_CON_FACTURA : Integer read GetID_CON_FACTURAValue write SetID_CON_FACTURAValue;
property ID_CON_FACTURAIsNull : Boolean read GetID_CON_FACTURAIsNull write SetID_CON_FACTURAIsNull;
property OldID_CON_FACTURA : Integer read GetOldID_CON_FACTURAValue;
property OldID_CON_FACTURAIsNull : Boolean read GetOldID_CON_FACTURAIsNull;
property REFERENCIA_CONTRATO : String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
property REFERENCIA_CONTRATOIsNull : Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
property OldREFERENCIA_CONTRATOIsNull : Boolean read GetOldREFERENCIA_CONTRATOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -529,7 +565,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}'] ['{7C905E12-6184-4266-A621-3082A0495D15}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -767,7 +803,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}'] ['{0CE1BC42-8D5A-4EA3-9E6F-E0158BD7F9B1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -805,6 +841,8 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String;
function GetOldID_CONTRATOValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -843,6 +881,8 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
end; end;
{ TRecibosCompensadosCliBusinessProcessorRules } { TRecibosCompensadosCliBusinessProcessorRules }
@ -1066,6 +1106,18 @@ type
function GetOldTIENDAIsNull: Boolean; virtual; function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
function GetOldID_CONTRATOValue: Integer; virtual;
function GetOldID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1212,6 +1264,14 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -2456,6 +2516,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CONTRATO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CONTRATO] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetID_CON_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetID_CON_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CON_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CON_FACTURA];
end;
function TRecibosClienteBusinessProcessorRules.GetOldID_CON_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_CON_FACTURA]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CON_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetID_CON_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_CON_FACTURA] := Null;
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
end;
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := Null;
end;
{ TPagosClienteBusinessProcessorRules } { TPagosClienteBusinessProcessorRules }
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -4154,6 +4307,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null;
end; end;
function TRecibosCompensadosCliBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliLISTA_NOMBRES] := Null;
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO]);
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CONTRATO];
end;
function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CONTRATO]);
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO] := aValue;
end;
procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CONTRATO] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules);

144
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -67,13 +67,14 @@ object srvRecibosCliente: TsrvRecibosCliente
'A, v_recibos_cliente.FECHA_ALTA, v_recibos_cliente.FECHA_MODIFIC' + 'A, v_recibos_cliente.FECHA_ALTA, v_recibos_cliente.FECHA_MODIFIC' +
'ACION, v_recibos_cliente.USUARIO,'#10' v_recibos_cliente.ID_TIEND' + 'ACION, v_recibos_cliente.USUARIO,'#10' v_recibos_cliente.ID_TIEND' +
'A, v_recibos_cliente.TIENDA, v_recibos_cliente.LISTA_NOMBRES,'#10' ' + 'A, v_recibos_cliente.TIENDA, v_recibos_cliente.LISTA_NOMBRES,'#10' ' +
' cont_subcuentas.descripcion as CUENTA_CONTABLE'#10'from v_recibos_' + ' cont_subcuentas.descripcion as CUENTA_CONTABLE, v_recibos_clie' +
'cliente'#10' left outer join pagos_cliente pag on'#10' (pag.id' + 'nte.ID_CONTRATO, v_recibos_cliente.ID_CON_FACTURA, v_recibos_cli' +
'_recibo = v_recibos_cliente.id)'#10' left outer join pagos_client' + 'ente.REFERENCIA_CONTRATO'#10'from v_recibos_cliente'#10' left outer j' +
'e pag2 on'#10' ((pag2.id_recibo = pag.id_recibo) and (pag2.id' + 'oin pagos_cliente pag on'#10' (pag.id_recibo = v_recibos_clie' +
' > pag.id))'#10' left outer join cont_subcuentas on'#10' (cont' + 'nte.id)'#10' left outer join pagos_cliente pag2 on'#10' ((pag2' +
'_subcuentas.id = pag.cuenta)'#10'where (pag2.id is null) and {Where}' + '.id_recibo = pag.id_recibo) and (pag2.id > pag.id))'#10' left out' +
#10 'er join cont_subcuentas on'#10' (cont_subcuentas.id = pag.cue' +
'nta)'#10'where (pag2.id is null) and {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -228,6 +229,18 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ID_CON_FACTURA'
TableField = 'ID_CON_FACTURA'
end
item
DatasetField = 'REFERENCIA_CONTRATO'
TableField = 'REFERENCIA_CONTRATO'
end
item
DatasetField = 'ID_CONTRATO'
TableField = 'ID_CONTRATO'
end> end>
end> end>
Name = 'RecibosCliente' Name = 'RecibosCliente'
@ -449,6 +462,19 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE' DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE'
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
end
item
Name = 'ID_CON_FACTURA'
DataType = datInteger
end
item
Name = 'REFERENCIA_CONTRATO'
DataType = datString
Size = 255
end> end>
end end
item item
@ -783,6 +809,14 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
DatasetField = 'PROVINCIA' DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA' TableField = 'PROVINCIA'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end
item
DatasetField = 'ID_CONTRATO'
TableField = 'ID_CONTRATO'
end> end>
end> end>
Name = 'RecibosCompensadosCli' Name = 'RecibosCompensadosCli'
@ -955,6 +989,15 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'TIENDA' Name = 'TIENDA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 1
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -1023,14 +1066,17 @@ object srvRecibosCliente: TsrvRecibosCliente
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
end end
item item
@ -1041,58 +1087,86 @@ object srvRecibosCliente: TsrvRecibosCliente
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -1104,11 +1178,12 @@ object srvRecibosCliente: TsrvRecibosCliente
'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' + 'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' + 'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' +
'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,' + 'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,' +
#10' FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :I' + #10' FECHA_ALTA, ID_CONTRATO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
'D_FACTURA, :REFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DES' + 'D_CLIENTE, :ID_FACTURA, :REFERENCIA, :FECHA_EMISION, :FECHA_VENC' +
'CRIPCION, :OBSERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO,' + 'IMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' :IMPORTE, :OTROS_GAST' +
' :ID_TIENDA, :NOMBRE, :NIF_CIF, :CALLE, :POBLACION, :PROVINCIA, ' + 'OS, :USUARIO, :ID_TIENDA, :NOMBRE, :NIF_CIF, :CALLE, :POBLACION,' +
':CODIGO_POSTAL,'#10' current_timestamp)'#10 ' :PROVINCIA, :CODIGO_POSTAL,'#10' current_timestamp, :ID_CONTRATO' +
')'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1136,70 +1211,112 @@ object srvRecibosCliente: TsrvRecibosCliente
Params = < Params = <
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
@ -1220,7 +1337,8 @@ object srvRecibosCliente: TsrvRecibosCliente
'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' + 'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' +
'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' + 'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' +
'TAL = :CODIGO_POSTAL,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP' + 'TAL = :CODIGO_POSTAL,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP' +
#10' WHERE'#10' (ID = :OLD_ID)'#10 ','#10' ID_CONTRATO = :ID_CONTRATO,'#10' ID_FACTURA = :ID_FACTURA,'#10 +
' REFERENCIA = :REFERENCIA'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

2
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
View File

@ -90,10 +90,12 @@ object fEditorFechaPago: TfEditorFechaPago
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 393 Left = 393
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
Visible = False
ExplicitLeft = 393 ExplicitLeft = 393
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203

4
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
View File

@ -41,7 +41,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
Width = 645 Width = 645
ExplicitWidth = 645 ExplicitWidth = 645
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 645 ExplicitWidth = 640
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431 ExplicitWidth = 431
@ -204,7 +204,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
Left = 136 Left = 136
Top = 176 Top = 176
inherited actNuevo: TAction inherited actNuevo: TAction
Enabled = False
ImageIndex = 22 ImageIndex = 22
Visible = False
end end
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction
Visible = True Visible = True

11
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -83,6 +83,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -471,6 +472,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item10: TdxLayoutItem
Enabled = False
Visible = False
end
end
end end
end end
inline frViewObservaciones1: TfrViewObservaciones inline frViewObservaciones1: TfrViewObservaciones
@ -531,6 +538,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Vencimiento:' Caption = 'Vencimiento:'
Enabled = False
Visible = False
Control = edtFechaVencimiento Control = edtFechaVencimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -544,6 +553,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
object dxLayoutControl1Item16: TdxLayoutItem object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'Ref. remesa:' Caption = 'Ref. remesa:'
Enabled = False
Visible = False
Control = eRemesa Control = eRemesa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

20
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -109,9 +109,11 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
Caption = 'Fecha vencimiento' Caption = 'Fecha vencimiento'
DataBinding.FieldName = 'FECHA_VENCIMIENTO' DataBinding.FieldName = 'FECHA_VENCIMIENTO'
Visible = False
BestFitMaxWidth = 70 BestFitMaxWidth = 70
SortIndex = 0 SortIndex = 0
SortOrder = soDescending SortOrder = soDescending
VisibleForCustomization = False
Width = 40 Width = 40
end end
object cxGridViewDESCRIPCION: TcxGridDBColumn object cxGridViewDESCRIPCION: TcxGridDBColumn
@ -170,9 +172,11 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
DataBinding.FieldName = 'REFERENCIA_REMESA' DataBinding.FieldName = 'REFERENCIA_REMESA'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Visible = False
BestFitMaxWidth = 70 BestFitMaxWidth = 70
GroupSummaryAlignment = taRightJustify GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
Width = 48 Width = 48
end end
object cxGridViewCALLE: TcxGridDBColumn object cxGridViewCALLE: TcxGridDBColumn
@ -204,6 +208,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
DataBinding.FieldName = 'CUENTA_CONTABLE' DataBinding.FieldName = 'CUENTA_CONTABLE'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
end end
object cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn
Caption = 'Ref. presupuesto'
DataBinding.FieldName = 'REFERENCIA_CONTRATO'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
@ -227,15 +235,27 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Width = 686 Width = 686
ExplicitWidth = 686 ExplicitWidth = 686
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 183 ExplicitWidth = 183
Width = 183 Width = 183
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 367 Left = 367
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 367 ExplicitLeft = 367
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234

1
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -59,6 +59,7 @@ type
cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewCUENTA_CONTABLE: TcxGridDBColumn; cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn; cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

5
Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
View File

@ -195,9 +195,10 @@ begin
AFactura := AFacturasClienteController.Nuevo; AFactura := AFacturasClienteController.Nuevo;
CopiarContratoAFactura(AContrato, AFactura); CopiarContratoAFactura(AContrato, AFactura);
CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles); CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles);
AFacturasClienteController.Ver(AFactura);
//Sustituir por if de guardar //Sustituir por if de guardar
if AFacturasClienteController.Guardar(AFactura) then { if AFacturasClienteController.Guardar(AFactura) then
begin begin
// Asocio el contrato al presupuesto // Asocio el contrato al presupuesto
with dmGenerarFacturasCli.JsListaFacturasGenerados do with dmGenerarFacturasCli.JsListaFacturasGenerados do
@ -218,7 +219,7 @@ begin
end; end;
end; end;
end; end;
}
Result := True; Result := True;
finally finally
if Assigned(AContratosClienteController) then if Assigned(AContratosClienteController) then

313
Source/Modulos/Relaciones/Contratos de cliente - Recibos de cliente/uGenerarRecibosCliUtils.dfm Normal file
View File

@ -0,0 +1,313 @@
object dmGenerarRecibosCli: TdmGenerarRecibosCli
OldCreateOrder = False
Height = 176
Width = 254
object JsListaRecibosGenerados: TJSDialog
DialogOptions = [doCommandLinks, doModal]
Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
Instruction.Text = 'Se ha generado la factura de cliente'
Instruction.Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
Instruction.Icon = tdiCustom
CustomButtons = <
item
Caption = 'Ver la factura'
Value = 100
Info.Strings = (
'Mostrar la factura que se ha creado')
end>
ButtonBar.Buttons = [cbOK]
ButtonBar.Cancel = cbOK
ButtonBar.UseCancel = False
MainIcon = tdiCustom
Title = 'FactuGES'
Position = dpMainFormCenter
Icon.Data = {
0000010003002020100001000400E8020000360000002020000001000800A808
00001E0300002020000001002000A8100000C60B000028000000200000004000
0000010004000000000000020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000008777777777777777777777700000000
0877767777677776777767760000000008F88888888888888888888700000000
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
08F8676767677677677658E50000000008FF8888888887878787888700000000
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
0000200000004000000001000800000000000004000000000000000000000001
00000001000000000000694731007C5D49007E604C0081635000826451008567
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
0D0D0000000000000000009C9C19191919191919191919191919191919191919
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
0000000000000000000000003227000000000000000000000000000000000000
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000007067
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
A070000000000000000000000000000000000000000000000000000000005E54
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
967F000000000000000000000000000000000000000000000000000000006055
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
967E000000000000000000000000000000000000000000000000000000006056
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006155
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006157
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006256
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006256
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006256
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006257
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006357
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006357
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006458
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006458
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006459
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
967E000000000000000000000000000000000000000000000000000000006559
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
967E000000000000000000000000000000000000000000000000000000006559
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
967E00000000000000000000000000000000000000000000000000000000685A
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
967E00000000000000000000000000000000007792910072A7A3001E33366957
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF}
Width = 450
Left = 72
Top = 16
end
end

291
Source/Modulos/Relaciones/Contratos de cliente - Recibos de cliente/uGenerarRecibosCliUtils.pas Normal file
View File

@ -0,0 +1,291 @@
unit uGenerarRecibosCliUtils;
interface
uses
Windows, SysUtils, Classes, pngimage, JSDialog,
uBizContratosCliente, uBizRecibosCliente;
type
TdmGenerarRecibosCli = class(TDataModule)
JsListaRecibosGenerados: TJSDialog;
end;
function GenerarReciboCli(const IDContrato : Integer) : Boolean;
// function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
// function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean;
implementation
{$R *.dfm}
uses
uDialogUtils,
//uBizDetallesContratoCliente, uBizDetallesFacturaCliente,
uContratosClienteController, uFacturasClienteController, uRecibosClienteController,
uClientesController,
uDetallesFacturaClienteController, uControllerDetallesBase,
uBizContactos, schFacturasClienteClient_Intf,
schContratosClienteClient_Intf, uBizDetallesPresupuestoCliente;
var
dmGenerarRecibosCli: TdmGenerarRecibosCli;
AContratosClienteController : IContratosClienteController;
ARecibosClienteController : IRecibosClienteController;
AFacturasClienteController : IFacturasClienteController;
AClientesController : IClientesController;
{ Métodos auxiliares }
{procedure CopiarContratoAFactura(AContrato: IBizContratoCliente; AFactura : IBizFacturaCliente);
begin
if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado (CopiarContratoAFactura)');
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (CopiarContratoAFactura)');
if not AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
AContratosClienteController.RecuperarCliente(AContrato);
AFactura.Cliente := AContrato.Cliente;
AFactura.NIF_CIF := AContrato.NIF_CIF;
AFactura.NOMBRE := AContrato.NOMBRE;
AFactura.CALLE := AContrato.CALLE;
AFactura.POBLACION := AContrato.POBLACION;
AFactura.PROVINCIA := AContrato.PROVINCIA;
AFactura.CODIGO_POSTAL := AContrato.CODIGO_POSTAL;
// AFactura.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO;
AFactura.DataTable.FieldByName(fld_FacturasClienteOBSERVACIONES).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant;
AFactura.IMPORTE_NETO := AContrato.IMPORTE_NETO;
AFactura.IMPORTE_PORTE := AContrato.IMPORTE_PORTE;
AFactura.DESCUENTO := AContrato.DESCUENTO;
AFactura.IMPORTE_DESCUENTO := AContrato.IMPORTE_DESCUENTO;
AFactura.BASE_IMPONIBLE := AContrato.BASE_IMPONIBLE;
AFactura.ID_TIPO_IVA := AContrato.ID_TIPO_IVA;
AFactura.IVA := AContrato.IVA;
AFactura.IMPORTE_IVA := AContrato.IMPORTE_IVA;
AFactura.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
// AFactura.ID_TIENDA := AContrato.ID_TIENDA;
// AFactura.ID_VENDEDOR := AContrato.ID_VENDEDOR;
AFactura.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA;
AFactura.RE := AContrato.RE;
AFactura.IMPORTE_RE := AContrato.IMPORTE_RE;
AFactura.ID_CONTRATO := AContrato.ID;
AFactura.TIPO_FACTURA := AContrato.TIPO_CONTRATO;
end;
procedure CopiarDetallesAFactura(
AContrato: IBizContratoCliente;
AFactura: IBizFacturaCliente;
AArticulos: IBizDetallesContratoCliente);
var
i : integer;
ADetalles : IBizDetallesFacturaCliente;
ADetallesController : IDetallesFacturaClienteController;
begin
if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignada (CopiarDetallesAFactura)');
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (CopiarDetallesAFactura)');
if not Assigned(AArticulos) then
raise Exception.Create ('Artículos no asignado (CopiarDetallesAFatura)');
if not AArticulos.DataTable.Active then
AArticulos.DataTable.Active := True;
// El contrato tiene que venir ya abierto y posicionado donde hay que copiar
ADetalles := AFactura.Detalles;
ADetallesController := TDetallesFacturaClienteController.Create;
try
//OJO IMPORTANTE
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
//obligarle siempre a recalcular los detalles una sola vez
ADetallesController.BeginUpdate(ADetalles);
AArticulos.DataTable.First;
for i := 0 to AArticulos.DataTable.RecordCount - 1 do
begin
ADetallesController.Add(ADetalles, AArticulos.TIPO_DETALLE);
ADetalles.Edit;
ADetalles.REFERENCIA := AArticulos.REFERENCIA;
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
if (AArticulos.PROPIEDAD <> '') then
ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ': '+ AArticulos.CONCEPTO
else
ADetalles.CONCEPTO := AArticulos.CONCEPTO;
if not AArticulos.CANTIDADIsNull then
ADetalles.CANTIDAD := AArticulos.CANTIDAD;
if not AArticulos.IMPORTE_UNIDADIsNull then
ADetalles.IMPORTE_UNIDAD := AArticulos.IMPORTE_UNIDAD;
if not AArticulos.IMPORTE_TOTALIsNull then
ADetalles.IMPORTE_TOTAL := AArticulos.IMPORTE_TOTAL;
if not AArticulos.DESCUENTOIsNull then
ADetalles.DESCUENTO := AArticulos.DESCUENTO;
if not AArticulos.IMPORTE_PORTEIsNull then
ADetalles.IMPORTE_PORTE := AArticulos.IMPORTE_PORTE;
ADetalles.VISIBLE := AArticulos.VISIBLE;
ADetalles.REFERENCIA_PROVEEDOR := AArticulos.REFERENCIA_PROVEEDOR;
ADetalles.Post;
AArticulos.Next;
end;
finally
ADetallesController.EndUpdate(ADetalles);
ADetallesController := NIL;
end;
end;
}
procedure Inicializar;
begin
dmGenerarRecibosCli := TdmGenerarRecibosCli.Create(nil);
AContratosClienteController := TContratosClienteController.Create;
ARecibosClienteController := TRecibosClienteController.Create;
AFacturasClienteController := TFacturasClienteController.Create;
AClientesController := TClientesController.Create;
end;
procedure Finalizar;
begin
FreeAndNIL(dmGenerarRecibosCli);
AContratosClienteController := nil;
ARecibosClienteController := nil;
AFacturasClienteController := nil;
AClientesController := nil;
end;
function GenerarReciboCli(const IDContrato : Integer) : Boolean;
var
AContrato : IBizContratoCliente;
ARecibo : IBizRecibosCliente;
begin
Result := False;
ARecibo := Nil;
try
if not Assigned(AContratosClienteController) then
Inicializar;
AContrato := AContratosClienteController.Buscar(IDContrato);
if Assigned(AContrato) then
begin
if not AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
//
//Comprobamos que el contrato no tenga facturas asociadas y si las tiene decir que no se pueden añadir cobros por esta via
//
ARecibo := ARecibosClienteController.Nuevo;
ARecibo.ID_CONTRATO := AContrato.ID;
AContratosClienteController.RecuperarCliente(AContrato);
ARecibo.Cliente := AContrato.Cliente;
ARecibo.NIF_CIF := AContrato.NIF_CIF;
ARecibo.NOMBRE := AContrato.NOMBRE;
ARecibo.CALLE := AContrato.CALLE;
ARecibo.POBLACION := AContrato.POBLACION;
ARecibo.PROVINCIA := AContrato.PROVINCIA;
ARecibo.CODIGO_POSTAL := AContrato.CODIGO_POSTAL;
ARecibo.IMPORTE := AContrato.IMPORTE_TOTAL;
ARecibo.DESCRIPCION := 'Pago a cuenta de presupuesto ' + AContrato.REFERENCIA;
ARecibosClienteController.Ver(ARecibo);
Result := true; // GenerarFacturaCli(AContrato, AFactura);
end;
finally
if Assigned(AContratosClienteController) then
Finalizar;
end;
end;
{
function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
var
ARespuesta : Integer;
begin
AFactura := NIL;
if not Assigned(AContrato) then
raise Exception.Create('Contrato de cliente no asignado (GenerarContratoCli)');
if not AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
if not Assigned(AContratosClienteController) then
Inicializar;
try
AFactura := AFacturasClienteController.Nuevo;
CopiarContratoAFactura(AContrato, AFactura);
CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles);
//Sustituir por if de guardar
if AFacturasClienteController.Guardar(AFactura) then
begin
// Asocio el contrato al presupuesto
with dmGenerarFacturasCli.JsListaFacturasGenerados do
begin
Instruction.Text := 'Se ha generado la factura';
Content.Clear;
Content.Add(Format('Se ha generado correctamente la factura %s a partir del contrato de cliente' + #10#13, [AFactura.REFERENCIA]));
Execute;
ARespuesta := CustomButtonResult;
case ARespuesta of
100 : begin
// Ver el albarán
AFacturasClienteController.Ver(AFactura);
end;
200 : // Continuar;
end;
end;
end;
Result := True;
finally
if Assigned(AContratosClienteController) then
Finalizar;
end;
end;
{
function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean; overload;
var
APedido : IBizPedidoCliente;
AAlbaran : IBizAlbaranCliente;
begin
Result := False;
IDAlbaran := -1;
AAlbaran := NIL;
try
if not Assigned(APedidosClienteController) then
Inicializar;
APedido := APedidosClienteController.ElegirPedidos(APedidosClienteController.BuscarPendientes,
'Elija el pedido de cliente que desea utilizar para dar de alta el albarán de cliente.'
, False);
if Assigned(APedido) then
begin
Result := GenerarAlbaranCli(APedido, AAlbaran);
if Result then
IDAlbaran := AAlbaran.ID;
end;
finally
if Assigned(APedidosClienteController) then
Finalizar;
end;
end;
}
end.

2
Source/Modulos/Remesas de cliente/Plugin/uPluginRemesasCliente.dfm
View File

@ -53,7 +53,9 @@ object PluginRemesasCliente: TPluginRemesasCliente
object actRemesasCliente: TAction object actRemesasCliente: TAction
Category = 'Ventas' Category = 'Ventas'
Caption = 'Remesas de cobro' Caption = 'Remesas de cobro'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actRemesasClienteExecute OnExecute = actRemesasClienteExecute
end end
end end

2
Source/Modulos/Remesas de proveedor/Plugin/uPluginRemesasProveedor.dfm
View File

@ -53,7 +53,9 @@ object PluginRemesasProveedor: TPluginRemesasProveedor
object actRemesasProveedor: TAction object actRemesasProveedor: TAction
Category = 'Compras' Category = 'Compras'
Caption = 'Remesas de pago' Caption = 'Remesas de pago'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actRemesasProveedorExecute OnExecute = actRemesasProveedorExecute
end end
end end

4
Source/Servidor/FactuGES_Server.dpr
View File

@ -123,8 +123,6 @@ uses
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
@ -137,6 +135,8 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';

589
Source/Servidor/FactuGES_Server.dproj
View File

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

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

6
Source/Servidor/uDataModuleServer.dfm
View File

@ -41,9 +41,9 @@ object dmServer: TdmServer
item item
Name = 'IBX' Name = 'IBX'
ConnectionString = ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Acana\Output\Debug\Datab' + 'IBX?Server=localhost;Database=C:\Codigo Arribas2\Output\Debug\Da' +
'ase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Char' + 'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
'set=ISO8859_1;' 'harset=ISO8859_1;'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
end> end>