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

Versión 2.4.9

Browse Source 
Tareas #88: Modelos de capítulos
Tareas #892: Al añadir un articulo meter todos sus datos (imagen) y dar a guardar falla. (si guardo sin imagen y luego añado la imagen funciona)
Tareas #893: Poder establecer las familias en los capitulos

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@561 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2012-05-23 11:49:20 +00:00
parent b5f281e742
commit 21a115e205
48 changed files with 2739 additions and 642 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm
View File

@ -2,8 +2,8 @@ object fConfiguracionEditor: TfConfiguracionEditor
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'Configuraci'#243'n de FactuGES' Caption = 'Configuraci'#243'n de FactuGES'
ClientHeight = 524 ClientHeight = 655
ClientWidth = 733 ClientWidth = 788
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -22,7 +22,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
Left = 8 Left = 8
Top = 8 Top = 8
Width = 150 Width = 150
Height = 466 Height = 597
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 4 Margins.Right = 4
@ -37,6 +37,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
OptionsView.NavigationPane.ShowHeader = False OptionsView.NavigationPane.ShowHeader = False
OptionsView.NavigationPane.ShowOverflowPanel = False OptionsView.NavigationPane.ShowOverflowPanel = False
OnLinkClick = dxNavBarLinkClick OnLinkClick = dxNavBarLinkClick
ExplicitHeight = 466
object GroupCategorias: TdxNavBarGroup object GroupCategorias: TdxNavBarGroup
Caption = 'Categor'#237'as' Caption = 'Categor'#237'as'
SelectedLinkIndex = -1 SelectedLinkIndex = -1
@ -46,18 +47,19 @@ object fConfiguracionEditor: TfConfiguracionEditor
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 482 Top = 613
Width = 733 Width = 788
Height = 42 Height = 42
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
ExplicitWidth = 635 ExplicitTop = 482
ExplicitWidth = 733
DesignSize = ( DesignSize = (
733 788
42) 42)
object bCancelar: TButton object bCancelar: TButton
Left = 650 Left = 705
Top = 10 Top = 10
Width = 75 Width = 75
Height = 25 Height = 25
@ -66,10 +68,10 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Cancelar' Caption = '&Cancelar'
ModalResult = 2 ModalResult = 2
TabOrder = 0 TabOrder = 0
ExplicitLeft = 552 ExplicitLeft = 650
end end
object bAceptar: TButton object bAceptar: TButton
Left = 569 Left = 624
Top = 10 Top = 10
Width = 75 Width = 75
Height = 25 Height = 25
@ -77,21 +79,22 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Aceptar' Caption = '&Aceptar'
ModalResult = 1 ModalResult = 1
TabOrder = 1 TabOrder = 1
ExplicitLeft = 471 ExplicitLeft = 569
end end
end end
object PageControlMain: TPageControl object PageControlMain: TPageControl
AlignWithMargins = True AlignWithMargins = True
Left = 166 Left = 166
Top = 6 Top = 6
Width = 559 Width = 614
Height = 468 Height = 599
Margins.Left = 4 Margins.Left = 4
Margins.Top = 6 Margins.Top = 6
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitWidth = 461 ExplicitWidth = 559
ExplicitHeight = 468
end end
end end

138
Source/Base/Base.dproj
View File

@ -64,6 +64,48 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@ -79,54 +121,54 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

9
Source/Cliente/FactuGES.dproj
View File

@ -46,6 +46,7 @@
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
@ -53,6 +54,14 @@
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</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.4.8.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.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</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.4.8.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.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

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

2
Source/GUIBase/uEditorBase.pas
View File

@ -169,7 +169,7 @@ begin
if AControl is TcxCustomEdit then if AControl is TcxCustomEdit then
ActiveEditor:= TcxCustomEdit(AControl); ActiveEditor:= TcxCustomEdit(AControl);
if Assigned(ActiveEditor) then if Assigned(ActiveEditor) then
ActiveEditor.PostEditValue; ActiveEditor.PostEditValue;
end; end;
{ {

14
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

12
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

13
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -364,7 +364,7 @@ begin
Result.Edit; Result.Edit;
with Result do with Result do
begin begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
end; end;
@ -388,13 +388,14 @@ begin
raise Exception.Create('Debe indicar al menos la descripción de este artículo.'); raise Exception.Create('Debe indicar al menos la descripción de este artículo.');
// Asegurarse de valores en campos "automáticos" // Asegurarse de valores en campos "automáticos"
AArticulo.Edit; if not AArticulo.DataTable.Editing then
AArticulo.Edit;
try try
AArticulo.USUARIO := AppFactuGES.UsuarioActivo.UserName; AArticulo.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True; Result := True;
finally finally
AArticulo.Post; if AArticulo.DataTable.Editing then
AArticulo.Post;
end; end;
end; end;
@ -640,12 +641,10 @@ procedure TArticulosController.PonerImagen(AArticulo: IBizArticulo; const AFileN
begin begin
if FileExists(AFileName) then if FileExists(AFileName) then
begin begin
DesconectarTabla(AArticulo.DataTable);
if not AArticulo.DataTable.Editing then if not AArticulo.DataTable.Editing then
AArticulo.Edit; AArticulo.Edit;
AArticulo.DataTable.FieldByName(fld_ArticulosIMAGEN).LoadFromFile(AFileName); AArticulo.DataTable.FieldByName(fld_ArticulosIMAGEN).LoadFromFile(AFileName);
AArticulo.Post; AArticulo.Post;
ConectarTabla(AArticulo.DataTable);
end; end;
end; end;

2
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -65,6 +65,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
Name = 'IMAGEN' Name = 'IMAGEN'
DataType = datBlob DataType = datBlob
BlobType = dabtGraphic BlobType = dabtGraphic
LogChanges = False
DisplayLabel = 'Foto' DisplayLabel = 'Foto'
end end
item item
@ -188,6 +189,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
item item
Name = 'IMAGEN' Name = 'IMAGEN'
DataType = datBlob DataType = datBlob
LogChanges = False
end end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'

91
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -3,19 +3,27 @@ unit schArticulosClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Articulos = '{F53C14ED-C343-42D8-8A25-6BB3A141FD22}'; RID_ExisteImagen = '{17B1E5DC-0839-4F73-A6CE-1E961327B343}';
RID_ArticulosParaCliente = '{B1D54489-E268-483E-AF01-6E441FBF6DC0}'; RID_Articulos = '{2149AC69-F867-42DA-8AED-68F469111FD5}';
RID_ArticulosParaCliente = '{E4F0E298-DAFE-4330-B4DD-3C04505B273A}';
{ Data table names } { Data table names }
nme_ExisteImagen = 'ExisteImagen';
nme_Articulos = 'Articulos'; nme_Articulos = 'Articulos';
nme_ArticulosParaCliente = 'ArticulosParaCliente'; nme_ArticulosParaCliente = 'ArticulosParaCliente';
{ ExisteImagen fields }
fld_ExisteImagenID = 'ID';
{ ExisteImagen field indexes }
idx_ExisteImagenID = 0;
{ Articulos fields } { Articulos fields }
fld_ArticulosID = 'ID'; fld_ArticulosID = 'ID';
fld_ArticulosID_EMPRESA = 'ID_EMPRESA'; fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
@ -105,9 +113,44 @@ const
idx_ArticulosParaClienteELIMINADO = 19; idx_ArticulosParaClienteELIMINADO = 19;
type type
{ IExisteImagen }
IExisteImagen = interface(IDAStronglyTypedDataTable)
['{060DC060-1362-46EB-83A8-00224E4BA4DC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
end;
{ TExisteImagenDataTableRules }
TExisteImagenDataTableRules = class(TDADataTableRules, IExisteImagen)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IArticulos } { IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable) IArticulos = interface(IDAStronglyTypedDataTable)
['{7AB1F398-443E-4F30-BBD4-AA8BD49A1C0B}'] ['{FAB0E582-EA62-4762-84D7-79E31C26F996}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -234,7 +277,7 @@ type
end; end;
{ TArticulosDataTableRules } { TArticulosDataTableRules }
TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos) TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
private private
f_IMAGEN: IROStream; f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject); procedure IMAGEN_OnChange(Sender: TObject);
@ -370,7 +413,7 @@ type
{ IArticulosParaCliente } { IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable) IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{358932C8-FF5E-41C2-B0C9-A4C7423A57B8}'] ['{A54CB1AD-9DB8-4427-BDC3-A3B9B14280E8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -497,7 +540,7 @@ type
end; end;
{ TArticulosParaClienteDataTableRules } { TArticulosParaClienteDataTableRules }
TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente) TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
private private
f_IMAGEN: IROStream; f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject); procedure IMAGEN_OnChange(Sender: TObject);
@ -635,6 +678,39 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TExisteImagenDataTableRules }
constructor TExisteImagenDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TExisteImagenDataTableRules.Destroy;
begin
inherited;
end;
function TExisteImagenDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ExisteImagenID].AsInteger;
end;
procedure TExisteImagenDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ExisteImagenID].AsInteger := aValue;
end;
function TExisteImagenDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ExisteImagenID].IsNull;
end;
procedure TExisteImagenDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ExisteImagenID].AsVariant := Null;
end;
{ TArticulosDataTableRules } { TArticulosDataTableRules }
constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable); constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
var var
@ -1522,6 +1598,7 @@ end;
initialization initialization
RegisterDataTableRules(RID_ExisteImagen, TExisteImagenDataTableRules);
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules); RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules); RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);

