diff --git a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas index 70e7387c..9b5ae873 100644 --- a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas +++ b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas @@ -52,8 +52,7 @@ begin begin Clear; // (ID = :ID) - Expression := NewBinaryExpression(NewField('', fld_EmpresasID), - NewConstant(ID, datInteger), dboEqual); + Expression := NewBinaryExpression(NewField('', fld_EmpresasID), NewConstant(ID, datInteger), dboEqual); end; finally HideHourglassCursor; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index c75046b7..38afc54d 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -51,13 +51,6 @@ - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -72,57 +65,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f31..1641339f 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/GUIBase/GUIBase.drc b/Source/GUIBase/GUIBase.drc index 3804dfaf..7da0e03f 100644 --- a/Source/GUIBase/GUIBase.drc +++ b/Source/GUIBase/GUIBase.drc @@ -35,4 +35,4 @@ END /* C:\Codigo Tecsitel\Source\GUIBase\uDialogBase.dfm */ /* C:\Codigo Tecsitel\Source\GUIBase\uViewGrid.dfm */ /* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf17B.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf92.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc index c9e7ec90..dac32877 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc +++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */ -/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.drf */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE6.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.rc b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.rc +++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res and b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res differ diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index b4c05ee3..07d7452b 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -188,52 +188,48 @@ begin end; function TAlbaranesClienteController.BuscarAlbaranesDevolucion: IBizAlbaranCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := BuscarTodos; + with Result.DataTable.DynamicWhere do begin - // (ID = :ID) - Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), - NewConstant(0, datCurrency), dboLess); + // (IMPORTE_TOTAL < 0) + Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), NewConstant(0, datCurrency), dboLess); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; -{ - with Result.DataTable.Where do - begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddCondition(fld_AlbaranesClienteIMPORTE_TOTAL, cLess, 0); - CloseBraket; - end; -} + finally HideHourglassCursor; end; end; function TAlbaranesClienteController.BuscarAlbaranesNormales: IBizAlbaranCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := BuscarTodos; + with Result.DataTable.DynamicWhere do begin - // (ID = :ID) - Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), - NewConstant(0, datCurrency), dboGreaterOrEqual); + // (IMPORTE_TOTAL >= 0) + Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), NewConstant(0, datCurrency), dboGreaterOrEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; -{ with Result.DataTable.Where do - begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddCondition(fld_AlbaranesClienteIMPORTE_TOTAL, cMajorOrEqual, 0); - CloseBraket; - end; -} finally HideHourglassCursor; end; @@ -246,36 +242,48 @@ begin end; function TAlbaranesClienteController.BuscarPendientes: IBizAlbaranCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := BuscarAlbaranesNormales; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_AlbaranesClienteSITUACION + ' = ''' + SITUACION_ALBARAN_SERVIDO + ''''); - CloseBraket; + // (SITUACION = SERVIDO) + Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteSITUACION), NewConstant(SITUACION_ALBARAN_SERVIDO, datString), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; end; function TAlbaranesClienteController.BuscarSinFacturar: IBizAlbaranCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := BuscarAlbaranesNormales; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_AlbaranesClienteID_FACTURA + ' is null'); - CloseBraket; + // (ID_FACTURA = NULL) + Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_FACTURA), NewNull(), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; @@ -824,21 +832,20 @@ begin Result := ASeleccionados; end; -procedure TAlbaranesClienteController.FiltrarEmpresa( - AAlbaran: IBizAlbaranCliente); +procedure TAlbaranesClienteController.FiltrarEmpresa(AAlbaran: IBizAlbaranCliente); begin if AAlbaran.DataTable.Active then AAlbaran.DataTable.Active := False; -{ - // Filtrar los presupuestos actuales por empresa - with AAlbaran.DataTable.Where do + // Filtrar los albaranes actuales por empresa +{ with AContacto.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - AddCondition(fld_AlbaranesClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); + Clear; + // (ID = :ID) + Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_EMPRESA), + NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual); end; -} +} end; procedure TAlbaranesClienteController.SetClienteController(const Value: IClientesController); diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc index 1ebb7bab..8f28ebc5 100644 --- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc +++ b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CD.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE4.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index 3cd17fbf..1d79f053 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -30,6 +30,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ALBARANES_CLI_ID' + Required = True ServerAutoRefresh = True DictionaryEntry = 'AlbaranesCliente_ID' InPrimaryKey = True @@ -283,14 +284,14 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'AlbaranesCliente' IndexDefs = <> - Left = 208 - Top = 104 + Left = 232 + Top = 128 end object ds_AlbaranesCliente: TDADataSource DataSet = tbl_AlbaranesCliente.Dataset DataTable = tbl_AlbaranesCliente - Left = 208 - Top = 40 + Left = 232 + Top = 56 end object tbl_AlbaranesCliente_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] @@ -392,12 +393,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente LogicalName = 'AlbaranesCliente_Detalles' IndexDefs = <> Left = 384 - Top = 104 + Top = 128 end object ds_AlbaranesCliente_Detalles: TDADataSource DataSet = tbl_AlbaranesCliente_Detalles.Dataset DataTable = tbl_AlbaranesCliente_Detalles Left = 384 - Top = 40 + Top = 56 end end diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas index c597c639..c245b3f6 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas @@ -93,20 +93,24 @@ begin end; function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; -//REVISAR -{ with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_AlbaranesClienteID + ' = ' + IntToStr(ID)); - CloseBraket; + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; -} + finally HideHourglassCursor; end; @@ -119,12 +123,11 @@ begin ShowHourglassCursor; try AAlbaran := CloneDataTable(tbl_AlbaranesCliente); + AsignarClaseNegocio(AAlbaran); // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!! AAlbaran.FieldByName(fld_AlbaranesClienteREFERENCIA).ServerAutoRefresh := TRUE; - AsignarClaseNegocio(AAlbaran); - with TBizAlbaranCliente(AAlbaran.BusinessEventsObj) do begin Detalles := _GetDetalles; diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc index ea571290..5d7c0fe6 100644 --- a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc +++ b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CB.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE2.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 1db04fbe..87a05131 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -9,9 +9,9 @@ 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_DarReferencia = '{3064CE78-1DEF-447D-92EC-05ACE1C82546}'; - RID_AlbaranesCliente = '{47ACC563-2892-497C-A352-219214A5B5D7}'; - RID_AlbaranesCliente_Detalles = '{A3936C03-05C3-4AF0-885C-E9490860F5E9}'; + RID_DarReferencia = '{A693E269-BAF7-46A1-84E5-DBC746856BE3}'; + RID_AlbaranesCliente = '{1D19F302-9D09-4E86-9602-98B88C9FF5E7}'; + RID_AlbaranesCliente_Detalles = '{DFBF54C4-E8F9-47BA-9920-89709FB21148}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -141,7 +141,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{877284B1-53EC-46E3-AAE3-B3153676982A}'] + ['{15B4231D-DD94-42A2-9AC2-4C32AFB4B267}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -176,7 +176,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{B82CD28D-7ECC-4D09-9700-1EA713C7F621}'] + ['{26F46D95-DBBE-40FD-BB99-EEC4B6EE75CD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -667,7 +667,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{AE3D76A3-4B8A-46D5-9B22-3F69B3BB489C}'] + ['{C442C7DF-32BE-4A00-8446-3DA2F08508AC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 8349b11a..d9a95d41 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{ED087064-A93F-4F83-AB90-08AA4BF5F6D3}'; - RID_AlbaranesClienteDelta = '{8C94D643-A1FB-4FC8-84D3-D0BE4B2A9B61}'; - RID_AlbaranesCliente_DetallesDelta = '{ABC9FD9E-7737-47A6-83EA-E51FE4139B46}'; + RID_DarReferenciaDelta = '{95530CA0-F6C5-439B-ACE3-8DD1B50D65AC}'; + RID_AlbaranesClienteDelta = '{9E1A105B-7BE6-4100-BED9-9EB5E4517371}'; + RID_AlbaranesCliente_DetallesDelta = '{4FD893A0-294F-4ACF-8656-9DC37A524688}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{ED087064-A93F-4F83-AB90-08AA4BF5F6D3}'] + ['{95530CA0-F6C5-439B-ACE3-8DD1B50D65AC}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,7 +50,7 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{8C94D643-A1FB-4FC8-84D3-D0BE4B2A9B61}'] + ['{9E1A105B-7BE6-4100-BED9-9EB5E4517371}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -542,7 +542,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{ABC9FD9E-7737-47A6-83EA-E51FE4139B46}'] + ['{4FD893A0-294F-4ACF-8656-9DC37A524688}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas index 733f993a..c22a13e5 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas @@ -15,12 +15,27 @@ type end; TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente) + protected + procedure BeforeInsert(Sender: TDADataTable); override; end; implementation +uses + DB; + { TBizDetallesAlbaranCliente } +procedure TBizDetallesAlbaranCliente.BeforeInsert(Sender: TDADataTable); +var + AMasterTable : TDADataTable; +begin + inherited; + AMasterTable := DataTable.GetMasterDataTable; + if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then + AMasterTable.Post; +end; + initialization RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente); diff --git a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc index d7684711..bb089d84 100644 --- a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc +++ b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DD.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF4.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 96363170..6502ed78 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -620,16 +620,179 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item Params = < item - Name = 'OLD_ID' - DataType = datInteger + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_CLI_ID' + Value = '' + end + item + Name = 'ID_EMPRESA' + Value = '' + end + item + Name = 'ID_CLIENTE' + Value = '' + end + item + Name = 'FECHA_ALBARAN' + Value = '' + end + item + Name = 'REFERENCIA' + Value = '' + end + item + Name = 'REFERENCIA_CLIENTE' + Value = '' + end + item + Name = 'ID_ALMACEN' + Value = '' + end + item + Name = 'ID_PEDIDO' + Value = '' + end + item + Name = 'ID_FACTURA' + Value = '' + end + item + Name = 'CALLE' + Value = '' + end + item + Name = 'CODIGO_POSTAL' + Value = '' + end + item + Name = 'POBLACION' + Value = '' + end + item + Name = 'PROVINCIA' + Value = '' + end + item + Name = 'PERSONA_CONTACTO' + Value = '' + end + item + Name = 'TELEFONO' + Value = '' + end + item + Name = 'IMPORTE_NETO' + Value = '' + end + item + Name = 'IMPORTE_PORTE' + Value = '' + end + item + Name = 'DESCUENTO' + Value = '' + end + item + Name = 'IMPORTE_DESCUENTO' + Value = '' + end + item + Name = 'BASE_IMPONIBLE' + Value = '' + end + item + Name = 'IVA' + Value = '' + end + item + Name = 'IMPORTE_IVA' + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + Value = '' + end + item + Name = 'OBSERVACIONES' + Value = '' + end + item + Name = 'INCIDENCIAS' + Value = '' + end + item + Name = 'INCIDENCIAS_ACTIVAS' + Value = '' + end + item + Name = 'FECHA_ALTA' + Value = '' + end + item + Name = 'FECHA_MODIFICACION' + Value = '' + end + item + Name = 'USUARIO' + Value = '' + end + item + Name = 'ID_FORMA_PAGO' + Value = '' + end + item + Name = 'FECHA_PREVISTA_ENVIO' + Value = '' + end + item + Name = 'FECHA_ENVIO' + Value = '' + end + item + Name = 'FECHA_RECEPCION' Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' + Default = True TargetTable = 'ALBARANES_CLIENTE' - SQL = 'DELETE '#10' FROM'#10' ALBARANES_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)' + SQL = + 'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' + + ' FECHA_ALBARAN, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_ALMACEN,' + + ' ID_PEDIDO, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' + + 'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, IMPORTE_NETO, IMPORTE' + + '_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA,' + + ' IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, I' + + 'NCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARI' + + 'O, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10' FECHA' + + '_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_' + + 'ALBARAN, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID' + + '_PEDIDO, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACION, :' + + 'PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IM' + + 'PORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBL' + + 'E, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INC' + + 'IDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION' + + ','#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_E' + + 'NVIO, :FECHA_RECEPCION)'#10' '#10' '#10#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_AlbaranesCliente' + end + item + Params = < + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'ALBARANES_CLIENTE' + SQL = 'DELETE '#10' FROM'#10' ALBARANES_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -639,105 +802,234 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Params = < item Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID' Value = '' - ParamType = daptInput end item - Name = 'ID_ALBARAN' - DataType = datInteger + Name = 'ID_EMPRESA' Value = '' - ParamType = daptInput end item - Name = 'POSICION' - DataType = datInteger + Name = 'ID_CLIENTE' Value = '' - ParamType = daptInput end item - Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 + Name = 'FECHA_ALBARAN' Value = '' - ParamType = daptInput end item - Name = 'ID_ARTICULO' - DataType = datInteger + Name = 'REFERENCIA' Value = '' - ParamType = daptInput end item - Name = 'CONCEPTO' - DataType = datString - Size = 2000 + Name = 'REFERENCIA_CLIENTE' Value = '' - ParamType = daptInput end item - Name = 'CANTIDAD' - DataType = datInteger + Name = 'ID_ALMACEN' Value = '' - ParamType = daptInput end item - Name = 'IMPORTE_UNIDAD' - DataType = datFloat + Name = 'ID_PEDIDO' Value = '' - ParamType = daptInput end item - Name = 'DESCUENTO' - DataType = datFloat + Name = 'ID_FACTURA' + Value = '' + end + item + Name = 'CALLE' + Value = '' + end + item + Name = 'CODIGO_POSTAL' + Value = '' + end + item + Name = 'POBLACION' + Value = '' + end + item + Name = 'PROVINCIA' + Value = '' + end + item + Name = 'PERSONA_CONTACTO' + Value = '' + end + item + Name = 'TELEFONO' + Value = '' + end + item + Name = 'IMPORTE_NETO' Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput + end + item + Name = 'DESCUENTO' + Value = '' + end + item + Name = 'IMPORTE_DESCUENTO' + Value = '' + end + item + Name = 'BASE_IMPONIBLE' + Value = '' + end + item + Name = 'IVA' + Value = '' + end + item + Name = 'IMPORTE_IVA' + Value = '' end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item - Name = 'VISIBLE' - DataType = datInteger + Name = 'OBSERVACIONES' + Value = '' + end + item + Name = 'INCIDENCIAS' + Value = '' + end + item + Name = 'INCIDENCIAS_ACTIVAS' Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput + end + item + Name = 'USUARIO' + Value = '' + end + item + Name = 'ID_FORMA_PAGO' + Value = '' + end + item + Name = 'FECHA_PREVISTA_ENVIO' + Value = '' + end + item + Name = 'FECHA_ENVIO' + Value = '' + end + item + Name = 'FECHA_RECEPCION' + Value = '' + end + item + Name = 'OLD_ID' + Value = '' end> Statements = < item Connection = 'IBX' + Default = True + TargetTable = 'ALBARANES_CLIENTE' + SQL = + 'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' + + 'ID_EMPRESA, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_ALBARAN = ' + + ':FECHA_ALBARAN,'#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_CL' + + 'IENTE = :REFERENCIA_CLIENTE, '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ' + + 'ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' CALLE ' + + '= :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION = :' + + 'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO = ' + + ':PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' IMPORTE_NETO ' + + '= :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCU' + + 'ENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, ' + + #10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMP' + + 'ORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + + ' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCI' + + 'AS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_' + + 'ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACIO' + + 'N, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,' + + ' '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECHA_E' + + 'NVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10' W' + + 'HERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_AlbaranesCliente' + end + item + Params = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID' + Value = '' + end + item + Name = 'ID_ALBARAN' + Value = '' + end + item + Name = 'POSICION' + Value = '' + end + item + Name = 'TIPO_DETALLE' + Value = '' + end + item + Name = 'CONCEPTO' + Value = '' + end + item + Name = 'CANTIDAD' + Value = '' + end + item + Name = 'IMPORTE_UNIDAD' + Value = '' + end + item + Name = 'DESCUENTO' + Value = '' + end + item + Name = 'IMPORTE_PORTE' + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + Value = '' + end + item + Name = 'VISIBLE' + Value = '' + end + item + Name = 'ID_ARTICULO' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = - 'INSERT INTO ALBARANES_CLIENTE_DETALLES ('#10' ID,'#10' ID_ALBARAN,' + - #10' POSICION,'#10' TIPO_DETALLE,'#10' ID_ARTICULO,'#10' CONCEPTO,'#10 + - ' CANTIDAD,'#10' IMPORTE_UNIDAD,'#10' DESCUENTO,'#10' IMPORTE_POR' + - 'TE,'#10' IMPORTE_TOTAL,'#10' VISIBLE,'#10' FECHA_ALTA,'#10' FECHA_MO' + - 'DIFICACION)'#10' VALUES ('#10' :ID,'#10' :ID_ALBARAN,'#10' :POSICION,'#10 + - ' :TIPO_DETALLE,'#10' :ID_ARTICULO,'#10' :CONCEPTO,'#10' :CANTIDA' + - 'D,'#10' :IMPORTE_UNIDAD,'#10' :DESCUENTO,'#10' :IMPORTE_PORTE,'#10' ' + - ':IMPORTE_TOTAL,'#10' :VISIBLE,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFI' + - 'CACION);' + 'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' + + 'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' + + 'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' + + 'LO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :C' + + 'ONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_P' + + 'ORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -747,13 +1039,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Params = < item Name = 'OLD_ID' - DataType = datInteger - Value = '' - ParamType = daptInput + DataType = datAutoInc + Value = '0' end> Statements = < item Connection = 'IBX' + Default = True TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = 'DELETE '#10' FROM'#10' ALBARANES_CLIENTE_DETALLES'#10' WHERE'#10' (ID = ' + @@ -781,10 +1073,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Name = 'TIPO_DETALLE' Value = '' end - item - Name = 'ID_ARTICULO' - Value = '' - end item Name = 'CONCEPTO' Value = '' @@ -814,7 +1102,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Value = '' end item - Name = 'FECHA_MODIFICACION' + Name = 'ID_ARTICULO' Value = '' end item @@ -824,424 +1112,20 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Statements = < item Connection = 'IBX' + Default = True TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = - 'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET'#10' ID = :ID,'#10' ID_ALB' + - 'ARAN = :ID_ALBARAN,'#10' POSICION = :POSICION,'#10' TIPO_DETALLE =' + - ' :TIPO_DETALLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' CONCEPTO = :' + - 'CONCEPTO,'#10' CANTIDAD = :CANTIDAD,'#10' IMPORTE_UNIDAD = :IMPORT' + - 'E_UNIDAD,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPOR' + - 'TE_PORTE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' VISIBLE = :VIS' + - 'IBLE,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID' + - ' = :OLD_ID);'#10 + 'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_AL' + + 'BARAN = :ID_ALBARAN, '#10' POSICION = :POSICION, '#10' TIPO_DETALL' + + 'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' + + 'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' + + ' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' + + 'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' + + ' = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_AlbaranesCliente_Detalles' - end - item - Params = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_ALBARANES_CLI_ID' - Value = '' - ParamType = daptInput - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'ID_CLIENTE' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'REFERENCIA_CLIENTE' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_ALBARAN' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'ID_PEDIDO' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'ID_ALMACEN' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'ID_FACTURA' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - Value = '' - ParamType = daptInput - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'TELEFONO' - DataType = datString - Size = 25 - Value = '' - ParamType = daptInput - end - item - Name = 'BASE_IMPONIBLE' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'IMPORTE_NETO' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'IMPORTE_PORTE' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'DESCUENTO' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'IMPORTE_DESCUENTO' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'IVA' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'IMPORTE_IVA' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'OBSERVACIONES' - DataType = datMemo - Value = '' - ParamType = daptInput - end - item - Name = 'INCIDENCIAS' - DataType = datMemo - Value = '' - ParamType = daptInput - end - item - Name = 'INCIDENCIAS_ACTIVAS' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - Value = '' - ParamType = daptInput - end - item - Name = 'ID_FORMA_PAGO' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_PREVISTA_ENVIO' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_ENVIO' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_RECEPCION' - DataType = datDateTime - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'ALBARANES_CLIENTE' - SQL = - 'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' + - ' REFERENCIA, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PEDIDO, ' + - 'ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' + - 'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPOR' + - 'TE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA,' + - ' IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, I' + - 'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARI' + - 'O, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' + - 'RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :REFEREN' + - 'CIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_PEDIDO, :ID_A' + - 'LMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACION, :P' + - 'ROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE_IMPONIBLE, :' + - 'IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IMPORTE_DESCUEN' + - 'TO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :I' + - 'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA, :FECHA_MODI' + - 'FICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' + - ':FECHA_ENVIO, :FECHA_RECEPCION)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_AlbaranesCliente' - end - item - Params = < - item - Name = 'ID' - Value = '' - end - item - Name = 'ID_EMPRESA' - Value = '' - end - item - Name = 'ID_CLIENTE' - Value = '' - end - item - Name = 'REFERENCIA' - Value = '' - end - item - Name = 'REFERENCIA_CLIENTE' - Value = '' - end - item - Name = 'FECHA_ALBARAN' - Value = '' - end - item - Name = 'ID_PEDIDO' - Value = '' - end - item - Name = 'ID_ALMACEN' - Value = '' - end - item - Name = 'ID_FACTURA' - Value = '' - end - item - Name = 'CALLE' - Value = '' - end - item - Name = 'CODIGO_POSTAL' - Value = '' - end - item - Name = 'POBLACION' - Value = '' - end - item - Name = 'PROVINCIA' - Value = '' - end - item - Name = 'PERSONA_CONTACTO' - Value = '' - end - item - Name = 'TELEFONO' - Value = '' - end - item - Name = 'BASE_IMPONIBLE' - Value = '' - end - item - Name = 'IMPORTE_NETO' - Value = '' - end - item - Name = 'IMPORTE_PORTE' - Value = '' - end - item - Name = 'DESCUENTO' - Value = '' - end - item - Name = 'IMPORTE_DESCUENTO' - Value = '' - end - item - Name = 'IVA' - Value = '' - end - item - Name = 'IMPORTE_IVA' - Value = '' - end - item - Name = 'IMPORTE_TOTAL' - Value = '' - end - item - Name = 'OBSERVACIONES' - Value = '' - end - item - Name = 'INCIDENCIAS' - Value = '' - end - item - Name = 'INCIDENCIAS_ACTIVAS' - Value = '' - end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end - item - Name = 'USUARIO' - Value = '' - end - item - Name = 'ID_FORMA_PAGO' - Value = '' - end - item - Name = 'FECHA_PREVISTA_ENVIO' - Value = '' - end - item - Name = 'FECHA_ENVIO' - Value = '' - end - item - Name = 'FECHA_RECEPCION' - Value = '' - end - item - Name = 'OLD_ID' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'ALBARANES_CLIENTE' - SQL = - 'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' + - 'ID_EMPRESA, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA = :RE' + - 'FERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FEC' + - 'HA_ALBARAN = :FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' I' + - 'D_ALMACEN = :ID_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' CALL' + - 'E = :CALLE, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION ' + - '= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO' + - ' = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_IMPON' + - 'IBLE = :BASE_IMPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' ' + - 'IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ' + - ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' ' + - 'IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' + - ' '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDE' + - 'NCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FEC' + - 'HA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICA' + - 'CION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' + - 'GO,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FECHA_' + - 'ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10' ' + - 'WHERE'#10' (ID = :OLD_ID)'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_AlbaranesCliente' end> RelationShips = < item diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas index 328b7776..d7bcd166 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas @@ -30,10 +30,8 @@ type Bin2DataStreamer: TDABin2DataStreamer; schAlbaranesCliente: TDASchema; DADataDictionary: TDADataDictionary; - procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; - var aConnectionName: string); - procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; - const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); + procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceCreate(Sender: TObject); private protected diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc index d01c641e..5b9aea55 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc @@ -27,4 +27,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DB.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index cb0b9685..db46321e 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -6,7 +6,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ClientWidth = 765 OnClose = CustomEditorClose ExplicitWidth = 773 - ExplicitHeight = 619 + ExplicitHeight = 612 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -200,10 +200,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm index b22eeba2..d522d565 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm @@ -143,8 +143,16 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente Width = 73 ExplicitWidth = 73 end + inherited Bevel3: TBevel + Left = 332 + Height = 54 + ExplicitLeft = 332 + ExplicitHeight = 54 + end inherited Bevel4: TBevel + Left = 448 Width = 285 + ExplicitLeft = 448 ExplicitWidth = 285 end inherited ImporteDto: TcxDBCurrencyEdit @@ -153,12 +161,16 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente Width = 93 end inherited ImporteIVA: TcxDBCurrencyEdit + Left = 519 Style.IsFontAssigned = True + ExplicitLeft = 519 ExplicitWidth = 214 Width = 214 end inherited ImporteTotal: TcxDBCurrencyEdit + Left = 449 Style.IsFontAssigned = True + ExplicitLeft = 449 ExplicitWidth = 284 Width = 284 end @@ -166,18 +178,26 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente Style.IsFontAssigned = True end inherited edtIVA: TcxDBSpinEdit + Left = 448 Style.IsFontAssigned = True + ExplicitLeft = 448 end inherited ImporteBase: TcxDBCurrencyEdit + Left = 448 Style.IsFontAssigned = True + ExplicitLeft = 448 ExplicitWidth = 285 Width = 285 end inherited edtRE: TcxDBSpinEdit + Left = 448 Style.IsFontAssigned = True + ExplicitLeft = 448 end inherited ImporteRE: TcxDBCurrencyEdit + Left = 519 Style.IsFontAssigned = True + ExplicitLeft = 519 ExplicitWidth = 214 Width = 214 end @@ -195,6 +215,10 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente ExplicitWidth = 81 Width = 81 end + inherited bTiposIVA: TButton + Left = 184 + ExplicitLeft = 184 + end inherited cbRecargoEquivalencia: TcxDBCheckBox ExplicitWidth = 219 Width = 219 diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas index 4aaf9d9f..0178501b 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas @@ -10,7 +10,7 @@ uses JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, - JvNavigationPane, uIEditorAlbaranDevCliente; + JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces; type TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente) diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm index 5840a6e2..1ef65893 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm @@ -1,6 +1,15 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView + inherited cxGridViewID: TcxGridDBColumn + Visible = False + end + inherited cxGridViewPOSICION: TcxGridDBColumn + Visible = False + end + inherited cxGridViewTIPO: TcxGridDBColumn + Visible = False + end inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn Visible = False end diff --git a/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm b/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm index fbbd30c4..3465ce56 100644 --- a/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm +++ b/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm @@ -130,6 +130,7 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Almacenes' + IndexDefs = <> Left = 192 Top = 80 end diff --git a/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas b/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas index 76d70db8..9ee8d311 100644 --- a/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas +++ b/Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas @@ -56,18 +56,24 @@ begin end; function TDataModuleAlmacenes.GetItem(const ID: Integer): IBizAlmacen; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText('Almacenes.' + fld_AlmacenesID + ' = ' + IntToStr(ID)); - CloseBraket; + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_AlmacenesID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm index c6d529f6..5563aa7f 100644 --- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm +++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm @@ -145,6 +145,7 @@ inherited DataModuleArticulos: TDataModuleArticulos DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Articulos' + IndexDefs = <> Left = 232 Top = 112 end @@ -252,6 +253,7 @@ inherited DataModuleArticulos: TDataModuleArticulos DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ArticulosParaCliente' + IndexDefs = <> Left = 400 Top = 112 end diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas b/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas index 96714ce5..6b8428ae 100644 --- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas +++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas @@ -58,6 +58,8 @@ begin end; function TDataModuleArticulos.GetItem(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try @@ -66,14 +68,17 @@ begin else Result := Self.GetItems(AClienteID); - with Result.DataTable.Where do + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText('V_ARTICULOS.' + fld_ArticulosID + ' = ' + IntToStr(ID)); - CloseBraket; + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_ArticulosID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc index 8d8a329c..4d91f50e 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A1.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB8.tmp */ diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index 90282a41..816fb0a0 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/Source/Modulos/Contactos/Controller/uContactosController.pas @@ -272,6 +272,7 @@ begin // Filtrar los contactos actuales por empresa { with AContacto.DataTable.DynamicWhere do begin + Clear; // (ID = :ID) Expression := NewBinaryExpression(NewField('', fld_ContactosID_EMPRESA), NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual); diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc index d0940ca6..24c9caef 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.drc +++ b/Source/Modulos/Contactos/Data/Contactos_data.drc @@ -17,4 +17,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf19F.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB6.tmp */ diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index 6899a5f1..a752c916 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -244,6 +244,7 @@ inherited DataModuleClientes: TDataModuleClientes DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Clientes' + IndexDefs = <> Left = 296 Top = 168 end @@ -300,6 +301,7 @@ inherited DataModuleClientes: TDataModuleClientes DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ClientesDescuentos' + IndexDefs = <> Left = 448 Top = 168 end @@ -325,6 +327,7 @@ inherited DataModuleClientes: TDataModuleClientes DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'GruposCliente' + IndexDefs = <> Left = 552 Top = 168 end diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas index 89640185..671ddba0 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas @@ -56,16 +56,24 @@ begin end; function TDataModuleClientes.GetItem(const ID: Integer): IBizCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; + with Result.DataTable.DynamicWhere do begin // (ID = :ID) - Expression := NewBinaryExpression(NewField('', fld_ContactosID), - NewConstant(ID, datInteger), dboEqual); + Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; @@ -94,17 +102,22 @@ begin end; function TDataModuleClientes.GetItemsTiendaWeb: IBizCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; + with Result.DataTable.DynamicWhere do begin + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB), NewConstant(1, datInteger), dboEqual); + Clear; - // (TIENDA_WEB = 1) - Expression := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB), - NewConstant(1, datInteger), dboEqual); + Expression := Condicion end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm index 2bddd5e9..2586822a 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm @@ -214,6 +214,7 @@ inherited DataModuleEmpleados: TDataModuleEmpleados DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Empleados' + IndexDefs = <> Left = 296 Top = 168 end @@ -239,6 +240,7 @@ inherited DataModuleEmpleados: TDataModuleEmpleados DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'GruposEmpleado' + IndexDefs = <> Left = 448 Top = 168 end diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas index 56fc6f00..0365426f 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas +++ b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas @@ -53,16 +53,24 @@ begin end; function TDataModuleEmpleados.GetItem(const ID: Integer): IBizEmpleado; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; + with Result.DataTable.DynamicWhere do begin // (ID = :ID) - Expression := NewBinaryExpression(NewField('', fld_ContactosID), - NewConstant(ID, datInteger), dboEqual); + Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm index b5bf9a76..90782bd9 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm @@ -26,6 +26,7 @@ inherited DataModuleProveedores: TDataModuleProveedores DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'GruposProveedor' + IndexDefs = <> Left = 448 Top = 168 end @@ -257,6 +258,7 @@ inherited DataModuleProveedores: TDataModuleProveedores DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Proveedores' + IndexDefs = <> Left = 296 Top = 168 end diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas b/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas index 17ef2b78..f7e16b11 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas +++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas @@ -50,17 +50,24 @@ begin end; function TDataModuleProveedores.GetItem(const ID: Integer): IBizProveedor; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; - // (ID = :ID) with Result.DataTable.DynamicWhere do begin - Expression := NewBinaryExpression(NewField('', fld_ContactosID), - NewConstant(ID, datInteger), dboEqual); + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; @@ -88,17 +95,22 @@ begin end; function TDataModuleProveedores.GetItemsTiendaWeb: IBizProveedor; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; + with Result.DataTable.DynamicWhere do begin + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB), NewConstant(1, datInteger), dboEqual); + Clear; - // (TIENDA_WEB = 1) - Expression := NewBinaryExpression(NewField('', fld_ProveedoresTIENDA_WEB), - NewConstant(1, datInteger), dboEqual); + Expression := Condicion end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc index e8d13ab2..c832339f 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.drc +++ b/Source/Modulos/Contactos/Model/Contactos_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf19D.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB4.tmp */ diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc index 25c1ccfb..268ce816 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc +++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A5.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc index c2bdb6f5..0e41c7d8 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.drc +++ b/Source/Modulos/Contactos/Views/Contactos_view.drc @@ -45,4 +45,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A3.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.identcache b/Source/Modulos/Contactos/Views/Contactos_view.identcache index 81aaa00b..7c5a27da 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.identcache and b/Source/Modulos/Contactos/Views/Contactos_view.identcache differ diff --git a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc index bcf9cccf..e2303f0e 100644 --- a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc +++ b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D5.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEC.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index a61242a7..bf9f9d4f 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -880,7 +880,7 @@ begin AFactura.DataTable.ApplyUpdates; //Se generan los recibos automáticamente a partir de la forma de pago -// GenerarRecibos(AFactura); + GenerarRecibos(AFactura); Result := True; finally diff --git a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc index f3bc873c..3c62ca28 100644 --- a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc +++ b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D3.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEA.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 40967cbe..1338c902 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -54,6 +54,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente DisplayLabel = 'Tipo' DictionaryEntry = 'FacturasCliente_TIPO' end + item + Name = 'ID_COMISION_LIQUIDADA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' + end item Name = 'FECHA_FACTURA' DataType = datDateTime @@ -64,7 +69,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente Name = 'SITUACION' DataType = datString Size = 255 - DisplayLabel = 'Situaci'#243'n' + DisplayLabel = 'Situaci'#195#179'n' DictionaryEntry = 'FacturasCliente_SITUACION' end item @@ -150,14 +155,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente Name = 'CALLE' DataType = datString Size = 150 - DisplayLabel = 'Direcci'#243'n' + DisplayLabel = 'Direcci'#195#179'n' DictionaryEntry = 'FacturasCliente_CALLE' end item Name = 'POBLACION' DataType = datString Size = 150 - DisplayLabel = 'Poblaci'#243'n' + DisplayLabel = 'Poblaci'#195#179'n' DictionaryEntry = 'FacturasCliente_POBLACION' end item @@ -171,7 +176,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente Name = 'CODIGO_POSTAL' DataType = datString Size = 10 - DisplayLabel = 'C'#243'd. postal' + DisplayLabel = 'C'#195#179'd. postal' DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item @@ -198,8 +203,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente end item Name = 'RECARGO_EQUIVALENCIA' - DataType = datInteger - DisplayLabel = #191'Con R.E.?' + DataType = datSmallInt + DisplayLabel = #194#191'Con R.E.?' DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' end item @@ -222,28 +227,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE' end item - Name = 'ID_COMISION_LIQUIDADA' + Name = 'ID_AGENTE' DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' + DictionaryEntry = 'FacturasCliente_ID_AGENTE' end item Name = 'REFERENCIA_COMISION' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION' - end - item - Name = 'ID_AGENTE' - DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_AGENTE' - end - item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime - LogChanges = False - DisplayLabel = 'Fecha de vencimiento' - DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO' - Calculated = True end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] @@ -252,14 +244,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FacturasCliente' IndexDefs = <> - Left = 224 + Left = 240 Top = 112 end object ds_FacturasCliente: TDADataSource DataSet = tbl_FacturasCliente.Dataset DataTable = tbl_FacturasCliente - Left = 216 - Top = 64 + Left = 240 + Top = 48 end object tbl_FacturasCliente_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] @@ -281,7 +273,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente item Name = 'POSICION' DataType = datInteger - DisplayLabel = 'Posici'#243'n' + DisplayLabel = 'Posici'#195#179'n' DictionaryEntry = 'FacturasCliente_Detalles_POSICION' end item @@ -321,7 +313,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente item Name = 'VISIBLE' DataType = datInteger - DisplayLabel = #191'Visible?' + DisplayLabel = #194#191'Visible?' DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end item @@ -363,13 +355,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FacturasCliente_Detalles' IndexDefs = <> - Left = 368 - Top = 104 + Left = 400 + Top = 112 end object ds_FacturasCliente_Detalles: TDADataSource DataSet = tbl_FacturasCliente_Detalles.Dataset DataTable = tbl_FacturasCliente_Detalles - Left = 368 - Top = 56 + Left = 400 + Top = 40 end end diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas index 5aa599ea..b3fa3ea2 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas @@ -78,18 +78,24 @@ begin end; function TDataModuleFacturasCliente.GetItem(const ID: Integer): IBizFacturaCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_FacturasClienteID + ' = ' + IntToStr(ID)); - CloseBraket; + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc index 54de8730..7a6402c4 100644 --- a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc +++ b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D1.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE8.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 750cc14e..2d65ae18 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,9 +9,9 @@ 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_DarReferencia = '{EE290313-AC22-43B7-815F-58253B4EF915}'; - RID_FacturasCliente = '{39FCB7C7-33D8-41D0-B361-7006793E354E}'; - RID_FacturasCliente_Detalles = '{2277CCFA-8265-4007-B54E-AFBB5EEB7366}'; + RID_DarReferencia = '{CC46C1A7-C6CE-4ABE-B1A8-4C2BABFB5C93}'; + RID_FacturasCliente = '{51E6C07A-D580-46D7-9032-1838AF4D4B07}'; + RID_FacturasCliente_Detalles = '{8A70D0F2-F09E-4166-A792-00012AA7C35A}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -29,6 +29,7 @@ const fld_FacturasClienteID_EMPRESA = 'ID_EMPRESA'; fld_FacturasClienteREFERENCIA = 'REFERENCIA'; fld_FacturasClienteTIPO = 'TIPO'; + fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA'; fld_FacturasClienteFECHA_FACTURA = 'FECHA_FACTURA'; fld_FacturasClienteSITUACION = 'SITUACION'; fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE'; @@ -55,46 +56,43 @@ const fld_FacturasClienteID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasClienteIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasClienteIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA'; - fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION'; fld_FacturasClienteID_AGENTE = 'ID_AGENTE'; - fld_FacturasClienteFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; + fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION'; { FacturasCliente field indexes } idx_FacturasClienteID = 0; idx_FacturasClienteID_EMPRESA = 1; idx_FacturasClienteREFERENCIA = 2; idx_FacturasClienteTIPO = 3; - idx_FacturasClienteFECHA_FACTURA = 4; - idx_FacturasClienteSITUACION = 5; - idx_FacturasClienteBASE_IMPONIBLE = 6; - idx_FacturasClienteDESCUENTO = 7; - idx_FacturasClienteIMPORTE_DESCUENTO = 8; - idx_FacturasClienteIVA = 9; - idx_FacturasClienteIMPORTE_IVA = 10; - idx_FacturasClienteRE = 11; - idx_FacturasClienteIMPORTE_RE = 12; - idx_FacturasClienteIMPORTE_TOTAL = 13; - idx_FacturasClienteOBSERVACIONES = 14; - idx_FacturasClienteID_CLIENTE = 15; - idx_FacturasClienteNIF_CIF = 16; - idx_FacturasClienteNOMBRE = 17; - idx_FacturasClienteCALLE = 18; - idx_FacturasClientePOBLACION = 19; - idx_FacturasClientePROVINCIA = 20; - idx_FacturasClienteCODIGO_POSTAL = 21; - idx_FacturasClienteFECHA_ALTA = 22; - idx_FacturasClienteFECHA_MODIFICACION = 23; - idx_FacturasClienteUSUARIO = 24; - idx_FacturasClienteID_FORMA_PAGO = 25; - idx_FacturasClienteRECARGO_EQUIVALENCIA = 26; - idx_FacturasClienteID_TIPO_IVA = 27; - idx_FacturasClienteIMPORTE_NETO = 28; - idx_FacturasClienteIMPORTE_PORTE = 29; - idx_FacturasClienteID_COMISION_LIQUIDADA = 30; - idx_FacturasClienteREFERENCIA_COMISION = 31; - idx_FacturasClienteID_AGENTE = 32; - idx_FacturasClienteFECHA_VENCIMIENTO = 33; + idx_FacturasClienteID_COMISION_LIQUIDADA = 4; + idx_FacturasClienteFECHA_FACTURA = 5; + idx_FacturasClienteSITUACION = 6; + idx_FacturasClienteBASE_IMPONIBLE = 7; + idx_FacturasClienteDESCUENTO = 8; + idx_FacturasClienteIMPORTE_DESCUENTO = 9; + idx_FacturasClienteIVA = 10; + idx_FacturasClienteIMPORTE_IVA = 11; + idx_FacturasClienteRE = 12; + idx_FacturasClienteIMPORTE_RE = 13; + idx_FacturasClienteIMPORTE_TOTAL = 14; + idx_FacturasClienteOBSERVACIONES = 15; + idx_FacturasClienteID_CLIENTE = 16; + idx_FacturasClienteNIF_CIF = 17; + idx_FacturasClienteNOMBRE = 18; + idx_FacturasClienteCALLE = 19; + idx_FacturasClientePOBLACION = 20; + idx_FacturasClientePROVINCIA = 21; + idx_FacturasClienteCODIGO_POSTAL = 22; + idx_FacturasClienteFECHA_ALTA = 23; + idx_FacturasClienteFECHA_MODIFICACION = 24; + idx_FacturasClienteUSUARIO = 25; + idx_FacturasClienteID_FORMA_PAGO = 26; + idx_FacturasClienteRECARGO_EQUIVALENCIA = 27; + idx_FacturasClienteID_TIPO_IVA = 28; + idx_FacturasClienteIMPORTE_NETO = 29; + idx_FacturasClienteIMPORTE_PORTE = 30; + idx_FacturasClienteID_AGENTE = 31; + idx_FacturasClienteREFERENCIA_COMISION = 32; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -131,7 +129,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{FC6FD5A4-62B4-4B90-A7B7-04717D03C5BE}'] + ['{3338E715-B18C-4550-BE4C-C92B071770B4}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -166,7 +164,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{C611FEEA-3F5D-4990-87EC-5E077E74DDAB}'] + ['{0ACBE344-A040-4AD4-8037-DA9382B4D9CF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -184,6 +182,10 @@ type procedure SetTIPOValue(const aValue: String); function GetTIPOIsNull: Boolean; procedure SetTIPOIsNull(const aValue: Boolean); + function GetID_COMISION_LIQUIDADAValue: Integer; + procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); + function GetID_COMISION_LIQUIDADAIsNull: Boolean; + procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); function GetFECHA_FACTURAValue: DateTime; procedure SetFECHA_FACTURAValue(const aValue: DateTime); function GetFECHA_FACTURAIsNull: Boolean; @@ -271,8 +273,8 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetID_FORMA_PAGOIsNull: Boolean; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); - function GetRECARGO_EQUIVALENCIAValue: Integer; - procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); + function GetRECARGO_EQUIVALENCIAValue: SmallInt; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); function GetRECARGO_EQUIVALENCIAIsNull: Boolean; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); function GetID_TIPO_IVAValue: Integer; @@ -287,22 +289,14 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Currency); function GetIMPORTE_PORTEIsNull: Boolean; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetID_COMISION_LIQUIDADAValue: Integer; - procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); - function GetID_COMISION_LIQUIDADAIsNull: Boolean; - procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); - function GetREFERENCIA_COMISIONValue: String; - procedure SetREFERENCIA_COMISIONValue(const aValue: String); - function GetREFERENCIA_COMISIONIsNull: Boolean; - procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); function GetID_AGENTEValue: Integer; procedure SetID_AGENTEValue(const aValue: Integer); function GetID_AGENTEIsNull: Boolean; procedure SetID_AGENTEIsNull(const aValue: Boolean); - function GetFECHA_VENCIMIENTOValue: DateTime; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); - function GetFECHA_VENCIMIENTOIsNull: Boolean; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); + function GetREFERENCIA_COMISIONValue: String; + procedure SetREFERENCIA_COMISIONValue(const aValue: String); + function GetREFERENCIA_COMISIONIsNull: Boolean; + procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); { Properties } @@ -314,6 +308,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; + property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; + property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; @@ -358,7 +354,7 @@ type property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; @@ -366,14 +362,10 @@ type property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; - property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; - property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; - property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; - property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; + property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; end; { TFacturasClienteDataTableRules } @@ -399,6 +391,10 @@ type procedure SetTIPOValue(const aValue: String); virtual; function GetTIPOIsNull: Boolean; virtual; procedure SetTIPOIsNull(const aValue: Boolean); virtual; + function GetID_COMISION_LIQUIDADAValue: Integer; virtual; + procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual; + function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual; + procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; function GetFECHA_FACTURAIsNull: Boolean; virtual; @@ -486,8 +482,8 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; - procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; + function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; @@ -502,22 +498,14 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetID_COMISION_LIQUIDADAValue: Integer; virtual; - procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual; - function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual; - procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_COMISIONValue: String; virtual; - procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; - function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; - procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; - function GetFECHA_VENCIMIENTOValue: DateTime; virtual; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; - function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_COMISIONValue: String; virtual; + procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; + function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; + procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -528,6 +516,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; + property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; + property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; @@ -572,7 +562,7 @@ type property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; @@ -580,14 +570,10 @@ type property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; - property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; - property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; - property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; - property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; + property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -597,7 +583,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{BD1BDC59-CA88-4C8D-B189-A917927D3F22}'] + ['{E62E97AD-C08F-4BB6-A6EF-21BF966630A0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -929,6 +915,27 @@ begin DataTable.Fields[idx_FacturasClienteTIPO].AsVariant := Null; end; +function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer; +begin + result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger; +end; + +procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger := aValue; +end; + +function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsVariant := Null; +end; + function TFacturasClienteDataTableRules.GetFECHA_FACTURAValue: DateTime; begin result := DataTable.Fields[idx_FacturasClienteFECHA_FACTURA].AsDateTime; @@ -1387,14 +1394,14 @@ begin DataTable.Fields[idx_FacturasClienteID_FORMA_PAGO].AsVariant := Null; end; -function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer; +function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; begin - result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsInteger; + result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt; end; -procedure TFacturasClienteDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); +procedure TFacturasClienteDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); begin - DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsInteger := aValue; + DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt := aValue; end; function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean; @@ -1471,48 +1478,6 @@ begin DataTable.Fields[idx_FacturasClienteIMPORTE_PORTE].AsVariant := Null; end; -function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer; -begin - result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger; -end; - -procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); -begin - DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger := aValue; -end; - -function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean; -begin - result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].IsNull; -end; - -procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsVariant := Null; -end; - -function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String; -begin - result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString; -end; - -procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String); -begin - DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString := aValue; -end; - -function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean; -begin - result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].IsNull; -end; - -procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null; -end; - function TFacturasClienteDataTableRules.GetID_AGENTEValue: Integer; begin result := DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger; @@ -1534,25 +1499,25 @@ begin DataTable.Fields[idx_FacturasClienteID_AGENTE].AsVariant := Null; end; -function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; +function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String; begin - result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime; + result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString; end; -procedure TFacturasClienteDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String); begin - DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime := aValue; + DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString := aValue; end; -function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean; +function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean; begin - result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].IsNull; + result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].IsNull; end; -procedure TFacturasClienteDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsVariant := Null; + DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null; end; diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index d9cecb1f..00c491af 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{3F90C22F-1A27-477C-8666-97294D63941A}'; - RID_FacturasClienteDelta = '{5DED3958-196C-45DF-93EB-942421D0DB76}'; - RID_FacturasCliente_DetallesDelta = '{D421677A-3717-40DD-9787-33F108D28E17}'; + RID_DarReferenciaDelta = '{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}'; + RID_FacturasClienteDelta = '{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}'; + RID_FacturasCliente_DetallesDelta = '{A1C5C789-FF93-491C-82C6-A49EF37F27A3}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{3F90C22F-1A27-477C-8666-97294D63941A}'] + ['{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,12 +50,13 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{5DED3958-196C-45DF-93EB-942421D0DB76}'] + ['{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldTIPOValue : String; + function GetOldID_COMISION_LIQUIDADAValue : Integer; function GetOldFECHA_FACTURAValue : DateTime; function GetOldSITUACIONValue : String; function GetOldBASE_IMPONIBLEValue : Currency; @@ -78,20 +79,19 @@ type function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_FORMA_PAGOValue : Integer; - function GetOldRECARGO_EQUIVALENCIAValue : Integer; + function GetOldRECARGO_EQUIVALENCIAValue : SmallInt; function GetOldID_TIPO_IVAValue : Integer; function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_PORTEValue : Currency; - function GetOldID_COMISION_LIQUIDADAValue : Integer; - function GetOldREFERENCIA_COMISIONValue : String; function GetOldID_AGENTEValue : Integer; - function GetOldFECHA_VENCIMIENTOValue : DateTime; + function GetOldREFERENCIA_COMISIONValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldTIPO : String read GetOldTIPOValue; + property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; @@ -114,14 +114,12 @@ type property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; + property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; - property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; - property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; end; { TFacturasClienteBusinessProcessorRules } @@ -155,6 +153,12 @@ type function GetOldTIPOIsNull: Boolean; virtual; procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOIsNull(const aValue: Boolean); virtual; + function GetID_COMISION_LIQUIDADAValue: Integer; virtual; + function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual; + function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual; + function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual; + procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual; + procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; function GetFECHA_FACTURAIsNull: Boolean; virtual; function GetOldFECHA_FACTURAValue: DateTime; virtual; @@ -286,11 +290,11 @@ type function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; + function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; - function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual; + function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; - procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; @@ -310,30 +314,18 @@ type function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetID_COMISION_LIQUIDADAValue: Integer; virtual; - function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual; - function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual; - function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual; - procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual; - procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_COMISIONValue: String; virtual; - function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; - function GetOldREFERENCIA_COMISIONValue: String; virtual; - function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual; - procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; - procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; function GetID_AGENTEIsNull: Boolean; virtual; function GetOldID_AGENTEValue: Integer; virtual; function GetOldID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; - function GetFECHA_VENCIMIENTOValue: DateTime; virtual; - function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; - function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; - function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual; - procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; - procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_COMISIONValue: String; virtual; + function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; + function GetOldREFERENCIA_COMISIONValue: String; virtual; + function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual; + procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; + procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -352,6 +344,10 @@ type property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; property OldTIPO : String read GetOldTIPOValue; property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; + property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; + property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; + property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; + property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; @@ -440,9 +436,9 @@ type property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; - property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; - property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; + property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; @@ -456,22 +452,14 @@ type property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; - property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; - property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; - property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull; - property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; - property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; - property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; - property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull; property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull; - property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; - property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; - property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; - property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull; + property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; + property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; + property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; + property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -481,7 +469,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{D421677A-3717-40DD-9787-33F108D28E17}'] + ['{A1C5C789-FF93-491C-82C6-A49EF37F27A3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -863,6 +851,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO] := Null; end; +function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]; +end; + +function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := Null; +end; + function TFacturasClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_FACTURA]; @@ -1542,7 +1561,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_FORMA_PAGO] := Null; end; -function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer; +function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]; end; @@ -1552,7 +1571,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]); end; -function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer; +function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]; end; @@ -1562,7 +1581,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]); end; -procedure TFacturasClienteBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); +procedure TFacturasClienteBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA] := aValue; end; @@ -1666,68 +1685,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_PORTE] := Null; end; -function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]; -end; - -function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]); -end; - -function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]; -end; - -function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]); -end; - -procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := aValue; -end; - -procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := Null; -end; - -function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]; -end; - -function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]); -end; - -function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]; -end; - -function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]); -end; - -procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := aValue; -end; - -procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null; -end; - function TFacturasClienteBusinessProcessorRules.GetID_AGENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE]; @@ -1759,35 +1716,35 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := Null; end; -function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; +function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]; end; -function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; +function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]); end; -function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; +function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]; end; -function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; +function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]); end; -procedure TFacturasClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := aValue; end; -procedure TFacturasClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null; end; diff --git a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas index b0045c71..f6569aa8 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas @@ -14,17 +14,14 @@ type end; TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente) - private - ContIdAux: Integer; protected - procedure OnNewRecord(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override; end; implementation uses - DB, SysUtils, Dialogs; + DB; { TBizDetallesFacturaCliente } @@ -40,13 +37,6 @@ begin end; end; -procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable); -begin - inherited; -// ID := ContIdAux; // -1, -2, -3... -// Dec(ContIdAux); -end; - initialization RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_CLIENTE, TBizDetallesFacturaCliente); diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index 14997f80..a9f1680f 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -73,7 +73,7 @@ type procedure OnNewRecord(Sender: TDADataTable); override; function GetSITUACIONValue: String; override; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; +// procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); override; procedure SetID_TIPO_IVAValue(const aValue: Integer); override; @@ -327,13 +327,13 @@ begin inherited; end; -procedure TBizFacturaCliente.SetID_FORMA_PAGOValue(const aValue: Integer); +{procedure TBizFacturaCliente.SetID_FORMA_PAGOValue(const aValue: Integer); begin if (aValue = 0) then SetFieldNull(DataTable, fld_FacturasClienteID_FORMA_PAGO) else inherited; -end; +end;} procedure TBizFacturaCliente.SetID_TIPO_IVAValue(const aValue: Integer); begin diff --git a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc index 5bf24eb1..3d7ef1de 100644 --- a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc +++ b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E1.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF8.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index b7fb2914..14f3e134 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -75,6 +75,10 @@ object srvFacturasCliente: TsrvFacturasCliente DatasetField = 'TIPO' TableField = 'TIPO' end + item + DatasetField = 'ID_COMISION_LIQUIDADA' + TableField = 'ID_COMISION_LIQUIDADA' + end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' @@ -180,16 +184,12 @@ object srvFacturasCliente: TsrvFacturasCliente TableField = 'IMPORTE_PORTE' end item - DatasetField = 'ID_COMISION_LIQUIDADA' - TableField = 'ID_COMISION_LIQUIDADA' + DatasetField = 'ID_AGENTE' + TableField = 'ID_AGENTE' end item DatasetField = 'REFERENCIA_COMISION' TableField = 'REFERENCIA_COMISION' - end - item - DatasetField = 'ID_AGENTE' - TableField = 'ID_AGENTE' end> end> Name = 'FacturasCliente' @@ -219,6 +219,11 @@ object srvFacturasCliente: TsrvFacturasCliente Size = 1 DictionaryEntry = 'FacturasCliente_TIPO' end + item + Name = 'ID_COMISION_LIQUIDADA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' + end item Name = 'FECHA_FACTURA' DataType = datDateTime @@ -339,7 +344,7 @@ object srvFacturasCliente: TsrvFacturasCliente end item Name = 'RECARGO_EQUIVALENCIA' - DataType = datInteger + DataType = datSmallInt DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' end item @@ -358,26 +363,15 @@ object srvFacturasCliente: TsrvFacturasCliente DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE' end item - Name = 'ID_COMISION_LIQUIDADA' + Name = 'ID_AGENTE' DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' + DictionaryEntry = 'FacturasCliente_ID_AGENTE' end item Name = 'REFERENCIA_COMISION' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION' - end - item - Name = 'ID_AGENTE' - DataType = datInteger - DictionaryEntry = 'FacturasCliente_ID_AGENTE' - end - item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime - DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO' - Calculated = True end> end item @@ -1492,7 +1486,7 @@ object srvFacturasCliente: TsrvFacturasCliente end item Name = 'FacturasCliente_RECARGO_EQUIVALENCIA' - DataType = datInteger + DataType = datSmallInt DisplayLabel = #191'Con R.E.?' end item diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc index 97a04b6e..14dccc03 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc +++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc @@ -22,4 +22,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DF.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF6.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index eeb83a66..5cce671e 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -142,7 +142,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente DataBinding.DataSource = frViewFacturaCliente1.DADataSource end inherited edtCodigoPostal: TcxDBTextEdit + Left = 192 DataBinding.DataSource = frViewFacturaCliente1.DADataSource + ExplicitLeft = 192 + end + inherited Button3: TBitBtn + Left = 82 + ExplicitLeft = 82 end end end diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index ef350f91..ad84dcdf 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente - Width = 451 - Height = 304 + Width = 754 + Height = 333 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,16 +9,18 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 451 - Height = 304 + Width = 754 + Height = 333 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 451 + ExplicitHeight = 304 DesignSize = ( - 451 - 304) + 754 + 333) object eReferencia: TcxDBTextEdit Left = 124 Top = 30 @@ -79,7 +81,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 301 end inline frViewClienteFactura: TfrViewDatosYSeleccionCliente - Left = 310 + Left = 393 Top = 30 Width = 314 Height = 215 @@ -91,7 +93,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ParentFont = False TabOrder = 5 ReadOnly = False - ExplicitLeft = 310 + ExplicitLeft = 393 ExplicitTop = 30 ExplicitWidth = 314 ExplicitHeight = 215 @@ -126,13 +128,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 192 + Left = 247 DataBinding.DataSource = DADataSource - ExplicitLeft = 192 + ExplicitLeft = 247 end inherited Button3: TBitBtn - Left = 82 - ExplicitLeft = 82 + Left = 137 + ExplicitLeft = 137 end end end @@ -168,7 +170,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 78 end object bFormasPago: TButton - Left = 150 + Left = 233 Top = 84 Width = 132 Height = 23 diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas index b63c1473..4f1eed50 100644 --- a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas +++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas @@ -69,16 +69,24 @@ begin end; function TFormasPagoController.Buscar(ID: Integer): IBizFormaPago; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := BuscarTodos; + with Result.DataTable.DynamicWhere do begin // (ID = :ID) - Expression := NewBinaryExpression(NewField('', fld_FormasPagoID), - NewConstant(ID, datInteger), dboEqual); + Condicion := NewBinaryExpression(NewField('', fld_FormasPagoID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc index abf52539..8a5bd60b 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc +++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C9.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu index 8299933d..0f72b654 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu and b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu differ diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc index 78b81dae..ed1fe3a3 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc +++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C7.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas index 5364679e..d99e7197 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas @@ -89,18 +89,24 @@ begin end; function TDataModulePresupuestosCliente.GetItem(const ID: Integer): IBizPresupuestoCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_PresupuestosClienteID + ' = ' + IntToStr(ID)); - CloseBraket; + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; @@ -108,21 +114,21 @@ end; function TDataModulePresupuestosCliente.GetItems: IBizPresupuestoCliente; var - APresupuesto : TDAMemDataTable; + APresupuesto: TDAMemDataTable; begin ShowHourglassCursor; try APresupuesto := CloneDataTable(tbl_PresupuestosCliente); + AsignarClaseNegocio(APresupuesto); // EL CAMPO REFERENCIA TIENEN QUE SER AUTOREFRESH!!!!! APresupuesto.FieldByName(fld_PresupuestosClienteREFERENCIA).ServerAutoRefresh := TRUE; - AsignarClaseNegocio(APresupuesto); - with TBizPresupuestoCliente(APresupuesto.BusinessEventsObj) do Detalles := _GetDetalles; Result := (APresupuesto as IBizPresupuestoCliente); + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc index 3afeaa77..7cafb9b8 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C5.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc index dd423c4a..bf992639 100644 --- a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc +++ b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D9.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc index 373ca11a..402c9da2 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc @@ -23,4 +23,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D7.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEE.tmp */ diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index b6f09351..a32d0e71 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -244,6 +244,8 @@ begin end; function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente; +var + Condicion: TDAWhereExpression; begin if not Assigned(Recibo) then raise Exception.Create ('IBizReciboCliente no asignado (BuscarRecibosACompensar)'); @@ -251,37 +253,51 @@ begin ShowHourglassCursor; try Result := BuscarTodos; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - //No podrá compensarse un recibo a si mismo - OpenBraket; - AddText(fld_RecibosClienteID + ' <> ' + IntToStr(Recibo.ID)); - CloseBraket; + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(Recibo.ID, datInteger), dboNotEqual); - AddOperator(opAND); - - //Solo podrá compensar recibos del mismo cliente - OpenBraket; - AddText(fld_RecibosClienteID_CLIENTE + ' = ' + IntToStr(Recibo.ID_CLIENTE)); - CloseBraket; - - AddOperator(opAND); - - //Omitimos los recibos compensados - OpenBraket; - AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL '); - CloseBraket; - - AddOperator(opAND); - - //No podrá compensarse recibos que estan cobrados - OpenBraket; - AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + ''''); - CloseBraket; + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + + with Result.DataTable.DynamicWhere do + begin + //Solo podrá compensar recibos del mismo cliente + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_CLIENTE), NewConstant(Recibo.ID_CLIENTE, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + + with Result.DataTable.DynamicWhere do + begin + //Omitimos los recibos compensados + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_RECIBO_COMPENSADO), NewNull, dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + + with Result.DataTable.DynamicWhere do + begin + //No podrá compensarse recibos que estan cobrados + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteSITUACION), NewConstant(CTE_COBRADO, datString), dboNotEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + finally HideHourglassCursor; end; @@ -302,18 +318,24 @@ begin end; function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := BuscarTodos; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_RecibosClienteID_FACTURA + ' = ' + IntToStr(ID_FACTURA)); - CloseBraket; + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_FACTURA), NewConstant(ID_FACTURA, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; @@ -514,6 +536,7 @@ begin if Assigned(AEditor) then with AEditor do begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE RecibosCliente := ARecibosCliente; MultiSelect := True; ShowEmbedded; diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc index b9a77520..3d03756a 100644 --- a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc +++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc @@ -12,6 +12,6 @@ STRINGTABLE BEGIN END -/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.DFM */ /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BD.tmp */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.drf */ diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index 38312f5b..b129bbc0 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -28,7 +28,10 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente Fields = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_CLIENTE_ID' + Required = True + ServerAutoRefresh = True DictionaryEntry = 'PagosCliente_ID' InPrimaryKey = True end @@ -115,22 +118,27 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PagosCliente' - Left = 272 - Top = 80 + IndexDefs = <> + Left = 352 + Top = 88 end object ds_PagosCliente: TDADataSource DataSet = tbl_PagosCliente.Dataset DataTable = tbl_PagosCliente - Left = 272 - Top = 24 + Left = 352 + Top = 32 end object tbl_RecibosCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' + Required = True + ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_ID' + InPrimaryKey = True end item Name = 'ID_RECIBO_COMPENSADO' @@ -298,125 +306,14 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RecibosCliente' + IndexDefs = <> Left = 168 - Top = 80 + Top = 88 end object ds_RecibosCliente: TDADataSource DataSet = tbl_RecibosCliente.Dataset DataTable = tbl_RecibosCliente Left = 168 - Top = 24 - end - object tbl_RecibosCompensadosCli: TDAMemDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datInteger - end - item - Name = 'ID_RECIBO_COMPENSADO' - DataType = datInteger - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_REFERENCIA' - end - item - Name = 'SITUACION' - DataType = datString - Size = 9 - DictionaryEntry = 'RecibosCliente_SITUACION' - end - item - Name = 'ID_FACTURA' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_ID_FACTURA' - end - item - Name = 'FECHA_EMISION' - DataType = datDateTime - DisplayLabel = 'RecibosCliente_FECHA_EMISION' - DictionaryEntry = 'RecibosCliente_FECHA_EMISION' - end - item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime - DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO' - end - item - Name = 'IMPORTE' - DataType = datCurrency - Alignment = taRightJustify - DictionaryEntry = 'RecibosCliente_IMPORTE' - end - item - Name = 'OTROS_GASTOS' - DataType = datCurrency - DisplayLabel = 'RecibosCliente_OTROS_GASTOS' - Alignment = taRightJustify - DictionaryEntry = 'RecibosCliente_OTROS_GASTOS' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - Alignment = taRightJustify - DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' - end - item - Name = 'FECHA_FACTURA' - DataType = datDateTime - DictionaryEntry = 'RecibosCliente_FECHA_FACTURA' - end - item - Name = 'IMPORTE_FACTURA' - DataType = datCurrency - Alignment = taRightJustify - DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA' - end - item - Name = 'ID_CLIENTE' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_ID_CLIENTE' - end - item - Name = 'NOMBRE_CLIENTE' - DataType = datString - Size = 255 - DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE' - end - item - Name = 'NIF_CIF_CLIENTE' - DataType = datString - Size = 15 - DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE' - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_ID_EMPRESA' - end> - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '' - ParamType = daptInput - end> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = rda_RecibosCliente - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'RecibosCompensadosCli' - Left = 392 - Top = 80 - end - object ds_RecibosCompensadosCli: TDADataSource - DataSet = tbl_RecibosCompensadosCli.Dataset - DataTable = tbl_RecibosCompensadosCli - Left = 392 - Top = 24 + Top = 32 end end diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas index e243426f..de8f6be1 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas @@ -44,8 +44,6 @@ type ds_PagosCliente: TDADataSource; tbl_RecibosCliente: TDAMemDataTable; ds_RecibosCliente: TDADataSource; - tbl_RecibosCompensadosCli: TDAMemDataTable; - ds_RecibosCompensadosCli: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected function _GetPagos: IBizPagosCliente; @@ -71,7 +69,7 @@ uses function TDataModuleRecibosCliente.GetReport(const ID: String): Binary; begin - Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID); +// Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID); end; procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject); @@ -102,19 +100,19 @@ function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensado var ARecibosCompensados : TDAMemDataTable; begin - ShowHourglassCursor; +{ ShowHourglassCursor; try ARecibosCompensados := CloneDataTable(tbl_RecibosCompensadosCli); with ARecibosCompensados do begin BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI; - DetailOptions := DetailOptions - - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; end; Result := (ARecibosCompensados as IBizRecibosCompensadosCli); finally HideHourglassCursor; end; +} end; function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente; @@ -144,18 +142,24 @@ begin end; function TDataModuleRecibosCliente.GetItem(const ID: Integer): IBizRecibosCliente; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_RecibosClienteID + ' = ' + IntToStr(ID)); - CloseBraket; + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 4fd82ec7..1d973c41 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -3,15 +3,15 @@ unit schRecibosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, 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_RecibosCliente = '{49C7956A-0A84-4CAC-A577-709985BCFE40}'; - RID_PagosCliente = '{556A81CB-B10F-4575-B1E8-1CDC29E07ECA}'; - RID_RecibosCompensadosCli = '{F7389B45-CBEA-4957-9676-8031F6C9B121}'; + RID_RecibosCliente = '{5410D8EC-FA59-43E6-96AB-C7C2E1292FBB}'; + RID_PagosCliente = '{A9A33A29-1E9F-40C7-9F00-73776CAA6D93}'; + RID_RecibosCompensadosCli = '{55474263-530A-458F-ADE8-497B260FA9A3}'; { Data table names } nme_RecibosCliente = 'RecibosCliente'; @@ -111,43 +111,69 @@ const { RecibosCompensadosCli fields } fld_RecibosCompensadosCliID = 'ID'; fld_RecibosCompensadosCliID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; + fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO'; fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA'; fld_RecibosCompensadosCliSITUACION = 'SITUACION'; fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA'; + fld_RecibosCompensadosCliID_REMESA = 'ID_REMESA'; + fld_RecibosCompensadosCliREFERENCIA_REMESA = 'REFERENCIA_REMESA'; fld_RecibosCompensadosCliFECHA_EMISION = 'FECHA_EMISION'; fld_RecibosCompensadosCliFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; + fld_RecibosCompensadosCliDESCRIPCION = 'DESCRIPCION'; + fld_RecibosCompensadosCliOBSERVACIONES = 'OBSERVACIONES'; fld_RecibosCompensadosCliIMPORTE = 'IMPORTE'; fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS'; fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA'; + fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA'; + fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA'; fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE'; fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; - fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA'; + fld_RecibosCompensadosCliENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE'; + fld_RecibosCompensadosCliSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE'; + fld_RecibosCompensadosCliDC_CLIENTE = 'DC_CLIENTE'; + fld_RecibosCompensadosCliCUENTA_CLIENTE = 'CUENTA_CLIENTE'; + fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA'; + fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_RecibosCompensadosCliUSUARIO = 'USUARIO'; { RecibosCompensadosCli field indexes } idx_RecibosCompensadosCliID = 0; idx_RecibosCompensadosCliID_RECIBO_COMPENSADO = 1; - idx_RecibosCompensadosCliREFERENCIA = 2; - idx_RecibosCompensadosCliSITUACION = 3; - idx_RecibosCompensadosCliID_FACTURA = 4; - idx_RecibosCompensadosCliFECHA_EMISION = 5; - idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 6; - idx_RecibosCompensadosCliIMPORTE = 7; - idx_RecibosCompensadosCliOTROS_GASTOS = 8; - idx_RecibosCompensadosCliIMPORTE_TOTAL = 9; - idx_RecibosCompensadosCliFECHA_FACTURA = 10; - idx_RecibosCompensadosCliIMPORTE_FACTURA = 11; - idx_RecibosCompensadosCliID_CLIENTE = 12; - idx_RecibosCompensadosCliNOMBRE_CLIENTE = 13; - idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 14; - idx_RecibosCompensadosCliID_EMPRESA = 15; + idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO = 2; + idx_RecibosCompensadosCliREFERENCIA = 3; + idx_RecibosCompensadosCliSITUACION = 4; + idx_RecibosCompensadosCliID_FACTURA = 5; + idx_RecibosCompensadosCliID_REMESA = 6; + idx_RecibosCompensadosCliREFERENCIA_REMESA = 7; + idx_RecibosCompensadosCliFECHA_EMISION = 8; + idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 9; + idx_RecibosCompensadosCliDESCRIPCION = 10; + idx_RecibosCompensadosCliOBSERVACIONES = 11; + idx_RecibosCompensadosCliIMPORTE = 12; + idx_RecibosCompensadosCliOTROS_GASTOS = 13; + idx_RecibosCompensadosCliIMPORTE_TOTAL = 14; + idx_RecibosCompensadosCliFECHA_FACTURA = 15; + idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 16; + idx_RecibosCompensadosCliIMPORTE_FACTURA = 17; + idx_RecibosCompensadosCliID_EMPRESA = 18; + idx_RecibosCompensadosCliID_CLIENTE = 19; + idx_RecibosCompensadosCliNOMBRE_CLIENTE = 20; + idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 21; + idx_RecibosCompensadosCliENTIDAD_CLIENTE = 22; + idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 23; + idx_RecibosCompensadosCliDC_CLIENTE = 24; + idx_RecibosCompensadosCliCUENTA_CLIENTE = 25; + idx_RecibosCompensadosCliFECHA_ALTA = 26; + idx_RecibosCompensadosCliFECHA_MODIFICACION = 27; + idx_RecibosCompensadosCliUSUARIO = 28; type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{14D43E5A-D46A-4F89-8E59-6BA1C0EBB6B1}'] + ['{11D2AB69-38A8-41B8-8139-2C32F3732B9C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -329,7 +355,7 @@ type end; { TRecibosClienteDataTableRules } - TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) + TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente) private protected { Property getters and setters } @@ -518,7 +544,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{92A8371B-B686-4664-8F0F-621B498C99F2}'] + ['{A77D5C00-617A-4A1C-B34F-B24E6AC72E0D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -598,7 +624,7 @@ type end; { TPagosClienteDataTableRules } - TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) + TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente) private protected { Property getters and setters } @@ -685,7 +711,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{EB912FB7-AC41-4E3F-B888-E26228ED7B80}'] + ['{3E3D9FC0-4E90-4A4D-AE58-8B53087B5A5F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -695,6 +721,10 @@ type procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); function GetID_RECIBO_COMPENSADOIsNull: Boolean; procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); + function GetREFERENCIA_REC_COMPENSADOValue: String; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; @@ -707,6 +737,14 @@ type procedure SetID_FACTURAValue(const aValue: Integer); function GetID_FACTURAIsNull: Boolean; procedure SetID_FACTURAIsNull(const aValue: Boolean); + function GetID_REMESAValue: Integer; + procedure SetID_REMESAValue(const aValue: Integer); + function GetID_REMESAIsNull: Boolean; + procedure SetID_REMESAIsNull(const aValue: Boolean); + function GetREFERENCIA_REMESAValue: String; + procedure SetREFERENCIA_REMESAValue(const aValue: String); + function GetREFERENCIA_REMESAIsNull: Boolean; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); function GetFECHA_EMISIONValue: DateTime; procedure SetFECHA_EMISIONValue(const aValue: DateTime); function GetFECHA_EMISIONIsNull: Boolean; @@ -715,6 +753,14 @@ type procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); function GetFECHA_VENCIMIENTOIsNull: Boolean; procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetOBSERVACIONESValue: String; + procedure SetOBSERVACIONESValue(const aValue: String); + function GetOBSERVACIONESIsNull: Boolean; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); function GetIMPORTEValue: Currency; procedure SetIMPORTEValue(const aValue: Currency); function GetIMPORTEIsNull: Boolean; @@ -731,10 +777,18 @@ type procedure SetFECHA_FACTURAValue(const aValue: DateTime); function GetFECHA_FACTURAIsNull: Boolean; procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); + function GetFORMA_PAGO_FACTURAValue: String; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); + function GetFORMA_PAGO_FACTURAIsNull: Boolean; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); function GetIMPORTE_FACTURAValue: Currency; procedure SetIMPORTE_FACTURAValue(const aValue: Currency); function GetIMPORTE_FACTURAIsNull: Boolean; procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetID_CLIENTEValue: Integer; procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_CLIENTEIsNull: Boolean; @@ -747,10 +801,34 @@ type procedure SetNIF_CIF_CLIENTEValue(const aValue: String); function GetNIF_CIF_CLIENTEIsNull: Boolean; procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); - function GetID_EMPRESAValue: Integer; - procedure SetID_EMPRESAValue(const aValue: Integer); - function GetID_EMPRESAIsNull: Boolean; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetENTIDAD_CLIENTEValue: String; + procedure SetENTIDAD_CLIENTEValue(const aValue: String); + function GetENTIDAD_CLIENTEIsNull: Boolean; + procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); + function GetSUCURSAL_CLIENTEValue: String; + procedure SetSUCURSAL_CLIENTEValue(const aValue: String); + function GetSUCURSAL_CLIENTEIsNull: Boolean; + procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); + function GetDC_CLIENTEValue: String; + procedure SetDC_CLIENTEValue(const aValue: String); + function GetDC_CLIENTEIsNull: Boolean; + procedure SetDC_CLIENTEIsNull(const aValue: Boolean); + function GetCUENTA_CLIENTEValue: String; + procedure SetCUENTA_CLIENTEValue(const aValue: String); + function GetCUENTA_CLIENTEIsNull: Boolean; + procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); { Properties } @@ -758,16 +836,26 @@ type property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; @@ -776,20 +864,36 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; + property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; + property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; + property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; + property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; + property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; + property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; + property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; end; { TRecibosCompensadosCliDataTableRules } - TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) + TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) private protected { Property getters and setters } @@ -801,6 +905,10 @@ type procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual; procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; @@ -813,6 +921,14 @@ type procedure SetID_FACTURAValue(const aValue: Integer); virtual; function GetID_FACTURAIsNull: Boolean; virtual; procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_REMESAValue: Integer; virtual; + procedure SetID_REMESAValue(const aValue: Integer); virtual; + function GetID_REMESAIsNull: Boolean; virtual; + procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REMESAValue: String; virtual; + procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; + function GetREFERENCIA_REMESAIsNull: Boolean; virtual; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; function GetFECHA_EMISIONValue: DateTime; virtual; procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; function GetFECHA_EMISIONIsNull: Boolean; virtual; @@ -821,6 +937,14 @@ type procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; procedure SetFECHA_VENCIMIENTOIsNull(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 GetOBSERVACIONESValue: String; virtual; + procedure SetOBSERVACIONESValue(const aValue: String); virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; function GetIMPORTEValue: Currency; virtual; procedure SetIMPORTEValue(const aValue: Currency); virtual; function GetIMPORTEIsNull: Boolean; virtual; @@ -837,10 +961,18 @@ type procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; function GetFECHA_FACTURAIsNull: Boolean; virtual; procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFORMA_PAGO_FACTURAValue: String; virtual; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; + function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_FACTURAValue: Currency; virtual; procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; function GetIMPORTE_FACTURAIsNull: Boolean; virtual; procedure SetIMPORTE_FACTURAIsNull(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 GetID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_CLIENTEIsNull: Boolean; virtual; @@ -853,26 +985,60 @@ type procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual; procedure SetNIF_CIF_CLIENTEIsNull(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 GetENTIDAD_CLIENTEValue: String; virtual; + procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; + function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; + procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetSUCURSAL_CLIENTEValue: String; virtual; + procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; + function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; + procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetDC_CLIENTEValue: String; virtual; + procedure SetDC_CLIENTEValue(const aValue: String); virtual; + function GetDC_CLIENTEIsNull: Boolean; virtual; + procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCUENTA_CLIENTEValue: String; virtual; + procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; + function GetCUENTA_CLIENTEIsNull: Boolean; virtual; + procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; @@ -881,16 +1047,32 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; + property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; + property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; + property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; + property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; + property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; + property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; + property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1840,6 +2022,27 @@ begin DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsVariant := Null; end; +function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsVariant := Null; +end; + function TRecibosCompensadosCliDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString; @@ -1903,6 +2106,48 @@ begin DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsVariant := Null; end; +function TRecibosCompensadosCliDataTableRules.GetID_REMESAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsInteger; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetID_REMESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsInteger := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetID_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetID_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REMESAValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsVariant := Null; +end; + function TRecibosCompensadosCliDataTableRules.GetFECHA_EMISIONValue: DateTime; begin result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime; @@ -1945,6 +2190,48 @@ begin DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsVariant := Null; end; +function TRecibosCompensadosCliDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetOBSERVACIONESValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetOBSERVACIONESValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetOBSERVACIONESIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsVariant := Null; +end; + function TRecibosCompensadosCliDataTableRules.GetIMPORTEValue: Currency; begin result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency; @@ -2029,6 +2316,27 @@ begin DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsVariant := Null; end; +function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsVariant := Null; +end; + function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency; begin result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency; @@ -2050,6 +2358,27 @@ begin DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsVariant := Null; end; +function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null; +end; + function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer; begin result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger; @@ -2113,25 +2442,151 @@ begin DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null; end; -function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer; +function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger; + result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString; end; -procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue; + DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString := aValue; end; -function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAIsNull: boolean; +function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean; begin - result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].IsNull; + result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].IsNull; end; -procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null; + DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsDateTime; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsDateTime := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsDateTime; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsString; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsString := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsVariant := Null; end; diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index 13ec6181..20b48aba 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,14 +9,14 @@ 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_RecibosClienteDelta = '{112687A9-E4E3-453E-AD24-F6AF1575EDCC}'; - RID_PagosClienteDelta = '{41C4B6B1-E072-45C7-9E22-BB8773C91269}'; - RID_RecibosCompensadosCliDelta = '{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}'; + RID_RecibosClienteDelta = '{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}'; + RID_PagosClienteDelta = '{B09875FA-0962-46A9-9A3A-40F618B4230D}'; + RID_RecibosCompensadosCliDelta = '{43471651-957E-47B2-B810-E0227C1BB163}'; type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{112687A9-E4E3-453E-AD24-F6AF1575EDCC}'] + ['{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -386,7 +386,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{41C4B6B1-E072-45C7-9E22-BB8773C91269}'] + ['{B09875FA-0962-46A9-9A3A-40F618B4230D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -552,42 +552,68 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}'] + ['{43471651-957E-47B2-B810-E0227C1BB163}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; + function GetOldREFERENCIA_REC_COMPENSADOValue : String; function GetOldREFERENCIAValue : String; function GetOldSITUACIONValue : String; function GetOldID_FACTURAValue : Integer; + function GetOldID_REMESAValue : Integer; + function GetOldREFERENCIA_REMESAValue : String; function GetOldFECHA_EMISIONValue : DateTime; function GetOldFECHA_VENCIMIENTOValue : DateTime; + function GetOldDESCRIPCIONValue : String; + function GetOldOBSERVACIONESValue : String; function GetOldIMPORTEValue : Currency; function GetOldOTROS_GASTOSValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldFECHA_FACTURAValue : DateTime; + function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldIMPORTE_FACTURAValue : Currency; + function GetOldID_EMPRESAValue : Integer; function GetOldID_CLIENTEValue : Integer; function GetOldNOMBRE_CLIENTEValue : String; function GetOldNIF_CIF_CLIENTEValue : String; - function GetOldID_EMPRESAValue : Integer; + function GetOldENTIDAD_CLIENTEValue : String; + function GetOldSUCURSAL_CLIENTEValue : String; + function GetOldDC_CLIENTEValue : String; + function GetOldCUENTA_CLIENTEValue : String; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldUSUARIOValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_REMESA : Integer read GetOldID_REMESAValue; + property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; property OldIMPORTE : Currency read GetOldIMPORTEValue; property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; + property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; + property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; + property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldUSUARIO : String read GetOldUSUARIOValue; end; { TRecibosCompensadosCliBusinessProcessorRules } @@ -607,6 +633,12 @@ type function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual; procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; @@ -625,6 +657,18 @@ type function GetOldID_FACTURAIsNull: Boolean; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_REMESAValue: Integer; virtual; + function GetID_REMESAIsNull: Boolean; virtual; + function GetOldID_REMESAValue: Integer; virtual; + function GetOldID_REMESAIsNull: Boolean; virtual; + procedure SetID_REMESAValue(const aValue: Integer); virtual; + procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REMESAValue: String; virtual; + function GetREFERENCIA_REMESAIsNull: Boolean; virtual; + function GetOldREFERENCIA_REMESAValue: String; virtual; + function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual; + procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; function GetFECHA_EMISIONValue: DateTime; virtual; function GetFECHA_EMISIONIsNull: Boolean; virtual; function GetOldFECHA_EMISIONValue: DateTime; virtual; @@ -637,6 +681,18 @@ type function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_VENCIMIENTOIsNull(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 GetOBSERVACIONESValue: String; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + function GetOldOBSERVACIONESValue: String; virtual; + function GetOldOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESValue(const aValue: String); virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; function GetIMPORTEValue: Currency; virtual; function GetIMPORTEIsNull: Boolean; virtual; function GetOldIMPORTEValue: Currency; virtual; @@ -661,12 +717,24 @@ type function GetOldFECHA_FACTURAIsNull: Boolean; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFORMA_PAGO_FACTURAValue: String; virtual; + function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + function GetOldFORMA_PAGO_FACTURAValue: String; virtual; + function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_FACTURAValue: Currency; virtual; function GetIMPORTE_FACTURAIsNull: Boolean; virtual; function GetOldIMPORTE_FACTURAValue: Currency; virtual; function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual; procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; procedure SetIMPORTE_FACTURAIsNull(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 GetID_CLIENTEValue: Integer; virtual; function GetID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEValue: Integer; virtual; @@ -685,12 +753,48 @@ type function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; procedure SetNIF_CIF_CLIENTEIsNull(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 GetENTIDAD_CLIENTEValue: String; virtual; + function GetENTIDAD_CLIENTEIsNull: Boolean; virtual; + function GetOldENTIDAD_CLIENTEValue: String; virtual; + function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual; + procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual; + procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetSUCURSAL_CLIENTEValue: String; virtual; + function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual; + function GetOldSUCURSAL_CLIENTEValue: String; virtual; + function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual; + procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual; + procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetDC_CLIENTEValue: String; virtual; + function GetDC_CLIENTEIsNull: Boolean; virtual; + function GetOldDC_CLIENTEValue: String; virtual; + function GetOldDC_CLIENTEIsNull: Boolean; virtual; + procedure SetDC_CLIENTEValue(const aValue: String); virtual; + procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCUENTA_CLIENTEValue: String; virtual; + function GetCUENTA_CLIENTEIsNull: Boolean; virtual; + function GetOldCUENTA_CLIENTEValue: String; virtual; + function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual; + procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual; + procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -701,6 +805,10 @@ type property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; @@ -713,6 +821,14 @@ type property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; + property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property OldID_REMESA : Integer read GetOldID_REMESAValue; + property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull; + property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; + property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; + property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull; property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; @@ -721,6 +837,14 @@ type property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull; + 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 OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; + property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue; property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; property OldIMPORTE : Currency read GetOldIMPORTEValue; @@ -737,10 +861,18 @@ type property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; + property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; + property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull; property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull; + 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 ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; @@ -753,10 +885,34 @@ type property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull; - 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 ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue; + property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull; + property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue; + property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull; + property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue; + property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull; + property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue; + property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull; + property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue; + property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull; + property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue; + property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull; + property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue; + property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull; + property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue; + property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -2137,6 +2293,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := Null; end; +function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := Null; +end; + function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA]; @@ -2230,6 +2417,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null; end; +function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := Null; +end; + function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION]; @@ -2292,6 +2541,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := Null; end; +function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := Null; +end; + function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE]; @@ -2416,6 +2727,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := Null; end; +function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := Null; +end; + function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]; @@ -2447,6 +2789,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := Null; end; +function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null; +end; + function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]; @@ -2540,35 +2913,221 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]); end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]; end; -function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]); end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := aValue; end; -procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := Null; end; diff --git a/Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas index 51ff3dee..4768809c 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas @@ -40,32 +40,25 @@ type end; TBizPagosCliente = class(TPagosClienteDataTableRules, IBizPagosCliente) - private - ContIdAux: Integer; protected - procedure OnNewRecord(Sender: TDADataTable); override; - public - constructor Create(aDataTable: TDADataTable); override; + procedure BeforeInsert(Sender: TDADataTable); override; end; implementation uses - SysUtils, uDataTableUtils; + DB; { TBizPagosCliente } -constructor TBizPagosCliente.Create(aDataTable: TDADataTable); -begin - inherited Create(aDataTable); - ContIdAux := -1; -end; - -procedure TBizPagosCliente.OnNewRecord(Sender: TDADataTable); +procedure TBizPagosCliente.BeforeInsert(Sender: TDADataTable); +var + AMasterTable : TDADataTable; begin inherited; - ID := ContIdAux; // -1, -2, -3... - Dec(ContIdAux); + AMasterTable := DataTable.GetMasterDataTable; + if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then + AMasterTable.Post; end; initialization diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas index 5c0e4ed5..cb8fac86 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas @@ -212,7 +212,6 @@ end; procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable); begin inherited; - ID := GetRecNo; // -1, -2, -3... IniciarValoresIBizRecibosClienteNuevo; end; diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc index a5ec4b65..361c1225 100644 --- a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc +++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C3.tmp */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.drf */ diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index 21f08281..674f579f 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -1,7 +1,6 @@ object srvRecibosCliente: TsrvRecibosCliente OldCreateOrder = True OnCreate = DARemoteServiceCreate - RequiresSession = True SessionManager = dmServer.SessionManager ConnectionName = 'IBX' ServiceSchema = schRecibosCliente @@ -307,6 +306,7 @@ object srvRecibosCliente: TsrvRecibosCliente Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PAGOS_CLIENTE' StatementType = stAutoSQL ColumnMappings = < @@ -365,6 +365,7 @@ object srvRecibosCliente: TsrvRecibosCliente Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PAGOS_CLIENTE_ID' + ServerAutoRefresh = True DictionaryEntry = 'PagosCliente_ID' InPrimaryKey = True end @@ -432,27 +433,25 @@ object srvRecibosCliente: TsrvRecibosCliente end> end item - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '' - ParamType = daptInput - end> + Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_RECIBOS_CLIENTE' - SQL = - 'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA,'#10' ' + - ' SITUACION,'#10' ID_FACTURA,'#10' FECHA_EMISION,'#10' FEC' + - 'HA_VENCIMIENTO,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPO' + - 'RTE_TOTAL,'#10' FECHA_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' + - 'ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF_CIF_CLIENTE,'#10' ' + - ' ID_EMPRESA'#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE ID_RECIBO_COMPENSADO ' + - '= :ID' - StatementType = stSQL + StatementType = stAutoSQL ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA_REC_COMPENSADO' + TableField = 'REFERENCIA_REC_COMPENSADO' + end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' @@ -465,22 +464,62 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end + item + DatasetField = 'ID_REMESA' + TableField = 'ID_REMESA' + end + item + DatasetField = 'REFERENCIA_REMESA' + TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' + end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end item DatasetField = 'IMPORTE' TableField = 'IMPORTE' end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' end + item + DatasetField = 'FORMA_PAGO_FACTURA' + TableField = 'FORMA_PAGO_FACTURA' + end item DatasetField = 'IMPORTE_FACTURA' TableField = 'IMPORTE_FACTURA' end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'ID_CLIENTE' + TableField = 'ID_CLIENTE' + end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' @@ -490,32 +529,32 @@ object srvRecibosCliente: TsrvRecibosCliente TableField = 'NIF_CIF_CLIENTE' end item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' + DatasetField = 'ENTIDAD_CLIENTE' + TableField = 'ENTIDAD_CLIENTE' end item - DatasetField = 'OTROS_GASTOS' - TableField = 'OTROS_GASTOS' + DatasetField = 'SUCURSAL_CLIENTE' + TableField = 'SUCURSAL_CLIENTE' end item - DatasetField = 'ID_CLIENTE' - TableField = 'ID_CLIENTE' + DatasetField = 'DC_CLIENTE' + TableField = 'DC_CLIENTE' end item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' + DatasetField = 'CUENTA_CLIENTE' + TableField = 'CUENTA_CLIENTE' end item - DatasetField = 'FECHA_EMISION' - TableField = 'FECHA_EMISION' + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' end item - DatasetField = 'ID_RECIBO_COMPENSADO' - TableField = 'ID_RECIBO_COMPENSADO' + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' end item - DatasetField = 'ID' - TableField = 'ID' + DatasetField = 'USUARIO' + TableField = 'USUARIO' end> end> Name = 'RecibosCompensadosCli' @@ -523,84 +562,133 @@ object srvRecibosCliente: TsrvRecibosCliente item Name = 'ID' DataType = datInteger + InPrimaryKey = True end item Name = 'ID_RECIBO_COMPENSADO' DataType = datInteger end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + end item Name = 'REFERENCIA' DataType = datString Size = 255 - DictionaryEntry = 'RecibosCliente_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 9 - DictionaryEntry = 'RecibosCliente_SITUACION' end item Name = 'ID_FACTURA' DataType = datInteger - DictionaryEntry = 'RecibosCliente_ID_FACTURA' + end + item + Name = 'ID_REMESA' + DataType = datInteger + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 end item Name = 'FECHA_EMISION' DataType = datDateTime - DictionaryEntry = 'RecibosCliente_FECHA_EMISION' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime - DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO' + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 end item Name = 'IMPORTE' DataType = datCurrency - DictionaryEntry = 'RecibosCliente_IMPORTE' end item Name = 'OTROS_GASTOS' DataType = datCurrency - DictionaryEntry = 'RecibosCliente_OTROS_GASTOS' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency - DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' end item Name = 'FECHA_FACTURA' DataType = datDateTime - DictionaryEntry = 'RecibosCliente_FECHA_FACTURA' + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 end item Name = 'IMPORTE_FACTURA' DataType = datCurrency - DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger - DictionaryEntry = 'RecibosCliente_ID_CLIENTE' end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 - DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE' end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 - DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE' end item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'RecibosCliente_ID_EMPRESA' + Name = 'ENTIDAD_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'DC_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA_CLIENTE' + DataType = datString + Size = 15 + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 end> end> JoinDataTables = <> @@ -969,15 +1057,11 @@ object srvRecibosCliente: TsrvRecibosCliente Params = < item Name = 'ID_RECIBO_COMPENSADO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -995,9 +1079,7 @@ object srvRecibosCliente: TsrvRecibosCliente Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1015,15 +1097,11 @@ object srvRecibosCliente: TsrvRecibosCliente Params = < item Name = 'ID_RECIBO_COMPENSADO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1038,6 +1116,14 @@ object srvRecibosCliente: TsrvRecibosCliente Name = 'Update_RecibosCompensadosCli' end> RelationShips = < + item + Name = 'FK_RecibosCompensados' + MasterDatasetName = 'RecibosCliente' + MasterFields = 'ID' + DetailDatasetName = 'RecibosCompensadosCli' + DetailFields = 'ID_RECIBO_COMPENSADO' + RelationshipType = rtForeignKey + end item Name = 'FK_PagosCliente' MasterDatasetName = 'RecibosCliente' @@ -1099,7 +1185,7 @@ object srvRecibosCliente: TsrvRecibosCliente DeleteCommandName = 'Delete_RecibosCliente' UpdateCommandName = 'Update_RecibosCliente' ReferencedDataset = 'RecibosCliente' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 192 Top = 24 @@ -1336,7 +1422,7 @@ object srvRecibosCliente: TsrvRecibosCliente DeleteCommandName = 'Delete_RecibosCompensadosCli' UpdateCommandName = 'Update_RecibosCompensadosCli' ReferencedDataset = 'RecibosCompensadosCli' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 192 Top = 152 diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas index 9249f601..0628587f 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas @@ -33,10 +33,9 @@ type Bin2DataStreamer: TDABin2DataStreamer; schRecibosCliente: TDASchema; DADataDictionary: TDADataDictionary; - procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; - const IncludeSchema: Boolean; const MaxRecords: Integer); - procedure DARemoteServiceCreate(Sender: TObject); procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); + procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DARemoteServiceCreate(Sender: TObject); private protected { IsrvRecibosProveedor methods } @@ -69,7 +68,7 @@ begin { Aquí se asegura que el usuario sólo accede a Recibos de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } -// FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA); + FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA); end; end; diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm index ae5d984a..548859a8 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm @@ -78,26 +78,36 @@ inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados Width = 549 ExplicitWidth = 549 inherited ToolButton1: TToolButton + Top = 0 ExplicitWidth = 62 end inherited ToolButton4: TToolButton + Top = 0 ExplicitWidth = 74 end + inherited ToolButton5: TToolButton + Top = 0 + end inherited ToolButton2: TToolButton + Top = 0 ExplicitWidth = 67 end + inherited ToolButton6: TToolButton + Top = 0 + end inherited ToolButton7: TToolButton + Top = 0 ExplicitWidth = 117 end object ToolButton3: TToolButton Left = 336 - Top = 2 + Top = 0 Action = actExpandir AutoSize = True end object ToolButton8: TToolButton Left = 434 - Top = 2 + Top = 0 Action = actContraer AutoSize = True end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas index 5505638a..7b7c6d21 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas @@ -10,7 +10,7 @@ uses cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente, uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit, - dxLayoutControl; + dxLayoutControl, uDAInterfaces; type IViewRecibosCompensados = interface diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc index 09e9315e..e0738217 100644 --- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc +++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18B.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */ diff --git a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm index 0a90729d..cdb51abd 100644 --- a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm +++ b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm @@ -68,6 +68,7 @@ inherited DataModuleTiposIVA: TDataModuleTiposIVA DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'TiposIVA' + IndexDefs = <> Left = 296 Top = 24 end diff --git a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas index 46c06d0f..5d252042 100644 --- a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas +++ b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas @@ -86,16 +86,22 @@ begin end; function TDataModuleTiposIVA.GetItem(const ID: Integer): IBizTipoIVA; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := Self.GetItems; - // (ID = :ID) with Result.DataTable.DynamicWhere do begin - Expression := NewBinaryExpression(NewField('', fld_TiposIVAID), - NewConstant(ID, datInteger), dboEqual); + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_TiposIVAID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; finally diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc index 2a944fb9..8b4d2ef2 100644 --- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc +++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf189.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index f9471cb6..ad97f2d4 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 3f43e394..6ddaaaec 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -60,15 +60,15 @@ uses srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDataAbstractService}, srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService}, uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas', + uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente}, + schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', + schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', + schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', + schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', - schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', - uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente}, - schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', - schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', - schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', - schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; + schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 614fedf0..b1f4651d 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,155 +1,155 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - - - - -
srvContactos
- TDARemoteService - - - - - -
srvFacturasCliente
- TDataAbstractService - - - - - - - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
srvRecibosCliente
- TDataAbstractService - - - - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + + + + +
srvContactos
+ TDARemoteService + + + + + +
srvFacturasCliente
+ TDataAbstractService + + + + + + + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +