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
Top = 0
Caption = 'Configuraci'#243'n de FactuGES'
ClientHeight = 524
ClientWidth = 733
ClientHeight = 655
ClientWidth = 788
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -22,7 +22,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
Left = 8
Top = 8
Width = 150
Height = 466
Height = 597
Margins.Left = 8
Margins.Top = 8
Margins.Right = 4
@ -37,6 +37,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
OptionsView.NavigationPane.ShowHeader = False
OptionsView.NavigationPane.ShowOverflowPanel = False
OnLinkClick = dxNavBarLinkClick
ExplicitHeight = 466
object GroupCategorias: TdxNavBarGroup
Caption = 'Categor'#237'as'
SelectedLinkIndex = -1
@ -46,18 +47,19 @@ object fConfiguracionEditor: TfConfiguracionEditor
end
object Panel2: TPanel
Left = 0
Top = 482
Width = 733
Top = 613
Width = 788
Height = 42
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 635
ExplicitTop = 482
ExplicitWidth = 733
DesignSize = (
733
788
42)
object bCancelar: TButton
Left = 650
Left = 705
Top = 10
Width = 75
Height = 25
@ -66,10 +68,10 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 0
ExplicitLeft = 552
ExplicitLeft = 650
end
object bAceptar: TButton
Left = 569
Left = 624
Top = 10
Width = 75
Height = 25
@ -77,21 +79,22 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Aceptar'
ModalResult = 1
TabOrder = 1
ExplicitLeft = 471
ExplicitLeft = 569
end
end
object PageControlMain: TPageControl
AlignWithMargins = True
Left = 166
Top = 6
Width = 559
Height = 468
Width = 614
Height = 599
Margins.Left = 4
Margins.Top = 6
Margins.Right = 8
Margins.Bottom = 8
Align = alClient
TabOrder = 2
ExplicitWidth = 461
ExplicitWidth = 559
ExplicitHeight = 468
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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@ -79,54 +121,54 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<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_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
@ -53,6 +54,14 @@
<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>
<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>
</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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxPScxCommonD11.dcp" />
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\frx11.dcp" />
<DCCReference Include="..\frxe11.dcp" />
<DCCReference Include="..\fs11.dcp" />
<DCCReference Include="..\JvAppFrmD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

2
Source/GUIBase/uEditorBase.pas
View File

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

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

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

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

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

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