87
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,13 +9,48 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{EF3BCE84-BF72-4D25-B5C4-02DC99E2C0B2}'; RID_ExisteImagenDelta = '{6AAD9495-D1DC-4BD5-8DE8-AFF266BC6501}';
RID_ArticulosParaClienteDelta = '{E180507C-4070-490C-A07F-A5047BD0F477}'; RID_ArticulosDelta = '{D24AF9A2-3AED-4094-B870-1F3DBA7677F8}';
RID_ArticulosParaClienteDelta = '{2EAA9D80-3FE0-45F6-A1E2-A725762EE394}';
type type
{ IExisteImagenDelta }
IExisteImagenDelta = interface(IExisteImagen)
['{6AAD9495-D1DC-4BD5-8DE8-AFF266BC6501}']
{ Property getters and setters }
function GetOldIDValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
end;
{ TExisteImagenBusinessProcessorRules }
TExisteImagenBusinessProcessorRules = class(TDABusinessProcessorRules, IExisteImagen, IExisteImagenDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IArticulosDelta } { IArticulosDelta }
IArticulosDelta = interface(IArticulos) IArticulosDelta = interface(IArticulos)
['{EF3BCE84-BF72-4D25-B5C4-02DC99E2C0B2}'] ['{D24AF9A2-3AED-4094-B870-1F3DBA7677F8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -278,7 +313,7 @@ type
{ IArticulosParaClienteDelta } { IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente) IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{E180507C-4070-490C-A07F-A5047BD0F477}'] ['{2EAA9D80-3FE0-45F6-A1E2-A725762EE394}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -544,6 +579,49 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TExisteImagenBusinessProcessorRules }
constructor TExisteImagenBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TExisteImagenBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TExisteImagenBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteImagenID];
end;
function TExisteImagenBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteImagenID]);
end;
function TExisteImagenBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteImagenID];
end;
function TExisteImagenBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ExisteImagenID]);
end;
procedure TExisteImagenBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteImagenID] := aValue;
end;
procedure TExisteImagenBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ExisteImagenID] := Null;
end;
{ TArticulosBusinessProcessorRules } { TArticulosBusinessProcessorRules }
constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var var
@ -1833,6 +1911,7 @@ end;
initialization initialization
RegisterBusinessProcessorRules(RID_ExisteImagenDelta, TExisteImagenBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);

2
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -273,6 +273,7 @@ object srvArticulos: TsrvArticulos
Name = 'IMAGEN' Name = 'IMAGEN'
DataType = datBlob DataType = datBlob
BlobType = dabtGraphic BlobType = dabtGraphic
LogChanges = False
DisplayLabel = 'Foto' DisplayLabel = 'Foto'
end end
item item
@ -485,6 +486,7 @@ object srvArticulos: TsrvArticulos
item item
Name = 'IMAGEN' Name = 'IMAGEN'
DataType = datBlob DataType = datBlob
LogChanges = False
end end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'

BIN
Source/Modulos/Articulos/Views/Articulos_view.RES
View File

Binary file not shown.

17
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -42,6 +42,7 @@
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath> <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath> <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath> <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
@ -54,11 +55,11 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Articulos_controller.dcp" /> <DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Articulos_model.dcp" /> <DCCReference Include="..\Articulos_model.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Familias_controller.dcp" /> <DCCReference Include="..\Familias_controller.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>
@ -89,7 +90,7 @@
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006
Activate=0 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1
Foreground Tab=0 Foreground Tab=0
@ -255,7 +256,7 @@ mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1 Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error." mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1 Count mtDialog_Caption=1
mtDialog_Caption0="Error." mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2 Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution." mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details." mtDialog_ErrorMsgCaption1="Please read the following information for further details."
@ -567,5 +568,5 @@ Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen." mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection=English TextsCollection=
EurekaLog Last Line --> EurekaLog Last Line -->

5
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -119,10 +119,7 @@ inherited fEditorArticulo: TfEditorArticulo
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 624 Width = 624
inherited lbComentario: TLabel ExplicitWidth = 624
Width = 614
Height = 25
end
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 128 Top = 128

20
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,5 +1,5 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 451 Width = 990
Height = 304 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
@ -10,18 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 990
Height = 393 Height = 393
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 451
DesignSize = ( DesignSize = (
451 990
393) 393)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 546 Left = 945
Top = 28 Top = 28
Width = 23 Width = 23
Height = 22 Height = 22
@ -48,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 546 Left = 945
Top = 56 Top = 56
Width = 23 Width = 23
Height = 22 Height = 22
@ -121,10 +122,9 @@ inherited frViewArticulo: TfrViewArticulo
Width = 144 Width = 144
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 409 Left = 678
Top = 28 Top = 28
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True
Properties.PopupMenuLayout.MenuItems = [] Properties.PopupMenuLayout.MenuItems = []
Properties.Stretch = True Properties.Stretch = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -167,7 +167,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 70 Width = 70
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 219 Left = 618
Top = 166 Top = 166
Width = 350 Width = 350
Height = 202 Height = 202
@ -179,7 +179,7 @@ inherited frViewArticulo: TfrViewArticulo
ParentFont = False ParentFont = False
TabOrder = 12 TabOrder = 12
ReadOnly = False ReadOnly = False
ExplicitLeft = 219 ExplicitLeft = 618
ExplicitTop = 166 ExplicitTop = 166
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
@ -306,7 +306,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 86 Width = 86
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 242 Left = 406
Top = 109 Top = 109
Caption = 'Art'#237'culo no inventariable' Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataField = 'INVENTARIABLE'

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

@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -253,7 +253,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TDADataTableRules, IValores) TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -312,7 +312,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -359,7 +359,7 @@ type
end; end;
{ TListaAnosContratosDataTableRules } { TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -454,7 +454,7 @@ type
end; end;
{ TContratosClienteBeneficiosDataTableRules } { TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios) TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -809,7 +809,7 @@ type
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
private private
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
@ -1145,7 +1145,7 @@ type
end; end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1300,7 +1300,7 @@ type
end; end;
{ TContratosCliente_DetallesDataTableRules } { TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

BIN
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES
View File

Binary file not shown.

10
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -17,6 +17,7 @@ type
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
@ -48,6 +49,8 @@ type
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
//Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos //Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
@ -130,7 +133,7 @@ begin
ADetalles.DataTable.Edit; ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesPROPIEDAD).AsString := ACapitulo.PROPIEDAD; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesPROPIEDAD).AsString := ACapitulo.CONCEPTO;
Next; Next;
until EOF; until EOF;
end; end;
@ -159,6 +162,11 @@ begin
FArticulosController := TArticulosPresupuestoClienteController.Create; FArticulosController := TArticulosPresupuestoClienteController.Create;
end; end;
function TDetallesPresupuestoClienteController.BuscarCapitulo(const Tipo: String): IBizCapitulo;
begin
Result := FDataModule.GetCapitulo(Tipo);
end;
function TDetallesPresupuestoClienteController.PedirDescuento: Variant; function TDetallesPresupuestoClienteController.PedirDescuento: Variant;
var var
AEditor: IEditorAsignarDescuento; AEditor: IEditorAsignarDescuento;

