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

Primera parte de readaptación propiedades-valores a familias-articulos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@559 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2012-05-18 15:11:48 +00:00
parent 0e0e01b0fd
commit b5f281e742
33 changed files with 1150 additions and 827 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

117
Source/Base/Base.dproj
View File

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

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

1
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -152,6 +152,7 @@ end;
procedure TDetallesContratoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA;
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO

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

@ -357,6 +357,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -398,7 +403,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item
Name = 'REFERENCIA'
DataType = datString
Size = 50
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
@ -451,74 +456,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Left = 248
Top = 144
end
object tbl_Propiedades: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 50
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente
LogicalName = 'Propiedades'
IndexDefs = <>
Left = 464
Top = 200
end
object ds_Propiedades: TDADataSource
DataSet = tbl_Propiedades.Dataset
DataTable = tbl_Propiedades
Left = 464
Top = 152
end
object tbl_Valores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente
MasterSource = ds_Propiedades
MasterFields = 'ID_PROPIEDAD_VALORES'
DetailFields = 'ID_PROPIEDAD'
LogicalName = 'Valores'
IndexDefs = <>
Left = 544
Top = 200
end
object ds_Valores: TDADataSource
DataSet = tbl_Valores.Dataset
DataTable = tbl_Valores
Left = 544
Top = 152
end
object tbl_TiposCapitulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <

4
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
View File

@ -25,10 +25,6 @@ type
RORemoteService1: TRORemoteService;
tbl_ListaAnosContratos: TDAMemDataTable;
ds_ListaAnosContratos: TDADataSource;
tbl_Propiedades: TDAMemDataTable;
ds_Propiedades: TDADataSource;
tbl_Valores: TDAMemDataTable;
ds_Valores: TDADataSource;
tbl_TiposCapitulos: TDAMemDataTable;
ds_TiposCapitulos: TDADataSource;
tbl_ContratosClienteBeneficios: TDAMemDataTable;

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