@ -9,13 +9,48 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{EF3BCE84-BF72-4D25-B5C4-02DC99E2C0B2}';
RID_ArticulosParaClienteDelta = '{E180507C-4070-490C-A07F-A5047BD0F477}';
RID_ExisteImagenDelta = '{6AAD9495-D1DC-4BD5-8DE8-AFF266BC6501}';
RID_ArticulosDelta = '{D24AF9A2-3AED-4094-B870-1F3DBA7677F8}';
RID_ArticulosParaClienteDelta = '{2EAA9D80-3FE0-45F6-A1E2-A725762EE394}';
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 = interface(IArticulos)
['{EF3BCE84-BF72-4D25-B5C4-02DC99E2C0B2}']
['{D24AF9A2-3AED-4094-B870-1F3DBA7677F8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -278,7 +313,7 @@ type
{ IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{E180507C-4070-490C-A07F-A5047BD0F477}']
['{2EAA9D80-3FE0-45F6-A1E2-A725762EE394}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -544,6 +579,49 @@ implementation
uses
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 }
constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -1833,6 +1911,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_ExisteImagenDelta, TExisteImagenBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);

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

@ -273,6 +273,7 @@ object srvArticulos: TsrvArticulos
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtGraphic
LogChanges = False
DisplayLabel = 'Foto'
end
item
@ -485,6 +486,7 @@ object srvArticulos: TsrvArticulos
item
Name = 'IMAGEN'
DataType = datBlob
LogChanges = False
end
item
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_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
@ -54,11 +55,11 @@
<DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Articulos_controller.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Articulos_model.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Contactos_view.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Familias_controller.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Articulos_model.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\Familias_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form>
@ -89,7 +90,7 @@
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
@ -255,7 +256,7 @@ mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
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."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
TextsCollection=
EurekaLog Last Line -->

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

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

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

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

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

@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -253,7 +253,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TDADataTableRules, IValores)
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -312,7 +312,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -359,7 +359,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -454,7 +454,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@ -809,7 +809,7 @@ type
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -1145,7 +1145,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1300,7 +1300,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
private
protected
{ 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;
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 SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end;
@ -48,6 +49,8 @@ type
function DarPropiedades: IBizPropiedades;
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
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
@ -130,7 +133,7 @@ begin
ADetalles.DataTable.Edit;
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;
until EOF;
end;
@ -159,6 +162,11 @@ begin
FArticulosController := TArticulosPresupuestoClienteController.Create;
end;
function TDetallesPresupuestoClienteController.BuscarCapitulo(const Tipo: String): IBizCapitulo;
begin
Result := FDataModule.GetCapitulo(Tipo);
end;
function TDetallesPresupuestoClienteController.PedirDescuento: Variant;
var
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 = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Required = True
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True
end
item
Name = 'POSICION'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_POSICION'
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DisplayLabel = 'CapitulosPresupuesto_TIPO_DETALLE'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
DisplayLabel = 'CapitulosPresupuesto_TIPO_ARTICULO'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
end
item
Name = 'PROPIEDAD'
Name = 'CONCEPTO'
DataType = datString
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>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -192,6 +192,7 @@ begin
ACapitulo.BusinessRulesID := BIZ_CLIENT_CAPITULOS;
Result := (ACapitulo as IBizCapitulo);
Result.Tipo := TIPO_ARTICULO;
with Result.DataTable.DynamicWhere do
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 NewItem : IBizPresupuestoCliente;
function GetPropiedades : IBizPropiedades;
function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo;
function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo;
end;
implementation

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

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

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

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{520946FF-B8D7-470C-A8D1-085390E88242}';
RID_PropiedadesDelta = '{953D246D-7ED0-4B5D-9755-B661A08AC228}';
RID_ListaAnosPresupuestosDelta = '{EE50CEDA-7BCF-4608-AC09-803D95F41C36}';
RID_PresupuestosClienteDelta = '{D990481F-7BB6-4BBC-A0C0-3623BC468D3B}';
RID_CapitulosPresupuestoDelta = '{1D168748-D2EF-4DB7-85A3-05B2C3237FB9}';
RID_PresupuestosCliente_DetallesDelta = '{1BC57EDD-6A91-48FA-B9AE-EDCA498A98BD}';
RID_ValoresDelta = '{F474C394-03E2-478D-B532-27D4854BFAF2}';
RID_PropiedadesDelta = '{884EB1CE-DC47-4617-8333-3EC5DBFD665B}';
RID_ListaAnosPresupuestosDelta = '{925DEA86-D6E7-405B-8AC5-DC91888B5F49}';
RID_PresupuestosClienteDelta = '{1EAAD063-02A3-4241-8820-524FA60D7806}';
RID_CapitulosPresupuestoDelta = '{70F8EB27-2019-40CA-9A3C-091F37ADC909}';
RID_PresupuestosCliente_DetallesDelta = '{13C9A38A-3687-4815-8E90-F51DAC75F95B}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{520946FF-B8D7-470C-A8D1-085390E88242}']
['{F474C394-03E2-478D-B532-27D4854BFAF2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -101,7 +101,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{953D246D-7ED0-4B5D-9755-B661A08AC228}']
['{884EB1CE-DC47-4617-8333-3EC5DBFD665B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -147,7 +147,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{EE50CEDA-7BCF-4608-AC09-803D95F41C36}']
['{925DEA86-D6E7-405B-8AC5-DC91888B5F49}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -181,7 +181,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{D990481F-7BB6-4BBC-A0C0-3623BC468D3B}']
['{1EAAD063-02A3-4241-8820-524FA60D7806}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -699,20 +699,32 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{1D168748-D2EF-4DB7-85A3-05B2C3237FB9}']
['{70F8EB27-2019-40CA-9A3C-091F37ADC909}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : 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 }
property OldID : Integer read GetOldIDValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
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;
{ TCapitulosPresupuestoBusinessProcessorRules }
@ -744,12 +756,48 @@ type
function GetOldTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
function GetOldPROPIEDADValue: String; virtual;
function GetOldPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -768,10 +816,34 @@ type
property TIPO_ARTICULOIsNull : Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldTIPO_ARTICULOIsNull : Boolean read GetOldTIPO_ARTICULOIsNull;
property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -781,7 +853,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{1BC57EDD-6A91-48FA-B9AE-EDCA498A98BD}']
['{13C9A38A-3687-4815-8E90-F51DAC75F95B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -2726,35 +2798,221 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADValue: String;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADValue: String;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
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;

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

@ -34,6 +34,9 @@ type
IBizCapitulo = interface(ICapitulosPresupuesto)
['{FE35D755-7781-441F-960C-98F847A5039E}']
function GetTipo: String;
procedure SetTipo(Value: String);
property Tipo: String read GetTipo write SetTipo;
end;
IBizDetallesPresupuestoCliente = interface(IPresupuestosCliente_Detalles)
@ -59,6 +62,14 @@ type
end;
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;
TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente)
@ -120,6 +131,30 @@ begin
EnlazarMaestroDetalle(FValoresLink, FValores);
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
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente);
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
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
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 = <
item
DatasetField = 'ID'
@ -545,36 +551,101 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'TIPO_ARTICULO'
end
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
DatasetField = 'CONCEPTO'
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>
Name = 'CapitulosPresupuesto'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True
end
item
Name = 'POSICION'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
end
item
Name = 'PROPIEDAD'
Name = 'CONCEPTO'
DataType = datString
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
item
@ -1390,6 +1461,118 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
ColumnMappings = <>
end>
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>
RelationShips = <
item
@ -1450,6 +1633,27 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DoInsert = False
DatasetName = 'PresupuestosCliente'
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>
Version = 0
Left = 48
@ -1708,6 +1912,61 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 255
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>
Left = 48
Top = 152
@ -1738,4 +1997,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Left = 232
Top = 96
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

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

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

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