BIN
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES
View File

Binary file not shown.

50
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -470,28 +470,74 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Required = True Required = True
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_POSICION'
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'CapitulosPresupuesto_TIPO_DETALLE'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end end
item item
Name = 'TIPO_ARTICULO' Name = 'TIPO_ARTICULO'
DataType = datString DataType = datString
Size = 2 Size = 2
DisplayLabel = 'CapitulosPresupuesto_TIPO_ARTICULO'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
end end
item item
Name = 'PROPIEDAD' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'CapitulosPresupuesto_CONCEPTO'
DictionaryEntry = 'CapitulosPresupuesto_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_CANTIDAD'
DictionaryEntry = 'CapitulosPresupuesto_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_TOTAL'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_TOTAL'
end
item
Name = 'DESCUENTO'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_DESCUENTO'
DictionaryEntry = 'CapitulosPresupuesto_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_PORTE'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end
item
Name = 'VISIBLE'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_VISIBLE'
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

1
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -192,6 +192,7 @@ begin
ACapitulo.BusinessRulesID := BIZ_CLIENT_CAPITULOS; ACapitulo.BusinessRulesID := BIZ_CLIENT_CAPITULOS;
Result := (ACapitulo as IBizCapitulo); Result := (ACapitulo as IBizCapitulo);
Result.Tipo := TIPO_ARTICULO;
with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
begin begin

2
Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosCliente.pas
View File

@ -15,7 +15,7 @@ type
function GetItem(const ID : Integer) : IBizPresupuestoCliente; function GetItem(const ID : Integer) : IBizPresupuestoCliente;
function NewItem : IBizPresupuestoCliente; function NewItem : IBizPresupuestoCliente;
function GetPropiedades : IBizPropiedades; function GetPropiedades : IBizPropiedades;
function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo; function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo;
end; end;
implementation implementation

278
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{3F54B7A7-2485-451E-A0A1-8097FCFE8FF3}'; RID_Valores = '{6348B4C1-5922-413E-9A20-13FACB52DC4D}';
RID_Propiedades = '{33469FFB-91A9-4C08-A5D2-F0EE66507E4D}'; RID_Propiedades = '{FA67BDBC-F85D-4E3D-B403-7AC43AF007F3}';
RID_ListaAnosPresupuestos = '{2F66482F-A1D1-4C81-B38C-595BEF96A735}'; RID_ListaAnosPresupuestos = '{9CE1B82B-66E8-498E-9559-105748B1B8D0}';
RID_PresupuestosCliente = '{3DDEE7F7-DDE9-4B90-BFB5-176B2D61F96A}'; RID_PresupuestosCliente = '{13CE35AE-8D8D-488C-8C8D-70063B48C2C5}';
RID_CapitulosPresupuesto = '{401C302B-DE1C-46C9-824C-3AD1AC66AA1B}'; RID_CapitulosPresupuesto = '{25C8A50F-E9A5-478E-A825-DF6332C457C2}';
RID_PresupuestosCliente_Detalles = '{9D17FCE3-3455-4F90-8260-7319FBD352EB}'; RID_PresupuestosCliente_Detalles = '{128B9C7B-1A51-4571-8948-A8D1201FF20A}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -143,14 +143,26 @@ const
fld_CapitulosPresupuestoPOSICION = 'POSICION'; fld_CapitulosPresupuestoPOSICION = 'POSICION';
fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE'; fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_CapitulosPresupuestoPROPIEDAD = 'PROPIEDAD'; fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';
fld_CapitulosPresupuestoCANTIDAD = 'CANTIDAD';
fld_CapitulosPresupuestoIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_CapitulosPresupuestoIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_CapitulosPresupuestoDESCUENTO = 'DESCUENTO';
fld_CapitulosPresupuestoIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_CapitulosPresupuestoVISIBLE = 'VISIBLE';
{ CapitulosPresupuesto field indexes } { CapitulosPresupuesto field indexes }
idx_CapitulosPresupuestoID = 0; idx_CapitulosPresupuestoID = 0;
idx_CapitulosPresupuestoPOSICION = 1; idx_CapitulosPresupuestoPOSICION = 1;
idx_CapitulosPresupuestoTIPO_DETALLE = 2; idx_CapitulosPresupuestoTIPO_DETALLE = 2;
idx_CapitulosPresupuestoTIPO_ARTICULO = 3; idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
idx_CapitulosPresupuestoPROPIEDAD = 4; idx_CapitulosPresupuestoCONCEPTO = 4;
idx_CapitulosPresupuestoCANTIDAD = 5;
idx_CapitulosPresupuestoIMPORTE_UNIDAD = 6;
idx_CapitulosPresupuestoIMPORTE_TOTAL = 7;
idx_CapitulosPresupuestoDESCUENTO = 8;
idx_CapitulosPresupuestoIMPORTE_PORTE = 9;
idx_CapitulosPresupuestoVISIBLE = 10;
{ PresupuestosCliente_Detalles fields } { PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID'; fld_PresupuestosCliente_DetallesID = 'ID';
@ -191,7 +203,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{7233C9EC-5F96-4CD6-AECB-A19F749396BD}'] ['{AA0C40BF-2339-4326-9A5E-EEE260CADC74}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -274,7 +286,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{31A40577-FC3A-475C-A49B-B00F60EA59D4}'] ['{EA75AD60-D801-4B85-B0EF-6ED926A30B2A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -321,7 +333,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{63A6C637-5FDF-4677-9761-D8002D4D9EBA}'] ['{282E6250-DA69-4658-A522-A54C6A1705CE}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -356,7 +368,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{9F8F0789-D6FD-4E4C-97B1-1EEAEFA900F2}'] ['{D998C033-F1BC-4A07-B2ED-AF2753438192}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -871,7 +883,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{4AD23244-E63C-48A2-9F9F-662B3D41785B}'] ['{311247FA-7E4E-4B5A-AC81-6E596ADD47B8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -889,10 +901,34 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); procedure SetTIPO_ARTICULOValue(const aValue: String);
function GetTIPO_ARTICULOIsNull: Boolean; function GetTIPO_ARTICULOIsNull: Boolean;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
function GetPROPIEDADValue: String; function GetCONCEPTOValue: String;
procedure SetPROPIEDADValue(const aValue: String); procedure SetCONCEPTOValue(const aValue: String);
function GetPROPIEDADIsNull: Boolean; function GetCONCEPTOIsNull: Boolean;
procedure SetPROPIEDADIsNull(const aValue: Boolean); procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Integer;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer);
function GetIMPORTE_UNIDADIsNull: Boolean;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
function GetIMPORTE_TOTALValue: Integer;
procedure SetIMPORTE_TOTALValue(const aValue: Integer);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Integer;
procedure SetDESCUENTOValue(const aValue: Integer);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetIMPORTE_PORTEValue: Integer;
procedure SetIMPORTE_PORTEValue(const aValue: Integer);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -904,8 +940,20 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull; property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property DESCUENTO: Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
end; end;
{ TCapitulosPresupuestoDataTableRules } { TCapitulosPresupuestoDataTableRules }
@ -929,10 +977,34 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual; procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
function GetTIPO_ARTICULOIsNull: Boolean; virtual; function GetTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual; function GetCONCEPTOValue: String; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetPROPIEDADIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Integer; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Integer; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Integer); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Integer; virtual;
procedure SetDESCUENTOValue(const aValue: Integer); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Integer; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -943,8 +1015,20 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull; property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property DESCUENTO: Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -954,7 +1038,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{77CBC642-6303-467E-85B6-BE1CECD5ECFC}'] ['{1C2C32E6-33C3-4D21-A13B-AD25078DC360}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2365,25 +2449,151 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null; DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetPROPIEDADValue: String; function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsString; result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetPROPIEDADValue(const aValue: String); procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOValue(const aValue: String);
begin begin
DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsString := aValue; DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString := aValue;
end; end;
function TCapitulosPresupuestoDataTableRules.GetPROPIEDADIsNull: boolean; function TCapitulosPresupuestoDataTableRules.GetCONCEPTOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].IsNull; result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].IsNull;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean); procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsVariant := Null; DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetCANTIDADValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetCANTIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_UNIDADValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_UNIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_TOTALValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_TOTALValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetDESCUENTOValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetDESCUENTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_PORTEValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_PORTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetVISIBLEValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetVISIBLEIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVISIBLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsVariant := Null;
end; end;

