From 9b185f2fd3ba209e4553b3784fe051c937b75917 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 10 Dec 2008 16:57:28 +0000 Subject: [PATCH] Arreglos de comentarios git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@361 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Reports/uRptFacturasProveedor_Server.pas | 6 +++--- .../GestorDocumentos_controller.drc | 2 +- .../Data/GestorDocumentos_data.drc | 2 +- .../Reports/uRptRecibosCliente_Server.pas | 8 ++++---- .../Reports/uRptRecibosProveedor_Server.pas | 4 ++-- Source/Servidor/FactuGES_Server.RES | Bin 23360 -> 23360 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 7 files changed, 12 insertions(+), 12 deletions(-) diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas index 20f07fff..af4779c0 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas @@ -90,7 +90,7 @@ var begin -//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE +//DESGLOSADO POR PROVEEDOR EN ESTE INFORME NO SE DESGLOSARÁ POR PROVEEDOR if Desglosado then ATipoInforme := rptInformeListadoFacturasProveedorDesglosado else @@ -124,7 +124,7 @@ begin end; -//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE +//DESGLOSADO POR PROVEEDOR EN ESTE INFORME if Desglosado then ATipoInforme := rptInformeListadoFactuasProveedorPendienteDesglosado else @@ -231,7 +231,7 @@ begin AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntTostr(IdEmpresa)); if VarIsNull(AInforme) then - raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe' + TipoInforme)); + raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); frxReport.LoadFromFile(AInforme, True); frxReport.Variables.Variables['FechaInicio'] := FechaInicio; diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc index 6611c568..41a78df6 100644 --- a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc +++ b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C0.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf417.tmp */ diff --git a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc index a0df846f..b56a3af7 100644 --- a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc +++ b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */ /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BE.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf415.tmp */ diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas index 3223c203..5a8251fe 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas @@ -35,11 +35,11 @@ type procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; - procedure _GenerarRecibo(const ID : Integer); overload; + procedure _GenerarRecibo(const ID : Integer); function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; public - function GenerarRecibo(const ListaID : TIntegerArray): Binary; overload; + function GenerarRecibo(const ListaID : TIntegerArray): Binary; function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; @@ -233,7 +233,7 @@ begin AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IDEmpresa)); if VarIsNull(AInforme) then - raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe' + TipoInforme)); + raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); frxReport.LoadFromFile(AInforme, True); frxReport.Variables.Variables['FechaInicio'] := FechaInicio; @@ -265,7 +265,7 @@ begin AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString); if VarIsNull(AInforme) then - raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe' + rptInforme)); + raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme)); frxReport.LoadFromFile(AInforme, True); frxReport.PrepareReport(False); diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas index 4466b0a4..92a2680e 100644 --- a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas @@ -95,7 +95,7 @@ begin with tbl_InformeListadoRecibos.DynamicWhere do begin // (ID_EMPRESA >= ID) - Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorSITUACION), NewConstant('COBRADO', datString), dboNotEqual); + Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorSITUACION), NewConstant('PAGADO', datString), dboNotEqual); if IsEmpty then Expression := Condicion else @@ -210,7 +210,7 @@ begin AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa)); if VarIsNull(AInforme) then - raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe' + TipoInforme)); + raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); frxReport.LoadFromFile(AInforme, True); frxReport.Variables.Variables['FechaInicio'] := FechaInicio; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index a2bf42a95a39345f958dc5ca1142d294bfaa1450..ffa2e1426327c9f0e18dd5a1e8deb4c62647ba1e 100644 GIT binary patch delta 21 dcmX@Gjq$)X#tk2$*v%QN7>pTACx4If1OQ