Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Solo se generará un recibo nuevo si el recibo modificado está asociado a una facturaa y se modifica su importe

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@514 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2010-06-16 10:49:41 +00:00
parent cc9f03e942
commit 05d00695f1
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
View File

@ -130,7 +130,7 @@ begin
APagoCliente.Delete;
//Todo lo haremos en memoria ya que los pagos no tienen entidad propia
//APagosCliente.DataTable.ApplyUpdates;
//APagoCliente.DataTable.ApplyUpdates;
finally
HideHourglassCursor;
end;
@ -145,7 +145,7 @@ begin
APagosCliente.DataTable.ClearRows;
//Todo lo haremos en memoria ya que los pagos no tienen entidad propia
//APagosCliente.DataTable.ApplyUpdates;
Result := True;
Result := True;
end;
end;

4
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -835,8 +835,8 @@ begin
begin
ShowHourglassCursor;
try
//Si el importe ha cambiado se debe hacer un recibo nuevo con el importe restante
if ImporteTotalModificado(ARecibosCliente, ImporteRestante) then
//Si el recibo está asociado a una factura y el importe ha cambiado se debe hacer un recibo nuevo con el importe restante
if (ARecibosCLiente.ID_FACTURA > 0) and (ImporteTotalModificado(ARecibosCliente, ImporteRestante)) then
begin
ANuevoReciboCliente := Duplicar(ARecibosCliente);
ANuevoReciboCliente.Edit;