330
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{520946FF-B8D7-470C-A8D1-085390E88242}'; RID_ValoresDelta = '{F474C394-03E2-478D-B532-27D4854BFAF2}';
RID_PropiedadesDelta = '{953D246D-7ED0-4B5D-9755-B661A08AC228}'; RID_PropiedadesDelta = '{884EB1CE-DC47-4617-8333-3EC5DBFD665B}';
RID_ListaAnosPresupuestosDelta = '{EE50CEDA-7BCF-4608-AC09-803D95F41C36}'; RID_ListaAnosPresupuestosDelta = '{925DEA86-D6E7-405B-8AC5-DC91888B5F49}';
RID_PresupuestosClienteDelta = '{D990481F-7BB6-4BBC-A0C0-3623BC468D3B}'; RID_PresupuestosClienteDelta = '{1EAAD063-02A3-4241-8820-524FA60D7806}';
RID_CapitulosPresupuestoDelta = '{1D168748-D2EF-4DB7-85A3-05B2C3237FB9}'; RID_CapitulosPresupuestoDelta = '{70F8EB27-2019-40CA-9A3C-091F37ADC909}';
RID_PresupuestosCliente_DetallesDelta = '{1BC57EDD-6A91-48FA-B9AE-EDCA498A98BD}'; RID_PresupuestosCliente_DetallesDelta = '{13C9A38A-3687-4815-8E90-F51DAC75F95B}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{520946FF-B8D7-470C-A8D1-085390E88242}'] ['{F474C394-03E2-478D-B532-27D4854BFAF2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -101,7 +101,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{953D246D-7ED0-4B5D-9755-B661A08AC228}'] ['{884EB1CE-DC47-4617-8333-3EC5DBFD665B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -147,7 +147,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{EE50CEDA-7BCF-4608-AC09-803D95F41C36}'] ['{925DEA86-D6E7-405B-8AC5-DC91888B5F49}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -181,7 +181,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{D990481F-7BB6-4BBC-A0C0-3623BC468D3B}'] ['{1EAAD063-02A3-4241-8820-524FA60D7806}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -699,20 +699,32 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{1D168748-D2EF-4DB7-85A3-05B2C3237FB9}'] ['{70F8EB27-2019-40CA-9A3C-091F37ADC909}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String; function GetOldTIPO_DETALLEValue : String;
function GetOldTIPO_ARTICULOValue : String; function GetOldTIPO_ARTICULOValue : String;
function GetOldPROPIEDADValue : String; function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDADValue : Integer;
function GetOldIMPORTE_TOTALValue : Integer;
function GetOldDESCUENTOValue : Integer;
function GetOldIMPORTE_PORTEValue : Integer;
function GetOldVISIBLEValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldPOSICION : Integer read GetOldPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Integer read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
end; end;
{ TCapitulosPresupuestoBusinessProcessorRules } { TCapitulosPresupuestoBusinessProcessorRules }
@ -744,12 +756,48 @@ type
function GetOldTIPO_ARTICULOIsNull: Boolean; virtual; function GetOldTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual; procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual; function GetCONCEPTOValue: String; virtual;
function GetPROPIEDADIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldPROPIEDADValue: String; virtual; function GetOldCONCEPTOValue: String; virtual;
function GetOldPROPIEDADIsNull: Boolean; virtual; function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Integer; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Integer; virtual;
function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer); virtual;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Integer; virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
function GetOldIMPORTE_TOTALValue: Integer; virtual;
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Integer); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Integer; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Integer; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Integer); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Integer; virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
function GetOldIMPORTE_PORTEValue: Integer; virtual;
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -768,10 +816,34 @@ type
property TIPO_ARTICULOIsNull : Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull; property TIPO_ARTICULOIsNull : Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldTIPO_ARTICULOIsNull : Boolean read GetOldTIPO_ARTICULOIsNull; property OldTIPO_ARTICULOIsNull : Boolean read GetOldTIPO_ARTICULOIsNull;
property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldPROPIEDAD : String read GetOldPROPIEDADValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull; property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Integer read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL : Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property DESCUENTO : Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property IMPORTE_PORTE : Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -781,7 +853,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{1BC57EDD-6A91-48FA-B9AE-EDCA498A98BD}'] ['{13C9A38A-3687-4815-8E90-F51DAC75F95B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -2726,35 +2798,221 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADValue: String; function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADIsNull: Boolean; function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]);
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADValue: String; function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean; function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]);
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADValue(const aValue: String); procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := aValue;
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean); procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCANTIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCANTIDAD]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_UNIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_TOTALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetDESCUENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldDESCUENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoDESCUENTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoDESCUENTO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetDESCUENTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_PORTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVISIBLE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVISIBLE]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE] := Null;
end; end;

35
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -34,6 +34,9 @@ type
IBizCapitulo = interface(ICapitulosPresupuesto) IBizCapitulo = interface(ICapitulosPresupuesto)
['{FE35D755-7781-441F-960C-98F847A5039E}'] ['{FE35D755-7781-441F-960C-98F847A5039E}']
function GetTipo: String;
procedure SetTipo(Value: String);
property Tipo: String read GetTipo write SetTipo;
end; end;
IBizDetallesPresupuestoCliente = interface(IPresupuestosCliente_Detalles) IBizDetallesPresupuestoCliente = interface(IPresupuestosCliente_Detalles)
@ -59,6 +62,14 @@ type
end; end;
TBizCapitulo = class(TCapitulosPresupuestoDataTableRules, IBizCapitulo) TBizCapitulo = class(TCapitulosPresupuestoDataTableRules, IBizCapitulo)
protected
FTipo : String;
function GetTipo: String;
procedure SetTipo(Value: String);
procedure OnNewRecord(Sender: TDADataTable); override;
public
property Tipo: String read GetTipo write SetTipo;
constructor Create(aDataTable: TDADataTable); override;
end; end;
TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente)
@ -120,6 +131,30 @@ begin
EnlazarMaestroDetalle(FValoresLink, FValores); EnlazarMaestroDetalle(FValoresLink, FValores);
end; end;
{ TBizCapitulo }
constructor TBizCapitulo.Create(aDataTable: TDADataTable);
begin
inherited;
FTipo := TIPO_CAPITULO_V;
end;
function TBizCapitulo.GetTipo: String;
begin
Result := FTipo;
end;
procedure TBizCapitulo.OnNewRecord(Sender: TDADataTable);
begin
inherited;
TIPO_ARTICULO := FTipo;
end;
procedure TBizCapitulo.SetTipo(Value: String);
begin
FTipo := Value;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente); RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente);
RegisterDataTableRules(BIZ_CLIENT_PROPIEDADES, TBizPropiedades); RegisterDataTableRules(BIZ_CLIENT_PROPIEDADES, TBizPropiedades);

