diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index c91fca1f..814a1bb8 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index 5fb4face..de8dcced 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -1,4 +1,3 @@ -DROP VIEW V_REMESAS_PROVEEDOR; DROP VIEW V_VENTAS_ARTICULOS; /* @@ -69,6 +68,8 @@ DROP VIEW V_RECIBOS_CLIENTE; DROP VIEW V_REMESAS_CLIENTE; DROP VIEW V_REC_CLI_COMPENSADOS; DROP VIEW V_RECIBOS_PROVEEDOR; +DROP VIEW V_REMESAS_PROVEEDOR; +DROP VIEW V_REC_PRO_COMPENSADOS; DROP VIEW V_REC_CLI_SITUACION; DROP VIEW V_REC_PRO_SITUACION; DROP VIEW V_REC_FAC_CLI; @@ -457,8 +458,20 @@ ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID) GROUP BY RECIBOS_CLIENTE.ID; +CREATE VIEW V_REC_PRO_COMPENSADOS ( +ID_RECIBO, +IMPORTE_TOTAL_COMPENSADO +) as +select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL +from RECIBOS_PROVEEDOR +where ID_RECIBO_COMPENSADO is not null +group by ID_RECIBO_COMPENSADO; + + CREATE VIEW V_RECIBOS_PROVEEDOR( ID, + ID_RECIBO_COMPENSADO, + REFERENCIA_REC_COMPENSADO, REFERENCIA, REFERENCIA_PROVEEDOR, SITUACION, @@ -488,13 +501,21 @@ CREATE VIEW V_RECIBOS_PROVEEDOR( FECHA_MODIFICACION, USUARIO) AS -SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.REFERENCIA, RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, - V_REC_PRO_SITUACION.SITUACION, +SELECT RECIBOS_PROVEEDOR.ID, + RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO, + RECIBO_COMPENSADO1.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, + CASE + WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL + THEN V_REC_PRO_SITUACION.SITUACION + ELSE RECIBO_COMPENSADO2.SITUACION + END, RECIBOS_PROVEEDOR.ID_FACTURA, RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA, RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION, RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS, - RECIBOS_PROVEEDOR.IMPORTE + RECIBOS_PROVEEDOR.OTROS_GASTOS, + COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0), FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, @@ -519,7 +540,13 @@ ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID) LEFT JOIN REMESAS_PROVEEDOR -ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA); +ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA) +LEFT JOIN V_REC_PRO_COMPENSADOS +ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1 +ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) +LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2 +ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO); CREATE VIEW V_REC_CLI_COMPENSADOS ( @@ -2238,12 +2265,13 @@ SELECT EMPRESAS_DATOS_BANCO.CUENTA, EMPRESAS_DATOS_BANCO.SUFIJO_N19, EMPRESAS_DATOS_BANCO.SUFIJO_N58, - SUM(RECIBOS_PROVEEDOR.IMPORTE + RECIBOS_PROVEEDOR.OTROS_GASTOS) as IMPORTE_TOTAL + 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; diff --git a/Output/Debug/Cliente/FactuGES.exe b/Output/Debug/Cliente/FactuGES.exe index 2ea0dbee..46d59157 100644 Binary files a/Output/Debug/Cliente/FactuGES.exe and b/Output/Debug/Cliente/FactuGES.exe differ diff --git a/Output/Debug/Servidor/FactuGES_Server.exe b/Output/Debug/Servidor/FactuGES_Server.exe index 43f3a5ca..e496908a 100644 Binary files a/Output/Debug/Servidor/FactuGES_Server.exe and b/Output/Debug/Servidor/FactuGES_Server.exe differ diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Base/GUIBase/uViewBarraSeleccion.pas b/Source/Base/GUIBase/uViewBarraSeleccion.pas index facdcb74..01e7549e 100644 --- a/Source/Base/GUIBase/uViewBarraSeleccion.pas +++ b/Source/Base/GUIBase/uViewBarraSeleccion.pas @@ -5,7 +5,7 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, StdCtrls, ActnList, ExtCtrls, JvExStdCtrls, JvButton, - JvCtrls, JvFooter, JvExExtCtrls, JvComponent; + JvCtrls, JvFooter, JvExExtCtrls, JvComponent, JvExtComponent; type TfrViewBarraSeleccion = class(TfrViewBase) diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 9429ea8f..5d44d4b2 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,1,1,0 -PRODUCTVERSION 2,1,1,0 +FILEVERSION 2,1,0,0 +PRODUCTVERSION 2,1,0,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,7 +13,7 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.1.1.0\0" + VALUE "FileVersion", "2.1.0.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" VALUE "ProductVersion", "2.0.6\0" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index a317f68a..45cac629 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 06e381ef..30d7deb4 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -913,7 +913,7 @@ begin //Eliminamos todos los recibos que tuviera la factura porque sabemos que todos //estarán pendientes (solo permitiremos modificar y eliminar facturas pendientes, //parcialmente pagadas o pagadas no - ARecibos := ARecibosProveedorController.BuscarTodosFactura(AFactura.ID); + ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID); ARecibosProveedorController.EliminarTodo(ARecibos); //Vamos a generar todos los recibos necesarios para la factura diff --git a/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.pas b/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.pas index 7a22aa0d..52cef492 100644 --- a/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.pas +++ b/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.pas @@ -52,7 +52,6 @@ function TsrvInfVentasArticulo.GetData(const DatasetName: String; var ds : IDADataset; i : integer; - f:TextFile; begin result := Binary.Create; try @@ -74,11 +73,6 @@ begin for i := 0 to (Params.Count-1) do ds.ParamByName(Params[i].Name).Value := Params[i].Value; - AssignFile(f,'sql.txt'); - Append (f); - Writeln(f, ds.SQL); - CloseFile(f); - ds.Open; ServiceAdapter.WriteDataset(Result, ds, [woRows], MaxRecords); except diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index 6ba5b864..e4dfffde 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -806,7 +806,7 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente Left = 384 Top = 112 end - object tbl_RecibosCompensados: TDACDSDataTable + object tbl_RecibosCompensadosCli: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item @@ -1101,13 +1101,13 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente DetailFields = 'ID_RECIBO_COMPENSADO' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'RecibosCompensados' + LogicalName = 'RecibosCompensadosCli' IndexDefs = <> Left = 336 Top = 304 end - object ds_RecibosCompensados: TDADataSource - DataTable = tbl_RecibosCompensados + object ds_RecibosCompensadosCli: TDADataSource + DataTable = tbl_RecibosCompensadosCli Left = 336 Top = 248 end diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas index 063d9378..3fdb8887 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas @@ -46,14 +46,14 @@ type ds_RecibosCliente: TDADataSource; tbl_PagosCliente: TDACDSDataTable; ds_PagosCliente: TDADataSource; - tbl_RecibosCompensados: TDACDSDataTable; - ds_RecibosCompensados: TDADataSource; + tbl_RecibosCompensadosCli: TDACDSDataTable; + ds_RecibosCompensadosCli: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected function DarNombreGenerador(DataSetName: String): String; virtual; function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload; function _GetPagos: IBizPagosCliente; - function _GetRecibosCompensados : IBizRecibosCompensados; + function _GetRecibosCompensados : IBizRecibosCompensadosCli; public function GetNextID(const DataSetName : String) : Integer; function GetItems: IBizRecibosCliente; @@ -132,20 +132,20 @@ begin end; end; -function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensados; +function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensadosCli; var ARecibosCompensados : TDACDSDataTable; begin ShowHourglassCursor; try - ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensados); + ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosCli); with ARecibosCompensados do begin - BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOS; + BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI; DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; end; - Result := (ARecibosCompensados as IBizRecibosCompensados); + Result := (ARecibosCompensados as IBizRecibosCompensadosCli); finally HideHourglassCursor; end; diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 2c522bf4..479974b2 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -9,16 +9,16 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosCliente = '{FD980379-FB92-4C95-BE21-ED95A7016410}'; - RID_RecibosCliente_Refresh = '{E53D88F8-4685-45B7-A311-F127B59B66D3}'; - RID_PagosCliente = '{AE00696F-314E-474C-9214-B46E7E252D02}'; - RID_RecibosCompensados = '{8428AEC0-0D77-4FE7-87FF-21D267278BC4}'; + RID_RecibosCliente = '{776FD400-E6B9-4576-9F25-00B597720267}'; + RID_RecibosCliente_Refresh = '{89591B66-A8AE-46A9-AC71-AB0AB81A492F}'; + RID_PagosCliente = '{C68E4866-2A58-4CE5-BBA0-1EDB8646170C}'; + RID_RecibosCompensadosCli = '{B4FBAFB5-6C87-40F3-9BF9-D477D59971DA}'; { Data table names } nme_RecibosCliente = 'RecibosCliente'; nme_RecibosCliente_Refresh = 'RecibosCliente_Refresh'; nme_PagosCliente = 'PagosCliente'; - nme_RecibosCompensados = 'RecibosCompensados'; + nme_RecibosCompensadosCli = 'RecibosCompensadosCli'; { RecibosCliente fields } fld_RecibosClienteID = 'ID'; @@ -172,46 +172,46 @@ const idx_PagosClienteFECHA_MODIFICACION = 10; idx_PagosClienteUSUARIO = 11; - { RecibosCompensados fields } - fld_RecibosCompensadosID = 'ID'; - fld_RecibosCompensadosID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; - fld_RecibosCompensadosREFERENCIA = 'REFERENCIA'; - fld_RecibosCompensadosSITUACION = 'SITUACION'; - fld_RecibosCompensadosID_FACTURA = 'ID_FACTURA'; - fld_RecibosCompensadosFECHA_EMISION = 'FECHA_EMISION'; - fld_RecibosCompensadosFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; - fld_RecibosCompensadosIMPORTE = 'IMPORTE'; - fld_RecibosCompensadosOTROS_GASTOS = 'OTROS_GASTOS'; - fld_RecibosCompensadosIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_RecibosCompensadosFECHA_FACTURA = 'FECHA_FACTURA'; - fld_RecibosCompensadosIMPORTE_FACTURA = 'IMPORTE_FACTURA'; - fld_RecibosCompensadosID_CLIENTE = 'ID_CLIENTE'; - fld_RecibosCompensadosNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; - fld_RecibosCompensadosNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; - fld_RecibosCompensadosID_EMPRESA = 'ID_EMPRESA'; + { RecibosCompensadosCli fields } + fld_RecibosCompensadosCliID = 'ID'; + fld_RecibosCompensadosCliID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; + fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA'; + fld_RecibosCompensadosCliSITUACION = 'SITUACION'; + fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA'; + fld_RecibosCompensadosCliFECHA_EMISION = 'FECHA_EMISION'; + fld_RecibosCompensadosCliFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; + fld_RecibosCompensadosCliIMPORTE = 'IMPORTE'; + fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS'; + fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA'; + fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA'; + fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE'; + fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; + fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; + fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA'; - { RecibosCompensados field indexes } - idx_RecibosCompensadosID = 0; - idx_RecibosCompensadosID_RECIBO_COMPENSADO = 1; - idx_RecibosCompensadosREFERENCIA = 2; - idx_RecibosCompensadosSITUACION = 3; - idx_RecibosCompensadosID_FACTURA = 4; - idx_RecibosCompensadosFECHA_EMISION = 5; - idx_RecibosCompensadosFECHA_VENCIMIENTO = 6; - idx_RecibosCompensadosIMPORTE = 7; - idx_RecibosCompensadosOTROS_GASTOS = 8; - idx_RecibosCompensadosIMPORTE_TOTAL = 9; - idx_RecibosCompensadosFECHA_FACTURA = 10; - idx_RecibosCompensadosIMPORTE_FACTURA = 11; - idx_RecibosCompensadosID_CLIENTE = 12; - idx_RecibosCompensadosNOMBRE_CLIENTE = 13; - idx_RecibosCompensadosNIF_CIF_CLIENTE = 14; - idx_RecibosCompensadosID_EMPRESA = 15; + { RecibosCompensadosCli field indexes } + idx_RecibosCompensadosCliID = 0; + idx_RecibosCompensadosCliID_RECIBO_COMPENSADO = 1; + idx_RecibosCompensadosCliREFERENCIA = 2; + idx_RecibosCompensadosCliSITUACION = 3; + idx_RecibosCompensadosCliID_FACTURA = 4; + idx_RecibosCompensadosCliFECHA_EMISION = 5; + idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 6; + idx_RecibosCompensadosCliIMPORTE = 7; + idx_RecibosCompensadosCliOTROS_GASTOS = 8; + idx_RecibosCompensadosCliIMPORTE_TOTAL = 9; + idx_RecibosCompensadosCliFECHA_FACTURA = 10; + idx_RecibosCompensadosCliIMPORTE_FACTURA = 11; + idx_RecibosCompensadosCliID_CLIENTE = 12; + idx_RecibosCompensadosCliNOMBRE_CLIENTE = 13; + idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 14; + idx_RecibosCompensadosCliID_EMPRESA = 15; type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{83CC449F-496C-4FBB-9BB6-9C10149C97AB}'] + ['{C690E544-36BE-450C-8CA2-C453C7D6A23D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -408,7 +408,7 @@ type { IRecibosCliente_Refresh } IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{9A071F92-FF7C-49CC-8137-1B2B247A73E3}'] + ['{989F96EE-C6AE-403E-9A56-B01C4716E6B6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -605,7 +605,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{E9F875A0-3C24-4E16-92DB-66F7A125F1AD}'] + ['{50466FF1-7C4F-4294-98B1-39DC7589D8A8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -698,9 +698,9 @@ type end; - { IRecibosCompensados } - IRecibosCompensados = interface(IDAStronglyTypedDataTable) - ['{5EDE9B26-684C-49A4-8403-36159CB4587C}'] + { IRecibosCompensadosCli } + IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) + ['{D2E38DD6-E307-40E0-8B4A-C72B9F8D86D0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -755,8 +755,8 @@ type property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; end; - { TRecibosCompensadosDataTableRules } - TRecibosCompensadosDataTableRules = class(TDADataTableRules, IRecibosCompensados) + { TRecibosCompensadosCliDataTableRules } + TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) private protected { Property getters and setters } @@ -1557,175 +1557,175 @@ begin end; -{ TRecibosCompensadosDataTableRules } -constructor TRecibosCompensadosDataTableRules.Create(aDataTable: TDADataTable); +{ TRecibosCompensadosCliDataTableRules } +constructor TRecibosCompensadosCliDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; -destructor TRecibosCompensadosDataTableRules.Destroy; +destructor TRecibosCompensadosCliDataTableRules.Destroy; begin inherited; end; -function TRecibosCompensadosDataTableRules.GetIDValue: Integer; +function TRecibosCompensadosCliDataTableRules.GetIDValue: Integer; begin - result := DataTable.Fields[idx_RecibosCompensadosID].AsInteger; + result := DataTable.Fields[idx_RecibosCompensadosCliID].AsInteger; end; -procedure TRecibosCompensadosDataTableRules.SetIDValue(const aValue: Integer); +procedure TRecibosCompensadosCliDataTableRules.SetIDValue(const aValue: Integer); begin - DataTable.Fields[idx_RecibosCompensadosID].AsInteger := aValue; + DataTable.Fields[idx_RecibosCompensadosCliID].AsInteger := aValue; end; -function TRecibosCompensadosDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; +function TRecibosCompensadosCliDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; begin - result := DataTable.Fields[idx_RecibosCompensadosID_RECIBO_COMPENSADO].AsInteger; + result := DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsInteger; end; -procedure TRecibosCompensadosDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +procedure TRecibosCompensadosCliDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); begin - DataTable.Fields[idx_RecibosCompensadosID_RECIBO_COMPENSADO].AsInteger := aValue; + DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsInteger := aValue; end; -function TRecibosCompensadosDataTableRules.GetREFERENCIAValue: String; +function TRecibosCompensadosCliDataTableRules.GetREFERENCIAValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosREFERENCIA].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString; end; -procedure TRecibosCompensadosDataTableRules.SetREFERENCIAValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIAValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosREFERENCIA].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString := aValue; end; -function TRecibosCompensadosDataTableRules.GetSITUACIONValue: String; +function TRecibosCompensadosCliDataTableRules.GetSITUACIONValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosSITUACION].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliSITUACION].AsString; end; -procedure TRecibosCompensadosDataTableRules.SetSITUACIONValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetSITUACIONValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosSITUACION].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliSITUACION].AsString := aValue; end; -function TRecibosCompensadosDataTableRules.GetID_FACTURAValue: Integer; +function TRecibosCompensadosCliDataTableRules.GetID_FACTURAValue: Integer; begin - result := DataTable.Fields[idx_RecibosCompensadosID_FACTURA].AsInteger; + result := DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsInteger; end; -procedure TRecibosCompensadosDataTableRules.SetID_FACTURAValue(const aValue: Integer); +procedure TRecibosCompensadosCliDataTableRules.SetID_FACTURAValue(const aValue: Integer); begin - DataTable.Fields[idx_RecibosCompensadosID_FACTURA].AsInteger := aValue; + DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsInteger := aValue; end; -function TRecibosCompensadosDataTableRules.GetFECHA_EMISIONValue: DateTime; +function TRecibosCompensadosCliDataTableRules.GetFECHA_EMISIONValue: DateTime; begin - result := DataTable.Fields[idx_RecibosCompensadosFECHA_EMISION].AsDateTime; + result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime; end; -procedure TRecibosCompensadosDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime); +procedure TRecibosCompensadosCliDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime); begin - DataTable.Fields[idx_RecibosCompensadosFECHA_EMISION].AsDateTime := aValue; + DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime := aValue; end; -function TRecibosCompensadosDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; +function TRecibosCompensadosCliDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; begin - result := DataTable.Fields[idx_RecibosCompensadosFECHA_VENCIMIENTO].AsDateTime; + result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsDateTime; end; -procedure TRecibosCompensadosDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +procedure TRecibosCompensadosCliDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); begin - DataTable.Fields[idx_RecibosCompensadosFECHA_VENCIMIENTO].AsDateTime := aValue; + DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsDateTime := aValue; end; -function TRecibosCompensadosDataTableRules.GetIMPORTEValue: Currency; +function TRecibosCompensadosCliDataTableRules.GetIMPORTEValue: Currency; begin - result := DataTable.Fields[idx_RecibosCompensadosIMPORTE].AsCurrency; + result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency; end; -procedure TRecibosCompensadosDataTableRules.SetIMPORTEValue(const aValue: Currency); +procedure TRecibosCompensadosCliDataTableRules.SetIMPORTEValue(const aValue: Currency); begin - DataTable.Fields[idx_RecibosCompensadosIMPORTE].AsCurrency := aValue; + DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency := aValue; end; -function TRecibosCompensadosDataTableRules.GetOTROS_GASTOSValue: Currency; +function TRecibosCompensadosCliDataTableRules.GetOTROS_GASTOSValue: Currency; begin - result := DataTable.Fields[idx_RecibosCompensadosOTROS_GASTOS].AsCurrency; + result := DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].AsCurrency; end; -procedure TRecibosCompensadosDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency); +procedure TRecibosCompensadosCliDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency); begin - DataTable.Fields[idx_RecibosCompensadosOTROS_GASTOS].AsCurrency := aValue; + DataTable.Fields[idx_RecibosCompensadosCliOTROS_GASTOS].AsCurrency := aValue; end; -function TRecibosCompensadosDataTableRules.GetIMPORTE_TOTALValue: Currency; +function TRecibosCompensadosCliDataTableRules.GetIMPORTE_TOTALValue: Currency; begin - result := DataTable.Fields[idx_RecibosCompensadosIMPORTE_TOTAL].AsCurrency; + result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsCurrency; end; -procedure TRecibosCompensadosDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin - DataTable.Fields[idx_RecibosCompensadosIMPORTE_TOTAL].AsCurrency := aValue; + DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsCurrency := aValue; end; -function TRecibosCompensadosDataTableRules.GetFECHA_FACTURAValue: DateTime; +function TRecibosCompensadosCliDataTableRules.GetFECHA_FACTURAValue: DateTime; begin - result := DataTable.Fields[idx_RecibosCompensadosFECHA_FACTURA].AsDateTime; + result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime; end; -procedure TRecibosCompensadosDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); +procedure TRecibosCompensadosCliDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin - DataTable.Fields[idx_RecibosCompensadosFECHA_FACTURA].AsDateTime := aValue; + DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsDateTime := aValue; end; -function TRecibosCompensadosDataTableRules.GetIMPORTE_FACTURAValue: Currency; +function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency; begin - result := DataTable.Fields[idx_RecibosCompensadosIMPORTE_FACTURA].AsCurrency; + result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency; end; -procedure TRecibosCompensadosDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency); +procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency); begin - DataTable.Fields[idx_RecibosCompensadosIMPORTE_FACTURA].AsCurrency := aValue; + DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency := aValue; end; -function TRecibosCompensadosDataTableRules.GetID_CLIENTEValue: Integer; +function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer; begin - result := DataTable.Fields[idx_RecibosCompensadosID_CLIENTE].AsInteger; + result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger; end; -procedure TRecibosCompensadosDataTableRules.SetID_CLIENTEValue(const aValue: Integer); +procedure TRecibosCompensadosCliDataTableRules.SetID_CLIENTEValue(const aValue: Integer); begin - DataTable.Fields[idx_RecibosCompensadosID_CLIENTE].AsInteger := aValue; + DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger := aValue; end; -function TRecibosCompensadosDataTableRules.GetNOMBRE_CLIENTEValue: String; +function TRecibosCompensadosCliDataTableRules.GetNOMBRE_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosNOMBRE_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString; end; -procedure TRecibosCompensadosDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosNOMBRE_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliNOMBRE_CLIENTE].AsString := aValue; end; -function TRecibosCompensadosDataTableRules.GetNIF_CIF_CLIENTEValue: String; +function TRecibosCompensadosCliDataTableRules.GetNIF_CIF_CLIENTEValue: String; begin - result := DataTable.Fields[idx_RecibosCompensadosNIF_CIF_CLIENTE].AsString; + result := DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString; end; -procedure TRecibosCompensadosDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String); begin - DataTable.Fields[idx_RecibosCompensadosNIF_CIF_CLIENTE].AsString := aValue; + DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsString := aValue; end; -function TRecibosCompensadosDataTableRules.GetID_EMPRESAValue: Integer; +function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer; begin - result := DataTable.Fields[idx_RecibosCompensadosID_EMPRESA].AsInteger; + result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger; end; -procedure TRecibosCompensadosDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin - DataTable.Fields[idx_RecibosCompensadosID_EMPRESA].AsInteger := aValue; + DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue; end; @@ -1733,6 +1733,6 @@ initialization RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules); RegisterDataTableRules(RID_RecibosCliente_Refresh, TRecibosCliente_RefreshDataTableRules); RegisterDataTableRules(RID_PagosCliente, TPagosClienteDataTableRules); - RegisterDataTableRules(RID_RecibosCompensados, TRecibosCompensadosDataTableRules); + RegisterDataTableRules(RID_RecibosCompensadosCli, TRecibosCompensadosCliDataTableRules); end. diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index 98b21046..de2dd485 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,15 +9,15 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_RecibosClienteDelta = '{7A5E3980-065D-4A44-81E9-FEAF2A9517B0}'; - RID_RecibosCliente_RefreshDelta = '{230B49D3-C4EF-4C00-8E40-01BD41E95CE4}'; - RID_PagosClienteDelta = '{B4C052F8-CA65-4803-877C-195E8157E026}'; - RID_RecibosCompensadosDelta = '{60128DBB-E8CE-4940-994C-31429569D3E3}'; + RID_RecibosClienteDelta = '{09AF765A-9893-4609-B0F9-5AA658615091}'; + RID_RecibosCliente_RefreshDelta = '{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}'; + RID_PagosClienteDelta = '{7ACA6F74-1324-4784-A37A-599EF8940690}'; + RID_RecibosCompensadosCliDelta = '{BA198B66-278F-4056-B312-5D0476D48275}'; type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{7A5E3980-065D-4A44-81E9-FEAF2A9517B0}'] + ['{09AF765A-9893-4609-B0F9-5AA658615091}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -242,7 +242,7 @@ type { IRecibosCliente_RefreshDelta } IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh) - ['{230B49D3-C4EF-4C00-8E40-01BD41E95CE4}'] + ['{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -467,7 +467,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{B4C052F8-CA65-4803-877C-195E8157E026}'] + ['{7ACA6F74-1324-4784-A37A-599EF8940690}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -571,9 +571,9 @@ type end; - { IRecibosCompensadosDelta } - IRecibosCompensadosDelta = interface(IRecibosCompensados) - ['{60128DBB-E8CE-4940-994C-31429569D3E3}'] + { IRecibosCompensadosCliDelta } + IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) + ['{BA198B66-278F-4056-B312-5D0476D48275}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -611,8 +611,8 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; end; - { TRecibosCompensadosBusinessProcessorRules } - TRecibosCompensadosBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensados, IRecibosCompensadosDelta) + { TRecibosCompensadosCliBusinessProcessorRules } + TRecibosCompensadosCliBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosCli, IRecibosCompensadosCliDelta) private protected { Property getters and setters } @@ -1796,255 +1796,255 @@ begin end; -{ TRecibosCompensadosBusinessProcessorRules } -constructor TRecibosCompensadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +{ TRecibosCompensadosCliBusinessProcessorRules } +constructor TRecibosCompensadosCliBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; -destructor TRecibosCompensadosBusinessProcessorRules.Destroy; +destructor TRecibosCompensadosCliBusinessProcessorRules.Destroy; begin inherited; end; -function TRecibosCompensadosBusinessProcessorRules.GetIDValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetIDValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldIDValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIDValue: Integer; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetIDValue(const aValue: Integer); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIDValue(const aValue: Integer); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetREFERENCIAValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosREFERENCIA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldREFERENCIAValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIAValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosREFERENCIA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosREFERENCIA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetSITUACIONValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetSITUACIONValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosSITUACION]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldSITUACIONValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldSITUACIONValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosSITUACION]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSITUACION]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetSITUACIONValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosSITUACION] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSITUACION] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetID_FACTURAValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetID_FACTURAValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_FACTURA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_FACTURAValue: Integer; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_FACTURA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_FACTURA]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_FACTURA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; +function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_EMISION]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_EMISION]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_EMISION]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_EMISION] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; +function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetIMPORTEValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTEValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTEValue: Currency; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetOTROS_GASTOSValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetOTROS_GASTOSValue: Currency; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosOTROS_GASTOS]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosOTROS_GASTOS]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOTROS_GASTOS]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosOTROS_GASTOS] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOTROS_GASTOS] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_TOTAL]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE_TOTAL]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_TOTAL] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; +function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_FACTURA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_FACTURA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_FACTURA]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_FACTURA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_FACTURA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE_FACTURA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_FACTURA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetID_CLIENTEValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_CLIENTE]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNOMBRE_CLIENTE] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := aValue; end; -function TRecibosCompensadosBusinessProcessorRules.GetID_EMPRESAValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_EMPRESA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]; end; -function TRecibosCompensadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_EMPRESA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]; end; -procedure TRecibosCompensadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_EMPRESA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue; end; @@ -2052,6 +2052,6 @@ initialization RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosCliente_RefreshDelta, TRecibosCliente_RefreshBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RecibosCompensadosDelta, TRecibosCompensadosBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_RecibosCompensadosCliDelta, TRecibosCompensadosCliBusinessProcessorRules); end. diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas index cfea78a8..f64ac8d0 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas @@ -31,14 +31,14 @@ uses const BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente'; - BIZ_CLIENT_RECIBOS_COMPENSADOS = 'Client.RecibosCompensados'; + BIZ_CLIENT_RECIBOS_COMPENSADOSCLI = 'Client.RecibosCompensadosCli'; CTE_PENDIENTE = 'PENDIENTE'; CTE_COBRADO = 'COBRADO'; CTE_DEVUELTO = 'DEVUELTO'; type - IBizRecibosCompensados = interface(IRecibosCompensados) + IBizRecibosCompensadosCli = interface(IRecibosCompensadosCli) ['{F9C18EAC-6769-428C-ABFB-AD6639F413D9}'] end; @@ -60,19 +60,19 @@ type function GetPagos : IBizPagosCliente; property Pagos : IBizPagosCliente read GetPagos write SetPagos; - function GetRecibosCompensados: IBizRecibosCompensados; - procedure SetRecibosCompensados(const Value: IBizRecibosCompensados); - property RecibosCompensados: IBizRecibosCompensados read GetRecibosCompensados write SetRecibosCompensados; + function GetRecibosCompensados: IBizRecibosCompensadosCli; + procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli); + property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados; end; - TBizRecibosCompensados = class(TRecibosCompensadosDataTableRules, IBizRecibosCompensados) + TBizRecibosCompensadosCli = class(TRecibosCompensadosCliDataTableRules, IBizRecibosCompensadosCli) end; TBizRecibosCliente = class(TRecibosClienteDataTableRules, IBizRecibosCliente, ISeleccionable) protected FPagos : IBizPagosCliente; FPagosLink : TDADataSource; - FRecibosCompensados: IBizRecibosCompensados; + FRecibosCompensados: IBizRecibosCompensadosCli; FRecibosCompensadosLink : TDADataSource; FCliente : IBizCliente; FSeleccionableInterface : ISeleccionable; @@ -90,14 +90,14 @@ type procedure SetPagos(AValue : IBizPagosCliente); function GetPagos : IBizPagosCliente; - function GetRecibosCompensados: IBizRecibosCompensados; - procedure SetRecibosCompensados(const Value: IBizRecibosCompensados); + function GetRecibosCompensados: IBizRecibosCompensadosCli; + procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosCli); procedure OnNewRecord(Sender: TDADataTable); override; procedure SetID_REMESAValue(const aValue: Integer); override; public - property RecibosCompensados: IBizRecibosCompensados read GetRecibosCompensados write SetRecibosCompensados; + property RecibosCompensados: IBizRecibosCompensadosCli read GetRecibosCompensados write SetRecibosCompensados; property Pagos : IBizPagosCliente read GetPagos write SetPagos; property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface @@ -127,7 +127,7 @@ begin Result := FPagos; end; -function TBizRecibosCliente.GetRecibosCompensados: IBizRecibosCompensados; +function TBizRecibosCliente.GetRecibosCompensados: IBizRecibosCompensadosCli; begin Result := FRecibosCompensados; end; @@ -146,7 +146,7 @@ procedure TBizRecibosCliente.SetPagos(AValue: IBizPagosCliente); EnlazarMaestroDetalle(FPagosLink, FPagos); end; -procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompensados); +procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompensadosCli); begin FRecibosCompensados := Value; EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados); @@ -212,7 +212,7 @@ end; initialization RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSCLIENTE, TBizRecibosCliente); - RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOS, TBizRecibosCompensados); + RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSCLI, TBizRecibosCompensadosCli); finalization diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index c5eda493..53d71304 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -1208,7 +1208,7 @@ object srvRecibosCliente: TsrvRecibosCliente TableField = 'ID' end> end> - Name = 'RecibosCompensados' + Name = 'RecibosCompensadosCli' Fields = < item Name = 'ID' @@ -1804,7 +1804,7 @@ object srvRecibosCliente: TsrvRecibosCliente StatementType = stSQL ColumnMappings = <> end> - Name = 'Insert_RecibosCompensados' + Name = 'Insert_RecibosCompensadosCli' end item Params = < @@ -1825,7 +1825,7 @@ object srvRecibosCliente: TsrvRecibosCliente StatementType = stSQL ColumnMappings = <> end> - Name = 'Delete_RecibosCompensados' + Name = 'Delete_RecibosCompensadosCli' end item Params = < @@ -1853,7 +1853,7 @@ object srvRecibosCliente: TsrvRecibosCliente StatementType = stSQL ColumnMappings = <> end> - Name = 'Update_RecibosCompensados' + Name = 'Update_RecibosCompensadosCli' end> RelationShips = <> UpdateRules = < @@ -2477,10 +2477,10 @@ object srvRecibosCliente: TsrvRecibosCliente end object bpRecibosCompensados: TDABusinessProcessor Schema = schRecibosCliente - InsertCommandName = 'Insert_RecibosCompensados' - DeleteCommandName = 'Delete_RecibosCompensados' - UpdateCommandName = 'Update_RecibosCompensados' - ReferencedDataset = 'RecibosCompensados' + InsertCommandName = 'Insert_RecibosCompensadosCli' + DeleteCommandName = 'Delete_RecibosCompensadosCli' + UpdateCommandName = 'Update_RecibosCompensadosCli' + ReferencedDataset = 'RecibosCompensadosCli' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 192 diff --git a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk index 96df6caf..f89216b2 100644 --- a/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk +++ b/Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk @@ -96,7 +96,7 @@ contains uEditorElegirRecibosCliente in 'uEditorElegirRecibosCliente.pas' {fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente}, uEditorFechaPago in 'uEditorFechaPago.pas' {fEditorFechaPago}, uEditorReciboClienteReport in 'uEditorReciboClienteReport.pas' {fEditorReciboClienteReport: TfEditorReciboClienteReport}, - uViewRecibosCompensados in 'uViewRecibosCompensados.pas' {frViewRecibosCompensados: TFrame}, - uViewReciboImportes in 'uViewReciboImportes.pas' {frViewReciboImportes: TFrame}; + uViewRecibosCliCompensados in 'uViewRecibosCliCompensados.pas' {frViewRecibosCliCompensados: TFrame}, + uViewReciboCliImportes in 'uViewReciboCliImportes.pas' {frViewReciboCliImportes: TFrame}; end. diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index 00d84f0c..5489318c 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -3,7 +3,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ClientHeight = 530 ClientWidth = 691 OnClose = CustomEditorClose - ExplicitLeft = -64 + ExplicitTop = -89 ExplicitWidth = 699 ExplicitHeight = 564 PixelsPerInch = 96 @@ -238,7 +238,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente object pagCompensados: TTabSheet Caption = 'Recibos compensados' ImageIndex = 1 - inline frViewRecibosCompensados1: TfrViewRecibosCompensados + inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados Left = 0 Top = 0 Width = 683 @@ -264,7 +264,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente item Format = ',0.00 '#8364';-,0.00 '#8364 Kind = skSum - Column = frViewRecibosCompensados1.cxGridViewIMPORTE_TOTAL + Column = frViewRecibosCliCompensados1.cxGridViewIMPORTE_TOTAL end> DataController.Summary.OnAfterSummary = frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary end @@ -272,6 +272,24 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited ToolBar1: TToolBar Width = 683 ExplicitWidth = 683 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton3: TToolButton + ExplicitWidth = 98 + end + inherited ToolButton8: TToolButton + ExplicitWidth = 99 + end end end end @@ -286,7 +304,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitTop = 511 ExplicitWidth = 691 end - inline frViewReciboImportes1: TfrViewReciboImportes [4] + inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4] Left = 0 Top = 411 Width = 691 @@ -306,15 +324,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Width = 691 ExplicitWidth = 691 inherited eImporte: TcxDBCurrencyEdit - DataBinding.DataSource = dsDataTable - Properties.OnEditValueChanged = frViewReciboImportes1eImportePropertiesEditValueChanged + Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged ExplicitWidth = 150 Width = 150 end - inherited eOtrosGastos: TcxDBCurrencyEdit - DataBinding.DataSource = dsDataTable - Properties.OnEditValueChanged = frViewReciboImportes1eImportePropertiesEditValueChanged - end inherited eImporteTotalRecibo: TcxCurrencyEdit ExplicitWidth = 183 Width = 183 diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index eea947b2..84e34ca3 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -10,7 +10,7 @@ uses pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboCliente, uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController, uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData, - uViewDetallesGenerico, uViewRecibosCompensados, uViewReciboImportes; + uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados; type TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente) @@ -19,8 +19,8 @@ type pagCompensados: TTabSheet; pagPagos: TTabSheet; frViewPagosCliente1: TfrViewPagosCliente; - frViewReciboImportes1: TfrViewReciboImportes; - frViewRecibosCompensados1: TfrViewRecibosCompensados; + frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados; + frViewReciboCliImportes1: TfrViewReciboCliImportes; procedure FormShow(Sender: TObject); procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); @@ -37,7 +37,7 @@ type procedure DeshabilitarRecibo; procedure JvFormStorageRestorePlacement(Sender: TObject); procedure JvFormStorageSavePlacement(Sender: TObject); - procedure frViewReciboImportes1eImportePropertiesEditValueChanged(Sender: TObject); + procedure frViewReciboCliImportes1eImportePropertiesEditValueChanged(Sender: TObject); procedure frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary); procedure frViewPagosCliente1actAnadirUpdate(Sender: TObject); @@ -80,10 +80,10 @@ var begin ImporteAux := 0; - if not VarIsNull(frViewRecibosCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then - ImporteAux := frViewRecibosCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]; + if not VarIsNull(frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then + ImporteAux := frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]; - frViewReciboImportes1.eImporteTotalRecibo.Value := frViewReciboImportes1.eImporte.Value + frViewReciboImportes1.eOtrosGastos.Value + ImporteAux; + frViewReciboCliImportes1.eImporteTotalRecibo.Value := frViewReciboCliImportes1.eImporte.Value + frViewReciboCliImportes1.eOtrosGastos.Value + ImporteAux; end; constructor TfEditorReciboCliente.Create(AOwner: TComponent); @@ -106,8 +106,8 @@ end; procedure TfEditorReciboCliente.DeshabilitarRecibo; begin frViewReciboCliente1.edtFechaVencimiento.Enabled := False; - frViewReciboImportes1.eImporte.Enabled := False; - frViewReciboImportes1.eOtrosGastos.Enabled := False; + frViewReciboCliImportes1.eImporte.Enabled := False; + frViewReciboCliImportes1.eOtrosGastos.Enabled := False; end; procedure TfEditorReciboCliente.dsDataTableDataChange(Sender: TObject; Field: TField); @@ -207,15 +207,15 @@ procedure TfEditorReciboCliente.frViewReciboCliente1eImportePropertiesValidate( begin inherited; - if (DisplayValue > frViewReciboImportes1.eImporte.DataBinding.Field.Value) then + if (DisplayValue > frViewReciboCliImportes1.eImporte.DataBinding.Field.Value) then begin - DisplayValue := frViewReciboImportes1.eImporte.DataBinding.Field.Value; + DisplayValue := frViewReciboCliImportes1.eImporte.DataBinding.Field.Value; ErrorText := 'El importe debe ser menor o igual que el actual'; Error := True; end; end; -procedure TfEditorReciboCliente.frViewReciboImportes1eImportePropertiesEditValueChanged( +procedure TfEditorReciboCliente.frViewReciboCliImportes1eImportePropertiesEditValueChanged( Sender: TObject); begin inherited; @@ -256,8 +256,8 @@ begin if (Length(FRecibo.REFERENCIA_REMESA) = 0) then begin frViewReciboCliente1.edtFechaVencimiento.Enabled := True; - frViewReciboImportes1.eImporte.Enabled := True; - frViewReciboImportes1.eOtrosGastos.Enabled := True; + frViewReciboCliImportes1.eImporte.Enabled := True; + frViewReciboCliImportes1.eOtrosGastos.Enabled := True; end; end; @@ -310,7 +310,7 @@ procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteContro begin FController := Value; if Assigned(FController) then - frViewRecibosCompensados1.Controller := FController; + frViewRecibosCliCompensados1.Controller := FController; // (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController); end; @@ -323,7 +323,7 @@ begin begin FViewRecibo.Recibo := Recibo; frViewPagosCliente1.Pagos := Recibo.Pagos; - frViewRecibosCompensados1.ReciboCliente := FRecibo; + frViewRecibosCliCompensados1.ReciboCliente := FRecibo; if (FRecibo.SITUACION = CTE_COBRADO) then DeshabilitarRecibo diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm index bcc1d626..92b4ba8d 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm @@ -189,7 +189,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente object dxLayoutControl2Group1: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient - Caption = 'Lista de pagos' + Caption = 'Pagos y devoluciones del recibo' object dxLayoutControl2Item1: TdxLayoutItem Caption = 'New Item' ShowCaption = False diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm similarity index 94% rename from Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.dfm rename to Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm index e4ee0c11..445cafba 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm @@ -1,5 +1,5 @@ -inherited frViewReciboImportes: TfrViewReciboImportes - Width = 558 +inherited frViewReciboCliImportes: TfrViewReciboCliImportes + Width = 451 Height = 100 Align = alBottom ExplicitWidth = 451 @@ -8,7 +8,7 @@ inherited frViewReciboImportes: TfrViewReciboImportes AlignWithMargins = True Left = 0 Top = 0 - Width = 558 + Width = 451 Height = 217 Margins.Left = 0 Margins.Top = 0 @@ -18,7 +18,6 @@ inherited frViewReciboImportes: TfrViewReciboImportes ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] - ExplicitWidth = 451 object eImporte: TcxDBCurrencyEdit Left = 93 Top = 28 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas similarity index 90% rename from Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.pas rename to Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas index 71b7d53f..ce1327a5 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas @@ -1,4 +1,4 @@ -unit uViewReciboImportes; +unit uViewReciboCliImportes; interface @@ -11,7 +11,7 @@ uses cxDBLookupComboBox, cxCheckBox; type - TfrViewReciboImportes = class(TfrViewBase) + TfrViewReciboCliImportes = class(TfrViewBase) dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1: TdxLayoutControl; dxLayoutControl1Group1: TdxLayoutGroup; diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm similarity index 97% rename from Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.dfm rename to Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm index 17b62794..ae5d984a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm @@ -1,4 +1,4 @@ -inherited frViewRecibosCompensados: TfrViewRecibosCompensados +inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados Width = 549 Height = 376 OnShow = CustomViewShow diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas similarity index 76% rename from Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.pas rename to Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas index 38deeb9d..5505638a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas @@ -1,4 +1,4 @@ -unit uViewRecibosCompensados; +unit uViewRecibosCliCompensados; interface @@ -24,7 +24,7 @@ type property Controller : IRecibosClienteController read GetController write SetController; end; - TfrViewRecibosCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados) + TfrViewRecibosCliCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados) actExpandir: TAction; actContraer: TAction; ToolButton3: TToolButton; @@ -80,25 +80,25 @@ uses { TfrViewFacturasReciboCliente } -procedure TfrViewRecibosCompensados.actAnadirUpdate(Sender: TObject); +procedure TfrViewRecibosCliCompensados.actAnadirUpdate(Sender: TObject); begin inherited; (Sender as TAction).Enabled := (ReciboCliente.SITUACION <> CTE_COBRADO); end; -procedure TfrViewRecibosCompensados.actContraerExecute(Sender: TObject); +procedure TfrViewRecibosCliCompensados.actContraerExecute(Sender: TObject); begin inherited; cxGridView.ViewData.Collapse(True); end; -procedure TfrViewRecibosCompensados.actContraerUpdate(Sender: TObject); +procedure TfrViewRecibosCliCompensados.actContraerUpdate(Sender: TObject); begin inherited; (Sender as TAction).Enabled := HayDatos; end; -procedure TfrViewRecibosCompensados.actEliminarUpdate(Sender: TObject); +procedure TfrViewRecibosCliCompensados.actEliminarUpdate(Sender: TObject); begin inherited; (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0) @@ -106,43 +106,43 @@ begin and (ReciboCliente.SITUACION <> CTE_COBRADO)); end; -procedure TfrViewRecibosCompensados.actExpandirExecute(Sender: TObject); +procedure TfrViewRecibosCliCompensados.actExpandirExecute(Sender: TObject); begin inherited; cxGridView.ViewData.Expand(True); end; -procedure TfrViewRecibosCompensados.actExpandirUpdate(Sender: TObject); +procedure TfrViewRecibosCliCompensados.actExpandirUpdate(Sender: TObject); begin inherited; (Sender as TAction).Enabled := HayDatos; end; -procedure TfrViewRecibosCompensados.AnadirInterno; +procedure TfrViewRecibosCliCompensados.AnadirInterno; begin //inherited; // No hacer el comportamiento normal if FController.ElegirRecibosCompensados(ReciboCliente) then Modified := True; end; -constructor TfrViewRecibosCompensados.Create(AOwner: TComponent); +constructor TfrViewRecibosCliCompensados.Create(AOwner: TComponent); begin inherited; FHayCambios := False; end; -procedure TfrViewRecibosCompensados.CustomViewShow(Sender: TObject); +procedure TfrViewRecibosCliCompensados.CustomViewShow(Sender: TObject); begin inherited; cxGridView.OptionsSelection.MultiSelect := False; end; -destructor TfrViewRecibosCompensados.Destroy; +destructor TfrViewRecibosCliCompensados.Destroy; begin inherited; end; -procedure TfrViewRecibosCompensados.EliminarInterno; +procedure TfrViewRecibosCliCompensados.EliminarInterno; begin if cxGridView.Controller.SelectedRowCount > 0 then if cxGridView.Controller.SelectedRows[0].HasCells then @@ -151,34 +151,34 @@ begin Modified := True; end; -function TfrViewRecibosCompensados.GetController: IRecibosClienteController; +function TfrViewRecibosCliCompensados.GetController: IRecibosClienteController; begin Result := FController; end; -function TfrViewRecibosCompensados.GetModified: Boolean; +function TfrViewRecibosCliCompensados.GetModified: Boolean; begin Result := FHayCambios or inherited GetModified; end; -function TfrViewRecibosCompensados.GetReciboCliente: IBizRecibosCliente; +function TfrViewRecibosCliCompensados.GetReciboCliente: IBizRecibosCliente; begin Result := FReciboCliente; end; -procedure TfrViewRecibosCompensados.SetController( +procedure TfrViewRecibosCliCompensados.SetController( const Value: IRecibosClienteController); begin FController := Value; end; -procedure TfrViewRecibosCompensados.SetModified(const Value: Boolean); +procedure TfrViewRecibosCliCompensados.SetModified(const Value: Boolean); begin FHayCambios := Value; inherited; end; -procedure TfrViewRecibosCompensados.SetReciboCliente(const Value: IBizRecibosCliente); +procedure TfrViewRecibosCliCompensados.SetReciboCliente(const Value: IBizRecibosCliente); begin FReciboCliente := Value; FHayCambios := False; diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index 5133e648..778d325a 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -50,21 +50,25 @@ type function Nuevo : IBizRecibosProveedor; procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor); function Buscar(const ID: Integer): IBizRecibosProveedor; - function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; - function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; function BuscarTodos: IBizRecibosProveedor; - function BuscarTodosPendientesDevueltos: IBizRecibosProveedor; + + function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; + function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; + function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor; + function BuscarRecibosARemesar: IBizRecibosProveedor; + procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor); procedure Ver(ARecibosProveedor: IBizRecibosProveedor); - function Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion:String): Boolean; - function DarListaRecibosProveedor: TStringList; function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor; procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; - + + function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean; + procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); + procedure Preview(ARecibosProveedor : IBizRecibosProveedor); procedure Print(ARecibosProveedor : IBizRecibosProveedor); end; @@ -104,21 +108,27 @@ type procedure DescartarCambios(ARecibosProveedor : IBizRecibosProveedor); function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor; function Nuevo : IBizRecibosProveedor; + function Buscar(const ID: Integer): IBizRecibosProveedor; - function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; - function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; function BuscarTodos: IBizRecibosProveedor; - function BuscarTodosPendientesDevueltos: IBizRecibosProveedor; + + function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; + function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; + function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor; + function BuscarRecibosARemesar: IBizRecibosProveedor; + procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor); procedure Ver(ARecibosProveedor: IBizRecibosProveedor); - function Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion:String): Boolean; - function DarListaRecibosProveedor: TStringList; + function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor; + function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; + function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean; procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); + procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); + procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); - function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; procedure Preview(ARecibosProveedor : IBizRecibosProveedor); procedure Print(ARecibosProveedor : IBizRecibosProveedor); @@ -258,7 +268,7 @@ begin Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID); end; -function TRecibosProveedorController.BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; +function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; begin ShowHourglassCursor; try @@ -276,7 +286,33 @@ begin end; end; -function TRecibosProveedorController.BuscarTodosPendientesDevueltos: IBizRecibosProveedor; +function TRecibosProveedorController.BuscarRecibosACompensar( + const Recibo: IBizRecibosProveedor): IBizRecibosProveedor; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + + //Omitimos los recibos compensados + OpenBraket; + AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL '); + CloseBraket; + AddOperator(opAND); + //Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos) + OpenBraket; + AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + ''''); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +function TRecibosProveedorController.BuscarRecibosARemesar: IBizRecibosProveedor; begin ShowHourglassCursor; try @@ -295,7 +331,7 @@ begin end; end; -function TRecibosProveedorController.BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; +function TRecibosProveedorController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; begin ShowHourglassCursor; try @@ -318,28 +354,6 @@ begin Result := Buscar(ID_NULO); end; -function TRecibosProveedorController.DarListaRecibosProveedor: TStringList; -var - ARecibosProveedor: IBizRecibosProveedor; -begin - ARecibosProveedor := BuscarTodos; - ARecibosProveedor.DataTable.Active := True; - Result := TStringList.Create; - try - with Result do - begin - ARecibosProveedor.DataTable.First; - while not ARecibosProveedor.DataTable.EOF do - begin - Add(ARecibosProveedor.DESCRIPCION); - ARecibosProveedor.DataTable.Next; - end; - end; - finally - ARecibosProveedor := NIL; - end; -end; - function TRecibosProveedorController.DarNuevaReferencia(ID_FACTURA: Integer; REFERENCIA: String): String; var ARecibosProveedor: IBizRecibosProveedor; @@ -347,7 +361,7 @@ var Cadena : String; begin try - ARecibosProveedor := BuscarTodosFactura(ID_FACTURA); + ARecibosProveedor := BuscarRecibosFactura(ID_FACTURA); ARecibosProveedor.DataTable.Active := True; NumReferencia := ARecibosProveedor.DataTable.RecordCount; Cadena := Copy(REFERENCIA, 0, Pos('-', REFERENCIA)); @@ -521,6 +535,25 @@ begin end; end; +function TRecibosProveedorController.ElegirRecibosCompensados(ARecibo: IBizRecibosProveedor): Boolean; +var + ARecibosACompensar: IBizRecibosProveedor; +begin + ARecibosACompensar := Self.ElegirRecibos(BuscarRecibosACompensar(ARecibo), 'Elija los recibos que desea compensar', True); + + if Assigned(ARecibosACompensar) then + begin + ShowHourglassCursor; + try + DuplicarRegistros(ARecibosACompensar.DataTable, ARecibo.RecibosCompensados.DataTable, mdrTodos, True, True, False); + Result := True; + finally + HideHourglassCursor; + ARecibosACompensar := Nil; + end; + end; +end; + function TRecibosProveedorController.Eliminar(ARecibosProveedor: IBizRecibosProveedor): Boolean; begin Result := False; @@ -664,24 +697,6 @@ begin end; end; -function TRecibosProveedorController.Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion: String): Boolean; -begin - Result := True; - ShowHourglassCursor; - try - with ARecibosProveedor.DataTable do - begin - DisableControls; - First; - if not Locate(fld_RecibosProveedorDESCRIPCION, ADescripcion, []) then - Result := False; - EnableControls; - end; - finally - HideHourglassCursor; - end; -end; - procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor); var AEditor : IEditorFechaPagoProveedor; @@ -746,6 +761,20 @@ begin end; end; +procedure TRecibosProveedorController.QuitarReciboCompensado(ARecibo: IBizRecibosProveedor); +var + IdRecibo: Variant; +begin + IdRecibo := ARecibo.RecibosCompensados.ID; + + ARecibo.RecibosCompensados.DataTable.First; + while ARecibo.RecibosCompensados.DataTable.Locate('ID', IdRecibo,[]) do + begin + ARecibo.RecibosCompensados.DataTable.Delete; + ARecibo.RecibosCompensados.DataTable.First; + end; +end; + procedure TRecibosProveedorController.QuitarRemesa(ARecibos: IBizRecibosProveedor); begin if Assigned(ARecibos) then diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm index 052b624b..3eda0753 100644 --- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm @@ -66,7 +66,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor ProbeServers = False ProbeFrequency = 60000 UserAgent = 'RemObjects SDK' - TargetURL = 'http://localhost:8099/bin' + TargetURL = 'http://localhost:8090/bin' Left = 48 Top = 272 end @@ -360,6 +360,33 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor Lookup = False LookupCache = False end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'REFERENCIA' DataType = datString @@ -815,4 +842,292 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor Left = 232 Top = 136 end + object tbl_RecibosCompensadosProv: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_FACTURA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = < + item + Name = 'ID' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + MasterMappingMode = mmParams + MasterParamsMappings.Strings = ( + 'ID=ID') + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'RecibosCompensadosProv' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'RecibosCompensadosProv' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'RecibosCompensadosProv' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + MasterSource = ds_RecibosProveedor + MasterFields = 'ID' + DetailFields = 'ID_RECIBO_COMPENSADO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'RecibosCompensadosProv' + IndexDefs = <> + Left = 320 + Top = 312 + end + object ds_RecibosCompensadosProv: TDADataSource + DataTable = tbl_RecibosCompensadosProv + Left = 320 + Top = 256 + end end diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas index d9169ca9..c4103d0c 100644 --- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas @@ -46,11 +46,14 @@ type ds_PagosProveedor: TDADataSource; tbl_RecibosProveedor: TDACDSDataTable; ds_RecibosProveedor: TDADataSource; + tbl_RecibosCompensadosProv: TDACDSDataTable; + ds_RecibosCompensadosProv: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected function DarNombreGenerador(DataSetName: String): String; virtual; function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload; function _GetPagos: IBizPagosProveedor; + function _GetRecibosCompensados : IBizRecibosCompensadosProv; public function GetNextID(const DataSetName : String) : Integer; function GetItems: IBizRecibosProveedor; @@ -129,6 +132,25 @@ begin end; end; +function TDataModuleRecibosProveedor._GetRecibosCompensados: IBizRecibosCompensadosProv; +var + ARecibosCompensados : TDACDSDataTable; +begin + ShowHourglassCursor; + try + ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosProv); + with ARecibosCompensados do + begin + BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSPROV; + DetailOptions := DetailOptions - + [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (ARecibosCompensados as IBizRecibosCompensadosProv); + finally + HideHourglassCursor; + end; +end; + function TDataModuleRecibosProveedor.GetItems: IBizRecibosProveedor; var AIBizRecibosProveedor : TDACDSDataTable; @@ -141,6 +163,9 @@ begin with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do Pagos := _GetPagos; + with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do + RecibosCompensados := _GetRecibosCompensados; + Result := (AIBizRecibosProveedor as IBizRecibosProveedor); finally HideHourglassCursor; diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index d0725855..8aa50153 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas @@ -9,17 +9,57 @@ 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_RecibosProveedor = '{2FD8CE2A-3931-4327-8A27-7B090B6260DD}'; - RID_RecibosProveedor_Refresh = '{93C0F413-C971-469C-BD3A-6B4895AAB0F6}'; - RID_PagosProveedor = '{C13001E4-337A-4CAF-8ACF-25094F0F36FD}'; + RID_RecibosCompensadosProv = '{63570371-F94E-4DAD-A5D6-3615FADEBAD4}'; + RID_RecibosProveedor = '{01D52742-DC1E-482F-A9A8-772A8B7FD75D}'; + RID_RecibosProveedor_Refresh = '{5F724DAB-29AB-4E61-BDC2-C3F476CF30F0}'; + RID_PagosProveedor = '{6B536629-405F-46A8-9008-9871D317EE04}'; { Data table names } + nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosProveedor = 'RecibosProveedor'; nme_RecibosProveedor_Refresh = 'RecibosProveedor_Refresh'; nme_PagosProveedor = 'PagosProveedor'; + { RecibosCompensadosProv fields } + fld_RecibosCompensadosProvID = 'ID'; + fld_RecibosCompensadosProvID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; + fld_RecibosCompensadosProvREFERENCIA = 'REFERENCIA'; + fld_RecibosCompensadosProvSITUACION = 'SITUACION'; + fld_RecibosCompensadosProvID_FACTURA = 'ID_FACTURA'; + fld_RecibosCompensadosProvFECHA_EMISION = 'FECHA_EMISION'; + fld_RecibosCompensadosProvFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; + fld_RecibosCompensadosProvIMPORTE = 'IMPORTE'; + fld_RecibosCompensadosProvOTROS_GASTOS = 'OTROS_GASTOS'; + fld_RecibosCompensadosProvIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RecibosCompensadosProvFECHA_FACTURA = 'FECHA_FACTURA'; + fld_RecibosCompensadosProvIMPORTE_FACTURA = 'IMPORTE_FACTURA'; + fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR'; + fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; + fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR'; + fld_RecibosCompensadosProvID_EMPRESA = 'ID_EMPRESA'; + + { RecibosCompensadosProv field indexes } + idx_RecibosCompensadosProvID = 0; + idx_RecibosCompensadosProvID_RECIBO_COMPENSADO = 1; + idx_RecibosCompensadosProvREFERENCIA = 2; + idx_RecibosCompensadosProvSITUACION = 3; + idx_RecibosCompensadosProvID_FACTURA = 4; + idx_RecibosCompensadosProvFECHA_EMISION = 5; + idx_RecibosCompensadosProvFECHA_VENCIMIENTO = 6; + idx_RecibosCompensadosProvIMPORTE = 7; + idx_RecibosCompensadosProvOTROS_GASTOS = 8; + idx_RecibosCompensadosProvIMPORTE_TOTAL = 9; + idx_RecibosCompensadosProvFECHA_FACTURA = 10; + idx_RecibosCompensadosProvIMPORTE_FACTURA = 11; + idx_RecibosCompensadosProvID_PROVEEDOR = 12; + idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 13; + idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 14; + idx_RecibosCompensadosProvID_EMPRESA = 15; + { RecibosProveedor fields } fld_RecibosProveedorID = 'ID'; + fld_RecibosProveedorID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; + fld_RecibosProveedorREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO'; fld_RecibosProveedorREFERENCIA = 'REFERENCIA'; fld_RecibosProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_RecibosProveedorSITUACION = 'SITUACION'; @@ -51,37 +91,41 @@ const { RecibosProveedor field indexes } idx_RecibosProveedorID = 0; - idx_RecibosProveedorREFERENCIA = 1; - idx_RecibosProveedorREFERENCIA_PROVEEDOR = 2; - idx_RecibosProveedorSITUACION = 3; - idx_RecibosProveedorID_FACTURA = 4; - idx_RecibosProveedorID_REMESA = 5; - idx_RecibosProveedorREFERENCIA_REMESA = 6; - idx_RecibosProveedorFECHA_EMISION = 7; - idx_RecibosProveedorFECHA_VENCIMIENTO = 8; - idx_RecibosProveedorDESCRIPCION = 9; - idx_RecibosProveedorOBSERVACIONES = 10; - idx_RecibosProveedorIMPORTE = 11; - idx_RecibosProveedorOTROS_GASTOS = 12; - idx_RecibosProveedorIMPORTE_TOTAL = 13; - idx_RecibosProveedorFECHA_FACTURA = 14; - idx_RecibosProveedorREFERENCIA_FACTURA_PROV = 15; - idx_RecibosProveedorFORMA_PAGO_FACTURA = 16; - idx_RecibosProveedorIMPORTE_FACTURA = 17; - idx_RecibosProveedorID_PROVEEDOR = 18; - idx_RecibosProveedorNOMBRE_PROVEEDOR = 19; - idx_RecibosProveedorNIF_CIF_PROVEEDOR = 20; - idx_RecibosProveedorENTIDAD_PROVEEDOR = 21; - idx_RecibosProveedorSUCURSAL_PROVEEDOR = 22; - idx_RecibosProveedorDC_PROVEEDOR = 23; - idx_RecibosProveedorCUENTA_PROVEEDOR = 24; - idx_RecibosProveedorID_EMPRESA = 25; - idx_RecibosProveedorFECHA_ALTA = 26; - idx_RecibosProveedorFECHA_MODIFICACION = 27; - idx_RecibosProveedorUSUARIO = 28; + idx_RecibosProveedorID_RECIBO_COMPENSADO = 1; + idx_RecibosProveedorREFERENCIA_REC_COMPENSADO = 2; + idx_RecibosProveedorREFERENCIA = 3; + idx_RecibosProveedorREFERENCIA_PROVEEDOR = 4; + idx_RecibosProveedorSITUACION = 5; + idx_RecibosProveedorID_FACTURA = 6; + idx_RecibosProveedorID_REMESA = 7; + idx_RecibosProveedorREFERENCIA_REMESA = 8; + idx_RecibosProveedorFECHA_EMISION = 9; + idx_RecibosProveedorFECHA_VENCIMIENTO = 10; + idx_RecibosProveedorDESCRIPCION = 11; + idx_RecibosProveedorOBSERVACIONES = 12; + idx_RecibosProveedorIMPORTE = 13; + idx_RecibosProveedorOTROS_GASTOS = 14; + idx_RecibosProveedorIMPORTE_TOTAL = 15; + idx_RecibosProveedorFECHA_FACTURA = 16; + idx_RecibosProveedorREFERENCIA_FACTURA_PROV = 17; + idx_RecibosProveedorFORMA_PAGO_FACTURA = 18; + idx_RecibosProveedorIMPORTE_FACTURA = 19; + idx_RecibosProveedorID_PROVEEDOR = 20; + idx_RecibosProveedorNOMBRE_PROVEEDOR = 21; + idx_RecibosProveedorNIF_CIF_PROVEEDOR = 22; + idx_RecibosProveedorENTIDAD_PROVEEDOR = 23; + idx_RecibosProveedorSUCURSAL_PROVEEDOR = 24; + idx_RecibosProveedorDC_PROVEEDOR = 25; + idx_RecibosProveedorCUENTA_PROVEEDOR = 26; + idx_RecibosProveedorID_EMPRESA = 27; + idx_RecibosProveedorFECHA_ALTA = 28; + idx_RecibosProveedorFECHA_MODIFICACION = 29; + idx_RecibosProveedorUSUARIO = 30; { RecibosProveedor_Refresh fields } fld_RecibosProveedor_RefreshID = 'ID'; + fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; + fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO'; fld_RecibosProveedor_RefreshREFERENCIA = 'REFERENCIA'; fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_RecibosProveedor_RefreshSITUACION = 'SITUACION'; @@ -113,34 +157,36 @@ const { RecibosProveedor_Refresh field indexes } idx_RecibosProveedor_RefreshID = 0; - idx_RecibosProveedor_RefreshREFERENCIA = 1; - idx_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 2; - idx_RecibosProveedor_RefreshSITUACION = 3; - idx_RecibosProveedor_RefreshID_FACTURA = 4; - idx_RecibosProveedor_RefreshID_REMESA = 5; - idx_RecibosProveedor_RefreshREFERENCIA_REMESA = 6; - idx_RecibosProveedor_RefreshFECHA_EMISION = 7; - idx_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 8; - idx_RecibosProveedor_RefreshDESCRIPCION = 9; - idx_RecibosProveedor_RefreshOBSERVACIONES = 10; - idx_RecibosProveedor_RefreshIMPORTE = 11; - idx_RecibosProveedor_RefreshOTROS_GASTOS = 12; - idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 13; - idx_RecibosProveedor_RefreshFECHA_FACTURA = 14; - idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 15; - idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 16; - idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 17; - idx_RecibosProveedor_RefreshID_PROVEEDOR = 18; - idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 19; - idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 20; - idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 21; - idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 22; - idx_RecibosProveedor_RefreshDC_PROVEEDOR = 23; - idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 24; - idx_RecibosProveedor_RefreshID_EMPRESA = 25; - idx_RecibosProveedor_RefreshFECHA_ALTA = 26; - idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 27; - idx_RecibosProveedor_RefreshUSUARIO = 28; + idx_RecibosProveedor_RefreshID_RECIBO_COMPENSADO = 1; + idx_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO = 2; + idx_RecibosProveedor_RefreshREFERENCIA = 3; + idx_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 4; + idx_RecibosProveedor_RefreshSITUACION = 5; + idx_RecibosProveedor_RefreshID_FACTURA = 6; + idx_RecibosProveedor_RefreshID_REMESA = 7; + idx_RecibosProveedor_RefreshREFERENCIA_REMESA = 8; + idx_RecibosProveedor_RefreshFECHA_EMISION = 9; + idx_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 10; + idx_RecibosProveedor_RefreshDESCRIPCION = 11; + idx_RecibosProveedor_RefreshOBSERVACIONES = 12; + idx_RecibosProveedor_RefreshIMPORTE = 13; + idx_RecibosProveedor_RefreshOTROS_GASTOS = 14; + idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 15; + idx_RecibosProveedor_RefreshFECHA_FACTURA = 16; + idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 17; + idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 18; + idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 19; + idx_RecibosProveedor_RefreshID_PROVEEDOR = 20; + idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 21; + idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 22; + idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 23; + idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 24; + idx_RecibosProveedor_RefreshDC_PROVEEDOR = 25; + idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 26; + idx_RecibosProveedor_RefreshID_EMPRESA = 27; + idx_RecibosProveedor_RefreshFECHA_ALTA = 28; + idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 29; + idx_RecibosProveedor_RefreshUSUARIO = 30; { PagosProveedor fields } fld_PagosProveedorID = 'ID'; @@ -171,12 +217,135 @@ const idx_PagosProveedorUSUARIO = 11; type - { IRecibosProveedor } - IRecibosProveedor = interface(IDAStronglyTypedDataTable) - ['{0CE8E633-6E52-482D-BB17-F2001AC7B6FE}'] + { IRecibosCompensadosProv } + IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) + ['{A73311E9-6383-4A33-B880-1E50E74E7119}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); + function GetID_RECIBO_COMPENSADOValue: Integer; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetID_FACTURAValue: Integer; + procedure SetID_FACTURAValue(const aValue: Integer); + function GetFECHA_EMISIONValue: DateTime; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); + function GetFECHA_VENCIMIENTOValue: DateTime; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); + function GetIMPORTEValue: Float; + procedure SetIMPORTEValue(const aValue: Float); + function GetOTROS_GASTOSValue: Float; + procedure SetOTROS_GASTOSValue(const aValue: Float); + function GetIMPORTE_TOTALValue: Float; + procedure SetIMPORTE_TOTALValue(const aValue: Float); + function GetFECHA_FACTURAValue: DateTime; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetIMPORTE_FACTURAValue: Float; + procedure SetIMPORTE_FACTURAValue(const aValue: Float); + function GetID_PROVEEDORValue: Integer; + procedure SetID_PROVEEDORValue(const aValue: Integer); + function GetNOMBRE_PROVEEDORValue: String; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); + function GetNIF_CIF_PROVEEDORValue: String; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue; + property OTROS_GASTOS: Float read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property IMPORTE_FACTURA: Float read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + end; + + { TRecibosCompensadosProvDataTableRules } + TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetID_FACTURAValue: Integer; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + function GetFECHA_EMISIONValue: DateTime; virtual; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + function GetIMPORTEValue: Float; virtual; + procedure SetIMPORTEValue(const aValue: Float); virtual; + function GetOTROS_GASTOSValue: Float; virtual; + procedure SetOTROS_GASTOSValue(const aValue: Float); virtual; + function GetIMPORTE_TOTALValue: Float; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetIMPORTE_FACTURAValue: Float; virtual; + procedure SetIMPORTE_FACTURAValue(const aValue: Float); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue; + property OTROS_GASTOS: Float read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property IMPORTE_FACTURA: Float read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IRecibosProveedor } + IRecibosProveedor = interface(IDAStronglyTypedDataTable) + ['{BBBE2FC9-D743-448A-A741-C9C1919A0618}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetID_RECIBO_COMPENSADOValue: Integer; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); + function GetREFERENCIA_REC_COMPENSADOValue: String; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIA_PROVEEDORValue: String; @@ -237,6 +406,8 @@ type { Properties } property ID: Integer read GetIDValue write SetIDValue; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; @@ -274,6 +445,10 @@ type { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; @@ -333,6 +508,8 @@ type { Properties } property ID: Integer read GetIDValue write SetIDValue; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; @@ -370,10 +547,14 @@ type { IRecibosProveedor_Refresh } IRecibosProveedor_Refresh = interface(IDAStronglyTypedDataTable) - ['{233ADE04-FF94-41EE-BD3A-BDAE0997F3AC}'] + ['{B98899CB-80FA-49C3-A650-463AEA8A49A6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); + function GetID_RECIBO_COMPENSADOValue: Integer; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); + function GetREFERENCIA_REC_COMPENSADOValue: String; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIA_PROVEEDORValue: String; @@ -434,6 +615,8 @@ type { Properties } property ID: Integer read GetIDValue write SetIDValue; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; @@ -471,6 +654,10 @@ type { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; @@ -530,6 +717,8 @@ type { Properties } property ID: Integer read GetIDValue write SetIDValue; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; @@ -567,7 +756,7 @@ type { IPagosProveedor } IPagosProveedor = interface(IDAStronglyTypedDataTable) - ['{9CFCAC9F-4BF4-4D76-A613-413B38BC549C}'] + ['{81F0AAB6-D43A-4832-9A2F-D4F8C013F6FA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -664,6 +853,178 @@ implementation uses Variants; +{ TRecibosCompensadosProvDataTableRules } +constructor TRecibosCompensadosProvDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TRecibosCompensadosProvDataTableRules.Destroy; +begin + inherited; +end; + +function TRecibosCompensadosProvDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvSITUACION].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvSITUACION].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_FACTURAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_FACTURAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_EMISIONValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTEValue: Float; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].AsFloat; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTEValue(const aValue: Float); +begin + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].AsFloat := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetOTROS_GASTOSValue: Float; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].AsFloat; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetOTROS_GASTOSValue(const aValue: Float); +begin + DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].AsFloat := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTE_TOTALValue: Float; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].AsFloat; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); +begin + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].AsFloat := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_FACTURAValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTE_FACTURAValue: Float; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].AsFloat; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Float); +begin + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].AsFloat := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_PROVEEDORValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsInteger := aValue; +end; + + { TRecibosProveedorDataTableRules } constructor TRecibosProveedorDataTableRules.Create(aDataTable: TDADataTable); begin @@ -685,6 +1046,26 @@ begin DataTable.Fields[idx_RecibosProveedorID].AsInteger := aValue; end; +function TRecibosProveedorDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].AsInteger; +end; + +procedure TRecibosProveedorDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].AsInteger := aValue; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].AsString := aValue; +end; + function TRecibosProveedorDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_RecibosProveedorREFERENCIA].AsString; @@ -987,6 +1368,26 @@ begin DataTable.Fields[idx_RecibosProveedor_RefreshID].AsInteger := aValue; end; +function TRecibosProveedor_RefreshDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedor_RefreshID_RECIBO_COMPENSADO].AsInteger; +end; + +procedure TRecibosProveedor_RefreshDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedor_RefreshID_RECIBO_COMPENSADO].AsInteger := aValue; +end; + +function TRecibosProveedor_RefreshDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO].AsString; +end; + +procedure TRecibosProveedor_RefreshDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO].AsString := aValue; +end; + function TRecibosProveedor_RefreshDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA].AsString; @@ -1401,6 +1802,7 @@ end; initialization + RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules); RegisterDataTableRules(RID_RecibosProveedor, TRecibosProveedorDataTableRules); RegisterDataTableRules(RID_RecibosProveedor_Refresh, TRecibosProveedor_RefreshDataTableRules); RegisterDataTableRules(RID_PagosProveedor, TPagosProveedorDataTableRules); diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index 1958c892..c376463f 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas @@ -9,16 +9,153 @@ 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_RecibosProveedorDelta = '{D758EEB0-54E0-464F-9706-C3B67B7B979B}'; - RID_RecibosProveedor_RefreshDelta = '{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}'; - RID_PagosProveedorDelta = '{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}'; + RID_RecibosCompensadosProvDelta = '{BA2DCF11-7070-4929-857C-AB7731AF7924}'; + RID_RecibosProveedorDelta = '{4C7167E6-9FB3-46CC-9733-EDC6BB1778BA}'; + RID_RecibosProveedor_RefreshDelta = '{3C6253BF-134D-4B04-97C7-A02E2933935D}'; + RID_PagosProveedorDelta = '{1BDCAA45-F48F-47E8-947D-8D70E87FF7A3}'; type - { IRecibosProveedorDelta } - IRecibosProveedorDelta = interface(IRecibosProveedor) - ['{D758EEB0-54E0-464F-9706-C3B67B7B979B}'] + { IRecibosCompensadosProvDelta } + IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) + ['{BA2DCF11-7070-4929-857C-AB7731AF7924}'] { Property getters and setters } function GetOldIDValue : Integer; + function GetOldID_RECIBO_COMPENSADOValue : Integer; + function GetOldREFERENCIAValue : String; + function GetOldSITUACIONValue : String; + function GetOldID_FACTURAValue : Integer; + function GetOldFECHA_EMISIONValue : DateTime; + function GetOldFECHA_VENCIMIENTOValue : DateTime; + function GetOldIMPORTEValue : Float; + function GetOldOTROS_GASTOSValue : Float; + function GetOldIMPORTE_TOTALValue : Float; + function GetOldFECHA_FACTURAValue : DateTime; + function GetOldIMPORTE_FACTURAValue : Float; + function GetOldID_PROVEEDORValue : Integer; + function GetOldNOMBRE_PROVEEDORValue : String; + function GetOldNIF_CIF_PROVEEDORValue : String; + function GetOldID_EMPRESAValue : Integer; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldIMPORTE : Float read GetOldIMPORTEValue; + property OldOTROS_GASTOS : Float read GetOldOTROS_GASTOSValue; + property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldIMPORTE_FACTURA : Float read GetOldIMPORTE_FACTURAValue; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + end; + + { TRecibosCompensadosProvBusinessProcessorRules } + TRecibosCompensadosProvBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosProv, IRecibosCompensadosProvDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetOldIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetREFERENCIAValue: String; virtual; + function GetOldREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetSITUACIONValue: String; virtual; + function GetOldSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetID_FACTURAValue: Integer; virtual; + function GetOldID_FACTURAValue: Integer; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + function GetFECHA_EMISIONValue: DateTime; virtual; + function GetOldFECHA_EMISIONValue: DateTime; virtual; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + function GetIMPORTEValue: Float; virtual; + function GetOldIMPORTEValue: Float; virtual; + procedure SetIMPORTEValue(const aValue: Float); virtual; + function GetOTROS_GASTOSValue: Float; virtual; + function GetOldOTROS_GASTOSValue: Float; virtual; + procedure SetOTROS_GASTOSValue(const aValue: Float); virtual; + function GetIMPORTE_TOTALValue: Float; virtual; + function GetOldIMPORTE_TOTALValue: Float; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + function GetOldFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetIMPORTE_FACTURAValue: Float; virtual; + function GetOldIMPORTE_FACTURAValue: Float; virtual; + procedure SetIMPORTE_FACTURAValue(const aValue: Float); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + function GetOldID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + function GetOldNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + function GetOldNIF_CIF_PROVEEDORValue: String; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property OldID : Integer read GetOldIDValue; + property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; + property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property IMPORTE : Float read GetIMPORTEValue write SetIMPORTEValue; + property OldIMPORTE : Float read GetOldIMPORTEValue; + property OTROS_GASTOS : Float read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property OldOTROS_GASTOS : Float read GetOldOTROS_GASTOSValue; + property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; + property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property IMPORTE_FACTURA : Float read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property OldIMPORTE_FACTURA : Float read GetOldIMPORTE_FACTURAValue; + property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IRecibosProveedorDelta } + IRecibosProveedorDelta = interface(IRecibosProveedor) + ['{4C7167E6-9FB3-46CC-9733-EDC6BB1778BA}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_RECIBO_COMPENSADOValue : Integer; + function GetOldREFERENCIA_REC_COMPENSADOValue : String; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldSITUACIONValue : String; @@ -50,6 +187,8 @@ type { Properties } property OldID : Integer read GetOldIDValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldSITUACION : String read GetOldSITUACIONValue; @@ -88,6 +227,12 @@ type function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; @@ -176,6 +321,10 @@ type { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; + property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; @@ -241,9 +390,11 @@ type { IRecibosProveedor_RefreshDelta } IRecibosProveedor_RefreshDelta = interface(IRecibosProveedor_Refresh) - ['{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}'] + ['{3C6253BF-134D-4B04-97C7-A02E2933935D}'] { Property getters and setters } function GetOldIDValue : Integer; + function GetOldID_RECIBO_COMPENSADOValue : Integer; + function GetOldREFERENCIA_REC_COMPENSADOValue : String; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldSITUACIONValue : String; @@ -275,6 +426,8 @@ type { Properties } property OldID : Integer read GetOldIDValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldSITUACION : String read GetOldSITUACIONValue; @@ -313,6 +466,12 @@ type function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; @@ -401,6 +560,10 @@ type { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; + property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; @@ -466,7 +629,7 @@ type { IPagosProveedorDelta } IPagosProveedorDelta = interface(IPagosProveedor) - ['{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}'] + ['{1BDCAA45-F48F-47E8-947D-8D70E87FF7A3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -575,6 +738,258 @@ implementation uses Variants, uROBinaryHelpers; +{ TRecibosCompensadosProvBusinessProcessorRules } +constructor TRecibosCompensadosProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TRecibosCompensadosProvBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSITUACION]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_FACTURA]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_EMISION]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTEValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTEValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOTROS_GASTOSValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldOTROS_GASTOSValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_FACTURAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := aValue; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_EMPRESA]; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := aValue; +end; + + { TRecibosProveedorBusinessProcessorRules } constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin @@ -601,6 +1016,36 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := aValue; end; +function TRecibosProveedorBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO] := aValue; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO] := aValue; +end; + function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA]; @@ -1048,6 +1493,36 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID] := aValue; end; +function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO]; +end; + +function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO]; +end; + +procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_RECIBO_COMPENSADO] := aValue; +end; + +function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO]; +end; + +procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REC_COMPENSADO] := aValue; +end; + function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA]; @@ -1662,6 +2137,7 @@ end; initialization + RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosProveedorDelta, TRecibosProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_RecibosProveedor_RefreshDelta, TRecibosProveedor_RefreshBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PagosProveedorDelta, TPagosProveedorBusinessProcessorRules); diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas index b36e93a4..6ead6325 100644 --- a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas @@ -31,12 +31,18 @@ uses const BIZ_CLIENT_IBIZRECIBOSPROVEEDOR = 'Client.IBizRecibosProveedor'; + BIZ_CLIENT_RECIBOS_COMPENSADOSPROV = 'Client.RecibosCompensadosProv'; CTE_PENDIENTE = 'PENDIENTE'; CTE_PAGADO = 'PAGADO'; CTE_DEVUELTO = 'DEVUELTO'; type + + IBizRecibosCompensadosProv = interface(IRecibosCompensadosProv) + ['{64F55788-08FC-473D-A5CA-5F99509C2529}'] + end; + IBizRecibosProveedor = interface(IRecibosProveedor) ['{FEE753DF-0471-4754-A86C-58BF615929CF}'] function EsNuevo : Boolean; @@ -54,12 +60,21 @@ type procedure SetPagos(AValue : IBizPagosProveedor); function GetPagos : IBizPagosProveedor; property Pagos : IBizPagosProveedor read GetPagos write SetPagos; + + function GetRecibosCompensados: IBizRecibosCompensadosProv; + procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); + property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados; + end; + + TBizRecibosCompensadosProv = class(TRecibosCompensadosProvDataTableRules, IBizRecibosCompensadosProv) end; TBizRecibosProveedor = class(TRecibosProveedorDataTableRules, IBizRecibosProveedor, ISeleccionable) protected FPagos : IBizPagosProveedor; FPagosLink : TDADataSource; + FRecibosCompensados: IBizRecibosCompensadosProv; + FRecibosCompensadosLink : TDADataSource; FProveedor : IBizProveedor; FSeleccionableInterface : ISeleccionable; @@ -77,9 +92,13 @@ type function GetPagos : IBizPagosProveedor; procedure OnNewRecord(Sender: TDADataTable); override; + function GetRecibosCompensados: IBizRecibosCompensadosProv; + procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); + procedure SetID_REMESAValue(const aValue: Integer); override; public + property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados; property Pagos : IBizPagosProveedor read GetPagos write SetPagos; property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface @@ -103,6 +122,11 @@ begin Result := FProveedor; end; +function TBizRecibosProveedor.GetRecibosCompensados: IBizRecibosCompensadosProv; +begin + Result := FRecibosCompensados; +end; + function TBizRecibosProveedor.GetPagos: IBizPagosProveedor; begin Result := FPagos; @@ -122,6 +146,16 @@ procedure TBizRecibosProveedor.SetPagos(AValue: IBizPagosProveedor); EnlazarMaestroDetalle(FPagosLink, FPagos); end; +procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); +begin + FRecibosCompensados := Value; + EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados); + + if Assigned(FRecibosCompensados) then + if not FRecibosCompensados.DataTable.Active then + FRecibosCompensados.DataTable.Active := True; +end; + function TBizRecibosProveedor._GetProveedor: IBizProveedor; begin Result := FProveedor; @@ -136,15 +170,23 @@ constructor TBizRecibosProveedor.Create(aDataTable: TDADataTable); begin inherited; FProveedor := Nil; + FPagos := Nil; + FRecibosCompensados := Nil; + FPagosLink := TDADataSource.Create(NIL); FPagosLink.DataTable := aDataTable; + FRecibosCompensadosLink := TDADataSource.Create(NIL); + FRecibosCompensadosLink.DataTable := aDataTable; + FSeleccionableInterface := TSeleccionable.Create(aDataTable); end; destructor TBizRecibosProveedor.Destroy; begin FPagos := NIL; + FRecibosCompensados := Nil; FreeAndNIL(FPagosLink); + FreeAndNIL(FRecibosCompensadosLink); FSeleccionableInterface := NIL; inherited; end; @@ -170,6 +212,7 @@ end; initialization RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSPROVEEDOR, TBizRecibosProveedor); + RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSPROV, TBizRecibosCompensadosProv); finalization diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index 498c0834..f2924034 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -15,6 +15,278 @@ object srvRecibosProveedor: TsrvRecibosProveedor ConnectionManager = dmServer.ConnectionManager DataDictionary = DADataDictionary Datasets = < + item + Params = < + item + Name = 'ID' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + SQL = + 'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA,'#10' ' + + ' SITUACION,'#10' ID_FACTURA,'#10' FECHA_EMISION,'#10' FEC' + + 'HA_VENCIMIENTO,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPO' + + 'RTE_TOTAL,'#10' FECHA_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' + + 'ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' NIF_CIF_PROVEEDOR,' + + #10' ID_EMPRESA'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE ID_RECIBO_COM' + + 'PENSADO = :ID' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'IMPORTE' + TableField = 'IMPORTE' + end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'IMPORTE_FACTURA' + TableField = 'IMPORTE_FACTURA' + end + item + DatasetField = 'ID_PROVEEDOR' + TableField = 'ID_PROVEEDOR' + end + item + DatasetField = 'NOMBRE_PROVEEDOR' + TableField = 'NOMBRE_PROVEEDOR' + end + item + DatasetField = 'NIF_CIF_PROVEEDOR' + TableField = 'NIF_CIF_PROVEEDOR' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end> + end> + Name = 'RecibosCompensadosProv' + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_FACTURA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + BusinessRulesClient.ScriptLanguage = rslPascalScript + BusinessRulesServer.ScriptLanguage = rslPascalScript + end item Params = <> Statements = < @@ -22,17 +294,18 @@ object srvRecibosProveedor: TsrvRecibosProveedor Connection = 'IBX' TargetTable = 'V_RECIBOS_PROVEEDOR' SQL = - 'SELECT ID,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' ' + - ' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFEREN' + - 'CIA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' + - ' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTR' + - 'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' RE' + - 'FERENCIA_FACTURA_PROV,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE' + - '_FACTURA,'#10' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' N' + - 'IF_CIF_PROVEEDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROV' + - 'EEDOR,'#10' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_E' + - 'MPRESA,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' + - 'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR' + 'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' + + 'MPENSADO,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' ' + + ' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFERENC' + + 'IA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' + + ' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTRO' + + 'S_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' REF' + + 'ERENCIA_FACTURA_PROV,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE_' + + 'FACTURA,'#10' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' NI' + + 'F_CIF_PROVEEDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROVE' + + 'EDOR,'#10' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_EM' + + 'PRESA,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUA' + + 'RIO'#10#10'FROM V_RECIBOS_PROVEEDOR' StatementType = stSQL ColumnMappings = < item @@ -150,6 +423,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor item DatasetField = 'REFERENCIA_FACTURA_PROV' TableField = 'REFERENCIA_FACTURA_PROV' + end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA_REC_COMPENSADO' + TableField = 'REFERENCIA_REC_COMPENSADO' end> end> Name = 'RecibosProveedor' @@ -164,6 +445,27 @@ object srvRecibosProveedor: TsrvRecibosProveedor Lookup = False LookupCache = False end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'REFERENCIA' DataType = datString @@ -476,17 +778,18 @@ object srvRecibosProveedor: TsrvRecibosProveedor Connection = 'IBX' TargetTable = 'V_RECIBOS_PROVEEDOR' SQL = - 'SELECT ID,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' ' + - ' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFEREN' + - 'CIA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' + - ' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTR' + - 'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' RE' + - 'FERENCIA_FACTURA_PROV,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE' + - '_FACTURA,'#10' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' N' + - 'IF_CIF_PROVEEDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROV' + - 'EEDOR,'#10' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_E' + - 'MPRESA,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' + - 'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE'#10' ID = :ID' + 'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' + + 'MPENSADO,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' ' + + ' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFERENC' + + 'IA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' + + ' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTRO' + + 'S_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' REF' + + 'ERENCIA_FACTURA_PROV,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE_' + + 'FACTURA,'#10' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' NI' + + 'F_CIF_PROVEEDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROVE' + + 'EDOR,'#10' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_EM' + + 'PRESA,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUA' + + 'RIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE'#10' ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -604,6 +907,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor item DatasetField = 'REFERENCIA_FACTURA_PROV' TableField = 'REFERENCIA_FACTURA_PROV' + end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA_REC_COMPENSADO' + TableField = 'REFERENCIA_REC_COMPENSADO' end> end> Name = 'RecibosProveedor_Refresh' @@ -618,6 +929,27 @@ object srvRecibosProveedor: TsrvRecibosProveedor Lookup = False LookupCache = False end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'REFERENCIA' DataType = datString @@ -1536,6 +1868,90 @@ object srvRecibosProveedor: TsrvRecibosProveedor ColumnMappings = <> end> Name = 'Update_PagosProveedor' + end + item + Params = < + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + SQL = + 'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' + + 'OMPENSADO'#10'WHERE (ID = :ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_RecibosCompensadosProv' + end + item + Params = < + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + SQL = + 'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' + + 'OMPENSADO'#10'WHERE (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_RecibosCompensadosProv' + end + item + Params = < + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + SQL = + 'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' + + 'OMPENSADO'#10'WHERE (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_RecibosCompensadosProv' end> RelationShips = <> UpdateRules = < @@ -2022,6 +2438,21 @@ object srvRecibosProveedor: TsrvRecibosProveedor DisplayWidth = 0 DisplayLabel = 'Ref. factura prov.' Alignment = taLeftJustify + end + item + Name = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + end + item + Name = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify end> Left = 48 Top = 152 @@ -2037,4 +2468,15 @@ object srvRecibosProveedor: TsrvRecibosProveedor Left = 192 Top = 88 end + object bpRecibosCompensados: TDABusinessProcessor + Schema = schRecibosProveedor + InsertCommandName = 'Insert_RecibosCompensadosProv' + DeleteCommandName = 'Delete_RecibosCompensadosProv' + UpdateCommandName = 'Update_RecibosCompensadosProv' + ReferencedDataset = 'RecibosCompensadosProv' + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 192 + Top = 152 + end end diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas index da85e1df..1d363e71 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas @@ -27,6 +27,7 @@ type DABINAdapter: TDABINAdapter; bpRecibosProveedor: TDABusinessProcessor; bpPagosProveedor: TDABusinessProcessor; + bpRecibosCompensados: TDABusinessProcessor; schRecibosProveedor: TDASchema; DADataDictionary: TDADataDictionary; procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk index 77e5e3f1..adfe0c5c 100644 --- a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk @@ -85,7 +85,8 @@ requires RecibosProveedor_controller, RecibosProveedor_data, RecibosProveedor_model, - JSDialog100; + JSDialog100, + JvCtrlsD10R; contains uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente}, @@ -96,6 +97,8 @@ contains uEditorFechaPagoProveedor in 'uEditorFechaPagoProveedor.pas' {fEditorFechaPagoProveedor}, uEditorReciboProveedorReport in 'uEditorReciboProveedorReport.pas' {fEditorReciboProveedorPreview: TfEditorReciboClienteReport}, uEditorElegirRecibosProveedor in 'uEditorElegirRecibosProveedor.pas' {fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor}, - uRecibosProveedorViewRegister in 'uRecibosProveedorViewRegister.pas'; + uRecibosProveedorViewRegister in 'uRecibosProveedorViewRegister.pas', + uViewReciboProvImportes in 'uViewReciboProvImportes.pas' {frViewReciboProvImportes: TFrame}, + uViewRecibosProvCompensados in 'uViewRecibosProvCompensados.pas' {frViewRecibosProvCompensados: TFrame}; end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm index 0090a65e..b2100a37 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm @@ -2,7 +2,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor Caption = 'Seleccionar recibos de cliente' ClientWidth = 654 ExplicitWidth = 662 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 object JvgWizardHeader1: TJvgWizardHeader [0] @@ -52,12 +51,10 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor inherited TBXDock: TTBXDock Top = 171 Width = 654 - Height = 49 ExplicitTop = 171 ExplicitWidth = 654 - ExplicitHeight = 49 inherited tbxMain: TTBXToolbar - ExplicitWidth = 117 + ExplicitWidth = 126 inherited TBXItem5: TTBXItem Visible = False end @@ -69,12 +66,12 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor end end inherited tbxFiltro: TTBXToolbar - Left = 117 + Left = 126 Top = 23 DockPos = 104 DockRow = 1 Visible = False - ExplicitLeft = 117 + ExplicitLeft = 126 ExplicitTop = 23 inherited TBXItem34: TTBXItem Action = actQuitarFiltro2 @@ -83,11 +80,15 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor inherited tbxMenu: TTBXToolbar ExplicitWidth = 654 end + inherited TBXTMain2: TTBXToolbar + Left = 334 + ExplicitLeft = 334 + end end inherited StatusBar: TJvStatusBar Top = 609 Width = 654 - ExplicitTop = 506 + ExplicitTop = 609 ExplicitWidth = 654 end inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] @@ -136,18 +137,18 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor end end inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5] - Top = 220 + Top = 246 Width = 654 - Height = 389 - ExplicitTop = 220 + Height = 363 + ExplicitTop = 246 ExplicitWidth = 654 - ExplicitHeight = 389 + ExplicitHeight = 363 inherited cxGrid: TcxGrid Width = 654 - Height = 261 + Height = 235 RootLevelOptions.DetailTabsPosition = dtpNone ExplicitWidth = 654 - ExplicitHeight = 389 + ExplicitHeight = 235 inherited cxGridView: TcxGridDBTableView DataController.Summary.DefaultGroupSummaryItems = < item @@ -178,29 +179,28 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor ExplicitWidth = 654 inherited dxLayoutControl1: TdxLayoutControl Width = 650 - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end + ExplicitWidth = 650 inherited edtFechaFinFiltro: TcxDateEdit - ExplicitWidth = 337 - Width = 337 + ExplicitWidth = 314 + Width = 314 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 650 ExplicitWidth = 650 + inherited tbxBotones: TTBXToolbar + Width = 640 + end end end end end inherited pnlAgrupaciones: TTBXDockablePanel - Top = 363 - ExplicitTop = 260 + Top = 337 + ExplicitTop = 337 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 654 + end end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink @@ -236,7 +236,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor ShowCaptionWhenDocked = False SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 5 - ExplicitWidth = 128 object Label1: TLabel Left = 296 Top = 50 diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm index 5786ab94..8d57ebdf 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -1,11 +1,12 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Caption = 'Recibo de cliente' - ClientHeight = 707 + ClientHeight = 554 ClientWidth = 691 OnClose = CustomEditorClose - ExplicitTop = -110 + ExplicitLeft = -81 + ExplicitTop = -97 ExplicitWidth = 699 - ExplicitHeight = 741 + ExplicitHeight = 588 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -43,7 +44,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Width = 691 ExplicitWidth = 691 inherited tbxMain: TTBXToolbar - ExplicitWidth = 419 + ExplicitWidth = 425 end inherited tbxMenu: TTBXToolbar ExplicitWidth = 691 @@ -51,14 +52,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor end inherited pgPaginas: TPageControl Width = 691 - Height = 612 + Height = 359 + ActivePage = pagCompensados ExplicitWidth = 691 - ExplicitHeight = 612 + ExplicitHeight = 459 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 683 - ExplicitHeight = 584 + ExplicitHeight = 431 inline frViewReciboProveedor1: TfrViewReciboProveedor Left = 0 Top = 0 @@ -74,55 +76,86 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 683 + ExplicitHeight = 350 inherited dxLayoutControl1: TdxLayoutControl Width = 683 + Height = 350 ExplicitWidth = 683 - ExplicitHeight = 337 DesignSize = ( 683 350) + inherited eReferencia: TcxDBTextEdit + ExplicitWidth = 50 + Width = 50 + end + inherited eSituacion: TcxDBTextEdit + ExplicitWidth = 216 + Width = 216 + end + inherited edtFechaVencimiento: TcxDBDateEdit + ExplicitWidth = 216 + Width = 216 + end inherited memObservaciones: TcxDBMemo - Left = 345 - ExplicitLeft = 345 + ExplicitWidth = 274 + Width = 274 end inherited eFechaEmision: TcxDBTextEdit - Left = 442 - ExplicitLeft = 442 + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 20 + Width = 20 end inherited eFormaPago: TcxDBTextEdit - Left = 442 - ExplicitLeft = 442 + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 42 + Width = 42 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 442 + Left = 431 Style.IsFontAssigned = True - ExplicitLeft = 442 + ExplicitLeft = 431 + ExplicitWidth = 182 + Width = 182 end inherited eNombreCliente: TcxDBTextEdit - Left = 442 - ExplicitLeft = 442 + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 171 + Width = 171 end inherited eNifCif: TcxDBTextEdit - Left = 442 - ExplicitLeft = 442 + Left = 431 + ExplicitLeft = 431 ExplicitWidth = 255 Width = 255 end inherited eEntidad: TcxDBTextEdit - Left = 442 - ExplicitLeft = 442 + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 90 + Width = 90 end inherited eSucursal: TcxDBTextEdit Left = 545 ExplicitLeft = 545 + ExplicitWidth = 75 + Width = 75 end inherited eDC: TcxDBTextEdit - Left = 611 - ExplicitLeft = 611 + Left = 628 + ExplicitLeft = 628 end inherited eCuenta: TcxDBTextEdit - Left = 442 - ExplicitLeft = 442 + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 83 + Width = 83 + end + inherited eRemesa: TcxDBTextEdit + ExplicitWidth = 113 + Width = 113 end inherited edtFechaEmision: TcxDBDateEdit ExplicitWidth = 97 @@ -133,16 +166,24 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Width = 129 end inherited rReferenciaFacturaProv: TcxDBTextEdit - Left = 442 - ExplicitLeft = 442 + Left = 431 + ExplicitLeft = 431 + end + inherited rRefReciboCompensado: TcxDBTextEdit + ExplicitWidth = 216 + Width = 216 end end end + end + object pagPagos: TTabSheet + Caption = 'Pagos' + ImageIndex = 1 inline frViewPagosProveedor1: TfrViewPagosProveedor Left = 0 - Top = 350 + Top = 0 Width = 683 - Height = 234 + Height = 331 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -150,16 +191,15 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 1 + TabOrder = 0 ReadOnly = False - ExplicitTop = 337 ExplicitWidth = 683 - ExplicitHeight = 247 + ExplicitHeight = 331 inherited dxLayoutControl1: TdxLayoutControl Width = 683 - Height = 234 + Height = 331 ExplicitWidth = 683 - ExplicitHeight = 247 + ExplicitHeight = 331 inherited ListaPagosProveedor: TcxGrid Width = 252 Height = 105 @@ -176,34 +216,114 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ExplicitWidth = 622 end end - inherited ActionListContenido: TActionList - inherited actAnadir: TAction - OnExecute = frViewPagosProveedor1actAnadirExecute + inherited DADataSource: TDADataSource + Left = 32 + Top = 80 + end + end + end + object pagCompensados: TTabSheet + Caption = 'Compensados' + ImageIndex = 2 + inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados + Left = 0 + Top = 0 + Width = 683 + Height = 331 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 683 + ExplicitHeight = 331 + inherited cxGrid: TcxGrid + Width = 683 + Height = 306 + ExplicitWidth = 683 + ExplicitHeight = 306 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosProvCompensados1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.OnAfterSummary = frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary end - inherited actModificar: TAction - OnExecute = frViewPagosProveedor1actModificarExecute - OnUpdate = frViewPagosProveedor1actModificarUpdate + end + inherited ToolBar1: TToolBar + Width = 683 + ExplicitWidth = 683 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 end - inherited actEliminar: TAction - OnExecute = frViewPagosProveedor1actEliminarExecute - OnUpdate = frViewPagosProveedor1actEliminarUpdate + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton3: TToolButton + ExplicitWidth = 98 + end + inherited ToolButton8: TToolButton + ExplicitWidth = 99 end end end end end inherited StatusBar: TJvStatusBar - Top = 688 + Top = 535 Width = 691 Panels = < item Width = 200 end> - ExplicitTop = 688 + ExplicitTop = 535 ExplicitWidth = 691 end - inherited EditorActionList: TActionList - Top = 96 + inline frViewReciboProvImportes1: TfrViewReciboProvImportes [4] + Left = 0 + Top = 435 + Width = 691 + Height = 100 + Align = alBottom + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + ReadOnly = False + ExplicitTop = 331 + ExplicitWidth = 683 + inherited dxLayoutControl1: TdxLayoutControl + Width = 691 + ExplicitWidth = 683 + inherited eImporte: TcxDBCurrencyEdit + Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged + ExplicitWidth = 150 + Width = 150 + end + inherited eImporteTotalRecibo: TcxCurrencyEdit + ExplicitWidth = 183 + Width = 183 + end + end + end + inherited EditorActionList: TActionList [5] + Left = 48 + Top = 144 inherited actNuevo: TAction Enabled = False Visible = False @@ -217,17 +337,23 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Visible = False end end - inherited JvFormStorage: TJvFormStorage + inherited SmallImages: TPngImageList [6] + end + inherited LargeImages: TPngImageList [7] + end + inherited JvFormStorage: TJvFormStorage [8] OnSavePlacement = JvFormStorageSavePlacement OnRestorePlacement = JvFormStorageRestorePlacement end - inherited dsDataTable: TDADataSource + inherited dsDataTable: TDADataSource [9] Left = 8 Top = 136 end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] + end object DADataSource1: TDADataSource OnDataChange = dsDataTableDataChange Left = 80 - Top = 112 + Top = 168 end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas index f4043eb6..d62241ed 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas @@ -9,13 +9,18 @@ uses ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboProveedor, uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController, - uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels; + uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData, + uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes; type TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor) DADataSource1: TDADataSource; frViewReciboProveedor1: TfrViewReciboProveedor; + pagPagos: TTabSheet; + pagCompensados: TTabSheet; frViewPagosProveedor1: TfrViewPagosProveedor; + frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados; + frViewReciboProvImportes1: TfrViewReciboProvImportes; procedure FormShow(Sender: TObject); procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); @@ -32,6 +37,8 @@ type procedure DeshabilitarRecibo; procedure JvFormStorageRestorePlacement(Sender: TObject); procedure JvFormStorageSavePlacement(Sender: TObject); + procedure frViewReciboProvImportes1eImportePropertiesEditValueChanged(Sender: TObject); + procedure frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary); private FController : IRecibosProveedorController; @@ -46,6 +53,7 @@ type function GetViewRecibo: IViewReciboProveedor; procedure SetViewRecibo(const Value: IViewReciboProveedor); property ViewRecibo: IViewReciboProveedor read GetViewRecibo write SetViewRecibo; + procedure CalcularTotal; protected procedure PrevisualizarInterno; override; @@ -65,6 +73,18 @@ uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase; {$R *.dfm} +procedure TfEditorReciboProveedor.CalcularTotal; +var + ImporteAux: Double; +begin + + ImporteAux := 0; + if not VarIsNull(frViewRecibosProvCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then + ImporteAux := frViewRecibosProvCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]; + + frViewReciboProvImportes1.eImporteTotalRecibo.Value := frViewReciboProvImportes1.eImporte.Value + frViewReciboProvImportes1.eOtrosGastos.Value + ImporteAux; +end; + constructor TfEditorReciboProveedor.Create(AOwner: TComponent); begin inherited; @@ -86,8 +106,8 @@ procedure TfEditorReciboProveedor.DeshabilitarRecibo; begin frViewReciboProveedor1.eReferenciaProveedor.Enabled := False; frViewReciboProveedor1.edtFechaVencimiento.Enabled := False; - frViewReciboProveedor1.eImporte.Enabled := False; - frViewReciboProveedor1.eOtrosGastos.Enabled := False; + frViewReciboProvImportes1.eImporte.Enabled := False; + frViewReciboProvImportes1.eOtrosGastos.Enabled := False; end; procedure TfEditorReciboProveedor.dsDataTableDataChange(Sender: TObject; Field: TField); @@ -165,20 +185,33 @@ begin frViewPagosProveedor1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0); end; +procedure TfEditorReciboProveedor.frViewReciboProvImportes1eImportePropertiesEditValueChanged( + Sender: TObject); +begin + inherited; + CalcularTotal; +end; + procedure TfEditorReciboProveedor.frViewReciboProveedor1eImportePropertiesValidate( Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); begin inherited; - if (DisplayValue > frViewReciboProveedor1.eImporte.DataBinding.Field.Value) then + if (DisplayValue > frViewReciboProvImportes1.eImporte.DataBinding.Field.Value) then begin - DisplayValue := frViewReciboProveedor1.eImporte.DataBinding.Field.Value; + DisplayValue := frViewReciboProvImportes1.eImporte.DataBinding.Field.Value; ErrorText := 'El importe debe ser menor o igual que el actual'; Error := True; end; end; +procedure TfEditorReciboProveedor.frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary); +begin + inherited; + CalcularTotal; +end; + function TfEditorReciboProveedor.GetController: IRecibosProveedorController; begin Result := FController; @@ -206,8 +239,8 @@ begin //Si el recibo tiene sociado una remesa no se podrá cambiar nada frViewReciboProveedor1.eReferenciaProveedor.Enabled := True; frViewReciboProveedor1.edtFechaVencimiento.Enabled := True; - frViewReciboProveedor1.eImporte.Enabled := True; - frViewReciboProveedor1.eOtrosGastos.Enabled := True; + frViewReciboProvImportes1.eImporte.Enabled := True; + frViewReciboProvImportes1.eOtrosGastos.Enabled := True; end; procedure TfEditorReciboProveedor.ImprimirInterno; @@ -240,6 +273,12 @@ begin FTitulo := 'Recibo de proveedor'; end; + if (Recibo.ID_RECIBO_COMPENSADO > 0) then + FTitulo := FTitulo + ' (compensado)'; + + if Length(Recibo.NOMBRE_PROVEEDOR) > 0 then + FTitulo := FTitulo + ' - ' + Recibo.NOMBRE_PROVEEDOR; + inherited PonerTitulos(FTitulo); end; @@ -252,7 +291,9 @@ end; procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorController); begin FController := Value; -// if Assigned(FController) then + if Assigned(FController) then + frViewRecibosProvCompensados1.Controller := FController; + // (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController); end; @@ -265,6 +306,7 @@ begin begin FViewRecibo.Recibo := Recibo; frViewPagosProveedor1.Pagos := Recibo.Pagos; + frViewRecibosProvCompensados1.ReciboProveedor := FRecibo; if (FRecibo.SITUACION = CTE_PAGADO) then DeshabilitarRecibo diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm new file mode 100644 index 00000000..6399603b --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm @@ -0,0 +1,129 @@ +inherited frViewReciboProvImportes: TfrViewReciboProvImportes + Width = 451 + Height = 100 + Align = alBottom + ExplicitWidth = 451 + ExplicitHeight = 100 + object dxLayoutControl1: TdxLayoutControl + AlignWithMargins = True + Left = 0 + Top = 0 + Width = 451 + Height = 217 + Margins.Left = 0 + Margins.Top = 0 + Margins.Right = 0 + Margins.Bottom = 0 + Align = alTop + ParentBackground = True + TabOrder = 0 + AutoContentSizes = [acsWidth, acsHeight] + object eImporte: TcxDBCurrencyEdit + Left = 93 + Top = 28 + AutoSize = False + DataBinding.DataField = 'IMPORTE' + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = False + Properties.UseLeftAlignmentOnEditing = False + Properties.UseThousandSeparator = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Height = 21 + Width = 150 + end + object eOtrosGastos: TcxDBCurrencyEdit + Left = 93 + Top = 55 + AutoSize = False + DataBinding.DataField = 'OTROS_GASTOS' + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = False + Properties.UseLeftAlignmentOnEditing = False + Properties.UseThousandSeparator = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clWindow + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Height = 21 + Width = 183 + end + object eImporteTotalRecibo: TcxCurrencyEdit + Left = 354 + Top = 28 + Enabled = False + Properties.Alignment.Horz = taRightJustify + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextStyle = [fsBold] + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 2 + Width = 183 + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group1: TdxLayoutGroup + Caption = 'Importes recibo' + LayoutDirection = ldHorizontal + object dxLayoutControl1Group3: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Item1: TdxLayoutItem + Caption = 'Importe:' + Control = eImporte + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item2: TdxLayoutItem + Caption = 'Otros gastos:' + Control = eOtrosGastos + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Item3: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Importe total:' + Control = eImporteTotalRecibo + ControlOptions.ShowBorder = False + end + end + end + object dxLayoutControl1Group4: TdxLayoutGroup + end + end + object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + Left = 40 + Top = 8 + object LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel + ItemOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET + ItemOptions.CaptionOptions.Font.Color = clWindowText + ItemOptions.CaptionOptions.Font.Height = -12 + ItemOptions.CaptionOptions.Font.Name = 'Tahoma' + ItemOptions.CaptionOptions.Font.Style = [fsBold] + ItemOptions.CaptionOptions.UseDefaultFont = False + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas new file mode 100644 index 00000000..5404dbdc --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas @@ -0,0 +1,37 @@ +unit uViewReciboProvImportes; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, + cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, + cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, + ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, + cxDBLookupComboBox, cxCheckBox; + +type + TfrViewReciboProvImportes = class(TfrViewBase) + dxLayoutControl1Group_Root: TdxLayoutGroup; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Group1: TdxLayoutGroup; + dxLayoutControl1Group4: TdxLayoutGroup; + dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; + LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel; + dxLayoutControl1Item1: TdxLayoutItem; + eImporte: TcxDBCurrencyEdit; + dxLayoutControl1Item2: TdxLayoutItem; + eOtrosGastos: TcxDBCurrencyEdit; + dxLayoutControl1Item3: TdxLayoutItem; + eImporteTotalRecibo: TcxCurrencyEdit; + dxLayoutControl1Group3: TdxLayoutGroup; + public + { Public declarations } + end; + + +implementation + +{$R *.dfm} + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm index 7db90413..65e22ef4 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm @@ -1,29 +1,23 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor - Width = 690 - Height = 350 - ExplicitWidth = 690 - ExplicitHeight = 350 + Width = 618 + Height = 342 + ExplicitWidth = 618 + ExplicitHeight = 342 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 690 - Height = 350 + Width = 618 + Height = 342 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitHeight = 343 + ExplicitWidth = 690 + ExplicitHeight = 350 DesignSize = ( - 690 - 350) - object Bevel1: TBevel - Left = 136 - Top = 270 - Width = 210 - Height = 9 - Shape = bsBottomLine - end + 618 + 342) object eReferencia: TcxDBTextEdit Left = 136 Top = 30 @@ -99,8 +93,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 216 end object memObservaciones: TcxDBMemo - Left = 397 - Top = 299 + Left = 22 + Top = 267 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -112,37 +106,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 19 + TabOrder = 7 Height = 49 Width = 274 end - object eImporte: TcxDBCurrencyEdit - Left = 136 - Top = 216 - AutoSize = False - DataBinding.DataField = 'IMPORTE' - DataBinding.DataSource = DADataSource - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = False - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Properties.OnEditValueChanged = eImportePropertiesEditValueChanged - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clInfoBk - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 - Height = 21 - Width = 194 - end object eFechaEmision: TcxDBTextEdit - Left = 494 + Left = 439 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' @@ -164,11 +133,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 9 Width = 20 end object eFormaPago: TcxDBTextEdit - Left = 494 + Left = 439 Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FORMA_PAGO_FACTURA' @@ -190,11 +159,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 + TabOrder = 10 Width = 42 end object eImporteTotal: TcxDBCurrencyEdit - Left = 494 + Left = 439 Top = 111 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' @@ -221,12 +190,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 11 Height = 21 Width = 182 end object eNombreCliente: TcxDBTextEdit - Left = 494 + Left = 439 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_PROVEEDOR' @@ -248,11 +217,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 + TabOrder = 13 Width = 171 end object eNifCif: TcxDBTextEdit - Left = 494 + Left = 439 Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_PROVEEDOR' @@ -274,11 +243,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 + TabOrder = 12 Width = 147 end object eEntidad: TcxDBTextEdit - Left = 494 + Left = 439 Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'ENTIDAD_PROVEEDOR' @@ -300,11 +269,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 + TabOrder = 14 Width = 90 end object eSucursal: TcxDBTextEdit - Left = 569 + Left = 514 Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'SUCURSAL_PROVEEDOR' @@ -326,11 +295,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 + TabOrder = 15 Width = 75 end object eDC: TcxDBTextEdit - Left = 618 + Left = 563 Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DC_PROVEEDOR' @@ -352,11 +321,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 17 + TabOrder = 16 Width = 33 end object eCuenta: TcxDBTextEdit - Left = 494 + Left = 439 Top = 248 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'CUENTA_PROVEEDOR' @@ -378,7 +347,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 18 + TabOrder = 17 Width = 83 end object eRemesa: TcxDBTextEdit @@ -406,46 +375,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor TabOrder = 5 Width = 113 end - object eOtrosGastos: TcxDBCurrencyEdit - Left = 136 - Top = 243 - AutoSize = False - DataBinding.DataField = 'OTROS_GASTOS' - DataBinding.DataSource = DADataSource - Properties.Alignment.Horz = taRightJustify - Properties.ReadOnly = False - Properties.UseLeftAlignmentOnEditing = False - Properties.UseThousandSeparator = True - Properties.OnEditValueChanged = eImportePropertiesEditValueChanged - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clWindow - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextColor = clWindowText - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 - Height = 21 - Width = 111 - end - object eImporteTotalRecibo: TcxCurrencyEdit - Left = 136 - Top = 290 - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - Style.TextStyle = [fsBold] - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 - Width = 121 - end object edtFechaEmision: TcxDBDateEdit Left = 136 Top = 84 @@ -497,7 +426,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Width = 287 end object rReferenciaFacturaProv: TcxDBTextEdit - Left = 494 + Left = 439 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' @@ -519,9 +448,35 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 8 Width = 157 end + object rRefReciboCompensado: TcxDBTextEdit + Left = 136 + Top = 216 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Width = 216 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -575,27 +530,21 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor end end object dxLayoutControl1Group9: TdxLayoutGroup - Caption = 'Importe del recibo' - object dxLayoutControl1Item6: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Importe:' - Control = eImporte - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item17: TdxLayoutItem - Caption = 'Otros gastos:' - Control = eOtrosGastos - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item18: TdxLayoutItem - Caption = ' ' - Control = Bevel1 - ControlOptions.ShowBorder = False - end + Caption = 'Compensado en recibo' object dxLayoutControl1Item4: TdxLayoutItem - Caption = 'Importe total:' - Control = eImporteTotalRecibo + Caption = 'Ref. recibo:' + Control = rRefReciboCompensado + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group7: TdxLayoutGroup + Caption = 'Observaciones' + object dxLayoutControl1Item5: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Observaciones:' + ShowCaption = False + Control = memObservaciones ControlOptions.ShowBorder = False end end @@ -633,73 +582,57 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor ControlOptions.ShowBorder = False end end - object dxLayoutControl1Group3: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group6: TdxLayoutGroup - AutoAligns = [aaHorizontal] - AlignVert = avClient - Caption = 'Datos del proveedor' - Offsets.Top = 5 - object dxLayoutControl1Item11: TdxLayoutItem - Caption = 'NIF/CIF:' - Control = eNifCif - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item10: TdxLayoutItem - Caption = 'Nombre:' - Control = eNombreCliente - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group4: TdxLayoutGroup + object dxLayoutControl1Group6: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Datos del proveedor' + Offsets.Top = 5 + object dxLayoutControl1Item11: TdxLayoutItem + Caption = 'NIF/CIF:' + Control = eNifCif + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item10: TdxLayoutItem + Caption = 'Nombre:' + Control = eNombreCliente + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Group4: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group11: TdxLayoutGroup ShowCaption = False Hidden = True + LayoutDirection = ldHorizontal ShowBorder = False - object dxLayoutControl1Group11: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item12: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Entidad:' - Control = eEntidad - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item13: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Sucursal:' - Control = eSucursal - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item14: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'DC:' - Control = eDC - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item15: TdxLayoutItem + object dxLayoutControl1Item12: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'C'#243'd. cuenta:' - Control = eCuenta + Caption = 'Entidad:' + Control = eEntidad + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item13: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Sucursal:' + Control = eSucursal + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item14: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + Caption = 'DC:' + Control = eDC ControlOptions.ShowBorder = False end end - end - object dxLayoutControl1Group7: TdxLayoutGroup - Caption = 'Observaciones' - object dxLayoutControl1Item5: TdxLayoutItem - AutoAligns = [aaHorizontal] - AlignVert = avClient - Caption = 'Observaciones:' - ShowCaption = False - Control = memObservaciones + object dxLayoutControl1Item15: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'C'#243'd. cuenta:' + Control = eCuenta ControlOptions.ShowBorder = False end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas index d74a5e28..c73207a7 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas @@ -29,8 +29,6 @@ type edtFechaVencimiento: TcxDBDateEdit; dxLayoutControl1Item5: TdxLayoutItem; memObservaciones: TcxDBMemo; - dxLayoutControl1Item6: TdxLayoutItem; - eImporte: TcxDBCurrencyEdit; dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Item7: TdxLayoutItem; eFechaEmision: TcxDBTextEdit; @@ -55,27 +53,21 @@ type dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Item16: TdxLayoutItem; eRemesa: TcxDBTextEdit; - dxLayoutControl1Item17: TdxLayoutItem; - eOtrosGastos: TcxDBCurrencyEdit; dxLayoutControl1Group4: TdxLayoutGroup; - eImporteTotalRecibo: TcxCurrencyEdit; - dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutControl1Group7: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup; - dxLayoutControl1Item18: TdxLayoutItem; - Bevel1: TBevel; dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Item19: TdxLayoutItem; edtFechaEmision: TcxDBDateEdit; - dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Item20: TdxLayoutItem; eReferenciaProveedor: TcxDBTextEdit; dxLayoutControl1Item21: TdxLayoutItem; rReferenciaFacturaProv: TcxDBTextEdit; - procedure eImportePropertiesEditValueChanged(Sender: TObject); + dxLayoutControl1Item4: TdxLayoutItem; + rRefReciboCompensado: TcxDBTextEdit; private FRecibo : IBizRecibosProveedor; function GetRecibo: IBizRecibosProveedor; @@ -93,12 +85,6 @@ implementation { TfrViewReciboProveedor } -procedure TfrViewReciboProveedor.eImportePropertiesEditValueChanged(Sender: TObject); -begin - inherited; - eImporteTotalRecibo.Value := eImporte.Value + eOtrosGastos.Value; -end; - function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor; begin Result := FRecibo; diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm new file mode 100644 index 00000000..98f73a1b --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm @@ -0,0 +1,237 @@ +inherited frViewRecibosProvCompensados: TfrViewRecibosProvCompensados + Width = 549 + Height = 376 + OnShow = CustomViewShow + ExplicitWidth = 549 + ExplicitHeight = 376 + inherited cxGrid: TcxGrid + Width = 549 + Height = 351 + ExplicitWidth = 549 + ExplicitHeight = 351 + inherited cxGridView: TcxGridDBTableView + DataController.KeyFieldNames = 'RecID' + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE_TOTAL + end> + OptionsCustomize.ColumnMoving = True + OptionsData.Appending = False + OptionsData.CancelOnExit = True + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + object cxGridViewRecId: TcxGridDBColumn [0] + DataBinding.FieldName = 'RecId' + Visible = False + end + object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn + DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' + Visible = False + end + object cxGridViewREFERENCIA: TcxGridDBColumn + Caption = 'Referencia' + DataBinding.FieldName = 'REFERENCIA' + end + object cxGridViewSITUACION: TcxGridDBColumn + Caption = 'Situaci'#243'n' + DataBinding.FieldName = 'SITUACION' + end + object cxGridViewFECHA_EMISION: TcxGridDBColumn + Caption = 'Fecha emisi'#243'n' + DataBinding.FieldName = 'FECHA_EMISION' + end + object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn + Caption = 'Fecha vencimiento' + DataBinding.FieldName = 'FECHA_VENCIMIENTO' + end + object cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn + Caption = 'NIF/CIF' + DataBinding.FieldName = 'NIF_CLIF_PROVEEDOR' + end + object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn + Caption = 'Proveedor' + DataBinding.FieldName = 'NOMBRE_PROVEEDOR' + end + object cxGridViewIMPORTE: TcxGridDBColumn + Caption = 'Importe' + DataBinding.FieldName = 'IMPORTE' + end + object cxGridViewOTROS_GASTOS: TcxGridDBColumn + Caption = 'Otros gastos' + DataBinding.FieldName = 'OTROS_GASTOS' + end + object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn + Caption = 'Importe total' + DataBinding.FieldName = 'IMPORTE_TOTAL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + end + end + inherited ToolBar1: TToolBar + Width = 549 + ExplicitWidth = 549 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end + object ToolButton3: TToolButton + Left = 336 + Top = 2 + Action = actExpandir + AutoSize = True + end + object ToolButton8: TToolButton + Left = 434 + Top = 2 + Action = actContraer + AutoSize = True + end + end + inherited ContenidoImageList: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000F84944415478DA + 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA + 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4 + 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F + FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF + 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911 + BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4 + 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B + 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945 + 4E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA + A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 + 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 + 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F + 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 + 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 + 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA + 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E + 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 + E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 + 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 + 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 + 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB + 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 + 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 + E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 + D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 + 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 + A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E + AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 + 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 + 5538F0EAB25B380000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000015D4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 + 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 + 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 + E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 + 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 + 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 + 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 + BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 + 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 + E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 + 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 + 00000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001124944415478DA + 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 + 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC + 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 + 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 + 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC + E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC + 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 + CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 + 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000DF4944415478DA + 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B + 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA + CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 + 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 + F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 + 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF + FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 + 6B0000000049454E44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000914944415478DA + 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 + FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB + EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE + 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 + 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end> + Bitmap = {} + end + inherited ActionListContenido: TActionList + inherited actModificar: TAction + Enabled = False + Visible = False + end + object actExpandir: TAction + Category = 'Operaciones' + Caption = 'Expandir todo' + ImageIndex = 4 + Visible = False + OnExecute = actExpandirExecute + OnUpdate = actExpandirUpdate + end + object actContraer: TAction + Category = 'Operaciones' + Caption = 'Contraer todo' + ImageIndex = 5 + Visible = False + OnExecute = actContraerExecute + OnUpdate = actContraerUpdate + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas new file mode 100644 index 00000000..6459fdf4 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas @@ -0,0 +1,193 @@ +unit uViewRecibosProvCompensados; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList, + uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor, + uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit, + dxLayoutControl; + +type + IViewRecibosCompensados = interface + ['{C683669A-002A-432D-BC20-3FA50BEA8721}'] + function GetReciboProveedor: IBizRecibosProveedor; + procedure SetReciboProveedor(const Value: IBizRecibosProveedor); + property ReciboProveedor: IBizRecibosProveedor read GetReciboProveedor write SetReciboProveedor; + + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); + property Controller : IRecibosProveedorController read GetController write SetController; + end; + + TfrViewRecibosProvCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados) + actExpandir: TAction; + actContraer: TAction; + ToolButton3: TToolButton; + ToolButton8: TToolButton; + cxGridViewREFERENCIA: TcxGridDBColumn; + cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; + cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn; + cxGridViewSITUACION: TcxGridDBColumn; + cxGridViewFECHA_EMISION: TcxGridDBColumn; + cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; + cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn; + cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn; + cxGridViewIMPORTE: TcxGridDBColumn; + cxGridViewOTROS_GASTOS: TcxGridDBColumn; + cxGridViewRecId: TcxGridDBColumn; + procedure actExpandirExecute(Sender: TObject); + procedure actContraerExecute(Sender: TObject); + procedure CustomViewShow(Sender: TObject); + procedure actEliminarUpdate(Sender: TObject); + procedure actExpandirUpdate(Sender: TObject); + procedure actContraerUpdate(Sender: TObject); + procedure actAnadirUpdate(Sender: TObject); + protected + FHayCambios : Boolean; + FReciboProveedor : IBizRecibosProveedor; + FController : IRecibosProveedorController; + + procedure AnadirInterno; override; + procedure EliminarInterno; override; + + function GetReciboProveedor: IBizRecibosProveedor; + procedure SetReciboProveedor(const Value: IBizRecibosProveedor); + + function GetModified: Boolean; override; + procedure SetModified(const Value: Boolean); override; + + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + property ReciboProveedor: IBizRecibosProveedor read GetReciboProveedor write SetReciboProveedor; + property Controller : IRecibosProveedorController read GetController write SetController; + end; + + +implementation + +{$R *.dfm} + +uses + uCustomView; + +{ TfrViewFacturasReciboProveedor } + +procedure TfrViewRecibosProvCompensados.actAnadirUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := (ReciboProveedor.SITUACION <> CTE_PAGADO); +end; + +procedure TfrViewRecibosProvCompensados.actContraerExecute(Sender: TObject); +begin + inherited; + cxGridView.ViewData.Collapse(True); +end; + +procedure TfrViewRecibosProvCompensados.actContraerUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := HayDatos; +end; + +procedure TfrViewRecibosProvCompensados.actEliminarUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0) + and (cxGridView.Controller.SelectedRows[0].HasCells) + and (ReciboProveedor.SITUACION <> CTE_PAGADO)); +end; + +procedure TfrViewRecibosProvCompensados.actExpandirExecute(Sender: TObject); +begin + inherited; + cxGridView.ViewData.Expand(True); +end; + +procedure TfrViewRecibosProvCompensados.actExpandirUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := HayDatos; +end; + +procedure TfrViewRecibosProvCompensados.AnadirInterno; +begin + //inherited; // No hacer el comportamiento normal + if FController.ElegirRecibosCompensados(ReciboProveedor) then + Modified := True; +end; + +constructor TfrViewRecibosProvCompensados.Create(AOwner: TComponent); +begin + inherited; + FHayCambios := False; +end; + +procedure TfrViewRecibosProvCompensados.CustomViewShow(Sender: TObject); +begin + inherited; + cxGridView.OptionsSelection.MultiSelect := False; +end; + +destructor TfrViewRecibosProvCompensados.Destroy; +begin + inherited; +end; + +procedure TfrViewRecibosProvCompensados.EliminarInterno; +begin + if cxGridView.Controller.SelectedRowCount > 0 then + if cxGridView.Controller.SelectedRows[0].HasCells then +// ViewGrid._FocusedView.Controller.SelectedRecordCount + FController.QuitarReciboCompensado(ReciboProveedor); + Modified := True; +end; + +function TfrViewRecibosProvCompensados.GetController: IRecibosProveedorController; +begin + Result := FController; +end; + +function TfrViewRecibosProvCompensados.GetModified: Boolean; +begin + Result := FHayCambios or inherited GetModified; +end; + +function TfrViewRecibosProvCompensados.GetReciboProveedor: IBizRecibosProveedor; +begin + Result := FReciboProveedor; +end; + +procedure TfrViewRecibosProvCompensados.SetController( + const Value: IRecibosProveedorController); +begin + FController := Value; +end; + +procedure TfrViewRecibosProvCompensados.SetModified(const Value: Boolean); +begin + FHayCambios := Value; + inherited; +end; + +procedure TfrViewRecibosProvCompensados.SetReciboProveedor(const Value: IBizRecibosProveedor); +begin + FReciboProveedor := Value; + FHayCambios := False; + if Assigned(FReciboProveedor) then + dsDetalles.DataTable := FReciboProveedor.RecibosCompensados.DataTable + else + dsDetalles.DataTable := NIL; + + actAnchoAutomatico.Execute; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm index 80390a0b..5e360a18 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm @@ -38,6 +38,15 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor DataBinding.FieldName = 'REFERENCIA' Width = 71 end + object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn + Caption = 'Compensado' + DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' + OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell + end + object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn + Caption = 'Ref. recibo compensado' + DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' + end object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn Caption = 'Ref. proveedor' DataBinding.FieldName = 'REFERENCIA_PROVEEDOR' @@ -276,6 +285,26 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor 0049454E44AE426082} Name = 'PngImage1' Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 + 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD + 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E + E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 + 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF + FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 + E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 + C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF + 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 + 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A + 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA + 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 + 000005100EB8572466A60000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow end> Left = 56 Top = 48 diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas index f4c81f77..d19dcb7c 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas @@ -49,6 +49,8 @@ type TBXItem2: TTBXItem; TBXSeparatorItem1: TTBXSeparatorItem; cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn; + cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn; + cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn; procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); @@ -60,6 +62,9 @@ type var AText: string); procedure actProveedorExecute(Sender: TObject); procedure actProveedorUpdate(Sender: TObject); + procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); private //Filtros relativos a la vista @@ -180,6 +185,22 @@ begin } end; +procedure TfrViewRecibosProveedor.cxGridViewID_RECIBO_COMPENSADOCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + R : TRect; +begin + inherited; + if not VarIsNull(AViewInfo.Value) then + begin + R := AViewInfo.ContentBounds; + ACanvas.FillRect(R); + ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2); + ADone := True; + end; +end; + procedure TfrViewRecibosProveedor.cxGridViewIMPORTE_TOTALGetDisplayText( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AText: string); diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index 1bbee6b5..5db3546b 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas @@ -270,7 +270,7 @@ var begin Result := False; - ARecibosSeleccionados := (FRecibosProveedorController.ElegirRecibos(FRecibosProveedorController.BuscarTodosPendientesDevueltos, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosProveedor); + ARecibosSeleccionados := (FRecibosProveedorController.ElegirRecibos(FRecibosProveedorController.BuscarRecibosARemesar, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosProveedor); if Assigned(ARecibosSeleccionados) then begin ShowHourglassCursor; @@ -351,7 +351,7 @@ end; procedure TRemesasProveedorController.RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor); begin - ARemesaProveedor.Recibos := RecibosProveedorController.BuscarTodosRemesa(ARemesaProveedor.ID); + ARemesaProveedor.Recibos := RecibosProveedorController.BuscarRecibosRemesa(ARemesaProveedor.ID); end; function TRemesasProveedorController.Existe(const ID: Integer): Boolean; diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 019712e5..2ddb31b2 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -116,17 +116,17 @@ uses schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', - schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', - schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', - schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', - schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', srvInformes_Impl in '..\Modulos\Informes base\Servidor\srvInformes_Impl.pas' {srvInformes: TDARemoteService}, srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDARemoteService}, schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas', schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas', schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas', schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas', - uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas'; + uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas', + schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', + schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', + schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', + schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 6e16d762..ad6c0859 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,1,1,0 -PRODUCTVERSION 2,1,1,0 +FILEVERSION 2,1,0,0 +PRODUCTVERSION 2,1,0,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0904E4" BEGIN - VALUE "FileVersion", "2.1.1.0\0" - VALUE "ProductVersion", "2.1.1.0\0" - VALUE "CompileDate", "lunes, 09 de julio de 2007 19:04\0" + VALUE "FileVersion", "2.1.0.0\0" + VALUE "ProductVersion", "2.1.0.0\0" + VALUE "CompileDate", "miércoles, 11 de julio de 2007 16:01\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 50204ed0..87ebbdb9 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