diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index cf40b498..da341879 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -89,13 +89,13 @@ type FConnection: IDAConnection; //Genera cada una de las facturas a imprimir procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True); - function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; + function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; public function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary; function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary; - function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; implementation @@ -165,7 +165,7 @@ begin end; end; -function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var ATipoInforme: String; @@ -180,7 +180,7 @@ begin end; function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer; - const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var ATipoInforme: String; @@ -197,7 +197,7 @@ begin end; function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -265,7 +265,7 @@ begin end; function TRptFacturasCliente._GenerarInforme(const TipoInforme: String; - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; var Condicion: TDAWhereExpression; diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas index 8645cf48..7a103ca3 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas @@ -84,11 +84,12 @@ type procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; - function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary; + function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary; + public - function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; implementation @@ -119,8 +120,10 @@ begin frxDBDetalles.DataSource := DADSDetalles; end; - -function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer; + const FechaInicio, FechaFin: Variant; + const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; var ATipoInforme: String; @@ -132,12 +135,14 @@ begin else ATipoInforme := rptInformeIVA; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDProveedores, ImporteMinimo); end; -function TRptFacturasProveedor.GenerarInformeListadoFacturas(const IdEmpresa: Integer; - const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TRptFacturasProveedor.GenerarInformeListadoFacturas( + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; + const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; + const ImporteMinimo: Currency): Binary; var ATipoInforme: String; @@ -149,11 +154,12 @@ begin else ATipoInforme := rptInformeListadoFacturasProveedor; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo); end; function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -183,11 +189,12 @@ begin ATipoInforme := rptInformeListadoFactuasProveedorPendiente; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo); end; function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String; - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary; var Condicion: TDAWhereExpression; @@ -230,7 +237,24 @@ begin end; end; - // Filtrar el informe por Proveedor + // Filtrar el informe por fechas de vencimiento +{ if not VarIsNull(FechaVenInicio) + and not VarIsNull(FechaVenFin) then + begin + with tbl_InformeListadoFacturas.DynamicWhere do + begin + // (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN) + Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + end; +} + + // Filtrar el informe por proveedor if Assigned(ListaIDProveedores) then begin with tbl_InformeListadoFacturas.DynamicWhere do @@ -265,7 +289,7 @@ begin tbl_InformeListadoFacturas.Active := True; - AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa)); + AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntTostr(IdEmpresa)); if VarIsNull(AInforme) then raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas index 06f765bc..850679b4 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas @@ -8,13 +8,13 @@ uses type IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase) ['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas index 37530af2..e623b0be 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas @@ -8,13 +8,13 @@ uses type IEditorInformeFacturasClienteReport = interface(IEditorInformeBase) ['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorPendientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorPendientesReport.pas index 0ec57b6f..e9b2fd65 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorPendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorPendientesReport.pas @@ -8,13 +8,17 @@ uses type IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase) ['{C0EFEC01-BF2C-4B56-9876-2818892FABFA}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetDesglosadoProveedor: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorReport.pas index 8da71ede..5ae334fa 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasProveedorReport.pas @@ -8,13 +8,17 @@ uses type IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase) ['{0E60C309-336C-455D-825B-7E4892A6CBC5}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetDesglosadoProveedor: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAClientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAClientesReport.pas index 5b023419..78059e85 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAClientesReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAClientesReport.pas @@ -8,13 +8,13 @@ uses type IEditorInformeIVAClientesReport = interface(IEditorInformeBase) ['{66F6F909-B1EC-4117-A115-12DFB62E6120}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAProveedoresReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAProveedoresReport.pas index 885df5c0..c7702af0 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAProveedoresReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAProveedoresReport.pas @@ -8,13 +8,13 @@ uses type IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase) ['{1EC723DF-B7F7-49F9-83FA-DF628FEF4B26}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetDesglosadoProveedor: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePedidosReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePedidosReport.pas index d6be6367..9b4e158b 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePedidosReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePedidosReport.pas @@ -8,13 +8,13 @@ uses type IEditorInformePedidosReport = interface(IEditorInformeBase) ['{70B07429-BCB2-416F-8C42-6D7BFFA152D5}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetDesglosadoProveedor: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePresupuestosReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePresupuestosReport.pas index 077eb140..a2e899d8 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePresupuestosReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformePresupuestosReport.pas @@ -8,13 +8,13 @@ uses type IEditorInformePresupuestosReport = interface(IEditorInformeBase) ['{99BBD05C-8AEF-4BA7-83C6-FC467F14488C}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosCliPendientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosCliPendientesReport.pas index 87efb33a..bf3c2b17 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosCliPendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosCliPendientesReport.pas @@ -8,13 +8,17 @@ uses type IEditorInformeRecibosCliPendientesReport = interface(IEditorInformeBase) ['{BD1EA0DE-B610-4170-9BFC-4A7C0F7ABF0E}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosClienteReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosClienteReport.pas index a3f27043..607781d6 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosClienteReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosClienteReport.pas @@ -8,13 +8,17 @@ uses type IEditorInformeRecibosClienteReport = interface(IEditorInformeBase) ['{F0DAD68E-198D-41BE-B04E-C76486208631}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProvPendientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProvPendientesReport.pas index 88db7300..fd3507d4 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProvPendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProvPendientesReport.pas @@ -8,13 +8,17 @@ uses type IEditorInformeRecibosProvPendientesReport = interface(IEditorInformeBase) ['{DC6AA05C-24F5-4F2A-BCB7-625629BF4297}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetDesglosadoProveedor: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProveedorReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProveedorReport.pas index 11bf7f99..23d6d3eb 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProveedorReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeRecibosProveedorReport.pas @@ -8,13 +8,17 @@ uses type IEditorInformeRecibosProveedorReport = interface(IEditorInformeBase) ['{63D1B0D1-9BDD-48B6-BD3B-C05AC6B49C9C}'] - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetDesglosadoProveedor: Boolean; function GetImporteMinimo: Currency; - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read getImporteMinimo; diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas index c81fb000..998a8408 100644 --- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas +++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas @@ -383,7 +383,7 @@ begin AEditor.Controller := Self; AEditor.Title := 'Listado de facturas de proveedor'; AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID, - AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, + AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.LoadFromStream(AStream); AEditor.Preview; @@ -406,7 +406,7 @@ begin AEditor.Controller := Self; AEditor.Title := 'Listado de facturas de proveedor pendientes'; AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID, - AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, + AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.LoadFromStream(AStream); AEditor.Preview; @@ -476,7 +476,7 @@ begin try AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID, - AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes, + AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes, AEditor.DesglosadoCliente, AEditor.ImporteMinimo); AEditor.LoadFromStream(AStream); AEditor.Preview; @@ -499,7 +499,7 @@ begin try AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID, - AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes, + AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDClientes, AEditor.DesglosadoCliente, AEditor.ImporteMinimo); AEditor.LoadFromStream(AStream); AEditor.Preview; @@ -523,7 +523,7 @@ begin try AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID, - AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, + AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.LoadFromStream(AStream); AEditor.Preview; @@ -546,7 +546,7 @@ begin try AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID, - AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores, + AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor, AEditor.ImporteMinimo); AEditor.LoadFromStream(AStream); AEditor.Preview; diff --git a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas index 70e84e83..c2c98a53 100644 --- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas @@ -23,28 +23,28 @@ type // function GetItems : IBizFacturaCliente; //MODULO PRESUPUESTOS DE CLIENTE - function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO FACTURAS DE CLIENTE - function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO RECIBOS DE CLIENTE - function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosCliPendientes(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; + function GenerarInformeListadoRecibosCliente(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; //MODULO PEDIDOS DE PROVEEDOR - function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO FACTURAS DE PROVEEDOR - function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO RECIBOS DE CLIENTE - function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; procedure getInforme; end; @@ -65,7 +65,7 @@ begin RORemoteService.Message := dmConexion.Message; end; -function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAClientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); @@ -74,7 +74,7 @@ begin end; function TDataModuleGestorInformes.GenerarInformeIVAProveedores( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin @@ -85,7 +85,7 @@ begin end; function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin @@ -96,7 +96,7 @@ begin end; function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin @@ -107,29 +107,31 @@ begin end; function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo); finally end; end; function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo); finally end; end; function TDataModuleGestorInformes.GenerarInformeListadoPedidos( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin @@ -151,45 +153,49 @@ begin end; function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliente( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo); finally end; end; function TDataModuleGestorInformes.GenerarInformeListadoRecibosCliPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo); finally end; end; function TDataModuleGestorInformes.GenerarInformeListadoRecibosProveedor( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo); finally end; end; function TDataModuleGestorInformes.GenerarInformeListadoRecibosProvPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: TDateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo); finally end; end; diff --git a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas index 484a5b98..62f91787 100644 --- a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas @@ -12,28 +12,28 @@ type procedure getInforme; //MODULO PRESUPUESTOS DE CLIENTE - function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO FACTURAS DE CLIENTE - function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO RECIBOS DE CLIENTE - function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosCliPendientes(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; + function GenerarInformeListadoRecibosCliente(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; //MODULO PEDIDOS DE PROVEEDOR - function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO FACTURAS DE PROVEEDOR - function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO RECIBOS DE CLIENTE - function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: TDateTime; const FechaFin: TDateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; diff --git a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas index 0e58857b..0332ad7a 100644 --- a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas +++ b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas @@ -32,28 +32,28 @@ type Bin2DataStreamer: TDABin2DataStreamer; public //MODULO PRESUPUESTOS CLIENTE - function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO FACTURAS CLIENTE - function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO RECIBOS CLIENTE - function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosCliente(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; + function GenerarInformeListadoRecibosCliPendientes(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; //MODULO PEDIDOS PROVEEDOR - function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO FACTURAS PROVEEDOR - function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; //MODULO RECIBOS PROVEEDOR - function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; implementation @@ -69,7 +69,7 @@ begin anInstance := TsrvGestorInformes.Create(nil); end; -function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var AReportGenerator : TRptFacturasCliente; begin @@ -82,7 +82,7 @@ begin end; function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer; - const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; + const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var AReportGenerator : TRptFacturasProveedor; @@ -96,7 +96,7 @@ begin end; function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; - const FechaInicio, FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var AReportGenerator : TRptFacturasCliente; @@ -110,7 +110,7 @@ begin end; function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -125,7 +125,8 @@ begin end; function TsrvGestorInformes.GenerarInformeListadoFacturasProv( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -133,14 +134,15 @@ var begin AReportGenerator := TRptFacturasProveedor.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; end; function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -148,14 +150,14 @@ var begin AReportGenerator := TRptFacturasProveedor.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; end; function TsrvGestorInformes.GenerarInformeListadoPedidos(const IdEmpresa: Integer; - const FechaInicio, FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; + const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var AReportGenerator : TRptPedidosProveedor; @@ -169,7 +171,7 @@ begin end; function TsrvGestorInformes.GenerarInformeListadoPresupuestos( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -184,7 +186,8 @@ begin end; function TsrvGestorInformes.GenerarInformeListadoRecibosCliente( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -192,14 +195,15 @@ var begin AReportGenerator := TRptRecibosCliente.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; end; function TsrvGestorInformes.GenerarInformeListadoRecibosCliPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -207,14 +211,15 @@ var begin AReportGenerator := TRptRecibosCliente.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; end; function TsrvGestorInformes.GenerarInformeListadoRecibosProveedor( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -222,14 +227,15 @@ var begin AReportGenerator := TRptRecibosProveedor.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoRecibos(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; end; function TsrvGestorInformes.GenerarInformeListadoRecibosProvPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -237,7 +243,7 @@ var begin AReportGenerator := TRptRecibosProveedor.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoRecibosPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm index 38cfafa0..f22ee6b1 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm @@ -66,18 +66,6 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas ReadOnly = False ExplicitWidth = 188 ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited cbPeriodo: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 @@ -85,6 +73,44 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas Width = 85 end inherited edtFechaFin: TcxDateEdit + Left = 72 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 72 + ExplicitWidth = 100 + Width = 100 + end + inherited edtFechaIni: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 100 + Width = 100 + end + inherited cbPeriodo: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end + inherited TBXLabel2: TTBXLabel + Width = 188 + ExplicitWidth = 188 + end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + Visible = False + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 160 + end + inherited edtFechaVenFin: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -92,7 +118,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas ExplicitWidth = 99 Width = 99 end - inherited edtFechaIni: TcxDateEdit + inherited edtFechaVenIni: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -100,18 +126,20 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas ExplicitWidth = 97 Width = 97 end - end - inherited TBXLabel2: TTBXLabel - Width = 188 - ExplicitWidth = 188 + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 212 + end end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 TabOrder = 2 - ExplicitTop = 456 + ExplicitTop = 368 ExplicitWidth = 188 - ExplicitHeight = 40 inherited TBXButton1: TTBXButton AlignWithMargins = True Left = 3 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas index 1672f1c2..a3f5c826 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas @@ -11,7 +11,7 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uCustomView, - uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, + uViewBase, uViewPeriodoFechas, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIEditorInformeBase, uViewParametrosInforme, @@ -26,8 +26,8 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDClientes: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -35,8 +35,8 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read GetImporteMinimo; @@ -80,14 +80,14 @@ begin Result := False; end; -function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime; +function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime; +function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; end; function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm index 6e84ca94..d8c31f17 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm @@ -66,25 +66,59 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep ReadOnly = False ExplicitWidth = 188 ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel + inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 + Height = 98 ExplicitWidth = 182 + ExplicitHeight = 98 + inherited Label3: TLabel + Width = 85 + end + inherited edtFechaFin: TcxDateEdit + Left = 74 + Top = 77 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 74 + ExplicitTop = 77 + ExplicitWidth = 99 + Width = 99 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end inherited cbPeriodo: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 + ExplicitWidth = 170 + Width = 170 end end - inherited TBXAlignmentPanel2: TTBXAlignmentPanel + inherited TBXLabel2: TTBXLabel + Width = 188 + ExplicitWidth = 188 + end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Top = 136 Width = 182 + Visible = False + ExplicitTop = 136 ExplicitWidth = 182 - inherited Label3: TLabel - Width = 85 + inherited Label4: TLabel + Width = 160 end - inherited edtFechaFin: TcxDateEdit + inherited edtFechaVenFin: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -92,7 +126,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep ExplicitWidth = 99 Width = 99 end - inherited edtFechaIni: TcxDateEdit + inherited edtFechaVenIni: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -100,18 +134,20 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep ExplicitWidth = 97 Width = 97 end - end - inherited TBXLabel2: TTBXLabel - Width = 188 - ExplicitWidth = 188 + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 212 + end end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 TabOrder = 2 - ExplicitTop = 440 + ExplicitTop = 368 ExplicitWidth = 188 - ExplicitHeight = 50 inherited TBXButton1: TTBXButton AlignWithMargins = True Left = 3 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas index 6f28cb32..2bcc2183 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas @@ -11,7 +11,7 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uCustomView, - uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, + uViewBase, uViewPeriodoFechas, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport; @@ -25,8 +25,8 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDClientes: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -34,8 +34,8 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +79,14 @@ begin Result := False; end; -function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime; +function TfEditorInformeFacturasClienteReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime; +function TfEditorInformeFacturasClienteReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; end; function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm index bf96e4c9..e762203c 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 240 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel + ExplicitHeight = 240 + inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 + inherited Label3: TLabel + Width = 85 + end + inherited edtFechaFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end inherited cbPeriodo: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited Label3: TLabel - Width = 172 - end - inherited edtFechaFin: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 99 - Width = 99 - end - inherited edtFechaIni: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 97 - Width = 97 + ExplicitWidth = 170 + Width = 170 end end inherited TBXLabel2: TTBXLabel Width = 188 ExplicitWidth = 188 end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 160 + end + inherited edtFechaVenFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaVenIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 @@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 240 Width = 188 Height = 77 Align = alTop @@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 240 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur end inline frViewFiltroProveedores1: TfrViewFiltroProveedores Left = 0 - Top = 213 + Top = 317 Width = 188 Height = 146 Align = alTop @@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 317 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas index ab1aebed..10a55d1e 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas @@ -26,8 +26,10 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDProveedores: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoProveedor: Boolean; @@ -35,8 +37,10 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read GetImporteMinimo; @@ -80,14 +84,24 @@ begin Result := False; end; -function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: TDateTime; +function TfEditorInformeFacturasProveedorPendientesReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: TDateTime; +function TfEditorInformeFacturasProveedorPendientesReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; +end; + +function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeFacturasProveedorPendientesReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; end; function TfEditorInformeFacturasProveedorPendientesReport.GetImporteMinimo: Currency; @@ -117,6 +131,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm index 81b4bd65..0f1cd118 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 240 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,46 +65,81 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel + ExplicitHeight = 240 + inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 + inherited Label3: TLabel + Width = 85 + end + inherited edtFechaFin: TcxDateEdit + Left = 77 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 77 + ExplicitWidth = 96 + Width = 96 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end inherited cbPeriodo: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited Label3: TLabel - Width = 172 - end - inherited edtFechaFin: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 99 - Width = 99 - end - inherited edtFechaIni: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 97 - Width = 97 + ExplicitWidth = 170 + Width = 170 end end inherited TBXLabel2: TTBXLabel Width = 188 ExplicitWidth = 188 end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 160 + end + inherited edtFechaVenFin: TcxDateEdit + Left = 77 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 77 + ExplicitWidth = 96 + Width = 96 + end + inherited edtFechaVenIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 @@ -130,7 +165,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 240 Width = 188 Height = 77 Align = alTop @@ -143,7 +178,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 240 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -163,7 +198,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo end inline frViewFiltroProveedores1: TfrViewFiltroProveedores Left = 0 - Top = 213 + Top = 317 Width = 188 Height = 146 Align = alTop @@ -176,7 +211,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 317 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas index a5db710a..3f7fd418 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas @@ -25,8 +25,10 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDProveedores: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoProveedor: Boolean; @@ -34,8 +36,10 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +83,24 @@ begin Result := False; end; -function TfEditorInformeFacturasProveedorReport.GetFechaFin: TDateTime; +function TfEditorInformeFacturasProveedorReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeFacturasProveedorReport.GetFechaInicio: TDateTime; +function TfEditorInformeFacturasProveedorReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; +end; + +function TfEditorInformeFacturasProveedorReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeFacturasProveedorReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; end; function TfEditorInformeFacturasProveedorReport.GetImporteMinimo: Currency; @@ -116,6 +130,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm index 502250f6..9ad0aa44 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm @@ -66,25 +66,53 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport ReadOnly = False ExplicitWidth = 188 ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel + inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 + inherited Label3: TLabel + Width = 85 + end + inherited edtFechaFin: TcxDateEdit + Left = 77 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 77 + ExplicitWidth = 96 + Width = 96 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end inherited cbPeriodo: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 + ExplicitWidth = 170 + Width = 170 end end - inherited TBXAlignmentPanel2: TTBXAlignmentPanel + inherited TBXLabel2: TTBXLabel + Width = 188 + ExplicitWidth = 188 + end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel Width = 182 + Visible = False ExplicitWidth = 182 - inherited Label3: TLabel - Width = 172 + inherited Label4: TLabel + Width = 160 end - inherited edtFechaFin: TcxDateEdit + inherited edtFechaVenFin: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -92,7 +120,7 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport ExplicitWidth = 99 Width = 99 end - inherited edtFechaIni: TcxDateEdit + inherited edtFechaVenIni: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -100,10 +128,13 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport ExplicitWidth = 97 Width = 97 end - end - inherited TBXLabel2: TTBXLabel - Width = 188 - ExplicitWidth = 188 + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 212 + end end end inherited TBXDockablePanel1: TTBXDockablePanel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas index 57073e98..afacfa44 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas @@ -25,8 +25,8 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDClientes: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -34,8 +34,8 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +79,14 @@ begin Result := False; end; -function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime; +function TfEditorInformeIVAClientesReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime; +function TfEditorInformeIVAClientesReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; end; function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm index 28a85ed6..0067dea3 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm @@ -66,18 +66,6 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor ReadOnly = False ExplicitWidth = 188 ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited cbPeriodo: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 @@ -85,6 +73,46 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor Width = 85 end inherited edtFechaFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end + inherited TBXLabel2: TTBXLabel + Width = 188 + ExplicitWidth = 188 + end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + Visible = False + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 160 + end + inherited edtFechaVenFin: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -92,7 +120,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor ExplicitWidth = 99 Width = 99 end - inherited edtFechaIni: TcxDateEdit + inherited edtFechaVenIni: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -100,10 +128,13 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor ExplicitWidth = 97 Width = 97 end - end - inherited TBXLabel2: TTBXLabel - Width = 188 - ExplicitWidth = 188 + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 212 + end end end inherited TBXDockablePanel1: TTBXDockablePanel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas index c5b543b7..ff8741e9 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas @@ -25,8 +25,8 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDProveedores: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoProveedor: Boolean; @@ -34,8 +34,8 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +79,14 @@ begin Result := False; end; -function TfEditorInformeIVAProveedoresReport.GetFechaFin: TDateTime; +function TfEditorInformeIVAProveedoresReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeIVAProveedoresReport.GetFechaInicio: TDateTime; +function TfEditorInformeIVAProveedoresReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; end; function TfEditorInformeIVAProveedoresReport.GetImporteMinimo: Currency; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.dfm index 29de7b78..a60d96b1 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.dfm @@ -66,18 +66,6 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport ReadOnly = False ExplicitWidth = 188 ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited cbPeriodo: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 @@ -85,6 +73,45 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport Width = 85 end inherited edtFechaFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end + inherited TBXLabel2: TTBXLabel + Width = 188 + ExplicitWidth = 188 + end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 160 + end + inherited edtFechaVenFin: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -92,7 +119,7 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport ExplicitWidth = 99 Width = 99 end - inherited edtFechaIni: TcxDateEdit + inherited edtFechaVenIni: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -100,10 +127,14 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport ExplicitWidth = 97 Width = 97 end - end - inherited TBXLabel2: TTBXLabel - Width = 188 - ExplicitWidth = 188 + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 166 + Width = 166 + end end end inherited TBXDockablePanel1: TTBXDockablePanel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.pas index fc6b0a18..42701e98 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.pas @@ -11,7 +11,7 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uCustomView, - uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, + uViewBase, uViewPeriodoFechas, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePresupuestosReport; @@ -25,8 +25,8 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDClientes: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -34,8 +34,8 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +79,14 @@ begin Result := False; end; -function TfEditorInformePresupuestosReport.GetFechaFin: TDateTime; +function TfEditorInformePresupuestosReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformePresupuestosReport.GetFechaInicio: TDateTime; +function TfEditorInformePresupuestosReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; end; function TfEditorInformePresupuestosReport.GetImporteMinimo: Currency; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.dfm index dc130d97..e410228a 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 240 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,46 +65,81 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel + ExplicitHeight = 240 + inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 + inherited Label3: TLabel + Width = 172 + end + inherited edtFechaFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end inherited cbPeriodo: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited Label3: TLabel - Width = 85 - end - inherited edtFechaFin: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 99 - Width = 99 - end - inherited edtFechaIni: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 97 - Width = 97 + ExplicitWidth = 170 + Width = 170 end end inherited TBXLabel2: TTBXLabel Width = 188 ExplicitWidth = 188 end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 172 + end + inherited edtFechaVenFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaVenIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 @@ -130,7 +165,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 240 Width = 188 Height = 77 Align = alTop @@ -143,7 +178,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 240 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -163,7 +198,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen end inline frViewFiltroClientes1: TfrViewFiltroClientes Left = 0 - Top = 213 + Top = 317 Width = 188 Height = 146 Align = alTop @@ -176,7 +211,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 317 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas index 941ecfea..0b706b90 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas @@ -11,7 +11,7 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uCustomView, - uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, + uViewBase, uViewPeriodoFechas, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport; @@ -25,8 +25,10 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDClientes: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -34,8 +36,10 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +83,24 @@ begin Result := False; end; -function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: TDateTime; +function TfEditorInformeRecibosCliPendientesReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: TDateTime; +function TfEditorInformeRecibosCliPendientesReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; +end; + +function TfEditorInformeRecibosCliPendientesReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeRecibosCliPendientesReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; end; function TfEditorInformeRecibosCliPendientesReport.GetImporteMinimo: Currency; @@ -116,6 +130,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.dfm index 9b501ea1..3ef88cdc 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 240 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,46 +65,81 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel + ExplicitHeight = 240 + inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 + inherited Label3: TLabel + Width = 172 + end + inherited edtFechaFin: TcxDateEdit + Left = 77 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 77 + ExplicitWidth = 96 + Width = 96 + end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end inherited cbPeriodo: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited Label3: TLabel - Width = 85 - end - inherited edtFechaFin: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 99 - Width = 99 - end - inherited edtFechaIni: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 97 - Width = 97 + ExplicitWidth = 170 + Width = 170 end end inherited TBXLabel2: TTBXLabel Width = 188 ExplicitWidth = 188 end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 172 + end + inherited edtFechaVenFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaVenIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 @@ -130,7 +165,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 240 Width = 188 Height = 77 Align = alTop @@ -143,7 +178,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 240 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -163,7 +198,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor end inline frViewFiltroClientes1: TfrViewFiltroClientes Left = 0 - Top = 213 + Top = 317 Width = 188 Height = 146 Align = alTop @@ -176,7 +211,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 317 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas index bac0ca75..3b2b3dac 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas @@ -11,7 +11,7 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uCustomView, - uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase, + uViewBase, uViewPeriodoFechas, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport; @@ -25,8 +25,10 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDClientes: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -34,8 +36,10 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDClientes: TIntegerArray read GetListaIDClientes; property DesglosadoCliente: Boolean read GetDesglosadoCliente; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +83,24 @@ begin Result := False; end; -function TfEditorInformeRecibosClienteReport.GetFechaFin: TDateTime; +function TfEditorInformeRecibosClienteReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeRecibosClienteReport.GetFechaInicio: TDateTime; +function TfEditorInformeRecibosClienteReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; +end; + +function TfEditorInformeRecibosClienteReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeRecibosClienteReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; end; function TfEditorInformeRecibosClienteReport.GetImporteMinimo: Currency; @@ -116,6 +130,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm index 546fe94e..bbd5a211 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 240 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited cbPeriodo: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end + ExplicitHeight = 240 inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 @@ -85,26 +73,73 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP Width = 85 end inherited edtFechaFin: TcxDateEdit + Left = 76 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 99 - Width = 99 - end - inherited edtFechaIni: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 ExplicitWidth = 97 Width = 97 end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end end inherited TBXLabel2: TTBXLabel Width = 188 ExplicitWidth = 188 end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + ExplicitWidth = 182 + inherited Label4: TLabel + Width = 160 + end + inherited edtFechaVenFin: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaVenIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 @@ -130,7 +165,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 240 Width = 188 Height = 77 Align = alTop @@ -143,7 +178,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 240 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -163,7 +198,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP end inline frViewFiltroProveedores1: TfrViewFiltroProveedores Left = 0 - Top = 213 + Top = 317 Width = 188 Height = 146 Align = alTop @@ -176,7 +211,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 317 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas index 749b62d9..22214157 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas @@ -25,8 +25,10 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDProveedores: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoProveedor: Boolean; @@ -34,8 +36,10 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +83,24 @@ begin Result := False; end; -function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: TDateTime; +function TfEditorInformeRecibosProvPendientesReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: TDateTime; +function TfEditorInformeRecibosProvPendientesReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; +end; + +function TfEditorInformeRecibosProvPendientesReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeRecibosProvPendientesReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; end; function TfEditorInformeRecibosProvPendientesReport.GetImporteMinimo: Currency; @@ -116,6 +130,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm index 0f2f3941..7f871e7d 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 240 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,19 +65,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 182 - ExplicitWidth = 182 - inherited cbPeriodo: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 153 - Width = 153 - end - end + ExplicitHeight = 240 inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 @@ -85,26 +73,77 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR Width = 85 end inherited edtFechaFin: TcxDateEdit + Left = 76 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 99 - Width = 99 - end - inherited edtFechaIni: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 ExplicitWidth = 97 Width = 97 end + inherited edtFechaIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end end inherited TBXLabel2: TTBXLabel Width = 188 ExplicitWidth = 188 end + inherited TBXAlignmentPanel3: TTBXAlignmentPanel + Width = 182 + Height = 99 + ExplicitWidth = 182 + ExplicitHeight = 99 + inherited Label4: TLabel + Width = 160 + end + inherited edtFechaVenFin: TcxDateEdit + Left = 76 + Top = 78 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitTop = 78 + ExplicitWidth = 97 + Width = 97 + end + inherited edtFechaVenIni: TcxDateEdit + Left = 76 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 + ExplicitWidth = 97 + Width = 97 + end + inherited cbPeriodo2: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 170 + Width = 170 + end + end end inherited TBXDockablePanel1: TTBXDockablePanel Top = 368 @@ -130,7 +169,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 240 Width = 188 Height = 77 Align = alTop @@ -143,7 +182,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 240 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -163,7 +202,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR end inline frViewFiltroProveedores1: TfrViewFiltroProveedores Left = 0 - Top = 213 + Top = 317 Width = 188 Height = 146 Align = alTop @@ -176,7 +215,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 317 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas index 3371ae0b..71727f1f 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas @@ -25,8 +25,10 @@ type procedure actRefrescarExecute(Sender: TObject); private FListaIDProveedores: TIntegerArray; - function GetFechaFin: TDateTime; - function GetFechaInicio: TDateTime; + function GetFechaFin: Variant; + function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDProveedores: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoProveedor: Boolean; @@ -34,8 +36,10 @@ type procedure RefrescarInforme; public - property FechaInicio: TDateTime read GetFechaInicio; - property FechaFin: TDateTime read GetFechaFin; + property FechaInicio: Variant read GetFechaInicio; + property FechaFin: Variant read GetFechaFin; + property FechaVenInicio: Variant read GetFechaVenInicio; + property FechaVenFin: Variant read GetFechaVenFin; property ListaIDProveedores: TIntegerArray read GetListaIDProveedores; property DesglosadoProveedor: Boolean read GetDesglosadoProveedor; property ImporteMinimo: Currency read GetImporteMinimo; @@ -79,14 +83,24 @@ begin Result := False; end; -function TfEditorInformeRecibosProveedorReport.GetFechaFin: TDateTime; +function TfEditorInformeRecibosProveedorReport.GetFechaFin: Variant; begin - Result := frViewPeriodoFechas1.edtFechaFin.Date; + Result := frViewPeriodoFechas1.edtFechaFin.EditValue; end; -function TfEditorInformeRecibosProveedorReport.GetFechaInicio: TDateTime; +function TfEditorInformeRecibosProveedorReport.GetFechaInicio: Variant; begin - Result := frViewPeriodoFechas1.edtFechaIni.Date; + Result := frViewPeriodoFechas1.edtFechaIni.EditValue; +end; + +function TfEditorInformeRecibosProveedorReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeRecibosProveedorReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; end; function TfEditorInformeRecibosProveedorReport.GetImporteMinimo: Currency; @@ -116,6 +130,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas b/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas index 6f5c0070..30f52964 100644 --- a/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas +++ b/Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas @@ -10,11 +10,11 @@ implementation uses uEditorRegistryUtils, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport, - uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, uEditorInformePresupuestosReport, + uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, + uEditorInformePresupuestosReport, uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport, - uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport, uEditorInformePedidosReport - ; + uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport; procedure RegisterViews; begin @@ -25,7 +25,6 @@ begin EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport'); EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport'); - EditorRegistry.RegisterClass(TfEditorInformePedidosReport, 'EditorInformePedidosReport'); EditorRegistry.RegisterClass(TfEditorInformeIVAProveedoresReport, 'EditorInformeIVAProveedoresReport'); EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorReport, 'EditorInformeFacturasProveedorReport'); EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport'); @@ -42,7 +41,6 @@ begin EditorRegistry.UnRegisterClass(TfEditorInformeRecibosClienteReport); EditorRegistry.UnRegisterClass(TfEditorInformeRecibosCliPendientesReport); - EditorRegistry.UnRegisterClass(TfEditorInformePedidosReport); EditorRegistry.UnRegisterClass(TfEditorInformeIVAProveedoresReport); EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorReport); EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorPendientesReport); diff --git a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dfm b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dfm index af7b1f72..4f725f38 100644 --- a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dfm +++ b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dfm @@ -1,66 +1,24 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas Width = 451 - Height = 177 + Height = 248 Align = alTop ExplicitWidth = 451 - ExplicitHeight = 177 - object TBXAlignmentPanel1: TTBXAlignmentPanel + ExplicitHeight = 248 + object TBXAlignmentPanel2: TTBXAlignmentPanel AlignWithMargins = True Left = 3 Top = 32 Width = 445 - Height = 21 + Height = 97 Margins.Left = 5 + Margins.Top = 5 Margins.Right = 5 Align = alTop AutoSize = True TabOrder = 0 DesignSize = ( 445 - 21) - object cbPeriodo: TcxComboBox - Left = 16 - Top = 0 - RepositoryItem = cxRepositoryPeriodos - Anchors = [akLeft, akTop, akRight] - Properties.OnChange = cbPeriodoPropertiesChange - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' - TabOrder = 0 - Text = 'Este mes' - Width = 416 - end - end - object TBXAlignmentPanel2: TTBXAlignmentPanel - AlignWithMargins = True - Left = 3 - Top = 59 - Width = 445 - Height = 74 - Margins.Left = 5 - Margins.Top = 5 - Margins.Right = 5 - Align = alTop - AutoSize = True - TabOrder = 1 - DesignSize = ( - 445 - 74) + 97) object Label3: TLabel Left = 5 Top = 5 @@ -73,7 +31,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas end object Label1: TLabel Left = 29 - Top = 29 + Top = 52 Width = 34 Height = 13 Caption = 'Desde:' @@ -81,15 +39,15 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas end object Label2: TLabel Left = 32 - Top = 56 + Top = 79 Width = 31 Height = 13 Caption = 'hasta:' Transparent = True end object edtFechaFin: TcxDateEdit - Left = 72 - Top = 53 + Left = 69 + Top = 76 Anchors = [akLeft, akTop, akRight] Properties.DateButtons = [btnToday] Properties.PostPopupValueOnTab = True @@ -118,7 +76,7 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas end object edtFechaIni: TcxDateEdit Left = 72 - Top = 26 + Top = 49 Anchors = [akLeft, akTop, akRight] Properties.DateButtons = [btnToday] Properties.PostPopupValueOnTab = True @@ -145,6 +103,33 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas TabOrder = 1 Width = 360 end + object cbPeriodo: TcxComboBox + Left = 3 + Top = 21 + RepositoryItem = cxRepositoryPeriodos + Anchors = [akLeft, akTop, akRight] + Properties.OnChange = cbPeriodoPropertiesChange + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 2 + Text = 'Este mes' + Width = 429 + end end object TBXLabel2: TTBXLabel Left = 0 @@ -164,6 +149,133 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas ParentFont = False Underline = True end + object TBXAlignmentPanel3: TTBXAlignmentPanel + AlignWithMargins = True + Left = 3 + Top = 135 + Width = 445 + Height = 98 + Margins.Left = 5 + Margins.Top = 5 + Margins.Right = 5 + Align = alTop + AutoSize = True + TabOrder = 2 + DesignSize = ( + 445 + 98) + object Label4: TLabel + Left = 5 + Top = 5 + Width = 435 + Height = 13 + Align = alTop + Caption = 'Rango de fechas de vencimiento:' + Transparent = True + ExplicitWidth = 160 + end + object Label5: TLabel + Left = 29 + Top = 53 + Width = 34 + Height = 13 + Caption = 'Desde:' + Transparent = True + end + object Label6: TLabel + Left = 32 + Top = 80 + Width = 31 + Height = 13 + Caption = 'hasta:' + Transparent = True + end + object edtFechaVenFin: TcxDateEdit + Left = 70 + Top = 77 + Anchors = [akLeft, akTop, akRight] + Properties.DateButtons = [btnToday] + Properties.PostPopupValueOnTab = True + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnValidate = edtFechaVenFinPropertiesValidate + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 0 + Width = 362 + end + object edtFechaVenIni: TcxDateEdit + Left = 72 + Top = 50 + Anchors = [akLeft, akTop, akRight] + Properties.DateButtons = [btnToday] + Properties.PostPopupValueOnTab = True + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnValidate = edtFechaVenIniPropertiesValidate + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 1 + Width = 360 + end + object cbPeriodo2: TcxComboBox + Left = 3 + Top = 21 + RepositoryItem = cxRepositoryPeriodos + Anchors = [akLeft, akTop, akRight] + Properties.OnChange = cbPeriodo2PropertiesChange + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 2 + Text = 'Este mes' + Width = 429 + end + end object cxRepository: TcxEditRepository Left = 32 Top = 24 diff --git a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas index 2a538ff0..682c621e 100644 --- a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas +++ b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas @@ -14,18 +14,26 @@ type ['{793084E2-873E-4C57-8BD6-9087816CCF3A}'] end; + TTipoFecha = (TFecha, TFechaVencimiento); + TfrViewPeriodoFechas = class(TfrViewParametrosInforme, IViewPeriodoFechas) cxRepository: TcxEditRepository; cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem; - cbPeriodo: TcxComboBox; edtFechaIni: TcxDateEdit; edtFechaFin: TcxDateEdit; TBXLabel2: TTBXLabel; - TBXAlignmentPanel1: TTBXAlignmentPanel; TBXAlignmentPanel2: TTBXAlignmentPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; + TBXAlignmentPanel3: TTBXAlignmentPanel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + edtFechaVenFin: TcxDateEdit; + edtFechaVenIni: TcxDateEdit; + cbPeriodo: TcxComboBox; + cbPeriodo2: TcxComboBox; procedure cbPeriodoPropertiesChange(Sender: TObject); procedure edtFechaIni2PropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; @@ -33,25 +41,38 @@ type procedure edtFechaFinPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure cbPeriodo2PropertiesChange(Sender: TObject); + procedure edtFechaVenIniPropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure edtFechaVenFinPropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); private - function GetFechaFinal: TDateTime; - function GetFechaInicial: TDateTime; - procedure SetFechaFinal(const Value: TDateTime); - procedure SetFechaInicial(const Value: TDateTime); + function GetFechaFinal: Variant; + function GetFechaInicial: Variant; + procedure SetFechaFinal(const Value: Variant); + procedure SetFechaInicial(const Value: Variant); + + function GetFechaVenFinal: Variant; + function GetFechaVenInicial: Variant; + procedure SetFechaVenFinal(const Value: Variant); + procedure SetFechaVenInicial(const Value: Variant); + public - procedure Hoy; - procedure Ayer; - procedure EstaSemana; - procedure EsteMes; - procedure EsteAno; - procedure Ultimos7dias; - procedure Ultimos30dias; - procedure Ultimos3meses; - procedure MesAnterior; - procedure AnoAnterior; - procedure Personalizado; - property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial; - property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal; + procedure Hoy(const ATipoFecha: TTipoFecha); + procedure Ayer(const ATipoFecha: TTipoFecha); + procedure EstaSemana(const ATipoFecha: TTipoFecha); + procedure EsteMes(const ATipoFecha: TTipoFecha); + procedure EsteAno(const ATipoFecha: TTipoFecha); + procedure Ultimos7dias(const ATipoFecha: TTipoFecha); + procedure Ultimos30dias(const ATipoFecha: TTipoFecha); + procedure Ultimos3meses(const ATipoFecha: TTipoFecha); + procedure MesAnterior(const ATipoFecha: TTipoFecha); + procedure AnoAnterior(const ATipoFecha: TTipoFecha); + procedure Personalizado(const ATipoFecha: TTipoFecha); + property FechaInicial : Variant read GetFechaInicial write SetFechaInicial; + property FechaFinal : Variant read GetFechaFinal write SetFechaFinal; + property FechaVenInicial : Variant read GetFechaVenInicial write SetFechaVenInicial; + property FechaVenFinal : Variant read GetFechaVenFinal write SetFechaVenFinal; constructor Create(AOwner: TComponent); override; end; @@ -61,106 +82,231 @@ uses DateUtils; {$R *.dfm} -procedure TfrViewPeriodoFechas.AnoAnterior; +procedure TfrViewPeriodoFechas.AnoAnterior(const ATipoFecha: TTipoFecha); begin - edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1)); - edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1)); + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1)); + edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1)); + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := StartOfTheYear(IncYear(Today, -1)); + edtFechaVenFin.Date := EndOfTheYear(IncYear(Today, -1)); + end; + end; end; -procedure TfrViewPeriodoFechas.Ayer; +procedure TfrViewPeriodoFechas.Ayer(const ATipoFecha: TTipoFecha); begin - edtFechaIni.Date := Yesterday; - edtFechaFin.Date := Yesterday; + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := Yesterday; + edtFechaFin.Date := Yesterday; + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := Yesterday; + edtFechaVenFin.Date := Yesterday; + end; + end; end; -procedure TfrViewPeriodoFechas.EstaSemana; +procedure TfrViewPeriodoFechas.EstaSemana(const ATipoFecha: TTipoFecha); begin - edtFechaIni.Date := StartOfTheWeek(Today); - edtFechaFin.Date := EndOfTheWeek(Today); + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := StartOfTheWeek(Today); + edtFechaFin.Date := EndOfTheWeek(Today); + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := StartOfTheWeek(Today); + edtFechaVenFin.Date := EndOfTheWeek(Today); + end; + end; end; -procedure TfrViewPeriodoFechas.EsteAno; +procedure TfrViewPeriodoFechas.EsteAno(const ATipoFecha: TTipoFecha); begin - edtFechaIni.Date := StartOfTheYear(Today); - edtFechaFin.Date := EndOfTheYear(Today); + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := StartOfTheYear(Today); + edtFechaFin.Date := EndOfTheYear(Today); + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := StartOfTheYear(Today); + edtFechaVenFin.Date := EndOfTheYear(Today); + end; + end; end; -procedure TfrViewPeriodoFechas.EsteMes; +procedure TfrViewPeriodoFechas.EsteMes(const ATipoFecha: TTipoFecha); begin - edtFechaIni.Date := StartOfTheMonth(Today); - edtFechaFin.Date := EndOfTheMonth(Today); + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := StartOfTheMonth(Today); + edtFechaFin.Date := EndOfTheMonth(Today); + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := StartOfTheMonth(Today); + edtFechaVenFin.Date := EndOfTheMonth(Today); + end; + end; end; -function TfrViewPeriodoFechas.GetFechaFinal: TDateTime; +function TfrViewPeriodoFechas.GetFechaFinal: Variant; begin - Result := DateOf(edtFechaFin.Date); + Result := edtFechaFin.EditValue; end; -function TfrViewPeriodoFechas.GetFechaInicial: TDateTime; +function TfrViewPeriodoFechas.GetFechaInicial: Variant; begin - Result := DateOf(edtFechaIni.Date); + Result := edtFechaIni.EditValue; end; -procedure TfrViewPeriodoFechas.Hoy; +function TfrViewPeriodoFechas.GetFechaVenFinal: Variant; begin - edtFechaIni.Date := Today; - edtFechaFin.Date := Today; + Result := edtFechaVenFin.EditValue; end; -procedure TfrViewPeriodoFechas.MesAnterior; +function TfrViewPeriodoFechas.GetFechaVenInicial: Variant; begin - edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1)); - edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1)); + Result := edtFechaVenIni.EditValue; end; -procedure TfrViewPeriodoFechas.Personalizado; +procedure TfrViewPeriodoFechas.Hoy(const ATipoFecha: TTipoFecha); begin - edtFechaIni.SetFocus; + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := Today; + edtFechaFin.Date := Today; + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := Today; + edtFechaVenFin.Date := Today; + end; + end; end; -procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime); +procedure TfrViewPeriodoFechas.MesAnterior(const ATipoFecha: TTipoFecha); begin - edtFechaFin.Date := Value; + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1)); + edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1)); + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := StartOfTheMonth(IncMonth(Today, -1)); + edtFechaVenFin.Date := EndOfTheMonth(IncMonth(Today, -1)); + end; + end; end; -procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime); +procedure TfrViewPeriodoFechas.Personalizado(const ATipoFecha: TTipoFecha); begin - edtFechaIni.Date := Value; + case ATipoFecha of + TFecha: begin + edtFechaIni.SetFocus; + end; + TFechaVencimiento: begin + edtFechaVenIni.SetFocus; + end; + end; end; -procedure TfrViewPeriodoFechas.Ultimos30dias; +procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: Variant); begin - edtFechaIni.Date := IncDay(Today, -30); - edtFechaFin.Date := Today + edtFechaFin.EditValue := Value; end; -procedure TfrViewPeriodoFechas.Ultimos3meses; +procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: Variant); begin - edtFechaIni.Date := IncMonth(Today, -3); - edtFechaFin.Date := Today + edtFechaIni.EditValue := Value; end; -procedure TfrViewPeriodoFechas.Ultimos7dias; +procedure TfrViewPeriodoFechas.SetFechaVenFinal(const Value: Variant); begin - edtFechaIni.Date := IncDay(Today, -7); - edtFechaFin.Date := Today + edtFechaVenFin.EditValue := Value; +end; + +procedure TfrViewPeriodoFechas.SetFechaVenInicial(const Value: Variant); +begin + edtFechaVenIni.EditValue := Value; +end; + +procedure TfrViewPeriodoFechas.Ultimos30dias(const ATipoFecha: TTipoFecha); +begin + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := IncDay(Today, -30); + edtFechaFin.Date := Today + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := IncDay(Today, -30); + edtFechaVenFin.Date := Today + end; + end; +end; + +procedure TfrViewPeriodoFechas.Ultimos3meses(const ATipoFecha: TTipoFecha); +begin + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := IncMonth(Today, -3); + edtFechaFin.Date := Today + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := IncMonth(Today, -3); + edtFechaVenFin.Date := Today + end; + end; +end; + +procedure TfrViewPeriodoFechas.Ultimos7dias(const ATipoFecha: TTipoFecha); +begin + case ATipoFecha of + TFecha: begin + edtFechaIni.Date := IncDay(Today, -7); + edtFechaFin.Date := Today + end; + TFechaVencimiento: begin + edtFechaVenIni.Date := IncDay(Today, -7); + edtFechaVenFin.Date := Today + end; + end; +end; + +procedure TfrViewPeriodoFechas.cbPeriodo2PropertiesChange(Sender: TObject); +begin + case (Sender as TcxComboBox).ItemIndex of + 0 : Hoy(TFechaVencimiento); + 1 : Ayer(TFechaVencimiento); + 2 : EstaSemana(TFechaVencimiento); + 3 : EsteMes(TFechaVencimiento); + 4 : EsteAno(TFechaVencimiento); + 5 : Ultimos7dias(TFechaVencimiento); + 6 : Ultimos30dias(TFechaVencimiento); + 7 : Ultimos3meses(TFechaVencimiento); + 8 : MesAnterior(TFechaVencimiento); + 9 : AnoAnterior(TFechaVencimiento); + else + Personalizado(TFechaVencimiento); + end; end; procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject); begin case (Sender as TcxComboBox).ItemIndex of - 0 : Hoy; - 1 : Ayer; - 2 : EstaSemana; - 3 : EsteMes; - 4 : EsteAno; - 5 : Ultimos7dias; - 6 : Ultimos30dias; - 7 : Ultimos3meses; - 8 : MesAnterior; - 9 : AnoAnterior; + 0 : Hoy(TFecha); + 1 : Ayer(TFecha); + 2 : EstaSemana(TFecha); + 3 : EsteMes(TFecha); + 4 : EsteAno(TFecha); + 5 : Ultimos7dias(TFecha); + 6 : Ultimos30dias(TFecha); + 7 : Ultimos3meses(TFecha); + 8 : MesAnterior(TFecha); + 9 : AnoAnterior(TFecha); else - Personalizado; + Personalizado(TFecha); end; end; @@ -168,7 +314,8 @@ constructor TfrViewPeriodoFechas.Create(AOwner: TComponent); begin inherited; cbPeriodo.ItemIndex := 3; - EsteMes; + cbPeriodo2.ItemIndex := -1; + EsteMes(TFecha); end; procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate( @@ -176,12 +323,46 @@ procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate( var Error: Boolean); begin inherited; - if DisplayValue <> edtFechaIni.Date then - cbPeriodo.ItemIndex := 12; - if DisplayValue > edtFechaFin.Date then + if Length(VarToStr(DisplayValue)) > 0 then begin - edtFechaFin.EditText := DisplayValue; - edtFechaFin.ValidateEdit(True); + if DisplayValue <> edtFechaIni.Date then + cbPeriodo.ItemIndex := 12; + if DisplayValue > edtFechaFin.Date then + begin + edtFechaFin.EditText := DisplayValue; + edtFechaFin.ValidateEdit(True); + end; + end; +end; + +procedure TfrViewPeriodoFechas.edtFechaVenFinPropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); +begin + if Length(VarToStr(DisplayValue)) > 0 then + begin + if DisplayValue <> edtFechaVenFin.Date then + cbPeriodo2.ItemIndex := 12; + if DisplayValue < edtFechaVenIni.Date then + begin + edtFechaVenIni.EditText := DisplayValue; + edtFechaVenIni.ValidateEdit(True); + end; + end; +end; + +procedure TfrViewPeriodoFechas.edtFechaVenIniPropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); +begin + inherited; + if Length(VarToStr(DisplayValue)) > 0 then + begin + if DisplayValue <> edtFechaVenIni.Date then + cbPeriodo2.ItemIndex := 12; + if DisplayValue > edtFechaVenFin.Date then + begin + edtFechaVenFin.EditText := DisplayValue; + edtFechaVenFin.ValidateEdit(True); + end; end; end; @@ -190,12 +371,15 @@ procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate( var Error: Boolean); begin inherited; - if DisplayValue <> edtFechaFin.Date then - cbPeriodo.ItemIndex := 12; - if DisplayValue < edtFechaIni.Date then + if Length(VarToStr(DisplayValue)) > 0 then begin - edtFechaIni.EditText := DisplayValue; - edtFechaIni.ValidateEdit(True); + if DisplayValue <> edtFechaFin.Date then + cbPeriodo.ItemIndex := 12; + if DisplayValue < edtFechaIni.Date then + begin + edtFechaIni.EditText := DisplayValue; + edtFechaIni.ValidateEdit(True); + end; end; end; diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas index 62915073..42bfbf95 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas @@ -35,11 +35,13 @@ type private FConnection: IDAConnection; procedure _GenerarRecibo(const ID : Integer); - function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; + 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; - function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): 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; + end; implementation @@ -88,7 +90,8 @@ begin end; function TRptRecibosCliente.GenerarInformeListadoRecibos( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -101,11 +104,12 @@ begin else ATipoInforme := rptInformeListadoRecibosCliente; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo); end; function TRptRecibosCliente.GenerarInformeListadoRecibosPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -135,11 +139,12 @@ begin ATipoInforme := rptInformeListadoRecibosCliPendientes; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo); end; function TRptRecibosCliente._GenerarInforme(const TipoInforme: String; - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; var Condicion: TDAWhereExpression; @@ -173,8 +178,24 @@ begin with tbl_InformeListadoRecibos.DynamicWhere do begin // (FECHA_INICIO between FECHA_FIN) - Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual); - Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + end; + + // Filtrar el informe por fechas de vencimiento + if not VarIsNull(FechaVenInicio) + and not VarIsNull(FechaVenFin) then + begin + with tbl_InformeListadoRecibos.DynamicWhere do + begin + // (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN) + Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); if IsEmpty then Expression := Condicion else @@ -216,7 +237,7 @@ begin tbl_InformeListadoRecibos.Active := True; - AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa)); + AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IDEmpresa)); if VarIsNull(AInforme) then raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); @@ -230,12 +251,12 @@ begin finally FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; - end; procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer); -Var +var AInforme: Variant; + begin FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" try diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas index 79d53277..9b660231 100644 --- a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas @@ -34,10 +34,10 @@ type procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; - function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedors: TIntegerArray; const ImporteMinimo: Currency): Binary; + function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const ImporteMinimo: Currency): Binary; public - function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: 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 ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; implementation @@ -72,25 +72,27 @@ begin end; function TRptRecibosProveedor.GenerarInformeListadoRecibos( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; - const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; + const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var ATipoInforme: String; 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 := rptInformeListadoRecibosProveedorDesglosado else ATipoInforme := rptInformeListadoRecibosProveedor; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedors, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo); end; function TRptRecibosProveedor.GenerarInformeListadoRecibosPendientes( - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; - const ListaIDProveedors: TIntegerArray; const Desglosado: Boolean; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; + const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var Condicion: TDAWhereExpression; @@ -112,18 +114,20 @@ begin end; -//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 := rptInformeListadoRecibosProvPendientesDesglosado else ATipoInforme := rptInformeListadoRecibosProvPendientes; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDProveedors, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, ImporteMinimo); end; function TRptRecibosProveedor._GenerarInforme(const TipoInforme: String; - const IdEmpresa: Integer; const FechaInicio, FechaFin: DateTime; - const ListaIDProveedors: TIntegerArray; const ImporteMinimo: Currency): Binary; + const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; + const ListaIDProveedores: TIntegerArray; + const ImporteMinimo: Currency): Binary; var Condicion: TDAWhereExpression; i: Integer; @@ -156,8 +160,8 @@ begin with tbl_InformeListadoRecibos.DynamicWhere do begin // (FECHA_INICIO between FECHA_FIN) - Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual); - Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); + Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); if IsEmpty then Expression := Condicion else @@ -165,16 +169,32 @@ begin end; end; - // Filtrar el informe por cliente - if Assigned(ListaIDProveedors) then + // Filtrar el informe por fechas de vencimiento + if not VarIsNull(FechaVenInicio) + and not VarIsNull(FechaVenFin) then begin with tbl_InformeListadoRecibos.DynamicWhere do begin - for i := 0 to ListaIDProveedors.Count - 1 do + // (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN) + Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + end; + + // Filtrar el informe por proveedor + if Assigned(ListaIDProveedores) then + begin + with tbl_InformeListadoRecibos.DynamicWhere do + begin + for i := 0 to ListaIDProveedores.Count - 1 do begin - // (ID_CLIENTE = ID) - Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(ListaIDProveedors.Items[i], datInteger), dboEqual); + // (ID_PROVEEDOR = ID) + Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(ListaIDProveedores.Items[i], datInteger), dboEqual); if IsEmpty then Expression := Condicion else diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index dbe1398c..0e9809ba 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -581,9 +581,9 @@ - + - + @@ -599,9 +599,9 @@ - + - + @@ -617,9 +617,9 @@ - + - + @@ -635,9 +635,13 @@ - + - + + + + + @@ -653,9 +657,9 @@ - + - + @@ -671,9 +675,13 @@ - + - + + + + + @@ -689,9 +697,13 @@ - + - + + + + + @@ -707,9 +719,13 @@ - + - + + + + + @@ -725,9 +741,13 @@ - + - + + + + + @@ -743,9 +763,13 @@ - + - + + + + + @@ -761,9 +785,9 @@ - + - + @@ -779,9 +803,9 @@ - + - + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 73267ae6..13cbfca6 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -755,29 +755,29 @@ type { IsrvGestorInformes } IsrvGestorInformes = interface(IDataAbstractService) ['{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}'] - function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; + function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; + function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosCliente(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; + function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosCliPendientes(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; + function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; + function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; @@ -791,29 +791,29 @@ type protected function __GetInterfaceName:string; override; - function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; + function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; + function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; + function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosCliente(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; + function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoRecibosCliPendientes(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; + function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; - function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; + function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; @@ -2239,15 +2239,15 @@ begin result := 'srvGestorInformes'; end; -function TsrvGestorInformes_Proxy.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; +function TsrvGestorInformes_Proxy.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAClientes'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2262,15 +2262,15 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; +function TsrvGestorInformes_Proxy.GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeIVAProveedores'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2285,15 +2285,15 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; +function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCli'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2308,15 +2308,17 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProv'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2331,15 +2333,15 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; +function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasCliPendientes'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2354,15 +2356,17 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasProvPendientes'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2377,15 +2381,17 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliente(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; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliente'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2400,15 +2406,17 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProveedor'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2423,15 +2431,17 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosCliPendientes(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; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosCliPendientes'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2446,15 +2456,17 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoRecibosProvPendientes'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Write('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Write('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2469,15 +2481,15 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; +function TsrvGestorInformes_Proxy.GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPresupuestos'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2492,15 +2504,15 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; +function TsrvGestorInformes_Proxy.GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoPedidos'); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Write('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Write('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index f8b4f662..683163ae 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -1294,12 +1294,12 @@ end; { TsrvGestorInformes_Invoker } procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; +{ function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; ListaIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1310,8 +1310,8 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -1335,12 +1335,12 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; +{ function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; ListaIDProveedores: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1351,8 +1351,8 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -1376,12 +1376,12 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListadoIDClientes: TIntegerArray; +{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; ListadoIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1392,8 +1392,8 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -1417,12 +1417,14 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } +{ function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListaIDProveedores: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1433,13 +1435,15 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1458,12 +1462,12 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; +{ function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; ListaIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1474,8 +1478,8 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -1499,12 +1503,14 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } +{ function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListaIDProveedores: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1515,13 +1521,15 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvPendientesResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1540,12 +1548,14 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliente(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } +{ function GenerarInformeListadoRecibosCliente(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; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListaIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1556,13 +1566,15 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosClienteResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1581,12 +1593,14 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } +{ function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListaIDProveedores: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1597,13 +1611,15 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProveedorResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1622,12 +1638,14 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } +{ function GenerarInformeListadoRecibosCliPendientes(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; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListaIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1638,13 +1656,15 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosCliPendientesResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1663,12 +1683,14 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } +{ function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListaIDProveedores: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1679,13 +1701,15 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); + __Message.Read('FechaVenInicio', TypeInfo(Variant), FechaVenInicio, []); + __Message.Read('FechaVenFin', TypeInfo(Variant), FechaVenFin, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProvPendientesResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1704,12 +1728,12 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDClientes: TIntegerArray; +{ function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; ListaIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1720,8 +1744,8 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -1745,12 +1769,12 @@ begin end; procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoPedidos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: DateTime; const FechaFin: DateTime; const ListaIDProveedores: TIntegerArray; +{ function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; - FechaInicio: DateTime; - FechaFin: DateTime; + FechaInicio: Variant; + FechaFin: Variant; ListaIDProveedores: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1761,8 +1785,8 @@ begin lResult := nil; try __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); - __Message.Read('FechaInicio', TypeInfo(DateTime), FechaInicio, [paIsDateTime]); - __Message.Read('FechaFin', TypeInfo(DateTime), FechaFin, [paIsDateTime]); + __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []); + __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []); __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 3b31fe7b..646f7a32 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 61627ba3..fe6c6056 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,327 +1,327 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse1470FalseFalseFalseFalseFalse308212521.4.7.01.4.7.0jueves, 27 de noviembre de 2008 16:53FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse1470FalseFalseFalseFalseFalse308212521.4.7.01.4.7.0jueves, 27 de noviembre de 2008 16:53FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +