Recibos de cliente pordrán compensar a otros recibos, asi pues un recibo de cliente tendrá relación 1 a N con recibos de cliente, ya estaría hecho en el módulo de recibos de cliente y modificado tambien en remesas, afecta a las vistas además.
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@79 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
e3936186a2
commit
3479a3922a
Binary file not shown.
Binary file not shown.
@ -1,6 +1,4 @@
|
|||||||
DROP VIEW V_REMESAS_PROVEEDOR;
|
DROP VIEW V_REMESAS_PROVEEDOR;
|
||||||
|
|
||||||
|
|
||||||
DROP VIEW V_VENTAS_ARTICULOS;
|
DROP VIEW V_VENTAS_ARTICULOS;
|
||||||
|
|
||||||
/*
|
/*
|
||||||
@ -68,6 +66,8 @@ DROP VIEW V_FAC_PRO_SITUACION;
|
|||||||
DROP VIEW V_REC_FAC_CLI_COBRADOS;
|
DROP VIEW V_REC_FAC_CLI_COBRADOS;
|
||||||
DROP VIEW V_REC_FAC_PRO_PAGADOS;
|
DROP VIEW V_REC_FAC_PRO_PAGADOS;
|
||||||
DROP VIEW V_RECIBOS_CLIENTE;
|
DROP VIEW V_RECIBOS_CLIENTE;
|
||||||
|
DROP VIEW V_REMESAS_CLIENTE;
|
||||||
|
DROP VIEW V_REC_CLI_COMPENSADOS;
|
||||||
DROP VIEW V_RECIBOS_PROVEEDOR;
|
DROP VIEW V_RECIBOS_PROVEEDOR;
|
||||||
DROP VIEW V_REC_CLI_SITUACION;
|
DROP VIEW V_REC_CLI_SITUACION;
|
||||||
DROP VIEW V_REC_PRO_SITUACION;
|
DROP VIEW V_REC_PRO_SITUACION;
|
||||||
@ -78,53 +78,8 @@ DROP VIEW V_ALBARANES_PROVEEDOR;
|
|||||||
DROP VIEW V_PROVEEDORES;
|
DROP VIEW V_PROVEEDORES;
|
||||||
DROP VIEW V_CLIENTES;
|
DROP VIEW V_CLIENTES;
|
||||||
DROP VIEW V_CONTACTOS;
|
DROP VIEW V_CONTACTOS;
|
||||||
DROP VIEW V_REMESAS_CLIENTE;
|
|
||||||
|
|
||||||
|
|
||||||
CREATE VIEW V_REMESAS_CLIENTE(
|
|
||||||
ID,
|
|
||||||
ID_EMPRESA,
|
|
||||||
REFERENCIA,
|
|
||||||
FECHA_REMESA,
|
|
||||||
DESCRIPCION,
|
|
||||||
ID_DATOS_BANCO,
|
|
||||||
FECHA_ALTA,
|
|
||||||
FECHA_MODIFICACION,
|
|
||||||
USUARIO,
|
|
||||||
NOMBRE,
|
|
||||||
ENTIDAD,
|
|
||||||
SUCURSAL,
|
|
||||||
DC,
|
|
||||||
CUENTA,
|
|
||||||
SUFIJO_N19,
|
|
||||||
SUFIJO_N58,
|
|
||||||
IMPORTE_TOTAL)
|
|
||||||
AS
|
|
||||||
SELECT
|
|
||||||
REMESAS_CLIENTE.ID,
|
|
||||||
REMESAS_CLIENTE.ID_EMPRESA,
|
|
||||||
REMESAS_CLIENTE.REFERENCIA,
|
|
||||||
REMESAS_CLIENTE.FECHA_REMESA,
|
|
||||||
REMESAS_CLIENTE.DESCRIPCION,
|
|
||||||
REMESAS_CLIENTE.ID_DATOS_BANCO,
|
|
||||||
REMESAS_CLIENTE.FECHA_ALTA,
|
|
||||||
REMESAS_CLIENTE.FECHA_MODIFICACION,
|
|
||||||
REMESAS_CLIENTE.USUARIO,
|
|
||||||
EMPRESAS_DATOS_BANCO.NOMBRE,
|
|
||||||
EMPRESAS_DATOS_BANCO.ENTIDAD,
|
|
||||||
EMPRESAS_DATOS_BANCO.SUCURSAL,
|
|
||||||
EMPRESAS_DATOS_BANCO.DC,
|
|
||||||
EMPRESAS_DATOS_BANCO.CUENTA,
|
|
||||||
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
|
|
||||||
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
|
|
||||||
SUM(RECIBOS_CLIENTE.IMPORTE + RECIBOS_CLIENTE.OTROS_GASTOS) as IMPORTE_TOTAL
|
|
||||||
|
|
||||||
FROM
|
|
||||||
REMESAS_CLIENTE
|
|
||||||
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
|
|
||||||
LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
|
|
||||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
|
|
||||||
|
|
||||||
|
|
||||||
CREATE VIEW V_CONTACTOS(
|
CREATE VIEW V_CONTACTOS(
|
||||||
ID,
|
ID,
|
||||||
@ -567,9 +522,20 @@ LEFT JOIN REMESAS_PROVEEDOR
|
|||||||
ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA);
|
ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA);
|
||||||
|
|
||||||
|
|
||||||
|
CREATE VIEW V_REC_CLI_COMPENSADOS (
|
||||||
|
ID_RECIBO,
|
||||||
|
IMPORTE_TOTAL_COMPENSADO
|
||||||
|
) as
|
||||||
|
select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL
|
||||||
|
from RECIBOS_CLIENTE
|
||||||
|
where ID_RECIBO_COMPENSADO is not null
|
||||||
|
group by ID_RECIBO_COMPENSADO;
|
||||||
|
|
||||||
|
|
||||||
CREATE VIEW V_RECIBOS_CLIENTE(
|
CREATE VIEW V_RECIBOS_CLIENTE(
|
||||||
ID,
|
ID,
|
||||||
|
ID_RECIBO_COMPENSADO,
|
||||||
|
REFERENCIA_REC_COMPENSADO,
|
||||||
REFERENCIA,
|
REFERENCIA,
|
||||||
SITUACION,
|
SITUACION,
|
||||||
ID_FACTURA,
|
ID_FACTURA,
|
||||||
@ -597,13 +563,20 @@ CREATE VIEW V_RECIBOS_CLIENTE(
|
|||||||
FECHA_MODIFICACION,
|
FECHA_MODIFICACION,
|
||||||
USUARIO)
|
USUARIO)
|
||||||
AS
|
AS
|
||||||
SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.REFERENCIA,
|
SELECT RECIBOS_CLIENTE.ID,
|
||||||
V_REC_CLI_SITUACION.SITUACION,
|
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
|
||||||
|
RECIBO_COMPENSADO1.REFERENCIA,
|
||||||
|
RECIBOS_CLIENTE.REFERENCIA,
|
||||||
|
CASE
|
||||||
|
WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL
|
||||||
|
THEN V_REC_CLI_SITUACION.SITUACION
|
||||||
|
ELSE RECIBO_COMPENSADO2.SITUACION
|
||||||
|
END,
|
||||||
RECIBOS_CLIENTE.ID_FACTURA,
|
RECIBOS_CLIENTE.ID_FACTURA,
|
||||||
RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
|
RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
|
||||||
RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
|
RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
|
||||||
RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
|
RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
|
||||||
RECIBOS_CLIENTE.IMPORTE + RECIBOS_CLIENTE.OTROS_GASTOS,
|
COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
|
||||||
|
|
||||||
FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
|
FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
|
||||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||||
@ -627,7 +600,61 @@ ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE)
|
|||||||
LEFT JOIN CONTACTOS_DATOS_BANCO
|
LEFT JOIN CONTACTOS_DATOS_BANCO
|
||||||
ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
|
ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
|
||||||
LEFT JOIN REMESAS_CLIENTE
|
LEFT JOIN REMESAS_CLIENTE
|
||||||
ON (REMESAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_REMESA);
|
ON (REMESAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_REMESA)
|
||||||
|
LEFT JOIN V_REC_CLI_COMPENSADOS
|
||||||
|
ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
|
||||||
|
LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1
|
||||||
|
ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
|
||||||
|
LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
|
||||||
|
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
CREATE VIEW V_REMESAS_CLIENTE(
|
||||||
|
ID,
|
||||||
|
ID_EMPRESA,
|
||||||
|
REFERENCIA,
|
||||||
|
FECHA_REMESA,
|
||||||
|
DESCRIPCION,
|
||||||
|
ID_DATOS_BANCO,
|
||||||
|
FECHA_ALTA,
|
||||||
|
FECHA_MODIFICACION,
|
||||||
|
USUARIO,
|
||||||
|
NOMBRE,
|
||||||
|
ENTIDAD,
|
||||||
|
SUCURSAL,
|
||||||
|
DC,
|
||||||
|
CUENTA,
|
||||||
|
SUFIJO_N19,
|
||||||
|
SUFIJO_N58,
|
||||||
|
IMPORTE_TOTAL)
|
||||||
|
AS
|
||||||
|
SELECT
|
||||||
|
REMESAS_CLIENTE.ID,
|
||||||
|
REMESAS_CLIENTE.ID_EMPRESA,
|
||||||
|
REMESAS_CLIENTE.REFERENCIA,
|
||||||
|
REMESAS_CLIENTE.FECHA_REMESA,
|
||||||
|
REMESAS_CLIENTE.DESCRIPCION,
|
||||||
|
REMESAS_CLIENTE.ID_DATOS_BANCO,
|
||||||
|
REMESAS_CLIENTE.FECHA_ALTA,
|
||||||
|
REMESAS_CLIENTE.FECHA_MODIFICACION,
|
||||||
|
REMESAS_CLIENTE.USUARIO,
|
||||||
|
EMPRESAS_DATOS_BANCO.NOMBRE,
|
||||||
|
EMPRESAS_DATOS_BANCO.ENTIDAD,
|
||||||
|
EMPRESAS_DATOS_BANCO.SUCURSAL,
|
||||||
|
EMPRESAS_DATOS_BANCO.DC,
|
||||||
|
EMPRESAS_DATOS_BANCO.CUENTA,
|
||||||
|
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
|
||||||
|
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
|
||||||
|
SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
|
||||||
|
|
||||||
|
FROM
|
||||||
|
REMESAS_CLIENTE
|
||||||
|
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
|
||||||
|
LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
|
||||||
|
LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
|
||||||
|
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CREATE VIEW V_REC_FAC_PRO_PAGADOS(
|
CREATE VIEW V_REC_FAC_PRO_PAGADOS(
|
||||||
@ -2218,3 +2245,6 @@ FROM
|
|||||||
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
|
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 RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
|
||||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
|
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39267,7346601852" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1; end; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39269,5779148495" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1; end; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="1046,92981">
|
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="1046,92981">
|
||||||
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="69,54329" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
|
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="69,54329" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
|
||||||
@ -48,7 +48,7 @@
|
|||||||
</TfrxPageHeader>
|
</TfrxPageHeader>
|
||||||
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="1046,92981" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="1046,92981" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||||
<TfrxMemoView Name="MemPrecio" Left="658,2704242" Top="2,66666666999998" Width="90,22439724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NIF_CIF_PROVEEDOR"]"/>
|
<TfrxMemoView Name="MemPrecio" Left="658,2704242" Top="2,66666666999998" Width="90,22439724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NIF_CIF_PROVEEDOR"]"/>
|
||||||
<TfrxMemoView Name="MemImpTotal" Left="948,09469811" Top="2" Width="94,25193189" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE"]"/>
|
<TfrxMemoView Name="MemImpTotal" Left="948,09469811" Top="2" Width="94,25193189" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||||
<TfrxMemoView Name="MemCantidad" Left="469,2506879" Top="2" Width="180,31503874" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NOMBRE_PROVEEDOR"]"/>
|
<TfrxMemoView Name="MemCantidad" Left="469,2506879" Top="2" Width="180,31503874" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NOMBRE_PROVEEDOR"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="384,02257333" Top="2" Width="73,10235" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."FECHA_VENCIMIENTO"]"/>
|
<TfrxMemoView Name="Memo21" Left="384,02257333" Top="2" Width="73,10235" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."FECHA_VENCIMIENTO"]"/>
|
||||||
<TfrxMemoView Name="Memo2" Left="9,96444" Top="2" Width="61,32282" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo2" Left="9,96444" Top="2" Width="61,32282" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||||
@ -62,7 +62,7 @@
|
|||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxReportSummary Name="ReportSummary1" Height="42,67718" Left="0" Top="419,52783" Width="1046,92981" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
|
<TfrxReportSummary Name="ReportSummary1" Height="42,67718" Left="0" Top="419,52783" Width="1046,92981" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
|
||||||
<TfrxShapeView Name="Shape5" Left="4" Top="13,7953" Width="1042,81911" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
|
<TfrxShapeView Name="Shape5" Left="4" Top="13,7953" Width="1042,81911" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
|
||||||
<TfrxMemoView Name="Memo9" Left="924,157700000002" Top="14,89765" Width="117,63791" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo9" Left="924,1577" Top="14,89765" Width="117,63791" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||||
<TfrxMemoView Name="Memo10" Left="784,315090000002" Top="17,7953" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
|
<TfrxMemoView Name="Memo10" Left="784,315090000002" Top="17,7953" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
|
||||||
</TfrxReportSummary>
|
</TfrxReportSummary>
|
||||||
</TfrxReportPage>
|
</TfrxReportPage>
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico"
|
MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 2,1,0,0
|
FILEVERSION 2,1,1,0
|
||||||
PRODUCTVERSION 2,1,0,0
|
PRODUCTVERSION 2,1,1,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,7 +13,7 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "2.1.0.0\0"
|
VALUE "FileVersion", "2.1.1.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductName", "FactuGES\0"
|
VALUE "ProductName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "2.0.6\0"
|
VALUE "ProductVersion", "2.0.6\0"
|
||||||
|
|||||||
Binary file not shown.
@ -173,9 +173,31 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
ExplicitWidth = 596
|
ExplicitWidth = 596
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 592
|
Width = 592
|
||||||
|
ExplicitWidth = 592
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
Left = 172
|
||||||
|
ExplicitLeft = 172
|
||||||
|
ExplicitWidth = 273
|
||||||
|
Width = 273
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
Left = 172
|
||||||
|
ExplicitLeft = 172
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 367
|
Left = 413
|
||||||
ExplicitLeft = 367
|
ExplicitLeft = 413
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
Caption = 'Entre la fecha prevista de envio:'
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
@ -188,6 +210,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
Left = 104
|
||||||
|
Top = 72
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
Top = 453
|
Top = 453
|
||||||
@ -214,7 +240,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dsDataSource: TDADataSource
|
inherited dsDataSource: TDADataSource
|
||||||
Top = 32
|
Top = 72
|
||||||
end
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
@ -345,8 +371,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
Name = 'PngImage3'
|
Name = 'PngImage3'
|
||||||
Background = clWindow
|
Background = clWindow
|
||||||
end>
|
end>
|
||||||
Left = 56
|
Left = 64
|
||||||
Top = 48
|
Top = 72
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -149,8 +149,12 @@ begin
|
|||||||
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
|
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||||
FFiltro := AddFilterGrid(fboAnd);
|
FFiltro := AddFilterGrid(fboAnd);
|
||||||
|
|
||||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_ALBARAN');
|
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_PREVISTA_ENVIO');
|
||||||
FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
||||||
|
|
||||||
|
// FFiltro.BoolOperatorKind := fboOr;
|
||||||
|
// Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_ALBARAN');
|
||||||
|
// FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -89,7 +89,7 @@ contains
|
|||||||
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorComisiones},
|
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorComisiones},
|
||||||
uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
|
uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
|
||||||
uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorComision},
|
uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorComision},
|
||||||
uViewFacturasComision in 'uViewFacturasComision.pas' {frViewFacturasComision: TFrame},
|
uEditorComisionesReport in 'uEditorComisionesReport.pas' {fEditorComisionesReport: TfEditorComisionesReport},
|
||||||
uEditorComisionesReport in 'uEditorComisionesReport.pas' {fEditorComisionesReport: TfEditorComisionesReport};
|
uViewFacturasComision in 'uViewFacturasComision.pas' {frViewFacturasComision: TFrame};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -62,7 +62,7 @@ inherited fEditorComision: TfEditorComision
|
|||||||
Width = 611
|
Width = 611
|
||||||
ExplicitWidth = 611
|
ExplicitWidth = 611
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 482
|
ExplicitWidth = 488
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
@ -231,9 +231,7 @@ inherited fEditorComision: TfEditorComision
|
|||||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
AutoAligns = [aaHorizontal]
|
AutoAligns = [aaHorizontal]
|
||||||
AlignVert = avClient
|
AlignVert = avClient
|
||||||
Caption =
|
Caption = 'Facturas asociadas a la liquidaci'#243'n desglosadas por proveedor'
|
||||||
'Facturas asociadas a la liquidaci'#243'n desglosadas por agente y pro' +
|
|
||||||
'veedor'
|
|
||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
AutoAligns = [aaHorizontal]
|
AutoAligns = [aaHorizontal]
|
||||||
AlignVert = avClient
|
AlignVert = avClient
|
||||||
|
|||||||
@ -30,6 +30,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
|||||||
OptionsView.GroupFooters = gfAlwaysVisible
|
OptionsView.GroupFooters = gfAlwaysVisible
|
||||||
inherited cxGridViewID: TcxGridDBColumn
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
DataBinding.FieldName = ''
|
DataBinding.FieldName = ''
|
||||||
|
IsCaptionAssigned = True
|
||||||
end
|
end
|
||||||
object cxGridViewRecID: TcxGridDBColumn
|
object cxGridViewRecID: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'RecID'
|
DataBinding.FieldName = 'RecID'
|
||||||
|
|||||||
@ -904,7 +904,7 @@ begin
|
|||||||
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
|
//Eliminamos todos los recibos que tuviera la factura porque sabemos que todos
|
||||||
//estarán pendientes (solo permitiremos modificar y eliminar facturas pendientes,
|
//estarán pendientes (solo permitiremos modificar y eliminar facturas pendientes,
|
||||||
//parcialmente pagadas o pagadas no
|
//parcialmente pagadas o pagadas no
|
||||||
ARecibos := ARecibosClienteController.BuscarTodosFactura(AFactura.ID);
|
ARecibos := ARecibosClienteController.BuscarRecibosFactura(AFactura.ID);
|
||||||
ARecibosClienteController.EliminarTodo(ARecibos);
|
ARecibosClienteController.EliminarTodo(ARecibos);
|
||||||
|
|
||||||
//Vamos a generar todos los recibos necesarios para la factura
|
//Vamos a generar todos los recibos necesarios para la factura
|
||||||
|
|||||||
Binary file not shown.
@ -39,11 +39,13 @@ type
|
|||||||
property PagosController: IPagosClienteController read GetPagosController write SetPagosController;
|
property PagosController: IPagosClienteController read GetPagosController write SetPagosController;
|
||||||
|
|
||||||
procedure Anadir(ARecibosCliente : IBizRecibosCliente);
|
procedure Anadir(ARecibosCliente : IBizRecibosCliente);
|
||||||
|
function Eliminar(ARecibosCliente : IBizRecibosCliente): Boolean;
|
||||||
|
|
||||||
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean;
|
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean;
|
||||||
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente);
|
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente);
|
||||||
function Eliminar(ARecibosCliente : IBizRecibosCliente): Boolean;
|
|
||||||
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
|
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
|
||||||
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
|
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
|
||||||
|
|
||||||
function Guardar(ARecibosCliente : IBizRecibosCliente): Boolean;
|
function Guardar(ARecibosCliente : IBizRecibosCliente): Boolean;
|
||||||
procedure DescartarCambios(ARecibosCliente : IBizRecibosCliente);
|
procedure DescartarCambios(ARecibosCliente : IBizRecibosCliente);
|
||||||
function Duplicar(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente;
|
function Duplicar(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente;
|
||||||
@ -52,14 +54,16 @@ type
|
|||||||
procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
|
procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
|
||||||
|
|
||||||
function Buscar(const ID: Integer): IBizRecibosCliente;
|
function Buscar(const ID: Integer): IBizRecibosCliente;
|
||||||
function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
|
||||||
function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
|
||||||
function BuscarTodos: IBizRecibosCliente;
|
function BuscarTodos: IBizRecibosCliente;
|
||||||
function BuscarTodosPendientesDevueltos: IBizRecibosCliente;
|
|
||||||
|
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
||||||
|
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||||
|
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||||
|
function BuscarRecibosARemesar: IBizRecibosCliente;
|
||||||
|
|
||||||
procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
|
procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
|
||||||
procedure Ver(ARecibosCliente: IBizRecibosCliente);
|
procedure Ver(ARecibosCliente: IBizRecibosCliente);
|
||||||
function Localizar(ARecibosCliente: IBizRecibosCliente; ADescripcion:String): Boolean;
|
|
||||||
function DarListaRecibosCliente: TStringList;
|
|
||||||
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
|
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
|
||||||
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
|
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
|
||||||
|
|
||||||
@ -67,6 +71,9 @@ type
|
|||||||
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
|
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
|
||||||
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
|
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
|
||||||
|
|
||||||
|
function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
|
||||||
|
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
|
||||||
|
|
||||||
procedure Preview(ARecibosCliente : IBizRecibosCliente);
|
procedure Preview(ARecibosCliente : IBizRecibosCliente);
|
||||||
procedure Print(ARecibosCliente : IBizRecibosCliente);
|
procedure Print(ARecibosCliente : IBizRecibosCliente);
|
||||||
end;
|
end;
|
||||||
@ -108,20 +115,24 @@ type
|
|||||||
function Nuevo : IBizRecibosCliente;
|
function Nuevo : IBizRecibosCliente;
|
||||||
|
|
||||||
function Buscar(const ID: Integer): IBizRecibosCliente;
|
function Buscar(const ID: Integer): IBizRecibosCliente;
|
||||||
function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
|
||||||
function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
|
||||||
function BuscarTodos: IBizRecibosCliente;
|
function BuscarTodos: IBizRecibosCliente;
|
||||||
function BuscarTodosPendientesDevueltos: IBizRecibosCliente;
|
|
||||||
|
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
||||||
|
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||||
|
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||||
|
function BuscarRecibosARemesar: IBizRecibosCliente;
|
||||||
|
|
||||||
procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
|
procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
|
||||||
procedure Ver(ARecibosCliente: IBizRecibosCliente);
|
procedure Ver(ARecibosCliente: IBizRecibosCliente);
|
||||||
function Localizar(ARecibosCliente: IBizRecibosCliente; ADescripcion:String): Boolean;
|
|
||||||
|
|
||||||
function DarListaRecibosCliente: TStringList;
|
|
||||||
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
|
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
|
||||||
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
|
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
|
||||||
|
function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
|
||||||
|
|
||||||
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
|
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
|
||||||
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
|
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
|
||||||
|
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
|
||||||
|
|
||||||
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
|
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
|
||||||
|
|
||||||
procedure Preview(ARecibosCliente : IBizRecibosCliente);
|
procedure Preview(ARecibosCliente : IBizRecibosCliente);
|
||||||
@ -261,6 +272,43 @@ begin
|
|||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||||
|
begin
|
||||||
|
if not Assigned(Recibo) then
|
||||||
|
raise Exception.Create ('IBizReciboCliente no asignado (BuscarRecibosACompensar)');
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
Result := BuscarTodos;
|
||||||
|
with Result.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
|
||||||
|
//No podrá compensarse un recibo a si mismo
|
||||||
|
OpenBraket;
|
||||||
|
AddText(fld_RecibosClienteID + ' <> ' + IntToStr(Recibo.ID));
|
||||||
|
CloseBraket;
|
||||||
|
|
||||||
|
AddOperator(opAND);
|
||||||
|
|
||||||
|
//Solo podrá compensar recibos del mismo cliente
|
||||||
|
OpenBraket;
|
||||||
|
AddText(fld_RecibosClienteID_CLIENTE + ' = ' + IntToStr(Recibo.ID_CLIENTE));
|
||||||
|
CloseBraket;
|
||||||
|
|
||||||
|
AddOperator(opAND);
|
||||||
|
|
||||||
|
//No podrá compensarse recibos que estan cobrados
|
||||||
|
OpenBraket;
|
||||||
|
AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
|
||||||
|
CloseBraket;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TRecibosClienteController.Create;
|
constructor TRecibosClienteController.Create;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -275,7 +323,7 @@ begin
|
|||||||
Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
|
Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
@ -293,7 +341,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.BuscarTodosPendientesDevueltos: IBizRecibosCliente;
|
function TRecibosClienteController.BuscarRecibosARemesar: IBizRecibosCliente;
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
@ -302,9 +350,15 @@ begin
|
|||||||
begin
|
begin
|
||||||
if NotEmpty then
|
if NotEmpty then
|
||||||
AddOperator(opAND);
|
AddOperator(opAND);
|
||||||
|
|
||||||
|
//Omitimos los recibos compensados
|
||||||
OpenBraket;
|
OpenBraket;
|
||||||
AddText(fld_RecibosClienteSITUACION + ' = ''' + CTE_PENDIENTE + '''');
|
AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL ');
|
||||||
AddText(' OR ' + fld_RecibosClienteSITUACION + ' = ''' + CTE_DEVUELTO + '''');
|
CloseBraket;
|
||||||
|
AddOperator(opAND);
|
||||||
|
//Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos)
|
||||||
|
OpenBraket;
|
||||||
|
AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
|
||||||
CloseBraket;
|
CloseBraket;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
@ -312,7 +366,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
function TRecibosClienteController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
@ -335,28 +389,6 @@ begin
|
|||||||
Result := Buscar(ID_NULO);
|
Result := Buscar(ID_NULO);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.DarListaRecibosCliente: TStringList;
|
|
||||||
var
|
|
||||||
ARecibosCliente: IBizRecibosCliente;
|
|
||||||
begin
|
|
||||||
ARecibosCliente := BuscarTodos;
|
|
||||||
ARecibosCliente.DataTable.Active := True;
|
|
||||||
Result := TStringList.Create;
|
|
||||||
try
|
|
||||||
with Result do
|
|
||||||
begin
|
|
||||||
ARecibosCliente.DataTable.First;
|
|
||||||
while not ARecibosCliente.DataTable.EOF do
|
|
||||||
begin
|
|
||||||
Add(ARecibosCliente.DESCRIPCION);
|
|
||||||
ARecibosCliente.DataTable.Next;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
ARecibosCliente := NIL;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TRecibosClienteController.DarNuevaReferencia(ID_FACTURA: Integer; REFERENCIA: String): String;
|
function TRecibosClienteController.DarNuevaReferencia(ID_FACTURA: Integer; REFERENCIA: String): String;
|
||||||
var
|
var
|
||||||
ARecibosCliente: IBizRecibosCliente;
|
ARecibosCliente: IBizRecibosCliente;
|
||||||
@ -364,7 +396,7 @@ var
|
|||||||
Cadena : String;
|
Cadena : String;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
ARecibosCliente := BuscarTodosFactura(ID_FACTURA);
|
ARecibosCliente := BuscarRecibosFactura(ID_FACTURA);
|
||||||
ARecibosCliente.DataTable.Active := True;
|
ARecibosCliente.DataTable.Active := True;
|
||||||
NumReferencia := ARecibosCliente.DataTable.RecordCount;
|
NumReferencia := ARecibosCliente.DataTable.RecordCount;
|
||||||
Cadena := Copy(REFERENCIA, 0, Pos('-', REFERENCIA));
|
Cadena := Copy(REFERENCIA, 0, Pos('-', REFERENCIA));
|
||||||
@ -537,6 +569,25 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteController.ElegirRecibosCompensados(ARecibo: IBizRecibosCliente): Boolean;
|
||||||
|
var
|
||||||
|
ARecibosACompensar: IBizRecibosCliente;
|
||||||
|
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 TRecibosClienteController.Eliminar(ARecibosCliente: IBizRecibosCliente): Boolean;
|
function TRecibosClienteController.Eliminar(ARecibosCliente: IBizRecibosCliente): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
@ -680,24 +731,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRecibosClienteController.Localizar(ARecibosCliente: IBizRecibosCliente; ADescripcion: String): Boolean;
|
|
||||||
begin
|
|
||||||
Result := True;
|
|
||||||
ShowHourglassCursor;
|
|
||||||
try
|
|
||||||
with ARecibosCliente.DataTable do
|
|
||||||
begin
|
|
||||||
DisableControls;
|
|
||||||
First;
|
|
||||||
if not Locate(fld_RecibosClienteDESCRIPCION, ADescripcion, []) then
|
|
||||||
Result := False;
|
|
||||||
EnableControls;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
|
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
|
||||||
var
|
var
|
||||||
AEditor : IEditorFechaPago;
|
AEditor : IEditorFechaPago;
|
||||||
@ -729,6 +762,20 @@ begin
|
|||||||
Result := ARecibo;
|
Result := ARecibo;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosClienteController.QuitarReciboCompensado(ARecibo: IBizRecibosCliente);
|
||||||
|
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 TRecibosClienteController.QuitarRemesa(ARecibos: IBizRecibosCliente);
|
procedure TRecibosClienteController.QuitarRemesa(ARecibos: IBizRecibosCliente);
|
||||||
begin
|
begin
|
||||||
if Assigned(ARecibos) then
|
if Assigned(ARecibos) then
|
||||||
|
|||||||
@ -89,6 +89,29 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
|
|||||||
Lookup = False
|
Lookup = False
|
||||||
LookupCache = False
|
LookupCache = False
|
||||||
end
|
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_REC_COMPENSADO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA'
|
Name = 'REFERENCIA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -682,7 +705,7 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
|
|||||||
Name = 'ID'
|
Name = 'ID'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
BlobType = dabtUnknown
|
BlobType = dabtUnknown
|
||||||
Value = ''
|
Value = 77
|
||||||
ParamType = daptInput
|
ParamType = daptInput
|
||||||
end>
|
end>
|
||||||
MasterMappingMode = mmParams
|
MasterMappingMode = mmParams
|
||||||
@ -783,4 +806,309 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
|
|||||||
Left = 384
|
Left = 384
|
||||||
Top = 112
|
Top = 112
|
||||||
end
|
end
|
||||||
|
object tbl_RecibosCompensados: 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
|
||||||
|
DictionaryEntry = 'RecibosCliente_REFERENCIA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 9
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_SITUACION'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FACTURA'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_EMISION'
|
||||||
|
DataType = datDateTime
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
DisplayLabel = 'RecibosCliente_FECHA_EMISION'
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
|
DataType = datDateTime
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taRightJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_IMPORTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OTROS_GASTOS'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taRightJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_FACTURA'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taRightJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end>
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
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 = 'RecibosCompensados'
|
||||||
|
end>
|
||||||
|
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||||
|
DataRequestCall.Params = <
|
||||||
|
item
|
||||||
|
Name = 'Result'
|
||||||
|
ParamType = fResult
|
||||||
|
DataType = rtBinary
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DatasetName'
|
||||||
|
ParamType = fIn
|
||||||
|
DataType = rtString
|
||||||
|
Value = 'RecibosCompensados'
|
||||||
|
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 = 'RecibosCompensados'
|
||||||
|
end>
|
||||||
|
ReadOnly = False
|
||||||
|
RemoteService = RORemoteService
|
||||||
|
Adapter = DABinAdapter
|
||||||
|
MasterSource = ds_RecibosCliente
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailFields = 'ID_RECIBO_COMPENSADO'
|
||||||
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
|
LogicalName = 'RecibosCompensados'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 336
|
||||||
|
Top = 304
|
||||||
|
end
|
||||||
|
object ds_RecibosCompensados: TDADataSource
|
||||||
|
DataTable = tbl_RecibosCompensados
|
||||||
|
Left = 336
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -46,11 +46,14 @@ type
|
|||||||
ds_RecibosCliente: TDADataSource;
|
ds_RecibosCliente: TDADataSource;
|
||||||
tbl_PagosCliente: TDACDSDataTable;
|
tbl_PagosCliente: TDACDSDataTable;
|
||||||
ds_PagosCliente: TDADataSource;
|
ds_PagosCliente: TDADataSource;
|
||||||
|
tbl_RecibosCompensados: TDACDSDataTable;
|
||||||
|
ds_RecibosCompensados: TDADataSource;
|
||||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
function DarNombreGenerador(DataSetName: String): String; virtual;
|
function DarNombreGenerador(DataSetName: String): String; virtual;
|
||||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||||
function _GetPagos: IBizPagosCliente;
|
function _GetPagos: IBizPagosCliente;
|
||||||
|
function _GetRecibosCompensados : IBizRecibosCompensados;
|
||||||
public
|
public
|
||||||
function GetNextID(const DataSetName : String) : Integer;
|
function GetNextID(const DataSetName : String) : Integer;
|
||||||
function GetItems: IBizRecibosCliente;
|
function GetItems: IBizRecibosCliente;
|
||||||
@ -129,6 +132,25 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensados;
|
||||||
|
var
|
||||||
|
ARecibosCompensados : TDACDSDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensados);
|
||||||
|
with ARecibosCompensados do
|
||||||
|
begin
|
||||||
|
BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOS;
|
||||||
|
DetailOptions := DetailOptions -
|
||||||
|
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||||
|
end;
|
||||||
|
Result := (ARecibosCompensados as IBizRecibosCompensados);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
|
function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
|
||||||
var
|
var
|
||||||
AIBizRecibosCliente : TDACDSDataTable;
|
AIBizRecibosCliente : TDACDSDataTable;
|
||||||
@ -141,6 +163,9 @@ begin
|
|||||||
with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
|
with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
|
||||||
Pagos := _GetPagos;
|
Pagos := _GetPagos;
|
||||||
|
|
||||||
|
with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
|
||||||
|
RecibosCompensados := _GetRecibosCompensados;
|
||||||
|
|
||||||
Result := (AIBizRecibosCliente as IBizRecibosCliente);
|
Result := (AIBizRecibosCliente as IBizRecibosCliente);
|
||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
|
|||||||
@ -9,17 +9,21 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_RecibosCliente = '{4CA0AA50-AB97-400F-933F-794A93288528}';
|
RID_RecibosCliente = '{FD980379-FB92-4C95-BE21-ED95A7016410}';
|
||||||
RID_RecibosCliente_Refresh = '{7AB9784C-2731-4956-8DF9-7DFD9C4CA6D4}';
|
RID_RecibosCliente_Refresh = '{E53D88F8-4685-45B7-A311-F127B59B66D3}';
|
||||||
RID_PagosCliente = '{2E518A3E-1897-4098-A728-3CE5AB041B32}';
|
RID_PagosCliente = '{AE00696F-314E-474C-9214-B46E7E252D02}';
|
||||||
|
RID_RecibosCompensados = '{8428AEC0-0D77-4FE7-87FF-21D267278BC4}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_RecibosCliente = 'RecibosCliente';
|
nme_RecibosCliente = 'RecibosCliente';
|
||||||
nme_RecibosCliente_Refresh = 'RecibosCliente_Refresh';
|
nme_RecibosCliente_Refresh = 'RecibosCliente_Refresh';
|
||||||
nme_PagosCliente = 'PagosCliente';
|
nme_PagosCliente = 'PagosCliente';
|
||||||
|
nme_RecibosCompensados = 'RecibosCompensados';
|
||||||
|
|
||||||
{ RecibosCliente fields }
|
{ RecibosCliente fields }
|
||||||
fld_RecibosClienteID = 'ID';
|
fld_RecibosClienteID = 'ID';
|
||||||
|
fld_RecibosClienteID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
|
||||||
|
fld_RecibosClienteREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
|
||||||
fld_RecibosClienteREFERENCIA = 'REFERENCIA';
|
fld_RecibosClienteREFERENCIA = 'REFERENCIA';
|
||||||
fld_RecibosClienteSITUACION = 'SITUACION';
|
fld_RecibosClienteSITUACION = 'SITUACION';
|
||||||
fld_RecibosClienteID_FACTURA = 'ID_FACTURA';
|
fld_RecibosClienteID_FACTURA = 'ID_FACTURA';
|
||||||
@ -49,35 +53,39 @@ const
|
|||||||
|
|
||||||
{ RecibosCliente field indexes }
|
{ RecibosCliente field indexes }
|
||||||
idx_RecibosClienteID = 0;
|
idx_RecibosClienteID = 0;
|
||||||
idx_RecibosClienteREFERENCIA = 1;
|
idx_RecibosClienteID_RECIBO_COMPENSADO = 1;
|
||||||
idx_RecibosClienteSITUACION = 2;
|
idx_RecibosClienteREFERENCIA_REC_COMPENSADO = 2;
|
||||||
idx_RecibosClienteID_FACTURA = 3;
|
idx_RecibosClienteREFERENCIA = 3;
|
||||||
idx_RecibosClienteID_REMESA = 4;
|
idx_RecibosClienteSITUACION = 4;
|
||||||
idx_RecibosClienteREFERENCIA_REMESA = 5;
|
idx_RecibosClienteID_FACTURA = 5;
|
||||||
idx_RecibosClienteFECHA_EMISION = 6;
|
idx_RecibosClienteID_REMESA = 6;
|
||||||
idx_RecibosClienteFECHA_VENCIMIENTO = 7;
|
idx_RecibosClienteREFERENCIA_REMESA = 7;
|
||||||
idx_RecibosClienteDESCRIPCION = 8;
|
idx_RecibosClienteFECHA_EMISION = 8;
|
||||||
idx_RecibosClienteOBSERVACIONES = 9;
|
idx_RecibosClienteFECHA_VENCIMIENTO = 9;
|
||||||
idx_RecibosClienteIMPORTE = 10;
|
idx_RecibosClienteDESCRIPCION = 10;
|
||||||
idx_RecibosClienteOTROS_GASTOS = 11;
|
idx_RecibosClienteOBSERVACIONES = 11;
|
||||||
idx_RecibosClienteIMPORTE_TOTAL = 12;
|
idx_RecibosClienteIMPORTE = 12;
|
||||||
idx_RecibosClienteFECHA_FACTURA = 13;
|
idx_RecibosClienteOTROS_GASTOS = 13;
|
||||||
idx_RecibosClienteFORMA_PAGO_FACTURA = 14;
|
idx_RecibosClienteIMPORTE_TOTAL = 14;
|
||||||
idx_RecibosClienteIMPORTE_FACTURA = 15;
|
idx_RecibosClienteFECHA_FACTURA = 15;
|
||||||
idx_RecibosClienteID_CLIENTE = 16;
|
idx_RecibosClienteFORMA_PAGO_FACTURA = 16;
|
||||||
idx_RecibosClienteNOMBRE_CLIENTE = 17;
|
idx_RecibosClienteIMPORTE_FACTURA = 17;
|
||||||
idx_RecibosClienteNIF_CIF_CLIENTE = 18;
|
idx_RecibosClienteID_CLIENTE = 18;
|
||||||
idx_RecibosClienteENTIDAD_CLIENTE = 19;
|
idx_RecibosClienteNOMBRE_CLIENTE = 19;
|
||||||
idx_RecibosClienteSUCURSAL_CLIENTE = 20;
|
idx_RecibosClienteNIF_CIF_CLIENTE = 20;
|
||||||
idx_RecibosClienteDC_CLIENTE = 21;
|
idx_RecibosClienteENTIDAD_CLIENTE = 21;
|
||||||
idx_RecibosClienteCUENTA_CLIENTE = 22;
|
idx_RecibosClienteSUCURSAL_CLIENTE = 22;
|
||||||
idx_RecibosClienteID_EMPRESA = 23;
|
idx_RecibosClienteDC_CLIENTE = 23;
|
||||||
idx_RecibosClienteFECHA_ALTA = 24;
|
idx_RecibosClienteCUENTA_CLIENTE = 24;
|
||||||
idx_RecibosClienteFECHA_MODIFICACION = 25;
|
idx_RecibosClienteID_EMPRESA = 25;
|
||||||
idx_RecibosClienteUSUARIO = 26;
|
idx_RecibosClienteFECHA_ALTA = 26;
|
||||||
|
idx_RecibosClienteFECHA_MODIFICACION = 27;
|
||||||
|
idx_RecibosClienteUSUARIO = 28;
|
||||||
|
|
||||||
{ RecibosCliente_Refresh fields }
|
{ RecibosCliente_Refresh fields }
|
||||||
fld_RecibosCliente_RefreshID = 'ID';
|
fld_RecibosCliente_RefreshID = 'ID';
|
||||||
|
fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
|
||||||
|
fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
|
||||||
fld_RecibosCliente_RefreshREFERENCIA = 'REFERENCIA';
|
fld_RecibosCliente_RefreshREFERENCIA = 'REFERENCIA';
|
||||||
fld_RecibosCliente_RefreshSITUACION = 'SITUACION';
|
fld_RecibosCliente_RefreshSITUACION = 'SITUACION';
|
||||||
fld_RecibosCliente_RefreshID_FACTURA = 'ID_FACTURA';
|
fld_RecibosCliente_RefreshID_FACTURA = 'ID_FACTURA';
|
||||||
@ -107,32 +115,34 @@ const
|
|||||||
|
|
||||||
{ RecibosCliente_Refresh field indexes }
|
{ RecibosCliente_Refresh field indexes }
|
||||||
idx_RecibosCliente_RefreshID = 0;
|
idx_RecibosCliente_RefreshID = 0;
|
||||||
idx_RecibosCliente_RefreshREFERENCIA = 1;
|
idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO = 1;
|
||||||
idx_RecibosCliente_RefreshSITUACION = 2;
|
idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO = 2;
|
||||||
idx_RecibosCliente_RefreshID_FACTURA = 3;
|
idx_RecibosCliente_RefreshREFERENCIA = 3;
|
||||||
idx_RecibosCliente_RefreshID_REMESA = 4;
|
idx_RecibosCliente_RefreshSITUACION = 4;
|
||||||
idx_RecibosCliente_RefreshREFERENCIA_REMESA = 5;
|
idx_RecibosCliente_RefreshID_FACTURA = 5;
|
||||||
idx_RecibosCliente_RefreshFECHA_EMISION = 6;
|
idx_RecibosCliente_RefreshID_REMESA = 6;
|
||||||
idx_RecibosCliente_RefreshFECHA_VENCIMIENTO = 7;
|
idx_RecibosCliente_RefreshREFERENCIA_REMESA = 7;
|
||||||
idx_RecibosCliente_RefreshDESCRIPCION = 8;
|
idx_RecibosCliente_RefreshFECHA_EMISION = 8;
|
||||||
idx_RecibosCliente_RefreshOBSERVACIONES = 9;
|
idx_RecibosCliente_RefreshFECHA_VENCIMIENTO = 9;
|
||||||
idx_RecibosCliente_RefreshIMPORTE = 10;
|
idx_RecibosCliente_RefreshDESCRIPCION = 10;
|
||||||
idx_RecibosCliente_RefreshOTROS_GASTOS = 11;
|
idx_RecibosCliente_RefreshOBSERVACIONES = 11;
|
||||||
idx_RecibosCliente_RefreshIMPORTE_TOTAL = 12;
|
idx_RecibosCliente_RefreshIMPORTE = 12;
|
||||||
idx_RecibosCliente_RefreshFECHA_FACTURA = 13;
|
idx_RecibosCliente_RefreshOTROS_GASTOS = 13;
|
||||||
idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA = 14;
|
idx_RecibosCliente_RefreshIMPORTE_TOTAL = 14;
|
||||||
idx_RecibosCliente_RefreshIMPORTE_FACTURA = 15;
|
idx_RecibosCliente_RefreshFECHA_FACTURA = 15;
|
||||||
idx_RecibosCliente_RefreshID_CLIENTE = 16;
|
idx_RecibosCliente_RefreshFORMA_PAGO_FACTURA = 16;
|
||||||
idx_RecibosCliente_RefreshNOMBRE_CLIENTE = 17;
|
idx_RecibosCliente_RefreshIMPORTE_FACTURA = 17;
|
||||||
idx_RecibosCliente_RefreshNIF_CIF_CLIENTE = 18;
|
idx_RecibosCliente_RefreshID_CLIENTE = 18;
|
||||||
idx_RecibosCliente_RefreshENTIDAD_CLIENTE = 19;
|
idx_RecibosCliente_RefreshNOMBRE_CLIENTE = 19;
|
||||||
idx_RecibosCliente_RefreshSUCURSAL_CLIENTE = 20;
|
idx_RecibosCliente_RefreshNIF_CIF_CLIENTE = 20;
|
||||||
idx_RecibosCliente_RefreshDC_CLIENTE = 21;
|
idx_RecibosCliente_RefreshENTIDAD_CLIENTE = 21;
|
||||||
idx_RecibosCliente_RefreshCUENTA_CLIENTE = 22;
|
idx_RecibosCliente_RefreshSUCURSAL_CLIENTE = 22;
|
||||||
idx_RecibosCliente_RefreshID_EMPRESA = 23;
|
idx_RecibosCliente_RefreshDC_CLIENTE = 23;
|
||||||
idx_RecibosCliente_RefreshFECHA_ALTA = 24;
|
idx_RecibosCliente_RefreshCUENTA_CLIENTE = 24;
|
||||||
idx_RecibosCliente_RefreshFECHA_MODIFICACION = 25;
|
idx_RecibosCliente_RefreshID_EMPRESA = 25;
|
||||||
idx_RecibosCliente_RefreshUSUARIO = 26;
|
idx_RecibosCliente_RefreshFECHA_ALTA = 26;
|
||||||
|
idx_RecibosCliente_RefreshFECHA_MODIFICACION = 27;
|
||||||
|
idx_RecibosCliente_RefreshUSUARIO = 28;
|
||||||
|
|
||||||
{ PagosCliente fields }
|
{ PagosCliente fields }
|
||||||
fld_PagosClienteID = 'ID';
|
fld_PagosClienteID = 'ID';
|
||||||
@ -162,13 +172,53 @@ const
|
|||||||
idx_PagosClienteFECHA_MODIFICACION = 10;
|
idx_PagosClienteFECHA_MODIFICACION = 10;
|
||||||
idx_PagosClienteUSUARIO = 11;
|
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';
|
||||||
|
|
||||||
|
{ 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;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IRecibosCliente }
|
{ IRecibosCliente }
|
||||||
IRecibosCliente = interface(IDAStronglyTypedDataTable)
|
IRecibosCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{CBB96EBD-6AFF-4A95-B13E-F3932B8E7D40}']
|
['{83CC449F-496C-4FBB-9BB6-9C10149C97AB}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: 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;
|
function GetREFERENCIAValue: String;
|
||||||
procedure SetREFERENCIAValue(const aValue: String);
|
procedure SetREFERENCIAValue(const aValue: String);
|
||||||
function GetSITUACIONValue: String;
|
function GetSITUACIONValue: String;
|
||||||
@ -225,6 +275,8 @@ type
|
|||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
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: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||||
@ -260,6 +312,10 @@ type
|
|||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer; virtual;
|
function GetIDValue: Integer; virtual;
|
||||||
procedure SetIDValue(const aValue: 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;
|
function GetREFERENCIAValue: String; virtual;
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||||
function GetSITUACIONValue: String; virtual;
|
function GetSITUACIONValue: String; virtual;
|
||||||
@ -315,6 +371,8 @@ type
|
|||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
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: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||||
@ -350,10 +408,14 @@ type
|
|||||||
|
|
||||||
{ IRecibosCliente_Refresh }
|
{ IRecibosCliente_Refresh }
|
||||||
IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
||||||
['{78DC2902-0367-4495-A26A-A96BE6585E27}']
|
['{9A071F92-FF7C-49CC-8137-1B2B247A73E3}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: 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;
|
function GetREFERENCIAValue: String;
|
||||||
procedure SetREFERENCIAValue(const aValue: String);
|
procedure SetREFERENCIAValue(const aValue: String);
|
||||||
function GetSITUACIONValue: String;
|
function GetSITUACIONValue: String;
|
||||||
@ -410,6 +472,8 @@ type
|
|||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
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: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||||
@ -445,6 +509,10 @@ type
|
|||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer; virtual;
|
function GetIDValue: Integer; virtual;
|
||||||
procedure SetIDValue(const aValue: 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;
|
function GetREFERENCIAValue: String; virtual;
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||||
function GetSITUACIONValue: String; virtual;
|
function GetSITUACIONValue: String; virtual;
|
||||||
@ -500,6 +568,8 @@ type
|
|||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
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: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||||
@ -535,7 +605,7 @@ type
|
|||||||
|
|
||||||
{ IPagosCliente }
|
{ IPagosCliente }
|
||||||
IPagosCliente = interface(IDAStronglyTypedDataTable)
|
IPagosCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{329ABE2D-6808-4047-BA5E-39059B9475AC}']
|
['{E9F875A0-3C24-4E16-92DB-66F7A125F1AD}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -628,6 +698,125 @@ type
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ IRecibosCompensados }
|
||||||
|
IRecibosCompensados = interface(IDAStronglyTypedDataTable)
|
||||||
|
['{5EDE9B26-684C-49A4-8403-36159CB4587C}']
|
||||||
|
{ 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: Currency;
|
||||||
|
procedure SetIMPORTEValue(const aValue: Currency);
|
||||||
|
function GetOTROS_GASTOSValue: Currency;
|
||||||
|
procedure SetOTROS_GASTOSValue(const aValue: Currency);
|
||||||
|
function GetIMPORTE_TOTALValue: Currency;
|
||||||
|
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||||
|
function GetFECHA_FACTURAValue: DateTime;
|
||||||
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
|
||||||
|
function GetIMPORTE_FACTURAValue: Currency;
|
||||||
|
procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
|
||||||
|
function GetID_CLIENTEValue: Integer;
|
||||||
|
procedure SetID_CLIENTEValue(const aValue: Integer);
|
||||||
|
function GetNOMBRE_CLIENTEValue: String;
|
||||||
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
|
||||||
|
function GetNIF_CIF_CLIENTEValue: String;
|
||||||
|
procedure SetNIF_CIF_CLIENTEValue(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: Currency read GetIMPORTEValue write SetIMPORTEValue;
|
||||||
|
property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
|
||||||
|
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||||
|
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
||||||
|
property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
|
||||||
|
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||||
|
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
||||||
|
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
||||||
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TRecibosCompensadosDataTableRules }
|
||||||
|
TRecibosCompensadosDataTableRules = class(TDADataTableRules, IRecibosCompensados)
|
||||||
|
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: Currency; virtual;
|
||||||
|
procedure SetIMPORTEValue(const aValue: Currency); virtual;
|
||||||
|
function GetOTROS_GASTOSValue: Currency; virtual;
|
||||||
|
procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
|
||||||
|
function GetIMPORTE_TOTALValue: Currency; virtual;
|
||||||
|
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||||
|
function GetFECHA_FACTURAValue: DateTime; virtual;
|
||||||
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
||||||
|
function GetIMPORTE_FACTURAValue: Currency; virtual;
|
||||||
|
procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
|
||||||
|
function GetID_CLIENTEValue: Integer; virtual;
|
||||||
|
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
||||||
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
||||||
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
||||||
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
||||||
|
procedure SetNIF_CIF_CLIENTEValue(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: Currency read GetIMPORTEValue write SetIMPORTEValue;
|
||||||
|
property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
|
||||||
|
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||||
|
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
||||||
|
property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
|
||||||
|
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||||
|
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
||||||
|
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
||||||
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses Variants;
|
uses Variants;
|
||||||
@ -653,6 +842,26 @@ begin
|
|||||||
DataTable.Fields[idx_RecibosClienteID].AsInteger := aValue;
|
DataTable.Fields[idx_RecibosClienteID].AsInteger := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosClienteID_RECIBO_COMPENSADO].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosClienteDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosClienteID_RECIBO_COMPENSADO].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosClienteREFERENCIA_REC_COMPENSADO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosClienteDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosClienteREFERENCIA_REC_COMPENSADO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
function TRecibosClienteDataTableRules.GetREFERENCIAValue: String;
|
function TRecibosClienteDataTableRules.GetREFERENCIAValue: String;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_RecibosClienteREFERENCIA].AsString;
|
result := DataTable.Fields[idx_RecibosClienteREFERENCIA].AsString;
|
||||||
@ -935,6 +1144,26 @@ begin
|
|||||||
DataTable.Fields[idx_RecibosCliente_RefreshID].AsInteger := aValue;
|
DataTable.Fields[idx_RecibosCliente_RefreshID].AsInteger := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRecibosCliente_RefreshDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCliente_RefreshDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCliente_RefreshID_RECIBO_COMPENSADO].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCliente_RefreshDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCliente_RefreshDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
function TRecibosCliente_RefreshDataTableRules.GetREFERENCIAValue: String;
|
function TRecibosCliente_RefreshDataTableRules.GetREFERENCIAValue: String;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsString;
|
result := DataTable.Fields[idx_RecibosCliente_RefreshREFERENCIA].AsString;
|
||||||
@ -1328,9 +1557,182 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TRecibosCompensadosDataTableRules }
|
||||||
|
constructor TRecibosCompensadosDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TRecibosCompensadosDataTableRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosID].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosID].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosID_RECIBO_COMPENSADO].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosID_RECIBO_COMPENSADO].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetREFERENCIAValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosREFERENCIA].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetREFERENCIAValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosREFERENCIA].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetSITUACIONValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosSITUACION].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetSITUACIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosSITUACION].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetID_FACTURAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosID_FACTURA].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetID_FACTURAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosID_FACTURA].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetFECHA_EMISIONValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosFECHA_EMISION].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosFECHA_EMISION].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosFECHA_VENCIMIENTO].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosFECHA_VENCIMIENTO].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetIMPORTEValue: Currency;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosIMPORTE].AsCurrency;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetIMPORTEValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosIMPORTE].AsCurrency := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetOTROS_GASTOSValue: Currency;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosOTROS_GASTOS].AsCurrency;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosOTROS_GASTOS].AsCurrency := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetIMPORTE_TOTALValue: Currency;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosIMPORTE_TOTAL].AsCurrency;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosIMPORTE_TOTAL].AsCurrency := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetFECHA_FACTURAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosFECHA_FACTURA].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosFECHA_FACTURA].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetIMPORTE_FACTURAValue: Currency;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosIMPORTE_FACTURA].AsCurrency;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosIMPORTE_FACTURA].AsCurrency := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetID_CLIENTEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosID_CLIENTE].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosID_CLIENTE].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetNOMBRE_CLIENTEValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosNOMBRE_CLIENTE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosNOMBRE_CLIENTE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetNIF_CIF_CLIENTEValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosNIF_CIF_CLIENTE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosNIF_CIF_CLIENTE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosDataTableRules.GetID_EMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_RecibosCompensadosID_EMPRESA].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_RecibosCompensadosID_EMPRESA].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules);
|
RegisterDataTableRules(RID_RecibosCliente, TRecibosClienteDataTableRules);
|
||||||
RegisterDataTableRules(RID_RecibosCliente_Refresh, TRecibosCliente_RefreshDataTableRules);
|
RegisterDataTableRules(RID_RecibosCliente_Refresh, TRecibosCliente_RefreshDataTableRules);
|
||||||
RegisterDataTableRules(RID_PagosCliente, TPagosClienteDataTableRules);
|
RegisterDataTableRules(RID_PagosCliente, TPagosClienteDataTableRules);
|
||||||
|
RegisterDataTableRules(RID_RecibosCompensados, TRecibosCompensadosDataTableRules);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -9,16 +9,19 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_RecibosClienteDelta = '{F6DA2E5E-D77D-4351-85DF-EA08668F5466}';
|
RID_RecibosClienteDelta = '{7A5E3980-065D-4A44-81E9-FEAF2A9517B0}';
|
||||||
RID_RecibosCliente_RefreshDelta = '{D77FE124-C90E-435C-A2E9-7307C424C438}';
|
RID_RecibosCliente_RefreshDelta = '{230B49D3-C4EF-4C00-8E40-01BD41E95CE4}';
|
||||||
RID_PagosClienteDelta = '{FFEFE23F-1230-4E8C-AD77-C4389F31B9F6}';
|
RID_PagosClienteDelta = '{B4C052F8-CA65-4803-877C-195E8157E026}';
|
||||||
|
RID_RecibosCompensadosDelta = '{60128DBB-E8CE-4940-994C-31429569D3E3}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IRecibosClienteDelta }
|
{ IRecibosClienteDelta }
|
||||||
IRecibosClienteDelta = interface(IRecibosCliente)
|
IRecibosClienteDelta = interface(IRecibosCliente)
|
||||||
['{F6DA2E5E-D77D-4351-85DF-EA08668F5466}']
|
['{7A5E3980-065D-4A44-81E9-FEAF2A9517B0}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
|
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||||
|
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
|
||||||
function GetOldREFERENCIAValue : String;
|
function GetOldREFERENCIAValue : String;
|
||||||
function GetOldSITUACIONValue : String;
|
function GetOldSITUACIONValue : String;
|
||||||
function GetOldID_FACTURAValue : Integer;
|
function GetOldID_FACTURAValue : Integer;
|
||||||
@ -48,6 +51,8 @@ type
|
|||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property OldID : Integer read GetOldIDValue;
|
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 : String read GetOldREFERENCIAValue;
|
||||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||||
@ -84,6 +89,12 @@ type
|
|||||||
function GetIDValue: Integer; virtual;
|
function GetIDValue: Integer; virtual;
|
||||||
function GetOldIDValue: Integer; virtual;
|
function GetOldIDValue: Integer; virtual;
|
||||||
procedure SetIDValue(const aValue: 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 GetREFERENCIAValue: String; virtual;
|
||||||
function GetOldREFERENCIAValue: String; virtual;
|
function GetOldREFERENCIAValue: String; virtual;
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||||
@ -166,6 +177,10 @@ type
|
|||||||
{ Properties }
|
{ Properties }
|
||||||
property ID : Integer read GetIDValue write SetIDValue;
|
property ID : Integer read GetIDValue write SetIDValue;
|
||||||
property OldID : Integer read GetOldIDValue;
|
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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||||
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
||||||
@ -227,9 +242,11 @@ type
|
|||||||
|
|
||||||
{ IRecibosCliente_RefreshDelta }
|
{ IRecibosCliente_RefreshDelta }
|
||||||
IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh)
|
IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh)
|
||||||
['{D77FE124-C90E-435C-A2E9-7307C424C438}']
|
['{230B49D3-C4EF-4C00-8E40-01BD41E95CE4}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
|
function GetOldID_RECIBO_COMPENSADOValue : Integer;
|
||||||
|
function GetOldREFERENCIA_REC_COMPENSADOValue : String;
|
||||||
function GetOldREFERENCIAValue : String;
|
function GetOldREFERENCIAValue : String;
|
||||||
function GetOldSITUACIONValue : String;
|
function GetOldSITUACIONValue : String;
|
||||||
function GetOldID_FACTURAValue : Integer;
|
function GetOldID_FACTURAValue : Integer;
|
||||||
@ -259,6 +276,8 @@ type
|
|||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property OldID : Integer read GetOldIDValue;
|
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 : String read GetOldREFERENCIAValue;
|
||||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||||
@ -295,6 +314,12 @@ type
|
|||||||
function GetIDValue: Integer; virtual;
|
function GetIDValue: Integer; virtual;
|
||||||
function GetOldIDValue: Integer; virtual;
|
function GetOldIDValue: Integer; virtual;
|
||||||
procedure SetIDValue(const aValue: 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 GetREFERENCIAValue: String; virtual;
|
||||||
function GetOldREFERENCIAValue: String; virtual;
|
function GetOldREFERENCIAValue: String; virtual;
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||||
@ -377,6 +402,10 @@ type
|
|||||||
{ Properties }
|
{ Properties }
|
||||||
property ID : Integer read GetIDValue write SetIDValue;
|
property ID : Integer read GetIDValue write SetIDValue;
|
||||||
property OldID : Integer read GetOldIDValue;
|
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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||||
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
||||||
@ -438,7 +467,7 @@ type
|
|||||||
|
|
||||||
{ IPagosClienteDelta }
|
{ IPagosClienteDelta }
|
||||||
IPagosClienteDelta = interface(IPagosCliente)
|
IPagosClienteDelta = interface(IPagosCliente)
|
||||||
['{FFEFE23F-1230-4E8C-AD77-C4389F31B9F6}']
|
['{B4C052F8-CA65-4803-877C-195E8157E026}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_RECIBOValue : Integer;
|
function GetOldID_RECIBOValue : Integer;
|
||||||
@ -542,6 +571,140 @@ type
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ IRecibosCompensadosDelta }
|
||||||
|
IRecibosCompensadosDelta = interface(IRecibosCompensados)
|
||||||
|
['{60128DBB-E8CE-4940-994C-31429569D3E3}']
|
||||||
|
{ 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 : Currency;
|
||||||
|
function GetOldOTROS_GASTOSValue : Currency;
|
||||||
|
function GetOldIMPORTE_TOTALValue : Currency;
|
||||||
|
function GetOldFECHA_FACTURAValue : DateTime;
|
||||||
|
function GetOldIMPORTE_FACTURAValue : Currency;
|
||||||
|
function GetOldID_CLIENTEValue : Integer;
|
||||||
|
function GetOldNOMBRE_CLIENTEValue : String;
|
||||||
|
function GetOldNIF_CIF_CLIENTEValue : 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 : Currency read GetOldIMPORTEValue;
|
||||||
|
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
|
||||||
|
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||||
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
||||||
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
||||||
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||||
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
||||||
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
||||||
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TRecibosCompensadosBusinessProcessorRules }
|
||||||
|
TRecibosCompensadosBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensados, IRecibosCompensadosDelta)
|
||||||
|
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: Currency; virtual;
|
||||||
|
function GetOldIMPORTEValue: Currency; virtual;
|
||||||
|
procedure SetIMPORTEValue(const aValue: Currency); virtual;
|
||||||
|
function GetOTROS_GASTOSValue: Currency; virtual;
|
||||||
|
function GetOldOTROS_GASTOSValue: Currency; virtual;
|
||||||
|
procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual;
|
||||||
|
function GetIMPORTE_TOTALValue: Currency; virtual;
|
||||||
|
function GetOldIMPORTE_TOTALValue: Currency; virtual;
|
||||||
|
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||||
|
function GetFECHA_FACTURAValue: DateTime; virtual;
|
||||||
|
function GetOldFECHA_FACTURAValue: DateTime; virtual;
|
||||||
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
||||||
|
function GetIMPORTE_FACTURAValue: Currency; virtual;
|
||||||
|
function GetOldIMPORTE_FACTURAValue: Currency; virtual;
|
||||||
|
procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
|
||||||
|
function GetID_CLIENTEValue: Integer; virtual;
|
||||||
|
function GetOldID_CLIENTEValue: Integer; virtual;
|
||||||
|
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
||||||
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
||||||
|
function GetOldNOMBRE_CLIENTEValue: String; virtual;
|
||||||
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
||||||
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
||||||
|
function GetOldNIF_CIF_CLIENTEValue: String; virtual;
|
||||||
|
procedure SetNIF_CIF_CLIENTEValue(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 : Currency read GetIMPORTEValue write SetIMPORTEValue;
|
||||||
|
property OldIMPORTE : Currency read GetOldIMPORTEValue;
|
||||||
|
property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
|
||||||
|
property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
|
||||||
|
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||||
|
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||||
|
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
||||||
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
||||||
|
property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
|
||||||
|
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
|
||||||
|
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||||
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||||
|
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
||||||
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
||||||
|
property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
||||||
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
||||||
|
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;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
@ -573,6 +736,36 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID] := aValue;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosClienteBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_RECIBO_COMPENSADO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_REC_COMPENSADO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
function TRecibosClienteBusinessProcessorRules.GetREFERENCIAValue: String;
|
function TRecibosClienteBusinessProcessorRules.GetREFERENCIAValue: String;
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA];
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA];
|
||||||
@ -990,6 +1183,36 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID] := aValue;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshID_RECIBO_COMPENSADO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA_REC_COMPENSADO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
|
function TRecibosCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA];
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshREFERENCIA];
|
||||||
@ -1573,9 +1796,262 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TRecibosCompensadosBusinessProcessorRules }
|
||||||
|
constructor TRecibosCompensadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TRecibosCompensadosBusinessProcessorRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_RECIBO_COMPENSADO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetREFERENCIAValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosREFERENCIA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosREFERENCIA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosREFERENCIA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetSITUACIONValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosSITUACION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldSITUACIONValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosSITUACION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosSITUACION] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_FACTURA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_FACTURA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_FACTURA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_EMISION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_EMISION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_EMISION] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_VENCIMIENTO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetIMPORTEValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTEValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOTROS_GASTOSValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosOTROS_GASTOS];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosOTROS_GASTOS];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosOTROS_GASTOS] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_TOTAL];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE_TOTAL];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_TOTAL] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_FACTURA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosFECHA_FACTURA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosFECHA_FACTURA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_FACTURA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosIMPORTE_FACTURA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosIMPORTE_FACTURA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_CLIENTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_CLIENTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_CLIENTE] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNOMBRE_CLIENTE] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosNIF_CIF_CLIENTE] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_EMPRESA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRecibosCompensadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosID_EMPRESA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRecibosCompensadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosID_EMPRESA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
|
RegisterBusinessProcessorRules(RID_RecibosClienteDelta, TRecibosClienteBusinessProcessorRules);
|
||||||
RegisterBusinessProcessorRules(RID_RecibosCliente_RefreshDelta, TRecibosCliente_RefreshBusinessProcessorRules);
|
RegisterBusinessProcessorRules(RID_RecibosCliente_RefreshDelta, TRecibosCliente_RefreshBusinessProcessorRules);
|
||||||
RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules);
|
RegisterBusinessProcessorRules(RID_PagosClienteDelta, TPagosClienteBusinessProcessorRules);
|
||||||
|
RegisterBusinessProcessorRules(RID_RecibosCompensadosDelta, TRecibosCompensadosBusinessProcessorRules);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -31,12 +31,17 @@ uses
|
|||||||
|
|
||||||
const
|
const
|
||||||
BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente';
|
BIZ_CLIENT_IBIZRECIBOSCLIENTE = 'Client.IBizRecibosCliente';
|
||||||
|
BIZ_CLIENT_RECIBOS_COMPENSADOS = 'Client.RecibosCompensados';
|
||||||
|
|
||||||
CTE_PENDIENTE = 'PENDIENTE';
|
CTE_PENDIENTE = 'PENDIENTE';
|
||||||
CTE_COBRADO = 'COBRADO';
|
CTE_COBRADO = 'COBRADO';
|
||||||
CTE_DEVUELTO = 'DEVUELTO';
|
CTE_DEVUELTO = 'DEVUELTO';
|
||||||
|
|
||||||
type
|
type
|
||||||
|
IBizRecibosCompensados = interface(IRecibosCompensados)
|
||||||
|
['{F9C18EAC-6769-428C-ABFB-AD6639F413D9}']
|
||||||
|
end;
|
||||||
|
|
||||||
IBizRecibosCliente = interface(IRecibosCliente)
|
IBizRecibosCliente = interface(IRecibosCliente)
|
||||||
['{93758493-260C-450D-9018-E5339C2E09B2}']
|
['{93758493-260C-450D-9018-E5339C2E09B2}']
|
||||||
function EsNuevo : Boolean;
|
function EsNuevo : Boolean;
|
||||||
@ -54,13 +59,22 @@ type
|
|||||||
procedure SetPagos(AValue : IBizPagosCliente);
|
procedure SetPagos(AValue : IBizPagosCliente);
|
||||||
function GetPagos : IBizPagosCliente;
|
function GetPagos : IBizPagosCliente;
|
||||||
property Pagos : IBizPagosCliente read GetPagos write SetPagos;
|
property Pagos : IBizPagosCliente read GetPagos write SetPagos;
|
||||||
|
|
||||||
|
function GetRecibosCompensados: IBizRecibosCompensados;
|
||||||
|
procedure SetRecibosCompensados(const Value: IBizRecibosCompensados);
|
||||||
|
property RecibosCompensados: IBizRecibosCompensados read GetRecibosCompensados write SetRecibosCompensados;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TBizRecibosCompensados = class(TRecibosCompensadosDataTableRules, IBizRecibosCompensados)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TBizRecibosCliente = class(TRecibosClienteDataTableRules, IBizRecibosCliente, ISeleccionable)
|
TBizRecibosCliente = class(TRecibosClienteDataTableRules, IBizRecibosCliente, ISeleccionable)
|
||||||
protected
|
protected
|
||||||
FPagos : IBizPagosCliente;
|
FPagos : IBizPagosCliente;
|
||||||
FPagosLink : TDADataSource;
|
FPagosLink : TDADataSource;
|
||||||
FCliente : IBizCliente;
|
FRecibosCompensados: IBizRecibosCompensados;
|
||||||
|
FRecibosCompensadosLink : TDADataSource;
|
||||||
|
FCliente : IBizCliente;
|
||||||
FSeleccionableInterface : ISeleccionable;
|
FSeleccionableInterface : ISeleccionable;
|
||||||
|
|
||||||
// No se puede cambiar el cliente por que depende de la factura
|
// No se puede cambiar el cliente por que depende de la factura
|
||||||
@ -75,11 +89,15 @@ type
|
|||||||
|
|
||||||
procedure SetPagos(AValue : IBizPagosCliente);
|
procedure SetPagos(AValue : IBizPagosCliente);
|
||||||
function GetPagos : IBizPagosCliente;
|
function GetPagos : IBizPagosCliente;
|
||||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
|
||||||
|
|
||||||
|
function GetRecibosCompensados: IBizRecibosCompensados;
|
||||||
|
procedure SetRecibosCompensados(const Value: IBizRecibosCompensados);
|
||||||
|
|
||||||
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
procedure SetID_REMESAValue(const aValue: Integer); override;
|
procedure SetID_REMESAValue(const aValue: Integer); override;
|
||||||
|
|
||||||
public
|
public
|
||||||
|
property RecibosCompensados: IBizRecibosCompensados read GetRecibosCompensados write SetRecibosCompensados;
|
||||||
property Pagos : IBizPagosCliente read GetPagos write SetPagos;
|
property Pagos : IBizPagosCliente read GetPagos write SetPagos;
|
||||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||||
write FSeleccionableInterface
|
write FSeleccionableInterface
|
||||||
@ -87,6 +105,7 @@ type
|
|||||||
|
|
||||||
procedure IniciarValoresIBizRecibosClienteNuevo;
|
procedure IniciarValoresIBizRecibosClienteNuevo;
|
||||||
function EsNuevo : Boolean;
|
function EsNuevo : Boolean;
|
||||||
|
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
end;
|
end;
|
||||||
@ -108,6 +127,11 @@ begin
|
|||||||
Result := FPagos;
|
Result := FPagos;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TBizRecibosCliente.GetRecibosCompensados: IBizRecibosCompensados;
|
||||||
|
begin
|
||||||
|
Result := FRecibosCompensados;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer);
|
procedure TBizRecibosCliente.SetID_REMESAValue(const aValue: Integer);
|
||||||
begin
|
begin
|
||||||
if (aValue = 0) then
|
if (aValue = 0) then
|
||||||
@ -122,6 +146,16 @@ procedure TBizRecibosCliente.SetPagos(AValue: IBizPagosCliente);
|
|||||||
EnlazarMaestroDetalle(FPagosLink, FPagos);
|
EnlazarMaestroDetalle(FPagosLink, FPagos);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompensados);
|
||||||
|
begin
|
||||||
|
FRecibosCompensados := Value;
|
||||||
|
EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
|
||||||
|
|
||||||
|
if Assigned(FRecibosCompensados) then
|
||||||
|
if not FRecibosCompensados.DataTable.Active then
|
||||||
|
FRecibosCompensados.DataTable.Active := True;
|
||||||
|
end;
|
||||||
|
|
||||||
function TBizRecibosCliente._GetCliente: IBizCliente;
|
function TBizRecibosCliente._GetCliente: IBizCliente;
|
||||||
begin
|
begin
|
||||||
Result := FCliente;
|
Result := FCliente;
|
||||||
@ -136,15 +170,23 @@ constructor TBizRecibosCliente.Create(aDataTable: TDADataTable);
|
|||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
FCliente := Nil;
|
FCliente := Nil;
|
||||||
|
FPagos := Nil;
|
||||||
|
FRecibosCompensados := Nil;
|
||||||
|
|
||||||
FPagosLink := TDADataSource.Create(NIL);
|
FPagosLink := TDADataSource.Create(NIL);
|
||||||
FPagosLink.DataTable := aDataTable;
|
FPagosLink.DataTable := aDataTable;
|
||||||
|
FRecibosCompensadosLink := TDADataSource.Create(NIL);
|
||||||
|
FRecibosCompensadosLink.DataTable := aDataTable;
|
||||||
|
|
||||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TBizRecibosCliente.Destroy;
|
destructor TBizRecibosCliente.Destroy;
|
||||||
begin
|
begin
|
||||||
FPagos := NIL;
|
FPagos := NIL;
|
||||||
|
FRecibosCompensados := Nil;
|
||||||
FreeAndNIL(FPagosLink);
|
FreeAndNIL(FPagosLink);
|
||||||
|
FreeAndNIL(FRecibosCompensadosLink);
|
||||||
FSeleccionableInterface := NIL;
|
FSeleccionableInterface := NIL;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
@ -170,6 +212,7 @@ end;
|
|||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSCLIENTE, TBizRecibosCliente);
|
RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSCLIENTE, TBizRecibosCliente);
|
||||||
|
RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOS, TBizRecibosCompensados);
|
||||||
|
|
||||||
finalization
|
finalization
|
||||||
|
|
||||||
|
|||||||
@ -22,16 +22,17 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'V_RECIBOS_CLIENTE'
|
TargetTable = 'V_RECIBOS_CLIENTE'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT ID,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTUR' +
|
'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' +
|
||||||
'A,'#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMIS' +
|
'MPENSADO,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTURA' +
|
||||||
'ION,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERV' +
|
','#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMISI' +
|
||||||
'ACIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOT' +
|
'ON,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVA' +
|
||||||
'AL,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPO' +
|
'CIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTA' +
|
||||||
'RTE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NI' +
|
'L,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPOR' +
|
||||||
'F_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10 +
|
'TE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF' +
|
||||||
' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' +
|
'_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10' ' +
|
||||||
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM ' +
|
' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' +
|
||||||
'V_RECIBOS_CLIENTE'
|
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' +
|
||||||
|
'_RECIBOS_CLIENTE'
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -141,6 +142,14 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'FECHA_EMISION'
|
DatasetField = 'FECHA_EMISION'
|
||||||
TableField = 'FECHA_EMISION'
|
TableField = 'FECHA_EMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_RECIBO_COMPENSADO'
|
||||||
|
TableField = 'ID_RECIBO_COMPENSADO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA_REC_COMPENSADO'
|
||||||
|
TableField = 'REFERENCIA_REC_COMPENSADO'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'RecibosCliente'
|
Name = 'RecibosCliente'
|
||||||
@ -155,6 +164,29 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
Lookup = False
|
Lookup = False
|
||||||
LookupCache = False
|
LookupCache = False
|
||||||
end
|
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_REC_COMPENSADO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA'
|
Name = 'REFERENCIA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -445,16 +477,17 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'V_RECIBOS_CLIENTE'
|
TargetTable = 'V_RECIBOS_CLIENTE'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT ID,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTUR' +
|
'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' +
|
||||||
'A,'#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMIS' +
|
'MPENSADO,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTURA' +
|
||||||
'ION,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERV' +
|
','#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMISI' +
|
||||||
'ACIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOT' +
|
'ON,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVA' +
|
||||||
'AL,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPO' +
|
'CIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTA' +
|
||||||
'RTE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NI' +
|
'L,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPOR' +
|
||||||
'F_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10 +
|
'TE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF' +
|
||||||
' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' +
|
'_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10' ' +
|
||||||
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM ' +
|
' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' +
|
||||||
'V_RECIBOS_CLIENTE'#10'WHERE'#10' ID = :ID'
|
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' +
|
||||||
|
'_RECIBOS_CLIENTE'#10'WHERE'#10' ID = :ID'
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -564,6 +597,14 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'FECHA_EMISION'
|
DatasetField = 'FECHA_EMISION'
|
||||||
TableField = 'FECHA_EMISION'
|
TableField = 'FECHA_EMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_RECIBO_COMPENSADO'
|
||||||
|
TableField = 'ID_RECIBO_COMPENSADO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA_REC_COMPENSADO'
|
||||||
|
TableField = 'REFERENCIA_REC_COMPENSADO'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'RecibosCliente_Refresh'
|
Name = 'RecibosCliente_Refresh'
|
||||||
@ -578,6 +619,29 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
Lookup = False
|
Lookup = False
|
||||||
LookupCache = False
|
LookupCache = False
|
||||||
end
|
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_REC_COMPENSADO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DisplayWidth = 0
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA'
|
Name = 'REFERENCIA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -1055,6 +1119,265 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
end>
|
end>
|
||||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'V_RECIBOS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA,'#10' ' +
|
||||||
|
' SITUACION,'#10' ID_FACTURA,'#10' FECHA_EMISION,'#10' FEC' +
|
||||||
|
'HA_VENCIMIENTO,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPO' +
|
||||||
|
'RTE_TOTAL,'#10' FECHA_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' +
|
||||||
|
'ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF_CIF_CLIENTE,'#10' ' +
|
||||||
|
' ID_EMPRESA'#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE ID_RECIBO_COMPENSADO ' +
|
||||||
|
'= :ID'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'SITUACION'
|
||||||
|
TableField = 'SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_FACTURA'
|
||||||
|
TableField = 'ID_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_VENCIMIENTO'
|
||||||
|
TableField = 'FECHA_VENCIMIENTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE'
|
||||||
|
TableField = 'IMPORTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_FACTURA'
|
||||||
|
TableField = 'FECHA_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_FACTURA'
|
||||||
|
TableField = 'IMPORTE_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE_CLIENTE'
|
||||||
|
TableField = 'NOMBRE_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NIF_CIF_CLIENTE'
|
||||||
|
TableField = 'NIF_CIF_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'OTROS_GASTOS'
|
||||||
|
TableField = 'OTROS_GASTOS'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_CLIENTE'
|
||||||
|
TableField = 'ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_TOTAL'
|
||||||
|
TableField = 'IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_EMISION'
|
||||||
|
TableField = 'FECHA_EMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_RECIBO_COMPENSADO'
|
||||||
|
TableField = 'ID_RECIBO_COMPENSADO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'RecibosCompensados'
|
||||||
|
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
|
||||||
|
DictionaryEntry = 'RecibosCliente_REFERENCIA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 9
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_SITUACION'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FACTURA'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_EMISION'
|
||||||
|
DataType = datDateTime
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
|
DataType = datDateTime
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_IMPORTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OTROS_GASTOS'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_FACTURA'
|
||||||
|
DataType = datCurrency
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
|
||||||
|
InPrimaryKey = False
|
||||||
|
Calculated = False
|
||||||
|
Lookup = False
|
||||||
|
LookupCache = False
|
||||||
|
end>
|
||||||
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||||
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||||
end>
|
end>
|
||||||
Commands = <
|
Commands = <
|
||||||
item
|
item
|
||||||
@ -1454,6 +1777,83 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
Name = 'Update_PagosCliente'
|
Name = 'Update_PagosCliente'
|
||||||
|
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 = 'RECIBOS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
|
||||||
|
'PENSADO'#10'WHERE (ID = :ID)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Insert_RecibosCompensados'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID'
|
||||||
|
DataType = datInteger
|
||||||
|
BlobType = dabtUnknown
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'RECIBOS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = Null'#10'WHERE (ID' +
|
||||||
|
' = :OLD_ID)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Delete_RecibosCompensados'
|
||||||
|
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 = 'RECIBOS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
|
||||||
|
'PENSADO'#10'WHERE (ID = :OLD_ID)'
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Update_RecibosCompensados'
|
||||||
end>
|
end>
|
||||||
RelationShips = <>
|
RelationShips = <>
|
||||||
UpdateRules = <
|
UpdateRules = <
|
||||||
@ -2075,4 +2475,15 @@ object srvRecibosCliente: TsrvRecibosCliente
|
|||||||
Left = 192
|
Left = 192
|
||||||
Top = 88
|
Top = 88
|
||||||
end
|
end
|
||||||
|
object bpRecibosCompensados: TDABusinessProcessor
|
||||||
|
Schema = schRecibosCliente
|
||||||
|
InsertCommandName = 'Insert_RecibosCompensados'
|
||||||
|
DeleteCommandName = 'Delete_RecibosCompensados'
|
||||||
|
UpdateCommandName = 'Update_RecibosCompensados'
|
||||||
|
ReferencedDataset = 'RecibosCompensados'
|
||||||
|
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||||
|
UpdateMode = updWhereKeyOnly
|
||||||
|
Left = 192
|
||||||
|
Top = 152
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -27,6 +27,7 @@ type
|
|||||||
DABINAdapter: TDABINAdapter;
|
DABINAdapter: TDABINAdapter;
|
||||||
bpRecibosCliente: TDABusinessProcessor;
|
bpRecibosCliente: TDABusinessProcessor;
|
||||||
bpPagosCliente: TDABusinessProcessor;
|
bpPagosCliente: TDABusinessProcessor;
|
||||||
|
bpRecibosCompensados: TDABusinessProcessor;
|
||||||
schRecibosCliente: TDASchema;
|
schRecibosCliente: TDASchema;
|
||||||
DADataDictionary: TDADataDictionary;
|
DADataDictionary: TDADataDictionary;
|
||||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
||||||
|
|||||||
@ -95,6 +95,8 @@ contains
|
|||||||
uViewPagosCliente in 'uViewPagosCliente.pas' {frViewPagosCliente: TFrame},
|
uViewPagosCliente in 'uViewPagosCliente.pas' {frViewPagosCliente: TFrame},
|
||||||
uEditorElegirRecibosCliente in 'uEditorElegirRecibosCliente.pas' {fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente},
|
uEditorElegirRecibosCliente in 'uEditorElegirRecibosCliente.pas' {fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente},
|
||||||
uEditorFechaPago in 'uEditorFechaPago.pas' {fEditorFechaPago},
|
uEditorFechaPago in 'uEditorFechaPago.pas' {fEditorFechaPago},
|
||||||
uEditorReciboClienteReport in 'uEditorReciboClienteReport.pas' {fEditorReciboClienteReport: TfEditorReciboClienteReport};
|
uEditorReciboClienteReport in 'uEditorReciboClienteReport.pas' {fEditorReciboClienteReport: TfEditorReciboClienteReport},
|
||||||
|
uViewRecibosCompensados in 'uViewRecibosCompensados.pas' {frViewRecibosCompensados: TFrame},
|
||||||
|
uViewReciboImportes in 'uViewReciboImportes.pas' {frViewReciboImportes: TFrame};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -1,8 +1,8 @@
|
|||||||
inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||||
Caption = 'Seleccionar recibos de cliente'
|
Caption = 'Seleccionar recibos de cliente'
|
||||||
ClientWidth = 654
|
ClientWidth = 654
|
||||||
|
ExplicitTop = -94
|
||||||
ExplicitWidth = 662
|
ExplicitWidth = 662
|
||||||
ExplicitHeight = 240
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object JvgWizardHeader1: TJvgWizardHeader [0]
|
object JvgWizardHeader1: TJvgWizardHeader [0]
|
||||||
@ -52,12 +52,10 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
|||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Top = 171
|
Top = 171
|
||||||
Width = 654
|
Width = 654
|
||||||
Height = 49
|
|
||||||
ExplicitTop = 171
|
ExplicitTop = 171
|
||||||
ExplicitWidth = 654
|
ExplicitWidth = 654
|
||||||
ExplicitHeight = 49
|
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 117
|
ExplicitWidth = 126
|
||||||
inherited TBXItem5: TTBXItem
|
inherited TBXItem5: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
@ -69,12 +67,12 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TTBXToolbar
|
||||||
Left = 117
|
Left = 126
|
||||||
Top = 23
|
Top = 23
|
||||||
DockPos = 104
|
DockPos = 104
|
||||||
DockRow = 1
|
DockRow = 1
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitLeft = 117
|
ExplicitLeft = 126
|
||||||
ExplicitTop = 23
|
ExplicitTop = 23
|
||||||
inherited TBXItem34: TTBXItem
|
inherited TBXItem34: TTBXItem
|
||||||
Action = actQuitarFiltro2
|
Action = actQuitarFiltro2
|
||||||
@ -83,10 +81,15 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
|||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 654
|
ExplicitWidth = 654
|
||||||
end
|
end
|
||||||
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Left = 334
|
||||||
|
ExplicitLeft = 334
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 506
|
Top = 506
|
||||||
Width = 654
|
Width = 654
|
||||||
|
ExplicitTop = 506
|
||||||
ExplicitWidth = 654
|
ExplicitWidth = 654
|
||||||
end
|
end
|
||||||
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
|
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
|
||||||
@ -135,18 +138,18 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited frViewRecibosCliente1: TfrViewRecibosCliente [5]
|
inherited frViewRecibosCliente1: TfrViewRecibosCliente [5]
|
||||||
Top = 220
|
Top = 246
|
||||||
Width = 654
|
Width = 654
|
||||||
Height = 286
|
Height = 260
|
||||||
ExplicitTop = 220
|
ExplicitTop = 246
|
||||||
ExplicitWidth = 654
|
ExplicitWidth = 654
|
||||||
ExplicitHeight = 286
|
ExplicitHeight = 260
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 654
|
Width = 654
|
||||||
Height = 158
|
Height = 132
|
||||||
RootLevelOptions.DetailTabsPosition = dtpNone
|
RootLevelOptions.DetailTabsPosition = dtpNone
|
||||||
ExplicitWidth = 654
|
ExplicitWidth = 654
|
||||||
ExplicitHeight = 389
|
ExplicitHeight = 132
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
DataController.Summary.FooterSummaryItems = <
|
DataController.Summary.FooterSummaryItems = <
|
||||||
item
|
item
|
||||||
@ -158,6 +161,12 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
|||||||
Kind = skCount
|
Kind = skCount
|
||||||
Column = frViewRecibosCliente1.cxGridViewFECHA_EMISION
|
Column = frViewRecibosCliente1.cxGridViewFECHA_EMISION
|
||||||
end>
|
end>
|
||||||
|
inherited cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
@ -170,15 +179,45 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
|||||||
ExplicitWidth = 654
|
ExplicitWidth = 654
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 650
|
Width = 650
|
||||||
|
ExplicitWidth = 650
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
ExplicitWidth = 393
|
||||||
|
Width = 393
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
ExplicitWidth = 199
|
||||||
|
Width = 199
|
||||||
|
end
|
||||||
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Left = 466
|
||||||
|
ExplicitLeft = 466
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
Width = 650
|
Width = 650
|
||||||
|
ExplicitWidth = 650
|
||||||
|
inherited tbxBotones: TTBXToolbar
|
||||||
|
Width = 640
|
||||||
|
ExplicitWidth = 640
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
Top = 260
|
Top = 234
|
||||||
|
ExplicitTop = 234
|
||||||
|
ExplicitWidth = 654
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 654
|
||||||
|
ExplicitWidth = 654
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
Width = 644
|
||||||
|
ExplicitWidth = 644
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
@ -214,7 +253,6 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
|||||||
ShowCaptionWhenDocked = False
|
ShowCaptionWhenDocked = False
|
||||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
ExplicitWidth = 128
|
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 296
|
Left = 296
|
||||||
Top = 50
|
Top = 50
|
||||||
|
|||||||
@ -1,10 +1,11 @@
|
|||||||
inherited fEditorReciboCliente: TfEditorReciboCliente
|
inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||||
Caption = 'Recibo de cliente'
|
Caption = 'Recibo de cliente'
|
||||||
ClientHeight = 596
|
ClientHeight = 530
|
||||||
ClientWidth = 691
|
ClientWidth = 691
|
||||||
OnClose = CustomEditorClose
|
OnClose = CustomEditorClose
|
||||||
|
ExplicitLeft = -64
|
||||||
ExplicitWidth = 699
|
ExplicitWidth = 699
|
||||||
ExplicitHeight = 630
|
ExplicitHeight = 564
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
@ -42,7 +43,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
Width = 691
|
Width = 691
|
||||||
ExplicitWidth = 691
|
ExplicitWidth = 691
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 419
|
ExplicitWidth = 425
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 691
|
ExplicitWidth = 691
|
||||||
@ -50,14 +51,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 691
|
Width = 691
|
||||||
Height = 501
|
Height = 335
|
||||||
|
ActivePage = pagCompensados
|
||||||
ExplicitWidth = 691
|
ExplicitWidth = 691
|
||||||
ExplicitHeight = 501
|
ExplicitHeight = 335
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitLeft = 4
|
ExplicitLeft = 4
|
||||||
ExplicitTop = 24
|
ExplicitTop = 24
|
||||||
ExplicitWidth = 683
|
ExplicitWidth = 683
|
||||||
ExplicitHeight = 473
|
ExplicitHeight = 307
|
||||||
inline frViewReciboCliente1: TfrViewReciboCliente
|
inline frViewReciboCliente1: TfrViewReciboCliente
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
@ -78,81 +80,70 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
Width = 683
|
Width = 683
|
||||||
Height = 335
|
Height = 335
|
||||||
ExplicitWidth = 683
|
ExplicitWidth = 683
|
||||||
ExplicitHeight = 321
|
ExplicitHeight = 335
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
683
|
683
|
||||||
335)
|
335)
|
||||||
inherited Bevel1: TBevel
|
|
||||||
Width = 210
|
|
||||||
ExplicitWidth = 210
|
|
||||||
end
|
|
||||||
inherited eReferencia: TcxDBTextEdit
|
inherited eReferencia: TcxDBTextEdit
|
||||||
ExplicitWidth = 50
|
ExplicitWidth = 217
|
||||||
Width = 50
|
Width = 217
|
||||||
end
|
end
|
||||||
inherited eSituacion: TcxDBTextEdit
|
inherited eSituacion: TcxDBTextEdit
|
||||||
ExplicitWidth = 216
|
ExplicitWidth = 217
|
||||||
Width = 216
|
Width = 217
|
||||||
end
|
end
|
||||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||||
ExplicitWidth = 216
|
ExplicitWidth = 217
|
||||||
Width = 216
|
Width = 217
|
||||||
end
|
end
|
||||||
inherited memObservaciones: TcxDBMemo
|
inherited memObservaciones: TcxDBMemo
|
||||||
Left = 321
|
ExplicitWidth = 293
|
||||||
ExplicitLeft = 321
|
|
||||||
ExplicitWidth = 211
|
|
||||||
ExplicitHeight = 44
|
ExplicitHeight = 44
|
||||||
Height = 44
|
Height = 44
|
||||||
Width = 211
|
Width = 293
|
||||||
end
|
|
||||||
inherited eImporte: TcxDBCurrencyEdit
|
|
||||||
Properties.OnValidate = frViewReciboCliente1eImportePropertiesValidate
|
|
||||||
ExplicitWidth = 111
|
|
||||||
Width = 111
|
|
||||||
end
|
end
|
||||||
inherited eFechaEmision: TcxDBTextEdit
|
inherited eFechaEmision: TcxDBTextEdit
|
||||||
Left = 397
|
Left = 441
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 441
|
||||||
ExplicitWidth = 20
|
ExplicitWidth = 253
|
||||||
Width = 20
|
Width = 253
|
||||||
end
|
end
|
||||||
inherited eFormaPago: TcxDBTextEdit
|
inherited eFormaPago: TcxDBTextEdit
|
||||||
Left = 397
|
Left = 441
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 441
|
||||||
ExplicitWidth = 42
|
ExplicitWidth = 253
|
||||||
Width = 42
|
Width = 253
|
||||||
end
|
end
|
||||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 397
|
Left = 441
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 441
|
||||||
ExplicitWidth = 182
|
ExplicitWidth = 253
|
||||||
Width = 182
|
Width = 253
|
||||||
end
|
end
|
||||||
inherited eNombreCliente: TcxDBTextEdit
|
inherited eNombreCliente: TcxDBTextEdit
|
||||||
Left = 397
|
Left = 441
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 441
|
||||||
ExplicitWidth = 171
|
ExplicitWidth = 286
|
||||||
Width = 171
|
Width = 286
|
||||||
end
|
end
|
||||||
inherited eNifCif: TcxDBTextEdit
|
inherited eNifCif: TcxDBTextEdit
|
||||||
Left = 397
|
Left = 441
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 441
|
||||||
ExplicitWidth = 147
|
ExplicitWidth = 286
|
||||||
Width = 147
|
Width = 286
|
||||||
end
|
end
|
||||||
inherited eEntidad: TcxDBTextEdit
|
inherited eEntidad: TcxDBTextEdit
|
||||||
Left = 397
|
Left = 441
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 441
|
||||||
ExplicitWidth = 101
|
ExplicitWidth = 84
|
||||||
Width = 101
|
Width = 84
|
||||||
end
|
end
|
||||||
inherited eSucursal: TcxDBTextEdit
|
inherited eSucursal: TcxDBTextEdit
|
||||||
Left = 524
|
Left = 544
|
||||||
ExplicitLeft = 524
|
ExplicitLeft = 544
|
||||||
ExplicitWidth = 94
|
ExplicitWidth = 81
|
||||||
Width = 94
|
Width = 81
|
||||||
end
|
end
|
||||||
inherited eDC: TcxDBTextEdit
|
inherited eDC: TcxDBTextEdit
|
||||||
Left = 624
|
Left = 624
|
||||||
@ -161,39 +152,35 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
Width = 37
|
Width = 37
|
||||||
end
|
end
|
||||||
inherited eCuenta: TcxDBTextEdit
|
inherited eCuenta: TcxDBTextEdit
|
||||||
Left = 397
|
Left = 441
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 441
|
||||||
ExplicitWidth = 83
|
ExplicitWidth = 286
|
||||||
Width = 83
|
Width = 286
|
||||||
end
|
end
|
||||||
inherited eRemesa: TcxDBTextEdit
|
inherited eRemesa: TcxDBTextEdit
|
||||||
ExplicitWidth = 113
|
ExplicitWidth = 217
|
||||||
Width = 113
|
Width = 217
|
||||||
end
|
|
||||||
inherited eOtrosGastos: TcxDBCurrencyEdit
|
|
||||||
ExplicitWidth = 111
|
|
||||||
Width = 111
|
|
||||||
end
|
|
||||||
inherited eImporteTotalRecibo: TcxCurrencyEdit
|
|
||||||
ParentFont = False
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
Style.Font.Style = [fsBold]
|
|
||||||
Style.IsFontAssigned = True
|
|
||||||
ExplicitWidth = 111
|
|
||||||
Width = 111
|
|
||||||
end
|
end
|
||||||
inherited edtFechaEmision: TcxDBDateEdit
|
inherited edtFechaEmision: TcxDBDateEdit
|
||||||
DataBinding.DataField = 'FECHA_EMISION'
|
DataBinding.DataField = 'FECHA_EMISION'
|
||||||
ExplicitWidth = 193
|
ExplicitWidth = 217
|
||||||
Width = 193
|
Width = 217
|
||||||
|
end
|
||||||
|
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||||
|
ExplicitWidth = 191
|
||||||
|
Width = 191
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
end
|
||||||
|
object pagPagos: TTabSheet
|
||||||
|
Caption = 'Pagos'
|
||||||
|
ImageIndex = 2
|
||||||
inline frViewPagosCliente1: TfrViewPagosCliente
|
inline frViewPagosCliente1: TfrViewPagosCliente
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 335
|
Top = 0
|
||||||
Width = 683
|
Width = 683
|
||||||
Height = 138
|
Height = 307
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -201,22 +188,21 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 1
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 340
|
|
||||||
ExplicitWidth = 683
|
ExplicitWidth = 683
|
||||||
ExplicitHeight = 133
|
ExplicitHeight = 307
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 683
|
Width = 683
|
||||||
Height = 138
|
Height = 307
|
||||||
ExplicitWidth = 683
|
ExplicitWidth = 683
|
||||||
ExplicitHeight = 133
|
ExplicitHeight = 307
|
||||||
end
|
end
|
||||||
inherited dxLayoutControl2: TdxLayoutControl
|
inherited dxLayoutControl2: TdxLayoutControl
|
||||||
Width = 683
|
Width = 683
|
||||||
Height = 138
|
Height = 307
|
||||||
ExplicitWidth = 683
|
ExplicitWidth = 683
|
||||||
ExplicitHeight = 133
|
ExplicitHeight = 307
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 666
|
Width = 666
|
||||||
ExplicitWidth = 666
|
ExplicitWidth = 666
|
||||||
@ -236,6 +222,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
inherited ActionListContenido: TActionList
|
inherited ActionListContenido: TActionList
|
||||||
inherited actAnadir: TAction
|
inherited actAnadir: TAction
|
||||||
OnExecute = frViewPagosCliente1actAnadirExecute
|
OnExecute = frViewPagosCliente1actAnadirExecute
|
||||||
|
OnUpdate = frViewPagosCliente1actAnadirUpdate
|
||||||
end
|
end
|
||||||
inherited actModificar: TAction
|
inherited actModificar: TAction
|
||||||
OnExecute = frViewPagosCliente1actModificarExecute
|
OnExecute = frViewPagosCliente1actModificarExecute
|
||||||
@ -248,18 +235,93 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object pagCompensados: TTabSheet
|
||||||
|
Caption = 'Recibos compensados'
|
||||||
|
ImageIndex = 1
|
||||||
|
inline frViewRecibosCompensados1: TfrViewRecibosCompensados
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 683
|
||||||
|
Height = 307
|
||||||
|
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 = 307
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 683
|
||||||
|
Height = 282
|
||||||
|
ExplicitWidth = 683
|
||||||
|
ExplicitHeight = 282
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = frViewRecibosCompensados1.cxGridViewIMPORTE_TOTAL
|
||||||
|
end>
|
||||||
|
DataController.Summary.OnAfterSummary = frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ToolBar1: TToolBar
|
||||||
|
Width = 683
|
||||||
|
ExplicitWidth = 683
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 577
|
Top = 511
|
||||||
Width = 691
|
Width = 691
|
||||||
Panels = <
|
Panels = <
|
||||||
item
|
item
|
||||||
Width = 200
|
Width = 200
|
||||||
end>
|
end>
|
||||||
ExplicitTop = 577
|
ExplicitTop = 511
|
||||||
ExplicitWidth = 691
|
ExplicitWidth = 691
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inline frViewReciboImportes1: TfrViewReciboImportes [4]
|
||||||
|
Left = 0
|
||||||
|
Top = 411
|
||||||
|
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 = 411
|
||||||
|
ExplicitWidth = 691
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 691
|
||||||
|
ExplicitWidth = 691
|
||||||
|
inherited eImporte: TcxDBCurrencyEdit
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Properties.OnEditValueChanged = frViewReciboImportes1eImportePropertiesEditValueChanged
|
||||||
|
ExplicitWidth = 150
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
inherited eOtrosGastos: TcxDBCurrencyEdit
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Properties.OnEditValueChanged = frViewReciboImportes1eImportePropertiesEditValueChanged
|
||||||
|
end
|
||||||
|
inherited eImporteTotalRecibo: TcxCurrencyEdit
|
||||||
|
ExplicitWidth = 183
|
||||||
|
Width = 183
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [5]
|
||||||
Top = 96
|
Top = 96
|
||||||
inherited actNuevo: TAction
|
inherited actNuevo: TAction
|
||||||
Enabled = False
|
Enabled = False
|
||||||
@ -274,13 +336,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
|||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited JvFormStorage: TJvFormStorage
|
inherited SmallImages: TPngImageList [6]
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList [7]
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [8]
|
||||||
OnSavePlacement = JvFormStorageSavePlacement
|
OnSavePlacement = JvFormStorageSavePlacement
|
||||||
OnRestorePlacement = JvFormStorageRestorePlacement
|
OnRestorePlacement = JvFormStorageRestorePlacement
|
||||||
end
|
end
|
||||||
inherited dsDataTable: TDADataSource
|
inherited dsDataTable: TDADataSource [9]
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 136
|
Top = 168
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
|
||||||
end
|
end
|
||||||
object DADataSource1: TDADataSource
|
object DADataSource1: TDADataSource
|
||||||
OnDataChange = dsDataTableDataChange
|
OnDataChange = dsDataTableDataChange
|
||||||
|
|||||||
@ -9,13 +9,18 @@ uses
|
|||||||
ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar,
|
ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar,
|
||||||
pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboCliente,
|
pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboCliente,
|
||||||
uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
|
uCustomView, uViewBase, uViewReciboCliente, uRecibosClienteController,
|
||||||
uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels;
|
uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData,
|
||||||
|
uViewDetallesGenerico, uViewRecibosCompensados, uViewReciboImportes;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)
|
TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente)
|
||||||
DADataSource1: TDADataSource;
|
DADataSource1: TDADataSource;
|
||||||
frViewReciboCliente1: TfrViewReciboCliente;
|
frViewReciboCliente1: TfrViewReciboCliente;
|
||||||
|
pagCompensados: TTabSheet;
|
||||||
|
pagPagos: TTabSheet;
|
||||||
frViewPagosCliente1: TfrViewPagosCliente;
|
frViewPagosCliente1: TfrViewPagosCliente;
|
||||||
|
frViewReciboImportes1: TfrViewReciboImportes;
|
||||||
|
frViewRecibosCompensados1: TfrViewRecibosCompensados;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
@ -32,6 +37,9 @@ type
|
|||||||
procedure DeshabilitarRecibo;
|
procedure DeshabilitarRecibo;
|
||||||
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||||||
procedure JvFormStorageSavePlacement(Sender: TObject);
|
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||||
|
procedure frViewReciboImportes1eImportePropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
|
||||||
|
procedure frViewPagosCliente1actAnadirUpdate(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
FController : IRecibosClienteController;
|
FController : IRecibosClienteController;
|
||||||
@ -46,6 +54,7 @@ type
|
|||||||
function GetViewRecibo: IViewReciboCliente;
|
function GetViewRecibo: IViewReciboCliente;
|
||||||
procedure SetViewRecibo(const Value: IViewReciboCliente);
|
procedure SetViewRecibo(const Value: IViewReciboCliente);
|
||||||
property ViewRecibo: IViewReciboCliente read GetViewRecibo write SetViewRecibo;
|
property ViewRecibo: IViewReciboCliente read GetViewRecibo write SetViewRecibo;
|
||||||
|
procedure CalcularTotal;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
procedure PrevisualizarInterno; override;
|
procedure PrevisualizarInterno; override;
|
||||||
@ -65,6 +74,18 @@ uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase;
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfEditorReciboCliente.CalcularTotal;
|
||||||
|
var
|
||||||
|
ImporteAux: Double;
|
||||||
|
begin
|
||||||
|
|
||||||
|
ImporteAux := 0;
|
||||||
|
if not VarIsNull(frViewRecibosCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then
|
||||||
|
ImporteAux := frViewRecibosCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0];
|
||||||
|
|
||||||
|
frViewReciboImportes1.eImporteTotalRecibo.Value := frViewReciboImportes1.eImporte.Value + frViewReciboImportes1.eOtrosGastos.Value + ImporteAux;
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TfEditorReciboCliente.Create(AOwner: TComponent);
|
constructor TfEditorReciboCliente.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -85,8 +106,8 @@ end;
|
|||||||
procedure TfEditorReciboCliente.DeshabilitarRecibo;
|
procedure TfEditorReciboCliente.DeshabilitarRecibo;
|
||||||
begin
|
begin
|
||||||
frViewReciboCliente1.edtFechaVencimiento.Enabled := False;
|
frViewReciboCliente1.edtFechaVencimiento.Enabled := False;
|
||||||
frViewReciboCliente1.eImporte.Enabled := False;
|
frViewReciboImportes1.eImporte.Enabled := False;
|
||||||
frViewReciboCliente1.eOtrosGastos.Enabled := False;
|
frViewReciboImportes1.eOtrosGastos.Enabled := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorReciboCliente.dsDataTableDataChange(Sender: TObject; Field: TField);
|
procedure TfEditorReciboCliente.dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
@ -109,20 +130,28 @@ begin
|
|||||||
raise Exception.Create('No hay ningún almacén asignado');
|
raise Exception.Create('No hay ningún almacén asignado');
|
||||||
|
|
||||||
Recibo.DataTable.Active := True;
|
Recibo.DataTable.Active := True;
|
||||||
|
CalcularTotal;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirExecute(Sender: TObject);
|
procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|
||||||
//En el caso de haber añadido el cobro del recibo ya no podremos modificarlo
|
FController.AnadirPago(Recibo);
|
||||||
if FController.AnadirPago(Recibo) then
|
|
||||||
|
//Solo podremos modificar el recibo si esta pendiente o devuelto
|
||||||
|
if (Recibo.SITUACION = CTE_COBRADO) then
|
||||||
DeshabilitarRecibo
|
DeshabilitarRecibo
|
||||||
//Podremos modificar si anulamos el cobro mediante una devolución
|
|
||||||
else
|
else
|
||||||
HabilitarRecibo;
|
HabilitarRecibo;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := not (Recibo.ID_RECIBO_COMPENSADO > 0);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarExecute(Sender: TObject);
|
procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -178,14 +207,27 @@ procedure TfEditorReciboCliente.frViewReciboCliente1eImportePropertiesValidate(
|
|||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|
||||||
if (DisplayValue > frViewReciboCliente1.eImporte.DataBinding.Field.Value) then
|
if (DisplayValue > frViewReciboImportes1.eImporte.DataBinding.Field.Value) then
|
||||||
begin
|
begin
|
||||||
DisplayValue := frViewReciboCliente1.eImporte.DataBinding.Field.Value;
|
DisplayValue := frViewReciboImportes1.eImporte.DataBinding.Field.Value;
|
||||||
ErrorText := 'El importe debe ser menor o igual que el actual';
|
ErrorText := 'El importe debe ser menor o igual que el actual';
|
||||||
Error := True;
|
Error := True;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorReciboCliente.frViewReciboImportes1eImportePropertiesEditValueChanged(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
CalcularTotal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorReciboCliente.frViewRecibosCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
CalcularTotal;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfEditorReciboCliente.GetController: IRecibosClienteController;
|
function TfEditorReciboCliente.GetController: IRecibosClienteController;
|
||||||
begin
|
begin
|
||||||
Result := FController;
|
Result := FController;
|
||||||
@ -214,8 +256,8 @@ begin
|
|||||||
if (Length(FRecibo.REFERENCIA_REMESA) = 0) then
|
if (Length(FRecibo.REFERENCIA_REMESA) = 0) then
|
||||||
begin
|
begin
|
||||||
frViewReciboCliente1.edtFechaVencimiento.Enabled := True;
|
frViewReciboCliente1.edtFechaVencimiento.Enabled := True;
|
||||||
frViewReciboCliente1.eImporte.Enabled := True;
|
frViewReciboImportes1.eImporte.Enabled := True;
|
||||||
frViewReciboCliente1.eOtrosGastos.Enabled := True;
|
frViewReciboImportes1.eOtrosGastos.Enabled := True;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -247,6 +289,12 @@ begin
|
|||||||
FTitulo := 'Nuevo recibo de cliente'
|
FTitulo := 'Nuevo recibo de cliente'
|
||||||
else
|
else
|
||||||
FTitulo := 'Recibo de cliente';
|
FTitulo := 'Recibo de cliente';
|
||||||
|
|
||||||
|
if (Recibo.ID_RECIBO_COMPENSADO > 0) then
|
||||||
|
FTitulo := FTitulo + ' (compensado)';
|
||||||
|
|
||||||
|
if Length(Recibo.NOMBRE_CLIENTE) > 0 then
|
||||||
|
FTitulo := FTitulo + ' - ' + Recibo.NOMBRE_CLIENTE;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
inherited PonerTitulos(FTitulo);
|
inherited PonerTitulos(FTitulo);
|
||||||
@ -261,7 +309,8 @@ end;
|
|||||||
procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController);
|
procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController);
|
||||||
begin
|
begin
|
||||||
FController := Value;
|
FController := Value;
|
||||||
// if Assigned(FController) then
|
if Assigned(FController) then
|
||||||
|
frViewRecibosCompensados1.Controller := FController;
|
||||||
// (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController);
|
// (ViewRecibo as IViewReciboCliente).Controller := (FController as IRecibosClienteController);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -274,6 +323,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
FViewRecibo.Recibo := Recibo;
|
FViewRecibo.Recibo := Recibo;
|
||||||
frViewPagosCliente1.Pagos := Recibo.Pagos;
|
frViewPagosCliente1.Pagos := Recibo.Pagos;
|
||||||
|
frViewRecibosCompensados1.ReciboCliente := FRecibo;
|
||||||
|
|
||||||
if (FRecibo.SITUACION = CTE_COBRADO) then
|
if (FRecibo.SITUACION = CTE_COBRADO) then
|
||||||
DeshabilitarRecibo
|
DeshabilitarRecibo
|
||||||
|
|||||||
@ -9,7 +9,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 645
|
Width = 645
|
||||||
Caption = 'Lista de recibos de cliente'
|
Caption = 'Lista de recibos de cliente'
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 618
|
Left = 618
|
||||||
Picture.Data = {
|
Picture.Data = {
|
||||||
@ -39,9 +39,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 645
|
Width = 645
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 425
|
ExplicitWidth = 434
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 645
|
ExplicitWidth = 645
|
||||||
@ -50,8 +50,8 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 542
|
Top = 542
|
||||||
Width = 645
|
Width = 645
|
||||||
ExplicitTop = 645
|
ExplicitTop = 542
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
end
|
end
|
||||||
inline frViewRecibosCliente1: TfrViewRecibosCliente [3]
|
inline frViewRecibosCliente1: TfrViewRecibosCliente [3]
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -68,13 +68,13 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 102
|
ExplicitTop = 102
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
ExplicitHeight = 543
|
ExplicitHeight = 440
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 645
|
Width = 645
|
||||||
Height = 312
|
Height = 312
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
ExplicitHeight = 415
|
ExplicitHeight = 312
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
item
|
item
|
||||||
@ -96,15 +96,15 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
end
|
end
|
||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
Width = 645
|
Width = 645
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
inherited TBXDock1: TTBXDock
|
inherited TBXDock1: TTBXDock
|
||||||
Width = 645
|
Width = 645
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
ExplicitWidth = 645
|
ExplicitWidth = 645
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 641
|
Width = 641
|
||||||
ExplicitWidth = 634
|
ExplicitWidth = 641
|
||||||
inherited edtFechaIniFiltro: TcxDateEdit
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
ExplicitWidth = 199
|
ExplicitWidth = 199
|
||||||
Width = 199
|
Width = 199
|
||||||
@ -118,10 +118,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
Width = 641
|
Width = 641
|
||||||
ExplicitWidth = 634
|
ExplicitWidth = 641
|
||||||
inherited tbxBotones: TTBXToolbar
|
inherited tbxBotones: TTBXToolbar
|
||||||
Width = 631
|
Width = 631
|
||||||
ExplicitWidth = 624
|
ExplicitWidth = 631
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -129,14 +129,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
|||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
Top = 414
|
Top = 414
|
||||||
ExplicitTop = 517
|
ExplicitTop = 414
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
Width = 645
|
Width = 645
|
||||||
ExplicitWidth = 638
|
ExplicitWidth = 645
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
Width = 635
|
Width = 635
|
||||||
ExplicitWidth = 628
|
ExplicitWidth = 635
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -1,28 +1,22 @@
|
|||||||
inherited frViewReciboCliente: TfrViewReciboCliente
|
inherited frViewReciboCliente: TfrViewReciboCliente
|
||||||
Width = 690
|
Width = 690
|
||||||
Height = 332
|
Height = 307
|
||||||
ExplicitWidth = 690
|
ExplicitWidth = 690
|
||||||
ExplicitHeight = 332
|
ExplicitHeight = 307
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 690
|
Width = 690
|
||||||
Height = 332
|
Height = 307
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||||
|
ExplicitHeight = 259
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
690
|
690
|
||||||
332)
|
307)
|
||||||
object Bevel1: TBevel
|
|
||||||
Left = 120
|
|
||||||
Top = 243
|
|
||||||
Width = 210
|
|
||||||
Height = 9
|
|
||||||
Shape = bsBottomLine
|
|
||||||
end
|
|
||||||
object eReferencia: TcxDBTextEdit
|
object eReferencia: TcxDBTextEdit
|
||||||
Left = 120
|
Left = 120
|
||||||
Top = 30
|
Top = 30
|
||||||
@ -98,8 +92,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
Width = 129
|
Width = 129
|
||||||
end
|
end
|
||||||
object memObservaciones: TcxDBMemo
|
object memObservaciones: TcxDBMemo
|
||||||
Left = 331
|
Left = 22
|
||||||
Top = 272
|
Top = 240
|
||||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
DataBinding.DataField = 'OBSERVACIONES'
|
DataBinding.DataField = 'OBSERVACIONES'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
@ -111,37 +105,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 17
|
TabOrder = 6
|
||||||
Height = 49
|
Height = 49
|
||||||
Width = 274
|
Width = 274
|
||||||
end
|
end
|
||||||
object eImporte: TcxDBCurrencyEdit
|
|
||||||
Left = 120
|
|
||||||
Top = 189
|
|
||||||
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 = 5
|
|
||||||
Height = 21
|
|
||||||
Width = 194
|
|
||||||
end
|
|
||||||
object eFechaEmision: TcxDBTextEdit
|
object eFechaEmision: TcxDBTextEdit
|
||||||
Left = 407
|
Left = 440
|
||||||
Top = 30
|
Top = 30
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'FECHA_FACTURA'
|
DataBinding.DataField = 'FECHA_FACTURA'
|
||||||
@ -163,11 +132,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 8
|
TabOrder = 7
|
||||||
Width = 20
|
Width = 20
|
||||||
end
|
end
|
||||||
object eFormaPago: TcxDBTextEdit
|
object eFormaPago: TcxDBTextEdit
|
||||||
Left = 407
|
Left = 440
|
||||||
Top = 57
|
Top = 57
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
|
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
|
||||||
@ -189,11 +158,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 9
|
TabOrder = 8
|
||||||
Width = 42
|
Width = 42
|
||||||
end
|
end
|
||||||
object eImporteTotal: TcxDBCurrencyEdit
|
object eImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 407
|
Left = 440
|
||||||
Top = 84
|
Top = 84
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'IMPORTE_FACTURA'
|
DataBinding.DataField = 'IMPORTE_FACTURA'
|
||||||
@ -220,12 +189,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleDisabled.TextColor = clWindowText
|
StyleDisabled.TextColor = clWindowText
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 10
|
TabOrder = 9
|
||||||
Height = 21
|
Height = 21
|
||||||
Width = 182
|
Width = 182
|
||||||
end
|
end
|
||||||
object eNombreCliente: TcxDBTextEdit
|
object eNombreCliente: TcxDBTextEdit
|
||||||
Left = 407
|
Left = 440
|
||||||
Top = 167
|
Top = 167
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'NOMBRE_CLIENTE'
|
DataBinding.DataField = 'NOMBRE_CLIENTE'
|
||||||
@ -247,11 +216,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 12
|
TabOrder = 11
|
||||||
Width = 171
|
Width = 171
|
||||||
end
|
end
|
||||||
object eNifCif: TcxDBTextEdit
|
object eNifCif: TcxDBTextEdit
|
||||||
Left = 407
|
Left = 440
|
||||||
Top = 140
|
Top = 140
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'NIF_CIF_CLIENTE'
|
DataBinding.DataField = 'NIF_CIF_CLIENTE'
|
||||||
@ -273,11 +242,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 11
|
TabOrder = 10
|
||||||
Width = 147
|
Width = 147
|
||||||
end
|
end
|
||||||
object eEntidad: TcxDBTextEdit
|
object eEntidad: TcxDBTextEdit
|
||||||
Left = 407
|
Left = 440
|
||||||
Top = 194
|
Top = 194
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'ENTIDAD_CLIENTE'
|
DataBinding.DataField = 'ENTIDAD_CLIENTE'
|
||||||
@ -299,11 +268,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 13
|
TabOrder = 12
|
||||||
Width = 90
|
Width = 90
|
||||||
end
|
end
|
||||||
object eSucursal: TcxDBTextEdit
|
object eSucursal: TcxDBTextEdit
|
||||||
Left = 530
|
Left = 554
|
||||||
Top = 194
|
Top = 194
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'SUCURSAL_CLIENTE'
|
DataBinding.DataField = 'SUCURSAL_CLIENTE'
|
||||||
@ -325,11 +294,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 14
|
TabOrder = 13
|
||||||
Width = 75
|
Width = 75
|
||||||
end
|
end
|
||||||
object eDC: TcxDBTextEdit
|
object eDC: TcxDBTextEdit
|
||||||
Left = 618
|
Left = 635
|
||||||
Top = 194
|
Top = 194
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'DC_CLIENTE'
|
DataBinding.DataField = 'DC_CLIENTE'
|
||||||
@ -351,11 +320,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 15
|
TabOrder = 14
|
||||||
Width = 33
|
Width = 33
|
||||||
end
|
end
|
||||||
object eCuenta: TcxDBTextEdit
|
object eCuenta: TcxDBTextEdit
|
||||||
Left = 407
|
Left = 440
|
||||||
Top = 221
|
Top = 221
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'CUENTA_CLIENTE'
|
DataBinding.DataField = 'CUENTA_CLIENTE'
|
||||||
@ -377,7 +346,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 16
|
TabOrder = 15
|
||||||
Width = 83
|
Width = 83
|
||||||
end
|
end
|
||||||
object eRemesa: TcxDBTextEdit
|
object eRemesa: TcxDBTextEdit
|
||||||
@ -406,46 +375,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Width = 113
|
Width = 113
|
||||||
end
|
end
|
||||||
object eOtrosGastos: TcxDBCurrencyEdit
|
|
||||||
Left = 120
|
|
||||||
Top = 216
|
|
||||||
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 = 6
|
|
||||||
Height = 21
|
|
||||||
Width = 111
|
|
||||||
end
|
|
||||||
object eImporteTotalRecibo: TcxCurrencyEdit
|
|
||||||
Left = 120
|
|
||||||
Top = 263
|
|
||||||
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 = 7
|
|
||||||
Width = 121
|
|
||||||
end
|
|
||||||
object edtFechaEmision: TcxDBDateEdit
|
object edtFechaEmision: TcxDBDateEdit
|
||||||
Left = 120
|
Left = 120
|
||||||
Top = 57
|
Top = 57
|
||||||
@ -471,14 +400,38 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 113
|
Width = 113
|
||||||
end
|
end
|
||||||
|
object rRefReciboCompensado: TcxDBTextEdit
|
||||||
|
Left = 120
|
||||||
|
Top = 189
|
||||||
|
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 = 5
|
||||||
|
Width = 191
|
||||||
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
@ -518,28 +471,22 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group9: TdxLayoutGroup
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
Caption = 'Importe del recibo'
|
Caption = 'Compensado en 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
|
|
||||||
object dxLayoutControl1Item4: TdxLayoutItem
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
Caption = 'Importe total:'
|
Caption = 'Ref. recibo:'
|
||||||
Control = eImporteTotalRecibo
|
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
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -572,73 +519,57 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
|||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||||
ShowCaption = False
|
AutoAligns = [aaHorizontal]
|
||||||
Hidden = True
|
AlignVert = avClient
|
||||||
ShowBorder = False
|
Caption = 'Datos del cliente'
|
||||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
Offsets.Top = 5
|
||||||
AutoAligns = [aaHorizontal]
|
object dxLayoutControl1Item11: TdxLayoutItem
|
||||||
AlignVert = avClient
|
Caption = 'NIF/CIF:'
|
||||||
Caption = 'Datos del cliente'
|
Control = eNifCif
|
||||||
Offsets.Top = 5
|
ControlOptions.ShowBorder = False
|
||||||
object dxLayoutControl1Item11: TdxLayoutItem
|
end
|
||||||
Caption = 'NIF/CIF:'
|
object dxLayoutControl1Item10: TdxLayoutItem
|
||||||
Control = eNifCif
|
Caption = 'Nombre:'
|
||||||
ControlOptions.ShowBorder = False
|
Control = eNombreCliente
|
||||||
end
|
ControlOptions.ShowBorder = False
|
||||||
object dxLayoutControl1Item10: TdxLayoutItem
|
end
|
||||||
Caption = 'Nombre:'
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||||
Control = eNombreCliente
|
ShowCaption = False
|
||||||
ControlOptions.ShowBorder = False
|
Hidden = True
|
||||||
end
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
object dxLayoutControl1Group11: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group11: TdxLayoutGroup
|
object dxLayoutControl1Item12: TdxLayoutItem
|
||||||
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
|
|
||||||
AutoAligns = [aaVertical]
|
AutoAligns = [aaVertical]
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'C'#243'd. cuenta:'
|
Caption = 'Entidad:'
|
||||||
Control = eCuenta
|
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
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
object dxLayoutControl1Item15: TdxLayoutItem
|
||||||
object dxLayoutControl1Group7: TdxLayoutGroup
|
AutoAligns = [aaVertical]
|
||||||
Caption = 'Observaciones'
|
AlignHorz = ahClient
|
||||||
object dxLayoutControl1Item5: TdxLayoutItem
|
Caption = 'C'#243'd. cuenta:'
|
||||||
AutoAligns = [aaHorizontal]
|
Control = eCuenta
|
||||||
AlignVert = avClient
|
|
||||||
Caption = 'Observaciones:'
|
|
||||||
ShowCaption = False
|
|
||||||
Control = memObservaciones
|
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -29,8 +29,6 @@ type
|
|||||||
edtFechaVencimiento: TcxDBDateEdit;
|
edtFechaVencimiento: TcxDBDateEdit;
|
||||||
dxLayoutControl1Item5: TdxLayoutItem;
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
memObservaciones: TcxDBMemo;
|
memObservaciones: TcxDBMemo;
|
||||||
dxLayoutControl1Item6: TdxLayoutItem;
|
|
||||||
eImporte: TcxDBCurrencyEdit;
|
|
||||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
dxLayoutControl1Item7: TdxLayoutItem;
|
dxLayoutControl1Item7: TdxLayoutItem;
|
||||||
eFechaEmision: TcxDBTextEdit;
|
eFechaEmision: TcxDBTextEdit;
|
||||||
@ -55,23 +53,17 @@ type
|
|||||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||||
dxLayoutControl1Item16: TdxLayoutItem;
|
dxLayoutControl1Item16: TdxLayoutItem;
|
||||||
eRemesa: TcxDBTextEdit;
|
eRemesa: TcxDBTextEdit;
|
||||||
dxLayoutControl1Item17: TdxLayoutItem;
|
|
||||||
eOtrosGastos: TcxDBCurrencyEdit;
|
|
||||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||||
eImporteTotalRecibo: TcxCurrencyEdit;
|
|
||||||
dxLayoutControl1Item4: TdxLayoutItem;
|
|
||||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
|
||||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||||
dxLayoutControl1Group9: TdxLayoutGroup;
|
|
||||||
dxLayoutControl1Item18: TdxLayoutItem;
|
|
||||||
Bevel1: TBevel;
|
|
||||||
dxLayoutControl1Group11: TdxLayoutGroup;
|
dxLayoutControl1Group11: TdxLayoutGroup;
|
||||||
dxLayoutControl1Item19: TdxLayoutItem;
|
dxLayoutControl1Item19: TdxLayoutItem;
|
||||||
edtFechaEmision: TcxDBDateEdit;
|
edtFechaEmision: TcxDBDateEdit;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
rRefReciboCompensado: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||||
procedure eImportePropertiesEditValueChanged(Sender: TObject);
|
|
||||||
private
|
private
|
||||||
FRecibo : IBizRecibosCliente;
|
FRecibo : IBizRecibosCliente;
|
||||||
function GetRecibo: IBizRecibosCliente;
|
function GetRecibo: IBizRecibosCliente;
|
||||||
@ -89,12 +81,6 @@ implementation
|
|||||||
|
|
||||||
{ TfrViewReciboCliente }
|
{ TfrViewReciboCliente }
|
||||||
|
|
||||||
procedure TfrViewReciboCliente.eImportePropertiesEditValueChanged(Sender: TObject);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
eImporteTotalRecibo.Value := eImporte.Value + eOtrosGastos.Value;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TfrViewReciboCliente.GetRecibo: IBizRecibosCliente;
|
function TfrViewReciboCliente.GetRecibo: IBizRecibosCliente;
|
||||||
begin
|
begin
|
||||||
Result := FRecibo;
|
Result := FRecibo;
|
||||||
|
|||||||
130
Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.dfm
Normal file
130
Source/Modulos/Recibos de cliente/Views/uViewReciboImportes.dfm
Normal file
@ -0,0 +1,130 @@
|
|||||||
|
inherited frViewReciboImportes: TfrViewReciboImportes
|
||||||
|
Width = 558
|
||||||
|
Height = 100
|
||||||
|
Align = alBottom
|
||||||
|
ExplicitWidth = 451
|
||||||
|
ExplicitHeight = 100
|
||||||
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 558
|
||||||
|
Height = 217
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Align = alTop
|
||||||
|
ParentBackground = True
|
||||||
|
TabOrder = 0
|
||||||
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
|
ExplicitWidth = 451
|
||||||
|
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
|
||||||
@ -0,0 +1,37 @@
|
|||||||
|
unit uViewReciboImportes;
|
||||||
|
|
||||||
|
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
|
||||||
|
TfrViewReciboImportes = 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.
|
||||||
@ -38,6 +38,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
|||||||
DataBinding.FieldName = 'REFERENCIA'
|
DataBinding.FieldName = 'REFERENCIA'
|
||||||
Width = 64
|
Width = 64
|
||||||
end
|
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 cxGridViewSITUACION: TcxGridDBColumn
|
object cxGridViewSITUACION: TcxGridDBColumn
|
||||||
Caption = 'Situaci'#243'n'
|
Caption = 'Situaci'#243'n'
|
||||||
DataBinding.FieldName = 'SITUACION'
|
DataBinding.FieldName = 'SITUACION'
|
||||||
@ -150,8 +159,8 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
|||||||
Width = 199
|
Width = 199
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 379
|
Left = 327
|
||||||
ExplicitLeft = 379
|
ExplicitLeft = 327
|
||||||
end
|
end
|
||||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
@ -288,6 +297,26 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
|||||||
0049454E44AE426082}
|
0049454E44AE426082}
|
||||||
Name = 'PngImage1'
|
Name = 'PngImage1'
|
||||||
Background = clWindow
|
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>
|
end>
|
||||||
Left = 56
|
Left = 56
|
||||||
Top = 48
|
Top = 48
|
||||||
|
|||||||
@ -47,6 +47,8 @@ type
|
|||||||
actCliente: TAction;
|
actCliente: TAction;
|
||||||
TBXItem2: TTBXItem;
|
TBXItem2: TTBXItem;
|
||||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||||
|
cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
|
||||||
|
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
|
||||||
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
|
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||||
var ADone: Boolean);
|
var ADone: Boolean);
|
||||||
@ -58,6 +60,9 @@ type
|
|||||||
var AText: string);
|
var AText: string);
|
||||||
procedure actClienteExecute(Sender: TObject);
|
procedure actClienteExecute(Sender: TObject);
|
||||||
procedure actClienteUpdate(Sender: TObject);
|
procedure actClienteUpdate(Sender: TObject);
|
||||||
|
procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
|
||||||
private
|
private
|
||||||
//Filtros relativos a la vista
|
//Filtros relativos a la vista
|
||||||
@ -177,6 +182,22 @@ begin
|
|||||||
}
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCliente.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 TfrViewRecibosCliente.cxGridViewIMPORTE_TOTALGetDisplayText(
|
procedure TfrViewRecibosCliente.cxGridViewIMPORTE_TOTALGetDisplayText(
|
||||||
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||||
var AText: string);
|
var AText: string);
|
||||||
|
|||||||
@ -0,0 +1,237 @@
|
|||||||
|
inherited frViewRecibosCompensados: TfrViewRecibosCompensados
|
||||||
|
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_CLIENTE: TcxGridDBColumn
|
||||||
|
Caption = 'NIF/CIF'
|
||||||
|
DataBinding.FieldName = 'NIF_CLIF_CLIENTE'
|
||||||
|
end
|
||||||
|
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Cliente'
|
||||||
|
DataBinding.FieldName = 'NOMBRE_CLIENTE'
|
||||||
|
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
|
||||||
@ -0,0 +1,193 @@
|
|||||||
|
unit uViewRecibosCompensados;
|
||||||
|
|
||||||
|
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, uDataModuleRecibosCliente,
|
||||||
|
uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit,
|
||||||
|
dxLayoutControl;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewRecibosCompensados = interface
|
||||||
|
['{C683669A-002A-432D-BC20-3FA50BEA8721}']
|
||||||
|
function GetReciboCliente: IBizRecibosCliente;
|
||||||
|
procedure SetReciboCliente(const Value: IBizRecibosCliente);
|
||||||
|
property ReciboCliente: IBizRecibosCliente read GetReciboCliente write SetReciboCliente;
|
||||||
|
|
||||||
|
function GetController : IRecibosClienteController;
|
||||||
|
procedure SetController (const Value : IRecibosClienteController);
|
||||||
|
property Controller : IRecibosClienteController read GetController write SetController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewRecibosCompensados = 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_CLIENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewNOMBRE_CLIENTE: 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;
|
||||||
|
FReciboCliente : IBizRecibosCliente;
|
||||||
|
FController : IRecibosClienteController;
|
||||||
|
|
||||||
|
procedure AnadirInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
|
||||||
|
function GetReciboCliente: IBizRecibosCliente;
|
||||||
|
procedure SetReciboCliente(const Value: IBizRecibosCliente);
|
||||||
|
|
||||||
|
function GetModified: Boolean; override;
|
||||||
|
procedure SetModified(const Value: Boolean); override;
|
||||||
|
|
||||||
|
function GetController : IRecibosClienteController;
|
||||||
|
procedure SetController (const Value : IRecibosClienteController);
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
property ReciboCliente: IBizRecibosCliente read GetReciboCliente write SetReciboCliente;
|
||||||
|
property Controller : IRecibosClienteController read GetController write SetController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uCustomView;
|
||||||
|
|
||||||
|
{ TfrViewFacturasReciboCliente }
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.actAnadirUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := (ReciboCliente.SITUACION <> CTE_COBRADO);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.actContraerExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.ViewData.Collapse(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.actContraerUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := HayDatos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.actEliminarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
|
||||||
|
and (cxGridView.Controller.SelectedRows[0].HasCells)
|
||||||
|
and (ReciboCliente.SITUACION <> CTE_COBRADO));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.actExpandirExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.ViewData.Expand(True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.actExpandirUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := HayDatos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.AnadirInterno;
|
||||||
|
begin
|
||||||
|
//inherited; // No hacer el comportamiento normal
|
||||||
|
if FController.ElegirRecibosCompensados(ReciboCliente) then
|
||||||
|
Modified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewRecibosCompensados.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FHayCambios := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.CustomViewShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
cxGridView.OptionsSelection.MultiSelect := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewRecibosCompensados.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.EliminarInterno;
|
||||||
|
begin
|
||||||
|
if cxGridView.Controller.SelectedRowCount > 0 then
|
||||||
|
if cxGridView.Controller.SelectedRows[0].HasCells then
|
||||||
|
// ViewGrid._FocusedView.Controller.SelectedRecordCount
|
||||||
|
FController.QuitarReciboCompensado(ReciboCliente);
|
||||||
|
Modified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewRecibosCompensados.GetController: IRecibosClienteController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewRecibosCompensados.GetModified: Boolean;
|
||||||
|
begin
|
||||||
|
Result := FHayCambios or inherited GetModified;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewRecibosCompensados.GetReciboCliente: IBizRecibosCliente;
|
||||||
|
begin
|
||||||
|
Result := FReciboCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.SetController(
|
||||||
|
const Value: IRecibosClienteController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.SetModified(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
FHayCambios := Value;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewRecibosCompensados.SetReciboCliente(const Value: IBizRecibosCliente);
|
||||||
|
begin
|
||||||
|
FReciboCliente := Value;
|
||||||
|
FHayCambios := False;
|
||||||
|
if Assigned(FReciboCliente) then
|
||||||
|
dsDetalles.DataTable := FReciboCliente.RecibosCompensados.DataTable
|
||||||
|
else
|
||||||
|
dsDetalles.DataTable := NIL;
|
||||||
|
|
||||||
|
actAnchoAutomatico.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -270,7 +270,7 @@ var
|
|||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
|
|
||||||
ARecibosSeleccionados := (FRecibosClienteController.ElegirRecibos(FRecibosClienteController.BuscarTodosPendientesDevueltos, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosCliente);
|
ARecibosSeleccionados := (FRecibosClienteController.ElegirRecibos(FRecibosClienteController.BuscarRecibosARemesar, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosCliente);
|
||||||
if Assigned(ARecibosSeleccionados) then
|
if Assigned(ARecibosSeleccionados) then
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
@ -351,7 +351,7 @@ end;
|
|||||||
|
|
||||||
procedure TRemesasClienteController.RecuperarRecibos(ARemesaCliente: IBizRemesaCliente);
|
procedure TRemesasClienteController.RecuperarRecibos(ARemesaCliente: IBizRemesaCliente);
|
||||||
begin
|
begin
|
||||||
ARemesaCliente.Recibos := RecibosClienteController.BuscarTodosRemesa(ARemesaCliente.ID);
|
ARemesaCliente.Recibos := RecibosClienteController.BuscarRecibosRemesa(ARemesaCliente.ID);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRemesasClienteController.Existe(const ID: Integer): Boolean;
|
function TRemesasClienteController.Existe(const ID: Integer): Boolean;
|
||||||
|
|||||||
@ -92,7 +92,6 @@ contains
|
|||||||
uRemesasClienteViewRegister in 'uRemesasClienteViewRegister.pas',
|
uRemesasClienteViewRegister in 'uRemesasClienteViewRegister.pas',
|
||||||
uViewRemesaCliente in 'uViewRemesaCliente.pas' {frViewRemesaCliente: TFrame},
|
uViewRemesaCliente in 'uViewRemesaCliente.pas' {frViewRemesaCliente: TFrame},
|
||||||
uEditorRemesaCliente in 'uEditorRemesaCliente.pas' {fEditorRemesaCliente: TfEditorRemesaCliente},
|
uEditorRemesaCliente in 'uEditorRemesaCliente.pas' {fEditorRemesaCliente: TfEditorRemesaCliente},
|
||||||
uViewRecibosRemesaCliente_2 in 'uViewRecibosRemesaCliente_2.pas' {frViewRecibosRemesaCliente2: TFrame},
|
|
||||||
uEditorRemesaClienteReport in 'uEditorRemesaClienteReport.pas' {fEditorRemesaClienteReport: TfEditorRemesaClienteReport},
|
uEditorRemesaClienteReport in 'uEditorRemesaClienteReport.pas' {fEditorRemesaClienteReport: TfEditorRemesaClienteReport},
|
||||||
uViewRecibosRemesaCliente in 'uViewRecibosRemesaCliente.pas' {frViewRecibosRemesaCliente: TFrame};
|
uViewRecibosRemesaCliente in 'uViewRecibosRemesaCliente.pas' {frViewRecibosRemesaCliente: TFrame};
|
||||||
|
|
||||||
|
|||||||
@ -101,22 +101,22 @@ object RptRemesasProveedor: TRptRemesasProveedor
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'REMESAS_PROVEEDOR'
|
TargetTable = 'REMESAS_PROVEEDOR'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT'#10' REMESAS_PROVEEDOR.ID,'#10' REMESAS_PROVEEDOR.ID_EMPRES' +
|
'SELECT'#10' V_REMESAS_PROVEEDOR.ID,'#10' V_REMESAS_PROVEEDOR.ID_EM' +
|
||||||
'A,'#10' REMESAS_PROVEEDOR.REFERENCIA,'#10' REMESAS_PROVEEDOR.FECHA' +
|
'PRESA,'#10' V_REMESAS_PROVEEDOR.REFERENCIA,'#10' V_REMESAS_PROVEED' +
|
||||||
'_REMESA,'#10' REMESAS_PROVEEDOR.IMPORTE_TOTAL,'#10' EMPRESAS.NOMBR' +
|
'OR.FECHA_REMESA,'#10' V_REMESAS_PROVEEDOR.IMPORTE_TOTAL,'#10' EMPR' +
|
||||||
'E as TITULAR,'#10' EMPRESAS_DATOS_BANCO.ENTIDAD,'#10' EMPRESAS_DAT' +
|
'ESAS.NOMBRE as TITULAR,'#10' EMPRESAS_DATOS_BANCO.ENTIDAD,'#10' EM' +
|
||||||
'OS_BANCO.SUCURSAL,'#10' EMPRESAS_DATOS_BANCO.DC,'#10' EMPRESAS_DAT' +
|
'PRESAS_DATOS_BANCO.SUCURSAL,'#10' EMPRESAS_DATOS_BANCO.DC,'#10' EM' +
|
||||||
'OS_BANCO.CUENTA,'#10' REMESAS_PROVEEDOR.DESCRIPCION,'#10#10' EMPRESA' +
|
'PRESAS_DATOS_BANCO.CUENTA,'#10' V_REMESAS_PROVEEDOR.DESCRIPCION,'#10 +
|
||||||
'S.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESA' +
|
#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,' +
|
||||||
'S.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRES' +
|
#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBL' +
|
||||||
'A,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_' +
|
'ACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPR' +
|
||||||
'POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRES' +
|
'ESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFO' +
|
||||||
'AS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_' +
|
'NO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPR' +
|
||||||
'WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10#10'FROM'#10' REM' +
|
'ESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10 +
|
||||||
'ESAS_PROVEEDOR'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = REME' +
|
#10#10'FROM'#10' V_REMESAS_PROVEEDOR'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' +
|
||||||
'SAS_PROVEEDOR.ID_EMPRESA)'#10' LEFT OUTER JOIN EMPRESAS_DATOS_BANCO' +
|
'ESAS.ID = V_REMESAS_PROVEEDOR.ID_EMPRESA)'#10' LEFT OUTER JOIN EMPR' +
|
||||||
' ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)' +
|
'ESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = V_REMESAS_PROVEED' +
|
||||||
#10'WHERE'#10' REMESAS_PROVEEDOR.ID = :ID'
|
'OR.ID_DATOS_BANCO)'#10'WHERE'#10' V_REMESAS_PROVEEDOR.ID = :ID'
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -524,16 +524,17 @@ object RptRemesasProveedor: TRptRemesasProveedor
|
|||||||
'V_RECIBOS_PROVEEDOR.ID_REMESA,'#10' V_RECIBOS_PROVEEDOR.REFERENCI' +
|
'V_RECIBOS_PROVEEDOR.ID_REMESA,'#10' V_RECIBOS_PROVEEDOR.REFERENCI' +
|
||||||
'A_REMESA,'#10' V_RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO,'#10' V_RECIB' +
|
'A_REMESA,'#10' V_RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO,'#10' V_RECIB' +
|
||||||
'OS_PROVEEDOR.DESCRIPCION,'#10' V_RECIBOS_PROVEEDOR.OBSERVACIONES,' +
|
'OS_PROVEEDOR.DESCRIPCION,'#10' V_RECIBOS_PROVEEDOR.OBSERVACIONES,' +
|
||||||
#10' V_RECIBOS_PROVEEDOR.IMPORTE,'#10' V_RECIBOS_PROVEEDOR.FECHA_' +
|
#10' V_RECIBOS_PROVEEDOR.IMPORTE,'#10' V_RECIBOS_PROVEEDOR.OTROS_' +
|
||||||
'FACTURA,'#10' V_RECIBOS_PROVEEDOR.REFERENCIA_FACTURA_PROV,'#10' V_' +
|
'GASTOS,'#10' V_RECIBOS_PROVEEDOR.IMPORTE_TOTAL,'#10' V_RECIBOS_PRO' +
|
||||||
'RECIBOS_PROVEEDOR.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_PROVEEDOR.IM' +
|
'VEEDOR.FECHA_FACTURA,'#10' V_RECIBOS_PROVEEDOR.REFERENCIA_FACTURA' +
|
||||||
'PORTE_FACTURA,'#10' V_RECIBOS_PROVEEDOR.ID_EMPRESA,'#10' V_RECIBOS' +
|
'_PROV,'#10' V_RECIBOS_PROVEEDOR.FORMA_PAGO_FACTURA,'#10' V_RECIBOS' +
|
||||||
'_PROVEEDOR.NOMBRE_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.NIF_CIF_PRO' +
|
'_PROVEEDOR.IMPORTE_FACTURA,'#10' V_RECIBOS_PROVEEDOR.ID_EMPRESA,'#10 +
|
||||||
'VEEDOR,'#10' V_RECIBOS_PROVEEDOR.ENTIDAD_PROVEEDOR,'#10' V_RECIBOS' +
|
' V_RECIBOS_PROVEEDOR.NOMBRE_PROVEEDOR,'#10' V_RECIBOS_PROVEEDO' +
|
||||||
'_PROVEEDOR.SUCURSAL_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.DC_PROVEE' +
|
'R.NIF_CIF_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.ENTIDAD_PROVEEDOR,'#10 +
|
||||||
'DOR,'#10' V_RECIBOS_PROVEEDOR.CUENTA_PROVEEDOR'#10#10#10'FROM V_RECIBOS_P' +
|
' V_RECIBOS_PROVEEDOR.SUCURSAL_PROVEEDOR,'#10' V_RECIBOS_PROVEE' +
|
||||||
'ROVEEDOR'#10'WHERE V_RECIBOS_PROVEEDOR.ID_REMESA = :ID_REMESA'#10'ORDER ' +
|
'DOR.DC_PROVEEDOR,'#10' V_RECIBOS_PROVEEDOR.CUENTA_PROVEEDOR'#10#10#10'FRO' +
|
||||||
'BY FECHA_VENCIMIENTO'
|
'M V_RECIBOS_PROVEEDOR'#10'WHERE V_RECIBOS_PROVEEDOR.ID_REMESA = :ID_' +
|
||||||
|
'REMESA'#10'ORDER BY FECHA_VENCIMIENTO'
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -623,6 +624,14 @@ object RptRemesasProveedor: TRptRemesasProveedor
|
|||||||
item
|
item
|
||||||
DatasetField = 'REFERENCIA_FACTURA_PROV'
|
DatasetField = 'REFERENCIA_FACTURA_PROV'
|
||||||
TableField = 'REFERENCIA_FACTURA_PROV'
|
TableField = 'REFERENCIA_FACTURA_PROV'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'OTROS_GASTOS'
|
||||||
|
TableField = 'OTROS_GASTOS'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_TOTAL'
|
||||||
|
TableField = 'IMPORTE_TOTAL'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'Informe_Detalles'
|
Name = 'Informe_Detalles'
|
||||||
@ -754,6 +763,28 @@ object RptRemesasProveedor: TRptRemesasProveedor
|
|||||||
Lookup = False
|
Lookup = False
|
||||||
LookupCache = False
|
LookupCache = False
|
||||||
end
|
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
|
item
|
||||||
Name = 'FECHA_FACTURA'
|
Name = 'FECHA_FACTURA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
@ -907,7 +938,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
|
|||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Default'
|
PrintOptions.Printer = 'Default'
|
||||||
ReportOptions.CreateDate = 37871.995398692100000000
|
ReportOptions.CreateDate = 37871.995398692100000000
|
||||||
ReportOptions.LastChange = 39267.734660185180000000
|
ReportOptions.LastChange = 39269.577914849530000000
|
||||||
ReportOptions.VersionBuild = '1'
|
ReportOptions.VersionBuild = '1'
|
||||||
ReportOptions.VersionMajor = '12'
|
ReportOptions.VersionMajor = '12'
|
||||||
ReportOptions.VersionMinor = '13'
|
ReportOptions.VersionMinor = '13'
|
||||||
|
|||||||
@ -81,8 +81,6 @@ uses
|
|||||||
uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas',
|
uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas',
|
||||||
schReportServer_Intf in '..\Modulos\Comisiones\Model\schReportServer_Intf.pas',
|
schReportServer_Intf in '..\Modulos\Comisiones\Model\schReportServer_Intf.pas',
|
||||||
schReportClient_Intf in '..\Modulos\Comisiones\Model\schReportClient_Intf.pas',
|
schReportClient_Intf in '..\Modulos\Comisiones\Model\schReportClient_Intf.pas',
|
||||||
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
|
|
||||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
|
|
||||||
srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDARemoteService},
|
srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDARemoteService},
|
||||||
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDARemoteService},
|
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDARemoteService},
|
||||||
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
|
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
|
||||||
@ -119,7 +117,9 @@ uses
|
|||||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
||||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
|
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
|
||||||
|
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
|
||||||
|
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
{$R ..\Servicios\RODLFile.res}
|
{$R ..\Servicios\RODLFile.res}
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico"
|
MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 2,1,0,0
|
FILEVERSION 2,1,1,0
|
||||||
PRODUCTVERSION 2,1,0,0
|
PRODUCTVERSION 2,1,1,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -12,9 +12,9 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
BLOCK "0C0904E4"
|
BLOCK "0C0904E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "2.1.0.0\0"
|
VALUE "FileVersion", "2.1.1.0\0"
|
||||||
VALUE "ProductVersion", "2.1.0.0\0"
|
VALUE "ProductVersion", "2.1.1.0\0"
|
||||||
VALUE "CompileDate", "jueves, 05 de julio de 2007 20:47\0"
|
VALUE "CompileDate", "lunes, 09 de julio de 2007 19:04\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
Reference in New Issue
Block a user