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