From 4c11bc2922a0da7b90ae54c6967331ed5b04ccd2 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 15 Jan 2008 10:44:09 +0000 Subject: [PATCH] =?UTF-8?q?Recibos=20de=20cliente=20y=20proveedor:=20arreg?= =?UTF-8?q?lo=20de=20fallo=20en=20la=20migraci=C3=B3n=20a=20DA5.=20Duplica?= =?UTF-8?q?ba=20filas.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@229 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uRecibosProveedorController.pas | 9 +++------ .../uGenerarFacturasCliAlbCliUtils.pas | 2 +- .../uGenerarFacturasProvAlbProvUtils.pas | 2 +- .../uGenerarFacturasProvPedProvUtils.pas | 2 +- .../uGenerarFacturasProvUtils.pas | 2 +- 5 files changed, 7 insertions(+), 10 deletions(-) diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index e9743402..27d9741b 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -142,7 +142,7 @@ uses Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, - uRecibosProveedorReportController, uBizContactos, + uRecibosProveedorReportController, uBizContactos, uDADelta, schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor, uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor, uIEditorElegirRecibosProveedor; @@ -664,11 +664,9 @@ begin end; function TRecibosProveedorController.ImporteTotalModificado(ARecibosProveedor : IBizRecibosProveedor; var ImporteRestante: Currency) : Boolean; -//REPASAR -//var -// HayCambio: TDADeltaChange; +var + HayCambio: TDADeltaChange; begin -{ Result := False; ImporteRestante := 0; HayCambio := ARecibosProveedor.DataTable.Delta.FindChange(ARecibosProveedor.RecNo); @@ -679,7 +677,6 @@ begin if ImporteRestante <> 0 then Result := True; end; -} end; function TRecibosProveedorController.Guardar(ARecibosProveedor: IBizRecibosProveedor): Boolean; diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas index 71e2f6b1..0fa05c69 100644 --- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas @@ -188,7 +188,7 @@ begin AAlbaran.DataTable.Active := True; try - AFacturasNuevas := AFacturasClienteController.Nuevo; + AFacturasNuevas := AFacturasClienteController.Nuevo(False); if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then diff --git a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas index 12531b62..ec671860 100644 --- a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas @@ -189,7 +189,7 @@ begin try - AFacturasNuevas := AFacturasProveedorController.Nuevo; + AFacturasNuevas := AFacturasProveedorController.Nuevo(False); if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaran) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas index e9eee604..d4d56a81 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedProvUtils.pas @@ -179,7 +179,7 @@ begin APedidos.DataTable.Active := True; try - AFacturasNuevas := AFacturasProveedorController.Nuevo; + AFacturasNuevas := AFacturasProveedorController.Nuevo(False); if AFacturasProveedorController.Anadir(AFacturasNuevas, APedidos.ID) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas index b6db56eb..22f67287 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvUtils.pas @@ -179,7 +179,7 @@ begin AAlbaranes.DataTable.Active := True; try - AFacturasNuevas := AFacturasProveedorController.Nuevo; + AFacturasNuevas := AFacturasProveedorController.Nuevo(False); if AFacturasProveedorController.Anadir(AFacturasNuevas, AAlbaranes) then begin if AFacturasNuevas.DataTable.RecordCount = 1 then