diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 55449dfc..0c70f85f 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -58,7 +58,7 @@ CREATE DOMAIN TIPO_ID AS INTEGER; CREATE DOMAIN TIPO_IMPORTE AS -NUMERIC(11,2); +NUMERIC(11,4); CREATE DOMAIN TIPO_NOTAS AS BLOB SUB_TYPE 1 SEGMENT SIZE 80; diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 9d64eccb..c2c2e64c 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -466,30 +466,32 @@ object RptFacturasCliente: TRptFacturasCliente Connection = 'IBX' TargetTable = 'V_FACTURAS_CLIENTE' SQL = - 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' + - 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' + - ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' + - 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 + - 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' + - 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' + - 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' + - 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' + - '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' + - 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' + - 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' + - ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' + - ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' + - ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' + - 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' + - 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' + - 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' + - #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' + - #39' || extract (year from fecha_factura)'#10'when extract (month from ' + - 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + - 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' + - 'UACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBL' + - 'E, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {wh' + - 'ere}'#10'order by ANO, MES, NOMBRE'#10#10 + 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' + + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' + + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' + + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' + + 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' + + 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' + + 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' + + 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' + + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' + + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' + + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' + + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' + + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' + + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' + + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' + + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' + + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' + + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' + + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' + + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' + + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' + + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' + + 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_F' + + 'ACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_' + + 'TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, ' + + 'NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index da341879..edf88c6c 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: Variant; const FechaFin: Variant; const ListaIDClientes: 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 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: 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; + function GenerarInformeListadoFacturas(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 GenerarInformeListadoFacturasPendientes(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 @@ -176,15 +176,15 @@ begin else ATipoInforme := rptInformeIVA; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDClientes, ImporteMinimo); end; function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer; - const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var ATipoInforme: String; - + begin //DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE @@ -193,11 +193,12 @@ begin else ATipoInforme := rptInformeListadoFacturasCliente; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo); end; function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes( const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var @@ -227,7 +228,7 @@ begin ATipoInforme := rptInformeListadoFactuasClientePendiente; - Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, ImporteMinimo); + Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo); end; procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const VerSello: Boolean = True); @@ -266,12 +267,13 @@ end; function TRptFacturasCliente._GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; var Condicion: TDAWhereExpression; i: Integer; AInforme: Variant; - + begin Result := Binary.Create; FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" @@ -308,6 +310,22 @@ begin end; end; + // 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_FacturasClienteFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_VENCIMIENTO), NewConstant(FechaVenFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + end; + // Filtrar el informe por cliente if Assigned(ListaIDClientes) then begin diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm index b09fedc7..8874d0f1 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm @@ -56,6 +56,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Width = 28 end object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn + Caption = 'Fecha vto.' DataBinding.FieldName = 'FECHA_VENCIMIENTO' PropertiesClassName = 'TcxDateEditProperties' end diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm index 6c5c1ad6..4d4dd97c 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm @@ -421,30 +421,32 @@ object RptFacturasProveedor: TRptFacturasProveedor Connection = 'IBX' TargetTable = 'V_FACTURAS_PROVEEDOR' SQL = - 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' + - 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' + - ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' + - 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 + - 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' + - 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' + - 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' + - 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' + - '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' + - 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' + - 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' + - ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' + - ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' + - ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' + - 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' + - 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' + - 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' + - #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' + - #39' || extract (year from fecha_factura)'#10'when extract (month from ' + - 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + - 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' + - 'ITUACION, NIF_CIF, FECHA_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONI' + - 'BLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where' + - ' {where}'#10'order by ANO, MES, NOMBRE'#10#10 + 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' + + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' + + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' + + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' + + 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' + + 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' + + 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' + + 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' + + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' + + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' + + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' + + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' + + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' + + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' + + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' + + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' + + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' + + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' + + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' + + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' + + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' + + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' + + 'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA' + + '_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORT' + + 'E_TOTAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' + + 'ES, NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas index 7a103ca3..da3cfd9f 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas @@ -238,7 +238,7 @@ begin end; // Filtrar el informe por fechas de vencimiento -{ if not VarIsNull(FechaVenInicio) + if not VarIsNull(FechaVenInicio) and not VarIsNull(FechaVenFin) then begin with tbl_InformeListadoFacturas.DynamicWhere do @@ -252,7 +252,6 @@ begin Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; end; -} // Filtrar el informe por proveedor if Assigned(ListaIDProveedores) then diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm index 2e8184e0..bf4624d1 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm @@ -72,6 +72,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor Width = 27 end object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn + Caption = 'Fecha vto.' DataBinding.FieldName = 'FECHA_VENCIMIENTO' PropertiesClassName = 'TcxDateEditProperties' end diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas index 850679b4..50d638cc 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas @@ -10,11 +10,15 @@ type ['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}'] function GetFechaFin: Variant; function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; 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/uIEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas index e623b0be..dfcb47dc 100644 --- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas +++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClienteReport.pas @@ -10,11 +10,15 @@ type ['{AE5DD69C-6360-4A6A-A764-C0DAF5B5A948}'] function GetFechaFin: Variant; function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetDesglosadoCliente: Boolean; function GetImporteMinimo: Currency; 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/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas index 998a8408..39161e61 100644 --- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas +++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas @@ -336,7 +336,7 @@ begin AEditor.Controller := Self; AEditor.Title := 'Listado de facturas de cliente'; AStream := FDataModule.GenerarInformeListadoFacturasCli(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; @@ -360,7 +360,7 @@ begin AEditor.Controller := Self; AEditor.Title := 'Listado de facturas de cliente pendientes'; AStream := FDataModule.GenerarInformeListadoFacturasCliPendientes(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; diff --git a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas index 45cb43c1..1731b9a4 100644 --- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas @@ -27,8 +27,8 @@ type //MODULO FACTURAS DE CLIENTE 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; + function GenerarInformeListadoFacturasCli(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 GenerarInformeListadoFacturasCliPendientes(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 RECIBOS DE CLIENTE 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; @@ -86,22 +86,24 @@ end; function TDataModuleGestorInformes.GenerarInformeListadoFacturasCli( const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, Desglosado, ImporteMinimo); finally end; end; function TDataModuleGestorInformes.GenerarInformeListadoFacturasCliPendientes( const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; + const FechaVenInicio, FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try - Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIdClientes, Desglosado, ImporteMinimo); + Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdClientes, 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 62f91787..1e85096f 100644 --- a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas +++ b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas @@ -16,8 +16,8 @@ type //MODULO FACTURAS DE CLIENTE 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; + function GenerarInformeListadoFacturasCli(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 GenerarInformeListadoFacturasCliPendientes(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 RECIBOS DE CLIENTE 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; diff --git a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas index 0332ad7a..6419edd5 100644 --- a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas +++ b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas @@ -36,8 +36,8 @@ type //MODULO FACTURAS CLIENTE 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; + function GenerarInformeListadoFacturasCli(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 GenerarInformeListadoFacturasCliPendientes(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 RECIBOS CLIENTE 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; @@ -96,14 +96,14 @@ begin end; function TsrvGestorInformes.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; - const FechaInicio, FechaFin: Variant; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; + const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; var AReportGenerator : TRptFacturasCliente; begin AReportGenerator := TRptFacturasCliente.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; @@ -111,6 +111,7 @@ end; function TsrvGestorInformes.GenerarInformeListadoFacturasCliPendientes( 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 @@ -118,7 +119,7 @@ var begin AReportGenerator := TRptFacturasCliente.Create(nil); try - Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo); finally FreeAndNIL(AReportGenerator); end; diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm index cb500f4f..585cd3ef 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm @@ -65,7 +65,6 @@ inherited fEditorInformeBase: TfEditorInformeBase FloatingHeight = 128 SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 0 - ExplicitTop = 274 ExplicitWidth = 128 object TBXButton1: TTBXButton Left = 16 diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm index f22ee6b1..edaf55d0 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 236 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,12 +65,12 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 + ExplicitHeight = 236 inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 ExplicitWidth = 182 inherited Label3: TLabel - Width = 85 + Width = 172 end inherited edtFechaFin: TcxDateEdit Left = 72 @@ -105,24 +105,27 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas end inherited TBXAlignmentPanel3: TTBXAlignmentPanel Width = 182 - Visible = False ExplicitWidth = 182 inherited Label4: TLabel - Width = 160 + Width = 172 end inherited edtFechaVenFin: TcxDateEdit + Left = 75 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 75 ExplicitWidth = 99 Width = 99 end inherited edtFechaVenIni: TcxDateEdit + Left = 75 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 75 ExplicitWidth = 97 Width = 97 end @@ -131,7 +134,8 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 212 + ExplicitWidth = 170 + Width = 170 end end end @@ -159,7 +163,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 236 Width = 188 Height = 77 Align = alTop @@ -172,7 +176,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 236 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -192,7 +196,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas end inline frViewFiltroClientes1: TfrViewFiltroClientes Left = 0 - Top = 213 + Top = 313 Width = 188 Height = 146 Align = alTop @@ -205,7 +209,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 313 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas index a3f5c826..aa90a30d 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas @@ -28,6 +28,8 @@ type FListaIDClientes: TIntegerArray; function GetFechaFin: Variant; function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -37,6 +39,8 @@ type public 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; @@ -90,6 +94,16 @@ begin Result := frViewPeriodoFechas1.edtFechaIni.EditValue; end; +function TfEditorInformeFacturasClientePendientesReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeFacturasClientePendientesReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; +end; + function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency; begin if frViewFiltroImportes1.eImporte.Enabled then @@ -117,6 +131,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm index d8c31f17..6227c8a0 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm @@ -54,7 +54,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep Left = 0 Top = 0 Width = 188 - Height = 136 + Height = 236 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -65,14 +65,14 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep TabOrder = 0 ReadOnly = False ExplicitWidth = 188 - ExplicitHeight = 136 + ExplicitHeight = 236 inherited TBXAlignmentPanel2: TTBXAlignmentPanel Width = 182 Height = 98 ExplicitWidth = 182 ExplicitHeight = 98 inherited Label3: TLabel - Width = 85 + Width = 172 end inherited edtFechaFin: TcxDateEdit Left = 74 @@ -112,25 +112,28 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep inherited TBXAlignmentPanel3: TTBXAlignmentPanel Top = 136 Width = 182 - Visible = False ExplicitTop = 136 ExplicitWidth = 182 inherited Label4: TLabel - Width = 160 + Width = 172 end inherited edtFechaVenFin: TcxDateEdit + Left = 76 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 76 ExplicitWidth = 99 Width = 99 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 @@ -139,7 +142,8 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 212 + ExplicitWidth = 170 + Width = 170 end end end @@ -167,7 +171,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep end inline frViewFiltroImportes1: TfrViewFiltroImportes Left = 0 - Top = 136 + Top = 236 Width = 188 Height = 77 Align = alTop @@ -180,7 +184,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep ParentFont = False TabOrder = 1 ReadOnly = False - ExplicitTop = 136 + ExplicitTop = 236 ExplicitWidth = 188 ExplicitHeight = 77 inherited TBXLabel2: TTBXLabel @@ -200,7 +204,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep end inline frViewFiltroClientes1: TfrViewFiltroClientes Left = 0 - Top = 213 + Top = 313 Width = 188 Height = 146 Align = alTop @@ -213,7 +217,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitTop = 213 + ExplicitTop = 313 ExplicitWidth = 188 ExplicitHeight = 146 inherited TBXLabel2: TTBXLabel diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas index 2bcc2183..13d8c527 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas @@ -27,6 +27,8 @@ type FListaIDClientes: TIntegerArray; function GetFechaFin: Variant; function GetFechaInicio: Variant; + function GetFechaVenFin: Variant; + function GetFechaVenInicio: Variant; function GetListaIDClientes: TIntegerArray; function GetImporteMinimo: Currency; function GetDesglosadoCliente: Boolean; @@ -36,6 +38,8 @@ type public 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; @@ -89,6 +93,16 @@ begin Result := frViewPeriodoFechas1.edtFechaIni.EditValue; end; +function TfEditorInformeFacturasClienteReport.GetFechaVenFin: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenFin.EditValue; +end; + +function TfEditorInformeFacturasClienteReport.GetFechaVenInicio: Variant; +begin + Result := frViewPeriodoFechas1.edtFechaVenIni.EditValue; +end; + function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency; begin if frViewFiltroImportes1.eImporte.Enabled then @@ -116,6 +130,8 @@ begin AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, + FechaVenInicio, + FechaVenFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm index 0f1cd118..47bbbded 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm @@ -70,7 +70,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo Width = 182 ExplicitWidth = 182 inherited Label3: TLabel - Width = 85 + Width = 172 end inherited edtFechaFin: TcxDateEdit Left = 77 @@ -109,7 +109,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo Width = 182 ExplicitWidth = 182 inherited Label4: TLabel - Width = 160 + Width = 172 end inherited edtFechaVenFin: TcxDateEdit Left = 77 diff --git a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas index 682c621e..1b9175b8 100644 --- a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas +++ b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas @@ -313,9 +313,9 @@ end; constructor TfrViewPeriodoFechas.Create(AOwner: TComponent); begin inherited; - cbPeriodo.ItemIndex := 3; + cbPeriodo.ItemIndex := -1; cbPeriodo2.ItemIndex := -1; - EsteMes(TFecha); +// EsteMes(TFecha); end; procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate( diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index 0e9809ba..0fa9295e 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -621,6 +621,10 @@ + + + + @@ -661,6 +665,10 @@ + + + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 13cbfca6..4dbf6b58 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -759,12 +759,12 @@ type 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 GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListadoIDClientes: 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 GenerarInformeListadoFacturasCliPendientes(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 FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDClientes: 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; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; @@ -795,12 +795,12 @@ type 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 GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; + function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListadoIDClientes: 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 GenerarInformeListadoFacturasCliPendientes(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 FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDClientes: 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; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; @@ -2285,8 +2285,8 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; begin try result := nil; @@ -2294,6 +2294,8 @@ begin __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __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('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); @@ -2333,8 +2335,8 @@ begin end end; -function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; +function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasCliPendientes(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; @@ -2342,6 +2344,8 @@ begin __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __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, []); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 683163ae..6a74aa54 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -1376,12 +1376,14 @@ 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: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; - const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } +{ function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; FechaInicio: Variant; FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListadoIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1394,11 +1396,13 @@ begin __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __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('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []); - lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, ListadoIDClientes, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListadoIDClientes, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -1462,12 +1466,14 @@ 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: 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 FechaVenInicio: Variant; + const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; } var IdEmpresa: Integer; FechaInicio: Variant; FechaFin: Variant; + FechaVenInicio: Variant; + FechaVenFin: Variant; ListaIDClientes: FactuGES_Intf.TIntegerArray; Desglosado: Boolean; ImporteMinimo: Currency; @@ -1480,11 +1486,13 @@ begin __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __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).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, ListaIDClientes, Desglosado, ImporteMinimo); + lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliPendientesResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 646f7a32..ac6b4bf2 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index d6ea0cdb..fceb465f 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index de62a65e..2f8a826a 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,323 +1,323 @@ - + - - {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/standaloneTrueFalse1500FalseFalseFalseFalseFalse308212521.5.0.01.5.0.0miércoles, 07 de enero de 2009 10:01FactuGES_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/standaloneTrueFalse1500FalseFalseFalseFalseFalse308212521.5.0.01.5.0.0miércoles, 07 de enero de 2009 10:01FactuGES_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
+
+ + + + + + + + + +