diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index f3794038..73a5ecc7 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -2066,7 +2066,7 @@ WHERE CREATE VIEW V_CONT_CUENTAS( ID, REF_CUENTA, - ID_EJERCICIO, + ID_EJERCICIO, ESTADO, DESCRIPCION, ID_EPIGRAFE, EPIGRAFE, @@ -2075,7 +2075,7 @@ CREATE VIEW V_CONT_CUENTAS( ID_CUENTA_ESPECIAL, CUENTA_ESPECIAL) AS -select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, +select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO, CONT_CUENTAS.DESCRIPCION, CONT_CUENTAS.ID_EPIGRAFE, CONT_EPIGRAFES.DESCRIPCION as EPIGRAFE, CONT_CUENTAS.ID_BALANCE, CONT_BALANCES.REF_BALANCE as BALANCE, CONT_CUENTAS.ID_CUENTA_ESPECIAL, CONT_CUENTAS_ESPECIALES.DESCRIPCION as CUENTA_ESPECIAL @@ -2083,7 +2083,7 @@ from CONT_CUENTAS left join CONT_EPIGRAFES on (CONT_EPIGRAFES.ID = CONT_CUENTAS.ID_EPIGRAFE) left join CONT_BALANCES on (CONT_BALANCES.ID = CONT_CUENTAS.ID_BALANCE) left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.ID_CUENTA_ESPECIAL) -; +left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_CUENTAS.ID_EJERCICIO); @@ -2100,6 +2100,7 @@ CREATE VIEW V_CONT_DIARIO( REF_SUBCUENTA, SUBCUENTA, ID_EJERCICIO, + ESTADO, CONCEPTO, DOCUMENTO, DEBE, @@ -2117,7 +2118,7 @@ SELECT CONT_APUNTES.ID_SUBCUENTA, CONT_SUBCUENTAS.REF_SUBCUENTA as REF_SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, - CONT_SUBCUENTAS.ID_EJERCICIO, + CONT_SUBCUENTAS.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO, CONT_APUNTES.CONCEPTO, CONT_APUNTES.DOCUMENTO, CONT_APUNTES.DEBE, @@ -2127,6 +2128,7 @@ SELECT FROM CONT_APUNTES LEFT JOIN CONT_ASIENTOS ON (CONT_ASIENTOS.ID = CONT_APUNTES.ID_ASIENTO) LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA) +LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) order by CONT_ASIENTOS.FECHA_ASIENTO desc, CONT_ASIENTOS.ORDEN desc ; @@ -2137,14 +2139,15 @@ CREATE VIEW V_CONT_EPIGRAFES( ID, REF_EPIGRAFE, DESCRIPCION, - ID_EJERCICIO, + ID_EJERCICIO, ESTADO, ID_PADRE, EPIGRAFE_PADRE) AS -select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO, +select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO, CONT_EPI1.ID_PADRE, CONT_EPI2.DESCRIPCION as EPIGRAFE_PADRE from CONT_EPIGRAFES CONT_EPI1 left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) +left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_EPI1.ID_EJERCICIO) ; @@ -2153,17 +2156,22 @@ left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) CREATE VIEW V_CONT_FAC_CLI_VENTAS( ID_FACTURA, ID_SUBCUENTA, - SUBCUENTA) + SUBCUENTA, + ID_EJERCICIO, + ESTADO) AS select CONT_ASIENTOS.ID_FACTURA, CONT_SUBCUENTAS.ID as ID_SUBCUENTA, - CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA + CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, + CONT_SUBCUENTAS.ID_EJERCICIO, + CONT_EJERCICIOS.ESTADO from CONT_ASIENTOS LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID) LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA) LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) + LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) /* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca ventas*/ where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_CUENTAS.ref_cuenta = 700) ; @@ -2174,21 +2182,24 @@ from CONT_ASIENTOS CREATE VIEW V_CONT_FAC_PRO_COMPRAS( ID_FACTURA, ID_SUBCUENTA, - SUBCUENTA) + SUBCUENTA, + ID_EJERCICIO, + ESTADO) AS select CONT_ASIENTOS.ID_FACTURA, CONT_SUBCUENTAS.ID as ID_SUBCUENTA, - CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA + CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA, + CONT_SUBCUENTAS.ID_EJERCICIO, + CONT_EJERCICIOS.ESTADO from CONT_ASIENTOS LEFT JOIN CONT_APUNTES ON (CONT_APUNTES.ID_ASIENTO = CONT_ASIENTOS.ID) LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_SUBCUENTA) LEFT JOIN CONT_CUENTAS ON (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) + LEFT JOIN CONT_EJERCICIOS ON (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) /* Solo sacaremos aquellas tuplas de apuntes cuya subcuenta contable pertenezca compras*/ - where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_CUENTAS.ref_cuenta = 600) -; - + where (CONT_ASIENTOS.ID_FACTURA is not null) and (CONT_CUENTAS.ref_cuenta = 600); /* View: V_CONT_SUBCUENTAS_SALDO */ @@ -2206,14 +2217,14 @@ left join cont_apuntes on (cont_apuntes.id_subcuenta = cont_subcuentas.ID) group by cont_subcuentas.ID ; - - /* View: V_CONT_SUBCUENTAS */ CREATE VIEW V_CONT_SUBCUENTAS( ID, REF_SUBCUENTA, DESCRIPCION, ID_EJERCICIO, + ESTADO, + REF_EPIGRAFE_PADRE, ID_CONTACTO, ID_CUENTA, REF_CUENTA, @@ -2223,11 +2234,15 @@ CREATE VIEW V_CONT_SUBCUENTAS( SALDO) AS select CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.REF_SUBCUENTA, CONT_SUBCUENTAS.DESCRIPCION, -CONT_SUBCUENTAS.ID_EJERCICIO, CONT_SUBCUENTAS.ID_CONTACTO, CONT_SUBCUENTAS.ID_CUENTA, +CONT_SUBCUENTAS.ID_EJERCICIO, CONT_EJERCICIOS.ESTADO, COALESCE(CONT_EPI2.REF_EPIGRAFE, CONT_EPI1.REF_EPIGRAFE), +CONT_SUBCUENTAS.ID_CONTACTO, CONT_SUBCUENTAS.ID_CUENTA, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.DESCRIPCION as CUENTA, V_CONT_SUBCUENTAS_SALDO.DEBE, V_CONT_SUBCUENTAS_SALDO.HABER, V_CONT_SUBCUENTAS_SALDO.SALDO from V_CONT_SUBCUENTAS_SALDO left join CONT_SUBCUENTAS on (CONT_SUBCUENTAS.ID = V_CONT_SUBCUENTAS_SALDO.ID_SUBCUENTA) left join CONT_CUENTAS on (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) +left join CONT_EPIGRAFES CONT_EPI1 on (CONT_EPI1.ID = CONT_CUENTAS.ID_EPIGRAFE) +left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE) +left join CONT_EJERCICIOS on (CONT_EJERCICIOS.ID = CONT_SUBCUENTAS.ID_EJERCICIO) order by CONT_CUENTAS.REF_CUENTA ; @@ -2423,48 +2438,50 @@ GROUP BY ID_FACTURA; /* Create view: V_FACTURAS_CLIENTE */ CREATE VIEW V_FACTURAS_CLIENTE( -ID, -ID_EMPRESA, -REFERENCIA, -TIPO, -ID_COMISION_LIQUIDADA, -FECHA_FACTURA, -FECHA_VENCIMIENTO, -SITUACION, -BASE_IMPONIBLE, -DESCUENTO, -IMPORTE_DESCUENTO, -IVA, -IMPORTE_IVA, -RE, -IMPORTE_RE, -IMPORTE_TOTAL, -OBSERVACIONES, -ID_CLIENTE, -NOMBRE_CLIENTE, -NOMBRE_COMERCIAL_CLIENTE, -NIF_CIF, -NOMBRE, -CALLE, -POBLACION, -PROVINCIA, -CODIGO_POSTAL, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -ID_FORMA_PAGO, -RECARGO_EQUIVALENCIA, -ID_TIPO_IVA, -IMPORTE_NETO, -IMPORTE_PORTE, -ID_AGENTE, -REFERENCIA_COMISION, -IGNORAR_CONTABILIDAD, -ID_TIENDA, -TIENDA, -ID_SUBCUENTA, -SUBCUENTA) - AS + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + ID_COMISION_LIQUIDADA, + FECHA_FACTURA, + FECHA_VENCIMIENTO, + SITUACION, + BASE_IMPONIBLE, + DESCUENTO, + IMPORTE_DESCUENTO, + IVA, + IMPORTE_IVA, + RE, + IMPORTE_RE, + IMPORTE_TOTAL, + OBSERVACIONES, + ID_CLIENTE, + NOMBRE_CLIENTE, + NOMBRE_COMERCIAL_CLIENTE, + NIF_CIF, + NOMBRE, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO, + RECARGO_EQUIVALENCIA, + ID_TIPO_IVA, + IMPORTE_NETO, + IMPORTE_PORTE, + ID_AGENTE, + REFERENCIA_COMISION, + IGNORAR_CONTABILIDAD, + ID_TIENDA, + TIENDA, + ID_SUBCUENTA, + SUBCUENTA, + ID_EJERCICIO, + ESTADO) +AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.REFERENCIA, @@ -2505,7 +2522,9 @@ SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_TIENDA, COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, V_CONT_FAC_CLI_VENTAS.ID_SUBCUENTA, - V_CONT_FAC_CLI_VENTAS.SUBCUENTA + V_CONT_FAC_CLI_VENTAS.SUBCUENTA, + V_CONT_FAC_CLI_VENTAS.ID_EJERCICIO, + V_CONT_FAC_CLI_VENTAS.ESTADO FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE @@ -2515,7 +2534,7 @@ SELECT FACTURAS_CLIENTE.ID, INNER JOIN CONTACTOS ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE) INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA) - LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID); + LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID) ; @@ -2559,7 +2578,9 @@ CREATE VIEW V_FACTURAS_PROVEEDOR( ID_TIENDA, TIENDA, ID_SUBCUENTA, - SUBCUENTA) + SUBCUENTA, + ID_EJERCICIO, + ESTADO) AS SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.ID_EMPRESA, @@ -2599,7 +2620,9 @@ SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.ID_TIENDA, COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA, V_CONT_FAC_PRO_COMPRAS.ID_SUBCUENTA, - V_CONT_FAC_PRO_COMPRAS.SUBCUENTA + V_CONT_FAC_PRO_COMPRAS.SUBCUENTA, + V_CONT_FAC_PRO_COMPRAS.ID_EJERCICIO, + V_CONT_FAC_PRO_COMPRAS.ESTADO FROM V_FAC_PRO_SITUACION LEFT JOIN FACTURAS_PROVEEDOR diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 4042672c..e4f9e426 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,20 @@ 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,53 +72,53 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 14eaaaa9..68e7fe82 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,37 +58,37 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 8b251f31..1641339f 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/GUIBase/uEditorDBBase.dfm b/Source/GUIBase/uEditorDBBase.dfm index 24f2b830..aedba9e3 100644 --- a/Source/GUIBase/uEditorDBBase.dfm +++ b/Source/GUIBase/uEditorDBBase.dfm @@ -18,7 +18,7 @@ inherited fEditorDBBase: TfEditorDBBase end inherited TBXDock: TTBXDock Width = 646 - ExplicitWidth = 648 + ExplicitWidth = 646 inherited tbxMain: TTBXToolbar ExplicitWidth = 646 end diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm index 813a7f80..750b5ef5 100644 --- a/Source/GUIBase/uEditorDBItem.dfm +++ b/Source/GUIBase/uEditorDBItem.dfm @@ -19,7 +19,7 @@ inherited fEditorDBItem: TfEditorDBItem end inherited TBXDock: TTBXDock Width = 650 - ExplicitWidth = 652 + ExplicitWidth = 650 inherited tbxMain: TTBXToolbar ExplicitWidth = 605 inherited TBXItem26: TTBXItem diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj index 74948bfa..4ca23fb9 100644 --- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj +++ b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj @@ -48,6 +48,29 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + @@ -55,24 +78,6 @@ - - - - - - - - - - - - - - - - - - @@ -92,11 +97,6 @@ - - - - -