diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 652029a7..a0c96888 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1960,6 +1960,7 @@ CREATE VIEW V_CONT_DIARIO( ID_ASIENTO, ID_FACTURA, ID_PAGO, + TIPO, ORDEN_ASIENTO, FECHA_ASIENTO, ID_SUBCUENTA, @@ -1977,6 +1978,7 @@ SELECT CONT_APUNTES.ID_ASIENTO, CONT_ASIENTOS.ID_FACTURA, CONT_ASIENTOS.ID_PAGO, + CONT_ASIENTOS.TIPO, CONT_ASIENTOS.ORDEN, CONT_ASIENTOS.FECHA_ASIENTO, CONT_APUNTES.ID_SUBCUENTA, @@ -4200,7 +4202,10 @@ declare variable debe numeric(11,2); declare variable haber numeric(11,2); begin /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ - SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.REFERENCIA, PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO, + SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, + RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE, + PAGOS_CLIENTE.FECHA_PAGO, + PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION, RECIBOS_CLIENTE.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO FROM PAGOS_CLIENTE LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO) @@ -4287,12 +4292,15 @@ declare variable debe numeric(11,2); declare variable haber numeric(11,2); begin /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ - SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.REFERENCIA, PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO, + SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, + RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE, + PAGOS_PROVEEDOR.FECHA_PAGO, + PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION, RECIBOS_PROVEEDOR.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO FROM PAGOS_PROVEEDOR LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO) - LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) - LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = FACTURAS_PROVEEDOR.ID_PROVEEDOR) +/* LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) (ya no esta atado a las facturas)*/ + LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = RECIBOS_PROVEEDOR.ID_PROVEEDOR) WHERE PAGOS_PROVEEDOR.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO; diff --git a/Resources/Iconos/Cuentas/16x16/cierre.png b/Resources/Iconos/Cuentas/16x16/cierre.png new file mode 100644 index 00000000..8554e1f6 Binary files /dev/null and b/Resources/Iconos/Cuentas/16x16/cierre.png differ diff --git a/Resources/Iconos/Cuentas/24x24/cierre.png b/Resources/Iconos/Cuentas/24x24/cierre.png new file mode 100644 index 00000000..264d0202 Binary files /dev/null and b/Resources/Iconos/Cuentas/24x24/cierre.png differ diff --git a/Resources/Iconos/Cuentas/28x28/cierre.png b/Resources/Iconos/Cuentas/28x28/cierre.png new file mode 100644 index 00000000..aac1b08b Binary files /dev/null and b/Resources/Iconos/Cuentas/28x28/cierre.png differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index db0bee20..1526858a 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,48 +58,48 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm 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/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 9374a523..0606c27b 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,27 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2200FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.0.0FactuGESFactuGES2.2.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGESFactuGES2.2.2.0 + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index ae839dac..7ab0d6ea 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,2,0,0 -PRODUCTVERSION 2,2,0,0 +FILEVERSION 2,2,2,0 +PRODUCTVERSION 2,2,2,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.2.0.0\0" + VALUE "FileVersion", "2.2.2.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.2.0.0\0" + VALUE "ProductVersion", "2.2.2.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 874ce33d..2757621f 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/uEditorDBBase.dfm b/Source/GUIBase/uEditorDBBase.dfm index 2d7383e6..24f2b830 100644 --- a/Source/GUIBase/uEditorDBBase.dfm +++ b/Source/GUIBase/uEditorDBBase.dfm @@ -29,6 +29,7 @@ inherited fEditorDBBase: TfEditorDBBase inherited StatusBar: TJvStatusBar Top = 435 Width = 646 + ExplicitTop = 435 ExplicitWidth = 648 end inherited EditorActionList: TActionList diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm index 82afd13a..813a7f80 100644 --- a/Source/GUIBase/uEditorDBItem.dfm +++ b/Source/GUIBase/uEditorDBItem.dfm @@ -65,8 +65,8 @@ inherited fEditorDBItem: TfEditorDBItem Width = 200 Control = imgStatus end> - ExplicitTop = 442 - ExplicitWidth = 652 + ExplicitTop = 440 + ExplicitWidth = 650 object imgStatus: TImage Left = 3 Top = 3 diff --git a/Source/GUIBase/uViewDetallesGenerico.pas b/Source/GUIBase/uViewDetallesGenerico.pas index 1689fae0..68acbcc0 100644 --- a/Source/GUIBase/uViewDetallesGenerico.pas +++ b/Source/GUIBase/uViewDetallesGenerico.pas @@ -13,6 +13,8 @@ uses type IViewDetallesGenerico = interface(IViewBase) ['{CA4BD183-1DCD-453D-A1A2-A3B7349BBE40}'] + procedure GotoFirst; + procedure GotoLast; end; TfrViewDetallesGenerico = class(TfrViewBase, IViewDetallesGenerico) @@ -51,6 +53,9 @@ type procedure EliminarInterno; virtual; function GetModified: Boolean; override; + public + procedure GotoFirst; virtual; + procedure GotoLast; virtual; end; implementation @@ -196,6 +201,18 @@ begin Result := DataTableModified(dsDetalles.DataTable) or inherited GetModified; end; +procedure TfrViewDetallesGenerico.GotoFirst; +begin + if Assigned(cxGrid.ActiveView) then + cxGrid.ActiveView.DataController.GotoFirst; +end; + +procedure TfrViewDetallesGenerico.GotoLast; +begin + if Assigned(cxGrid.ActiveView) then + cxGrid.ActiveView.DataController.GotoLast; +end; + function TfrViewDetallesGenerico.HayDatos: Boolean; begin Result := Assigned(dsDetalles.DataTable) and diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3 index 41b58244..a2b5c387 100644 --- a/Source/Informes/InfFacturaCliente.fr3 +++ b/Source/Informes/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -35,16 +35,16 @@ - + - - - - - - - + + + + + + + @@ -75,7 +75,7 @@ - + diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk index dd0ccd80..3cc8593a 100644 Binary files a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk and b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk differ diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj index 7a0a1fb2..74948bfa 100644 --- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj +++ b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj @@ -41,36 +41,13 @@ Delphi.Personality Package -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contabilidad_controller.dpk +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contabilidad_controller.dpk MainSource - - - - - - - - - - - - - - - - - - - - - - - @@ -78,6 +55,24 @@ + + + + + + + + + + + + + + + + + + @@ -94,8 +89,14 @@ + + + + + +