diff --git a/Database/Anterior/VISTAS.SQL b/Database/Anterior/VISTAS.SQL index 9470084c..8a7051c3 100644 --- a/Database/Anterior/VISTAS.SQL +++ b/Database/Anterior/VISTAS.SQL @@ -1271,3 +1271,102 @@ FROM LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN); + +DROP VIEW V_REMESAS_CLIENTE; + +CREATE VIEW V_REMESAS_CLIENTE( + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + FECHA_REMESA, + DESCRIPCION, + ID_DATOS_BANCO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + NOMBRE, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + SUFIJO_N19, + SUFIJO_N58, + IMPORTE_TOTAL) +AS +SELECT + REMESAS_CLIENTE.ID, + REMESAS_CLIENTE.ID_EMPRESA, + REMESAS_CLIENTE.REFERENCIA, + REMESAS_CLIENTE.TIPO, + REMESAS_CLIENTE.FECHA_REMESA, + REMESAS_CLIENTE.DESCRIPCION, + REMESAS_CLIENTE.ID_DATOS_BANCO, + REMESAS_CLIENTE.FECHA_ALTA, + REMESAS_CLIENTE.FECHA_MODIFICACION, + REMESAS_CLIENTE.USUARIO, + EMPRESAS_DATOS_BANCO.NOMBRE, + EMPRESAS_DATOS_BANCO.ENTIDAD, + EMPRESAS_DATOS_BANCO.SUCURSAL, + EMPRESAS_DATOS_BANCO.DC, + EMPRESAS_DATOS_BANCO.CUENTA, + EMPRESAS_DATOS_BANCO.SUFIJO_N19, + EMPRESAS_DATOS_BANCO.SUFIJO_N58, + SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL + +FROM + REMESAS_CLIENTE + LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO) + LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID) + LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID) +GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; + + +DROP VIEW V_REMESAS_PROVEEDOR; + +CREATE VIEW V_REMESAS_PROVEEDOR( + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + FECHA_REMESA, + DESCRIPCION, + ID_DATOS_BANCO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + NOMBRE, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + SUFIJO_N19, + SUFIJO_N58, + IMPORTE_TOTAL) +AS +SELECT + REMESAS_PROVEEDOR.ID, + REMESAS_PROVEEDOR.ID_EMPRESA, + REMESAS_PROVEEDOR.REFERENCIA, + REMESAS_PROVEEDOR.TIPO, + REMESAS_PROVEEDOR.FECHA_REMESA, + REMESAS_PROVEEDOR.DESCRIPCION, + REMESAS_PROVEEDOR.ID_DATOS_BANCO, + REMESAS_PROVEEDOR.FECHA_ALTA, + REMESAS_PROVEEDOR.FECHA_MODIFICACION, + REMESAS_PROVEEDOR.USUARIO, + EMPRESAS_DATOS_BANCO.NOMBRE, + EMPRESAS_DATOS_BANCO.ENTIDAD, + EMPRESAS_DATOS_BANCO.SUCURSAL, + EMPRESAS_DATOS_BANCO.DC, + EMPRESAS_DATOS_BANCO.CUENTA, + EMPRESAS_DATOS_BANCO.SUFIJO_N19, + EMPRESAS_DATOS_BANCO.SUFIJO_N58, + SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL + +FROM + REMESAS_PROVEEDOR + LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO) + LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID) + LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index d90f8768..22f70de6 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -50,6 +50,20 @@ + + + + + + + + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components @@ -67,55 +81,55 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index 73e44e34..466f6a75 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -39,6 +39,9 @@ begin LoadModule('RecibosProveedor_plugin.bpl'); LoadModule('FacturasProveedor_plugin.bpl'); + + LoadModule('RemesasCliente_plugin.bpl'); + LoadModule('RemesasProveedor_plugin.bpl'); end; end; diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index b397824a..70b14487 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -57,20 +57,22 @@ MainSource - - - - - - - - - - - - - - + + + + + + + + + + + + + + + +
fDialogBase
 @@ -157,11 +159,8 @@