@ -3,19 +3,19 @@ unit schContratosClienteClient_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_Valores = '{72B7AEE8-325E-4838-9EFA-4A888B257897}';
RID_Propiedades = '{204B145C-8E4B-42B5-8305-40B6D02D17A8}';
RID_ListaAnosContratos = '{A9376B52-1BE5-4374-A5C9-A28ED0A55664}';
RID_ContratosClienteBeneficios = '{465DF5E0-F5CF-4515-B7DC-B4BE11BE7934}';
RID_ContratosCliente = '{8CB29C6D-A484-4B0A-8273-424E91DAF879}';
RID_TiposCapitulos = '{A3D99F24-9CDC-4DC7-A89B-2AC340010C93}';
RID_ContratosCliente_Detalles = '{421C5A4A-27CD-4656-9DC9-6D2E2E508231}';
RID_Valores = '{77A5C873-380F-4698-9E11-F611CF7B4D6A}';
RID_Propiedades = '{486DF363-F3FC-4540-B80F-3D6ECD60057F}';
RID_ListaAnosContratos = '{5F6BBC0C-7DD6-4B5A-93C3-E0A70687F51B}';
RID_ContratosClienteBeneficios = '{5001FCC6-7A3E-420B-A362-C66022A8D4F9}';
RID_ContratosCliente = '{ED10394C-954E-4012-88CC-B63CAC527A63}';
RID_TiposCapitulos = '{2DF18C63-1821-49E9-AC1D-634E5396332E}';
RID_ContratosCliente_Detalles = '{FE59D0AE-E7D9-4742-A444-A90ACC89B005}';
{ Data table names }
nme_Valores = 'Valores';
@ -193,6 +193,7 @@ const
fld_ContratosCliente_DetallesID_CONTRATO = 'ID_CONTRATO';
fld_ContratosCliente_DetallesPOSICION = 'POSICION';
fld_ContratosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_ContratosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_ContratosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@ -210,22 +211,23 @@ const
idx_ContratosCliente_DetallesID_CONTRATO = 1;
idx_ContratosCliente_DetallesPOSICION = 2;
idx_ContratosCliente_DetallesTIPO_DETALLE = 3;
idx_ContratosCliente_DetallesCONCEPTO = 4;
idx_ContratosCliente_DetallesCANTIDAD = 5;
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 6;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 7;
idx_ContratosCliente_DetallesVISIBLE = 8;
idx_ContratosCliente_DetallesID_ARTICULO = 9;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 10;
idx_ContratosCliente_DetallesDESCUENTO = 11;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 12;
idx_ContratosCliente_DetallesREFERENCIA = 13;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
idx_ContratosCliente_DetallesPROPIEDAD = 4;
idx_ContratosCliente_DetallesCONCEPTO = 5;
idx_ContratosCliente_DetallesCANTIDAD = 6;
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
idx_ContratosCliente_DetallesVISIBLE = 9;
idx_ContratosCliente_DetallesID_ARTICULO = 10;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 11;
idx_ContratosCliente_DetallesDESCUENTO = 12;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 13;
idx_ContratosCliente_DetallesREFERENCIA = 14;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{FAEF0BA9-EE5E-4DBA-8566-920E9D426DC7}']
['{DFCE6325-A26B-4ABC-B445-11FC8A0B0EA5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -251,7 +253,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -284,7 +286,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{E0116E85-FA5E-4B34-9EB7-CDD77FBE72DE}']
['{3905AFC7-7942-4A46-9780-838277847C23}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -310,7 +312,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -343,7 +345,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{B157E813-9175-49A8-B893-9A9924926C56}']
['{50911EB2-C48F-4B1B-B3B5-2AE0C9EF69E9}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -357,7 +359,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -378,7 +380,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{669F62EB-07E0-4A41-9D2A-B8FC81A11A12}']
['{E857F9D0-94BB-4BAD-8CC8-5BBBAFDB6B52}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -452,7 +454,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@ -533,7 +535,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{6C9916A4-79AB-4C37-A48C-6012AB24C980}']
['{918B08A5-1B87-4AC4-A9E9-AC5F96815EB0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -807,7 +809,7 @@ type
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -1099,7 +1101,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{CA80C6D6-6E5B-4E3A-9790-34416A07D6B6}']
['{48215290-558C-4E03-B941-E5C5162F335F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1143,7 +1145,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1194,7 +1196,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{01A6BC62-F13E-40FD-A7CA-ACE471474C86}']
['{202C1D1C-1786-4027-A601-61B2DF617286}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1212,6 +1214,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(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;
@ -1267,6 +1273,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
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: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1292,7 +1300,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -1312,6 +1320,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(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;
@ -1366,6 +1378,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
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: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -3037,6 +3051,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString;
end;
procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsString;

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

@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}';
RID_PropiedadesDelta = '{EAC18BA2-1808-42BD-B887-7780E0DE9339}';
RID_ListaAnosContratosDelta = '{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}';
RID_ContratosClienteBeneficiosDelta = '{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}';
RID_ContratosClienteDelta = '{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}';
RID_TiposCapitulosDelta = '{6A3B35F6-2F7A-413B-AB11-9F05935C5774}';
RID_ContratosCliente_DetallesDelta = '{01D29ED0-F4B1-45DD-A233-C0B689192303}';
RID_ValoresDelta = '{8CBBCC4D-7331-4B84-AAA3-4BB44C00350D}';
RID_PropiedadesDelta = '{ABE36068-9C2A-4085-A298-7A30650655AB}';
RID_ListaAnosContratosDelta = '{A4974C08-1841-49BF-8870-5515D21B8330}';
RID_ContratosClienteBeneficiosDelta = '{E213F4FC-FC45-4298-BB98-EFCC5BF3A82F}';
RID_ContratosClienteDelta = '{D5BD987F-847E-4F41-AB14-F13F95A95B72}';
RID_TiposCapitulosDelta = '{5573FCA2-DCAD-4F1D-BE66-CD8EE363EEF6}';
RID_ContratosCliente_DetallesDelta = '{6F34F5D3-1DE1-4784-97F6-30522B0CBAC2}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}']
['{8CBBCC4D-7331-4B84-AAA3-4BB44C00350D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{EAC18BA2-1808-42BD-B887-7780E0DE9339}']
['{ABE36068-9C2A-4085-A298-7A30650655AB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}']
['{A4974C08-1841-49BF-8870-5515D21B8330}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}']
['{E213F4FC-FC45-4298-BB98-EFCC5BF3A82F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -324,7 +324,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}']
['{D5BD987F-847E-4F41-AB14-F13F95A95B72}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -890,7 +890,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{6A3B35F6-2F7A-413B-AB11-9F05935C5774}']
['{5573FCA2-DCAD-4F1D-BE66-CD8EE363EEF6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -984,12 +984,13 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{01D29ED0-F4B1-45DD-A233-C0B689192303}']
['{6F34F5D3-1DE1-4784-97F6-30522B0CBAC2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
@ -1007,6 +1008,7 @@ type
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -1049,6 +1051,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(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;
@ -1133,6 +1141,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
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;
@ -3561,6 +3573,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesTIPO_DETALLE] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := aValue;
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCONCEPTO];

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

@ -760,18 +760,18 @@ object srvContratosCliente: TsrvContratosCliente
'SELECT'#10' CONTRATOS_CLIENTE_DETALLES.ID, CONTRATOS_CLIENTE_DETA' +
'LLES.ID_CONTRATO,'#10' CONTRATOS_CLIENTE_DETALLES.POSICION, CONTR' +
'ATOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' CONTRATOS_CLIENTE_DETALL' +
'ES.CONCEPTO, CONTRATOS_CLIENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_' +
'CLIENTE_DETALLES.IMPORTE_UNIDAD, CONTRATOS_CLIENTE_DETALLES.IMPO' +
'RTE_TOTAL,'#10' CONTRATOS_CLIENTE_DETALLES.VISIBLE,'#10#10' CONTRATO' +
'S_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE_DETALLES.TIPO_' +
'ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENTO,'#10' CONTRATO' +
'S_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' PRESUPUESTOS_PROPIEDADES.D' +
'ESCRIPCION as REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es ne' +
'cesario para que no fallen los detalles porque los detalles son ' +
'comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTRATOS' +
'_CLIENTE_DETALLES'#10'LEFT JOIN PRESUPUESTOS_PROPIEDADES ON (PRESUPU' +
'ESTOS_PROPIEDADES.ID = CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO)'#10'w' +
'here {where}'#10'ORDER BY POSICION;'#10#10
'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' +
'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' +
'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' +
'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' +
'_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' +
's necesario para que no fallen los detalles porque los detalles ' +
'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' +
'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' +
'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' +
'ON;'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -826,15 +826,19 @@ object srvContratosCliente: TsrvContratosCliente
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
end
item
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end>
end>
Name = 'ContratosCliente_Detalles'
@ -858,6 +862,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -899,7 +908,7 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'REFERENCIA'
DataType = datString
Size = 50
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
@ -1415,6 +1424,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1469,12 +1484,13 @@ object srvContratosCliente: TsrvContratosCliente
TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' +
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' +
'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' DESCUEN' +
'TO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_CONTRATO, ' +
':POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UN' +
'IDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIPO_ARTICUL' +
'O, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' +
'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' +
' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' +
'_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' +
' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' +
'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' +
'MESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1523,6 +1539,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1582,12 +1604,13 @@ object srvContratosCliente: TsrvContratosCliente
SQL =
'UPDATE CONTRATOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_CO' +
'NTRATO = :ID_CONTRATO,'#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' +
'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
'AL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO =' +
' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' +
'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' +
'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
'LE = :TIPO_DETALLE,'#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = :' +
'CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPO' +
'RTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :' +
'VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = :' +
'TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = ' +
':IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHE' +
'RE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -174,6 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl
Width = 839
Height = 270
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 839
@ -187,10 +188,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0
Top = 0
@ -211,77 +208,96 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitHeight = 242
inherited ToolBar1: TToolBar
Width = 831
Height = 24
ExplicitWidth = 831
inherited ToolButton4: TToolButton
Wrap = True
end
ExplicitHeight = 24
inherited ToolButton14: TToolButton
Left = 0
Top = 22
Wrap = False
ExplicitLeft = 0
ExplicitTop = 22
end
inherited FontName: TJvFontComboBox
Left = 34
ExplicitLeft = 34
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 179
inherited UpDown1: TUpDown [6]
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited ToolButton13: TToolButton [7]
Left = 530
Top = 0
ExplicitLeft = 530
ExplicitTop = 0
end
inherited ToolButton6: TToolButton [8]
Left = 538
Top = 0
ExplicitLeft = 538
ExplicitTop = 0
end
inherited ToolButton7: TToolButton [9]
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton8: TToolButton [10]
Left = 606
Top = 0
ExplicitLeft = 606
ExplicitTop = 0
end
inherited ToolButton12: TToolButton [11]
Left = 640
Top = 0
ExplicitLeft = 640
ExplicitTop = 0
end
inherited ToolButton9: TToolButton [12]
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton10: TToolButton [13]
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton11: TToolButton [14]
Left = 716
Top = 0
ExplicitLeft = 716
ExplicitTop = 0
end
inherited FontSize: TEdit [15]
Left = 750
Top = 0
Width = 74
ExplicitLeft = 179
ExplicitLeft = 750
ExplicitTop = 0
ExplicitWidth = 74
end
inherited UpDown1: TUpDown
Left = 253
ExplicitLeft = 253
end
inherited ToolButton13: TToolButton
Left = 270
ExplicitLeft = 270
end
inherited ToolButton6: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton7: TToolButton
Left = 312
ExplicitLeft = 312
end
inherited ToolButton8: TToolButton
Left = 346
ExplicitLeft = 346
end
inherited ToolButton12: TToolButton
Left = 380
ExplicitLeft = 380
end
inherited ToolButton9: TToolButton
Left = 388
ExplicitLeft = 388
end
inherited ToolButton10: TToolButton
Left = 422
ExplicitLeft = 422
end
inherited ToolButton11: TToolButton
Left = 456
ExplicitLeft = 456
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 831
Height = 170
Height = 192
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 273
ExplicitWidth = 831
ExplicitHeight = 192
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 831
ExplicitTop = 24
ExplicitWidth = 834
ExplicitWidth = 831
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 564
ExplicitWidth = 665
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@ -290,15 +306,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited cxRichEdit1: TcxRichEdit
Style.IsFontAssigned = True
end
inherited cxLookupComboBox2: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -375,6 +390,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited PnlComentario: TPanel
Width = 845
ExplicitWidth = 845
inherited lbComentario: TLabel
Width = 835
Height = 25
end
end
inline frViewTotales1: TfrViewTotales [5]
Left = 0

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

@ -1,61 +1,89 @@
inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 905
Height = 475
inherited ToolBar1: TToolBar
Width = 905
Height = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 145
ExplicitLeft = 145
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 187
ExplicitLeft = 187
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 204
ExplicitLeft = 204
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 212
ExplicitLeft = 212
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 246
ExplicitLeft = 246
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 280
ExplicitLeft = 280
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 314
ExplicitLeft = 314
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 322
ExplicitLeft = 322
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 356
ExplicitLeft = 356
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 390
ExplicitLeft = 390
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 905
Height = 425
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 57
@ -68,19 +96,12 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True
end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6]
object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad'
DataBinding.FieldName = 'ID_ARTICULO'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades
DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
Width = 138
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end
@ -89,15 +110,15 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 243
Width = 186
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [10]
VisibleForCustomization = False
Width = 25
Width = 20
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False
Width = 34
Width = 26
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False
@ -112,12 +133,15 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15]
VisibleForCustomization = False
Width = 29
Width = 22
end
end
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 905
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665
object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText
@ -207,6 +231,29 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Height = 25
Width = 145
end
object cxLookupComboBox2: TcxLookupComboBox [5]
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 = 5
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList
object actAsignarDescuento: TAction
Category = 'Operaciones'

37
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -30,7 +30,7 @@ type
TBXItem18: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem;
DAPropiedades: TDADataSource;
cxGridViewID_PROPIEDAD: TcxGridDBColumn;
cxGridViewPROPIEDAD: TcxGridDBColumn;
cxLookupComboBox1: TcxLookupComboBox;
DAValores: TDADataSource;
cxRichEdit1: TcxRichEdit;
@ -57,11 +57,14 @@ type
TBXItem21: TTBXItem;
actCapituloObra: TAction;
TBXItem22: TTBXItem;
cxLookupComboBox2: TcxLookupComboBox;
procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDESCRIPCIONGetPropertiesForEdit(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
procedure cxGridViewPROPIEDADGetPropertiesForEdit(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
procedure actCapituloBanoExecute(Sender: TObject);
procedure actCapituloArmarioFExecute(Sender: TObject);
procedure actCapituloArmarioIExecute(Sender: TObject);
@ -70,7 +73,7 @@ type
procedure actCapituloVariosExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);
procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actCapituloObraExecute(Sender: TObject);
@ -268,18 +271,29 @@ begin
inherited;
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
(cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]);
DAPropiedades.DataTable.Locate(fld_PropiedadesDESCRIPCION, cxGridViewPROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AI)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_B)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_C)) then
then
AProperties := cxLookupComboBox1.Properties
else
AProperties := cxRichEdit1.Properties;
end;
procedure TfrViewDetallesContratoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
then
AProperties := cxLookupComboBox2.Properties
else
AProperties := cxRichEdit1.Properties;
end;
function TfrViewDetallesContratoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var
IndiceCol : Integer;
@ -292,7 +306,7 @@ begin
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
Result := False
end
else if (AItem.Index in [cxGridViewID_PROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
@ -305,8 +319,11 @@ begin
IndiceCol := cxGridView.GetColumnByFieldName(fld_ContratosCliente_DetallesTIPO_ARTICULO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C)) then
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_O) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_V) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_E) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then
Result := False
end;
end

4
Source/Modulos/Familias/Data/uDataModuleFamilias.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleFamilias: TDataModuleFamilias
Top = 24
end
object rda_Familias: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 203
Top = 23
end
@ -44,8 +44,6 @@ inherited DataModuleFamilias: TDataModuleFamilias
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Familias
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Familias'
IndexDefs = <>
Left = 280

6
Source/Modulos/Familias/Model/schFamiliasClient_Intf.pas
View File

@ -3,13 +3,13 @@ unit schFamiliasClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, 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_Familias = '{5E0E521B-7290-449D-9894-03C398EAC16B}';
RID_Familias = '{C080B399-6DAA-4558-9E84-9DE0C6929783}';
{ Data table names }
nme_Familias = 'Familias';
@ -25,7 +25,7 @@ const
type
{ IFamilias }
IFamilias = interface(IDAStronglyTypedDataTable)
['{2AE94E1A-10A4-49E9-9644-4D2DD29A7C1E}']
['{05E4B82B-526F-4BF8-A3CA-E2095F4A73A5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

4
Source/Modulos/Familias/Model/schFamiliasServer_Intf.pas
View File

@ -9,12 +9,12 @@ 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_FamiliasDelta = '{40100251-026E-43C3-8E18-67EA817A9BA4}';
RID_FamiliasDelta = '{A7871FF9-60A2-476E-813D-5FAA89816E86}';
type
{ IFamiliasDelta }
IFamiliasDelta = interface(IFamilias)
['{40100251-026E-43C3-8E18-67EA817A9BA4}']
['{A7871FF9-60A2-476E-813D-5FAA89816E86}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;

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

Binary file not shown.

12
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
View File

@ -49,12 +49,12 @@
<DelphiCompile Include="PresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Views\Articulos_controller.dcp" />
<DCCReference Include="..\Views\Contactos_controller.dcp" />
<DCCReference Include="..\Views\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\Views\GUIBase.dcp" />
<DCCReference Include="..\Views\PresupuestosCliente_data.dcp" />
<DCCReference Include="..\Views\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_data.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosPresupuestoClienteController.pas" />
<DCCReference Include="uDetallesPresupuestoClienteController.pas" />
<DCCReference Include="uPresupuestosClienteController.pas" />

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

@ -58,7 +58,7 @@ type
implementation
uses DB, Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModulePresupuestosCliente,
uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf,
uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf,
uDataTableUtils, uCalculosUtils, uIEditorAsignarDescuento, uEditorRegistryUtils;
{ TDetallesPresupuestoClienteController }
@ -130,7 +130,7 @@ begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesID_ARTICULO).AsInteger := ACapitulo.ID_ARTICULO;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesPROPIEDAD).AsString := ACapitulo.PROPIEDAD;
Next;
until EOF;
end;
@ -230,6 +230,7 @@ end;
procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA;
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO

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

@ -292,6 +292,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 2000
end
item
Name = 'CONCEPTO'
DataType = datString
@ -398,11 +403,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item
Name = 'DESCRIPCION'
DataType = datString
Size = 50
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -428,21 +429,31 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
MasterSource = ds_Propiedades
MasterFields = 'ID_PROPIEDAD_VALORES'
DetailFields = 'ID_PROPIEDAD'
MasterFields = 'DESCRIPCION'
DetailFields = 'FAMILIA'
LogicalName = 'Valores'
IndexDefs = <>
Left = 544
@ -478,13 +489,9 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Size = 2
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'CONCEPTO'
Name = 'PROPIEDAD'
DataType = datString
Size = 2000
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_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_Valores = '{AC6EF137-1256-43A3-AB3F-76A5C484DFF0}';
RID_Propiedades = '{A6F5198D-19FD-49CA-8AA3-BC35F11D3BEF}';
RID_ListaAnosPresupuestos = '{D4D48BBF-987E-4085-893B-DCC70A9B63E7}';
RID_PresupuestosCliente = '{FF71F28A-9955-44A1-AE5B-5A1229D17A8F}';
RID_CapitulosPresupuesto = '{3ACF0486-2EFD-4EF7-90DF-CE29E1006EC3}';
RID_PresupuestosCliente_Detalles = '{12678EE2-C67A-44AC-A8FA-52125FCCBF5D}';
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}';
{ Data table names }
nme_Valores = 'Valores';
@ -26,23 +26,25 @@ const
{ Valores fields }
fld_ValoresID = 'ID';
fld_ValoresID_PROPIEDAD = 'ID_PROPIEDAD';
fld_ValoresID_EMPRESA = 'ID_EMPRESA';
fld_ValoresREFERENCIA = 'REFERENCIA';
fld_ValoresDESCRIPCION = 'DESCRIPCION';
fld_ValoresFAMILIA = 'FAMILIA';
{ Valores field indexes }
idx_ValoresID = 0;
idx_ValoresID_PROPIEDAD = 1;
idx_ValoresDESCRIPCION = 2;
idx_ValoresID_EMPRESA = 1;
idx_ValoresREFERENCIA = 2;
idx_ValoresDESCRIPCION = 3;
idx_ValoresFAMILIA = 4;
{ Propiedades fields }
fld_PropiedadesID = 'ID';
fld_PropiedadesDESCRIPCION = 'DESCRIPCION';
fld_PropiedadesID_PROPIEDAD_VALORES = 'ID_PROPIEDAD_VALORES';
{ Propiedades field indexes }
idx_PropiedadesID = 0;
idx_PropiedadesDESCRIPCION = 1;
idx_PropiedadesID_PROPIEDAD_VALORES = 2;
{ ListaAnosPresupuestos fields }
fld_ListaAnosPresupuestosANO = 'ANO';
@ -141,22 +143,21 @@ const
fld_CapitulosPresupuestoPOSICION = 'POSICION';
fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO';
fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';
fld_CapitulosPresupuestoPROPIEDAD = 'PROPIEDAD';
{ CapitulosPresupuesto field indexes }
idx_CapitulosPresupuestoID = 0;
idx_CapitulosPresupuestoPOSICION = 1;
idx_CapitulosPresupuestoTIPO_DETALLE = 2;
idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
idx_CapitulosPresupuestoID_ARTICULO = 4;
idx_CapitulosPresupuestoCONCEPTO = 5;
idx_CapitulosPresupuestoPROPIEDAD = 4;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_PresupuestosCliente_DetallesPOSICION = 'POSICION';
fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_PresupuestosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@ -174,48 +175,61 @@ const
idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1;
idx_PresupuestosCliente_DetallesPOSICION = 2;
idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3;
idx_PresupuestosCliente_DetallesCONCEPTO = 4;
idx_PresupuestosCliente_DetallesCANTIDAD = 5;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7;
idx_PresupuestosCliente_DetallesVISIBLE = 8;
idx_PresupuestosCliente_DetallesID_ARTICULO = 9;
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 10;
idx_PresupuestosCliente_DetallesDESCUENTO = 11;
idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 12;
idx_PresupuestosCliente_DetallesREFERENCIA = 13;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
idx_PresupuestosCliente_DetallesPROPIEDAD = 4;
idx_PresupuestosCliente_DetallesCONCEPTO = 5;
idx_PresupuestosCliente_DetallesCANTIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
idx_PresupuestosCliente_DetallesVISIBLE = 9;
idx_PresupuestosCliente_DetallesID_ARTICULO = 10;
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11;
idx_PresupuestosCliente_DetallesDESCUENTO = 12;
idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13;
idx_PresupuestosCliente_DetallesREFERENCIA = 14;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{1E453B5F-0C22-4019-AD7A-79E409310CF5}']
['{7233C9EC-5F96-4CD6-AECB-A19F749396BD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_PROPIEDADValue: Integer;
procedure SetID_PROPIEDADValue(const aValue: Integer);
function GetID_PROPIEDADIsNull: Boolean;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetFAMILIAIsNull: Boolean;
procedure SetFAMILIAIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -223,22 +237,34 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDADValue: Integer; virtual;
procedure SetID_PROPIEDADValue(const aValue: Integer); virtual;
function GetID_PROPIEDADIsNull: Boolean; virtual;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -248,7 +274,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{ED342BFE-21DA-4BE7-A720-199166F086D8}']
['{31A40577-FC3A-475C-A49B-B00F60EA59D4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -258,10 +284,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetID_PROPIEDAD_VALORESValue: Integer;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
function GetID_PROPIEDAD_VALORESIsNull: Boolean;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
{ Properties }
@ -269,12 +291,10 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -286,18 +306,12 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -307,7 +321,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{D632F9B0-5384-430B-B64C-E93F01D72966}']
['{63A6C637-5FDF-4677-9761-D8002D4D9EBA}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -321,7 +335,7 @@ type
end;
{ TListaAnosPresupuestosDataTableRules }
TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private
protected
{ Property getters and setters }
@ -342,7 +356,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{42A8FF1A-071F-44AE-9B50-2B5A4A7625C6}']
['{9F8F0789-D6FD-4E4C-97B1-1EEAEFA900F2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -592,7 +606,7 @@ type
end;
{ TPresupuestosClienteDataTableRules }
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -857,7 +871,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{EC8BE7EC-E277-42FB-A7F2-C23DC9E74BB6}']
['{4AD23244-E63C-48A2-9F9F-662B3D41785B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -875,14 +889,10 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String);
function GetTIPO_ARTICULOIsNull: Boolean;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetPROPIEDADValue: String;
procedure SetPROPIEDADValue(const aValue: String);
function GetPROPIEDADIsNull: Boolean;
procedure SetPROPIEDADIsNull(const aValue: Boolean);
{ Properties }
@ -894,14 +904,12 @@ 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 ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
end;
{ TCapitulosPresupuestoDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@ -921,14 +929,10 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
function GetTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(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 GetPROPIEDADValue: String; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -939,10 +943,8 @@ 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 ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -952,7 +954,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{23EFE68F-D5E4-4B76-A8F6-50E45D5C755A}']
['{77CBC642-6303-467E-85B6-BE1CECD5ECFC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -970,6 +972,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(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;
@ -1025,6 +1031,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
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: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1050,7 +1058,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -1070,6 +1078,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(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;
@ -1124,6 +1136,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
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: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1189,25 +1203,46 @@ begin
DataTable.Fields[idx_ValoresID].AsVariant := Null;
end;
function TValoresDataTableRules.GetID_PROPIEDADValue: Integer;
function TValoresDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger;
result := DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger;
end;
procedure TValoresDataTableRules.SetID_PROPIEDADValue(const aValue: Integer);
procedure TValoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger := aValue;
DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger := aValue;
end;
function TValoresDataTableRules.GetID_PROPIEDADIsNull: boolean;
function TValoresDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresID_PROPIEDAD].IsNull;
result := DataTable.Fields[idx_ValoresID_EMPRESA].IsNull;
end;
procedure TValoresDataTableRules.SetID_PROPIEDADIsNull(const aValue: Boolean);
procedure TValoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresID_PROPIEDAD].AsVariant := Null;
DataTable.Fields[idx_ValoresID_EMPRESA].AsVariant := Null;
end;
function TValoresDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ValoresREFERENCIA].AsString;
end;
procedure TValoresDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ValoresREFERENCIA].AsString := aValue;
end;
function TValoresDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresREFERENCIA].IsNull;
end;
procedure TValoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresREFERENCIA].AsVariant := Null;
end;
function TValoresDataTableRules.GetDESCRIPCIONValue: String;
@ -1231,6 +1266,27 @@ begin
DataTable.Fields[idx_ValoresDESCRIPCION].AsVariant := Null;
end;
function TValoresDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_ValoresFAMILIA].AsString;
end;
procedure TValoresDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_ValoresFAMILIA].AsString := aValue;
end;
function TValoresDataTableRules.GetFAMILIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresFAMILIA].IsNull;
end;
procedure TValoresDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresFAMILIA].AsVariant := Null;
end;
{ TPropiedadesDataTableRules }
constructor TPropiedadesDataTableRules.Create(aDataTable: TDADataTable);
@ -1285,27 +1341,6 @@ begin
DataTable.Fields[idx_PropiedadesDESCRIPCION].AsVariant := Null;
end;
function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESValue: Integer;
begin
result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger;
end;
procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
begin
DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger := aValue;
end;
function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESIsNull: boolean;
begin
result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].IsNull;
end;
procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsVariant := Null;
end;
{ TListaAnosPresupuestosDataTableRules }
constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable);
@ -2330,46 +2365,25 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer;
function TCapitulosPresupuestoDataTableRules.GetPROPIEDADValue: String;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger;
result := DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsString;
end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
procedure TCapitulosPresupuestoDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue;
DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsString := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean;
function TCapitulosPresupuestoDataTableRules.GetPROPIEDADIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull;
result := DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
procedure TCapitulosPresupuestoDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOValue(const aValue: String);
begin
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
DataTable.Fields[idx_CapitulosPresupuestoPROPIEDAD].AsVariant := Null;
end;
@ -2468,6 +2482,27 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString := aValue;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].IsNull;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString;

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