@ -52,7 +52,19 @@ requires
cxEditorsD11,
cxDataD11,
cxExtEditorsD11,
ApplicationBase;
ApplicationBase,
PngComponentsD10,
PNG_D10,
vclactnband,
tb2k_d10,
tbx_d10,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
cxGridD11,
cxPageControlD11,
cxExportD11;
contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@ -72,10 +84,11 @@ contains
uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame},
uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: 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},
uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: 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.

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

@ -49,34 +49,46 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Controller\ApplicationBase.dcp" />
<DCCReference Include="..\Controller\Articulos_view.dcp" />
<DCCReference Include="..\Controller\Base.dcp" />
<DCCReference Include="..\Controller\cxDataD11.dcp" />
<DCCReference Include="..\Controller\cxEditorsD11.dcp" />
<DCCReference Include="..\Controller\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Controller\cxLibraryD11.dcp" />
<DCCReference Include="..\Controller\dbrtl.dcp" />
<DCCReference Include="..\Controller\dxCoreD11.dcp" />
<DCCReference Include="..\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Controller\GestorInformes_controller.dcp" />
<DCCReference Include="..\Controller\GUIBase.dcp" />
<DCCReference Include="..\Controller\Jcl.dcp" />
<DCCReference Include="..\Controller\JclVcl.dcp" />
<DCCReference Include="..\Controller\JvCoreD11R.dcp" />
<DCCReference Include="..\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Controller\JvMMD11R.dcp" />
<DCCReference Include="..\Controller\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Controller\JvSystemD11R.dcp" />
<DCCReference Include="..\Controller\PreCli_ConCli_relation.dcp" />
<DCCReference Include="..\Controller\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\Controller\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\Controller\rtl.dcp" />
<DCCReference Include="..\Controller\vcl.dcp" />
<DCCReference Include="..\Controller\vcldb.dcp" />
<DCCReference Include="..\Controller\vcljpg.dcp" />
<DCCReference Include="..\Controller\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Jcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\PngComponentsD10.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">
<Form>fEditorAsignarDescuento</Form>
</DCCReference>
@ -104,12 +116,16 @@
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference>
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewConfiguracionCapitulo.pas">
<Form>frViewConfiguracionCapitulo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocArmario.pas">
<Form>frViewConfiguracionDocArmario</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocBano.pas">
<Form>frViewConfiguracionDocBano</Form>
<Form>frViewConfiguracionDocBANO</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<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
Width = 679
Height = 530
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
Width = 838
Height = 634
ExplicitWidth = 838
ExplicitHeight = 634
inherited Panel1: TPanel
Width = 669
TabOrder = 2
Width = 828
TabOrder = 1
ExplicitWidth = 530
inherited Label3: TLabel
Width = 657
Width = 816
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 679
Width = 838
LabelCaption = 'Configuraci'#243'n de los documentos de armario'
TabOrder = 0
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
object Paginas: TPageControl
Left = 0
Top = 68
Width = 838
Height = 566
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
object Label1: TLabel
Left = 11
Top = 22
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel
Left = 11
Top = 147
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 269
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 391
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
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

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

