Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Recibos de cliente y proveedor: arreglo de fallo en la migración a DA5. Duplicaba filas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@229 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 10:44:09 +00:00
parent 84b9f0c6f3
commit 4c11bc2922
5 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -142,7 +142,7 @@ uses
Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
uRecibosProveedorReportController, uBizContactos, uRecibosProveedorReportController, uBizContactos, uDADelta,
schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor, schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor,
uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor, uIEditorElegirRecibosProveedor; uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor, uIEditorElegirRecibosProveedor;
@ -664,11 +664,9 @@ begin
end; end;
function TRecibosProveedorController.ImporteTotalModificado(ARecibosProveedor : IBizRecibosProveedor; var ImporteRestante: Currency) : Boolean; function TRecibosProveedorController.ImporteTotalModificado(ARecibosProveedor : IBizRecibosProveedor; var ImporteRestante: Currency) : Boolean;
//REPASAR var
//var HayCambio: TDADeltaChange;
// HayCambio: TDADeltaChange;
begin begin
{
Result := False; Result := False;
ImporteRestante := 0; ImporteRestante := 0;
HayCambio := ARecibosProveedor.DataTable.Delta.FindChange(ARecibosProveedor.RecNo); HayCambio := ARecibosProveedor.DataTable.Delta.FindChange(ARecibosProveedor.RecNo);
@ -679,7 +677,6 @@ begin
if ImporteRestante <> 0 then if ImporteRestante <> 0 then
Result := True; Result := True;
end; end;
}
end; end;
function TRecibosProveedorController.Guardar(ARecibosProveedor: IBizRecibosProveedor): Boolean; function TRecibosProveedorController.Guardar(ARecibosProveedor: IBizRecibosProveedor): Boolean;

2
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
View File

@ -188,7 +188,7 @@ begin
AAlbaran.DataTable.Active := True; AAlbaran.DataTable.Active := True;
try try
AFacturasNuevas := AFacturasClienteController.Nuevo; AFacturasNuevas := AFacturasClienteController.Nuevo(False);
if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then

2
Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas
View File

@ -189,7 +189,7 @@ begin
try try
AFacturasNuevas := AFacturasProveedorController.Nuevo; AFacturasNuevas := AFacturasProveedorController.Nuevo(False);
if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaran) then if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaran) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then

2
Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas
View File

@ -179,7 +179,7 @@ begin
APedidos.DataTable.Active := True; APedidos.DataTable.Active := True;
try try
AFacturasNuevas := AFacturasProveedorController.Nuevo; AFacturasNuevas := AFacturasProveedorController.Nuevo(False);
if AFacturasProveedorController.Anadir(AFacturasNuevas, APedidos.ID) then if AFacturasProveedorController.Anadir(AFacturasNuevas, APedidos.ID) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then

2
Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas
View File

@ -179,7 +179,7 @@ begin
AAlbaranes.DataTable.Active := True; AAlbaranes.DataTable.Active := True;
try try
AFacturasNuevas := AFacturasProveedorController.Nuevo; AFacturasNuevas := AFacturasProveedorController.Nuevo(False);
if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaranes) then if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaranes) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then