@ -9,26 +9,30 @@ 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 = '{89E797B9-962D-4358-A7F2-A2C87D74F290}';
RID_PropiedadesDelta = '{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}';
RID_ListaAnosPresupuestosDelta = '{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}';
RID_PresupuestosClienteDelta = '{DED2F200-34F4-4A2B-9C56-78640B5B9B52}';
RID_CapitulosPresupuestoDelta = '{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}';
RID_PresupuestosCliente_DetallesDelta = '{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}';
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}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{89E797B9-962D-4358-A7F2-A2C87D74F290}']
['{520946FF-B8D7-470C-A8D1-085390E88242}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
end;
{ TValoresBusinessProcessorRules }
@ -42,32 +46,52 @@ type
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDADValue: Integer; virtual;
function GetID_PROPIEDADIsNull: Boolean; virtual;
function GetOldID_PROPIEDADValue: Integer; virtual;
function GetOldID_PROPIEDADIsNull: Boolean; virtual;
procedure SetID_PROPIEDADValue(const aValue: Integer); virtual;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
function GetFAMILIAIsNull: Boolean; virtual;
function GetOldFAMILIAValue: String; virtual;
function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(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;
property ID_PROPIEDAD : Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
property ID_PROPIEDADIsNull : Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue;
property OldID_PROPIEDADIsNull : Boolean read GetOldID_PROPIEDADIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -77,16 +101,14 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}']
['{953D246D-7ED0-4B5D-9755-B661A08AC228}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
function GetOldID_PROPIEDAD_VALORESValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
end;
{ TPropiedadesBusinessProcessorRules }
@ -106,12 +128,6 @@ type
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
function GetOldID_PROPIEDAD_VALORESValue: Integer; virtual;
function GetOldID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -122,10 +138,6 @@ type
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES : Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull : Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
property OldID_PROPIEDAD_VALORESIsNull : Boolean read GetOldID_PROPIEDAD_VALORESIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -135,7 +147,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}']
['{EE50CEDA-7BCF-4608-AC09-803D95F41C36}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +181,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{DED2F200-34F4-4A2B-9C56-78640B5B9B52}']
['{D990481F-7BB6-4BBC-A0C0-3623BC468D3B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -687,22 +699,20 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}']
['{1D168748-D2EF-4DB7-85A3-05B2C3237FB9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldTIPO_ARTICULOValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldPROPIEDADValue : String;
{ 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 OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
end;
{ TCapitulosPresupuestoBusinessProcessorRules }
@ -734,18 +744,12 @@ type
function GetOldTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(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 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;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -764,14 +768,10 @@ 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 ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
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 PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -781,12 +781,13 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}']
['{1BC57EDD-6A91-48FA-B9AE-EDCA498A98BD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
@ -804,6 +805,7 @@ type
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -846,6 +848,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(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;
@ -930,6 +938,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
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;
@ -1028,35 +1040,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID] := Null;
end;
function TValoresBusinessProcessorRules.GetID_PROPIEDADValue: Integer;
function TValoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA];
end;
function TValoresBusinessProcessorRules.GetID_PROPIEDADIsNull: Boolean;
function TValoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA]);
end;
function TValoresBusinessProcessorRules.GetOldID_PROPIEDADValue: Integer;
function TValoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA];
end;
function TValoresBusinessProcessorRules.GetOldID_PROPIEDADIsNull: Boolean;
function TValoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA]);
end;
procedure TValoresBusinessProcessorRules.SetID_PROPIEDADValue(const aValue: Integer);
procedure TValoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetID_PROPIEDADIsNull(const aValue: Boolean);
procedure TValoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := Null;
end;
function TValoresBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA];
end;
function TValoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA]);
end;
function TValoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA];
end;
function TValoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA]);
end;
procedure TValoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := Null;
end;
function TValoresBusinessProcessorRules.GetDESCRIPCIONValue: String;
@ -1090,6 +1133,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresDESCRIPCION] := Null;
end;
function TValoresBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA];
end;
function TValoresBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA]);
end;
function TValoresBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA];
end;
function TValoresBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA]);
end;
procedure TValoresBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := Null;
end;
{ TPropiedadesBusinessProcessorRules }
constructor TPropiedadesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -1164,37 +1238,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesDESCRIPCION] := Null;
end;
function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
end;
function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
end;
function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
end;
function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
end;
procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := aValue;
end;
procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := Null;
end;
{ TListaAnosPresupuestosBusinessProcessorRules }
constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2683,66 +2726,35 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOValue: Integer;
function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
function TCapitulosPresupuestoBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPROPIEDAD]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPROPIEDAD] := Null;
end;
@ -2881,6 +2893,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := aValue;
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO];

16
Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
View File

@ -17,6 +17,7 @@
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
@ -231,14 +232,23 @@
<Target Name="GestorInformes_controller:Make">
<MSBuild Projects="..\Gestor de informes\Controller\GestorInformes_controller.dproj" Targets="Make" />
</Target>
<Target Name="ContratosCliente_view">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_view:Clean">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_view:Make">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;ContratosCliente_controller;PreCli_ConCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;GestorInformes_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;ContratosCliente_controller;PreCli_ConCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;GestorInformes_controller;ContratosCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_controller:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;GestorInformes_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_controller:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;GestorInformes_controller:Clean;ContratosCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;ContratosCliente_controller:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;GestorInformes_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;ContratosCliente_controller:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;GestorInformes_controller:Make;ContratosCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -18,54 +18,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_VALORES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_PROPIEDAD'
TableField = 'ID_PROPIEDAD'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Valores'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_PROPIEDADES'
TargetTable = 'ARTICULOS'
Name = 'IBX'
SQL =
'select ID,'#10' DESCRIPCION,'#10' case WHEN ID_PADRE IS NULL' +
' THEN ID'#10' ELSE ID_PADRE'#10' end AS ID_PROPIEDAD_VA' +
'LORES'#10#10'from presupuestos_propiedades'#10#10'WHERE {Where}'#10
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, DESCRIPCION, FAMILIA'#10#10' ' +
'FROM'#10' ARTICULOS'#10' WHERE ELIMINADO = 0 and {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@ -77,9 +34,65 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID_PROPIEDAD_VALORES'
TableField = '<unknown>'
SQLOrigin = 'ID_PROPIEDAD_VALORES'
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end>
end>
Name = 'Valores'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FAMILIAS'
Name = 'IBX'
SQL = 'select ID,'#10' DESCRIPCION'#10#10'from familias'#10#10'WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Propiedades'
@ -93,11 +106,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'DESCRIPCION'
DataType = datString
Size = 50
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
Size = 255
end>
end
item
@ -536,12 +545,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'TIPO_ARTICULO'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
end>
end>
Name = 'CapitulosPresupuesto'
@ -567,13 +572,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 2
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'CONCEPTO'
Name = 'PROPIEDAD'
DataType = datString
Size = 2000
Size = 255
end>
end
item
@ -587,18 +588,18 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'SELECT'#10' PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENT' +
'E_DETALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POS' +
'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPUES' +
'TOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CAN' +
'TIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPU' +
'ESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_D' +
'ETALLES.VISIBLE,'#10#10' PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO,' +
' PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_C' +
'LIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMP' +
'ORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR' +
' /*Es necesario para que no fallen los detalles porque los detal' +
'les son comunes para la rama de cliente y de proveedor*/'#10#10'FROM P' +
'RESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS' +
'_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER' +
' BY POSICION;'#10#10#10
'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' +
'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' +
'_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' +
'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' +
'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' +
'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' +
'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' +
'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' +
'e no fallen los detalles porque los detalles son comunes para la' +
' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' +
'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' +
'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -662,6 +663,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
end>
end>
Name = 'PresupuestosCliente_Detalles'
@ -685,6 +690,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 2000
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1189,6 +1199,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1243,12 +1259,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' +
'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UN' +
'IDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' D' +
'ESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_PRES' +
'UPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :I' +
'MPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIP' +
'O_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' +
' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' +
'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' +
'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' +
'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 +
' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' +
'URRENT_TIMESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1297,6 +1314,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1356,13 +1379,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL =
'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID' +
'_PRESUPUESTO = :ID_PRESUPUESTO, '#10' POSICION = :POSICION, '#10' ' +
'TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CA' +
'NTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' I' +
'MPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_' +
'ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' ' +
' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ' +
' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD' +
'_ID)'#10
'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' +
'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' +
'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' +
'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' +
'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' +
'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1372,9 +1395,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'FK_Propiedades_Valores'
MasterDatasetName = 'Propiedades'
MasterFields = 'ID_PROPIEDAD_VALORES'
MasterFields = 'DESCRIPCION'
DetailDatasetName = 'Valores'
DetailFields = 'ID_PROPIEDAD'
DetailFields = 'FAMILIA'
RelationshipType = rtForeignKey
end
item

