Cambios para la generacion de recibos en facturas con recibos ya existentes y preparacion de facturas de proveedor para
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@18 40301925-124e-1c4e-b97d-170ad7a8785b
This commit is contained in:
parent
e8511e0bfb
commit
368730858e
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -14,8 +14,8 @@
|
||||
<Notes>
|
||||
<![CDATA[]]>
|
||||
</Notes>
|
||||
<LastBuildRun>00:03:22</LastBuildRun>
|
||||
<LastBuildStart>09/09/2016 18:07:38</LastBuildStart>
|
||||
<LastBuildRun>00:00:00</LastBuildRun>
|
||||
<LastBuildStart>21/01/2020 11:30:34</LastBuildStart>
|
||||
<LastBuildState>False</LastBuildState>
|
||||
</properties>
|
||||
</project>
|
||||
|
||||
BIN
Build/Build.fbz6
BIN
Build/Build.fbz6
Binary file not shown.
@ -14,6 +14,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 674
|
||||
Caption = 'Empresa'
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 674
|
||||
inherited Image1: TImage
|
||||
Left = 647
|
||||
@ -87,6 +88,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 668
|
||||
Height = 423
|
||||
ActivePage = pagDatosBancarios
|
||||
ExplicitTop = 109
|
||||
ExplicitWidth = 668
|
||||
ExplicitHeight = 423
|
||||
@ -160,95 +162,95 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
||||
Width = 100
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 351
|
||||
Left = 354
|
||||
Top = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 351
|
||||
ExplicitLeft = 354
|
||||
ExplicitTop = 270
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBTextEdit
|
||||
Left = 539
|
||||
Left = 542
|
||||
Top = 216
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 539
|
||||
ExplicitLeft = 542
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
end
|
||||
inherited eMailParticular: TcxDBTextEdit
|
||||
Left = 539
|
||||
Left = 542
|
||||
Top = 189
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 539
|
||||
ExplicitLeft = 542
|
||||
ExplicitTop = 189
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBTextEdit
|
||||
Left = 539
|
||||
Left = 542
|
||||
Top = 162
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 539
|
||||
ExplicitLeft = 542
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 539
|
||||
Left = 542
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 539
|
||||
ExplicitLeft = 542
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 91
|
||||
Width = 91
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 539
|
||||
Left = 542
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 539
|
||||
ExplicitLeft = 542
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 127
|
||||
Width = 127
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 539
|
||||
Left = 542
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 539
|
||||
ExplicitLeft = 542
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 539
|
||||
Left = 542
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 539
|
||||
ExplicitLeft = 542
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
@ -284,13 +286,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
||||
Width = 76
|
||||
end
|
||||
inherited cxDBImage1: TcxDBImage
|
||||
Left = 444
|
||||
Left = 447
|
||||
Top = 267
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 444
|
||||
ExplicitLeft = 447
|
||||
ExplicitTop = 267
|
||||
ExplicitWidth = 140
|
||||
ExplicitHeight = 100
|
||||
@ -388,7 +390,9 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
||||
end
|
||||
object pagTiendas: TTabSheet
|
||||
Caption = 'Tiendas'
|
||||
Enabled = False
|
||||
ImageIndex = 2
|
||||
TabVisible = False
|
||||
inline frViewTiendas1: TfrViewTiendas
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -409,7 +413,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
||||
Width = 660
|
||||
Height = 370
|
||||
ExplicitWidth = 660
|
||||
ExplicitHeight = 400
|
||||
ExplicitHeight = 370
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewCODIGO_CONTABLE: TcxGridDBColumn
|
||||
VisibleForCustomization = False
|
||||
@ -419,24 +423,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 674
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 674
|
||||
inherited lbComentario: TLabel
|
||||
Width = 664
|
||||
|
||||
@ -44,13 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -65,56 +58,56 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</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="..\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">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -52,7 +52,9 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
Binary file not shown.
@ -687,6 +687,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
object Logistica1: TMenuItem
|
||||
Tag = 5000
|
||||
Action = actMenuLogistica
|
||||
Enabled = False
|
||||
Visible = False
|
||||
object N7: TMenuItem
|
||||
Tag = 200
|
||||
Caption = '-'
|
||||
@ -699,10 +701,14 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
object Contabilidad1: TMenuItem
|
||||
Tag = 6000
|
||||
Action = actMenuContabilidad
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object Informes1: TMenuItem
|
||||
Tag = 7000
|
||||
Action = actMenuInformes
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
|
||||
|
||||
@ -211,8 +211,7 @@ begin
|
||||
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PERFIL_ADMINISTRADOR) then
|
||||
begin
|
||||
Administracin1.Visible := False;
|
||||
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PREFIL_GERENCIA) then
|
||||
ConfigurarFactuGES1.Visible := False;
|
||||
ConfigurarFactuGES1.Visible := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
{$DEFINE MULTIEMPRESA}
|
||||
{$DEFINE ALMACEN}
|
||||
{$DEFINE PEDIDOSPROVEEDOR}
|
||||
{DEFINE MULTIEMPRESA}
|
||||
{DEFINE ALMACEN}
|
||||
{DEFINE PEDIDOSPROVEEDOR}
|
||||
{$DEFINE CONTABILIDAD}
|
||||
@ -58,34 +58,34 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclx.dcp" />
|
||||
<DCCReference Include="..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\Servidor\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frx11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frxe11.dcp" />
|
||||
<DCCReference Include="..\Servidor\fs11.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Servidor\PNG_D10.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\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
Binary file not shown.
@ -1,14 +1,14 @@
|
||||
inherited frViewTotales: TfrViewTotales
|
||||
Width = 788
|
||||
Height = 224
|
||||
Width = 935
|
||||
Height = 266
|
||||
Align = alBottom
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 224
|
||||
ExplicitWidth = 935
|
||||
ExplicitHeight = 266
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
AlignWithMargins = True
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 788
|
||||
Width = 935
|
||||
Height = 217
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
@ -21,14 +21,14 @@ inherited frViewTotales: TfrViewTotales
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 451
|
||||
object Bevel3: TBevel
|
||||
Left = 389
|
||||
Left = 534
|
||||
Top = 28
|
||||
Width = 3
|
||||
Height = 122
|
||||
Shape = bsRightLine
|
||||
end
|
||||
object Bevel4: TBevel
|
||||
Left = 501
|
||||
Left = 646
|
||||
Top = 70
|
||||
Width = 210
|
||||
Height = 9
|
||||
@ -36,7 +36,7 @@ inherited frViewTotales: TfrViewTotales
|
||||
end
|
||||
object ImporteDto: TcxDBCurrencyEdit
|
||||
Left = 175
|
||||
Top = 55
|
||||
Top = 82
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_DESCUENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -61,12 +61,12 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
TabOrder = 3
|
||||
Height = 21
|
||||
Width = 93
|
||||
end
|
||||
object ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 572
|
||||
Left = 717
|
||||
Top = 105
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_IVA'
|
||||
@ -92,12 +92,12 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Height = 21
|
||||
Width = 137
|
||||
end
|
||||
object ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 502
|
||||
Left = 647
|
||||
Top = 159
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_TOTAL'
|
||||
@ -124,13 +124,13 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
Height = 21
|
||||
Width = 137
|
||||
end
|
||||
object edtDescuento: TcxDBSpinEdit
|
||||
Left = 104
|
||||
Top = 55
|
||||
Top = 82
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'DESCUENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -154,12 +154,12 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
TabOrder = 2
|
||||
Height = 21
|
||||
Width = 65
|
||||
end
|
||||
object edtIVA: TcxDBSpinEdit
|
||||
Left = 501
|
||||
Left = 646
|
||||
Top = 105
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IVA'
|
||||
@ -191,12 +191,12 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Height = 21
|
||||
Width = 65
|
||||
end
|
||||
object ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 501
|
||||
Left = 646
|
||||
Top = 28
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'BASE_IMPONIBLE'
|
||||
@ -221,12 +221,12 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Height = 21
|
||||
Width = 92
|
||||
end
|
||||
object edtRE: TcxDBSpinEdit
|
||||
Left = 501
|
||||
Left = 646
|
||||
Top = 132
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'RE'
|
||||
@ -258,12 +258,12 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Height = 21
|
||||
Width = 65
|
||||
end
|
||||
object ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 572
|
||||
Left = 717
|
||||
Top = 132
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_RE'
|
||||
@ -289,13 +289,13 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Height = 21
|
||||
Width = 56
|
||||
end
|
||||
object eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 104
|
||||
Top = 28
|
||||
Top = 55
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_NETO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -320,13 +320,13 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
TabOrder = 1
|
||||
Height = 21
|
||||
Width = 147
|
||||
end
|
||||
object ePorte: TcxDBCurrencyEdit
|
||||
Left = 104
|
||||
Top = 82
|
||||
Top = 109
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_PORTE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -350,13 +350,13 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
Height = 21
|
||||
Width = 147
|
||||
end
|
||||
object eIVA: TcxDBLookupComboBox
|
||||
Left = 104
|
||||
Top = 109
|
||||
Top = 136
|
||||
DataBinding.DataField = 'ID_TIPO_IVA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
@ -383,20 +383,20 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 81
|
||||
end
|
||||
object bTiposIVA: TButton
|
||||
Left = 241
|
||||
Top = 109
|
||||
Left = 386
|
||||
Top = 136
|
||||
Width = 132
|
||||
Height = 21
|
||||
Caption = 'Ver los tipos de IVA...'
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
end
|
||||
object cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 104
|
||||
Top = 136
|
||||
Top = 163
|
||||
Caption = 'Aplicar recargo de equivalencia'
|
||||
DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -417,9 +417,37 @@ inherited frViewTotales: TfrViewTotales
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Width = 219
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -433,6 +461,12 @@ inherited frViewTotales: TfrViewTotales
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
Caption = 'ImporteNeto:'
|
||||
Visible = False
|
||||
Control = eImporteDetalleResumen
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
|
||||
@ -59,6 +59,8 @@ type
|
||||
cbRecargoEquivalencia: TcxDBCheckBox;
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
dxLayoutControl1Group11: TdxLayoutGroup;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
eImporteDetalleResumen: TcxDBCurrencyEdit;
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
87
Source/Informes/1/InfContratoCliente.fr3
Normal file
87
Source/Informes/1/InfContratoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -254,7 +254,9 @@ object PluginAlbaranesCliente: TPluginAlbaranesCliente
|
||||
object actAlbaranesCliente: TAction
|
||||
Category = 'Ventas'
|
||||
Caption = 'Albaranes de cliente'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actAlbaranesClienteExecute
|
||||
end
|
||||
object actAlbaranesDevCliente: TAction
|
||||
|
||||
@ -65,7 +65,9 @@ object PluginComisiones: TPluginComisiones
|
||||
object actComisiones: TAction
|
||||
Category = 'Comisiones'
|
||||
Caption = 'Liquidaciones de comisiones'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actComisionesExecute
|
||||
OnUpdate = actComisionesUpdate
|
||||
end
|
||||
|
||||
@ -620,14 +620,18 @@ object PluginContabilidad: TPluginContabilidad
|
||||
object actBalances: TAction
|
||||
Category = 'Contabilidad'
|
||||
Caption = 'Balances'
|
||||
Enabled = False
|
||||
ImageIndex = 5
|
||||
Visible = False
|
||||
OnExecute = actBalancesExecute
|
||||
OnUpdate = actBalancesUpdate
|
||||
end
|
||||
object actCuentasEspeciales: TAction
|
||||
Category = 'Contabilidad'
|
||||
Caption = 'Cuentas especiales'
|
||||
Enabled = False
|
||||
ImageIndex = 6
|
||||
Visible = False
|
||||
OnExecute = actCuentasEspecialesExecute
|
||||
OnUpdate = actCuentasEspecialesUpdate
|
||||
end
|
||||
|
||||
@ -286,12 +286,16 @@ object PluginContactos: TPluginContactos
|
||||
end
|
||||
object actGruposCliente: TAction
|
||||
Caption = 'Grupos de cliente'
|
||||
Enabled = False
|
||||
ImageIndex = 5
|
||||
Visible = False
|
||||
OnExecute = actGruposClienteExecute
|
||||
end
|
||||
object actGruposProveedor: TAction
|
||||
Caption = 'Grupos de proveedor'
|
||||
Enabled = False
|
||||
ImageIndex = 5
|
||||
Visible = False
|
||||
OnExecute = actGruposProveedorExecute
|
||||
end
|
||||
object actProcedenciasCliente: TAction
|
||||
|
||||
@ -47,40 +47,40 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\bdertl.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Jcl.dcp" />
|
||||
<DCCReference Include="..\JclVcl.dcp" />
|
||||
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
|
||||
@ -4,7 +4,6 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Caption = 'Ficha de cliente'
|
||||
ClientHeight = 1052
|
||||
ClientWidth = 994
|
||||
ExplicitTop = -70
|
||||
ExplicitWidth = 1002
|
||||
ExplicitHeight = 1086
|
||||
PixelsPerInch = 96
|
||||
@ -12,7 +11,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 994
|
||||
Caption = 'Ficha de cliente'
|
||||
ExplicitWidth = 998
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 994
|
||||
inherited Image1: TImage
|
||||
Left = 967
|
||||
Picture.Data = {
|
||||
@ -51,9 +51,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 994
|
||||
ExplicitWidth = 998
|
||||
ExplicitWidth = 994
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 579
|
||||
ExplicitWidth = 446
|
||||
object TBXItem7: TTBXItem [7]
|
||||
Action = actGruposCliente
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -66,32 +66,34 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 1033
|
||||
Width = 994
|
||||
ExplicitTop = 833
|
||||
ExplicitWidth = 998
|
||||
ExplicitTop = 1033
|
||||
ExplicitWidth = 994
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 988
|
||||
Height = 912
|
||||
ExplicitWidth = 992
|
||||
ExplicitHeight = 712
|
||||
Height = 921
|
||||
ExplicitTop = 109
|
||||
ExplicitWidth = 988
|
||||
ExplicitHeight = 921
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 684
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 893
|
||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Top = 681
|
||||
Top = 690
|
||||
Width = 980
|
||||
Enabled = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 681
|
||||
Visible = False
|
||||
ExplicitTop = 690
|
||||
ExplicitWidth = 980
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 980
|
||||
ExplicitWidth = 984
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 178
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 980
|
||||
ExplicitWidth = 984
|
||||
ExplicitWidth = 980
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -110,7 +112,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 980
|
||||
Height = 681
|
||||
Height = 690
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -120,14 +122,14 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 534
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 690
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 980
|
||||
Height = 681
|
||||
Height = 690
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 534
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 690
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 935
|
||||
Top = 218
|
||||
@ -148,18 +150,30 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 216
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 243
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 336
|
||||
Width = 336
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
@ -167,12 +181,20 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 568
|
||||
Top = 243
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 568
|
||||
ExplicitTop = 243
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 747
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 747
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 177
|
||||
@ -180,36 +202,61 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited eNombreComercial: TcxDBTextEdit
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
end
|
||||
inherited cbClienteBloqueado: TcxDBCheckBox
|
||||
Top = 348
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 348
|
||||
ExplicitWidth = 538
|
||||
Width = 538
|
||||
end
|
||||
inherited cbGrupoCliente: TcxDBComboBox
|
||||
Top = 138
|
||||
Enabled = False
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
end
|
||||
inherited eBloqueo: TcxDBTextEdit
|
||||
Top = 375
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 375
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
end
|
||||
inherited eCodigoAsignado: TcxDBTextEdit
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
end
|
||||
inherited cbProcedenciaCliente: TcxDBComboBox
|
||||
Top = 165
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
@ -217,6 +264,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 747
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 747
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 177
|
||||
@ -225,6 +276,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 747
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 747
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 177
|
||||
@ -233,6 +288,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 747
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 747
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 177
|
||||
@ -240,6 +299,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
@ -247,6 +310,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 315
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 315
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 271
|
||||
@ -256,6 +323,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Left = 747
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 747
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 148
|
||||
@ -265,6 +336,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Left = 747
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 747
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 148
|
||||
@ -273,6 +348,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 747
|
||||
Top = 217
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 747
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 148
|
||||
@ -280,12 +359,20 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 104
|
||||
Width = 104
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 297
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 428
|
||||
Width = 428
|
||||
@ -297,6 +384,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitTop = 270
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 229
|
||||
Width = 229
|
||||
end
|
||||
@ -313,6 +404,26 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 521
|
||||
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
|
||||
inherited dsContacto: TDADataSource
|
||||
Left = 24
|
||||
@ -321,13 +432,15 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pagDatosBancarios: TTabSheet
|
||||
Enabled = False
|
||||
TabVisible = False
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 884
|
||||
ExplicitHeight = 893
|
||||
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
Width = 980
|
||||
Height = 884
|
||||
Height = 893
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 884
|
||||
ExplicitHeight = 893
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 980
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
@ -354,20 +467,24 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pagPersonal: TTabSheet
|
||||
Enabled = False
|
||||
TabVisible = False
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 684
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 893
|
||||
inherited memObservaciones22: TcxDBMemo
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 884
|
||||
Height = 884
|
||||
ExplicitHeight = 893
|
||||
Height = 893
|
||||
Width = 980
|
||||
end
|
||||
end
|
||||
object pagDatosComerciales: TTabSheet
|
||||
Caption = 'Datos comerciales'
|
||||
Enabled = False
|
||||
ImageIndex = 4
|
||||
TabVisible = False
|
||||
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -401,23 +518,39 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited eDiasVencimiento: TcxDBSpinEdit
|
||||
Left = 710
|
||||
Top = 62
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitTop = 62
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 427
|
||||
Width = 427
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 427
|
||||
Width = 427
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 289
|
||||
Width = 289
|
||||
@ -430,6 +563,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 289
|
||||
Width = 289
|
||||
@ -443,12 +580,20 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited cxDBSpinEdit1: TcxDBSpinEdit
|
||||
Left = 710
|
||||
Top = 89
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitTop = 89
|
||||
end
|
||||
inherited cxDBSpinEdit2: TcxDBSpinEdit
|
||||
Left = 710
|
||||
Top = 116
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitTop = 116
|
||||
end
|
||||
@ -464,12 +609,14 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
object pagDirecciones: TTabSheet
|
||||
Caption = 'Direcciones'
|
||||
Enabled = False
|
||||
ImageIndex = 1
|
||||
TabVisible = False
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 980
|
||||
Height = 884
|
||||
Height = 893
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -480,12 +627,12 @@ inherited fEditorCliente: TfEditorCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 884
|
||||
ExplicitHeight = 893
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 980
|
||||
Height = 859
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 668
|
||||
Height = 868
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 868
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
SortIndex = 0
|
||||
@ -495,19 +642,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 980
|
||||
ExplicitWidth = 984
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
ExplicitWidth = 980
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -519,7 +654,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 980
|
||||
Height = 884
|
||||
Height = 893
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -530,16 +665,16 @@ inherited fEditorCliente: TfEditorCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 884
|
||||
ExplicitHeight = 893
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 980
|
||||
Height = 859
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 668
|
||||
Height = 868
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 868
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 980
|
||||
ExplicitWidth = 984
|
||||
ExplicitWidth = 980
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -557,16 +692,14 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
object pagContabilidad: TTabSheet
|
||||
Caption = 'Contabilidad'
|
||||
Enabled = False
|
||||
ImageIndex = 5
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 684
|
||||
TabVisible = False
|
||||
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 980
|
||||
Height = 884
|
||||
Height = 893
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -577,17 +710,21 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 684
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 893
|
||||
inherited layoutApunte: TdxLayoutControl
|
||||
Width = 980
|
||||
Height = 884
|
||||
ExplicitWidth = 984
|
||||
ExplicitHeight = 684
|
||||
Height = 893
|
||||
ExplicitWidth = 980
|
||||
ExplicitHeight = 893
|
||||
DesignSize = (
|
||||
980
|
||||
884)
|
||||
893)
|
||||
inherited eRefSubCuenta: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 441
|
||||
Width = 441
|
||||
end
|
||||
@ -596,6 +733,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitLeft = 638
|
||||
end
|
||||
inherited eSubCuenta: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 779
|
||||
Width = 779
|
||||
end
|
||||
@ -609,6 +750,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited cbIgnorarContabilidad: TcxDBCheckBox
|
||||
DataBinding.DataSource = frViewCliente1.dsContacto
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 862
|
||||
Width = 862
|
||||
end
|
||||
@ -625,7 +770,12 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 994
|
||||
ExplicitWidth = 998
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 994
|
||||
inherited lbComentario: TLabel
|
||||
Width = 984
|
||||
Height = 25
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource
|
||||
Left = 16
|
||||
|
||||
@ -72,9 +72,9 @@ begin
|
||||
ViewContacto := frViewCliente1;
|
||||
|
||||
{$IFDEF CONTABILIDAD}
|
||||
pagContabilidad.TabVisible := true;
|
||||
// pagContabilidad.TabVisible := true;
|
||||
{$ELSE}
|
||||
pagContabilidad.TabVisible := false;
|
||||
// pagContabilidad.TabVisible := false;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
@ -24,7 +24,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Width = 949
|
||||
ExplicitWidth = 949
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 423
|
||||
ExplicitWidth = 330
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -86,17 +86,17 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 943
|
||||
Height = 599
|
||||
Height = 608
|
||||
ExplicitWidth = 943
|
||||
ExplicitHeight = 599
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 935
|
||||
ExplicitHeight = 571
|
||||
ExplicitHeight = 580
|
||||
inline frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Left = 0
|
||||
Top = 368
|
||||
Top = 377
|
||||
Width = 935
|
||||
Height = 203
|
||||
Align = alBottom
|
||||
@ -108,7 +108,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitTop = 368
|
||||
ExplicitTop = 377
|
||||
ExplicitWidth = 935
|
||||
ExplicitHeight = 203
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -120,6 +120,18 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 935
|
||||
ExplicitWidth = 935
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -130,7 +142,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 935
|
||||
Height = 571
|
||||
Height = 580
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -141,7 +153,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 935
|
||||
ExplicitHeight = 571
|
||||
ExplicitHeight = 580
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 935
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
@ -182,6 +194,10 @@ inherited fEditorContacto: TfEditorContacto
|
||||
object pagPersonal: TTabSheet
|
||||
Caption = 'Observaciones'
|
||||
ImageIndex = 2
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object memObservaciones22: TcxDBMemo
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -194,7 +210,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Height = 571
|
||||
Height = 580
|
||||
Width = 935
|
||||
end
|
||||
end
|
||||
@ -202,10 +218,6 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 949
|
||||
ExplicitWidth = 949
|
||||
inherited lbComentario: TLabel
|
||||
Width = 939
|
||||
Height = 25
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource [5]
|
||||
Left = 168
|
||||
|
||||
@ -8,7 +8,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 945
|
||||
ExplicitWidth = 648
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 945
|
||||
inherited Image1: TImage
|
||||
Left = 918
|
||||
Picture.Data = {
|
||||
@ -47,7 +48,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 945
|
||||
ExplicitWidth = 648
|
||||
ExplicitWidth = 945
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 945
|
||||
end
|
||||
@ -55,32 +56,33 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 801
|
||||
Width = 945
|
||||
ExplicitTop = 571
|
||||
ExplicitWidth = 648
|
||||
ExplicitTop = 801
|
||||
ExplicitWidth = 945
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 939
|
||||
Height = 689
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 459
|
||||
ExplicitTop = 109
|
||||
ExplicitWidth = 939
|
||||
ExplicitHeight = 689
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Top = 511
|
||||
Top = 458
|
||||
Width = 931
|
||||
TabOrder = 1
|
||||
ExplicitTop = 281
|
||||
ExplicitWidth = 634
|
||||
Visible = False
|
||||
ExplicitTop = 458
|
||||
ExplicitWidth = 931
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 931
|
||||
ExplicitTop = 25
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 406
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 178
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 931
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 931
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -99,7 +101,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 931
|
||||
Height = 511
|
||||
Height = 458
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -109,30 +111,30 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 0
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 458
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 931
|
||||
Height = 511
|
||||
Height = 458
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 0
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 458
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 886
|
||||
Left = 869
|
||||
Top = 218
|
||||
ExplicitLeft = 886
|
||||
ExplicitLeft = 869
|
||||
ExplicitTop = 218
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 886
|
||||
Left = 869
|
||||
Top = 190
|
||||
ExplicitLeft = 886
|
||||
ExplicitLeft = 869
|
||||
ExplicitTop = 190
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 886
|
||||
Left = 869
|
||||
Top = 162
|
||||
ExplicitLeft = 886
|
||||
ExplicitLeft = 869
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
@ -166,23 +168,23 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 267
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 518
|
||||
Left = 507
|
||||
Top = 243
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 518
|
||||
ExplicitLeft = 507
|
||||
ExplicitTop = 243
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 697
|
||||
Left = 686
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitLeft = 686
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
@ -201,6 +203,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
inherited cbGrupoProveedor: TcxDBComboBox
|
||||
Top = 165
|
||||
Enabled = False
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 227
|
||||
Width = 227
|
||||
@ -218,37 +221,37 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 221
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 697
|
||||
Left = 686
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitLeft = 686
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 697
|
||||
Left = 686
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitLeft = 686
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 697
|
||||
Left = 686
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitLeft = 686
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
@ -264,26 +267,26 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 263
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 303
|
||||
Left = 299
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 303
|
||||
ExplicitLeft = 299
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 254
|
||||
Width = 254
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 697
|
||||
Left = 686
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitLeft = 686
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
@ -295,26 +298,26 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 192
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 697
|
||||
Left = 686
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitLeft = 686
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 697
|
||||
Left = 686
|
||||
Top = 217
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 697
|
||||
ExplicitLeft = 686
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
@ -340,10 +343,11 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 253
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Left = 602
|
||||
Left = 591
|
||||
Top = 270
|
||||
Width = 290
|
||||
ExplicitLeft = 602
|
||||
Enabled = False
|
||||
ExplicitLeft = 591
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 290
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -372,21 +376,42 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 521
|
||||
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
|
||||
inherited pagDatosBancarios: TTabSheet
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
Width = 931
|
||||
Height = 661
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 931
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 931
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -431,16 +456,22 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
end
|
||||
inherited pagPersonal: TTabSheet
|
||||
Enabled = False
|
||||
TabVisible = False
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
inherited memObservaciones22: TcxDBMemo
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
Height = 661
|
||||
Width = 931
|
||||
end
|
||||
end
|
||||
object pagDatosComerciales: TTabSheet
|
||||
Caption = 'Datos comerciales'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -455,15 +486,16 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 225
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 931
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 931
|
||||
inherited Label1: TLabel
|
||||
Top = 135
|
||||
Width = 190
|
||||
Enabled = False
|
||||
ExplicitTop = 135
|
||||
ExplicitWidth = 190
|
||||
end
|
||||
@ -471,6 +503,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Left = 641
|
||||
Top = 30
|
||||
Width = 149
|
||||
Enabled = False
|
||||
ExplicitLeft = 641
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 149
|
||||
@ -519,6 +552,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
Top = 167
|
||||
Enabled = False
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -530,6 +564,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited eDiasVencimiento1: TcxDBSpinEdit
|
||||
Left = 713
|
||||
Top = 75
|
||||
Enabled = False
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -540,6 +575,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited eDiasVencimiento2: TcxDBSpinEdit
|
||||
Left = 713
|
||||
Top = 102
|
||||
Enabled = False
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -550,6 +586,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited eDiasVencimiento3: TcxDBSpinEdit
|
||||
Left = 713
|
||||
Top = 129
|
||||
Enabled = False
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -557,14 +594,26 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitLeft = 713
|
||||
ExplicitTop = 129
|
||||
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
|
||||
object pagDirecciones: TTabSheet
|
||||
Caption = 'Direcciones'
|
||||
Enabled = False
|
||||
ImageIndex = 3
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
TabVisible = False
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -579,17 +628,17 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 931
|
||||
Height = 636
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 436
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 636
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 931
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 931
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
@ -607,9 +656,9 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
object PagContabilidad: TTabSheet
|
||||
Caption = 'Contabilidad'
|
||||
Enabled = False
|
||||
ImageIndex = 4
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
TabVisible = False
|
||||
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -625,13 +674,13 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
inherited layoutApunte: TdxLayoutControl
|
||||
Width = 931
|
||||
Height = 661
|
||||
ExplicitWidth = 634
|
||||
ExplicitHeight = 431
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 661
|
||||
inherited eRefSubCuenta: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -679,7 +728,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 945
|
||||
ExplicitWidth = 648
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 945
|
||||
inherited lbComentario: TLabel
|
||||
Width = 935
|
||||
Height = 25
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
|
||||
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
|
||||
uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls,
|
||||
uViewPersonalContacto;
|
||||
uViewPersonalContacto, cxMemo;
|
||||
|
||||
type
|
||||
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
|
||||
@ -67,9 +67,9 @@ begin
|
||||
ViewContacto := frViewProveedor1;
|
||||
|
||||
{$IFDEF CONTABILIDAD}
|
||||
pagContabilidad.TabVisible := true;
|
||||
// pagContabilidad.TabVisible := true;
|
||||
{$ELSE}
|
||||
pagContabilidad.TabVisible := false;
|
||||
// pagContabilidad.TabVisible := false;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
@ -9,18 +9,18 @@ inherited frViewCliente: TfrViewCliente
|
||||
Width = 646
|
||||
Height = 563
|
||||
ExplicitWidth = 646
|
||||
ExplicitHeight = 609
|
||||
ExplicitHeight = 563
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 601
|
||||
ExplicitLeft = 601
|
||||
Left = 584
|
||||
ExplicitLeft = 584
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 601
|
||||
ExplicitLeft = 601
|
||||
Left = 584
|
||||
ExplicitLeft = 584
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 601
|
||||
ExplicitLeft = 601
|
||||
Left = 584
|
||||
ExplicitLeft = 584
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 132
|
||||
@ -62,24 +62,24 @@ inherited frViewCliente: TfrViewCliente
|
||||
Width = 213
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 268
|
||||
Left = 259
|
||||
Top = 247
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 268
|
||||
ExplicitLeft = 259
|
||||
ExplicitTop = 247
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 449
|
||||
Left = 440
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 440
|
||||
ExplicitWidth = 233
|
||||
Width = 233
|
||||
end
|
||||
@ -239,35 +239,35 @@ inherited frViewCliente: TfrViewCliente
|
||||
Width = 211
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 449
|
||||
Left = 440
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 440
|
||||
ExplicitWidth = 233
|
||||
Width = 233
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 449
|
||||
Left = 440
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 440
|
||||
ExplicitWidth = 233
|
||||
Width = 233
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 449
|
||||
Left = 440
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 440
|
||||
ExplicitWidth = 233
|
||||
Width = 233
|
||||
end
|
||||
@ -282,47 +282,47 @@ inherited frViewCliente: TfrViewCliente
|
||||
Width = 135
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 247
|
||||
Left = 242
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 247
|
||||
ExplicitLeft = 242
|
||||
ExplicitWidth = 59
|
||||
Width = 59
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 449
|
||||
Left = 440
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 440
|
||||
ExplicitWidth = 204
|
||||
Width = 204
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 449
|
||||
Left = 440
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 440
|
||||
ExplicitWidth = 204
|
||||
Width = 204
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 449
|
||||
Left = 440
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 20
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 440
|
||||
ExplicitWidth = 204
|
||||
Width = 204
|
||||
end
|
||||
@ -350,11 +350,11 @@ inherited frViewCliente: TfrViewCliente
|
||||
Width = 256
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Left = 354
|
||||
Left = 345
|
||||
Width = 270
|
||||
AutoSize = True
|
||||
TabOrder = 21
|
||||
ExplicitLeft = 354
|
||||
ExplicitLeft = 345
|
||||
ExplicitWidth = 270
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 270
|
||||
@ -379,6 +379,8 @@ inherited frViewCliente: TfrViewCliente
|
||||
ExplicitHeight = 127
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = dsContacto
|
||||
ExplicitWidth = 585
|
||||
ExplicitHeight = 127
|
||||
Height = 127
|
||||
Width = 585
|
||||
end
|
||||
@ -440,6 +442,7 @@ inherited frViewCliente: TfrViewCliente
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
|
||||
Visible = True
|
||||
inherited dxLayoutControlContactoItem8: TdxLayoutItem
|
||||
AutoAligns = [aaHorizontal]
|
||||
end
|
||||
|
||||
@ -45,23 +45,36 @@ inherited frViewClientes: TfrViewClientes
|
||||
VisibleForCustomization = False
|
||||
Width = 22
|
||||
end
|
||||
inherited cxGridViewTIENDA: TcxGridDBColumn
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewFECHA_ALTA: TcxGridDBColumn [4]
|
||||
Caption = 'Fecha alta'
|
||||
DataBinding.FieldName = 'FECHA_ALTA'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [7]
|
||||
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
Width = 164
|
||||
end
|
||||
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [9]
|
||||
Caption = 'Persona contacto'
|
||||
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||
end
|
||||
inherited cxGridViewPAGINA_WEB: TcxGridDBColumn
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'LISTA_NOMBRES'
|
||||
Visible = False
|
||||
BestFitMaxWidth = 60
|
||||
VisibleForCustomization = False
|
||||
Width = 90
|
||||
end
|
||||
end
|
||||
@ -75,15 +88,27 @@ inherited frViewClientes: TfrViewClientes
|
||||
Width = 633
|
||||
ExplicitWidth = 633
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 661
|
||||
Width = 661
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 217
|
||||
Width = 217
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 271
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 271
|
||||
ExplicitWidth = 427
|
||||
Width = 427
|
||||
|
||||
@ -415,6 +415,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
Top = 28
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.ReadOnly = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clWindow
|
||||
@ -473,7 +474,6 @@ inherited frViewContacto: TfrViewContacto
|
||||
ExplicitLeft = 312
|
||||
ExplicitTop = 280
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
ExplicitWidth = 290
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -503,8 +503,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'NOTAS'
|
||||
DataBinding.DataSource = dsContacto
|
||||
ExplicitWidth = 580
|
||||
ExplicitHeight = 163
|
||||
ExplicitHeight = 228
|
||||
Height = 228
|
||||
end
|
||||
end
|
||||
|
||||
@ -25,6 +25,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 138
|
||||
Top = 220
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 220
|
||||
@ -34,6 +38,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Left = 138
|
||||
Top = 247
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 247
|
||||
@ -43,6 +51,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Left = 138
|
||||
Top = 274
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 274
|
||||
@ -52,12 +64,20 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 271
|
||||
Top = 247
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 271
|
||||
ExplicitTop = 247
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 452
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 452
|
||||
ExplicitWidth = 91
|
||||
@ -170,6 +190,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 452
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 452
|
||||
ExplicitWidth = 127
|
||||
@ -177,6 +201,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 452
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 452
|
||||
ExplicitWidth = 155
|
||||
@ -184,6 +212,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 452
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 452
|
||||
ExplicitWidth = 121
|
||||
@ -191,12 +223,20 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Left = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 138
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 211
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 211
|
||||
ExplicitWidth = 205
|
||||
Width = 205
|
||||
@ -204,6 +244,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 452
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 452
|
||||
ExplicitWidth = 133
|
||||
@ -232,6 +276,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 452
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 452
|
||||
ExplicitWidth = 133
|
||||
@ -239,6 +287,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 452
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 20
|
||||
ExplicitLeft = 452
|
||||
ExplicitWidth = 133
|
||||
@ -246,6 +298,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 138
|
||||
ExplicitWidth = 38
|
||||
Width = 38
|
||||
@ -253,6 +309,10 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 138
|
||||
Top = 301
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 138
|
||||
ExplicitTop = 301
|
||||
@ -268,18 +328,25 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 451
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 376
|
||||
Width = 376
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewObservaciones1: TfrViewObservaciones
|
||||
Top = 442
|
||||
Width = 521
|
||||
Height = 228
|
||||
TabOrder = 22
|
||||
ExplicitTop = 442
|
||||
ExplicitWidth = 521
|
||||
ExplicitHeight = 228
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = dsContacto
|
||||
Height = 228
|
||||
Width = 521
|
||||
end
|
||||
@ -300,7 +367,6 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
object dxLayoutControlContactoItem24: TdxLayoutItem
|
||||
Caption = 'C'#243'digo de cliente:'
|
||||
Visible = False
|
||||
Control = eCodigoAsignado
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -327,6 +393,11 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup2: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoItem9: TdxLayoutItem
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
|
||||
Caption = 'El proveedor pertenece a la tienda'
|
||||
end
|
||||
|
||||
@ -29,11 +29,17 @@ inherited frViewProveedores: TfrViewProveedores
|
||||
ImageIndex = 1
|
||||
Value = 1
|
||||
end>
|
||||
Visible = False
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 22
|
||||
end
|
||||
inherited cxGridViewTIENDA: TcxGridDBColumn
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
inherited cxGridViewNOMBRE: TcxGridDBColumn
|
||||
BestFitMaxWidth = 0
|
||||
end
|
||||
@ -56,15 +62,27 @@ inherited frViewProveedores: TfrViewProveedores
|
||||
Width = 483
|
||||
ExplicitWidth = 483
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 386
|
||||
Width = 386
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 130
|
||||
Width = 130
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 234
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 234
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
|
||||
@ -16,15 +16,19 @@
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.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\Plugin\FacturasProveedor_plugin.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_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 - 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 - Recibos de cliente\ConCli_RecCli_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
|
||||
<Projects Include="Controller\ContratosCliente_controller.dproj" />
|
||||
<Projects Include="Data\ContratosCliente_data.dproj" />
|
||||
@ -182,6 +186,15 @@
|
||||
<Target Name="PreCli_ConCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" Targets="Make" />
|
||||
</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">
|
||||
<MSBuild Projects="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -281,14 +294,41 @@
|
||||
<Target Name="FacturasProveedor_plugin:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -268,6 +268,7 @@ begin
|
||||
begin
|
||||
AContrato.DataTable.Edit;
|
||||
AContrato.SITUACION := Situacion;
|
||||
AContrato.FECHA_DECISION := FechaDecision;
|
||||
AContrato.DataTable.Post;
|
||||
end;
|
||||
|
||||
@ -283,6 +284,7 @@ begin
|
||||
begin
|
||||
AContrato.DataTable.Edit;
|
||||
AContrato.SITUACION := Situacion;
|
||||
AContrato.FECHA_DECISION := FechaDecision;
|
||||
AContrato.DataTable.Post;
|
||||
end;
|
||||
Next;
|
||||
|
||||
@ -106,7 +106,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Provincia'
|
||||
DisplayLabel = 'ContratosCliente_PROVINCIA'
|
||||
DictionaryEntry = 'ContratosCliente_PROVINCIA'
|
||||
end
|
||||
item
|
||||
@ -337,12 +337,24 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'ContratosCliente_REFERENCIA_CLIENTE'
|
||||
DictionaryEntry = 'ContratosCliente_REFERENCIA_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'LISTA_NOMBRES'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Otros nombres'
|
||||
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_DECISION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FACTURA_ASOCIADA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{58A2DEFE-73CE-4294-A509-3456173EC1E8}';
|
||||
RID_Propiedades = '{FD279174-BDCF-4C6E-86A5-9EF688F8A386}';
|
||||
RID_ListaAnosContratos = '{995B8113-D69E-45F6-B0C6-279DE92E8AE1}';
|
||||
RID_ContratosClienteBeneficios = '{AADFE498-8072-4F5F-84FD-7BDAE2D03E88}';
|
||||
RID_ContratosCliente = '{6BBAF32D-E3F6-4C2F-BB50-EEB0BABCE782}';
|
||||
RID_TiposCapitulos = '{4355D117-B641-4CF9-99AC-17558CB0C354}';
|
||||
RID_ContratosCliente_Detalles = '{02F28C43-5EC9-4A4F-A2BC-CD4BF581ED0B}';
|
||||
RID_Valores = '{FF170B3B-0B30-4A6E-B36F-AED5E8250AC5}';
|
||||
RID_Propiedades = '{2CA5D47F-7A40-4C99-8D82-62D14C8611F9}';
|
||||
RID_ListaAnosContratos = '{CB4AC0C2-A13B-4E20-B34C-FA4B4B7AAAB7}';
|
||||
RID_ContratosClienteBeneficios = '{C8F49F14-3BD4-4EDC-B535-1084245828BA}';
|
||||
RID_ContratosCliente = '{84BF7884-DAEC-4F6F-82D1-6F65B0955416}';
|
||||
RID_TiposCapitulos = '{B2D051D8-4424-4B02-AD1F-C5BAE040894B}';
|
||||
RID_ContratosCliente_Detalles = '{9DBF2D50-49C9-4CE5-BFBD-D0DBFCE0EA8E}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -136,6 +136,8 @@ const
|
||||
fld_ContratosClienteCALIDADES = 'CALIDADES';
|
||||
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
|
||||
fld_ContratosClienteFECHA_DECISION = 'FECHA_DECISION';
|
||||
fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA';
|
||||
|
||||
{ ContratosCliente field indexes }
|
||||
idx_ContratosClienteID = 0;
|
||||
@ -187,6 +189,8 @@ const
|
||||
idx_ContratosClienteCALIDADES = 46;
|
||||
idx_ContratosClienteREFERENCIA_CLIENTE = 47;
|
||||
idx_ContratosClienteLISTA_NOMBRES = 48;
|
||||
idx_ContratosClienteFECHA_DECISION = 49;
|
||||
idx_ContratosClienteFACTURA_ASOCIADA = 50;
|
||||
|
||||
{ TiposCapitulos fields }
|
||||
fld_TiposCapitulosID = 'ID';
|
||||
@ -245,7 +249,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{8DC482B0-0D63-436F-AB19-74A480249588}']
|
||||
['{37D9C952-11C7-44D0-8A56-023852645B0F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -304,7 +308,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{83E4E5BD-A49A-4677-A830-7C9B83F3DDE4}']
|
||||
['{5252B717-197E-41E3-A902-78CD6A804EBD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -363,7 +367,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{35D2C046-61DA-487F-A0F4-5E3AB7CCA58D}']
|
||||
['{C59F0AC9-2FA9-46DB-B506-352CCE2AAA5E}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -398,7 +402,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficios }
|
||||
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
|
||||
['{FEA1561B-0DF3-4193-8881-62C4433488E8}']
|
||||
['{6EFAD955-7B1E-45EF-9DA1-D7596933323F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -601,7 +605,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{F2DEA876-B1A6-475D-8D1D-8D416E7D40CA}']
|
||||
['{C292C53E-7CE7-4DAC-8FED-D5984431BAF6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -793,6 +797,14 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String);
|
||||
function GetLISTA_NOMBRESIsNull: 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 }
|
||||
@ -894,6 +906,10 @@ type
|
||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
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;
|
||||
|
||||
{ TContratosClienteDataTableRules }
|
||||
@ -1103,6 +1119,14 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
|
||||
function GetLISTA_NOMBRESIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1203,6 +1227,10 @@ type
|
||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1215,7 +1243,7 @@ type
|
||||
}
|
||||
{ ITiposCapitulos }
|
||||
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
|
||||
['{5F81E7D5-452E-4E0A-88C8-1F996B6AF531}']
|
||||
['{6FD186D4-E64F-45A9-88A6-163E72D11671}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1310,7 +1338,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{251944F0-59A0-4544-BC1D-DC85411F2FD7}']
|
||||
['{43B88BE1-14BC-4332-889D-8091C7420325}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3121,6 +3149,48 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteLISTA_NOMBRES].AsVariant := Null;
|
||||
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 }
|
||||
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,18 +9,18 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{B57572E7-8CF0-400C-A161-CC3597A61C0B}';
|
||||
RID_PropiedadesDelta = '{9194A821-5316-4432-AB61-66CB529F49E3}';
|
||||
RID_ListaAnosContratosDelta = '{E141AD09-588D-4313-90DB-61941556C617}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}';
|
||||
RID_ContratosClienteDelta = '{07069709-DA46-44C8-9C1C-AAB3F80D3F26}';
|
||||
RID_TiposCapitulosDelta = '{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}';
|
||||
RID_ContratosCliente_DetallesDelta = '{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}';
|
||||
RID_ValoresDelta = '{8D6C76F9-F425-4A12-A6DA-CDADFCB371D5}';
|
||||
RID_PropiedadesDelta = '{785FA853-7F7C-4D4B-A3F1-F605B64D365A}';
|
||||
RID_ListaAnosContratosDelta = '{9AED0858-AA56-4911-97AE-7FA8F5BA1BDF}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{0A6BE4D0-4128-48DD-8E05-87DB06C0181F}';
|
||||
RID_ContratosClienteDelta = '{13EC691D-B231-48FE-BE2D-E8EC546D4FDA}';
|
||||
RID_TiposCapitulosDelta = '{ABCB3BD5-D32A-405C-9799-900FAB730F45}';
|
||||
RID_ContratosCliente_DetallesDelta = '{09923382-3A40-4992-9F2C-903B5B6CA290}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{B57572E7-8CF0-400C-A161-CC3597A61C0B}']
|
||||
['{8D6C76F9-F425-4A12-A6DA-CDADFCB371D5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -78,7 +78,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{9194A821-5316-4432-AB61-66CB529F49E3}']
|
||||
['{785FA853-7F7C-4D4B-A3F1-F605B64D365A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -136,7 +136,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{E141AD09-588D-4313-90DB-61941556C617}']
|
||||
['{9AED0858-AA56-4911-97AE-7FA8F5BA1BDF}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -170,7 +170,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficiosDelta }
|
||||
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
|
||||
['{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}']
|
||||
['{0A6BE4D0-4128-48DD-8E05-87DB06C0181F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -372,7 +372,7 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{07069709-DA46-44C8-9C1C-AAB3F80D3F26}']
|
||||
['{13EC691D-B231-48FE-BE2D-E8EC546D4FDA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -423,6 +423,8 @@ type
|
||||
function GetOldCALIDADESValue : IROStrings;
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldLISTA_NOMBRESValue : String;
|
||||
function GetOldFECHA_DECISIONValue : DateTime;
|
||||
function GetOldFACTURA_ASOCIADAValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -474,6 +476,8 @@ type
|
||||
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
|
||||
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
|
||||
end;
|
||||
|
||||
{ TContratosClienteBusinessProcessorRules }
|
||||
@ -781,6 +785,18 @@ type
|
||||
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -979,6 +995,14 @@ type
|
||||
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 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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -988,7 +1012,7 @@ type
|
||||
|
||||
{ ITiposCapitulosDelta }
|
||||
ITiposCapitulosDelta = interface(ITiposCapitulos)
|
||||
['{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}']
|
||||
['{ABCB3BD5-D32A-405C-9799-900FAB730F45}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -1082,7 +1106,7 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}']
|
||||
['{09923382-3A40-4992-9F2C-903B5B6CA290}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
@ -3609,6 +3633,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLISTA_NOMBRES] := Null;
|
||||
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 }
|
||||
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -12,7 +12,8 @@ const
|
||||
BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS = 'Client.ContratosClienteBeneficios';
|
||||
|
||||
SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE';
|
||||
SITUACION_CONTRATO_TERMINADO = 'TERMINADO';
|
||||
SITUACION_CONTRATO_ACEPTADO = 'ACEPTADO';
|
||||
SITUACION_CONTRATO_RECHAZADO = 'RECHAZADO';
|
||||
|
||||
type
|
||||
|
||||
@ -207,7 +208,8 @@ begin
|
||||
with Result do
|
||||
begin
|
||||
Add(SITUACION_CONTRATO_PENDIENTE);
|
||||
Add(SITUACION_CONTRATO_TERMINADO);
|
||||
Add(SITUACION_CONTRATO_ACEPTADO);
|
||||
Add(SITUACION_CONTRATO_RECHAZADO);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -134,13 +134,13 @@ object PluginContratosCliente: TPluginContratosCliente
|
||||
Top = 72
|
||||
object actContratosCliente: TAction
|
||||
Category = 'Ventas'
|
||||
Caption = 'Contratos de cliente'
|
||||
Caption = 'Presupuestos de cliente'
|
||||
ImageIndex = 0
|
||||
OnExecute = actContratosClienteExecute
|
||||
end
|
||||
object actInfContratos: TAction
|
||||
Category = 'Informes'
|
||||
Caption = 'Informe contratos'
|
||||
Caption = 'Informe presupuestos'
|
||||
OnExecute = actContratosClienteExecute
|
||||
end
|
||||
end
|
||||
|
||||
@ -78,7 +78,7 @@ var
|
||||
AContratosCliente : IBizContratoCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de contratos del cliente %s', [ANombreCliente]);
|
||||
// AText := Format('Lista de presupuestos de cliente - %s', [ANombreCliente]);
|
||||
AContratosClienteController := TContratosClienteController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
|
||||
@ -1207,8 +1207,7 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Top = 128
|
||||
end
|
||||
object IBDatabase1: TIBDatabase
|
||||
Connected = True
|
||||
DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
|
||||
DatabaseName = 'C:\Codigo Arribas2\Output\Debug\Database\FACTUGES.FDB'
|
||||
Params.Strings = (
|
||||
'user_name=sysdba'
|
||||
'password=masterkey'
|
||||
@ -1219,7 +1218,6 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Top = 296
|
||||
end
|
||||
object IBTransaction1: TIBTransaction
|
||||
Active = True
|
||||
Left = 48
|
||||
Top = 352
|
||||
end
|
||||
|
||||
@ -82,6 +82,10 @@ type
|
||||
FListaNombresClientes: TStringList;
|
||||
FImporteMinimo: Currency;
|
||||
FDesglosado : Boolean;
|
||||
FVerLogotipo : Boolean;
|
||||
FNombreEmpresa: String;
|
||||
FVerPrecios: Boolean;
|
||||
FVerTotales: Boolean;
|
||||
|
||||
procedure _GenerarContrato(const AID : Integer);
|
||||
|
||||
@ -146,6 +150,14 @@ var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
|
||||
//Inicializamos parametros
|
||||
FVerLogotipo := true;
|
||||
FNombreEmpresa := '';
|
||||
FVerPrecios := true;
|
||||
FVerTotales := true;
|
||||
|
||||
|
||||
try
|
||||
//Vamos generando todos y cada uno de los Contratos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
@ -482,6 +494,13 @@ var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
|
||||
//Inicializamos parametros
|
||||
FVerLogotipo := True;
|
||||
FNombreEmpresa := '';
|
||||
FVerPrecios := True;
|
||||
FVerTotales := True;
|
||||
|
||||
try
|
||||
//Vamos generando todos y cada uno de los Contratos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
@ -539,8 +558,13 @@ begin
|
||||
raise Exception.Create (('Error Servidor: _GenerarContrato, no encuentra informe ' + rptInforme));
|
||||
|
||||
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.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
@ -478,6 +478,14 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
DatasetField = 'LISTA_NOMBRES'
|
||||
TableField = 'LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_DECISION'
|
||||
TableField = 'FECHA_DECISION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FACTURA_ASOCIADA'
|
||||
TableField = 'FACTURA_ASOCIADA'
|
||||
end>
|
||||
end>
|
||||
Name = 'ContratosCliente'
|
||||
@ -752,6 +760,15 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_DECISION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FACTURA_ASOCIADA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1216,6 +1233,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_DECISION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1232,16 +1254,17 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
|
||||
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
|
||||
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
|
||||
'ENCIA_CLIENTE)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' +
|
||||
', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_PO' +
|
||||
'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' +
|
||||
' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' +
|
||||
'IVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_' +
|
||||
'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID' +
|
||||
'_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' +
|
||||
' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' +
|
||||
'E, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO' +
|
||||
', :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE)'#10#10
|
||||
'ENCIA_CLIENTE, FECHA_DECISION)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :' +
|
||||
'NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,' +
|
||||
#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, ' +
|
||||
':FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, ' +
|
||||
':INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE' +
|
||||
'_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BAS' +
|
||||
'E_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :' +
|
||||
'ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO,' +
|
||||
' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL' +
|
||||
', :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE,' +
|
||||
#10' :FECHA_DECISION)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1481,6 +1504,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_DECISION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1510,8 +1538,8 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
|
||||
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
|
||||
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
|
||||
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE'#10' WHERE'#10' (ID' +
|
||||
' = :OLD_ID)'#10#10
|
||||
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_DECI' +
|
||||
'SION = :FECHA_DECISION'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -76,7 +76,8 @@ requires
|
||||
JvCoreD11R,
|
||||
JvSystemD11R,
|
||||
JvPageCompsD11R,
|
||||
ConCli_PedProv_relation;
|
||||
ConCli_PedProv_relation,
|
||||
ConCli_RecCli_relation;
|
||||
|
||||
contains
|
||||
uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas',
|
||||
@ -94,6 +95,7 @@ contains
|
||||
uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame},
|
||||
uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: 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.
|
||||
|
||||
@ -49,51 +49,59 @@
|
||||
<DelphiCompile Include="ContratosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="ConCli_PedProv_relation.dcp" />
|
||||
<DCCReference Include="ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="cxGridD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_PedProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_RecCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.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="uEditorContratoCliente.pas">
|
||||
<Form>fEditorPresupuestoCliente</Form>
|
||||
@ -119,6 +127,10 @@
|
||||
<Form>fEditorElegirPresupuestosCliente</Form>
|
||||
<DesignClass>TfEditorElegirPedidosCliente</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorFechaDecisionContrato.pas">
|
||||
<Form>fEditorFechaDecisionContrato</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewClienteContrato.pas">
|
||||
<Form>frViewClienteContrato</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -155,13 +167,6 @@
|
||||
<Form>frViewElegirArticulosContratosCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclshlctrls.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -11,7 +11,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 872
|
||||
Caption = 'Nuevo contrato de cliente'
|
||||
Caption = 'Nuevo presupuesto de cliente'
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 872
|
||||
inherited Image1: TImage
|
||||
Left = 845
|
||||
@ -129,7 +130,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Width = 872
|
||||
ExplicitWidth = 872
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -173,118 +174,147 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 866
|
||||
Height = 464
|
||||
Height = 473
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitTop = 109
|
||||
ExplicitWidth = 866
|
||||
ExplicitHeight = 464
|
||||
ExplicitHeight = 473
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 445
|
||||
inline frViewContratoCliente1: TfrViewContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 858
|
||||
Height = 436
|
||||
Height = 445
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 445
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 858
|
||||
Height = 436
|
||||
Height = 445
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 445
|
||||
inherited edtFechaContrato: TcxDBDateEdit
|
||||
Left = 103
|
||||
Top = 84
|
||||
ExplicitLeft = 103
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
end
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Left = 449
|
||||
Top = 378
|
||||
ExplicitLeft = 449
|
||||
ExplicitTop = 378
|
||||
Left = 451
|
||||
Top = 330
|
||||
ExplicitLeft = 451
|
||||
ExplicitTop = 330
|
||||
ExplicitWidth = 404
|
||||
ExplicitHeight = 139
|
||||
Height = 139
|
||||
Width = 404
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 103
|
||||
Top = 30
|
||||
ExplicitLeft = 103
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 122
|
||||
Width = 122
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
Left = 103
|
||||
Top = 165
|
||||
ExplicitLeft = 103
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 122
|
||||
Width = 122
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 289
|
||||
Top = 138
|
||||
ExplicitLeft = 289
|
||||
ExplicitTop = 138
|
||||
Left = 291
|
||||
Top = 165
|
||||
ExplicitLeft = 291
|
||||
ExplicitTop = 165
|
||||
end
|
||||
inherited cbSituacion: TcxDBImageComboBox
|
||||
Top = 111
|
||||
ExplicitTop = 111
|
||||
Left = 103
|
||||
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
|
||||
Width = 260
|
||||
end
|
||||
inherited memFormaPago: TcxDBMemo
|
||||
Top = 216
|
||||
ExplicitTop = 216
|
||||
Top = 243
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 396
|
||||
ExplicitHeight = 100
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
inherited memPlazoEntrega: TcxDBMemo
|
||||
Top = 333
|
||||
ExplicitTop = 333
|
||||
Top = 351
|
||||
ExplicitTop = 351
|
||||
ExplicitWidth = 396
|
||||
ExplicitHeight = 100
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
inherited cbVendedor: TcxDBLookupComboBox
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
Left = 103
|
||||
Top = 192
|
||||
ExplicitLeft = 103
|
||||
ExplicitTop = 192
|
||||
ExplicitWidth = 27
|
||||
Width = 27
|
||||
end
|
||||
inherited cbTipoContrato: TcxDBComboBox
|
||||
Left = 310
|
||||
Left = 320
|
||||
Top = 84
|
||||
ExplicitLeft = 310
|
||||
ExplicitLeft = 320
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 113
|
||||
Width = 113
|
||||
end
|
||||
inherited edtlREF_CLIENTE: TcxDBTextEdit
|
||||
Left = 103
|
||||
Top = 57
|
||||
Enabled = False
|
||||
ExplicitLeft = 103
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 335
|
||||
Width = 335
|
||||
end
|
||||
inherited frViewClienteContrato1: TfrViewClienteContrato
|
||||
Left = 449
|
||||
Left = 451
|
||||
Top = 30
|
||||
Width = 357
|
||||
ExplicitLeft = 449
|
||||
ExplicitLeft = 451
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 357
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 357
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 357
|
||||
inherited Bevel1: TBevel
|
||||
Left = 82
|
||||
Top = 72
|
||||
@ -341,10 +371,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Width = 707
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 294
|
||||
Left = 292
|
||||
Top = 176
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitLeft = 294
|
||||
ExplicitLeft = 292
|
||||
ExplicitTop = 176
|
||||
end
|
||||
inherited Button1: TBitBtn
|
||||
@ -360,9 +390,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ExplicitTop = 11
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 184
|
||||
Left = 182
|
||||
Top = 230
|
||||
ExplicitLeft = 184
|
||||
ExplicitLeft = 182
|
||||
ExplicitTop = 230
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
@ -375,6 +405,32 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
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
|
||||
@ -385,7 +441,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 858
|
||||
Height = 436
|
||||
Height = 445
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -398,7 +454,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 445
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 858
|
||||
ExplicitWidth = 858
|
||||
@ -461,17 +517,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 858
|
||||
Height = 361
|
||||
ExplicitTop = 75
|
||||
Height = 373
|
||||
ExplicitTop = 72
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 361
|
||||
ExplicitHeight = 373
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 858
|
||||
ExplicitTop = 46
|
||||
ExplicitWidth = 858
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 858
|
||||
ExplicitWidth = 665
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox1: TcxLookupComboBox
|
||||
@ -487,12 +542,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
Enabled = False
|
||||
ImageIndex = 5
|
||||
TabVisible = False
|
||||
object dxLayoutControl2: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 858
|
||||
Height = 436
|
||||
Height = 445
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
@ -534,12 +591,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones'
|
||||
Enabled = False
|
||||
ImageIndex = 4
|
||||
TabVisible = False
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 858
|
||||
Height = 436
|
||||
Height = 445
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
@ -586,7 +645,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 858
|
||||
Height = 436
|
||||
Height = 445
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -597,7 +656,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 445
|
||||
inherited pnlSup: TPanel
|
||||
Width = 858
|
||||
ExplicitWidth = 858
|
||||
@ -607,13 +666,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 858
|
||||
Height = 408
|
||||
Height = 417
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 408
|
||||
ExplicitHeight = 417
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 854
|
||||
ExplicitHeight = 391
|
||||
Height = 391
|
||||
ExplicitHeight = 400
|
||||
Height = 400
|
||||
Width = 854
|
||||
end
|
||||
end
|
||||
@ -627,7 +686,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 858
|
||||
Height = 436
|
||||
Height = 445
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -638,17 +697,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 445
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 858
|
||||
ExplicitWidth = 858
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 858
|
||||
Height = 407
|
||||
ExplicitTop = 29
|
||||
Height = 422
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 407
|
||||
ExplicitHeight = 422
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Left = 8
|
||||
@ -659,6 +717,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 872
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 872
|
||||
inherited lbComentario: TLabel
|
||||
Width = 862
|
||||
|
||||
@ -381,13 +381,13 @@ begin
|
||||
if (FTitulo = '') and Assigned(FContrato) then
|
||||
begin
|
||||
if FContrato.EsNuevo then
|
||||
FTitulo := 'Nuevo Contrato de cliente'
|
||||
FTitulo := 'Nuevo presupuesto de cliente' //FTitulo := 'Nuevo Contrato de cliente'
|
||||
else
|
||||
FTitulo := 'Contrato de cliente' + ' - ' + FContrato.Cliente.Nombre + ' - ' + FContrato.SITUACION;
|
||||
FTitulo := 'Presupuesto de cliente' + ' - ' + FContrato.Cliente.Nombre + ' - ' + FContrato.SITUACION;
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||
Self.Caption := FTitulo; // + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||
end;
|
||||
|
||||
procedure TfEditorContratoCliente.PrevisualizarInterno;
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Caption = 'Lista de contratos de cliente'
|
||||
Caption = 'Lista de presupuestos de cliente'
|
||||
ClientHeight = 551
|
||||
ClientWidth = 1119
|
||||
ExplicitWidth = 1127
|
||||
@ -8,7 +8,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 1119
|
||||
Caption = 'Lista de contratos de cliente'
|
||||
Caption = 'Lista de presupuesto de cliente'
|
||||
ExplicitWidth = 1119
|
||||
inherited Image1: TImage
|
||||
Left = 1092
|
||||
@ -202,29 +202,31 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
DockPos = 343
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitWidth = 687
|
||||
ExplicitWidth = 370
|
||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem44: TTBXItem
|
||||
Action = actGenerarPedidoProv
|
||||
Action = actAceptar
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXSeparatorItem21: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem48: TTBXItem
|
||||
Action = actVerPedidosProveedor
|
||||
Action = actRechazar
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXSeparatorItem20: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem43: TTBXItem
|
||||
Action = actGenerarAlbaranCli
|
||||
Action = actGenerarReciboCli
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXSeparatorItem19: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem40: TTBXItem
|
||||
Action = actGenerarFactura
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXSeparatorItem19: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem46: TTBXItem
|
||||
Action = actInformes
|
||||
end
|
||||
@ -285,7 +287,9 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
object actListadoBeneficios: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Listar beneficios'
|
||||
Enabled = False
|
||||
ImageIndex = 26
|
||||
Visible = False
|
||||
OnExecute = actListadoBeneficiosExecute
|
||||
end
|
||||
object actGenerarPedidoProv: TAction
|
||||
@ -309,6 +313,27 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Visible = False
|
||||
OnExecute = actVerFacturasProveedorExecute
|
||||
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
|
||||
inherited SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
@ -1061,6 +1086,106 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
AE426082}
|
||||
Name = 'PngImage29'
|
||||
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>
|
||||
Bitmap = {}
|
||||
end
|
||||
|
||||
@ -54,6 +54,10 @@ type
|
||||
TBXSeparatorItem20: TTBXSeparatorItem;
|
||||
actVerFacturasProveedor: TAction;
|
||||
TBXItem49: TTBXItem;
|
||||
actAceptar: TAction;
|
||||
actRechazar: TAction;
|
||||
actGenerarReciboCli: TAction;
|
||||
TBXSeparatorItem21: TTBXSeparatorItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actGenerarAlbaranCliExecute(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
@ -81,6 +85,13 @@ type
|
||||
procedure actGenerarPedidoProvUpdate(Sender: TObject);
|
||||
procedure actVerPedidosProveedorExecute(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
|
||||
FContratos: IBizContratoCliente;
|
||||
@ -117,8 +128,9 @@ implementation
|
||||
uses
|
||||
uDataModuleContratosCliente, uDataModuleUsuarios, uFactuGES_App,
|
||||
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
|
||||
uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils,
|
||||
uGenerarAlbaranesCliUtils, uGestorInformesController, uGenerarPedidosProvUtils;
|
||||
uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils, uGenerarRecibosCliUtils,
|
||||
uGenerarAlbaranesCliUtils, uGestorInformesController, uGenerarPedidosProvUtils,
|
||||
uEditorFechaDecisionContrato;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
@ -127,24 +139,17 @@ uses
|
||||
*************************** TfEditorContratosCliente ***************************
|
||||
}
|
||||
procedure TfEditorContratosCliente.actAceptarExecute(Sender: TObject);
|
||||
{var
|
||||
var
|
||||
AContratos: IBizContratoCliente;
|
||||
AllItems: Boolean;}
|
||||
AllItems: Boolean;
|
||||
AFecha: TDate;
|
||||
begin
|
||||
{ AContratos := Nil;
|
||||
|
||||
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
|
||||
AFecha := Null;
|
||||
with TfEditorFechaDecision.Create(nil) do
|
||||
try
|
||||
if ShowModal = mrOk then
|
||||
AFecha := edtFechaDecision.Date;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
|
||||
if not VarIsNull(AFecha) then
|
||||
if ElegirFechaDecisionContrato(AFecha) then
|
||||
begin
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
@ -161,12 +166,11 @@ begin
|
||||
ViewGrid._Grid.BeginUpdate;
|
||||
if Assigned(AContratos) then
|
||||
begin
|
||||
FController.CambiarSituacion(AContratos, SITUACION_CONTRATO_TERMINADO, AFecha, AllItems);
|
||||
FController.CambiarSituacion(AContratos, SITUACION_CONTRATO_ACEPTADO, AFecha, AllItems);
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
ViewGrid._Grid.EndUpdate;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.actAceptarUpdate(Sender: TObject);
|
||||
@ -174,7 +178,7 @@ begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and ViewGrid.esSeleccionCeldaDatos
|
||||
and (FContratos.SITUACION <> SITUACION_CONTRATO_PENDIENTE);
|
||||
and (FContratos.SITUACION = SITUACION_CONTRATO_PENDIENTE);
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.actAnularExecute(Sender: TObject);
|
||||
@ -298,11 +302,10 @@ end;
|
||||
procedure TfEditorContratosCliente.actGenerarFacturaUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not (ViewGrid.NumSeleccionados > 1)
|
||||
and ViewGrid.esSeleccionCeldaDatos;
|
||||
|
||||
and ViewGrid.esSeleccionCeldaDatos
|
||||
and (FContratos.SITUACION = SITUACION_CONTRATO_ACEPTADO);
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosCliente.actGenerarPedidoProvExecute(Sender: TObject);
|
||||
@ -361,6 +364,36 @@ begin
|
||||
FController.VerListadoBeneficios;
|
||||
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(
|
||||
Sender: TObject);
|
||||
begin
|
||||
@ -423,6 +456,40 @@ begin
|
||||
FController.Ver(Contratos);
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
@ -594,7 +661,7 @@ var
|
||||
FTitulo : String;
|
||||
begin
|
||||
if (ATitulo = '') then
|
||||
FTitulo := 'Lista de contratos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE
|
||||
FTitulo := 'Lista de presupuestos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE
|
||||
else
|
||||
FTitulo := ATitulo;
|
||||
|
||||
|
||||
@ -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
|
||||
@ -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.
|
||||
@ -15,8 +15,6 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 810
|
||||
ExplicitHeight = 449
|
||||
DesignSize = (
|
||||
817
|
||||
491)
|
||||
@ -61,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Height = 139
|
||||
Width = 404
|
||||
end
|
||||
@ -92,7 +90,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 104
|
||||
Top = 136
|
||||
Top = 163
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -117,21 +115,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 122
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 267
|
||||
Top = 136
|
||||
Top = 163
|
||||
Width = 132
|
||||
Height = 21
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object cbSituacion: TcxDBImageComboBox
|
||||
Left = 104
|
||||
Top = 109
|
||||
Top = 136
|
||||
DataBinding.DataField = 'SITUACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.Items = <
|
||||
@ -156,12 +154,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 260
|
||||
end
|
||||
object memFormaPago: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 220
|
||||
Top = 247
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -177,35 +175,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
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
|
||||
Height = 100
|
||||
Width = 396
|
||||
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
|
||||
Left = 104
|
||||
Top = 163
|
||||
Top = 190
|
||||
DataBinding.DataField = 'ID_VENDEDOR'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -230,7 +228,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Width = 27
|
||||
end
|
||||
object cbTipoContrato: TcxDBComboBox
|
||||
@ -286,7 +284,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Top = 28
|
||||
Width = 366
|
||||
Height = 270
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 429
|
||||
ExplicitTop = 28
|
||||
@ -295,6 +293,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 366
|
||||
Height = 270
|
||||
ExplicitWidth = 366
|
||||
ExplicitHeight = 270
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 707
|
||||
Width = 707
|
||||
@ -323,12 +323,37 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Left = 164
|
||||
ExplicitLeft = 164
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Enabled = False
|
||||
Visible = False
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -376,6 +401,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item13: TdxLayoutItem
|
||||
Caption = 'Fecha decisi'#243'n:'
|
||||
Control = edtFechaDecision
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
|
||||
@ -67,6 +67,8 @@ type
|
||||
dxLayoutControl1Item12: TdxLayoutItem;
|
||||
edtlREF_CLIENTE: TcxDBTextEdit;
|
||||
frViewClienteContrato1: TfrViewClienteContrato;
|
||||
dxLayoutControl1Item13: TdxLayoutItem;
|
||||
edtFechaDecision: TcxDBDateEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
|
||||
@ -22,7 +22,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 contratos'
|
||||
Format = '0 presupuestos'
|
||||
Kind = skCount
|
||||
Column = cxGridViewREFERENCIA
|
||||
end
|
||||
@ -67,9 +67,15 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
SortOrder = soDescending
|
||||
Width = 58
|
||||
end
|
||||
object cxGridViewColumn1: TcxGridDBColumn
|
||||
Caption = 'Ref. contenido:'
|
||||
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
|
||||
object cxGridViewFECHA_CONTRATO: TcxGridDBColumn
|
||||
Caption = 'Fecha'
|
||||
DataBinding.FieldName = 'FECHA_CONTRATO'
|
||||
BestFitMaxWidth = 25
|
||||
Width = 105
|
||||
end
|
||||
object cxGridViewFECHA_DECISION: TcxGridDBColumn
|
||||
Caption = 'Fecha decisi'#243'n'
|
||||
DataBinding.FieldName = 'FECHA_DECISION'
|
||||
end
|
||||
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'TIPO_CONTRATO'
|
||||
@ -82,11 +88,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
BestFitMaxWidth = 25
|
||||
Width = 80
|
||||
end
|
||||
object cxGridViewFECHA_CONTRATO: TcxGridDBColumn
|
||||
Caption = 'Fecha contrato'
|
||||
DataBinding.FieldName = 'FECHA_CONTRATO'
|
||||
BestFitMaxWidth = 25
|
||||
Width = 105
|
||||
object cxGridViewColumn1: TcxGridDBColumn
|
||||
Caption = 'Ref. contenido:'
|
||||
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||
Caption = 'NIF/CIF'
|
||||
@ -134,6 +140,12 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
|
||||
Caption = 'Otros 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
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
@ -142,8 +154,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
object cxGridLevelPendientes: TcxGridLevel
|
||||
Caption = 'Pendientes'
|
||||
end
|
||||
object cxGridLevelTerminados: TcxGridLevel
|
||||
Caption = 'Terminados'
|
||||
object cxGridLevelAceptados: TcxGridLevel
|
||||
Caption = 'Aceptados'
|
||||
end
|
||||
object cxGridLevelRechazados: TcxGridLevel
|
||||
Caption = 'Rechazados'
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -155,15 +170,27 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Width = 903
|
||||
ExplicitWidth = 903
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 806
|
||||
Width = 806
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 285
|
||||
Width = 285
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 389
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 389
|
||||
ExplicitWidth = 504
|
||||
Width = 504
|
||||
|
||||
@ -30,7 +30,7 @@ type
|
||||
cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
|
||||
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
|
||||
cxGridLevelPendientes: TcxGridLevel;
|
||||
cxGridLevelTerminados: TcxGridLevel;
|
||||
cxGridLevelAceptados: TcxGridLevel;
|
||||
cxStylePENDIENTES: TcxStyle;
|
||||
cxStyleACEPTADO: TcxStyle;
|
||||
actCliente: TAction;
|
||||
@ -47,6 +47,9 @@ type
|
||||
cxGridViewVENDEDOR: TcxGridDBColumn;
|
||||
cxGridViewColumn1: TcxGridDBColumn;
|
||||
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
|
||||
cxGridLevelRechazados: TcxGridLevel;
|
||||
cxGridViewFECHA_DECISION: TcxGridDBColumn;
|
||||
cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
@ -139,7 +142,8 @@ begin
|
||||
|
||||
case cxGrid.ActiveLevel.Index of
|
||||
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;
|
||||
|
||||
@ -225,7 +229,9 @@ begin
|
||||
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
|
||||
if ASituacion = SITUACION_CONTRATO_PENDIENTE then
|
||||
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
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -126,9 +126,6 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
ExplicitWidth = 554
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 40415.784062094910000000
|
||||
|
||||
@ -86,7 +86,8 @@ begin
|
||||
|
||||
case cxGrid.ActiveLevel.Index of
|
||||
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;
|
||||
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
|
||||
Width = 975
|
||||
Height = 494
|
||||
Width = 855
|
||||
Height = 510
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 975
|
||||
Width = 855
|
||||
Height = 24
|
||||
inherited ToolButton4: TToolButton
|
||||
Wrap = False
|
||||
@ -82,8 +82,8 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 50
|
||||
Width = 975
|
||||
Height = 444
|
||||
Width = 855
|
||||
Height = 460
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
|
||||
Width = 57
|
||||
@ -93,49 +93,46 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
inherited cxGridViewVISIBLE2: TcxGridDBColumn [5]
|
||||
Visible = True
|
||||
BestFitMaxWidth = 20
|
||||
end
|
||||
inherited cxGridViewVISIBLE: TcxGridDBColumn [6]
|
||||
Caption = #191'Valorado?'
|
||||
Visible = True
|
||||
BestFitMaxWidth = 20
|
||||
end
|
||||
object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
|
||||
object cxGridViewPROPIEDAD: TcxGridDBColumn [5]
|
||||
Caption = 'Propiedad'
|
||||
DataBinding.FieldName = 'PROPIEDAD'
|
||||
PropertiesClassName = 'TcxRichEditProperties'
|
||||
Visible = False
|
||||
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
|
||||
VisibleForCustomization = False
|
||||
Width = 138
|
||||
end
|
||||
inherited cxGridViewREFERENCIA: TcxGridDBColumn [8]
|
||||
end
|
||||
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
|
||||
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
|
||||
DataBinding.FieldName = ''
|
||||
end
|
||||
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10]
|
||||
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
|
||||
Width = 186
|
||||
end
|
||||
inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
|
||||
inherited cxGridViewCANTIDAD: TcxGridDBColumn
|
||||
VisibleForCustomization = False
|
||||
Width = 20
|
||||
end
|
||||
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12]
|
||||
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
|
||||
VisibleForCustomization = False
|
||||
Width = 26
|
||||
end
|
||||
inherited cxGridViewDESCUENTO: TcxGridDBColumn [13]
|
||||
inherited cxGridViewDESCUENTO: TcxGridDBColumn
|
||||
VisibleForCustomization = False
|
||||
Width = 20
|
||||
end
|
||||
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14]
|
||||
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
Width = 29
|
||||
end
|
||||
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15]
|
||||
inherited cxGridViewVISIBLE: TcxGridDBColumn [13]
|
||||
Visible = True
|
||||
end
|
||||
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14]
|
||||
end
|
||||
inherited cxGridViewVISIBLE2: TcxGridDBColumn [15]
|
||||
Visible = True
|
||||
end
|
||||
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
|
||||
VisibleForCustomization = False
|
||||
@ -145,47 +142,55 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 24
|
||||
Width = 975
|
||||
Width = 855
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 663
|
||||
ExplicitWidth = 665
|
||||
object TBXSubmenuItem1: TTBXSubmenuItem [0]
|
||||
Caption = 'A'#241'adir cap'#237'tulo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
DropdownCombo = True
|
||||
ImageIndex = 12
|
||||
object TBXItem14: TTBXItem
|
||||
Action = actCapituloArmarioF
|
||||
end
|
||||
object TBXItem17: TTBXItem
|
||||
Action = actCapituloArmarioI
|
||||
end
|
||||
object TBXSeparatorItem10: TTBXSeparatorItem
|
||||
object TBXItem16: TTBXItem
|
||||
Action = actCapituloCocina
|
||||
end
|
||||
object TBXItem15: TTBXItem
|
||||
Action = actCapituloBano
|
||||
end
|
||||
object TBXSeparatorItem8: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem16: TTBXItem
|
||||
Action = actCapituloCocina
|
||||
end
|
||||
object TBXSeparatorItem7: TTBXSeparatorItem
|
||||
object TBXSeparatorItem10: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem19: TTBXItem
|
||||
Action = actCapituloElectrodomesticos
|
||||
Caption = 'Cap'#237'tulo de electrodom'#233'sticos'
|
||||
end
|
||||
object TBXItem22: TTBXItem
|
||||
Action = actCapituloObra
|
||||
end
|
||||
object TBXItem20: TTBXItem
|
||||
Action = actCapituloVarios
|
||||
end
|
||||
object TBXSeparatorItem11: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem21: TTBXItem
|
||||
Action = actCapituloImportes
|
||||
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
|
||||
object TBXSeparatorItem6: TTBXSeparatorItem [1]
|
||||
end
|
||||
|
||||
Binary file not shown.
@ -49,15 +49,15 @@
|
||||
<DelphiCompile Include="FacturasCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\FacturasCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RecibosCliente_controller.dcp" />
|
||||
<DCCReference Include="uArticulosFacturaClienteController.pas" />
|
||||
<DCCReference Include="uDetallesFacturaClienteController.pas" />
|
||||
<DCCReference Include="uFacturasClienteController.pas" />
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
|
||||
Windows, Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
|
||||
uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
|
||||
uBizFacturasCliente, uBizDireccionesContacto;
|
||||
|
||||
@ -135,7 +135,8 @@ uses
|
||||
uBizDetallesAlbaranCliente, uFacturasClienteReportController, DateUtils, Forms,
|
||||
Dialogs, uIntegerListUtils, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
|
||||
uBizEjercicios, uRecibosClienteController, uBizRecibosCliente,
|
||||
uSistemaFunc, uEMailUtils, uDialogElegirEMail;
|
||||
uSistemaFunc, uEMailUtils, uDialogElegirEMail, uDialogUtils;
|
||||
//, uDialogUtils, Windows;
|
||||
|
||||
|
||||
procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente;
|
||||
@ -1362,15 +1363,21 @@ var
|
||||
AFormaPago: IBizFormaPago;
|
||||
ARecibosClienteController: IRecibosClienteController;
|
||||
ARecibos: IBizRecibosCliente;
|
||||
ARecibosACuenta: IBizRecibosCliente;
|
||||
AFechaVencimiento: TDateTime;
|
||||
i: Integer;
|
||||
ADiaVencimiento: Integer;
|
||||
ADiasMas: Integer;
|
||||
BSemaforo: Boolean;
|
||||
AImporteTotal: Currency;
|
||||
aa: String;
|
||||
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
Exit;
|
||||
aa:= '';
|
||||
i := 1;
|
||||
AImporteTotal := AFactura.IMPORTE_TOTAL;
|
||||
|
||||
AFormasPagoController := TFormasPagoController.Create;
|
||||
AFormaPago := AFormasPagoController.Buscar(AFactura.ID_FORMA_PAGO);
|
||||
@ -1386,12 +1393,44 @@ begin
|
||||
ARecibos := ARecibosClienteController.BuscarRecibosFactura(AFactura.ID);
|
||||
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,
|
||||
//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)
|
||||
With AFormaPago.Plazos.DataTable do
|
||||
begin
|
||||
i := 1;
|
||||
First;
|
||||
repeat
|
||||
//SOLO PARA ACANA (Leer comentario anterior
|
||||
@ -1416,7 +1455,7 @@ begin
|
||||
if AFormaPago.Plazos.RecordCount < 1 then
|
||||
begin
|
||||
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
|
||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
|
||||
ARecibos.IMPORTE := AImporteTotal;
|
||||
end
|
||||
else
|
||||
begin
|
||||
@ -1456,7 +1495,7 @@ begin
|
||||
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
|
||||
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
|
||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||
ARecibos.IMPORTE := AImporteTotal * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||
end;
|
||||
|
||||
ARecibos.DESCRIPCION := 'RECIBO ' + ARecibos.REFERENCIA + ' - ' + CifraToLetras(ARecibos.IMPORTE);
|
||||
@ -1473,6 +1512,7 @@ begin
|
||||
AFormaPago := Nil;
|
||||
ARecibosClienteController := Nil;
|
||||
ARecibos := Nil;
|
||||
ARecibosACuenta := Nil;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.GetClienteController: IClientesController;
|
||||
@ -1486,4 +1526,3 @@ begin
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -22,7 +22,12 @@
|
||||
<Projects Include="..\Gestor de informes\Plugin\GestorInformes_plugin.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Views\GestorInformes_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="..\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="Data\FacturasCliente_data.dproj" />
|
||||
<Projects Include="Model\FacturasCliente_model.dproj" />
|
||||
@ -170,15 +175,6 @@
|
||||
<Target Name="FacturasCliente_model:Make">
|
||||
<MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="Make" />
|
||||
</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">
|
||||
<MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -188,6 +184,15 @@
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||
</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">
|
||||
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -251,14 +256,59 @@
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -193,9 +193,24 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Enabled = False
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
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
|
||||
@ -324,7 +339,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
object pagContabilidad: TTabSheet
|
||||
Caption = 'Contabilidad'
|
||||
Enabled = False
|
||||
ImageIndex = 2
|
||||
TabVisible = False
|
||||
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
||||
@ -80,7 +80,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Left = 431
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitWidth = 194
|
||||
ExplicitWidth = 83
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actCambiarSituacion
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -187,6 +187,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
|
||||
Visible = True
|
||||
end
|
||||
inherited cxGridViewREF_CONTRATO: TcxGridDBColumn
|
||||
Caption = 'Presupuesto'
|
||||
end
|
||||
inherited cxGridViewLISTA_NOMBRES: TcxGridDBColumn
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -298,13 +305,17 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
object actEnviarMail: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Enviar por e-mail'
|
||||
Enabled = False
|
||||
ImageIndex = 26
|
||||
Visible = False
|
||||
OnExecute = actEnviarMailExecute
|
||||
OnUpdate = actEnviarMailUpdate
|
||||
end
|
||||
object actCambiarSituacion: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Cambio de situaci'#243'n'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
OnExecute = actCambiarSituacionExecute
|
||||
end
|
||||
end
|
||||
|
||||
@ -433,6 +433,10 @@ var
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if FController.Anadir(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
{
|
||||
|
||||
Respuesta := JsNuevaFacturaDialog.Execute;
|
||||
|
||||
if Respuesta <> IDCANCEL then
|
||||
@ -453,7 +457,7 @@ begin
|
||||
finally
|
||||
FPedidosClienteController := NIL;
|
||||
end;}
|
||||
end;
|
||||
{ end;
|
||||
200 : begin // Utilizar albaranes
|
||||
GenerarFacturaCli;
|
||||
actRefrescar.Execute;
|
||||
@ -464,6 +468,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.OnListaAnosChange(Sender: TObject; const Text: string);
|
||||
|
||||
@ -194,6 +194,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
@ -290,6 +291,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Top = 84
|
||||
DataBinding.DataField = 'SITUACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.ImmediatePost = True
|
||||
Properties.Items.Strings = (
|
||||
@ -345,6 +347,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
Caption = 'Situaci'#243'n:'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
Control = edtSituacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -372,6 +376,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object ledtFechaVencimiento: TdxLayoutItem
|
||||
Caption = 'Fecha de vencimiento:'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
Control = edtFechaVencimiento
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -257,6 +257,14 @@ begin
|
||||
if not Assigned(AFactura) then
|
||||
raise Exception.Create ('Factura no asignada (Anadir)');
|
||||
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;
|
||||
end;
|
||||
|
||||
|
||||
@ -22,6 +22,7 @@
|
||||
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_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="Controller\FacturasProveedor_controller.dproj" />
|
||||
<Projects Include="Data\FacturasProveedor_data.dproj" />
|
||||
@ -251,14 +252,23 @@
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -2,20 +2,21 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Left = 454
|
||||
Top = 208
|
||||
Caption = 'Nueva factura de proveedor'
|
||||
ClientHeight = 606
|
||||
ClientWidth = 746
|
||||
ClientHeight = 668
|
||||
ClientWidth = 1111
|
||||
Position = poScreenCenter
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 754
|
||||
ExplicitHeight = 640
|
||||
ExplicitWidth = 1119
|
||||
ExplicitHeight = 702
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 746
|
||||
Width = 1111
|
||||
Caption = 'Nueva factura de proveedor'
|
||||
ExplicitWidth = 746
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 1111
|
||||
inherited Image1: TImage
|
||||
Left = 719
|
||||
Left = 1084
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -39,8 +40,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 746
|
||||
ExplicitWidth = 746
|
||||
Width = 1111
|
||||
ExplicitWidth = 1111
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 330
|
||||
inherited TBXItem2: TTBXItem
|
||||
@ -54,7 +55,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 746
|
||||
ExplicitWidth = 1111
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem8: TTBXItem
|
||||
Visible = False
|
||||
@ -69,32 +70,33 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 587
|
||||
Width = 746
|
||||
Top = 649
|
||||
Width = 1111
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 587
|
||||
ExplicitWidth = 746
|
||||
ExplicitTop = 649
|
||||
ExplicitWidth = 1111
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 740
|
||||
Height = 312
|
||||
ActivePage = PagContratos
|
||||
Width = 1105
|
||||
Height = 374
|
||||
ActivePage = pagContenido
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 740
|
||||
ExplicitHeight = 312
|
||||
ExplicitTop = 109
|
||||
ExplicitWidth = 1105
|
||||
ExplicitHeight = 374
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 732
|
||||
ExplicitHeight = 284
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 346
|
||||
inline frViewFacturaProveedor1: TfrViewFacturaProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 732
|
||||
Height = 284
|
||||
Width = 1097
|
||||
Height = 346
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -104,16 +106,16 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 732
|
||||
ExplicitHeight = 284
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 346
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 732
|
||||
Height = 284
|
||||
ExplicitWidth = 732
|
||||
ExplicitHeight = 284
|
||||
Width = 1097
|
||||
Height = 346
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 346
|
||||
DesignSize = (
|
||||
732
|
||||
284)
|
||||
1097
|
||||
346)
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
ExplicitWidth = 191
|
||||
Width = 191
|
||||
@ -127,8 +129,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Width = 53
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 183
|
||||
ExplicitLeft = 183
|
||||
Left = 548
|
||||
ExplicitLeft = 548
|
||||
end
|
||||
inherited eReferenciaProveedor: TcxDBTextEdit
|
||||
ExplicitWidth = 191
|
||||
@ -151,9 +153,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Width = 191
|
||||
end
|
||||
inherited frViewProveedorFactura1: TfrViewProveedorFactura
|
||||
Left = 343
|
||||
Left = 708
|
||||
Width = 350
|
||||
ExplicitLeft = 343
|
||||
ExplicitLeft = 708
|
||||
ExplicitWidth = 350
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 350
|
||||
@ -203,12 +205,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
inherited frViewObservaciones1: TfrViewObservaciones
|
||||
Width = 671
|
||||
Height = 228
|
||||
ExplicitWidth = 671
|
||||
ExplicitHeight = 228
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||
Height = 228
|
||||
ExplicitWidth = 1036
|
||||
ExplicitHeight = 20
|
||||
Width = 671
|
||||
end
|
||||
end
|
||||
@ -218,15 +219,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 732
|
||||
Height = 284
|
||||
Width = 1097
|
||||
Height = 346
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -238,88 +235,126 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 732
|
||||
ExplicitHeight = 284
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 346
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 732
|
||||
ExplicitWidth = 732
|
||||
Width = 1097
|
||||
Height = 24
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 24
|
||||
inherited ToolButton4: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 0
|
||||
ExplicitLeft = 0
|
||||
Left = 368
|
||||
Top = 0
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Left = 145
|
||||
Left = 513
|
||||
Top = 0
|
||||
Width = 57
|
||||
ExplicitLeft = 145
|
||||
ExplicitLeft = 513
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 57
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 202
|
||||
ExplicitLeft = 202
|
||||
Left = 570
|
||||
Top = 0
|
||||
ExplicitLeft = 570
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 219
|
||||
ExplicitLeft = 219
|
||||
Left = 587
|
||||
Top = 0
|
||||
ExplicitLeft = 587
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 227
|
||||
ExplicitLeft = 227
|
||||
Left = 595
|
||||
Top = 0
|
||||
ExplicitLeft = 595
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 261
|
||||
ExplicitLeft = 261
|
||||
Left = 629
|
||||
Top = 0
|
||||
ExplicitLeft = 629
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 295
|
||||
ExplicitLeft = 295
|
||||
Left = 663
|
||||
Top = 0
|
||||
ExplicitLeft = 663
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 329
|
||||
ExplicitLeft = 329
|
||||
Left = 697
|
||||
Top = 0
|
||||
ExplicitLeft = 697
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 337
|
||||
ExplicitLeft = 337
|
||||
Left = 705
|
||||
Top = 0
|
||||
ExplicitLeft = 705
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 371
|
||||
ExplicitLeft = 371
|
||||
Left = 739
|
||||
Top = 0
|
||||
ExplicitLeft = 739
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 405
|
||||
ExplicitLeft = 405
|
||||
Left = 773
|
||||
Top = 0
|
||||
ExplicitLeft = 773
|
||||
ExplicitTop = 0
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 732
|
||||
Height = 212
|
||||
ExplicitWidth = 732
|
||||
ExplicitHeight = 212
|
||||
Top = 50
|
||||
Width = 1097
|
||||
Height = 296
|
||||
ExplicitTop = 50
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 296
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 732
|
||||
ExplicitWidth = 732
|
||||
Top = 24
|
||||
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
|
||||
object PagContratos: TTabSheet
|
||||
Caption = 'Contratos'
|
||||
Caption = 'Presupuestos relacionados'
|
||||
Enabled = False
|
||||
ImageIndex = 2
|
||||
TabVisible = False
|
||||
inline frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 732
|
||||
Height = 284
|
||||
Width = 1097
|
||||
Height = 346
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -329,39 +364,29 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 732
|
||||
ExplicitHeight = 284
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 346
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 732
|
||||
Height = 259
|
||||
ExplicitWidth = 732
|
||||
ExplicitHeight = 259
|
||||
Width = 1097
|
||||
Height = 321
|
||||
ExplicitWidth = 1097
|
||||
ExplicitHeight = 321
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 732
|
||||
ExplicitWidth = 732
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
Width = 1097
|
||||
ExplicitWidth = 1097
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagContabilidad: TTabSheet
|
||||
Caption = 'Contabilidad'
|
||||
Enabled = False
|
||||
ImageIndex = 3
|
||||
TabVisible = False
|
||||
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 732
|
||||
Width = 1097
|
||||
Height = 69
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -372,10 +397,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 732
|
||||
ExplicitWidth = 1097
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 732
|
||||
ExplicitWidth = 732
|
||||
Width = 1097
|
||||
ExplicitWidth = 1097
|
||||
inherited cbSubCuentas: TcxComboBox
|
||||
Left = 92
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -387,12 +412,12 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Width = 407
|
||||
end
|
||||
inherited eContabilizar: TcxCheckBox
|
||||
Left = 505
|
||||
Left = 758
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 505
|
||||
ExplicitLeft = 758
|
||||
ExplicitWidth = 217
|
||||
Width = 217
|
||||
end
|
||||
@ -407,8 +432,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
Left = 0
|
||||
Top = 424
|
||||
Width = 746
|
||||
Top = 486
|
||||
Width = 1111
|
||||
Height = 163
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -419,101 +444,101 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
ReadOnly = False
|
||||
ExplicitTop = 424
|
||||
ExplicitWidth = 746
|
||||
ExplicitTop = 486
|
||||
ExplicitWidth = 1111
|
||||
ExplicitHeight = 163
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 746
|
||||
ExplicitWidth = 746
|
||||
Width = 1111
|
||||
ExplicitWidth = 1111
|
||||
inherited Bevel3: TBevel
|
||||
Left = 398
|
||||
Left = 630
|
||||
Top = 30
|
||||
Height = 122
|
||||
ExplicitLeft = 398
|
||||
ExplicitLeft = 630
|
||||
ExplicitTop = 30
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 510
|
||||
Left = 742
|
||||
Top = 57
|
||||
Width = 186
|
||||
ExplicitLeft = 510
|
||||
ExplicitLeft = 742
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 186
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Top = 57
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 207
|
||||
Width = 207
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 581
|
||||
Left = 813
|
||||
Top = 77
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 581
|
||||
ExplicitLeft = 813
|
||||
ExplicitTop = 77
|
||||
ExplicitWidth = 143
|
||||
Width = 143
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 511
|
||||
Left = 743
|
||||
Top = 131
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 511
|
||||
ExplicitLeft = 743
|
||||
ExplicitTop = 131
|
||||
ExplicitWidth = 213
|
||||
Width = 213
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Top = 57
|
||||
Top = 84
|
||||
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 510
|
||||
Left = 742
|
||||
Top = 77
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 510
|
||||
ExplicitLeft = 742
|
||||
ExplicitTop = 77
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 510
|
||||
Left = 742
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 510
|
||||
ExplicitLeft = 742
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 214
|
||||
Width = 214
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 510
|
||||
Left = 742
|
||||
Top = 104
|
||||
Properties.AssignedValues.MinValue = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -521,35 +546,35 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 510
|
||||
ExplicitLeft = 742
|
||||
ExplicitTop = 104
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 581
|
||||
Left = 813
|
||||
Top = 104
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 581
|
||||
ExplicitLeft = 813
|
||||
ExplicitTop = 104
|
||||
ExplicitWidth = 143
|
||||
Width = 143
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Top = 30
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 278
|
||||
Width = 278
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Top = 84
|
||||
Top = 111
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -558,43 +583,60 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
OnEditing = frViewTotales1ePorteEditing
|
||||
ExplicitTop = 84
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 278
|
||||
Width = 278
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 111
|
||||
Top = 138
|
||||
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
|
||||
Style.Color = clInfoBk
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 140
|
||||
Width = 140
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 250
|
||||
Top = 111
|
||||
Left = 482
|
||||
Top = 138
|
||||
OnClick = frViewTotales1bTiposIVAClick
|
||||
ExplicitLeft = 250
|
||||
ExplicitTop = 111
|
||||
ExplicitLeft = 482
|
||||
ExplicitTop = 138
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 138
|
||||
Top = 165
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 138
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 278
|
||||
Width = 278
|
||||
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
|
||||
LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Visible = True
|
||||
end
|
||||
inherited dxLayoutControl1Item8: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
||||
Visible = False
|
||||
inherited dxLayoutControl1Group10: TdxLayoutGroup
|
||||
@ -623,8 +665,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
end
|
||||
inherited PnlComentario: TPanel [5]
|
||||
Width = 746
|
||||
ExplicitWidth = 746
|
||||
Width = 1111
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 1111
|
||||
inherited lbComentario: TLabel
|
||||
Width = 1101
|
||||
Height = 25
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [9]
|
||||
Left = 8
|
||||
|
||||
@ -43,7 +43,9 @@ type
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
|
||||
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
|
||||
procedure RecalcularPortePorUnidad;
|
||||
@ -165,6 +167,7 @@ begin
|
||||
|
||||
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
|
||||
Factura.DataTable.Active := True;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturaProveedor.frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
|
||||
@ -195,6 +198,13 @@ begin
|
||||
Factura.DESCUENTO := DisplayValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturaProveedor.frViewTotales1eImporteDetalleResumenPropertiesEditValueChanged(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
showmessage('recalcular importes detalle');
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
@ -352,6 +362,7 @@ var
|
||||
AMensaje : String;
|
||||
begin
|
||||
inherited;
|
||||
{
|
||||
if (not Assigned(FFactura)) or (FFactura.ID_PROVEEDOR = ID_NULO) then
|
||||
begin
|
||||
if FFactura.TIPO = CTE_TIPO_FACTURA then
|
||||
@ -361,6 +372,7 @@ begin
|
||||
ShowWarningMessage(AMensaje);
|
||||
AllowChange := False;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturaProveedor.PonerTitulos(const ATitulo: string);
|
||||
|
||||
@ -31,8 +31,6 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
ExplicitWidth = 412
|
||||
ExplicitHeight = 515
|
||||
object Bevel4: TBevel
|
||||
Left = 10
|
||||
Top = 329
|
||||
@ -168,6 +166,7 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Top = 98
|
||||
DataBinding.DataField = 'ID_SUBCUENTA'
|
||||
DataBinding.DataSource = dsFormaPago
|
||||
Enabled = False
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
Properties.ListColumns = <
|
||||
item
|
||||
@ -199,6 +198,7 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Caption = 'Ignorar en contabilidad'
|
||||
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
|
||||
DataBinding.DataSource = dsFormaPago
|
||||
Enabled = False
|
||||
Properties.ValueChecked = 1
|
||||
Properties.ValueUnchecked = 0
|
||||
TabOrder = 4
|
||||
@ -234,7 +234,9 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object panelVencimiento: TdxLayoutGroup
|
||||
Enabled = False
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
|
||||
@ -134,13 +134,17 @@ object PluginPresupuestosCliente: TPluginPresupuestosCliente
|
||||
Top = 72
|
||||
object actPresupuestosCliente: TAction
|
||||
Category = 'Ventas'
|
||||
Caption = 'Presupuestos de cliente'
|
||||
Caption = 'Presupuestos de cliente desactivado'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actPresupuestosClienteExecute
|
||||
end
|
||||
object actInfPresupuestos: TAction
|
||||
Category = 'Informes'
|
||||
Caption = 'Informe presupuestos'
|
||||
Caption = 'Informe presupuestos desactivado'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
OnExecute = actPresupuestosClienteExecute
|
||||
end
|
||||
end
|
||||
|
||||
@ -1071,8 +1071,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Top = 128
|
||||
end
|
||||
object IBDatabase1: TIBDatabase
|
||||
Connected = True
|
||||
DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
|
||||
DatabaseName = 'C:\Codigo Arribas2\Output\Debug\Database\FACTUGES.FDB'
|
||||
Params.Strings = (
|
||||
'user_name=sysdba'
|
||||
'password=masterkey'
|
||||
@ -1083,7 +1082,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Top = 296
|
||||
end
|
||||
object IBTransaction1: TIBTransaction
|
||||
Active = True
|
||||
Left = 48
|
||||
Top = 352
|
||||
end
|
||||
|
||||
@ -61,6 +61,7 @@ type
|
||||
|
||||
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosContrato(const ID_CONTRATO: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||
function BuscarRecibosARemesar(const AListaVisibles, AListaNoVisibles: TStringList): IBizRecibosCliente;
|
||||
|
||||
@ -86,6 +87,7 @@ type
|
||||
|
||||
function DarListaAnosRecibos: TStringList;
|
||||
procedure FiltrarAno(ARecibo: IBizRecibosCliente; ADynWhereDataTable: WideString; const Ano: String);
|
||||
|
||||
end;
|
||||
|
||||
TRecibosClienteController = class(TControllerBase, IRecibosClienteController)
|
||||
@ -135,6 +137,7 @@ type
|
||||
|
||||
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosContrato(const ID_CONTRATO: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||
function BuscarRecibosARemesar(const AListaVisibles, AListaNoVisibles: TStringList): IBizRecibosCliente;
|
||||
|
||||
@ -160,6 +163,8 @@ type
|
||||
|
||||
function DarListaAnosRecibos: TStringList;
|
||||
procedure FiltrarAno(ARecibo: IBizRecibosCliente; ADynWhereDataTable: WideString; const Ano: String);
|
||||
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -437,6 +442,42 @@ begin
|
||||
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;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
@ -49,8 +49,8 @@
|
||||
<DelphiCompile Include="RecibosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Pagos\16x16\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Pagos\16x16\RecibosCliente_model.dcp" />
|
||||
<DCCReference Include="uDataModuleRecibosCliente.pas">
|
||||
<Form>DataModuleRecibosCliente</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
|
||||
@ -392,6 +392,19 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
Size = 255
|
||||
DisplayLabel = '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>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -579,6 +592,15 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'LISTA_NOMBRES'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosRecibos = '{6F080A07-7F79-49DA-8223-2A765568A41D}';
|
||||
RID_RecibosCliente = '{FF13E325-433D-4B3F-ACBD-95CB1636F3EE}';
|
||||
RID_PagosCliente = '{1E77A59F-B566-4264-8DB5-E93D18972BB8}';
|
||||
RID_RecibosCompensadosCli = '{98D8A267-FB74-476C-A8E5-F8CD6C1E4CD5}';
|
||||
RID_ListaAnosRecibos = '{D5B6BF26-7BBC-47E0-B49F-E6F4D3B44319}';
|
||||
RID_RecibosCliente = '{B32FEACD-28B0-4FF2-8003-F5A89897D1B2}';
|
||||
RID_PagosCliente = '{992BD3A1-1E54-4F16-9744-B8F6390D83C6}';
|
||||
RID_RecibosCompensadosCli = '{745905DF-2406-47A4-953E-36D56DF294E3}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosRecibos = 'ListaAnosRecibos';
|
||||
@ -65,6 +65,9 @@ const
|
||||
fld_RecibosClienteTIENDA = 'TIENDA';
|
||||
fld_RecibosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
|
||||
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 }
|
||||
idx_RecibosClienteID = 0;
|
||||
@ -105,6 +108,9 @@ const
|
||||
idx_RecibosClienteTIENDA = 35;
|
||||
idx_RecibosClienteLISTA_NOMBRES = 36;
|
||||
idx_RecibosClienteCUENTA_CONTABLE = 37;
|
||||
idx_RecibosClienteID_CONTRATO = 38;
|
||||
idx_RecibosClienteID_CON_FACTURA = 39;
|
||||
idx_RecibosClienteREFERENCIA_CONTRATO = 40;
|
||||
|
||||
{ PagosCliente fields }
|
||||
fld_PagosClienteID = 'ID';
|
||||
@ -183,6 +189,8 @@ const
|
||||
fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
|
||||
fld_RecibosCompensadosCliID_TIENDA = 'ID_TIENDA';
|
||||
fld_RecibosCompensadosCliTIENDA = 'TIENDA';
|
||||
fld_RecibosCompensadosCliLISTA_NOMBRES = 'LISTA_NOMBRES';
|
||||
fld_RecibosCompensadosCliID_CONTRATO = 'ID_CONTRATO';
|
||||
|
||||
{ RecibosCompensadosCli field indexes }
|
||||
idx_RecibosCompensadosCliID = 0;
|
||||
@ -221,11 +229,13 @@ const
|
||||
idx_RecibosCompensadosCliUSUARIO = 33;
|
||||
idx_RecibosCompensadosCliID_TIENDA = 34;
|
||||
idx_RecibosCompensadosCliTIENDA = 35;
|
||||
idx_RecibosCompensadosCliLISTA_NOMBRES = 36;
|
||||
idx_RecibosCompensadosCliID_CONTRATO = 37;
|
||||
|
||||
type
|
||||
{ IListaAnosRecibos }
|
||||
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
|
||||
['{56AA9455-4989-40E3-B732-0FE6B0E52E03}']
|
||||
['{D3C1EE97-0A4D-4B95-94FA-8F71079694AF}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -239,7 +249,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosRecibosDataTableRules }
|
||||
TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
|
||||
TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -260,7 +270,7 @@ type
|
||||
|
||||
{ IRecibosCliente }
|
||||
IRecibosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{5072D408-2297-4727-B0A0-EB3FCB2C231C}']
|
||||
['{29EF7928-3ACF-4AA1-985F-316885B0F742}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -414,6 +424,18 @@ type
|
||||
procedure SetCUENTA_CONTABLEValue(const aValue: String);
|
||||
function GetCUENTA_CONTABLEIsNull: 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 }
|
||||
@ -493,10 +515,16 @@ type
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
|
||||
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;
|
||||
|
||||
{ TRecibosClienteDataTableRules }
|
||||
TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
|
||||
TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -652,6 +680,18 @@ type
|
||||
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
|
||||
function GetCUENTA_CONTABLEIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -730,6 +770,12 @@ type
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -739,7 +785,7 @@ type
|
||||
|
||||
{ IPagosCliente }
|
||||
IPagosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{CFAC341F-7138-4FBB-AC89-E63550865FCC}']
|
||||
['{08480DE6-29F3-4979-93F8-2C70BE75F582}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -855,7 +901,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPagosClienteDataTableRules }
|
||||
TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
|
||||
TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -978,7 +1024,7 @@ type
|
||||
|
||||
{ IRecibosCompensadosCli }
|
||||
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
|
||||
['{C1ABC344-B387-4169-A394-4F93FD736B79}']
|
||||
['{33CEE61F-AA71-4B69-890D-B4A8730BF65F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1124,6 +1170,14 @@ type
|
||||
procedure SetTIENDAValue(const aValue: String);
|
||||
function GetTIENDAIsNull: 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 }
|
||||
@ -1199,10 +1253,14 @@ type
|
||||
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
|
||||
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
|
||||
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;
|
||||
|
||||
{ TRecibosCompensadosCliDataTableRules }
|
||||
TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
|
||||
TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1350,6 +1408,14 @@ type
|
||||
procedure SetTIENDAValue(const aValue: String); virtual;
|
||||
function GetTIENDAIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1424,6 +1490,10 @@ type
|
||||
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
|
||||
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2277,6 +2347,69 @@ begin
|
||||
DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsVariant := Null;
|
||||
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 }
|
||||
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -3435,6 +3568,48 @@ begin
|
||||
DataTable.Fields[idx_RecibosCompensadosCliTIENDA].AsVariant := Null;
|
||||
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
|
||||
RegisterDataTableRules(RID_ListaAnosRecibos, TListaAnosRecibosDataTableRules);
|
||||
|
||||
@ -9,15 +9,15 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosRecibosDelta = '{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}';
|
||||
RID_RecibosClienteDelta = '{46CE98E3-16F4-43A1-8219-F238C0D52079}';
|
||||
RID_PagosClienteDelta = '{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}';
|
||||
RID_RecibosCompensadosCliDelta = '{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}';
|
||||
RID_ListaAnosRecibosDelta = '{72D48DE9-24CF-46E8-851D-FFB3C34EF8A0}';
|
||||
RID_RecibosClienteDelta = '{7C11BE84-F76A-4894-B7D2-2148A6A5FDB2}';
|
||||
RID_PagosClienteDelta = '{7C905E12-6184-4266-A621-3082A0495D15}';
|
||||
RID_RecibosCompensadosCliDelta = '{0CE1BC42-8D5A-4EA3-9E6F-E0158BD7F9B1}';
|
||||
|
||||
type
|
||||
{ IListaAnosRecibosDelta }
|
||||
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
|
||||
['{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}']
|
||||
['{72D48DE9-24CF-46E8-851D-FFB3C34EF8A0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -51,7 +51,7 @@ type
|
||||
|
||||
{ IRecibosClienteDelta }
|
||||
IRecibosClienteDelta = interface(IRecibosCliente)
|
||||
['{46CE98E3-16F4-43A1-8219-F238C0D52079}']
|
||||
['{7C11BE84-F76A-4894-B7D2-2148A6A5FDB2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||
@ -91,6 +91,9 @@ type
|
||||
function GetOldTIENDAValue : String;
|
||||
function GetOldLISTA_NOMBRESValue : String;
|
||||
function GetOldCUENTA_CONTABLEValue : String;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
function GetOldID_CON_FACTURAValue : Integer;
|
||||
function GetOldREFERENCIA_CONTRATOValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -131,6 +134,9 @@ type
|
||||
property OldTIENDA : String read GetOldTIENDAValue;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
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;
|
||||
|
||||
{ TRecibosClienteBusinessProcessorRules }
|
||||
@ -366,6 +372,24 @@ type
|
||||
function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
|
||||
procedure SetCUENTA_CONTABLEValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -520,6 +544,18 @@ type
|
||||
property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
|
||||
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -529,7 +565,7 @@ type
|
||||
|
||||
{ IPagosClienteDelta }
|
||||
IPagosClienteDelta = interface(IPagosCliente)
|
||||
['{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}']
|
||||
['{7C905E12-6184-4266-A621-3082A0495D15}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBOValue : Integer;
|
||||
@ -767,7 +803,7 @@ type
|
||||
|
||||
{ IRecibosCompensadosCliDelta }
|
||||
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
|
||||
['{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}']
|
||||
['{0CE1BC42-8D5A-4EA3-9E6F-E0158BD7F9B1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||
@ -805,6 +841,8 @@ type
|
||||
function GetOldUSUARIOValue : String;
|
||||
function GetOldID_TIENDAValue : Integer;
|
||||
function GetOldTIENDAValue : String;
|
||||
function GetOldLISTA_NOMBRESValue : String;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -843,6 +881,8 @@ type
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
|
||||
property OldTIENDA : String read GetOldTIENDAValue;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
|
||||
end;
|
||||
|
||||
{ TRecibosCompensadosCliBusinessProcessorRules }
|
||||
@ -1066,6 +1106,18 @@ type
|
||||
function GetOldTIENDAIsNull: Boolean; virtual;
|
||||
procedure SetTIENDAValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1212,6 +1264,14 @@ type
|
||||
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
|
||||
property OldTIENDA : String read GetOldTIENDAValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -2456,6 +2516,99 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null;
|
||||
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 }
|
||||
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -4154,6 +4307,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliTIENDA] := Null;
|
||||
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
|
||||
RegisterBusinessProcessorRules(RID_ListaAnosRecibosDelta, TListaAnosRecibosBusinessProcessorRules);
|
||||
|
||||
@ -67,13 +67,14 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
'A, v_recibos_cliente.FECHA_ALTA, v_recibos_cliente.FECHA_MODIFIC' +
|
||||
'ACION, v_recibos_cliente.USUARIO,'#10' v_recibos_cliente.ID_TIEND' +
|
||||
'A, v_recibos_cliente.TIENDA, v_recibos_cliente.LISTA_NOMBRES,'#10' ' +
|
||||
' cont_subcuentas.descripcion as CUENTA_CONTABLE'#10'from v_recibos_' +
|
||||
'cliente'#10' left outer join pagos_cliente pag on'#10' (pag.id' +
|
||||
'_recibo = v_recibos_cliente.id)'#10' left outer join pagos_client' +
|
||||
'e pag2 on'#10' ((pag2.id_recibo = pag.id_recibo) and (pag2.id' +
|
||||
' > pag.id))'#10' left outer join cont_subcuentas on'#10' (cont' +
|
||||
'_subcuentas.id = pag.cuenta)'#10'where (pag2.id is null) and {Where}' +
|
||||
#10
|
||||
' cont_subcuentas.descripcion as CUENTA_CONTABLE, v_recibos_clie' +
|
||||
'nte.ID_CONTRATO, v_recibos_cliente.ID_CON_FACTURA, v_recibos_cli' +
|
||||
'ente.REFERENCIA_CONTRATO'#10'from v_recibos_cliente'#10' left outer j' +
|
||||
'oin pagos_cliente pag on'#10' (pag.id_recibo = v_recibos_clie' +
|
||||
'nte.id)'#10' left outer join pagos_cliente pag2 on'#10' ((pag2' +
|
||||
'.id_recibo = pag.id_recibo) and (pag2.id > pag.id))'#10' left out' +
|
||||
'er join cont_subcuentas on'#10' (cont_subcuentas.id = pag.cue' +
|
||||
'nta)'#10'where (pag2.id is null) and {Where}'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -228,6 +229,18 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'RecibosCliente'
|
||||
@ -449,6 +462,19 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
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
|
||||
item
|
||||
@ -783,6 +809,14 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
item
|
||||
DatasetField = 'PROVINCIA'
|
||||
TableField = 'PROVINCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'LISTA_NOMBRES'
|
||||
TableField = 'LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CONTRATO'
|
||||
TableField = 'ID_CONTRATO'
|
||||
end>
|
||||
end>
|
||||
Name = 'RecibosCompensadosCli'
|
||||
@ -955,6 +989,15 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'LISTA_NOMBRES'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
@ -1023,14 +1066,17 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1041,58 +1087,86 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_EMISION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OTROS_GASTOS'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -1104,11 +1178,12 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
|
||||
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' +
|
||||
'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,' +
|
||||
#10' FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :I' +
|
||||
'D_FACTURA, :REFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DES' +
|
||||
'CRIPCION, :OBSERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO,' +
|
||||
' :ID_TIENDA, :NOMBRE, :NIF_CIF, :CALLE, :POBLACION, :PROVINCIA, ' +
|
||||
':CODIGO_POSTAL,'#10' current_timestamp)'#10
|
||||
#10' FECHA_ALTA, ID_CONTRATO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
|
||||
'D_CLIENTE, :ID_FACTURA, :REFERENCIA, :FECHA_EMISION, :FECHA_VENC' +
|
||||
'IMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' :IMPORTE, :OTROS_GAST' +
|
||||
'OS, :USUARIO, :ID_TIENDA, :NOMBRE, :NIF_CIF, :CALLE, :POBLACION,' +
|
||||
' :PROVINCIA, :CODIGO_POSTAL,'#10' current_timestamp, :ID_CONTRATO' +
|
||||
')'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1136,70 +1211,112 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_REMESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_EMISION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OTROS_GASTOS'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
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 = ''
|
||||
end
|
||||
item
|
||||
@ -1220,7 +1337,8 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' +
|
||||
'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' +
|
||||
'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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -90,10 +90,12 @@ object fEditorFechaPago: TfEditorFechaPago
|
||||
end
|
||||
inherited eContabilizar: TcxCheckBox
|
||||
Left = 393
|
||||
Enabled = False
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
Visible = False
|
||||
ExplicitLeft = 393
|
||||
ExplicitWidth = 203
|
||||
Width = 203
|
||||
|
||||
@ -41,7 +41,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
Width = 645
|
||||
ExplicitWidth = 645
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 645
|
||||
ExplicitWidth = 640
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 431
|
||||
@ -204,7 +204,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
Left = 136
|
||||
Top = 176
|
||||
inherited actNuevo: TAction
|
||||
Enabled = False
|
||||
ImageIndex = 22
|
||||
Visible = False
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
Visible = True
|
||||
|
||||
@ -83,6 +83,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.ImmediatePost = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
@ -471,6 +472,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewObservaciones1: TfrViewObservaciones
|
||||
@ -531,6 +538,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Vencimiento:'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
Control = edtFechaVencimiento
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -544,6 +553,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
object dxLayoutControl1Item16: TdxLayoutItem
|
||||
Caption = 'Ref. remesa:'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
Control = eRemesa
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -109,9 +109,11 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
|
||||
Caption = 'Fecha vencimiento'
|
||||
DataBinding.FieldName = 'FECHA_VENCIMIENTO'
|
||||
Visible = False
|
||||
BestFitMaxWidth = 70
|
||||
SortIndex = 0
|
||||
SortOrder = soDescending
|
||||
VisibleForCustomization = False
|
||||
Width = 40
|
||||
end
|
||||
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||
@ -170,9 +172,11 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
DataBinding.FieldName = 'REFERENCIA_REMESA'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Visible = False
|
||||
BestFitMaxWidth = 70
|
||||
GroupSummaryAlignment = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
VisibleForCustomization = False
|
||||
Width = 48
|
||||
end
|
||||
object cxGridViewCALLE: TcxGridDBColumn
|
||||
@ -204,6 +208,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
DataBinding.FieldName = 'CUENTA_CONTABLE'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
end
|
||||
object cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn
|
||||
Caption = 'Ref. presupuesto'
|
||||
DataBinding.FieldName = 'REFERENCIA_CONTRATO'
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todos'
|
||||
@ -227,15 +235,27 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
Width = 686
|
||||
ExplicitWidth = 686
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 434
|
||||
Width = 434
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 183
|
||||
Width = 183
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 367
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 367
|
||||
ExplicitWidth = 234
|
||||
Width = 234
|
||||
|
||||
@ -59,6 +59,7 @@ type
|
||||
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
|
||||
cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
|
||||
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
|
||||
@ -195,9 +195,10 @@ begin
|
||||
AFactura := AFacturasClienteController.Nuevo;
|
||||
CopiarContratoAFactura(AContrato, AFactura);
|
||||
CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles);
|
||||
AFacturasClienteController.Ver(AFactura);
|
||||
|
||||
//Sustituir por if de guardar
|
||||
if AFacturasClienteController.Guardar(AFactura) then
|
||||
{ if AFacturasClienteController.Guardar(AFactura) then
|
||||
begin
|
||||
// Asocio el contrato al presupuesto
|
||||
with dmGenerarFacturasCli.JsListaFacturasGenerados do
|
||||
@ -218,7 +219,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
}
|
||||
Result := True;
|
||||
finally
|
||||
if Assigned(AContratosClienteController) then
|
||||
|
||||
@ -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
|
||||
@ -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.
|
||||
@ -53,7 +53,9 @@ object PluginRemesasCliente: TPluginRemesasCliente
|
||||
object actRemesasCliente: TAction
|
||||
Category = 'Ventas'
|
||||
Caption = 'Remesas de cobro'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actRemesasClienteExecute
|
||||
end
|
||||
end
|
||||
|
||||
@ -53,7 +53,9 @@ object PluginRemesasProveedor: TPluginRemesasProveedor
|
||||
object actRemesasProveedor: TAction
|
||||
Category = 'Compras'
|
||||
Caption = 'Remesas de pago'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actRemesasProveedorExecute
|
||||
end
|
||||
end
|
||||
|
||||
@ -123,8 +123,6 @@ uses
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_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',
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_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',
|
||||
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
|
||||
|
||||
|
||||
@ -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">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
|
||||
<Form>RptListadosContactos</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
|
||||
<Form>RptContratosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
|
||||
<Form>srvContratosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
|
||||
<Form>RptListadosContactos</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
|
||||
<Form>RptContratosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
|
||||
<Form>srvContratosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
Binary file not shown.
@ -41,9 +41,9 @@ object dmServer: TdmServer
|
||||
item
|
||||
Name = 'IBX'
|
||||
ConnectionString =
|
||||
'IBX?Server=localhost;Database=C:\Codigo Acana\Output\Debug\Datab' +
|
||||
'ase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Char' +
|
||||
'set=ISO8859_1;'
|
||||
'IBX?Server=localhost;Database=C:\Codigo Arribas2\Output\Debug\Da' +
|
||||
'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
|
||||
'harset=ISO8859_1;'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
end>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user