From 27fc6848235d6751c45fab391f17c5bfe4ba4509 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 10 Sep 2012 17:00:15 +0000 Subject: [PATCH] Se arregla que al elegir un agente daba un error al actualizar los datos de objetivos de facturas git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@174 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- .../Reports/uRptAlbaranesCliente_Server.pas | 2 +- .../Facturas de cliente/Reports/uRptFacturasCliente_Server.pas | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index 7ce951d..8ae60a9 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -157,7 +157,7 @@ begin frxDBDetalles.DataSource := DADSDetalles; frxDBDetalles.CloseDataSource := False; - FListaNombresAgentes := TStringList.Create; + FListaNombresAgentes := TStringList.Create; end; procedure TRptAlbaranesCliente.DataModuleDestroy(Sender: TObject); diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index aee4f70..d36da46 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -193,6 +193,7 @@ begin frxReport.EngineOptions.NewSilentMode := simReThrow; FListaNombresClientes := TStringList.Create; + FListaNombresAgentes := TStringList.Create; frxDBCabecera.DataSource := DADSCabecera; frxDBCabecera.CloseDataSource := False; @@ -211,6 +212,7 @@ begin tbl_Vencimientos.Active := False; FreeANDNIL(FListaNombresClientes); + FreeANDNIL(FListaNombresAgentes); end; procedure TRptFacturasCliente.frxReportGetValue(const VarName: string; var Value: Variant);