@ -5,17 +5,25 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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
TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
pagCapituloFrente: TTabSheet;
frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo;
pagCapituloInterior: TTabSheet;
frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
@ -30,7 +38,8 @@ implementation
{$R *.dfm}
{ TfrViewConfiguracionDocARMARIO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocArmario.CargarValores;
begin
@ -43,6 +52,13 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
eCondiciones.Lines.Clear;
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;
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_OBSERVACIONES_ARMARIO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates;
frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates;
end;

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

@ -1,79 +1,215 @@
inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano
Width = 670
Height = 528
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 frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
Width = 876
Height = 651
inherited Panel1: TPanel
Width = 660
TabOrder = 2
ExplicitWidth = 530
Width = 866
TabOrder = 1
inherited Label3: TLabel
Width = 648
Width = 854
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 670
Width = 876
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
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
object paginas: TPageControl
Left = 0
Top = 68
Width = 876
Height = 583
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 16
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel
Left = 11
Top = 141
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
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

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

@ -5,17 +5,23 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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
TfrViewConfiguracionDocBano = class(TfrViewConfiguracionBase)
TfrViewConfiguracionDocBANO = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
@ -24,15 +30,16 @@ type
end;
var
frViewConfiguracionDocBano: TfrViewConfiguracionDocBano;
frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocBANO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocBano.CargarValores;
procedure TfrViewConfiguracionDocBANO.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
@ -43,25 +50,30 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_B);
end;
class function TfrViewConfiguracionDocBano.DarEtiqueta: String;
class function TfrViewConfiguracionDocBANO.DarEtiqueta: String;
begin
Result := 'Documentos baño';
end;
class function TfrViewConfiguracionDocBano.GetViewClass: TClass;
class function TfrViewConfiguracionDocBANO.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocBANO;
end;
procedure TfrViewConfiguracionDocBano.GuardarValores;
procedure TfrViewConfiguracionDocBANO.GuardarValores;
begin
inherited;
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_OBSERVACIONES_BANO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;

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

@ -1,78 +1,224 @@
inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
Height = 496
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
Width = 792
Height = 651
ExplicitWidth = 792
ExplicitHeight = 651
inherited Panel1: TPanel
Width = 530
TabOrder = 2
Width = 782
TabOrder = 1
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
Width = 770
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
Width = 792
LabelCaption = 'Configuraci'#243'n de los documentos de cocina'
TabOrder = 0
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
object Paginas: TPageControl
Left = 0
Top = 68
Width = 792
Height = 583
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitLeft = 3
object Label1: TLabel
Left = 11
Top = 23
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel
Left = 11
Top = 148
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 270
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 169
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
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

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

@ -5,17 +5,23 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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
TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
eCondiciones: TcxRichEdit;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
@ -23,14 +29,12 @@ type
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocCocina }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocCocina.CargarValores;
begin
@ -43,6 +47,9 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_C);
end;
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_OBSERVACIONES_COCINA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;

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

@ -1,78 +1,216 @@
inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
Height = 533
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
Width = 821
Height = 564
ExplicitWidth = 821
ExplicitHeight = 564
inherited Panel1: TPanel
Width = 530
TabOrder = 2
Width = 811
TabOrder = 1
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
Width = 799
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
Width = 821
LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos'
TabOrder = 0
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
object Paginas: TPageControl
Left = 0
Top = 68
Width = 821
Height = 496
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
object Label1: TLabel
Left = 11
Top = 20
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel
Left = 11
Top = 145
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 267
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 352
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
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 = 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

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

@ -5,17 +5,23 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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
TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase)
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
@ -30,7 +36,8 @@ implementation
{$R *.dfm}
{ TfrViewConfiguracionDocELECTRODOMESTICO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocElectrodomestico.CargarValores;
begin
@ -43,6 +50,9 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_E);
end;
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_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;

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

@ -1,79 +1,216 @@
inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
Width = 759
Height = 564
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
Width = 824
Height = 580
ExplicitWidth = 824
ExplicitHeight = 580
inherited Panel1: TPanel
Width = 749
TabOrder = 2
Width = 814
TabOrder = 1
ExplicitWidth = 530
inherited Label3: TLabel
Width = 737
Width = 802
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 759
Width = 824
LabelCaption = 'Configuraci'#243'n de los documentos de obra'
TabOrder = 0
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
object paginas: TPageControl
Left = 0
Top = 68
Width = 824
Height = 512
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitLeft = 3
object Label1: TLabel
Left = 11
Top = 20
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel
Left = 11
Top = 145
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 267
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 368
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
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

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

@ -5,17 +5,23 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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
TfrViewConfiguracionDocObra = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
@ -30,7 +36,8 @@ implementation
{$R *.dfm}
{ TfrViewConfiguracionDocOBRA }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocObra.CargarValores;
begin
@ -43,6 +50,9 @@ begin
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
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_OBSERVACIONES_OBRA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
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',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_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',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_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 ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -30,6 +30,8 @@
<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>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.4.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\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
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.