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,
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;

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

@ -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

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

@ -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

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

@ -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

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

@ -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