282
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -526,7 +526,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS' TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
Name = 'IBX' Name = 'IBX'
StatementType = stAutoSQL SQL =
'SELECT '#10' ID, POSICION, TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO,' +
' '#10' 1 as CANTIDAD, 0 as IMPORTE_UNIDAD, 0 as IMPORTE_TOTAL, 0 ' +
'as DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE'#10' FROM'#10' ' +
' PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where}'#10' order by posi' +
'cion'#10
StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'ID' DatasetField = 'ID'
@ -545,36 +551,101 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'TIPO_ARTICULO' TableField = 'TIPO_ARTICULO'
end end
item item
DatasetField = 'PROPIEDAD' DatasetField = 'CONCEPTO'
TableField = 'PROPIEDAD' TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = '<unknown>'
SQLOrigin = 'CANTIDAD'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_TOTAL'
end
item
DatasetField = 'VISIBLE'
TableField = '<unknown>'
SQLOrigin = 'VISIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = '<unknown>'
SQLOrigin = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_PORTE'
end> end>
end> end>
Name = 'CapitulosPresupuesto' Name = 'CapitulosPresupuesto'
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
Required = True GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end end
item item
Name = 'TIPO_ARTICULO' Name = 'TIPO_ARTICULO'
DataType = datString DataType = datString
Size = 2 Size = 2
DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
end end
item item
Name = 'PROPIEDAD' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'CapitulosPresupuesto_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_TOTAL'
end
item
Name = 'DESCUENTO'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
end> end>
end end
item item
@ -1390,6 +1461,118 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Update_PresupuestosCliente_Detalles' Name = 'Update_PresupuestosCliente_Detalles'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_CAPITULOS'#10' (ID, POSICION, ' +
'TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO)'#10' VALUES'#10' (:ID, :POSIC' +
'ION, :TIPO_DETALLE, :TIPO_ARTICULO, :CONCEPTO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_CapitulosPresupuesto'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'DELETE '#10' FROM'#10' PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE'#10' (I' +
'D = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_CapitulosPresupuesto'
end
item
Params = <
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'UPDATE PRESUPUESTOS_CLIENTE_CAPITULOS'#10' SET '#10' POSICION = :POS' +
'ICION, '#10' TIPO_DETALLE = :TIPO_DETALLE, '#10' TIPO_ARTICULO = :' +
'TIPO_ARTICULO, '#10' CONCEPTO = :CONCEPTO'#10' WHERE'#10' (ID = :OLD_' +
'ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_CapitulosPresupuesto'
end> end>
RelationShips = < RelationShips = <
item item
@ -1450,6 +1633,27 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DoInsert = False DoInsert = False
DatasetName = 'PresupuestosCliente' DatasetName = 'PresupuestosCliente'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end
item
Name = 'Insert CapitulosPresupuesto'
DoUpdate = False
DoDelete = False
DatasetName = 'CapitulosPresupuesto'
FailureBehavior = fbRaiseException
end
item
Name = 'Update CapitulosPresupuesto'
DoInsert = False
DoDelete = False
DatasetName = 'CapitulosPresupuesto'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete CapitulosPresupuesto'
DoUpdate = False
DoInsert = False
DatasetName = 'CapitulosPresupuesto'
FailureBehavior = fbRaiseException
end> end>
Version = 0 Version = 0
Left = 48 Left = 48
@ -1708,6 +1912,61 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Tipo' DisplayLabel = 'Tipo'
end
item
Name = 'CapitulosPresupuesto_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'CapitulosPresupuesto_POSICION'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_TIPO_DETALLE'
DataType = datString
Size = 10
end
item
Name = 'CapitulosPresupuesto_TIPO_ARTICULO'
DataType = datString
Size = 2
end
item
Name = 'CapitulosPresupuesto_CONCEPTO'
DataType = datString
Size = 255
end
item
Name = 'CapitulosPresupuesto_PROPIEDAD'
DataType = datString
Size = 255
end
item
Name = 'CapitulosPresupuesto_CANTIDAD'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_TOTAL'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_DESCUENTO'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_PORTE'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_VISIBLE'
DataType = datInteger
end> end>
Left = 48 Left = 48
Top = 152 Top = 152
@ -1738,4 +1997,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Left = 232 Left = 232
Top = 96 Top = 96
end end
object bpCapitulosPresupuesto: TDABusinessProcessor
Schema = schPresupuestosCliente
InsertCommandName = 'Insert_CapitulosPresupuesto'
DeleteCommandName = 'Delete_CapitulosPresupuesto'
UpdateCommandName = 'Update_CapitulosPresupuesto'
ReferencedDataset = 'CapitulosPresupuesto'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 232
Top = 168
end
end end

1
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -24,6 +24,7 @@ type
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpPresupuestosCliente: TDABusinessProcessor; bpPresupuestosCliente: TDABusinessProcessor;
bpPresupuestosClienteDetalles: TDABusinessProcessor; bpPresupuestosClienteDetalles: TDABusinessProcessor;
bpCapitulosPresupuesto: TDABusinessProcessor;
schPresupuestosCliente: TDASchema; schPresupuestosCliente: TDASchema;
DADataDictionary: TDADataDictionary; DADataDictionary: TDADataDictionary;
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;

19
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -52,7 +52,19 @@ requires
cxEditorsD11, cxEditorsD11,
cxDataD11, cxDataD11,
cxExtEditorsD11, cxExtEditorsD11,
ApplicationBase; ApplicationBase,
PngComponentsD10,
PNG_D10,
vclactnband,
tb2k_d10,
tbx_d10,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
cxGridD11,
cxPageControlD11,
cxExportD11;
contains contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas', uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@ -72,10 +84,11 @@ contains
uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame}, uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame},
uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame}, uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame},
uViewConfiguracionDocArmario in 'uViewConfiguracionDocArmario.pas' {frViewConfiguracionDocArmario: TFrame}, uViewConfiguracionDocArmario in 'uViewConfiguracionDocArmario.pas' {frViewConfiguracionDocArmario: TFrame},
uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBano: TFrame}, uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBANO: TFrame},
uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame}, uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame},
uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame}, uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame},
uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame}, uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame},
uViewConfiguracionDocObra in 'uViewConfiguracionDocObra.pas' {frViewConfiguracionDocObra: TFrame}; uViewConfiguracionDocObra in 'uViewConfiguracionDocObra.pas' {frViewConfiguracionDocObra: TFrame},
uViewConfiguracionCapitulo in 'uViewConfiguracionCapitulo.pas' {frViewConfiguracionCapitulo: TFrame};
end. end.

74
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -49,34 +49,46 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk"> <DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Controller\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\Controller\Articulos_view.dcp" /> <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\Controller\Base.dcp" /> <DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
<DCCReference Include="..\Controller\cxDataD11.dcp" /> <DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\Controller\cxEditorsD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Controller\cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Controller\cxLibraryD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Controller\dbrtl.dcp" /> <DCCReference Include="..\..\..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Controller\dxCoreD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Controller\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Controller\dxThemeD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Controller\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Controller\GUIBase.dcp" /> <DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Controller\Jcl.dcp" /> <DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Controller\JclVcl.dcp" /> <DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\Controller\JvCoreD11R.dcp" /> <DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Controller\JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Controller\JvMMD11R.dcp" /> <DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" />
<DCCReference Include="..\Controller\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\Controller\JvSystemD11R.dcp" /> <DCCReference Include="..\..\..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Controller\PreCli_ConCli_relation.dcp" /> <DCCReference Include="..\..\..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Controller\PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Controller\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Controller\rtl.dcp" /> <DCCReference Include="..\..\..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Controller\vcl.dcp" /> <DCCReference Include="..\..\..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Controller\vcldb.dcp" /> <DCCReference Include="..\..\..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Controller\vcljpg.dcp" /> <DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Controller\vclx.dcp" /> <DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\..\..\Servidor\PreCli_ConCli_relation.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.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\vclx.dcp" />
<DCCReference Include="uEditorAsignarDescuento.pas"> <DCCReference Include="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form> <Form>fEditorAsignarDescuento</Form>
</DCCReference> </DCCReference>
@ -104,12 +116,16 @@
<DesignClass>TfEditorPedidosClientePreview</DesignClass> <DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uPresupuestosClienteViewRegister.pas" /> <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewConfiguracionCapitulo.pas">
<Form>frViewConfiguracionCapitulo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocArmario.pas"> <DCCReference Include="uViewConfiguracionDocArmario.pas">
<Form>frViewConfiguracionDocArmario</Form> <Form>frViewConfiguracionDocArmario</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewConfiguracionDocBano.pas"> <DCCReference Include="uViewConfiguracionDocBano.pas">
<Form>frViewConfiguracionDocBano</Form> <Form>frViewConfiguracionDocBANO</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewConfiguracionDocCocina.pas"> <DCCReference Include="uViewConfiguracionDocCocina.pas">

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionCapitulo.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewPOSICION: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewTIPO: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_ARTICULO'
VisibleForCustomization = False
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewVISIBLE: TcxGridDBColumn
VisibleForCustomization = False
end
end
end
inherited TBXDock1: TTBXDock
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 447
end
end
object cxLookupComboBox: TcxLookupComboBox [3]
Left = 78
Top = 280
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DAPropiedades
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -13
Style.Font.Name = 'Lucida Console'
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 3
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList
inherited actAnadirArticulos: TAction
Enabled = False
Visible = False
end
end
object DAPropiedades: TDADataSource
Left = 32
Top = 272
end
end