frViewTotales
TFrame - - - diff --git a/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res b/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res and b/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res differ diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas index 225d99bc..9d707b56 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas +++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas @@ -86,7 +86,7 @@ type implementation uses - cxControls, DB, uEditorRegistryUtils, schRemesasClienteClient_Intf, + cxControls, DB, uEditorRegistryUtils, schRemesasClienteClient_Intf, uFactuGES_App, schRecibosClienteClient_Intf, uIEditorRemesasCliente, uIEditorRemesaCliente, Dialogs, uDataModuleRemesasCliente, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows, @@ -462,7 +462,7 @@ begin ARemesaCliente.DataTable.Active := False; // Filtrar las remesas actuales por empresa - with AAlbaran.DataTable.DynamicWhere do + with ARemesaCliente.DataTable.DynamicWhere do begin // (ID_EMPRESA >= ID) Condicion := NewBinaryExpression(NewField('', fld_RemesasClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); @@ -481,7 +481,6 @@ end; function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente): Boolean; var - NuevoID: Integer; bEsNuevo: Boolean; begin Result := False; @@ -491,19 +490,14 @@ begin ShowHourglassCursor; try bEsNuevo := ARemesaCliente.EsNuevo; - if (bEsNuevo) then - NuevoID := FDataModule.GetNextID(ARemesaCliente.DataTable.LogicalName) - else - NuevoID := ARemesaCliente.ID; - AsignarID(ARemesaCliente, NuevoID); //Si es nuevo debemos hacer el applyupdates por la integridad referencial de BD if bEsNuevo then ARemesaCliente.DataTable.ApplyUpdates; //Si todo ha ido bien, asignamos la remesa a los recibos asociados //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros - RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID); + RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID); ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente) //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen diff --git a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk index b1926bad..0794b4e0 100644 --- a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk +++ b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk @@ -22,18 +22,11 @@ package RemesasCliente_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - cxLibraryD10, - dxThemeD10, - vcl, - dsnap, - vcldb, - adortl, - RemesasCliente_model; + RemesasCliente_model, + Base; contains uDataModuleRemesasCliente in 'uDataModuleRemesasCliente.pas' {DataModuleRemesasCliente}; diff --git a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dproj b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dproj new file mode 100644 index 00000000..4bd7cdb2 --- /dev/null +++ b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dproj @@ -0,0 +1,587 @@ + + + {568778b1-e82d-41e9-b198-b7c58140e81b} + RemesasCliente_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_data.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasCliente_data.dpk + + + + + + + MainSource + + + + +
DataModuleRemesasCliente
+ + + + + diff --git a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res and b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res differ diff --git a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm index 31eadd8d..5f457803 100644 --- a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm @@ -3,16 +3,35 @@ inherited DataModuleRemesasCliente: TDataModuleRemesasCliente Height = 235 Width = 444 object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel ServiceName = 'srvRemesasCliente' Left = 48 Top = 24 end - object tbl_RemesasCliente: TDACDSDataTable + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 84 + end + object rda_RemesasCliente: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 51 + Top = 151 + end + object tbl_RemesasCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_CLIENTE_ID' + Required = True + ServerAutoRefresh = True DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True end @@ -48,13 +67,6 @@ inherited DataModuleRemesasCliente: TDataModuleRemesasCliente DisplayLabel = 'RemesasCliente_DESCRIPCION' DictionaryEntry = 'RemesasCliente_DESCRIPCION' end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DisplayLabel = 'RemesasCliente_USUARIO' - DictionaryEntry = 'RemesasCliente_USUARIO' - end item Name = 'ID_DATOS_BANCO' DataType = datInteger @@ -71,11 +83,11 @@ inherited DataModuleRemesasCliente: TDataModuleRemesasCliente DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' end item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - DisplayLabel = 'Importe total' - Alignment = taRightJustify - DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL' + Name = 'USUARIO' + DataType = datString + Size = 20 + DisplayLabel = 'RemesasCliente_USUARIO' + DictionaryEntry = 'RemesasCliente_USUARIO' end item Name = 'NOMBRE' @@ -124,35 +136,28 @@ inherited DataModuleRemesasCliente: TDataModuleRemesasCliente Size = 3 DisplayLabel = 'Sufijo N58' DictionaryEntry = 'RemesasCliente_SUFIJO_N58' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL' end> Params = <> - MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RemesasCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RemesasCliente' IndexDefs = <> - Left = 288 - Top = 152 + Left = 208 + Top = 88 end object ds_RemesasCliente: TDADataSource DataSet = tbl_RemesasCliente.Dataset DataTable = tbl_RemesasCliente - Left = 288 - Top = 88 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 84 - end - object rda_RemesasCliente: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 51 - Top = 151 + Left = 208 + Top = 32 end end diff --git a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas index 127ea5eb..a389226e 100644 --- a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas @@ -8,19 +8,20 @@ uses uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uDataModuleBase, uIDataModuleRemesasCliente, uIDataModuleRemesasClienteReport, uBizRemesasCliente, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleRemesasCliente = class(TDataModuleBase, IDataModuleRemesasCliente, IDataModuleRemesasClienteReport) RORemoteService: TRORemoteService; - tbl_RemesasCliente: TDACDSDataTable; - ds_RemesasCliente: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_RemesasCliente: TDARemoteDataAdapter; + tbl_RemesasCliente: TDAMemDataTable; + ds_RemesasCliente: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected - procedure AsignarClaseNegocio(var ARemesaCliente: TDACDSDataTable); virtual; + procedure AsignarClaseNegocio(var ARemesaCliente: TDAMemDataTable); virtual; public function GetItems : IBizRemesaCliente; overload; @@ -36,12 +37,12 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataTableUtils, cxControls, uDataModuleConexion, schRemesasClienteClient_Intf, Dialogs; { TdmRemesasCliente } -procedure TDataModuleRemesasCliente.AsignarClaseNegocio(var ARemesaCliente: TDACDSDataTable); +procedure TDataModuleRemesasCliente.AsignarClaseNegocio(var ARemesaCliente: TDAMemDataTable); begin ARemesaCliente.BusinessRulesID := BIZ_CLIENT_REMESACLIENTE; end; diff --git a/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas index e89ade1f..9ae9b379 100644 --- a/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas @@ -10,7 +10,6 @@ type ['{9047C468-78DE-404E-9047-1125B382FE3B}'] function GetItems: IBizRemesaCliente; function GetItem(const ID : Integer) : IBizRemesaCliente; - function GetNextID(const DataSetName : String) : Integer; function NewItem : IBizRemesaCliente; end; diff --git a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk index 41f418f4..688fdd25 100644 --- a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk +++ b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk @@ -22,18 +22,11 @@ package RemesasCliente_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dsnap, - dbrtl, - vcldb, - vcl, - adortl, - Usuarios, - DataAbstract_D10, - RecibosCliente_model; + RecibosCliente_model, + ApplicationBase; contains uBizRemesasCliente in 'uBizRemesasCliente.pas', diff --git a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dproj b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dproj new file mode 100644 index 00000000..d414a110 --- /dev/null +++ b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dproj @@ -0,0 +1,589 @@ + + + {e4f81792-84cf-4900-a6ab-18f6dd2c7ada} + RemesasCliente_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_model.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasCliente_model.dpk + + + + + + + MainSource + + + + + + + + + + + + diff --git a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res and b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res differ diff --git a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas index 47c829cb..2a892638 100644 --- a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas +++ b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas @@ -3,20 +3,18 @@ unit schRemesasClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable; + Classes, DB, schBase_Intf, 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_darReferencia = '{A1E303BC-14C6-44ED-AB3B-110321C46D8B}'; - RID_RemesasCliente = '{C09AAC97-CD9C-4A7F-BAB3-A7A7845FA2CE}'; - RID_RemesasCliente_Refresh = '{1212E969-2479-4D5B-B7FB-C88F220139E8}'; + RID_darReferencia = '{2A669FBE-2DE4-4257-8CA5-518E3E7FE0A3}'; + RID_RemesasCliente = '{6AD59CC0-CB4B-4B42-87E9-0C30BF117732}'; { Data table names } nme_darReferencia = 'darReferencia'; nme_RemesasCliente = 'RemesasCliente'; - nme_RemesasCliente_Refresh = 'RemesasCliente_Refresh'; { darReferencia fields } fld_darReferenciaVALOR = 'VALOR'; @@ -31,11 +29,10 @@ const fld_RemesasClienteTIPO = 'TIPO'; fld_RemesasClienteFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasClienteDESCRIPCION = 'DESCRIPCION'; - fld_RemesasClienteUSUARIO = 'USUARIO'; fld_RemesasClienteID_DATOS_BANCO = 'ID_DATOS_BANCO'; fld_RemesasClienteFECHA_ALTA = 'FECHA_ALTA'; fld_RemesasClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_RemesasClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RemesasClienteUSUARIO = 'USUARIO'; fld_RemesasClienteNOMBRE = 'NOMBRE'; fld_RemesasClienteENTIDAD = 'ENTIDAD'; fld_RemesasClienteSUCURSAL = 'SUCURSAL'; @@ -43,6 +40,7 @@ const fld_RemesasClienteCUENTA = 'CUENTA'; fld_RemesasClienteSUFIJO_N19 = 'SUFIJO_N19'; fld_RemesasClienteSUFIJO_N58 = 'SUFIJO_N58'; + fld_RemesasClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; { RemesasCliente field indexes } idx_RemesasClienteID = 0; @@ -51,70 +49,33 @@ const idx_RemesasClienteTIPO = 3; idx_RemesasClienteFECHA_REMESA = 4; idx_RemesasClienteDESCRIPCION = 5; - idx_RemesasClienteUSUARIO = 6; - idx_RemesasClienteID_DATOS_BANCO = 7; - idx_RemesasClienteFECHA_ALTA = 8; - idx_RemesasClienteFECHA_MODIFICACION = 9; - idx_RemesasClienteIMPORTE_TOTAL = 10; - idx_RemesasClienteNOMBRE = 11; - idx_RemesasClienteENTIDAD = 12; - idx_RemesasClienteSUCURSAL = 13; - idx_RemesasClienteDC = 14; - idx_RemesasClienteCUENTA = 15; - idx_RemesasClienteSUFIJO_N19 = 16; - idx_RemesasClienteSUFIJO_N58 = 17; - - { RemesasCliente_Refresh fields } - fld_RemesasCliente_RefreshID = 'ID'; - fld_RemesasCliente_RefreshID_EMPRESA = 'ID_EMPRESA'; - fld_RemesasCliente_RefreshREFERENCIA = 'REFERENCIA'; - fld_RemesasCliente_RefreshTIPO = 'TIPO'; - fld_RemesasCliente_RefreshFECHA_REMESA = 'FECHA_REMESA'; - fld_RemesasCliente_RefreshDESCRIPCION = 'DESCRIPCION'; - fld_RemesasCliente_RefreshUSUARIO = 'USUARIO'; - fld_RemesasCliente_RefreshID_DATOS_BANCO = 'ID_DATOS_BANCO'; - fld_RemesasCliente_RefreshFECHA_ALTA = 'FECHA_ALTA'; - fld_RemesasCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_RemesasCliente_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_RemesasCliente_RefreshNOMBRE = 'NOMBRE'; - fld_RemesasCliente_RefreshENTIDAD = 'ENTIDAD'; - fld_RemesasCliente_RefreshSUCURSAL = 'SUCURSAL'; - fld_RemesasCliente_RefreshDC = 'DC'; - fld_RemesasCliente_RefreshCUENTA = 'CUENTA'; - fld_RemesasCliente_RefreshSUFIJO_N19 = 'SUFIJO_N19'; - fld_RemesasCliente_RefreshSUFIJO_N58 = 'SUFIJO_N58'; - - { RemesasCliente_Refresh field indexes } - idx_RemesasCliente_RefreshID = 0; - idx_RemesasCliente_RefreshID_EMPRESA = 1; - idx_RemesasCliente_RefreshREFERENCIA = 2; - idx_RemesasCliente_RefreshTIPO = 3; - idx_RemesasCliente_RefreshFECHA_REMESA = 4; - idx_RemesasCliente_RefreshDESCRIPCION = 5; - idx_RemesasCliente_RefreshUSUARIO = 6; - idx_RemesasCliente_RefreshID_DATOS_BANCO = 7; - idx_RemesasCliente_RefreshFECHA_ALTA = 8; - idx_RemesasCliente_RefreshFECHA_MODIFICACION = 9; - idx_RemesasCliente_RefreshIMPORTE_TOTAL = 10; - idx_RemesasCliente_RefreshNOMBRE = 11; - idx_RemesasCliente_RefreshENTIDAD = 12; - idx_RemesasCliente_RefreshSUCURSAL = 13; - idx_RemesasCliente_RefreshDC = 14; - idx_RemesasCliente_RefreshCUENTA = 15; - idx_RemesasCliente_RefreshSUFIJO_N19 = 16; - idx_RemesasCliente_RefreshSUFIJO_N58 = 17; + idx_RemesasClienteID_DATOS_BANCO = 6; + idx_RemesasClienteFECHA_ALTA = 7; + idx_RemesasClienteFECHA_MODIFICACION = 8; + idx_RemesasClienteUSUARIO = 9; + idx_RemesasClienteNOMBRE = 10; + idx_RemesasClienteENTIDAD = 11; + idx_RemesasClienteSUCURSAL = 12; + idx_RemesasClienteDC = 13; + idx_RemesasClienteCUENTA = 14; + idx_RemesasClienteSUFIJO_N19 = 15; + idx_RemesasClienteSUFIJO_N58 = 16; + idx_RemesasClienteIMPORTE_TOTAL = 17; type { IdarReferencia } IdarReferencia = interface(IDAStronglyTypedDataTable) - ['{7AF88C22-93F7-445B-A55E-87212FDB6C3C}'] + ['{41ABA49E-1EC4-40B5-8174-E851C8735EF6}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); + function GetVALORIsNull: Boolean; + procedure SetVALORIsNull(const aValue: Boolean); { Properties } property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; end; { TdarReferenciaDataTableRules } @@ -124,9 +85,12 @@ type { Property getters and setters } function GetVALORValue: String; virtual; procedure SetVALORValue(const aValue: String); virtual; + function GetVALORIsNull: Boolean; virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; { Properties } property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -136,65 +100,119 @@ type { IRemesasCliente } IRemesasCliente = interface(IDAStronglyTypedDataTable) - ['{3CB2DF7A-3B62-4B93-84B1-634DF3842413}'] + ['{2DFC502B-A484-4565-BFCB-F4A172BBF594}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); + function GetTIPOIsNull: Boolean; + procedure SetTIPOIsNull(const aValue: Boolean); function GetFECHA_REMESAValue: DateTime; procedure SetFECHA_REMESAValue(const aValue: DateTime); + function GetFECHA_REMESAIsNull: Boolean; + procedure SetFECHA_REMESAIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); function GetID_DATOS_BANCOValue: Integer; procedure SetID_DATOS_BANCOValue(const aValue: Integer); + function GetID_DATOS_BANCOIsNull: Boolean; + procedure SetID_DATOS_BANCOIsNull(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 GetIMPORTE_TOTALValue: Float; - procedure SetIMPORTE_TOTALValue(const aValue: Float); + 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); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); function GetENTIDADValue: String; procedure SetENTIDADValue(const aValue: String); + function GetENTIDADIsNull: Boolean; + procedure SetENTIDADIsNull(const aValue: Boolean); function GetSUCURSALValue: String; procedure SetSUCURSALValue(const aValue: String); + function GetSUCURSALIsNull: Boolean; + procedure SetSUCURSALIsNull(const aValue: Boolean); function GetDCValue: String; procedure SetDCValue(const aValue: String); + function GetDCIsNull: Boolean; + procedure SetDCIsNull(const aValue: Boolean); function GetCUENTAValue: String; procedure SetCUENTAValue(const aValue: String); + function GetCUENTAIsNull: Boolean; + procedure SetCUENTAIsNull(const aValue: Boolean); function GetSUFIJO_N19Value: String; procedure SetSUFIJO_N19Value(const aValue: String); + function GetSUFIJO_N19IsNull: Boolean; + procedure SetSUFIJO_N19IsNull(const aValue: Boolean); function GetSUFIJO_N58Value: String; procedure SetSUFIJO_N58Value(const aValue: String); + function GetSUFIJO_N58IsNull: Boolean; + procedure SetSUFIJO_N58IsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; + property FECHA_REMESAIsNull: Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; + property ID_DATOS_BANCOIsNull: Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull; 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 IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; + property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; + property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; end; { TRemesasClienteDataTableRules } @@ -204,191 +222,114 @@ type { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; + function GetTIPOIsNull: Boolean; virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; function GetFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; + function GetFECHA_REMESAIsNull: Boolean; virtual; + procedure SetFECHA_REMESAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetID_DATOS_BANCOValue: Integer; virtual; procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; + function GetID_DATOS_BANCOIsNull: Boolean; virtual; + procedure SetID_DATOS_BANCOIsNull(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 GetIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetENTIDADValue: String; virtual; - procedure SetENTIDADValue(const aValue: String); virtual; - function GetSUCURSALValue: String; virtual; - procedure SetSUCURSALValue(const aValue: String); virtual; - function GetDCValue: String; virtual; - procedure SetDCValue(const aValue: String); virtual; - function GetCUENTAValue: String; virtual; - procedure SetCUENTAValue(const aValue: String); virtual; - function GetSUFIJO_N19Value: String; virtual; - procedure SetSUFIJO_N19Value(const aValue: String); virtual; - function GetSUFIJO_N58Value: String; virtual; - procedure SetSUFIJO_N58Value(const aValue: String); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; - property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; - property DC: String read GetDCValue write SetDCValue; - property CUENTA: String read GetCUENTAValue write SetCUENTAValue; - property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IRemesasCliente_Refresh } - IRemesasCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{3F695DCE-EABB-439F-BC19-6FD396148EB6}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetID_EMPRESAValue: Integer; - procedure SetID_EMPRESAValue(const aValue: Integer); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetTIPOValue: String; - procedure SetTIPOValue(const aValue: String); - function GetFECHA_REMESAValue: DateTime; - procedure SetFECHA_REMESAValue(const aValue: DateTime); - function GetDESCRIPCIONValue: String; - procedure SetDESCRIPCIONValue(const aValue: String); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); - function GetID_DATOS_BANCOValue: Integer; - procedure SetID_DATOS_BANCOValue(const aValue: Integer); - function GetFECHA_ALTAValue: DateTime; - procedure SetFECHA_ALTAValue(const aValue: DateTime); - function GetFECHA_MODIFICACIONValue: DateTime; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetIMPORTE_TOTALValue: Float; - procedure SetIMPORTE_TOTALValue(const aValue: Float); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetENTIDADValue: String; - procedure SetENTIDADValue(const aValue: String); - function GetSUCURSALValue: String; - procedure SetSUCURSALValue(const aValue: String); - function GetDCValue: String; - procedure SetDCValue(const aValue: String); - function GetCUENTAValue: String; - procedure SetCUENTAValue(const aValue: String); - function GetSUFIJO_N19Value: String; - procedure SetSUFIJO_N19Value(const aValue: String); - function GetSUFIJO_N58Value: String; - procedure SetSUFIJO_N58Value(const aValue: String); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; - property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; - property DC: String read GetDCValue write SetDCValue; - property CUENTA: String read GetCUENTAValue write SetCUENTAValue; - property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - end; - - { TRemesasCliente_RefreshDataTableRules } - TRemesasCliente_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IRemesasCliente_Refresh) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetTIPOValue: String; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - function GetFECHA_REMESAValue: DateTime; virtual; - procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; - function GetDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; - function GetID_DATOS_BANCOValue: Integer; virtual; - procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetENTIDADValue: String; virtual; procedure SetENTIDADValue(const aValue: String); virtual; + function GetENTIDADIsNull: Boolean; virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; function GetSUCURSALValue: String; virtual; procedure SetSUCURSALValue(const aValue: String); virtual; + function GetSUCURSALIsNull: Boolean; virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; function GetDCValue: String; virtual; procedure SetDCValue(const aValue: String); virtual; + function GetDCIsNull: Boolean; virtual; + procedure SetDCIsNull(const aValue: Boolean); virtual; function GetCUENTAValue: String; virtual; procedure SetCUENTAValue(const aValue: String); virtual; + function GetCUENTAIsNull: Boolean; virtual; + procedure SetCUENTAIsNull(const aValue: Boolean); virtual; function GetSUFIJO_N19Value: String; virtual; procedure SetSUFIJO_N19Value(const aValue: String); virtual; + function GetSUFIJO_N19IsNull: Boolean; virtual; + procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual; function GetSUFIJO_N58Value: String; virtual; procedure SetSUFIJO_N58Value(const aValue: String); virtual; + function GetSUFIJO_N58IsNull: Boolean; virtual; + procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; + property FECHA_REMESAIsNull: Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; + property ID_DATOS_BANCOIsNull: Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull; 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 IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; + property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; + property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -398,7 +339,7 @@ type implementation -uses Variants; +uses Variants, uROBinaryHelpers; { TdarReferenciaDataTableRules } constructor TdarReferenciaDataTableRules.Create(aDataTable: TDADataTable); @@ -421,6 +362,17 @@ begin DataTable.Fields[idx_darReferenciaVALOR].AsString := aValue; end; +function TdarReferenciaDataTableRules.GetVALORIsNull: boolean; +begin + result := DataTable.Fields[idx_darReferenciaVALOR].IsNull; +end; + +procedure TdarReferenciaDataTableRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_darReferenciaVALOR].AsVariant := Null; +end; + { TRemesasClienteDataTableRules } constructor TRemesasClienteDataTableRules.Create(aDataTable: TDADataTable); @@ -443,6 +395,17 @@ begin DataTable.Fields[idx_RemesasClienteID].AsInteger := aValue; end; +function TRemesasClienteDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteID].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteID].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_RemesasClienteID_EMPRESA].AsInteger; @@ -453,6 +416,17 @@ begin DataTable.Fields[idx_RemesasClienteID_EMPRESA].AsInteger := aValue; end; +function TRemesasClienteDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteID_EMPRESA].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteID_EMPRESA].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString; @@ -463,6 +437,17 @@ begin DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteREFERENCIA].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteREFERENCIA].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_RemesasClienteTIPO].AsString; @@ -473,6 +458,17 @@ begin DataTable.Fields[idx_RemesasClienteTIPO].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetTIPOIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteTIPO].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteTIPO].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetFECHA_REMESAValue: DateTime; begin result := DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime; @@ -483,6 +479,17 @@ begin DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime := aValue; end; +function TRemesasClienteDataTableRules.GetFECHA_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteFECHA_REMESA].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetFECHA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_RemesasClienteDESCRIPCION].AsString; @@ -493,14 +500,15 @@ begin DataTable.Fields[idx_RemesasClienteDESCRIPCION].AsString := aValue; end; -function TRemesasClienteDataTableRules.GetUSUARIOValue: String; +function TRemesasClienteDataTableRules.GetDESCRIPCIONIsNull: boolean; begin - result := DataTable.Fields[idx_RemesasClienteUSUARIO].AsString; + result := DataTable.Fields[idx_RemesasClienteDESCRIPCION].IsNull; end; -procedure TRemesasClienteDataTableRules.SetUSUARIOValue(const aValue: String); +procedure TRemesasClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_RemesasClienteUSUARIO].AsString := aValue; + if aValue then + DataTable.Fields[idx_RemesasClienteDESCRIPCION].AsVariant := Null; end; function TRemesasClienteDataTableRules.GetID_DATOS_BANCOValue: Integer; @@ -513,6 +521,17 @@ begin DataTable.Fields[idx_RemesasClienteID_DATOS_BANCO].AsInteger := aValue; end; +function TRemesasClienteDataTableRules.GetID_DATOS_BANCOIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteID_DATOS_BANCO].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetID_DATOS_BANCOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteID_DATOS_BANCO].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_RemesasClienteFECHA_ALTA].AsDateTime; @@ -523,6 +542,17 @@ begin DataTable.Fields[idx_RemesasClienteFECHA_ALTA].AsDateTime := aValue; end; +function TRemesasClienteDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteFECHA_ALTA].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteFECHA_ALTA].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].AsDateTime; @@ -533,14 +563,36 @@ begin DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].AsDateTime := aValue; end; -function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Float; +function TRemesasClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin - result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat; + result := DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].IsNull; end; -procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); +procedure TRemesasClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat := aValue; + if aValue then + DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].AsVariant := Null; +end; + +function TRemesasClienteDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_RemesasClienteUSUARIO].AsString; +end; + +procedure TRemesasClienteDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_RemesasClienteUSUARIO].AsString := aValue; +end; + +function TRemesasClienteDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteUSUARIO].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteUSUARIO].AsVariant := Null; end; function TRemesasClienteDataTableRules.GetNOMBREValue: String; @@ -553,6 +605,17 @@ begin DataTable.Fields[idx_RemesasClienteNOMBRE].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteNOMBRE].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteNOMBRE].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetENTIDADValue: String; begin result := DataTable.Fields[idx_RemesasClienteENTIDAD].AsString; @@ -563,6 +626,17 @@ begin DataTable.Fields[idx_RemesasClienteENTIDAD].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetENTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteENTIDAD].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteENTIDAD].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetSUCURSALValue: String; begin result := DataTable.Fields[idx_RemesasClienteSUCURSAL].AsString; @@ -573,6 +647,17 @@ begin DataTable.Fields[idx_RemesasClienteSUCURSAL].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetSUCURSALIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteSUCURSAL].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteSUCURSAL].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetDCValue: String; begin result := DataTable.Fields[idx_RemesasClienteDC].AsString; @@ -583,6 +668,17 @@ begin DataTable.Fields[idx_RemesasClienteDC].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetDCIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteDC].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteDC].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetCUENTAValue: String; begin result := DataTable.Fields[idx_RemesasClienteCUENTA].AsString; @@ -593,6 +689,17 @@ begin DataTable.Fields[idx_RemesasClienteCUENTA].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetCUENTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteCUENTA].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteCUENTA].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetSUFIJO_N19Value: String; begin result := DataTable.Fields[idx_RemesasClienteSUFIJO_N19].AsString; @@ -603,6 +710,17 @@ begin DataTable.Fields[idx_RemesasClienteSUFIJO_N19].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetSUFIJO_N19IsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasClienteSUFIJO_N19].IsNull; +end; + +procedure TRemesasClienteDataTableRules.SetSUFIJO_N19IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasClienteSUFIJO_N19].AsVariant := Null; +end; + function TRemesasClienteDataTableRules.GetSUFIJO_N58Value: String; begin result := DataTable.Fields[idx_RemesasClienteSUFIJO_N58].AsString; @@ -613,202 +731,41 @@ begin DataTable.Fields[idx_RemesasClienteSUFIJO_N58].AsString := aValue; end; - -{ TRemesasCliente_RefreshDataTableRules } -constructor TRemesasCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable); +function TRemesasClienteDataTableRules.GetSUFIJO_N58IsNull: boolean; begin - inherited; + result := DataTable.Fields[idx_RemesasClienteSUFIJO_N58].IsNull; end; -destructor TRemesasCliente_RefreshDataTableRules.Destroy; +procedure TRemesasClienteDataTableRules.SetSUFIJO_N58IsNull(const aValue: Boolean); begin - inherited; + if aValue then + DataTable.Fields[idx_RemesasClienteSUFIJO_N58].AsVariant := Null; end; -function TRemesasCliente_RefreshDataTableRules.GetIDValue: Integer; +function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Currency; begin - result := DataTable.Fields[idx_RemesasCliente_RefreshID].AsInteger; + result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency; end; -procedure TRemesasCliente_RefreshDataTableRules.SetIDValue(const aValue: Integer); +procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin - DataTable.Fields[idx_RemesasCliente_RefreshID].AsInteger := aValue; + DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency := aValue; end; -function TRemesasCliente_RefreshDataTableRules.GetID_EMPRESAValue: Integer; +function TRemesasClienteDataTableRules.GetIMPORTE_TOTALIsNull: boolean; begin - result := DataTable.Fields[idx_RemesasCliente_RefreshID_EMPRESA].AsInteger; + result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].IsNull; end; -procedure TRemesasCliente_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_RemesasCliente_RefreshID_EMPRESA].AsInteger := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetTIPOValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshTIPO].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetTIPOValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshTIPO].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetDESCRIPCIONValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshDESCRIPCION].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshDESCRIPCION].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetUSUARIOValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshUSUARIO].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetUSUARIOValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshUSUARIO].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetID_DATOS_BANCOValue: Integer; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshID_DATOS_BANCO].AsInteger; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetID_DATOS_BANCOValue(const aValue: Integer); -begin - DataTable.Fields[idx_RemesasCliente_RefreshID_DATOS_BANCO].AsInteger := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_ALTA].AsDateTime; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RemesasCliente_RefreshFECHA_ALTA].AsDateTime := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_MODIFICACION].AsDateTime; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RemesasCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); -begin - DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshNOMBRE].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshNOMBRE].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetENTIDADValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshENTIDAD].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetENTIDADValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshENTIDAD].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetSUCURSALValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshSUCURSAL].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetSUCURSALValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshSUCURSAL].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetDCValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshDC].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetDCValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshDC].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetCUENTAValue: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshCUENTA].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetCUENTAValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshCUENTA].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetSUFIJO_N19Value: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshSUFIJO_N19].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetSUFIJO_N19Value(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshSUFIJO_N19].AsString := aValue; -end; - -function TRemesasCliente_RefreshDataTableRules.GetSUFIJO_N58Value: String; -begin - result := DataTable.Fields[idx_RemesasCliente_RefreshSUFIJO_N58].AsString; -end; - -procedure TRemesasCliente_RefreshDataTableRules.SetSUFIJO_N58Value(const aValue: String); -begin - DataTable.Fields[idx_RemesasCliente_RefreshSUFIJO_N58].AsString := aValue; + if aValue then + DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsVariant := Null; end; initialization RegisterDataTableRules(RID_darReferencia, TdarReferenciaDataTableRules); RegisterDataTableRules(RID_RemesasCliente, TRemesasClienteDataTableRules); - RegisterDataTableRules(RID_RemesasCliente_Refresh, TRemesasCliente_RefreshDataTableRules); end. diff --git a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas index 2075fd11..e2782673 100644 --- a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas +++ b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas @@ -3,20 +3,19 @@ unit schRemesasClienteServer_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schRemesasClienteClient_Intf; + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schRemesasClienteClient_Intf; 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 = '{6BDDB07D-2116-434F-9B1C-3438BC15858E}'; - RID_RemesasClienteDelta = '{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}'; - RID_RemesasCliente_RefreshDelta = '{0EB05604-7651-4CAE-8D91-0032CBD944CB}'; + RID_darReferenciaDelta = '{93BE415A-B388-496F-B435-1AA6D4F3535C}'; + RID_RemesasClienteDelta = '{090FFD4E-3541-40D8-9577-9A6BBB35ECEB}'; type { IdarReferenciaDelta } IdarReferenciaDelta = interface(IdarReferencia) - ['{6BDDB07D-2116-434F-9B1C-3438BC15858E}'] + ['{93BE415A-B388-496F-B435-1AA6D4F3535C}'] { Property getters and setters } function GetOldVALORValue : String; @@ -30,12 +29,17 @@ type protected { Property getters and setters } function GetVALORValue: String; virtual; + function GetVALORIsNull: Boolean; virtual; function GetOldVALORValue: String; virtual; + function GetOldVALORIsNull: Boolean; virtual; procedure SetVALORValue(const aValue: String); virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; { Properties } property VALOR : String read GetVALORValue write SetVALORValue; + property VALORIsNull : Boolean read GetVALORIsNull write SetVALORIsNull; property OldVALOR : String read GetOldVALORValue; + property OldVALORIsNull : Boolean read GetOldVALORIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -45,7 +49,7 @@ type { IRemesasClienteDelta } IRemesasClienteDelta = interface(IRemesasCliente) - ['{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}'] + ['{090FFD4E-3541-40D8-9577-9A6BBB35ECEB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -53,11 +57,10 @@ type function GetOldTIPOValue : String; function GetOldFECHA_REMESAValue : DateTime; function GetOldDESCRIPCIONValue : String; - function GetOldUSUARIOValue : String; function GetOldID_DATOS_BANCOValue : Integer; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldIMPORTE_TOTALValue : Float; + function GetOldUSUARIOValue : String; function GetOldNOMBREValue : String; function GetOldENTIDADValue : String; function GetOldSUCURSALValue : String; @@ -65,6 +68,7 @@ type function GetOldCUENTAValue : String; function GetOldSUFIJO_N19Value : String; function GetOldSUFIJO_N58Value : String; + function GetOldIMPORTE_TOTALValue : Currency; { Properties } property OldID : Integer read GetOldIDValue; @@ -73,11 +77,10 @@ type property OldTIPO : String read GetOldTIPOValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; + property OldUSUARIO : String read GetOldUSUARIOValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldENTIDAD : String read GetOldENTIDADValue; property OldSUCURSAL : String read GetOldSUCURSALValue; @@ -85,6 +88,7 @@ type property OldCUENTA : String read GetOldCUENTAValue; property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; end; { TRemesasClienteBusinessProcessorRules } @@ -93,245 +97,187 @@ type protected { Property getters and setters } function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; + function GetTIPOIsNull: Boolean; virtual; function GetOldTIPOValue: String; virtual; + function GetOldTIPOIsNull: Boolean; virtual; procedure SetTIPOValue(const aValue: String); virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; function GetFECHA_REMESAValue: DateTime; virtual; + function GetFECHA_REMESAIsNull: Boolean; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual; + function GetOldFECHA_REMESAIsNull: Boolean; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; + procedure SetFECHA_REMESAIsNull(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; - function GetUSUARIOValue: String; virtual; - function GetOldUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetID_DATOS_BANCOValue: Integer; virtual; + function GetID_DATOS_BANCOIsNull: Boolean; virtual; function GetOldID_DATOS_BANCOValue: Integer; virtual; + function GetOldID_DATOS_BANCOIsNull: Boolean; virtual; procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; + procedure SetID_DATOS_BANCOIsNull(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; - function GetIMPORTE_TOTALValue: Float; virtual; - function GetOldIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); 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; function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetENTIDADValue: String; virtual; + function GetENTIDADIsNull: Boolean; virtual; function GetOldENTIDADValue: String; virtual; + function GetOldENTIDADIsNull: Boolean; virtual; procedure SetENTIDADValue(const aValue: String); virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; function GetSUCURSALValue: String; virtual; + function GetSUCURSALIsNull: Boolean; virtual; function GetOldSUCURSALValue: String; virtual; + function GetOldSUCURSALIsNull: Boolean; virtual; procedure SetSUCURSALValue(const aValue: String); virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; function GetDCValue: String; virtual; + function GetDCIsNull: Boolean; virtual; function GetOldDCValue: String; virtual; + function GetOldDCIsNull: Boolean; virtual; procedure SetDCValue(const aValue: String); virtual; + procedure SetDCIsNull(const aValue: Boolean); virtual; function GetCUENTAValue: String; virtual; + function GetCUENTAIsNull: Boolean; virtual; function GetOldCUENTAValue: String; virtual; + function GetOldCUENTAIsNull: Boolean; virtual; procedure SetCUENTAValue(const aValue: String); virtual; + procedure SetCUENTAIsNull(const aValue: Boolean); virtual; function GetSUFIJO_N19Value: String; virtual; + function GetSUFIJO_N19IsNull: Boolean; virtual; function GetOldSUFIJO_N19Value: String; virtual; + function GetOldSUFIJO_N19IsNull: Boolean; virtual; procedure SetSUFIJO_N19Value(const aValue: String); virtual; + procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual; function GetSUFIJO_N58Value: String; virtual; + function GetSUFIJO_N58IsNull: Boolean; virtual; function GetOldSUFIJO_N58Value: String; virtual; + function GetOldSUFIJO_N58IsNull: Boolean; virtual; procedure SetSUFIJO_N58Value(const aValue: String); virtual; + procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property TIPO : String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; property OldTIPO : String read GetOldTIPOValue; + property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; + property FECHA_REMESAIsNull : Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; + property OldFECHA_REMESAIsNull : Boolean read GetOldFECHA_REMESAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; - property OldUSUARIO : String read GetOldUSUARIOValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; + property ID_DATOS_BANCOIsNull : Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; + property OldID_DATOS_BANCOIsNull : Boolean read GetOldID_DATOS_BANCOIsNull; 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 IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; - property OldENTIDAD : String read GetOldENTIDADValue; - property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; - property OldSUCURSAL : String read GetOldSUCURSALValue; - property DC : String read GetDCValue write SetDCValue; - property OldDC : String read GetOldDCValue; - property CUENTA : String read GetCUENTAValue write SetCUENTAValue; - property OldCUENTA : String read GetOldCUENTAValue; - property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; - property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IRemesasCliente_RefreshDelta } - IRemesasCliente_RefreshDelta = interface(IRemesasCliente_Refresh) - ['{0EB05604-7651-4CAE-8D91-0032CBD944CB}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_EMPRESAValue : Integer; - function GetOldREFERENCIAValue : String; - function GetOldTIPOValue : String; - function GetOldFECHA_REMESAValue : DateTime; - function GetOldDESCRIPCIONValue : String; - function GetOldUSUARIOValue : String; - function GetOldID_DATOS_BANCOValue : Integer; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldIMPORTE_TOTALValue : Float; - function GetOldNOMBREValue : String; - function GetOldENTIDADValue : String; - function GetOldSUCURSALValue : String; - function GetOldDCValue : String; - function GetOldCUENTAValue : String; - function GetOldSUFIJO_N19Value : String; - function GetOldSUFIJO_N58Value : 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 OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldENTIDAD : String read GetOldENTIDADValue; - property OldSUCURSAL : String read GetOldSUCURSALValue; - property OldDC : String read GetOldDCValue; - property OldCUENTA : String read GetOldCUENTAValue; - property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; - property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; - end; - - { TRemesasCliente_RefreshBusinessProcessorRules } - TRemesasCliente_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRemesasCliente_Refresh, IRemesasCliente_RefreshDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetOldIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetID_EMPRESAValue: Integer; virtual; - function GetOldID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetREFERENCIAValue: String; virtual; - function GetOldREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetTIPOValue: String; virtual; - function GetOldTIPOValue: String; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - function GetFECHA_REMESAValue: DateTime; virtual; - function GetOldFECHA_REMESAValue: DateTime; virtual; - procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; - function GetDESCRIPCIONValue: String; virtual; - function GetOldDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetUSUARIOValue: String; virtual; - function GetOldUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - function GetID_DATOS_BANCOValue: Integer; virtual; - function GetOldID_DATOS_BANCOValue: Integer; virtual; - procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Float; virtual; - function GetOldIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; - function GetNOMBREValue: String; virtual; - function GetOldNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetENTIDADValue: String; virtual; - function GetOldENTIDADValue: String; virtual; - procedure SetENTIDADValue(const aValue: String); virtual; - function GetSUCURSALValue: String; virtual; - function GetOldSUCURSALValue: String; virtual; - procedure SetSUCURSALValue(const aValue: String); virtual; - function GetDCValue: String; virtual; - function GetOldDCValue: String; virtual; - procedure SetDCValue(const aValue: String); virtual; - function GetCUENTAValue: String; virtual; - function GetOldCUENTAValue: String; virtual; - procedure SetCUENTAValue(const aValue: String); virtual; - function GetSUFIJO_N19Value: String; virtual; - function GetOldSUFIJO_N19Value: String; virtual; - procedure SetSUFIJO_N19Value(const aValue: String); virtual; - function GetSUFIJO_N58Value: String; virtual; - function GetOldSUFIJO_N58Value: String; virtual; - procedure SetSUFIJO_N58Value(const aValue: String); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property OldID : Integer read GetOldIDValue; - property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property TIPO : String read GetTIPOValue write SetTIPOValue; - property OldTIPO : String read GetOldTIPOValue; - property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; - property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; - property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + 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 ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; - property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property OldENTIDAD : String read GetOldENTIDADValue; + property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull; property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property OldSUCURSAL : String read GetOldSUCURSALValue; + property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull; property DC : String read GetDCValue write SetDCValue; + property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull; property OldDC : String read GetOldDCValue; + property OldDCIsNull : Boolean read GetOldDCIsNull; property CUENTA : String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property OldCUENTA : String read GetOldCUENTAValue; + property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; + property SUFIJO_N19IsNull : Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; + property OldSUFIJO_N19IsNull : Boolean read GetOldSUFIJO_N19IsNull; property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; + property SUFIJO_N58IsNull : Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; + property OldSUFIJO_N58IsNull : Boolean read GetOldSUFIJO_N58IsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -342,7 +288,7 @@ type implementation uses - Variants, uROBinaryHelpers; + Variants, uROBinaryHelpers, uDAInterfaces; { TdarReferenciaBusinessProcessorRules } constructor TdarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -360,16 +306,32 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR]; end; +function TdarReferenciaBusinessProcessorRules.GetVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR]); +end; + function TdarReferenciaBusinessProcessorRules.GetOldVALORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_darReferenciaVALOR]; end; +function TdarReferenciaBusinessProcessorRules.GetOldVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_darReferenciaVALOR]); +end; + procedure TdarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR] := aValue; end; +procedure TdarReferenciaBusinessProcessorRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR] := Null; +end; + { TRemesasClienteBusinessProcessorRules } constructor TRemesasClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -387,104 +349,185 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID]; end; +function TRemesasClienteBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteID]; end; +function TRemesasClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteID]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_EMPRESA]; end; +function TRemesasClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_EMPRESA]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteID_EMPRESA]; end; +function TRemesasClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteID_EMPRESA]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_EMPRESA] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_EMPRESA] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA]; end; +function TRemesasClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteREFERENCIA]; end; +function TRemesasClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteREFERENCIA]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO]; end; +function TRemesasClienteBusinessProcessorRules.GetTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteTIPO]; end; +function TRemesasClienteBusinessProcessorRules.GetOldTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteTIPO]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA]; end; +function TRemesasClienteBusinessProcessorRules.GetFECHA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteFECHA_REMESA]; end; +function TRemesasClienteBusinessProcessorRules.GetOldFECHA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteFECHA_REMESA]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetFECHA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDESCRIPCION]; end; +function TRemesasClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDESCRIPCION]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteDESCRIPCION]; end; +function TRemesasClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteDESCRIPCION]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDESCRIPCION] := aValue; end; -function TRemesasClienteBusinessProcessorRules.GetUSUARIOValue: String; +procedure TRemesasClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteUSUARIO]; -end; - -function TRemesasClienteBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteUSUARIO]; -end; - -procedure TRemesasClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteUSUARIO] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDESCRIPCION] := Null; end; function TRemesasClienteBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer; @@ -492,59 +535,123 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_DATOS_BANCO]; end; +function TRemesasClienteBusinessProcessorRules.GetID_DATOS_BANCOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_DATOS_BANCO]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteID_DATOS_BANCO]; end; +function TRemesasClienteBusinessProcessorRules.GetOldID_DATOS_BANCOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteID_DATOS_BANCO]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_DATOS_BANCO] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetID_DATOS_BANCOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteID_DATOS_BANCO] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_ALTA]; end; +function TRemesasClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_ALTA]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteFECHA_ALTA]; end; +function TRemesasClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteFECHA_ALTA]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_ALTA] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_ALTA] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION]; end; +function TRemesasClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteFECHA_MODIFICACION]; end; +function TRemesasClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteFECHA_MODIFICACION]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION] := aValue; end; -function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; +procedure TRemesasClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL]; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION] := Null; end; -function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; +function TRemesasClienteBusinessProcessorRules.GetUSUARIOValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteIMPORTE_TOTAL]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteUSUARIO]; end; -procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); +function TRemesasClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL] := aValue; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteUSUARIO]); +end; + +function TRemesasClienteBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteUSUARIO]; +end; + +function TRemesasClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteUSUARIO]); +end; + +procedure TRemesasClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteUSUARIO] := aValue; +end; + +procedure TRemesasClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteUSUARIO] := Null; end; function TRemesasClienteBusinessProcessorRules.GetNOMBREValue: String; @@ -552,392 +659,252 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteNOMBRE]; end; +function TRemesasClienteBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteNOMBRE]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteNOMBRE]; end; +function TRemesasClienteBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteNOMBRE]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteNOMBRE] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteNOMBRE] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteENTIDAD]; end; +function TRemesasClienteBusinessProcessorRules.GetENTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteENTIDAD]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteENTIDAD]; end; +function TRemesasClienteBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteENTIDAD]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetENTIDADValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteENTIDAD] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteENTIDAD] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUCURSAL]; end; +function TRemesasClienteBusinessProcessorRules.GetSUCURSALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUCURSAL]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteSUCURSAL]; end; +function TRemesasClienteBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteSUCURSAL]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetSUCURSALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUCURSAL] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUCURSAL] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetDCValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDC]; end; +function TRemesasClienteBusinessProcessorRules.GetDCIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDC]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldDCValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteDC]; end; +function TRemesasClienteBusinessProcessorRules.GetOldDCIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteDC]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetDCValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDC] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteDC] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteCUENTA]; end; +function TRemesasClienteBusinessProcessorRules.GetCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteCUENTA]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteCUENTA]; end; +function TRemesasClienteBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteCUENTA]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteCUENTA] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteCUENTA] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetSUFIJO_N19Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N19]; end; +function TRemesasClienteBusinessProcessorRules.GetSUFIJO_N19IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N19]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldSUFIJO_N19Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteSUFIJO_N19]; end; +function TRemesasClienteBusinessProcessorRules.GetOldSUFIJO_N19IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteSUFIJO_N19]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N19] := aValue; end; +procedure TRemesasClienteBusinessProcessorRules.SetSUFIJO_N19IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N19] := Null; +end; + function TRemesasClienteBusinessProcessorRules.GetSUFIJO_N58Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N58]; end; +function TRemesasClienteBusinessProcessorRules.GetSUFIJO_N58IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N58]); +end; + function TRemesasClienteBusinessProcessorRules.GetOldSUFIJO_N58Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteSUFIJO_N58]; end; +function TRemesasClienteBusinessProcessorRules.GetOldSUFIJO_N58IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteSUFIJO_N58]); +end; + procedure TRemesasClienteBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N58] := aValue; end; - -{ TRemesasCliente_RefreshBusinessProcessorRules } -constructor TRemesasCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +procedure TRemesasClienteBusinessProcessorRules.SetSUFIJO_N58IsNull(const aValue: Boolean); begin - inherited; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteSUFIJO_N58] := Null; end; -destructor TRemesasCliente_RefreshBusinessProcessorRules.Destroy; +function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin - inherited; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL]; end; -function TRemesasCliente_RefreshBusinessProcessorRules.GetIDValue: Integer; +function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshID]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL]); end; -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIDValue: Integer; +function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshID]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteIMPORTE_TOTAL]; end; -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); +function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshID] := aValue; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteIMPORTE_TOTAL]); end; -function TRemesasCliente_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer; +procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshID_EMPRESA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL] := aValue; end; -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshID_EMPRESA]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshID_EMPRESA] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshREFERENCIA]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshREFERENCIA]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshREFERENCIA] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshTIPO]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshTIPO]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshTIPO] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_REMESA]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshFECHA_REMESA]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_REMESA] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshDESCRIPCION]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshDESCRIPCION]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshDESCRIPCION] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshUSUARIO]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshUSUARIO]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshUSUARIO] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshID_DATOS_BANCO]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshID_DATOS_BANCO]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshID_DATOS_BANCO] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_ALTA]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshFECHA_ALTA]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_ALTA] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_MODIFICACION]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshFECHA_MODIFICACION]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_MODIFICACION] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshNOMBRE]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshNOMBRE]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshNOMBRE] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetENTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshENTIDAD]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldENTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshENTIDAD]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetENTIDADValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshENTIDAD] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetSUCURSALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUCURSAL]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldSUCURSALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshSUCURSAL]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetSUCURSALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUCURSAL] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetDCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshDC]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldDCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshDC]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetDCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshDC] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetCUENTAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshCUENTA]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldCUENTAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshCUENTA]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetCUENTAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshCUENTA] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetSUFIJO_N19Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUFIJO_N19]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldSUFIJO_N19Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshSUFIJO_N19]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUFIJO_N19] := aValue; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetSUFIJO_N58Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUFIJO_N58]; -end; - -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldSUFIJO_N58Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshSUFIJO_N58]; -end; - -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshSUFIJO_N58] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL] := Null; end; initialization RegisterBusinessProcessorRules(RID_darReferenciaDelta, TdarReferenciaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RemesasClienteDelta, TRemesasClienteBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RemesasCliente_RefreshDelta, TRemesasCliente_RefreshBusinessProcessorRules); end. diff --git a/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas index 42806ed1..d9ac2eab 100644 --- a/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas @@ -44,7 +44,8 @@ type implementation uses - uDataTableUtils, uDataModuleUsuarios, SysUtils, uROClasses, Classes; + uDataTableUtils, uDataModuleUsuarios, SysUtils, uROClasses, Classes, + uFactuGES_App; { TBizRemesaCliente } @@ -74,16 +75,15 @@ end; procedure TBizRemesaCliente.IniciarValoresRemesaClienteNuevo; begin - ID_EMPRESA := dmUsuarios.IDEmpresaActual; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; FECHA_REMESA := Date; - USUARIO := dmUsuarios.LoginInfo.Usuario; + USUARIO := AppFactuGES.UsuarioActivo.UserName; TIPO := CTE_TIPO_REMESA; end; procedure TBizRemesaCliente.OnNewRecord(Sender: TDADataTable); begin inherited; - ID := GetRecNo; // -1, -2, -3... IniciarValoresRemesaClienteNuevo; end; diff --git a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dpk b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dpk index 1b2719df..863ff4ac 100644 --- a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dpk +++ b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dpk @@ -22,19 +22,12 @@ package RemesasCliente_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - RemesasCliente_view, + RemesasCliente_model, RemesasCliente_controller, - RemesasCliente_model; + RemesasCliente_view; contains uPluginRemesasCliente in 'uPluginRemesasCliente.pas' {PluginRemesasCliente}; diff --git a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dproj b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dproj new file mode 100644 index 00000000..d4b0b32d --- /dev/null +++ b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dproj @@ -0,0 +1,580 @@ + + + {e4a70e78-dcab-415c-9e35-1956bd41ae1a} + RemesasCliente_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_plugin.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasCliente_plugin.dpk + + + + + + + MainSource + + + + + +
PluginRemesasCliente
+ + + + + diff --git a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res and b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res differ diff --git a/Source/Modulos/Remesas de cliente/Plugin/uPluginRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Plugin/uPluginRemesasCliente.dfm index 265fec31..4a12b4e9 100644 --- a/Source/Modulos/Remesas de cliente/Plugin/uPluginRemesasCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Plugin/uPluginRemesasCliente.dfm @@ -64,7 +64,7 @@ object PluginRemesasCliente: TPluginRemesasCliente object N1: TMenuItem Caption = 'Ventas' object RemesasCliente1: TMenuItem - Tag = 106 + Tag = 107 Action = actRemesasCliente end end diff --git a/Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj b/Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj new file mode 100644 index 00000000..ef6ffa9b --- /dev/null +++ b/Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj @@ -0,0 +1,124 @@ + + + {9e374daa-b130-47db-a2de-c184f072bea0} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm index 022f9018..5e3e1323 100644 --- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm +++ b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm @@ -3,16 +3,11 @@ object srvRemesasCliente: TsrvRemesasCliente OnCreate = DARemoteServiceCreate RequiresSession = True SessionManager = dmServer.SessionManager - AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schRemesasCliente - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection - OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 249 Width = 343 object Diagrams: TDADiagrams @@ -25,7 +20,10 @@ object srvRemesasCliente: TsrvRemesasCliente item Name = 'RemesasCliente_ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_CLIENTE_ID' + Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'RemesasCliente_FECHA_REMESA' @@ -125,7 +123,7 @@ object srvRemesasCliente: TsrvRemesasCliente end item Name = 'RemesasCliente_IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify ServerAutoRefresh = True @@ -180,13 +178,7 @@ object srvRemesasCliente: TsrvRemesasCliente item Connection = 'IBX' TargetTable = 'V_REMESAS_CLIENTE' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' + - 'LIENTE' - StatementType = stSQL + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' @@ -200,6 +192,10 @@ object srvRemesasCliente: TsrvRemesasCliente DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end item DatasetField = 'FECHA_REMESA' TableField = 'FECHA_REMESA' @@ -208,10 +204,6 @@ object srvRemesasCliente: TsrvRemesasCliente DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end item DatasetField = 'ID_DATOS_BANCO' TableField = 'ID_DATOS_BANCO' @@ -225,8 +217,8 @@ object srvRemesasCliente: TsrvRemesasCliente TableField = 'FECHA_MODIFICACION' end item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' + DatasetField = 'USUARIO' + TableField = 'USUARIO' end item DatasetField = 'NOMBRE' @@ -257,8 +249,8 @@ object srvRemesasCliente: TsrvRemesasCliente TableField = 'SUFIJO_N58' end item - DatasetField = 'TIPO' - TableField = 'TIPO' + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' end> end> Name = 'RemesasCliente' @@ -266,6 +258,8 @@ object srvRemesasCliente: TsrvRemesasCliente item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_CLIENTE_ID' + ServerAutoRefresh = True DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True end @@ -297,12 +291,6 @@ object srvRemesasCliente: TsrvRemesasCliente Size = 255 DictionaryEntry = 'RemesasCliente_DESCRIPCION' end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end item Name = 'ID_DATOS_BANCO' DataType = datInteger @@ -318,253 +306,58 @@ object srvRemesasCliente: TsrvRemesasCliente DataType = datDateTime DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'RemesasCliente_USUARIO' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'RemesasCliente_NOMBRE' + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_ENTIDAD' + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_SUCURSAL' + end + item + Name = 'DC' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_DC' + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_CUENTA' + end + item + Name = 'SUFIJO_N19' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N19' + end + item + Name = 'SUFIJO_N58' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N58' + end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' - end> - end - item - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '22' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'V_REMESAS_CLIENTE' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' + - 'LIENTE'#10'WHERE ID = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'FECHA_REMESA' - TableField = 'FECHA_REMESA' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - SQLOrigin = 'REMESAS_CLIENTE.ID_EMPRESA' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'ID_DATOS_BANCO' - TableField = 'ID_DATOS_BANCO' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'ENTIDAD' - TableField = 'ENTIDAD' - end - item - DatasetField = 'SUCURSAL' - TableField = 'SUCURSAL' - end - item - DatasetField = 'DC' - TableField = 'DC' - end - item - DatasetField = 'CUENTA' - TableField = 'CUENTA' - end - item - DatasetField = 'SUFIJO_N19' - TableField = 'SUFIJO_N19' - end - item - DatasetField = 'SUFIJO_N58' - TableField = 'SUFIJO_N58' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end> - end> - Name = 'RemesasCliente_Refresh' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - DictionaryEntry = 'RemesasCliente_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_EMPRESA' - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - ServerAutoRefresh = True - end - item - Name = 'TIPO' - DataType = datString - Size = 40 - DictionaryEntry = 'RemesasCliente_TIPO' - end - item - Name = 'FECHA_REMESA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_REMESA' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_DESCRIPCION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end - item - Name = 'ID_DATOS_BANCO' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - DisplayLabel = 'Importe total' - Alignment = taRightJustify - ServerAutoRefresh = True - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' end> end> JoinDataTables = <> @@ -574,23 +367,15 @@ object srvRemesasCliente: TsrvRemesasCliente Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO' - DataType = datString - Size = 50 Value = '' - ParamType = daptInput end item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'EMPRESA' Value = '' - ParamType = daptInput end> Statements = < item @@ -598,7 +383,7 @@ object srvRemesasCliente: TsrvRemesasCliente TargetTable = 'REFERENCIAS' SQL = 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + - 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' + 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = <> end> @@ -608,67 +393,45 @@ object srvRemesasCliente: TsrvRemesasCliente Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_CLIENTE_ID' Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - 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> Statements = < item @@ -689,9 +452,7 @@ object srvRemesasCliente: TsrvRemesasCliente Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -706,80 +467,60 @@ object srvRemesasCliente: TsrvRemesasCliente item Params = < item - Name = 'REFERENCIA' - DataType = datString - Size = 255 + Name = 'ID' + Value = '' + end + item + Name = 'REFERENCIA' Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - 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 = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_CLIENTE' SQL = - 'UPDATE REMESAS_CLIENTE'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + - ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCIO' + - 'N = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID' + - '_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA ' + - '= :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' W' + - 'HERE'#10' (ID = :OLD_ID)' + 'UPDATE REMESAS_CLIENTE'#10' SET '#10' ID = :ID,'#10' REFERENCIA = :RE' + + 'FERENCIA, '#10' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10 + + ' DESCRIPCION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID' + + '_EMPRESA = :ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' ' + + ' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MO' + + 'DIFICACION'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -791,20 +532,19 @@ object srvRemesasCliente: TsrvRemesasCliente Left = 48 Top = 24 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 72 - end object bpRemesasCliente: TDABusinessProcessor Schema = schRemesasCliente InsertCommandName = 'Insert_RemesasCliente' DeleteCommandName = 'Delete_RemesasCliente' UpdateCommandName = 'Update_RemesasCliente' - RefreshDatasetName = 'RemesasCliente_Refresh' ReferencedDataset = 'RemesasCliente' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 24 end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 88 + end end diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas index dc5726d2..e7e7f001 100644 --- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas +++ b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas @@ -12,28 +12,27 @@ interface uses {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, - {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, uDADataStreamer; + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces, uDABinAdapter; type { TsrvRemesasCliente } - TsrvRemesasCliente = class(TDARemoteService, IsrvRemesasCliente) + TsrvRemesasCliente = class(TDataAbstractService, IsrvRemesasCliente) Diagrams: TDADiagrams; - DABINAdapter: TDABINAdapter; bpRemesasCliente: TDABusinessProcessor; schRemesasCliente: TDASchema; DataDictionary: TDADataDictionary; - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); + Bin2DataStreamer: TDABin2DataStreamer; procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); - private + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); protected { IsrvRemesasCliente methods } - function GetNextAutoInc(const GeneratorName: String): Integer; function GenerateReport(const ID: String): Binary; end; @@ -43,7 +42,9 @@ implementation uses {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, schRemesasClienteClient_Intf, uRestriccionesUsuarioUtils, - uBizRemesasClienteServer, uRptRemesasCliente_Server, Dialogs; +// uBizRemesasClienteServer, +// uRptRemesasCliente_Server, + Dialogs; procedure Create_srvRemesasCliente(out anInstance : IUnknown); begin @@ -51,46 +52,45 @@ begin end; { srvRemesasCliente } -procedure TsrvRemesasCliente.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; procedure TsrvRemesasCliente.DARemoteServiceBeforeGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin +{ if DataSet.Name = nme_RemesasCliente then begin { Aquí se asegura que el usuario sólo accede a los RemesasCliente de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, schRemesasCliente, DataSet, fld_RemesasClienteID_EMPRESA); +{ FiltrarAccesoUsuario(Session, Connection, schRemesasCliente, DataSet, fld_RemesasClienteID_EMPRESA); end; +} end; procedure TsrvRemesasCliente.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; - bpRemesasCliente.BusinessRulesID := BIZ_SERVER_REMESAS_CLIENTE; +// bpRemesasCliente.BusinessRulesID := BIZ_SERVER_REMESAS_CLIENTE; +end; + +procedure TsrvRemesasCliente.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; end; function TsrvRemesasCliente.GenerateReport(const ID: String): Binary; -var - AReportGenerator : TRptRemesasCliente; +//var +// AReportGenerator : TRptRemesasCliente; begin - AReportGenerator := TRptRemesasCliente.Create(nil); +{ AReportGenerator := TRptRemesasCliente.Create(nil); try Result := AReportGenerator.GenerarRemesa(ID); finally FreeAndNIL(AReportGenerator); end; -end; - -function TsrvRemesasCliente.GetNextAutoInc(const GeneratorName: String): Integer; -begin - Result := uDatabaseUtils.GetNextAutoInc(GeneratorName) +} end; initialization diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk index 9c561c66..ed986e5a 100644 --- a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk +++ b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk @@ -22,69 +22,19 @@ package RemesasCliente_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - vcldb, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - vclx, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - JvCoreD10R, - Jcl, - JclVcl, - JvAppFrmD10R, - JvSystemD10R, - PngComponentsD10, - PNG_D10, - dsnap, - adortl, + RemesasCliente_model, + RemesasCliente_controller, + GUIBase, Familias_model, Familias_controller, - tbx_d10, - tb2k_d10, - JvPageCompsD10R, - JvStdCtrlsD10R, - dxLayoutControlD10, - GUISDK_D10, - ccpack10, - cfpack_d10, - JvGlobusD10R, - VclSmp, - bdertl, - vclie, - frx10, - fs10, - fqb100, - frxe10, - frxTee10, - fsTee10, + ApplicationBase, + teeUI, tee, - teeui, - teedb, - RemesasCliente_controller, - RemesasCliente_data, - RemesasCliente_model, - BancaElectronica_controller; + fsTee11, + frxTee11; contains uViewRemesasCliente in 'uViewRemesasCliente.pas' {frViewRemesasCliente: TFrame}, diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj new file mode 100644 index 00000000..13e45895 --- /dev/null +++ b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj @@ -0,0 +1,617 @@ + + + {5e4bdd4d-597f-407c-8b0c-32e37fbd6267} + RemesasCliente_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_view.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasCliente_view.dpk + + + + + + + MainSource + + + + + + + + + + + + +
fEditorRemesaCliente
+ TfEditorRemesaCliente + + +
fEditorRemesaClienteReport
+ TfEditorRemesaClienteReport + + +
fEditorRemesasCliente
+ TfEditorArticulos + + + +
frViewRecibosRemesaCliente
+ TFrame + + +
frViewRemesaCliente
+ TFrame + + +
frViewRemesasCliente
+ TFrame + + + + + diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res and b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res differ diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm index 4bca4d60..9fd13195 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm @@ -111,12 +111,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente Height = 442 MultiLine = True ExplicitWidth = 676 - ExplicitHeight = 397 + ExplicitHeight = 442 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 668 - ExplicitHeight = 369 + ExplicitHeight = 414 inline frViewRemesaCliente1: TfrViewRemesaCliente Left = 0 Top = 0 @@ -190,9 +190,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 121 + ExplicitTop = 145 ExplicitWidth = 668 - ExplicitHeight = 248 + ExplicitHeight = 269 inherited cxGrid: TcxGrid Left = 15 Width = 638 @@ -218,18 +218,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente Width = 638 ExplicitLeft = 15 ExplicitWidth = 638 - inherited ToolButton1: TToolButton - ExplicitWidth = 62 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 74 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 67 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 117 - end end end end diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas index 5a03b763..b97ddd2a 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas @@ -14,7 +14,7 @@ uses cxCustomData, uViewRemesasCliente, uIEditorRemesaCliente, uRemesasClienteController, JvExComCtrls, JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid, - uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico; + uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces; type TfEditorRemesaCliente = class(TfEditorDBItem, IEditorRemesaCliente) @@ -76,7 +76,8 @@ implementation uses uDataTableUtils, cxControls, uDataModuleUsuarios, uDialogUtils, uCustomEditor, uDataModuleRemesasCliente, uDataModuleBase, uBizFamilias, uFamiliasController, - uBancaElectronicaController; + uFactuGES_App; +// uBancaElectronicaController; { ******************************* TfEditorRemesaCliente ******************************* @@ -286,9 +287,10 @@ begin end; procedure TfEditorRemesaCliente.actVolcarDiscoExecute(Sender: TObject); -var - ABancaController : IBancaElectronicaController; +//var +// ABancaController : IBancaElectronicaController; begin +{ inherited; ABancaController := TBancaElectronicaController.Create; try @@ -296,6 +298,7 @@ begin finally ABancaController := NIL; end; +} end; procedure TfEditorRemesaCliente.actVolcarDiscoUpdate(Sender: TObject); diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas index 49241de1..63bc5697 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas @@ -12,7 +12,7 @@ uses JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase, uViewBarraSeleccion, pngimage, uIEditorRemesasCliente, uEditorGridBase, JvComponentBase, uViewGridBase, uRemesasClienteController, JvExComCtrls, - JvStatusBar, JSDialog; + JvStatusBar, JSDialog, uDAInterfaces; type TfEditorRemesasCliente = class(TfEditorGridBase, IEditorRemesasCliente) @@ -60,9 +60,9 @@ implementation uses uCustomEditor, uDataModuleRemesasCliente, uDataModuleUsuarios, - uGridUtils, uDBSelectionListUtils, + uGridUtils, uDBSelectionListUtils, uFactuGES_App, uEditorDBBase, uBizFamilias, uFamiliasController, - uBancaElectronicaController, +// uBancaElectronicaController, cxGrid, cxGridCustomTableView; //, uListaRemesasCliente; {$R *.dfm} @@ -268,16 +268,17 @@ begin end; procedure TfEditorRemesasCliente.actVolcarDiscoExecute(Sender: TObject); -var - ABancaController : IBancaElectronicaController; +//var +// ABancaController : IBancaElectronicaController; begin - inherited; +{ inherited; ABancaController := TBancaElectronicaController.Create; try ABancaController.GenerarFicheroNorma19(FRemesasCliente.ID); finally ABancaController := NIL; end; +} end; procedure TfEditorRemesasCliente.actVolcarDiscoUpdate(Sender: TObject); diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas index c790e209..05c22300 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas @@ -10,7 +10,7 @@ uses cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImageComboBox, cxCurrencyEdit, - uBizRemesasCliente, uRemesasClienteController; + uBizRemesasCliente, uRemesasClienteController, uDAInterfaces; type IViewRecibosRemesaCliente = interface diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm index dbe828df..c092ea3b 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Width = 451 - Height = 157 + Height = 304 Align = alClient ExplicitWidth = 451 ExplicitHeight = 304 @@ -8,16 +8,16 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Left = 0 Top = 0 Width = 451 - Height = 157 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitHeight = 304 + ExplicitHeight = 157 DesignSize = ( 451 - 157) + 304) object eReferencia: TcxDBTextEdit Left = 110 Top = 30 diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas index f2cecf4f..9b2c275f 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas @@ -12,7 +12,7 @@ uses uFamiliasController, cxSpinEdit, cxCurrencyEdit, uBizRemesasCliente, uRemesasClienteController, cxCalendar, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, - cxImageComboBox; + cxImageComboBox, uDAInterfaces; type IViewRemesaCliente = interface(IViewBase) @@ -58,7 +58,7 @@ type public property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente; property Controller : IRemesasClienteController read GetController write SetController; - constructor Create(AOwner: TComponent); override; + constructor Create(AOwner: TComponent); override; end; implementation @@ -66,7 +66,7 @@ implementation {$R *.dfm} uses - uDataModuleUsuarios; + uDataModuleUsuarios, uFactuGES_App; { TfrViewRemesaClientes } @@ -122,7 +122,7 @@ begin if Assigned(FRemesaCliente) then begin dsDataTable.DataTable := FRemesaCliente.DataTable; - dsDatosBanco.DataTable := dmUsuarios.EmpresaActual.DatosBancarios.DataTable; + dsDatosBanco.DataTable := AppFactuGES.EmpresaActiva.DatosBancarios.DataTable; dsDatosBanco.DataTable.Active := True; end else begin diff --git a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dpk b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dpk index 8fac816c..30ba0a5a 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dpk +++ b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dpk @@ -22,35 +22,13 @@ package RemesasProveedor_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - dsnap, - vcldb, - adortl, - GUISDK_D10, - ccpack10, - designide, - xmlrtl, - vclactnband, - vclx, - cfpack_d10, - JvAppFrmD10R, - vcljpg, - JclVcl, - Jcl, - JvSystemD10R, - JvCoreD10R, - Contactos_model, - Contactos_controller, + RemesasProveedor_data, RemesasProveedor_model, - RecibosProveedor_controller, - RemesasProveedor_data; + Contactos_controller, + RecibosProveedor_controller; contains uIEditorRemesasProveedor in 'View\uIEditorRemesasProveedor.pas', diff --git a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dproj b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dproj new file mode 100644 index 00000000..b2416ddc --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dproj @@ -0,0 +1,591 @@ + + + {ff8e8509-28f4-4aa9-88e5-13f60fe956a6} + RemesasProveedor_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_controller.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasProveedor_controller.dpk + + + + + + + MainSource + + + + + + + + + + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res and b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res differ diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index 25e35f46..3a189e50 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas @@ -86,7 +86,7 @@ type implementation uses - cxControls, DB, uEditorRegistryUtils, schRemesasProveedorClient_Intf, + cxControls, DB, uEditorRegistryUtils, schRemesasProveedorClient_Intf, uFactuGES_App, schRecibosProveedorClient_Intf, uIEditorRemesasProveedor, uIEditorRemesaProveedor, Dialogs, uDataModuleRemesasProveedor, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows, @@ -204,7 +204,7 @@ begin // Asegurarse de valores en campos "automáticos" ARemesaProveedor.Edit; try - ARemesaProveedor.USUARIO := dmUsuarios.LoginInfo.Usuario; + ARemesaProveedor.USUARIO := AppFactuGES.UsuarioActivo.UserName; Result := True; finally @@ -462,7 +462,7 @@ begin ARemesaProveedor.DataTable.Active := False; // Filtrar las remesas actuales por empresa - with AAlbaran.DataTable.DynamicWhere do + with ARemesaProveedor.DataTable.DynamicWhere do begin // (ID_EMPRESA >= ID) Condicion := NewBinaryExpression(NewField('', fld_RemesasProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); @@ -481,7 +481,6 @@ end; function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor): Boolean; var - NuevoID: Integer; bEsNuevo: Boolean; begin Result := False; @@ -491,19 +490,13 @@ begin ShowHourglassCursor; try bEsNuevo := ARemesaProveedor.EsNuevo; - if (bEsNuevo) then - NuevoID := FDataModule.GetNextID(ARemesaProveedor.DataTable.LogicalName) - else - NuevoID := ARemesaProveedor.ID; - - AsignarID(ARemesaProveedor, NuevoID); //Si es nuevo debemos hacer el applyupdates por la integridad referencial de BD if bEsNuevo then ARemesaProveedor.DataTable.ApplyUpdates; //Si todo ha ido bien, asignamos la remesa a los recibos asociados //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros - RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, NuevoID); + RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID); ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor) //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen diff --git a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk index 61b6d2f9..11d86fa8 100644 --- a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk +++ b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk @@ -22,17 +22,9 @@ package RemesasProveedor_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - cxLibraryD10, - dxThemeD10, - vcl, - dsnap, - vcldb, - adortl, RemesasProveedor_model; contains diff --git a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dproj b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dproj new file mode 100644 index 00000000..e9419575 --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dproj @@ -0,0 +1,586 @@ + + + {568778b1-e82d-41e9-b198-b7c58140e81b} + RemesasProveedor_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_data.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasProveedor_data.dpk + + + + + + + MainSource + + + +
DataModuleRemesasProveedor
+ + + + + diff --git a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res and b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res differ diff --git a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm index 9fa8b1a3..60fb8138 100644 --- a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm @@ -1,18 +1,37 @@ inherited DataModuleRemesasProveedor: TDataModuleRemesasProveedor OnCreate = DAClientDataModuleCreate - Height = 414 - Width = 518 + Height = 233 + Width = 291 object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel ServiceName = 'srvRemesasProveedor' Left = 48 Top = 24 end - object tbl_RemesasProveedor: TDACDSDataTable + object Bin2DataStreamer: TDABin2DataStreamer + Left = 46 + Top = 84 + end + object rda_RemesasProveedor: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 49 + Top = 151 + end + object tbl_RemesasProveedor: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID' + Required = True + ServerAutoRefresh = True DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True end @@ -48,13 +67,6 @@ inherited DataModuleRemesasProveedor: TDataModuleRemesasProveedor DisplayLabel = 'RemesasCliente_DESCRIPCION' DictionaryEntry = 'RemesasCliente_DESCRIPCION' end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DisplayLabel = 'RemesasCliente_USUARIO' - DictionaryEntry = 'RemesasCliente_USUARIO' - end item Name = 'ID_DATOS_BANCO' DataType = datInteger @@ -71,11 +83,11 @@ inherited DataModuleRemesasProveedor: TDataModuleRemesasProveedor DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' end item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - DisplayLabel = 'Importe total' - Alignment = taRightJustify - DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL' + Name = 'USUARIO' + DataType = datString + Size = 20 + DisplayLabel = 'RemesasCliente_USUARIO' + DictionaryEntry = 'RemesasCliente_USUARIO' end item Name = 'NOMBRE' @@ -124,35 +136,28 @@ inherited DataModuleRemesasProveedor: TDataModuleRemesasProveedor Size = 3 DisplayLabel = 'Sufijo N58' DictionaryEntry = 'RemesasCliente_SUFIJO_N58' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL' end> Params = <> - MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RemesasProveedor DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RemesasProveedor' IndexDefs = <> - Left = 272 - Top = 160 + Left = 192 + Top = 88 end object ds_RemesasProveedor: TDADataSource DataSet = tbl_RemesasProveedor.Dataset DataTable = tbl_RemesasProveedor - Left = 272 - Top = 96 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 46 - Top = 84 - end - object rda_RemesasProveedor: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 49 - Top = 151 + Left = 192 + Top = 24 end end diff --git a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas index 45bc4ca4..5b6b2c1e 100644 --- a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas @@ -8,19 +8,20 @@ uses uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uDataModuleBase, uIDataModuleRemesasProveedor, uIDataModuleRemesasProveedorReport, uBizRemesasProveedor, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleRemesasProveedor = class(TDataModuleBase, IDataModuleRemesasProveedor, IDataModuleRemesasProveedorReport) RORemoteService: TRORemoteService; - tbl_RemesasProveedor: TDACDSDataTable; - ds_RemesasProveedor: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_RemesasProveedor: TDARemoteDataAdapter; + tbl_RemesasProveedor: TDAMemDataTable; + ds_RemesasProveedor: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected - procedure AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable); virtual; + procedure AsignarClaseNegocio(var ARemesaProveedor: TDAMemDataTable); virtual; public function GetItems : IBizRemesaProveedor; overload; @@ -36,12 +37,12 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, schRemesasProveedorClient_Intf, Dialogs; { TdmRemesasProveedor } -procedure TDataModuleRemesasProveedor.AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable); +procedure TDataModuleRemesasProveedor.AsignarClaseNegocio(var ARemesaProveedor: TDAMemDataTable); begin ARemesaProveedor.BusinessRulesID := BIZ_CLIENT_REMESAPROVEEDOR; end; diff --git a/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas index c21c96fc..ec3024db 100644 --- a/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas @@ -10,7 +10,6 @@ type ['{6073E44A-0B61-4D26-BCDE-33150D88C91B}'] function GetItems: IBizRemesaProveedor; function GetItem(const ID : Integer) : IBizRemesaProveedor; - function GetNextID(const DataSetName : String) : Integer; function NewItem : IBizRemesaProveedor; end; diff --git a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk index 7ffb06c3..ac319457 100644 --- a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk +++ b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk @@ -22,20 +22,12 @@ package RemesasProveedor_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dsnap, - dbrtl, - vcldb, - vcl, - adortl, - Usuarios, - DataAbstract_D10, + Base, RecibosProveedor_model; - contains uBizRemesasProveedor in 'uBizRemesasProveedor.pas', uIDataModuleRemesasProveedor in 'Data\uIDataModuleRemesasProveedor.pas', diff --git a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dproj b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dproj new file mode 100644 index 00000000..bd67d5ca --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dproj @@ -0,0 +1,589 @@ + + + {e4f81792-84cf-4900-a6ab-18f6dd2c7ada} + RemesasProveedor_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_model.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasProveedor_model.dpk + + + + + + + MainSource + + + + + + + + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res and b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res differ diff --git a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas index 19457113..933b8deb 100644 --- a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas +++ b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas @@ -3,20 +3,18 @@ unit schRemesasProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable; + Classes, DB, schBase_Intf, 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_darReferencia = '{C1FE1FF9-7F1D-45EF-A6EC-36769F2459E8}'; - RID_RemesasProveedor = '{B681DD8C-CB40-4D5F-8717-3335972EB8EF}'; - RID_RemesasProveedor_Refresh = '{56DD2E63-E0E0-47F8-9840-044CC0BB101E}'; + RID_darReferencia = '{60F91383-6F77-4AD3-9E84-B27C782A1482}'; + RID_RemesasProveedor = '{044A9E1D-90AB-4E1C-BFCB-98772BB603BE}'; { Data table names } nme_darReferencia = 'darReferencia'; nme_RemesasProveedor = 'RemesasProveedor'; - nme_RemesasProveedor_Refresh = 'RemesasProveedor_Refresh'; { darReferencia fields } fld_darReferenciaVALOR = 'VALOR'; @@ -31,11 +29,10 @@ const fld_RemesasProveedorTIPO = 'TIPO'; fld_RemesasProveedorFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasProveedorDESCRIPCION = 'DESCRIPCION'; - fld_RemesasProveedorUSUARIO = 'USUARIO'; fld_RemesasProveedorID_DATOS_BANCO = 'ID_DATOS_BANCO'; fld_RemesasProveedorFECHA_ALTA = 'FECHA_ALTA'; fld_RemesasProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_RemesasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RemesasProveedorUSUARIO = 'USUARIO'; fld_RemesasProveedorNOMBRE = 'NOMBRE'; fld_RemesasProveedorENTIDAD = 'ENTIDAD'; fld_RemesasProveedorSUCURSAL = 'SUCURSAL'; @@ -43,6 +40,7 @@ const fld_RemesasProveedorCUENTA = 'CUENTA'; fld_RemesasProveedorSUFIJO_N19 = 'SUFIJO_N19'; fld_RemesasProveedorSUFIJO_N58 = 'SUFIJO_N58'; + fld_RemesasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; { RemesasProveedor field indexes } idx_RemesasProveedorID = 0; @@ -51,70 +49,33 @@ const idx_RemesasProveedorTIPO = 3; idx_RemesasProveedorFECHA_REMESA = 4; idx_RemesasProveedorDESCRIPCION = 5; - idx_RemesasProveedorUSUARIO = 6; - idx_RemesasProveedorID_DATOS_BANCO = 7; - idx_RemesasProveedorFECHA_ALTA = 8; - idx_RemesasProveedorFECHA_MODIFICACION = 9; - idx_RemesasProveedorIMPORTE_TOTAL = 10; - idx_RemesasProveedorNOMBRE = 11; - idx_RemesasProveedorENTIDAD = 12; - idx_RemesasProveedorSUCURSAL = 13; - idx_RemesasProveedorDC = 14; - idx_RemesasProveedorCUENTA = 15; - idx_RemesasProveedorSUFIJO_N19 = 16; - idx_RemesasProveedorSUFIJO_N58 = 17; - - { RemesasProveedor_Refresh fields } - fld_RemesasProveedor_RefreshID = 'ID'; - fld_RemesasProveedor_RefreshID_EMPRESA = 'ID_EMPRESA'; - fld_RemesasProveedor_RefreshREFERENCIA = 'REFERENCIA'; - fld_RemesasProveedor_RefreshTIPO = 'TIPO'; - fld_RemesasProveedor_RefreshFECHA_REMESA = 'FECHA_REMESA'; - fld_RemesasProveedor_RefreshDESCRIPCION = 'DESCRIPCION'; - fld_RemesasProveedor_RefreshUSUARIO = 'USUARIO'; - fld_RemesasProveedor_RefreshID_DATOS_BANCO = 'ID_DATOS_BANCO'; - fld_RemesasProveedor_RefreshFECHA_ALTA = 'FECHA_ALTA'; - fld_RemesasProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_RemesasProveedor_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_RemesasProveedor_RefreshNOMBRE = 'NOMBRE'; - fld_RemesasProveedor_RefreshENTIDAD = 'ENTIDAD'; - fld_RemesasProveedor_RefreshSUCURSAL = 'SUCURSAL'; - fld_RemesasProveedor_RefreshDC = 'DC'; - fld_RemesasProveedor_RefreshCUENTA = 'CUENTA'; - fld_RemesasProveedor_RefreshSUFIJO_N19 = 'SUFIJO_N19'; - fld_RemesasProveedor_RefreshSUFIJO_N58 = 'SUFIJO_N58'; - - { RemesasProveedor_Refresh field indexes } - idx_RemesasProveedor_RefreshID = 0; - idx_RemesasProveedor_RefreshID_EMPRESA = 1; - idx_RemesasProveedor_RefreshREFERENCIA = 2; - idx_RemesasProveedor_RefreshTIPO = 3; - idx_RemesasProveedor_RefreshFECHA_REMESA = 4; - idx_RemesasProveedor_RefreshDESCRIPCION = 5; - idx_RemesasProveedor_RefreshUSUARIO = 6; - idx_RemesasProveedor_RefreshID_DATOS_BANCO = 7; - idx_RemesasProveedor_RefreshFECHA_ALTA = 8; - idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 9; - idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 10; - idx_RemesasProveedor_RefreshNOMBRE = 11; - idx_RemesasProveedor_RefreshENTIDAD = 12; - idx_RemesasProveedor_RefreshSUCURSAL = 13; - idx_RemesasProveedor_RefreshDC = 14; - idx_RemesasProveedor_RefreshCUENTA = 15; - idx_RemesasProveedor_RefreshSUFIJO_N19 = 16; - idx_RemesasProveedor_RefreshSUFIJO_N58 = 17; + idx_RemesasProveedorID_DATOS_BANCO = 6; + idx_RemesasProveedorFECHA_ALTA = 7; + idx_RemesasProveedorFECHA_MODIFICACION = 8; + idx_RemesasProveedorUSUARIO = 9; + idx_RemesasProveedorNOMBRE = 10; + idx_RemesasProveedorENTIDAD = 11; + idx_RemesasProveedorSUCURSAL = 12; + idx_RemesasProveedorDC = 13; + idx_RemesasProveedorCUENTA = 14; + idx_RemesasProveedorSUFIJO_N19 = 15; + idx_RemesasProveedorSUFIJO_N58 = 16; + idx_RemesasProveedorIMPORTE_TOTAL = 17; type { IdarReferencia } IdarReferencia = interface(IDAStronglyTypedDataTable) - ['{117BD92C-DD52-4B6F-840D-675FF8A7BB4B}'] + ['{3EC7EB36-5C81-4D96-924C-BFBAD8D38041}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); + function GetVALORIsNull: Boolean; + procedure SetVALORIsNull(const aValue: Boolean); { Properties } property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; end; { TdarReferenciaDataTableRules } @@ -124,9 +85,12 @@ type { Property getters and setters } function GetVALORValue: String; virtual; procedure SetVALORValue(const aValue: String); virtual; + function GetVALORIsNull: Boolean; virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; { Properties } property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -136,65 +100,119 @@ type { IRemesasProveedor } IRemesasProveedor = interface(IDAStronglyTypedDataTable) - ['{23B52BF8-6AAD-4393-96A3-F66CAA606CF5}'] + ['{33E0651A-D061-431F-9EAD-9B9B0458B888}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); + function GetTIPOIsNull: Boolean; + procedure SetTIPOIsNull(const aValue: Boolean); function GetFECHA_REMESAValue: DateTime; procedure SetFECHA_REMESAValue(const aValue: DateTime); + function GetFECHA_REMESAIsNull: Boolean; + procedure SetFECHA_REMESAIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); function GetID_DATOS_BANCOValue: Integer; procedure SetID_DATOS_BANCOValue(const aValue: Integer); + function GetID_DATOS_BANCOIsNull: Boolean; + procedure SetID_DATOS_BANCOIsNull(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 GetIMPORTE_TOTALValue: Float; - procedure SetIMPORTE_TOTALValue(const aValue: Float); + 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); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); function GetENTIDADValue: String; procedure SetENTIDADValue(const aValue: String); + function GetENTIDADIsNull: Boolean; + procedure SetENTIDADIsNull(const aValue: Boolean); function GetSUCURSALValue: String; procedure SetSUCURSALValue(const aValue: String); + function GetSUCURSALIsNull: Boolean; + procedure SetSUCURSALIsNull(const aValue: Boolean); function GetDCValue: String; procedure SetDCValue(const aValue: String); + function GetDCIsNull: Boolean; + procedure SetDCIsNull(const aValue: Boolean); function GetCUENTAValue: String; procedure SetCUENTAValue(const aValue: String); + function GetCUENTAIsNull: Boolean; + procedure SetCUENTAIsNull(const aValue: Boolean); function GetSUFIJO_N19Value: String; procedure SetSUFIJO_N19Value(const aValue: String); + function GetSUFIJO_N19IsNull: Boolean; + procedure SetSUFIJO_N19IsNull(const aValue: Boolean); function GetSUFIJO_N58Value: String; procedure SetSUFIJO_N58Value(const aValue: String); + function GetSUFIJO_N58IsNull: Boolean; + procedure SetSUFIJO_N58IsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); { Properties } property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; + property FECHA_REMESAIsNull: Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; + property ID_DATOS_BANCOIsNull: Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull; 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 IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; + property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; + property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; end; { TRemesasProveedorDataTableRules } @@ -204,191 +222,114 @@ type { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; + function GetTIPOIsNull: Boolean; virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; function GetFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; + function GetFECHA_REMESAIsNull: Boolean; virtual; + procedure SetFECHA_REMESAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetID_DATOS_BANCOValue: Integer; virtual; procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; + function GetID_DATOS_BANCOIsNull: Boolean; virtual; + procedure SetID_DATOS_BANCOIsNull(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 GetIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetENTIDADValue: String; virtual; - procedure SetENTIDADValue(const aValue: String); virtual; - function GetSUCURSALValue: String; virtual; - procedure SetSUCURSALValue(const aValue: String); virtual; - function GetDCValue: String; virtual; - procedure SetDCValue(const aValue: String); virtual; - function GetCUENTAValue: String; virtual; - procedure SetCUENTAValue(const aValue: String); virtual; - function GetSUFIJO_N19Value: String; virtual; - procedure SetSUFIJO_N19Value(const aValue: String); virtual; - function GetSUFIJO_N58Value: String; virtual; - procedure SetSUFIJO_N58Value(const aValue: String); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; - property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; - property DC: String read GetDCValue write SetDCValue; - property CUENTA: String read GetCUENTAValue write SetCUENTAValue; - property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IRemesasProveedor_Refresh } - IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable) - ['{DE94F87C-D124-425E-868D-607F9F21A92C}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetID_EMPRESAValue: Integer; - procedure SetID_EMPRESAValue(const aValue: Integer); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetTIPOValue: String; - procedure SetTIPOValue(const aValue: String); - function GetFECHA_REMESAValue: DateTime; - procedure SetFECHA_REMESAValue(const aValue: DateTime); - function GetDESCRIPCIONValue: String; - procedure SetDESCRIPCIONValue(const aValue: String); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); - function GetID_DATOS_BANCOValue: Integer; - procedure SetID_DATOS_BANCOValue(const aValue: Integer); - function GetFECHA_ALTAValue: DateTime; - procedure SetFECHA_ALTAValue(const aValue: DateTime); - function GetFECHA_MODIFICACIONValue: DateTime; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetIMPORTE_TOTALValue: Float; - procedure SetIMPORTE_TOTALValue(const aValue: Float); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetENTIDADValue: String; - procedure SetENTIDADValue(const aValue: String); - function GetSUCURSALValue: String; - procedure SetSUCURSALValue(const aValue: String); - function GetDCValue: String; - procedure SetDCValue(const aValue: String); - function GetCUENTAValue: String; - procedure SetCUENTAValue(const aValue: String); - function GetSUFIJO_N19Value: String; - procedure SetSUFIJO_N19Value(const aValue: String); - function GetSUFIJO_N58Value: String; - procedure SetSUFIJO_N58Value(const aValue: String); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; - property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; - property DC: String read GetDCValue write SetDCValue; - property CUENTA: String read GetCUENTAValue write SetCUENTAValue; - property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - end; - - { TRemesasProveedor_RefreshDataTableRules } - TRemesasProveedor_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IRemesasProveedor_Refresh) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetTIPOValue: String; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - function GetFECHA_REMESAValue: DateTime; virtual; - procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; - function GetDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; - function GetID_DATOS_BANCOValue: Integer; virtual; - procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetENTIDADValue: String; virtual; procedure SetENTIDADValue(const aValue: String); virtual; + function GetENTIDADIsNull: Boolean; virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; function GetSUCURSALValue: String; virtual; procedure SetSUCURSALValue(const aValue: String); virtual; + function GetSUCURSALIsNull: Boolean; virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; function GetDCValue: String; virtual; procedure SetDCValue(const aValue: String); virtual; + function GetDCIsNull: Boolean; virtual; + procedure SetDCIsNull(const aValue: Boolean); virtual; function GetCUENTAValue: String; virtual; procedure SetCUENTAValue(const aValue: String); virtual; + function GetCUENTAIsNull: Boolean; virtual; + procedure SetCUENTAIsNull(const aValue: Boolean); virtual; function GetSUFIJO_N19Value: String; virtual; procedure SetSUFIJO_N19Value(const aValue: String); virtual; + function GetSUFIJO_N19IsNull: Boolean; virtual; + procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual; function GetSUFIJO_N58Value: String; virtual; procedure SetSUFIJO_N58Value(const aValue: String); virtual; + function GetSUFIJO_N58IsNull: Boolean; virtual; + procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; + property FECHA_REMESAIsNull: Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; + property ID_DATOS_BANCOIsNull: Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull; 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 IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; + property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; + property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -398,7 +339,7 @@ type implementation -uses Variants; +uses Variants, uROBinaryHelpers; { TdarReferenciaDataTableRules } constructor TdarReferenciaDataTableRules.Create(aDataTable: TDADataTable); @@ -421,6 +362,17 @@ begin DataTable.Fields[idx_darReferenciaVALOR].AsString := aValue; end; +function TdarReferenciaDataTableRules.GetVALORIsNull: boolean; +begin + result := DataTable.Fields[idx_darReferenciaVALOR].IsNull; +end; + +procedure TdarReferenciaDataTableRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_darReferenciaVALOR].AsVariant := Null; +end; + { TRemesasProveedorDataTableRules } constructor TRemesasProveedorDataTableRules.Create(aDataTable: TDADataTable); @@ -443,6 +395,17 @@ begin DataTable.Fields[idx_RemesasProveedorID].AsInteger := aValue; end; +function TRemesasProveedorDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorID].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorID].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsInteger; @@ -453,6 +416,17 @@ begin DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsInteger := aValue; end; +function TRemesasProveedorDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorID_EMPRESA].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString; @@ -463,6 +437,17 @@ begin DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorREFERENCIA].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_RemesasProveedorTIPO].AsString; @@ -473,6 +458,17 @@ begin DataTable.Fields[idx_RemesasProveedorTIPO].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetTIPOIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorTIPO].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorTIPO].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetFECHA_REMESAValue: DateTime; begin result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime; @@ -483,6 +479,17 @@ begin DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime := aValue; end; +function TRemesasProveedorDataTableRules.GetFECHA_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetFECHA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsString; @@ -493,14 +500,15 @@ begin DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsString := aValue; end; -function TRemesasProveedorDataTableRules.GetUSUARIOValue: String; +function TRemesasProveedorDataTableRules.GetDESCRIPCIONIsNull: boolean; begin - result := DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString; + result := DataTable.Fields[idx_RemesasProveedorDESCRIPCION].IsNull; end; -procedure TRemesasProveedorDataTableRules.SetUSUARIOValue(const aValue: String); +procedure TRemesasProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString := aValue; + if aValue then + DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsVariant := Null; end; function TRemesasProveedorDataTableRules.GetID_DATOS_BANCOValue: Integer; @@ -513,6 +521,17 @@ begin DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].AsInteger := aValue; end; +function TRemesasProveedorDataTableRules.GetID_DATOS_BANCOIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetID_DATOS_BANCOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetFECHA_ALTAValue: DateTime; begin result := DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsDateTime; @@ -523,6 +542,17 @@ begin DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsDateTime := aValue; end; +function TRemesasProveedorDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsDateTime; @@ -533,14 +563,36 @@ begin DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsDateTime := aValue; end; -function TRemesasProveedorDataTableRules.GetIMPORTE_TOTALValue: Float; +function TRemesasProveedorDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; begin - result := DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsFloat; + result := DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].IsNull; end; -procedure TRemesasProveedorDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); +procedure TRemesasProveedorDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsFloat := aValue; + if aValue then + DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsVariant := Null; +end; + +function TRemesasProveedorDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString; +end; + +procedure TRemesasProveedorDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString := aValue; +end; + +function TRemesasProveedorDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorUSUARIO].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorUSUARIO].AsVariant := Null; end; function TRemesasProveedorDataTableRules.GetNOMBREValue: String; @@ -553,6 +605,17 @@ begin DataTable.Fields[idx_RemesasProveedorNOMBRE].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorNOMBRE].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorNOMBRE].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetENTIDADValue: String; begin result := DataTable.Fields[idx_RemesasProveedorENTIDAD].AsString; @@ -563,6 +626,17 @@ begin DataTable.Fields[idx_RemesasProveedorENTIDAD].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetENTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorENTIDAD].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorENTIDAD].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetSUCURSALValue: String; begin result := DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsString; @@ -573,6 +647,17 @@ begin DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetSUCURSALIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorSUCURSAL].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetDCValue: String; begin result := DataTable.Fields[idx_RemesasProveedorDC].AsString; @@ -583,6 +668,17 @@ begin DataTable.Fields[idx_RemesasProveedorDC].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetDCIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorDC].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorDC].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetCUENTAValue: String; begin result := DataTable.Fields[idx_RemesasProveedorCUENTA].AsString; @@ -593,6 +689,17 @@ begin DataTable.Fields[idx_RemesasProveedorCUENTA].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetCUENTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorCUENTA].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorCUENTA].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetSUFIJO_N19Value: String; begin result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsString; @@ -603,6 +710,17 @@ begin DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetSUFIJO_N19IsNull: boolean; +begin + result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].IsNull; +end; + +procedure TRemesasProveedorDataTableRules.SetSUFIJO_N19IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsVariant := Null; +end; + function TRemesasProveedorDataTableRules.GetSUFIJO_N58Value: String; begin result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsString; @@ -613,202 +731,41 @@ begin DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsString := aValue; end; - -{ TRemesasProveedor_RefreshDataTableRules } -constructor TRemesasProveedor_RefreshDataTableRules.Create(aDataTable: TDADataTable); +function TRemesasProveedorDataTableRules.GetSUFIJO_N58IsNull: boolean; begin - inherited; + result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].IsNull; end; -destructor TRemesasProveedor_RefreshDataTableRules.Destroy; +procedure TRemesasProveedorDataTableRules.SetSUFIJO_N58IsNull(const aValue: Boolean); begin - inherited; + if aValue then + DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsVariant := Null; end; -function TRemesasProveedor_RefreshDataTableRules.GetIDValue: Integer; +function TRemesasProveedorDataTableRules.GetIMPORTE_TOTALValue: Currency; begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshID].AsInteger; + result := DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsCurrency; end; -procedure TRemesasProveedor_RefreshDataTableRules.SetIDValue(const aValue: Integer); +procedure TRemesasProveedorDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin - DataTable.Fields[idx_RemesasProveedor_RefreshID].AsInteger := aValue; + DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsCurrency := aValue; end; -function TRemesasProveedor_RefreshDataTableRules.GetID_EMPRESAValue: Integer; +function TRemesasProveedorDataTableRules.GetIMPORTE_TOTALIsNull: boolean; begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshID_EMPRESA].AsInteger; + result := DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].IsNull; end; -procedure TRemesasProveedor_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TRemesasProveedorDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_RemesasProveedor_RefreshID_EMPRESA].AsInteger := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetTIPOValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetTIPOValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetDESCRIPCIONValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshDESCRIPCION].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshDESCRIPCION].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetUSUARIOValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshUSUARIO].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetUSUARIOValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshUSUARIO].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetID_DATOS_BANCOValue: Integer; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshID_DATOS_BANCO].AsInteger; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetID_DATOS_BANCOValue(const aValue: Integer); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshID_DATOS_BANCO].AsInteger := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_ALTA].AsDateTime; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_ALTA].AsDateTime := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_MODIFICACION].AsDateTime; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_MODIFICACION].AsDateTime := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshIMPORTE_TOTAL].AsFloat; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshIMPORTE_TOTAL].AsFloat := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshNOMBRE].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshNOMBRE].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetENTIDADValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshENTIDAD].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetENTIDADValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshENTIDAD].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetSUCURSALValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshSUCURSAL].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetSUCURSALValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshSUCURSAL].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetDCValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshDC].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetDCValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshDC].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetCUENTAValue: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshCUENTA].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetCUENTAValue(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshCUENTA].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetSUFIJO_N19Value: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N19].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetSUFIJO_N19Value(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N19].AsString := aValue; -end; - -function TRemesasProveedor_RefreshDataTableRules.GetSUFIJO_N58Value: String; -begin - result := DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N58].AsString; -end; - -procedure TRemesasProveedor_RefreshDataTableRules.SetSUFIJO_N58Value(const aValue: String); -begin - DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N58].AsString := aValue; + if aValue then + DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsVariant := Null; end; initialization RegisterDataTableRules(RID_darReferencia, TdarReferenciaDataTableRules); RegisterDataTableRules(RID_RemesasProveedor, TRemesasProveedorDataTableRules); - RegisterDataTableRules(RID_RemesasProveedor_Refresh, TRemesasProveedor_RefreshDataTableRules); end. diff --git a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas index d46edbb3..d742efd4 100644 --- a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas +++ b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas @@ -3,20 +3,19 @@ unit schRemesasProveedorServer_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schRemesasProveedorClient_Intf; + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schRemesasProveedorClient_Intf; 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 = '{1CF21482-DCAA-4AC1-99E1-17E699935E70}'; - RID_RemesasProveedorDelta = '{3E42591F-5D39-4B25-9D0B-65195F9A748B}'; - RID_RemesasProveedor_RefreshDelta = '{98216DA8-39E0-4978-8E23-96992F4135C8}'; + RID_darReferenciaDelta = '{654CD172-ED14-43A0-85CD-7D5714EF6CA6}'; + RID_RemesasProveedorDelta = '{66615F2E-3E7A-49C6-AE86-A922790A3D92}'; type { IdarReferenciaDelta } IdarReferenciaDelta = interface(IdarReferencia) - ['{1CF21482-DCAA-4AC1-99E1-17E699935E70}'] + ['{654CD172-ED14-43A0-85CD-7D5714EF6CA6}'] { Property getters and setters } function GetOldVALORValue : String; @@ -30,12 +29,17 @@ type protected { Property getters and setters } function GetVALORValue: String; virtual; + function GetVALORIsNull: Boolean; virtual; function GetOldVALORValue: String; virtual; + function GetOldVALORIsNull: Boolean; virtual; procedure SetVALORValue(const aValue: String); virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; { Properties } property VALOR : String read GetVALORValue write SetVALORValue; + property VALORIsNull : Boolean read GetVALORIsNull write SetVALORIsNull; property OldVALOR : String read GetOldVALORValue; + property OldVALORIsNull : Boolean read GetOldVALORIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -45,7 +49,7 @@ type { IRemesasProveedorDelta } IRemesasProveedorDelta = interface(IRemesasProveedor) - ['{3E42591F-5D39-4B25-9D0B-65195F9A748B}'] + ['{66615F2E-3E7A-49C6-AE86-A922790A3D92}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -53,11 +57,10 @@ type function GetOldTIPOValue : String; function GetOldFECHA_REMESAValue : DateTime; function GetOldDESCRIPCIONValue : String; - function GetOldUSUARIOValue : String; function GetOldID_DATOS_BANCOValue : Integer; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldIMPORTE_TOTALValue : Float; + function GetOldUSUARIOValue : String; function GetOldNOMBREValue : String; function GetOldENTIDADValue : String; function GetOldSUCURSALValue : String; @@ -65,6 +68,7 @@ type function GetOldCUENTAValue : String; function GetOldSUFIJO_N19Value : String; function GetOldSUFIJO_N58Value : String; + function GetOldIMPORTE_TOTALValue : Currency; { Properties } property OldID : Integer read GetOldIDValue; @@ -73,11 +77,10 @@ type property OldTIPO : String read GetOldTIPOValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; + property OldUSUARIO : String read GetOldUSUARIOValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldENTIDAD : String read GetOldENTIDADValue; property OldSUCURSAL : String read GetOldSUCURSALValue; @@ -85,6 +88,7 @@ type property OldCUENTA : String read GetOldCUENTAValue; property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; end; { TRemesasProveedorBusinessProcessorRules } @@ -93,245 +97,187 @@ type protected { Property getters and setters } function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; + function GetTIPOIsNull: Boolean; virtual; function GetOldTIPOValue: String; virtual; + function GetOldTIPOIsNull: Boolean; virtual; procedure SetTIPOValue(const aValue: String); virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; function GetFECHA_REMESAValue: DateTime; virtual; + function GetFECHA_REMESAIsNull: Boolean; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual; + function GetOldFECHA_REMESAIsNull: Boolean; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; + procedure SetFECHA_REMESAIsNull(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; - function GetUSUARIOValue: String; virtual; - function GetOldUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetID_DATOS_BANCOValue: Integer; virtual; + function GetID_DATOS_BANCOIsNull: Boolean; virtual; function GetOldID_DATOS_BANCOValue: Integer; virtual; + function GetOldID_DATOS_BANCOIsNull: Boolean; virtual; procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; + procedure SetID_DATOS_BANCOIsNull(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; - function GetIMPORTE_TOTALValue: Float; virtual; - function GetOldIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); 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; function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetENTIDADValue: String; virtual; + function GetENTIDADIsNull: Boolean; virtual; function GetOldENTIDADValue: String; virtual; + function GetOldENTIDADIsNull: Boolean; virtual; procedure SetENTIDADValue(const aValue: String); virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; function GetSUCURSALValue: String; virtual; + function GetSUCURSALIsNull: Boolean; virtual; function GetOldSUCURSALValue: String; virtual; + function GetOldSUCURSALIsNull: Boolean; virtual; procedure SetSUCURSALValue(const aValue: String); virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; function GetDCValue: String; virtual; + function GetDCIsNull: Boolean; virtual; function GetOldDCValue: String; virtual; + function GetOldDCIsNull: Boolean; virtual; procedure SetDCValue(const aValue: String); virtual; + procedure SetDCIsNull(const aValue: Boolean); virtual; function GetCUENTAValue: String; virtual; + function GetCUENTAIsNull: Boolean; virtual; function GetOldCUENTAValue: String; virtual; + function GetOldCUENTAIsNull: Boolean; virtual; procedure SetCUENTAValue(const aValue: String); virtual; + procedure SetCUENTAIsNull(const aValue: Boolean); virtual; function GetSUFIJO_N19Value: String; virtual; + function GetSUFIJO_N19IsNull: Boolean; virtual; function GetOldSUFIJO_N19Value: String; virtual; + function GetOldSUFIJO_N19IsNull: Boolean; virtual; procedure SetSUFIJO_N19Value(const aValue: String); virtual; + procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual; function GetSUFIJO_N58Value: String; virtual; + function GetSUFIJO_N58IsNull: Boolean; virtual; function GetOldSUFIJO_N58Value: String; virtual; + function GetOldSUFIJO_N58IsNull: Boolean; virtual; procedure SetSUFIJO_N58Value(const aValue: String); virtual; + procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property TIPO : String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; property OldTIPO : String read GetOldTIPOValue; + property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; + property FECHA_REMESAIsNull : Boolean read GetFECHA_REMESAIsNull write SetFECHA_REMESAIsNull; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; + property OldFECHA_REMESAIsNull : Boolean read GetOldFECHA_REMESAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; - property OldUSUARIO : String read GetOldUSUARIOValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; + property ID_DATOS_BANCOIsNull : Boolean read GetID_DATOS_BANCOIsNull write SetID_DATOS_BANCOIsNull; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; + property OldID_DATOS_BANCOIsNull : Boolean read GetOldID_DATOS_BANCOIsNull; 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 IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; - property OldENTIDAD : String read GetOldENTIDADValue; - property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; - property OldSUCURSAL : String read GetOldSUCURSALValue; - property DC : String read GetDCValue write SetDCValue; - property OldDC : String read GetOldDCValue; - property CUENTA : String read GetCUENTAValue write SetCUENTAValue; - property OldCUENTA : String read GetOldCUENTAValue; - property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; - property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; - property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; - property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IRemesasProveedor_RefreshDelta } - IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh) - ['{98216DA8-39E0-4978-8E23-96992F4135C8}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_EMPRESAValue : Integer; - function GetOldREFERENCIAValue : String; - function GetOldTIPOValue : String; - function GetOldFECHA_REMESAValue : DateTime; - function GetOldDESCRIPCIONValue : String; - function GetOldUSUARIOValue : String; - function GetOldID_DATOS_BANCOValue : Integer; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldIMPORTE_TOTALValue : Float; - function GetOldNOMBREValue : String; - function GetOldENTIDADValue : String; - function GetOldSUCURSALValue : String; - function GetOldDCValue : String; - function GetOldCUENTAValue : String; - function GetOldSUFIJO_N19Value : String; - function GetOldSUFIJO_N58Value : 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 OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldENTIDAD : String read GetOldENTIDADValue; - property OldSUCURSAL : String read GetOldSUCURSALValue; - property OldDC : String read GetOldDCValue; - property OldCUENTA : String read GetOldCUENTAValue; - property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; - property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; - end; - - { TRemesasProveedor_RefreshBusinessProcessorRules } - TRemesasProveedor_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRemesasProveedor_Refresh, IRemesasProveedor_RefreshDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetOldIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetID_EMPRESAValue: Integer; virtual; - function GetOldID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetREFERENCIAValue: String; virtual; - function GetOldREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetTIPOValue: String; virtual; - function GetOldTIPOValue: String; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - function GetFECHA_REMESAValue: DateTime; virtual; - function GetOldFECHA_REMESAValue: DateTime; virtual; - procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; - function GetDESCRIPCIONValue: String; virtual; - function GetOldDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetUSUARIOValue: String; virtual; - function GetOldUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - function GetID_DATOS_BANCOValue: Integer; virtual; - function GetOldID_DATOS_BANCOValue: Integer; virtual; - procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Float; virtual; - function GetOldIMPORTE_TOTALValue: Float; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; - function GetNOMBREValue: String; virtual; - function GetOldNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetENTIDADValue: String; virtual; - function GetOldENTIDADValue: String; virtual; - procedure SetENTIDADValue(const aValue: String); virtual; - function GetSUCURSALValue: String; virtual; - function GetOldSUCURSALValue: String; virtual; - procedure SetSUCURSALValue(const aValue: String); virtual; - function GetDCValue: String; virtual; - function GetOldDCValue: String; virtual; - procedure SetDCValue(const aValue: String); virtual; - function GetCUENTAValue: String; virtual; - function GetOldCUENTAValue: String; virtual; - procedure SetCUENTAValue(const aValue: String); virtual; - function GetSUFIJO_N19Value: String; virtual; - function GetOldSUFIJO_N19Value: String; virtual; - procedure SetSUFIJO_N19Value(const aValue: String); virtual; - function GetSUFIJO_N58Value: String; virtual; - function GetOldSUFIJO_N58Value: String; virtual; - procedure SetSUFIJO_N58Value(const aValue: String); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property OldID : Integer read GetOldIDValue; - property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property TIPO : String read GetTIPOValue write SetTIPOValue; - property OldTIPO : String read GetOldTIPOValue; - property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; - property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; - property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + 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 ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; - property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull; property OldENTIDAD : String read GetOldENTIDADValue; + property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull; property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; property OldSUCURSAL : String read GetOldSUCURSALValue; + property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull; property DC : String read GetDCValue write SetDCValue; + property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull; property OldDC : String read GetOldDCValue; + property OldDCIsNull : Boolean read GetOldDCIsNull; property CUENTA : String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; property OldCUENTA : String read GetOldCUENTAValue; + property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value; + property SUFIJO_N19IsNull : Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull; property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value; + property OldSUFIJO_N19IsNull : Boolean read GetOldSUFIJO_N19IsNull; property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value; + property SUFIJO_N58IsNull : Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull; property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value; + property OldSUFIJO_N58IsNull : Boolean read GetOldSUFIJO_N58IsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -342,7 +288,7 @@ type implementation uses - Variants, uROBinaryHelpers; + Variants, uROBinaryHelpers, uDAInterfaces; { TdarReferenciaBusinessProcessorRules } constructor TdarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -360,16 +306,32 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR]; end; +function TdarReferenciaBusinessProcessorRules.GetVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR]); +end; + function TdarReferenciaBusinessProcessorRules.GetOldVALORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_darReferenciaVALOR]; end; +function TdarReferenciaBusinessProcessorRules.GetOldVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_darReferenciaVALOR]); +end; + procedure TdarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR] := aValue; end; +procedure TdarReferenciaBusinessProcessorRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR] := Null; +end; + { TRemesasProveedorBusinessProcessorRules } constructor TRemesasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -387,104 +349,185 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID]; end; +function TRemesasProveedorBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA]; end; +function TRemesasProveedorBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_EMPRESA]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_EMPRESA]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA]; end; +function TRemesasProveedorBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorREFERENCIA]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorREFERENCIA]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO]; end; +function TRemesasProveedorBusinessProcessorRules.GetTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorTIPO]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorTIPO]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA]; end; +function TRemesasProveedorBusinessProcessorRules.GetFECHA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_REMESA]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_REMESA]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION]; end; +function TRemesasProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDESCRIPCION]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDESCRIPCION]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION] := aValue; end; -function TRemesasProveedorBusinessProcessorRules.GetUSUARIOValue: String; +procedure TRemesasProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO]; -end; - -function TRemesasProveedorBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorUSUARIO]; -end; - -procedure TRemesasProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION] := Null; end; function TRemesasProveedorBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer; @@ -492,59 +535,123 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO]; end; +function TRemesasProveedorBusinessProcessorRules.GetID_DATOS_BANCOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_DATOS_BANCO]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldID_DATOS_BANCOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_DATOS_BANCO]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetID_DATOS_BANCOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA]; end; +function TRemesasProveedorBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_ALTA]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_ALTA]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION]; end; +function TRemesasProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_MODIFICACION]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_MODIFICACION]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION] := aValue; end; -function TRemesasProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; +procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL]; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION] := Null; end; -function TRemesasProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; +function TRemesasProveedorBusinessProcessorRules.GetUSUARIOValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorIMPORTE_TOTAL]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO]; end; -procedure TRemesasProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); +function TRemesasProveedorBusinessProcessorRules.GetUSUARIOIsNull: Boolean; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL] := aValue; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO]); +end; + +function TRemesasProveedorBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorUSUARIO]; +end; + +function TRemesasProveedorBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorUSUARIO]); +end; + +procedure TRemesasProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO] := aValue; +end; + +procedure TRemesasProveedorBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO] := Null; end; function TRemesasProveedorBusinessProcessorRules.GetNOMBREValue: String; @@ -552,392 +659,252 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE]; end; +function TRemesasProveedorBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorNOMBRE]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorNOMBRE]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD]; end; +function TRemesasProveedorBusinessProcessorRules.GetENTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldENTIDADValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorENTIDAD]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorENTIDAD]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetENTIDADValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL]; end; +function TRemesasProveedorBusinessProcessorRules.GetSUCURSALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldSUCURSALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUCURSAL]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUCURSAL]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetSUCURSALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetDCValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC]; end; +function TRemesasProveedorBusinessProcessorRules.GetDCIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldDCValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDC]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldDCIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDC]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetDCValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA]; end; +function TRemesasProveedorBusinessProcessorRules.GetCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorCUENTA]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorCUENTA]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N19Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19]; end; +function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N19IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N19Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N19]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N19IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N19]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19] := aValue; end; +procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N19IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19] := Null; +end; + function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N58Value: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58]; end; +function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N58IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58]); +end; + function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N58Value: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N58]; end; +function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N58IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N58]); +end; + procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58] := aValue; end; - -{ TRemesasProveedor_RefreshBusinessProcessorRules } -constructor TRemesasProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N58IsNull(const aValue: Boolean); begin - inherited; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58] := Null; end; -destructor TRemesasProveedor_RefreshBusinessProcessorRules.Destroy; +function TRemesasProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin - inherited; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL]; end; -function TRemesasProveedor_RefreshBusinessProcessorRules.GetIDValue: Integer; +function TRemesasProveedorBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL]); end; -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldIDValue: Integer; +function TRemesasProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorIMPORTE_TOTAL]; end; -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); +function TRemesasProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID] := aValue; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorIMPORTE_TOTAL]); end; -function TRemesasProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer; +procedure TRemesasProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_EMPRESA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL] := aValue; end; -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +procedure TRemesasProveedorBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID_EMPRESA]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_EMPRESA] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshREFERENCIA]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshTIPO]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDESCRIPCION]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshDESCRIPCION]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDESCRIPCION] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshUSUARIO]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshUSUARIO]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshUSUARIO] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNOMBRE]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshNOMBRE]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNOMBRE] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetENTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshENTIDAD]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldENTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshENTIDAD]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetENTIDADValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshENTIDAD] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUCURSALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUCURSAL]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUCURSALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUCURSAL]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUCURSALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUCURSAL] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetDCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDC]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldDCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshDC]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetDCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDC] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetCUENTAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshCUENTA]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldCUENTAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshCUENTA]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetCUENTAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshCUENTA] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUFIJO_N19Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUFIJO_N19Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19] := aValue; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUFIJO_N58Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58]; -end; - -function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUFIJO_N58Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58]; -end; - -procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL] := Null; end; initialization RegisterBusinessProcessorRules(RID_darReferenciaDelta, TdarReferenciaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RemesasProveedorDelta, TRemesasProveedorBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RemesasProveedor_RefreshDelta, TRemesasProveedor_RefreshBusinessProcessorRules); end. diff --git a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas index c801571e..5871ddad 100644 --- a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas @@ -44,7 +44,8 @@ type implementation uses - uDataTableUtils, uDataModuleUsuarios, SysUtils, uROClasses, Classes; + uDataTableUtils, uDataModuleUsuarios, SysUtils, uROClasses, Classes, + uFactuGES_App; { TBizRemesaProveedor } @@ -74,16 +75,15 @@ end; procedure TBizRemesaProveedor.IniciarValoresRemesaProveedorNuevo; begin - ID_EMPRESA := dmUsuarios.IDEmpresaActual; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; FECHA_REMESA := Date; - USUARIO := dmUsuarios.LoginInfo.Usuario; - TIPO := CTE_TIPO_REMESA; + USUARIO := AppFactuGES.UsuarioActivo.UserName; + TIPO := CTE_TIPO_REMESA; end; procedure TBizRemesaProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; - ID := GetRecNo; // -1, -2, -3... IniciarValoresRemesaProveedorNuevo; end; diff --git a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dpk b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dpk index 3a48f9ba..4dbf3396 100644 --- a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dpk +++ b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dpk @@ -22,19 +22,12 @@ package RemesasProveedor_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - RemesasProveedor_model, + RemesasProveedor_view, RemesasProveedor_controller, - RemesasProveedor_view; + RemesasProveedor_model; contains uPluginRemesasProveedor in 'uPluginRemesasProveedor.pas' {PluginRemesasProveedor}; diff --git a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dproj b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dproj new file mode 100644 index 00000000..2d0d5cba --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dproj @@ -0,0 +1,581 @@ + + + {e4a70e78-dcab-415c-9e35-1956bd41ae1a} + RemesasProveedor_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_plugin.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasProveedor_plugin.dpk + + + + + + + MainSource + + + + + +
PluginRemesasProveedor
+ + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res and b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res differ diff --git a/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj b/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj new file mode 100644 index 00000000..c59c4fd0 --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj @@ -0,0 +1,124 @@ + + + {9e374daa-b130-47db-a2de-c184f072bea0} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm index 4f1344db..304f26a5 100644 --- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm +++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm @@ -3,16 +3,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor OnCreate = DARemoteServiceCreate RequiresSession = True SessionManager = dmServer.SessionManager - AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schRemesasProveedor - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection - OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 249 Width = 343 object Diagrams: TDADiagrams @@ -25,7 +20,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Name = 'RemesasCliente_ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID' + Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'RemesasCliente_FECHA_REMESA' @@ -125,7 +123,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor end item Name = 'RemesasProveedor_IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify ServerAutoRefresh = True @@ -180,13 +178,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Connection = 'IBX' TargetTable = 'V_REMESAS_PROVEEDOR' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' + - 'ROVEEDOR' - StatementType = stSQL + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' @@ -200,6 +192,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end item DatasetField = 'FECHA_REMESA' TableField = 'FECHA_REMESA' @@ -208,10 +204,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end item DatasetField = 'ID_DATOS_BANCO' TableField = 'ID_DATOS_BANCO' @@ -225,8 +217,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor TableField = 'FECHA_MODIFICACION' end item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' + DatasetField = 'USUARIO' + TableField = 'USUARIO' end item DatasetField = 'NOMBRE' @@ -257,8 +249,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor TableField = 'SUFIJO_N58' end item - DatasetField = 'TIPO' - TableField = 'TIPO' + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' end> end> Name = 'RemesasProveedor' @@ -266,6 +258,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID' + ServerAutoRefresh = True DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True end @@ -297,12 +291,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor Size = 255 DictionaryEntry = 'RemesasCliente_DESCRIPCION' end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end item Name = 'ID_DATOS_BANCO' DataType = datInteger @@ -318,253 +306,58 @@ object srvRemesasProveedor: TsrvRemesasProveedor DataType = datDateTime DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'RemesasCliente_USUARIO' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'RemesasCliente_NOMBRE' + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_ENTIDAD' + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_SUCURSAL' + end + item + Name = 'DC' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_DC' + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_CUENTA' + end + item + Name = 'SUFIJO_N19' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N19' + end + item + Name = 'SUFIJO_N58' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N58' + end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' - end> - end - item - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '22' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'V_REMESAS_PROVEEDOR' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' + - 'ROVEEDOR'#10'WHERE ID = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'FECHA_REMESA' - TableField = 'FECHA_REMESA' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - SQLOrigin = 'REMESAS_CLIENTE.ID_EMPRESA' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'ID_DATOS_BANCO' - TableField = 'ID_DATOS_BANCO' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'ENTIDAD' - TableField = 'ENTIDAD' - end - item - DatasetField = 'SUCURSAL' - TableField = 'SUCURSAL' - end - item - DatasetField = 'DC' - TableField = 'DC' - end - item - DatasetField = 'CUENTA' - TableField = 'CUENTA' - end - item - DatasetField = 'SUFIJO_N19' - TableField = 'SUFIJO_N19' - end - item - DatasetField = 'SUFIJO_N58' - TableField = 'SUFIJO_N58' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end> - end> - Name = 'RemesasProveedor_Refresh' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - DictionaryEntry = 'RemesasCliente_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_EMPRESA' - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - ServerAutoRefresh = True - end - item - Name = 'TIPO' - DataType = datString - Size = 40 - DictionaryEntry = 'RemesasProveedor_TIPO' - end - item - Name = 'FECHA_REMESA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_REMESA' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_DESCRIPCION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end - item - Name = 'ID_DATOS_BANCO' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - DisplayLabel = 'Importe total' - Alignment = taRightJustify - ServerAutoRefresh = True - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' end> end> JoinDataTables = <> @@ -574,23 +367,15 @@ object srvRemesasProveedor: TsrvRemesasProveedor Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO' - DataType = datString - Size = 50 Value = '' - ParamType = daptInput end item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'EMPRESA' Value = '' - ParamType = daptInput end> Statements = < item @@ -598,7 +383,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor TargetTable = 'REFERENCIAS' SQL = 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + - 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' + 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = <> end> @@ -608,67 +393,45 @@ object srvRemesasProveedor: TsrvRemesasProveedor Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID' Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - 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> Statements = < item @@ -689,9 +452,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -706,80 +467,60 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Params = < item - Name = 'REFERENCIA' - DataType = datString - Size = 255 + Name = 'ID' + Value = '' + end + item + Name = 'REFERENCIA' Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - 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 = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_PROVEEDOR' SQL = - 'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + - ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPC' + - 'ION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :' + - 'ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALT' + - 'A = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' ' + - ' WHERE'#10' (ID = :OLD_ID)' + 'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' REFERENCIA = :' + + 'REFERENCIA, '#10' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA,' + + ' '#10' DESCRIPCION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ' + + 'ID_EMPRESA = :ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,' + + #10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_' + + 'MODIFICACION'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -791,10 +532,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor Left = 48 Top = 24 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 72 - end object bpRemesasProveedor: TDABusinessProcessor Schema = schRemesasProveedor InsertCommandName = 'Insert_RemesasProveedor' @@ -807,4 +544,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor Left = 248 Top = 24 end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 88 + end end diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas index 3a3d19e6..a8f1ef13 100644 --- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas +++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas @@ -12,25 +12,25 @@ interface uses {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, uDAScriptingProvider, uDAClasses, FactuGES_Intf, uDAInterfaces, uDABinAdapter; type { TsrvRemesasProveedor } - TsrvRemesasProveedor = class(TDARemoteService, IsrvRemesasProveedor) + TsrvRemesasProveedor = class(TDataAbstractService, IsrvRemesasProveedor) Diagrams: TDADiagrams; - DABINAdapter: TDABINAdapter; bpRemesasProveedor: TDABusinessProcessor; schRemesasProveedor: TDASchema; DataDictionary: TDADataDictionary; - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); + Bin2DataStreamer: TDABin2DataStreamer; procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); private protected { IsrvRemesasProveedor methods } @@ -44,7 +44,8 @@ implementation uses {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, schRemesasProveedorClient_Intf, uRestriccionesUsuarioUtils, - uBizRemesasProveedorServer, uRptRemesasProveedor_Server, Dialogs; +// uBizRemesasProveedorServer, uRptRemesasProveedor_Server, + Dialogs; procedure Create_srvRemesasProveedor(out anInstance : IUnknown); begin @@ -52,41 +53,46 @@ begin end; { srvRemesasProveedor } -procedure TsrvRemesasProveedor.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; procedure TsrvRemesasProveedor.DARemoteServiceBeforeGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin +{ if DataSet.Name = nme_RemesasProveedor then begin { Aquí se asegura que el usuario sólo accede a los RemesasProveedor de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, schRemesasProveedor, DataSet, fld_RemesasProveedorID_EMPRESA); +{ FiltrarAccesoUsuario(Session, Connection, schRemesasProveedor, DataSet, fld_RemesasProveedorID_EMPRESA); end; +} end; procedure TsrvRemesasProveedor.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; - bpRemesasProveedor.BusinessRulesID := BIZ_SERVER_REMESAS_PROVEEDOR; +// bpRemesasProveedor.BusinessRulesID := BIZ_SERVER_REMESAS_PROVEEDOR; +end; + +procedure TsrvRemesasProveedor.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; end; function TsrvRemesasProveedor.GenerateReport(const ID: String): Binary; -var - AReportGenerator : TRptRemesasProveedor; +//var +// AReportGenerator : TRptRemesasProveedor; begin +{ AReportGenerator := TRptRemesasProveedor.Create(nil); try Result := AReportGenerator.GenerarRemesa(ID); finally FreeAndNIL(AReportGenerator); end; +} end; function TsrvRemesasProveedor.GetNextAutoInc(const GeneratorName: String): Integer; diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk index c65b6c55..6d75ffbe 100644 --- a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk +++ b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk @@ -22,68 +22,17 @@ package RemesasProveedor_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - vcldb, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - vclx, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - JvCoreD10R, - Jcl, - JclVcl, - JvAppFrmD10R, - JvSystemD10R, - PngComponentsD10, - PNG_D10, - dsnap, - adortl, - Familias_model, - Familias_controller, - tbx_d10, - tb2k_d10, - JvPageCompsD10R, - JvStdCtrlsD10R, - dxLayoutControlD10, - GUISDK_D10, - ccpack10, - cfpack_d10, - JvGlobusD10R, - VclSmp, - bdertl, - vclie, - frx10, - fs10, - fqb100, - frxe10, - frxTee10, - fsTee10, - tee, - teeui, - teedb, RemesasProveedor_model, RemesasProveedor_controller, - RemesasProveedor_data; + Familias_controller, + Familias_model, + teeUI, + tee, + fsTee11, + frxTee11; contains uViewRemesasProveedor in 'uViewRemesasProveedor.pas' {frViewRemesasProveedor: TFrame}, diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj new file mode 100644 index 00000000..f697d4a9 --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj @@ -0,0 +1,615 @@ + + + {5e4bdd4d-597f-407c-8b0c-32e37fbd6267} + RemesasProveedor_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_view.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemesasProveedor_view.dpk + + + + + + + MainSource + + + + + + + + + + +
fEditorRemesaProveedor
+ TfEditorRemesaCliente + + +
fEditorRemesaProveedorPreview
+ TfEditorRemesaClienteReport + + +
fEditorRemesasProveedor
+ TfEditorArticulos + + + +
frViewRecibosRemesaProveedor
+ TFrame + + +
frViewRemesaProveedor
+ TFrame + + +
frViewRemesasProveedor
+ TFrame + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res index 36f26e23..86c94e6a 100644 Binary files a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res and b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res differ diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm index 4335f069..18472227 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm @@ -109,13 +109,13 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor Width = 690 Height = 463 MultiLine = True - ExplicitWidth = 676 - ExplicitHeight = 397 + ExplicitWidth = 690 + ExplicitHeight = 463 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 668 - ExplicitHeight = 369 + ExplicitWidth = 682 + ExplicitHeight = 435 inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor Left = 0 Top = 155 @@ -130,9 +130,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitTop = 145 - ExplicitWidth = 668 - ExplicitHeight = 224 + ExplicitTop = 155 + ExplicitWidth = 682 + ExplicitHeight = 280 inherited cxGrid: TcxGrid Width = 682 Height = 255 @@ -151,6 +151,18 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor inherited ToolBar1: TToolBar Width = 682 ExplicitWidth = 668 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end end end inline frViewRemesaProveedor1: TfrViewRemesaProveedor @@ -172,8 +184,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor inherited dxLayoutControlRemesaProveedor: TdxLayoutControl Width = 682 Height = 155 - ExplicitWidth = 668 - ExplicitHeight = 145 + ExplicitWidth = 682 + ExplicitHeight = 155 inherited eReferencia: TcxDBTextEdit ExplicitWidth = 164 Width = 164 diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas index d301fad6..57adddcb 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas @@ -15,7 +15,7 @@ uses uViewRemesasProveedor, uIEditorRemesaProveedor, uRemesasProveedorController, JvExComCtrls, JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid, uViewRecibosRemesaProveedor, uViewTotales, uViewDetallesGenerico, - uViewRemesaProveedor; + uViewRemesaProveedor, uDAInterfaces; type TfEditorRemesaProveedor = class(TfEditorDBItem, IEditorRemesaProveedor) @@ -76,7 +76,8 @@ implementation uses uDataTableUtils, cxControls, uDataModuleUsuarios, uDialogUtils, uCustomEditor, - uDataModuleRemesasProveedor, uDataModuleBase, uBizFamilias, uFamiliasController; + uDataModuleRemesasProveedor, uDataModuleBase, uBizFamilias, uFamiliasController, + uFactuGES_App; // uBancaElectronicaController; { diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm index 5c9563b0..3721f86f 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm @@ -4,6 +4,7 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor Caption = 'Lista de remesas de pago' ClientWidth = 820 ExplicitWidth = 828 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas index e510d72c..025b29d6 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas @@ -12,7 +12,7 @@ uses JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase, uViewBarraSeleccion, pngimage, uIEditorRemesasProveedor, uEditorGridBase, JvComponentBase, uViewGridBase, uRemesasProveedorController, JvExComCtrls, - JvStatusBar, JSDialog; + JvStatusBar, JSDialog, uDAInterfaces; type TfEditorRemesasProveedor = class(TfEditorGridBase, IEditorRemesasProveedor) @@ -60,7 +60,7 @@ implementation uses uCustomEditor, uDataModuleRemesasProveedor, uDataModuleUsuarios, - uGridUtils, uDBSelectionListUtils, + uGridUtils, uDBSelectionListUtils, uFactuGES_App, uEditorDBBase, uBizFamilias, uFamiliasController, // uBancaElectronicaController, cxGrid, cxGridCustomTableView; //, uListaRemesasProveedor; diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.pas index 23ac126e..a9e1bd89 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.pas @@ -10,7 +10,7 @@ uses cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImageComboBox, cxCurrencyEdit, - uBizRemesasProveedor, uRemesasProveedorController; + uBizRemesasProveedor, uRemesasProveedorController, uDAInterfaces; type IViewRecibosRemesaProveedor = interface diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm index e9018e44..84afe021 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm @@ -1,6 +1,6 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor Width = 451 - Height = 160 + Height = 304 Align = alClient ExplicitWidth = 451 ExplicitHeight = 304 @@ -8,16 +8,16 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor Left = 0 Top = 0 Width = 451 - Height = 160 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitHeight = 304 + ExplicitHeight = 160 DesignSize = ( 451 - 160) + 304) object eReferencia: TcxDBTextEdit Left = 110 Top = 30 diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas index c2df78d8..f6d64c85 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas @@ -12,7 +12,7 @@ uses uFamiliasController, cxSpinEdit, cxCurrencyEdit, uBizRemesasProveedor, uRemesasProveedorController, cxCalendar, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, - cxImageComboBox; + cxImageComboBox, uDAInterfaces; type IViewRemesaProveedor = interface(IViewBase) @@ -58,7 +58,7 @@ type public property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor; property Controller : IRemesasProveedorController read GetController write SetController; - constructor Create(AOwner: TComponent); override; + constructor Create(AOwner: TComponent); override; end; implementation @@ -66,7 +66,7 @@ implementation {$R *.dfm} uses - uDataModuleUsuarios; + uDataModuleUsuarios, uFactuGES_App; { TfrViewRemesaProveedors } @@ -122,7 +122,7 @@ begin if Assigned(FRemesaProveedor) then begin dsDataTable.DataTable := FRemesaProveedor.DataTable; - dsDatosBanco.DataTable := dmUsuarios.EmpresaActual.DatosBancarios.DataTable; + dsDatosBanco.DataTable := AppFactuGES.EmpresaActiva.DatosBancarios.DataTable; dsDatosBanco.DataTable.Active := True; end else begin diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index cfc386a8..3a15db98 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -159,6 +159,38 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Servicios/FactuGES.RODL.bak b/Source/Servicios/FactuGES.RODL.bak index 90677e65..fb1aa945 100644 --- a/Source/Servicios/FactuGES.RODL.bak +++ b/Source/Servicios/FactuGES.RODL.bak @@ -159,6 +159,37 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -207,6 +238,22 @@ + + + + + + + + + + + + + + + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index af1f978d..251dec21 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -35,6 +35,8 @@ const IsrvArticulos_IID : TGUID = '{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}'; IsrvRecibosCliente_IID : TGUID = '{3B68252A-EE6A-4D37-B250-93F2DB940DDF}'; IsrvRecibosProveedor_IID : TGUID = '{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}'; + IsrvRemesasCliente_IID : TGUID = '{33F414D0-0D0B-4384-96CB-D94BC97A0C39}'; + IsrvRemesasProveedor_IID : TGUID = '{6540A037-9847-4650-89BB-7B349C6004DF}'; IsrvFacturasCliente_IID : TGUID = '{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}'; IsrvFacturasProveedor_IID : TGUID = '{7655160C-7023-452E-BB0E-C97E29B915E7}'; IsrvPresupuestosCliente_IID : TGUID = '{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}'; @@ -58,6 +60,8 @@ type IsrvArticulos = interface; IsrvRecibosCliente = interface; IsrvRecibosProveedor = interface; + IsrvRemesasCliente = interface; + IsrvRemesasProveedor = interface; IsrvFacturasCliente = interface; IsrvFacturasProveedor = interface; IsrvPresupuestosCliente = interface; @@ -361,6 +365,44 @@ type function GenerateReport(const ID: Integer): Binary; end; + { IsrvRemesasCliente } + IsrvRemesasCliente = interface(IDataAbstractService) + ['{33F414D0-0D0B-4384-96CB-D94BC97A0C39}'] + function GenerateReport(const ID: String): Binary; + end; + + { CosrvRemesasCliente } + CosrvRemesasCliente = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasCliente; + end; + + { TsrvRemesasCliente_Proxy } + TsrvRemesasCliente_Proxy = class(TDataAbstractService_Proxy, IsrvRemesasCliente) + protected + function __GetInterfaceName:string; override; + + function GenerateReport(const ID: String): Binary; + end; + + { IsrvRemesasProveedor } + IsrvRemesasProveedor = interface(IDataAbstractService) + ['{6540A037-9847-4650-89BB-7B349C6004DF}'] + function GenerateReport(const ID: String): Binary; + end; + + { CosrvRemesasProveedor } + CosrvRemesasProveedor = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor; + end; + + { TsrvRemesasProveedor_Proxy } + TsrvRemesasProveedor_Proxy = class(TDataAbstractService_Proxy, IsrvRemesasProveedor) + protected + function __GetInterfaceName:string; override; + + function GenerateReport(const ID: String): Binary; + end; + { IsrvFacturasCliente } IsrvFacturasCliente = interface(IDataAbstractService) ['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}'] @@ -1037,6 +1079,68 @@ begin end end; +{ CosrvRemesasCliente } + +class function CosrvRemesasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasCliente; +begin + result := TsrvRemesasCliente_Proxy.Create(aMessage, aTransportChannel); +end; + +{ TsrvRemesasCliente_Proxy } + +function TsrvRemesasCliente_Proxy.__GetInterfaceName:string; +begin + result := 'srvRemesasCliente'; +end; + +function TsrvRemesasCliente_Proxy.GenerateReport(const ID: String): Binary; +begin + try + result := nil; + __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); + __Message.Write('ID', TypeInfo(String), ID, []); + __Message.Finalize; + + __TransportChannel.Dispatch(__Message); + + __Message.Read('Result', TypeInfo(Binary), result, []); + finally + __Message.UnsetAttributes(__TransportChannel); + __Message.FreeStream; + end +end; + +{ CosrvRemesasProveedor } + +class function CosrvRemesasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor; +begin + result := TsrvRemesasProveedor_Proxy.Create(aMessage, aTransportChannel); +end; + +{ TsrvRemesasProveedor_Proxy } + +function TsrvRemesasProveedor_Proxy.__GetInterfaceName:string; +begin + result := 'srvRemesasProveedor'; +end; + +function TsrvRemesasProveedor_Proxy.GenerateReport(const ID: String): Binary; +begin + try + result := nil; + __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); + __Message.Write('ID', TypeInfo(String), ID, []); + __Message.Finalize; + + __TransportChannel.Dispatch(__Message); + + __Message.Read('Result', TypeInfo(Binary), result, []); + finally + __Message.UnsetAttributes(__TransportChannel); + __Message.FreeStream; + end +end; + { CosrvFacturasCliente } class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente; @@ -1256,6 +1360,8 @@ initialization RegisterProxyClass(IsrvArticulos_IID, TsrvArticulos_Proxy); RegisterProxyClass(IsrvRecibosCliente_IID, TsrvRecibosCliente_Proxy); RegisterProxyClass(IsrvRecibosProveedor_IID, TsrvRecibosProveedor_Proxy); + RegisterProxyClass(IsrvRemesasCliente_IID, TsrvRemesasCliente_Proxy); + RegisterProxyClass(IsrvRemesasProveedor_IID, TsrvRemesasProveedor_Proxy); RegisterProxyClass(IsrvFacturasCliente_IID, TsrvFacturasCliente_Proxy); RegisterProxyClass(IsrvFacturasProveedor_IID, TsrvFacturasProveedor_Proxy); RegisterProxyClass(IsrvPresupuestosCliente_IID, TsrvPresupuestosCliente_Proxy); @@ -1279,6 +1385,8 @@ finalization UnregisterProxyClass(IsrvArticulos_IID); UnregisterProxyClass(IsrvRecibosCliente_IID); UnregisterProxyClass(IsrvRecibosProveedor_IID); + UnregisterProxyClass(IsrvRemesasCliente_IID); + UnregisterProxyClass(IsrvRemesasProveedor_IID); UnregisterProxyClass(IsrvFacturasCliente_IID); UnregisterProxyClass(IsrvFacturasProveedor_IID); UnregisterProxyClass(IsrvPresupuestosCliente_IID); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 900e6d72..fca980e0 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -100,6 +100,20 @@ type procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); end; + TsrvRemesasCliente_Invoker = class(TDataAbstractService_Invoker) + private + protected + published + procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); + end; + + TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker) + private + protected + published + procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); + end; + TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker) private protected @@ -354,6 +368,66 @@ begin end; end; +{ TsrvRemesasCliente_Invoker } + +procedure TsrvRemesasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); +{ function GenerateReport(const ID: String): Binary; } +var + ID: String; + lResult: Binary; + __lObjectDisposer: TROObjectDisposer; +begin + lResult := nil; + try + __Message.Read('ID', TypeInfo(String), ID, []); + + lResult := (__Instance as IsrvRemesasCliente).GenerateReport(ID); + + __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasCliente', 'GenerateReportResponse'); + __Message.Write('Result', TypeInfo(Binary), lResult, []); + __Message.Finalize; + __Message.UnsetAttributes(__Transport); + + finally + __lObjectDisposer := TROObjectDisposer.Create(__Instance); + try + __lObjectDisposer.Add(lResult); + finally + __lObjectDisposer.Free(); + end; + end; +end; + +{ TsrvRemesasProveedor_Invoker } + +procedure TsrvRemesasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); +{ function GenerateReport(const ID: String): Binary; } +var + ID: String; + lResult: Binary; + __lObjectDisposer: TROObjectDisposer; +begin + lResult := nil; + try + __Message.Read('ID', TypeInfo(String), ID, []); + + lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ID); + + __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GenerateReportResponse'); + __Message.Write('Result', TypeInfo(Binary), lResult, []); + __Message.Finalize; + __Message.UnsetAttributes(__Transport); + + finally + __lObjectDisposer := TROObjectDisposer.Create(__Instance); + try + __lObjectDisposer.Add(lResult); + finally + __lObjectDisposer.Free(); + end; + end; +end; + { TsrvFacturasCliente_Invoker } procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 027249fd..1f04127c 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index a8405af4..aa5813ac 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 56562582..23ef6dce 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -83,7 +83,13 @@ uses schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', - schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas'; + schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', + srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService}, + srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService}, + schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', + schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', + schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', + schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 5dd19baf..54ee59eb 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -129,6 +129,18 @@
srvRecibosProveedor
TDataAbstractService + + + +
srvRemesasCliente
+ TDataAbstractService + + + + +
srvRemesasProveedor
+ TDataAbstractService + diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 51e74825..4cfd0114 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "lunes, 19 de noviembre de 2007 20:09\0" + VALUE "CompileDate", "martes, 20 de noviembre de 2007 16:40\0" END END BLOCK "VarFileInfo"