BIN
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.RES
View File

Binary file not shown.

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

@ -49,30 +49,34 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PreCli_ConCli_relation.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="rtl.dcp" />
<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="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form>
</DCCReference>
@ -117,7 +121,7 @@
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocObra.pas">
<Form>frViewConfiguracionDocObr</Form>
<Form>frViewConfiguracionDocObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocVarios.pas">
@ -156,10 +160,6 @@
<Form>frViewTotalesPresupuesto</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -1,5 +1,6 @@
inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano
Height = 503
Width = 670
Height = 528
object Label1: TLabel [0]
Left = 11
Top = 79
@ -22,15 +23,15 @@ inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano
Caption = 'Observaciones:'
end
inherited Panel1: TPanel
Width = 530
Width = 660
TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
Width = 648
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
Width = 670
LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o'
ExplicitWidth = 540
end

141
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -1,90 +1,113 @@
inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Width = 905
Height = 547
inherited ToolBar1: TToolBar
Width = 905
Height = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 145
ExplicitLeft = 145
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 187
ExplicitLeft = 187
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 204
ExplicitLeft = 204
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 212
ExplicitLeft = 212
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 246
ExplicitLeft = 246
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 280
ExplicitLeft = 280
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 314
ExplicitLeft = 314
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 322
ExplicitLeft = 322
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 356
ExplicitLeft = 356
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 390
ExplicitLeft = 390
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 905
Height = 497
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 57
end
object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [4]
object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [3]
DataBinding.FieldName = 'TIPO_ARTICULO'
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
inherited cxGridViewVISIBLE: TcxGridDBColumn [4]
Caption = #191'Valorado?'
Visible = True
Width = 51
end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad'
DataBinding.FieldName = 'ID_ARTICULO'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades
inherited cxGridViewID_ARTICULO: TcxGridDBColumn [5]
VisibleForCustomization = False
Width = 57
end
object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
Caption = 'Familia'
DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
Width = 287
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end
@ -93,19 +116,19 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 243
Width = 383
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [10]
VisibleForCustomization = False
Width = 25
Width = 39
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False
Width = 34
Width = 54
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False
Width = 20
Width = 31
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
Visible = False
@ -116,13 +139,16 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15]
VisibleForCustomization = False
Width = 29
Width = 46
end
end
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 905
inherited TBXToolbar1: TTBXToolbar
DockPos = 0
ExplicitWidth = 665
object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText
@ -212,6 +238,29 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Height = 25
Width = 145
end
object cxLookupComboBox2: TcxLookupComboBox [5]
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 = 5
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList
object actAsignarDescuento: TAction
Category = 'Operaciones'

30
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -30,7 +30,6 @@ type
TBXItem18: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem;
DAPropiedades: TDADataSource;
cxGridViewID_PROPIEDAD: TcxGridDBColumn;
cxLookupComboBox1: TcxLookupComboBox;
DAValores: TDADataSource;
cxRichEdit1: TcxRichEdit;
@ -57,11 +56,15 @@ type
TBXItem21: TTBXItem;
TBXItem22: TTBXItem;
actCapituloObra: TAction;
cxGridViewPROPIEDAD: TcxGridDBColumn;
cxLookupComboBox2: TcxLookupComboBox;
procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDESCRIPCIONGetPropertiesForEdit(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
procedure cxGridViewPROPIEDADGetPropertiesForEdit(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
procedure actCapituloBanoExecute(Sender: TObject);
procedure actCapituloArmarioFExecute(Sender: TObject);
procedure actCapituloArmarioIExecute(Sender: TObject);
@ -267,17 +270,28 @@ begin
inherited;
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
(cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]);
DAPropiedades.DataTable.Locate(fld_PropiedadesDESCRIPCION, cxGridViewPROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AI)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_B)) then
then
AProperties := cxLookupComboBox1.Properties
else
AProperties := cxRichEdit1.Properties;
end;
procedure TfrViewDetallesPresupuestoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
then
AProperties := cxLookupComboBox2.Properties
else
AProperties := cxRichEdit1.Properties;
end;
procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
var
Orden: Integer;
@ -311,7 +325,7 @@ begin
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
Result := False
end
else if (AItem.Index in [cxGridViewID_PROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
@ -325,6 +339,10 @@ begin
IndiceCol := cxGridView.GetColumnByFieldName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_O) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_V) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_E) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then
Result := False
end;

12
Source/Servidor/FactuGES_Server.dpr
View File

@ -34,8 +34,6 @@ uses
uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
schBase_Intf in '..\Base\schBase_Intf.pas',
@ -127,16 +125,18 @@ uses
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
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',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -30,7 +30,6 @@
<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>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,4,7,0
PRODUCTVERSION 2,4,7,0
FILEVERSION 2,4,8,0
PRODUCTVERSION 2,4,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.4.7.0\0"
VALUE "FileVersion", "2.4.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.4.7.0\0"
VALUE "CompileDate", "miércoles, 09 de mayo de 2012 11:50\0"
VALUE "ProductVersion", "2.4.8.0\0"
VALUE "CompileDate", "viernes, 18 de mayo de 2012 12:52\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.