64
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionCapitulo.pas Normal file
View File

@ -0,0 +1,64 @@
unit uViewConfiguracionCapitulo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxTextEdit,
cxRichEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDAInterfaces,
uDADataTable, StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls,
JvExStdCtrls, JvCombobox, JvColorCombo, ToolWin, cxContainer, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizDetallesPresupuestoCliente;
type
TfrViewConfiguracionCapitulo = class(TfrViewDetallesArticulos)
cxLookupComboBox: TcxLookupComboBox;
DAPropiedades: TDADataSource;
procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDESCRIPCIONGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
procedure CustomViewDestroy(Sender: TObject);
protected
FPropiedades: IBizPropiedades;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionCapitulo.CustomViewDestroy(Sender: TObject);
begin
FPropiedades := Nil;
inherited;
end;
procedure TfrViewConfiguracionCapitulo.CustomViewShow(Sender: TObject);
begin
inherited;
if not Assigned(FPropiedades) then
begin
FPropiedades := (Controller as IDetallesPresupuestoClienteController).DarPropiedades;
FPropiedades.DataTable.Active := True;
DAPropiedades.DataTable := FPropiedades.DataTable;
end;
if Assigned(Detalles) then
Detalles.Active := True;
end;
procedure TfrViewConfiguracionCapitulo.cxGridViewDESCRIPCIONGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
AProperties := cxLookupComboBox.Properties;
end;
end.

400
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm
View File

@ -1,83 +1,341 @@
inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
Width = 679 Width = 838
Height = 530 Height = 634
object Label1: TLabel [0] ExplicitWidth = 838
Left = 11 ExplicitHeight = 634
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 669 Width = 828
TabOrder = 2 TabOrder = 1
ExplicitWidth = 530 ExplicitWidth = 530
inherited Label3: TLabel inherited Label3: TLabel
Width = 657 Width = 816
Visible = False
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 679 Width = 838
LabelCaption = 'Configuraci'#243'n de los documentos de armario' LabelCaption = 'Configuraci'#243'n de los documentos de armario'
TabOrder = 0
ExplicitWidth = 540 ExplicitWidth = 540
end end
object eCondiciones: TcxRichEdit object Paginas: TPageControl
Left = 11 Left = 0
Top = 448 Top = 68
Properties.ScrollBars = ssVertical Width = 838
Lines.Strings = ( Height = 566
'eCondiciones') ActivePage = pagNotas
TabOrder = 0 Align = alClient
Visible = False TabOrder = 2
Height = 57 object pagNotas: TTabSheet
Width = 529 Caption = 'Notas'
end object Label1: TLabel
object ePlazosEntrega: TMemo Left = 11
Left = 11 Top = 22
Top = 225 Width = 76
Width = 529 Height = 13
Height = 90 Caption = 'Forma de pago:'
BevelInner = bvNone end
BevelOuter = bvNone object Label2: TLabel
Ctl3D = True Left = 11
ParentCtl3D = False Top = 147
ScrollBars = ssVertical Width = 90
TabOrder = 3 Height = 13
end Caption = 'Plazos de entrega:'
object eFormaPago: TMemo end
Left = 11 object Label4: TLabel
Top = 100 Left = 11
Width = 529 Top = 269
Height = 90 Width = 75
Ctl3D = True Height = 13
ParentCtl3D = False Caption = 'Observaciones:'
ScrollBars = ssVertical end
TabOrder = 4 object eCondiciones: TcxRichEdit
end Left = 11
object eObservaciones: TMemo Top = 391
Left = 11 Properties.ScrollBars = ssVertical
Top = 346 Lines.Strings = (
Width = 529 'eCondiciones')
Height = 90 TabOrder = 0
BevelInner = bvNone Visible = False
BevelOuter = bvNone Height = 57
Ctl3D = True Width = 529
ParentCtl3D = False end
ScrollBars = ssVertical object ePlazosEntrega: TMemo
TabOrder = 5 Left = 11
Top = 168
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
end
object eFormaPago: TMemo
Left = 11
Top = 43
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object eObservaciones: TMemo
Left = 11
Top = 289
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
end
object pagCapituloFrente: TTabSheet
Caption = 'Cap'#237'tulo frente'
ImageIndex = 1
inline frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 830
Height = 538
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 838
ExplicitHeight = 634
inherited ToolBar1: TToolBar
Width = 830
Height = 24
ExplicitWidth = 830
ExplicitHeight = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 830
Height = 488
ExplicitTop = 50
ExplicitWidth = 838
ExplicitHeight = 584
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 830
ExplicitTop = 24
ExplicitWidth = 838
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCapituloInterior: TTabSheet
Caption = 'Cap'#237'tulo interior'
ImageIndex = 2
inline frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 830
Height = 538
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 838
ExplicitHeight = 634
inherited ToolBar1: TToolBar
Width = 830
Height = 24
ExplicitWidth = 830
ExplicitHeight = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 830
Height = 488
ExplicitTop = 50
ExplicitWidth = 838
ExplicitHeight = 584
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 830
ExplicitTop = 24
ExplicitWidth = 838
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
end end
end end

29
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas
View File

@ -5,17 +5,25 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls; cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type type
TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit; eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo; ePlazosEntrega: TMemo;
eFormaPago: TMemo; eFormaPago: TMemo;
eObservaciones: TMemo; eObservaciones: TMemo;
Label1: TLabel; pagCapituloFrente: TTabSheet;
Label2: TLabel; frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo;
Label4: TLabel; pagCapituloInterior: TTabSheet;
frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
@ -30,7 +38,8 @@ implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocARMARIO } { TfrViewConfiguracionDocARMARIO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocArmario.CargarValores; procedure TfrViewConfiguracionDocArmario.CargarValores;
begin begin
@ -43,6 +52,13 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
frViewConfiguracionCapituloFrente.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapituloFrente.Detalles := (frViewConfiguracionCapituloFrente.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AF);
frViewConfiguracionCapituloInterior.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapituloInterior.Detalles := (frViewConfiguracionCapituloInterior.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AI);
end; end;
class function TfrViewConfiguracionDocArmario.DarEtiqueta: String; class function TfrViewConfiguracionDocArmario.DarEtiqueta: String;
@ -62,6 +78,9 @@ begin
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates;
frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates;
end; end;

274
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm
View File

@ -1,79 +1,215 @@
inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
Width = 670 Width = 876
Height = 528 Height = 651
object Label1: TLabel [0]
Left = 11
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 660 Width = 866
TabOrder = 2 TabOrder = 1
ExplicitWidth = 530
inherited Label3: TLabel inherited Label3: TLabel
Width = 648 Width = 854
Visible = False
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 670 Width = 876
LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o' LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0 TabOrder = 0
Visible = False
Height = 57
Width = 529
end end
object ePlazosEntrega: TMemo object paginas: TPageControl
Left = 11 Left = 0
Top = 225 Top = 68
Width = 529 Width = 876
Height = 90 Height = 583
Ctl3D = True ActivePage = pagNotas
ParentCtl3D = False Align = alClient
ScrollBars = ssVertical TabOrder = 2
TabOrder = 3 ExplicitWidth = 451
end ExplicitHeight = 236
object eFormaPago: TMemo object pagNotas: TTabSheet
Left = 11 Caption = 'Notas'
Top = 100 ExplicitWidth = 443
Width = 529 ExplicitHeight = 208
Height = 90 object Label1: TLabel
Ctl3D = True Left = 11
ParentCtl3D = False Top = 16
ScrollBars = ssVertical Width = 76
TabOrder = 4 Height = 13
end Caption = 'Forma de pago:'
object eObservaciones: TMemo end
Left = 11 object Label2: TLabel
Top = 346 Left = 11
Width = 529 Top = 141
Height = 90 Width = 90
Ctl3D = True Height = 13
ParentCtl3D = False Caption = 'Plazos de entrega:'
ScrollBars = ssVertical end
TabOrder = 5 object Label4: TLabel
Left = 11
Top = 263
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 385
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 162
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
end
object eFormaPago: TMemo
Left = 11
Top = 37
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object eObservaciones: TMemo
Left = 11
Top = 283
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 868
Height = 555
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 868
Height = 24
ExplicitWidth = 443
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 868
Height = 505
ExplicitWidth = 443
ExplicitHeight = 136
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 868
ExplicitWidth = 443
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
end end
end end

34
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas
View File

@ -5,17 +5,23 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls; cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewConfiguracionCapitulo,
uViewDetallesDTO, uViewDetallesArticulos;
type type
TfrViewConfiguracionDocBano = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocBANO = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit; eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo; ePlazosEntrega: TMemo;
eFormaPago: TMemo; eFormaPago: TMemo;
eObservaciones: TMemo; eObservaciones: TMemo;
Label1: TLabel; pagCapitulo: TTabSheet;
Label2: TLabel; frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
Label4: TLabel;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
@ -24,15 +30,16 @@ type
end; end;
var var
frViewConfiguracionDocBano: TfrViewConfiguracionDocBano; frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO;
implementation implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocBANO } { TfrViewConfiguracionDocBANO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocBano.CargarValores; procedure TfrViewConfiguracionDocBANO.CargarValores;
begin begin
inherited; inherited;
eFormaPago.Lines.Clear; eFormaPago.Lines.Clear;
@ -43,25 +50,30 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_B);
end; end;
class function TfrViewConfiguracionDocBano.DarEtiqueta: String; class function TfrViewConfiguracionDocBANO.DarEtiqueta: String;
begin begin
Result := 'Documentos baño'; Result := 'Documentos baño';
end; end;
class function TfrViewConfiguracionDocBano.GetViewClass: TClass; class function TfrViewConfiguracionDocBANO.GetViewClass: TClass;
begin begin
Result := TfrViewConfiguracionDocBANO; Result := TfrViewConfiguracionDocBANO;
end; end;
procedure TfrViewConfiguracionDocBano.GuardarValores; procedure TfrViewConfiguracionDocBANO.GuardarValores;
begin begin
inherited; inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, eFormaPago.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end; end;

278
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm
View File

@ -1,78 +1,224 @@
inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
Height = 496 Width = 792
object Label1: TLabel [0] Height = 651
Left = 11 ExplicitWidth = 792
Top = 79 ExplicitHeight = 651
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 530 Width = 782
TabOrder = 2 TabOrder = 1
ExplicitWidth = 530 ExplicitWidth = 530
inherited Label3: TLabel inherited Label3: TLabel
Width = 518 Width = 770
Visible = False
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540 Width = 792
LabelCaption = 'Configuraci'#243'n de los documentos de cocina' LabelCaption = 'Configuraci'#243'n de los documentos de cocina'
TabOrder = 0
ExplicitWidth = 540 ExplicitWidth = 540
end end
object eCondiciones: TcxRichEdit object Paginas: TPageControl
Left = 11 Left = 0
Top = 448 Top = 68
Properties.ScrollBars = ssVertical Width = 792
Lines.Strings = ( Height = 583
'eCondiciones') ActivePage = pagNotas
TabOrder = 0 Align = alClient
Visible = False TabOrder = 2
Height = 57 object pagNotas: TTabSheet
Width = 529 Caption = 'Notas'
end ExplicitLeft = 3
object ePlazosEntrega: TMemo object Label1: TLabel
Left = 11 Left = 11
Top = 225 Top = 23
Width = 529 Width = 76
Height = 90 Height = 13
Ctl3D = True Caption = 'Forma de pago:'
ParentCtl3D = False end
ScrollBars = ssVertical object Label2: TLabel
TabOrder = 3 Left = 11
end Top = 148
object eFormaPago: TMemo Width = 90
Left = 11 Height = 13
Top = 100 Caption = 'Plazos de entrega:'
Width = 529 end
Height = 90 object Label4: TLabel
Ctl3D = True Left = 11
ParentCtl3D = False Top = 270
ScrollBars = ssVertical Width = 75
TabOrder = 4 Height = 13
end Caption = 'Observaciones:'
object eObservaciones: TMemo end
Left = 11 object ePlazosEntrega: TMemo
Top = 346 Left = 11
Width = 529 Top = 169
Height = 90 Width = 529
Ctl3D = True Height = 90
ParentCtl3D = False Ctl3D = True
ScrollBars = ssVertical ParentCtl3D = False
TabOrder = 5 ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 44
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
end
object eObservaciones: TMemo
Left = 11
Top = 290
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 392
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 3
Visible = False
Height = 57
Width = 529
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 784
Height = 555
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 792
ExplicitHeight = 651
inherited ToolBar1: TToolBar
Width = 784
ExplicitWidth = 784
inherited FontSize: TEdit [1]
Left = 109
Top = 0
ExplicitLeft = 109
ExplicitTop = 0
end
inherited UpDown1: TUpDown [2]
Left = 151
Top = 0
ExplicitLeft = 151
ExplicitTop = 0
end
inherited ToolButton2: TToolButton [3]
Left = 168
ExplicitLeft = 168
end
inherited ToolButton3: TToolButton [4]
Left = 282
ExplicitLeft = 282
end
inherited ToolButton4: TToolButton [5]
Left = 337
Wrap = False
ExplicitLeft = 337
end
inherited ToolButton14: TToolButton [6]
Left = 393
Top = 0
Enabled = True
ExplicitLeft = 393
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox [7]
Left = 427
Top = 0
ExplicitLeft = 427
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Width = 784
Height = 483
ExplicitTop = 50
ExplicitWidth = 792
ExplicitHeight = 601
end
inherited TBXDock1: TTBXDock
Width = 784
ExplicitTop = 24
ExplicitWidth = 792
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
end end
end end

27
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas
View File

@ -5,17 +5,23 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls; cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type type
TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit; Paginas: TPageControl;
ePlazosEntrega: TMemo; pagNotas: TTabSheet;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
eCondiciones: TcxRichEdit;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
@ -23,14 +29,12 @@ type
procedure GuardarValores; override; procedure GuardarValores; override;
end; end;
var
frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina;
implementation implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocCocina } { TfrViewConfiguracionDocCocina }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocCocina.CargarValores; procedure TfrViewConfiguracionDocCocina.CargarValores;
begin begin
@ -43,6 +47,9 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_C);
end; end;
class function TfrViewConfiguracionDocCocina.DarEtiqueta: String; class function TfrViewConfiguracionDocCocina.DarEtiqueta: String;
@ -62,6 +69,8 @@ begin
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end; end;

270
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm
View File

@ -1,78 +1,216 @@
inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
Height = 533 Width = 821
object Label1: TLabel [0] Height = 564
Left = 11 ExplicitWidth = 821
Top = 79 ExplicitHeight = 564
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 530 Width = 811
TabOrder = 2 TabOrder = 1
ExplicitWidth = 530 ExplicitWidth = 530
inherited Label3: TLabel inherited Label3: TLabel
Width = 518 Width = 799
Visible = False
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540 Width = 821
LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos' LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos'
TabOrder = 0
ExplicitWidth = 540 ExplicitWidth = 540
end end
object eCondiciones: TcxRichEdit object Paginas: TPageControl
Left = 11 Left = 0
Top = 448 Top = 68
Properties.ScrollBars = ssVertical Width = 821
Lines.Strings = ( Height = 496
'eCondiciones') ActivePage = pagNotas
TabOrder = 0 Align = alClient
Visible = False TabOrder = 2
Height = 57 object pagNotas: TTabSheet
Width = 529 Caption = 'Notas'
end object Label1: TLabel
object ePlazosEntrega: TMemo Left = 11
Left = 11 Top = 20
Top = 225 Width = 76
Width = 529 Height = 13
Height = 90 Caption = 'Forma de pago:'
Ctl3D = True end
ParentCtl3D = False object Label2: TLabel
ScrollBars = ssVertical Left = 11
TabOrder = 3 Top = 145
end Width = 90
object eFormaPago: TMemo Height = 13
Left = 11 Caption = 'Plazos de entrega:'
Top = 100 end
Width = 529 object Label4: TLabel
Height = 90 Left = 11
Ctl3D = True Top = 267
ParentCtl3D = False Width = 75
ScrollBars = ssVertical Height = 13
TabOrder = 4 Caption = 'Observaciones:'
end end
object eObservaciones: TMemo object eCondiciones: TcxRichEdit
Left = 11 Left = 11
Top = 346 Top = 352
Width = 529 Properties.ScrollBars = ssVertical
Height = 90 Lines.Strings = (
Ctl3D = True 'eCondiciones')
ParentCtl3D = False TabOrder = 0
ScrollBars = ssVertical Visible = False
TabOrder = 5 Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 166
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
end
object eFormaPago: TMemo
Left = 11
Top = 41
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object eObservaciones: TMemo
Left = 11
Top = 287
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 813
Height = 468
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 821
ExplicitHeight = 564
inherited ToolBar1: TToolBar
Width = 813
Height = 24
ExplicitWidth = 813
ExplicitHeight = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 813
Height = 418
ExplicitTop = 50
ExplicitWidth = 821
ExplicitHeight = 514
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 813
ExplicitTop = 24
ExplicitWidth = 821
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
end end
end end

22
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas
View File

@ -5,17 +5,23 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls; cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type type
TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase)
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit; eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo; ePlazosEntrega: TMemo;
eFormaPago: TMemo; eFormaPago: TMemo;
eObservaciones: TMemo; eObservaciones: TMemo;
Label1: TLabel; pagCapitulo: TTabSheet;
Label2: TLabel; frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
Label4: TLabel;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
@ -30,7 +36,8 @@ implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocELECTRODOMESTICO } { TfrViewConfiguracionDocELECTRODOMESTICO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocElectrodomestico.CargarValores; procedure TfrViewConfiguracionDocElectrodomestico.CargarValores;
begin begin
@ -43,6 +50,9 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_E);
end; end;
class function TfrViewConfiguracionDocElectrodomestico.DarEtiqueta: String; class function TfrViewConfiguracionDocElectrodomestico.DarEtiqueta: String;
@ -62,6 +72,8 @@ begin
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end; end;

271
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm
View File

@ -1,79 +1,216 @@
inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
Width = 759 Width = 824
Height = 564 Height = 580
object Label1: TLabel [0] ExplicitWidth = 824
Left = 11 ExplicitHeight = 580
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 749 Width = 814
TabOrder = 2 TabOrder = 1
ExplicitWidth = 530 ExplicitWidth = 530
inherited Label3: TLabel inherited Label3: TLabel
Width = 737 Width = 802
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 759 Width = 824
LabelCaption = 'Configuraci'#243'n de los documentos de obra' LabelCaption = 'Configuraci'#243'n de los documentos de obra'
TabOrder = 0
ExplicitWidth = 540 ExplicitWidth = 540
end end
object eCondiciones: TcxRichEdit object paginas: TPageControl
Left = 11 Left = 0
Top = 448 Top = 68
Properties.ScrollBars = ssVertical Width = 824
Lines.Strings = ( Height = 512
'eCondiciones') ActivePage = pagNotas
TabOrder = 0 Align = alClient
Visible = False TabOrder = 2
Height = 57 object pagNotas: TTabSheet
Width = 529 Caption = 'Notas'
end ExplicitLeft = 3
object ePlazosEntrega: TMemo object Label1: TLabel
Left = 11 Left = 11
Top = 225 Top = 20
Width = 529 Width = 76
Height = 90 Height = 13
Ctl3D = True Caption = 'Forma de pago:'
ParentCtl3D = False end
ScrollBars = ssVertical object Label2: TLabel
TabOrder = 3 Left = 11
end Top = 145
object eFormaPago: TMemo Width = 90
Left = 11 Height = 13
Top = 100 Caption = 'Plazos de entrega:'
Width = 529 end
Height = 90 object Label4: TLabel
Ctl3D = True Left = 11
ParentCtl3D = False Top = 267
ScrollBars = ssVertical Width = 75
TabOrder = 4 Height = 13
end Caption = 'Observaciones:'
object eObservaciones: TMemo end
Left = 11 object eCondiciones: TcxRichEdit
Top = 346 Left = 11
Width = 529 Top = 368
Height = 90 Properties.ScrollBars = ssVertical
Ctl3D = True Lines.Strings = (
ParentCtl3D = False 'eCondiciones')
ScrollBars = ssVertical TabOrder = 0
TabOrder = 5 Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 166
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
end
object eFormaPago: TMemo
Left = 11
Top = 41
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
object eObservaciones: TMemo
Left = 11
Top = 287
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 816
Height = 484
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 824
ExplicitHeight = 580
inherited ToolBar1: TToolBar
Width = 816
Height = 24
ExplicitWidth = 816
ExplicitHeight = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 816
Height = 434
ExplicitTop = 50
ExplicitWidth = 824
ExplicitHeight = 530
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 816
ExplicitTop = 24
ExplicitWidth = 824
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
end end
end end

22
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas
View File

@ -5,17 +5,23 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls; cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type type
TfrViewConfiguracionDocObra = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocObra = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit; eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo; ePlazosEntrega: TMemo;
eFormaPago: TMemo; eFormaPago: TMemo;
eObservaciones: TMemo; eObservaciones: TMemo;
Label1: TLabel; pagCapitulo: TTabSheet;
Label2: TLabel; frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
Label4: TLabel;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
@ -30,7 +36,8 @@ implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocOBRA } { TfrViewConfiguracionDocOBRA }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocObra.CargarValores; procedure TfrViewConfiguracionDocObra.CargarValores;
begin begin
@ -43,6 +50,9 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end; end;
class function TfrViewConfiguracionDocObra.DarEtiqueta: String; class function TfrViewConfiguracionDocObra.DarEtiqueta: String;
@ -62,6 +72,8 @@ begin
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end; end;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -129,14 +129,14 @@ uses
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas', schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -30,6 +30,8 @@
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</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.4.8.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.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de mayo de 2012 11:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</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.4.8.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.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de mayo de 2012 11:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.4.8.0\0" VALUE "FileVersion", "2.4.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.4.8.0\0" VALUE "ProductVersion", "2.4.8.0\0"
VALUE "CompileDate", "viernes, 18 de mayo de 2012 12:52\0" VALUE "CompileDate", "martes, 22 de mayo de 2012 11:18\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.