Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Poder compensar recibos de proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@85 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-07-11 14:12:15 +00:00
parent 48c4934983
commit 8d2615a90d
48 changed files with 3282 additions and 780 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

40
Database/VISTAS.SQL
View File

@ -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;

BIN
Output/Debug/Cliente/FactuGES.exe
View File

Binary file not shown.

BIN
Output/Debug/Servidor/FactuGES_Server.exe
View File

Binary file not shown.

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Base/GUIBase/uViewBarraSeleccion.pas
View File

@ -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)

6
Source/Cliente/FactuGES.rc
View File

@ -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"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -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

6
Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.pas
View File

@ -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

8
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -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

14
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
View File

@ -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;

230
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -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.

224
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -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.

26
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -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

16
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -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

4
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk
View File

@ -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.

33
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -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

32
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -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

2
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
View File

@ -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

7
Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.dfm → Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm
View File

@ -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

4
Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.pas → Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas
View File

@ -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;

2
Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.dfm → Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
View File

@ -1,4 +1,4 @@
inherited frViewRecibosCompensados: TfrViewRecibosCompensados
inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados
Width = 549
Height = 376
OnShow = CustomViewShow

38
Source/Modulos/Recibos de cliente/Views/uViewRecibosCompensados.pas → Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
View File

@ -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;

139
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -50,14 +50,15 @@ 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);
@ -65,6 +66,9 @@ type
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

317
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -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

25
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas
View File

@ -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;

530
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -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);

492
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -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);

43
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas
View File

@ -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

486
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -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

1
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas
View File

@ -27,6 +27,7 @@ type
DABINAdapter: TDABINAdapter;
bpRecibosProveedor: TDABusinessProcessor;
bpPagosProveedor: TDABusinessProcessor;
bpRecibosCompensados: TDABusinessProcessor;
schRecibosProveedor: TDASchema;
DADataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;

7
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk
View File

@ -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.

51
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm
View File

@ -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

228
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -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

58
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
View File

@ -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

129
Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm Normal file
View File

@ -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

37
Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas Normal file
View File

@ -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.

299
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -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

18
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -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;

237
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm Normal file
View File

@ -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

193
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas Normal file
View File

@ -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.

29
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
View File

@ -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

21
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
View File

@ -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);

4
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -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;

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -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}

10
Source/Servidor/FactuGES_Server.rc
View File

@ -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"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.