Pequeños cambios en recibos de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@433 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
a0d27b9e48
commit
aa2c5dbd72
File diff suppressed because one or more lines are too long
@ -1038,7 +1038,7 @@ begin
|
|||||||
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
|
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
|
||||||
|
|
||||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||||
ARecibos.DESCRIPCION := CifraToLetras(ARecibos.IMPORTE);
|
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
|
||||||
ARecibosClienteController.Guardar(ARecibos);
|
ARecibosClienteController.Guardar(ARecibos);
|
||||||
Inc(i);
|
Inc(i);
|
||||||
Next;
|
Next;
|
||||||
|
|||||||
@ -123,7 +123,8 @@ uses
|
|||||||
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
|
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
|
||||||
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
||||||
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',
|
||||||
|
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule};
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
{$R ..\Servicios\RODLFile.res}
|
{$R ..\Servicios\RODLFile.res}
|
||||||
|
|||||||
@ -185,6 +185,10 @@
|
|||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||||
|
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||||
|
<Form>RptRecibosCliente</Form>
|
||||||
|
<DesignClass>TDataModule</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||||
<Form>srvRecibosCliente</Form>
|
<Form>srvRecibosCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user