diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 6af8e87..ac04ec8 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index 9737cf3..e4ee693 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -7,6 +7,10 @@ uses uEmpresasController, uUsuariosController, uHostManager, uConfiguracionController, uBizEmpresasTiendas; +const + CTE_PERFIL_ADMINISTRADOR = 3; + CTE_PERFIL_VENDEDOR = 7; + type TAppFactuGES_Event = procedure; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 83ae9e9..9d87741 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,55 +65,55 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index a0298c1..31e17cc 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -51,7 +51,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2740FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.4.0FactuGESFactuGES2.7.4.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2760FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.6.0FactuGESFactuGES2.7.6.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 1948d24..105b601 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index 7c41528..027635e 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -41,7 +41,7 @@ begin LoadModule('RecibosCliente_plugin.bpl'); LoadModule('FacturasCliente_plugin.bpl'); -// LoadModule('Comisiones_plugin.bpl'); + LoadModule('Comisiones_plugin.bpl'); {$IFDEF PEDIDOSPROVEEDOR} LoadModule('PedidosProveedor_plugin.bpl'); diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas index 4f57151..c109a7c 100644 --- a/Source/Cliente/uPantallaPrincipal.pas +++ b/Source/Cliente/uPantallaPrincipal.pas @@ -195,7 +195,7 @@ end; procedure TfPantallaPrincipal.FormShow(Sender: TObject); begin //El usuario vendedor de graden solo podrá ver ventas (Graden-Vendedor(2)) - if (AppFactuGES.UsuarioActivo.ID_PERFIL = 7) then + if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR) then begin Informes1.Enabled := False; Informes1.Visible := False; @@ -208,7 +208,7 @@ begin InicializarUI; //Solo verá administracion de usuarios el perfil Administrador(3), están en la tabla usuarios - if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 3) then + if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PERFIL_ADMINISTRADOR) then begin // Perfiles1.Visible := False; Administracin1.Visible := False; diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index f44e3be..76012d2 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/Informes/1/InformeListadoFacturasRecibosProveedor.fr3 b/Source/Informes/1/InformeListadoFacturasRecibosProveedor.fr3 new file mode 100644 index 0000000..fc74a37 --- /dev/null +++ b/Source/Informes/1/InformeListadoFacturasRecibosProveedor.fr3 @@ -0,0 +1,65 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm index 16fa45b..eee9700 100644 --- a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm +++ b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm @@ -640,9 +640,7 @@ object PluginContabilidad: TPluginContabilidad object actCuentas: TAction Category = 'Contabilidad' Caption = 'Cuentas' - Enabled = False ImageIndex = 2 - Visible = False OnExecute = actCuentasExecute OnUpdate = actCuentasUpdate end @@ -658,9 +656,7 @@ object PluginContabilidad: TPluginContabilidad object actDiario: TAction Category = 'Contabilidad' Caption = 'Libro de diario' - Enabled = False ImageIndex = 0 - Visible = False OnExecute = actDiarioExecute OnUpdate = actDiarioUpdate end diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index 07e91f1..854a9d2 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -267,7 +267,7 @@ begin FECHA_FACTURA := DateOf(Now); // FECHA_VENCIMIENTO := DateOf(Now); TIPO := CTE_TIPO_FACTURA; - SITUACION := 'PENDIENTE'; + SITUACION := CTE_PENDIENTE; ID_CLIENTE := ID_NULO; SIN_COMISION := 0; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 2a1f43b..b12bce1 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -69,7 +69,7 @@ type 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 GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; + function GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary; end; implementation @@ -78,7 +78,7 @@ implementation uses uRORemoteDataModule, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf, - uDataModuleServer, schFacturasClienteClient_Intf; + uDataModuleServer, schFacturasClienteClient_Intf, schRecibosClienteClient_Intf; const rptFacturaCliente = 'InfFacturaCliente.fr3'; @@ -331,11 +331,12 @@ end; function TRptFacturasCliente.GenerarInformeListadoFacturasRecibos( const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; - const Desglosado: Boolean): Binary; + const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary; var ATipoInforme: String; AStream: TMemoryStream; dsMaster: IDADataset; + Condicion: TDAWhereExpression; begin FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" @@ -356,10 +357,35 @@ begin tbl_InformeListadoFacturas.Active := False; PrepararTablaInforme(tbl_InformeListadoFacturas); + // Filtrar el informe por fecha + with tbl_InformeListadoFacturas.DynamicWhere do + begin + // (FECHA_INICIO between FECHA_FIN) + Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaInicio, datString), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Condicion, Expression, dboAnd); + end; + //Se prepara la tabla del listado general del informe if tbl_InformeListadoRecibos.Active then tbl_InformeListadoRecibos.Active := False; PrepararTablaInforme(tbl_InformeListadoRecibos); + with tbl_InformeListadoRecibos.DynamicWhere do + begin + // (FECHA_INICIO between FECHA_FIN) + 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(Condicion, Expression, dboAnd); + end; + //DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE FDesglosado := Desglosado; diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk index 0073905..a433284 100644 Binary files a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk and b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk differ diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj index 0707de1..b269fdf 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj +++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj @@ -49,38 +49,39 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + +