From 6215ba48c13f29ad1515e2b37863739d76328d79 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 5 Dec 2007 19:10:31 +0000 Subject: [PATCH] =?UTF-8?q?Arreglo=20de=20dia=20de=20pago=20del=20cliente?= =?UTF-8?q?=20para=20sus=20recibos=20teniendo=20en=20cuenta=20el=20mes=20d?= =?UTF-8?q?e=20febrero,=20el=20porte=20desglosado=20en=20articulos=20en=20?= =?UTF-8?q?los=20documentos=20de=20proveedor=20y=20no=20desglosado=20en=20?= =?UTF-8?q?los=20documentos=20de=20cliente,=20arreglo=20de=20error=20en=20?= =?UTF-8?q?la=20generaci=C3=B3n=20de=20un=20abono=20a=20partir=20de=20una?= =?UTF-8?q?=20factura=20al=20poner=20en=20negativo=20los=20detalles,=20otr?= =?UTF-8?q?os=20cambios=20menores?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@157 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Model/uBizAlbaranesCliente.pas | 2 +- .../Views/uEditorAlbaranCliente.pas | 4 +- .../uAlbaranesProveedorController.pas | 2 + .../Views/uEditorAlbaranProveedor.pas | 2 +- .../uControllerDetallesArticulos.pas | 2 +- .../Contactos/Views/uEditorCliente.dfm | 101 ++++++++++++++---- .../Controller/uFacturasClienteController.pas | 6 ++ .../Model/uBizFacturasCliente.pas | 2 +- .../Views/uEditorFacturaCliente.pas | 4 +- .../Views/uEditorFacturasCliente.dfm | 17 ++- .../Views/uEditorFacturaProveedor.pas | 4 +- .../Views/uEditorFacturasProveedor.dfm | 11 ++ .../Model/uBizPedidosProveedor.pas | 2 +- .../Views/uEditorPedidoProveedor.pas | 4 +- .../Views/uEditorPresupuestoCliente.dfm | 4 + .../Views/uEditorPresupuestoCliente.pas | 4 +- .../Views/uEditorRecibosCliente.dfm | 8 +- .../Views/uEditorRecibosProveedor.dfm | 10 +- Source/Servidor/FactuGES_Server.RES | Bin 23212 -> 23216 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 20 files changed, 147 insertions(+), 44 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas index 66123dad..2e797379 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas @@ -101,7 +101,7 @@ begin if not Self.DataTable.Editing then Edit; IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); - BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; + BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; end; procedure TBizAlbaranCliente.CalcularImporteTotal; diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index c54d23d8..11614573 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -169,12 +169,12 @@ procedure TfEditorAlbaranCliente.frViewTotales1ePortePropertiesValidate( var Error: Boolean); begin inherited; - if not VarIsNull(DisplayValue) then + if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then FAlbaran.IMPORTE_PORTE := DisplayValue else FAlbaran.IMPORTE_PORTE := 0; - RecalcularPortePorUnidad; +// RecalcularPortePorUnidad; En los documentos de cliente no se desglosa el porte por articulo end; function TfEditorAlbaranCliente.GetController: IAlbaranesClienteController; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 78001007..4a0aa078 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -270,6 +270,8 @@ begin AArticulosController := NIL; end; end; + + ADetallesController.ActualizarTotales(ADetalles); end; } diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index 67e6a6bf..e5bc3c67 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas @@ -169,7 +169,7 @@ procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate( var Error: Boolean); begin inherited; - if not VarIsNull(DisplayValue) then + if (not VarIsNull(DisplayValue)) and (length(DisplayValue) > 0) then FAlbaran.IMPORTE_PORTE := DisplayValue else FAlbaran.IMPORTE_PORTE := 0; diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas index 98cecb7a..c437830d 100644 --- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas +++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas @@ -223,7 +223,7 @@ begin if (FieldByName(CAMPO_CANTIDAD).AsInteger <> 0) then begin Edit; - FieldByName(CAMPO_CANTIDAD).AsInteger := -1; + FieldByName(CAMPO_CANTIDAD).AsInteger := (-1) * FieldByName(CAMPO_CANTIDAD).AsInteger; end; Next; end; diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm index eef6710e..b96c9e71 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm +++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm @@ -5,7 +5,7 @@ inherited fEditorCliente: TfEditorCliente ClientHeight = 585 ClientWidth = 656 ExplicitWidth = 664 - ExplicitHeight = 619 + ExplicitHeight = 612 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -65,11 +65,10 @@ inherited fEditorCliente: TfEditorCliente inherited pgPaginas: TPageControl Width = 656 Height = 490 + ActivePage = pagDatosComerciales ExplicitWidth = 656 ExplicitHeight = 490 inherited pagGeneral: TTabSheet - ExplicitLeft = 0 - ExplicitTop = 0 ExplicitWidth = 648 ExplicitHeight = 462 inline frViewCliente1: TfrViewCliente @@ -206,8 +205,6 @@ inherited fEditorCliente: TfEditorCliente Top = 84 ExplicitLeft = 527 ExplicitTop = 84 - ExplicitWidth = 140 - Width = 140 end inherited eFax: TcxDBTextEdit Left = 527 @@ -294,9 +291,23 @@ inherited fEditorCliente: TfEditorCliente Width = 648 LookAndFeel = dxLayoutOfficeLookAndFeel ExplicitWidth = 648 + inherited eEntidad: TcxDBTextEdit + ExplicitWidth = 114 + Width = 114 + end inherited eSucursal: TcxDBTextEdit - Left = 419 - ExplicitLeft = 419 + Left = 418 + ExplicitLeft = 418 + ExplicitWidth = 112 + Width = 112 + end + inherited eCuenta: TcxDBTextEdit + ExplicitWidth = 194 + Width = 194 + end + inherited eTitular: TcxDBTextEdit + ExplicitWidth = 194 + Width = 194 end end end @@ -325,51 +336,67 @@ inherited fEditorCliente: TfEditorCliente LookAndFeel = dxLayoutOfficeLookAndFeel ExplicitWidth = 648 inherited Label1: TLabel - Left = 378 + Left = 340 Top = 30 - Width = 206 - Height = 39 - ExplicitLeft = 378 + Width = 229 + Caption = + 'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' + + 'go de sus recibos.' + ExplicitLeft = 340 ExplicitTop = 30 - ExplicitWidth = 206 - ExplicitHeight = 39 + ExplicitWidth = 229 end inherited eDiasVencimiento: TcxDBSpinEdit - Left = 445 - Top = 75 - ExplicitLeft = 445 - ExplicitTop = 75 + Left = 466 + Top = 62 + ExplicitLeft = 466 + ExplicitTop = 62 ExplicitWidth = 160 Width = 160 end inherited cbRegimenIVA: TcxDBComboBox Top = 30 ExplicitTop = 30 + ExplicitWidth = 121 + Width = 121 end inherited cbRecargoEquivalencia: TcxDBCheckBox Top = 111 ExplicitTop = 111 + ExplicitWidth = 121 + Width = 121 end inherited cbFormaPago: TcxDBLookupComboBox Top = 57 ExplicitTop = 57 + ExplicitWidth = 121 + Width = 121 end inherited bFormasPago: TButton - Left = 218 + Left = 180 Top = 57 - ExplicitLeft = 218 + ExplicitLeft = 180 ExplicitTop = 57 end inherited eIVA: TcxDBLookupComboBox Top = 84 ExplicitTop = 84 + ExplicitWidth = 121 + Width = 121 end inherited bTiposIVA: TButton - Left = 218 + Left = 180 Top = 84 - ExplicitLeft = 218 + ExplicitLeft = 180 ExplicitTop = 84 end + inherited dxLayoutGroup1: TdxLayoutGroup + inherited dxLayoutControl1Group5: TdxLayoutGroup + inherited dxLayoutControl1Item2: TdxLayoutItem + Caption = 'D'#237'a del mes para el pago:' + end + end + end end end end @@ -408,15 +435,31 @@ inherited fEditorCliente: TfEditorCliente Width = 648 ExplicitWidth = 648 inherited ToolButton1: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 62 end inherited ToolButton4: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 74 end + inherited ToolButton5: TToolButton + Top = 0 + ExplicitTop = 0 + end inherited ToolButton2: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 67 end + inherited ToolButton6: TToolButton + Top = 0 + ExplicitTop = 0 + end inherited ToolButton7: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 117 end end @@ -451,15 +494,31 @@ inherited fEditorCliente: TfEditorCliente Width = 648 ExplicitWidth = 648 inherited ToolButton1: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 62 end inherited ToolButton4: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 74 end + inherited ToolButton5: TToolButton + Top = 0 + ExplicitTop = 0 + end inherited ToolButton2: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 67 end + inherited ToolButton6: TToolButton + Top = 0 + ExplicitTop = 0 + end inherited ToolButton7: TToolButton + Top = 0 + ExplicitTop = 0 ExplicitWidth = 117 end end diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 9f290184..8a8771a3 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1062,6 +1062,12 @@ begin else AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento))); end; + + //Comprobamos que la fecha de vencimiento no sea febrero si es asi hay que tratarlo + if (AFactura.Cliente.VENCIMIENTO_FACTURAS > 28) + and (MonthOf(AFechaVencimiento) = 3) and (DayOf(AFechaVencimiento) < 3) then + AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento)); + ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index c17f21dd..0fcb6380 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -136,7 +136,7 @@ begin if not Self.DataTable.Editing then Edit; IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); - BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; + BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; end; procedure TBizFacturaCliente.CalcularDescuento; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 7c6ea988..78cb432a 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -213,12 +213,12 @@ procedure TfEditorFacturaCliente.frViewTotales1ePortePropertiesValidate( begin inherited; - if not VarIsNull(DisplayValue) then + if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then FFactura.IMPORTE_PORTE := DisplayValue else FFactura.IMPORTE_PORTE := 0; - RecalcularPortePorUnidad; +// RecalcularPortePorUnidad; En los documentos de cliente el porte no se desglosa por articulo end; function TfEditorFacturaCliente.GetController: IFacturasClienteController; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm index db1ac050..cbea6d68 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm @@ -96,6 +96,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Kind = skSum Position = spFooter Column = frViewFacturasCliente1.cxGridViewBASE_IMPONIBLE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL end> DataController.Summary.FooterSummaryItems = < item @@ -107,6 +113,11 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Format = ',0.00 '#8364';-,0.00 '#8364 Kind = skSum Column = frViewFacturasCliente1.cxGridViewBASE_IMPONIBLE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL end> inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn Visible = True @@ -130,8 +141,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Width = 240 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 351 - ExplicitLeft = 351 + Left = 367 + ExplicitLeft = 367 + ExplicitWidth = 244 + Width = 244 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 91fcaaad..6d3eec4d 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -209,7 +209,7 @@ procedure TfEditorFacturaProveedor.frViewTotales1ePortePropertiesValidate( var Error: Boolean); begin inherited; - if not VarIsNull(DisplayValue) then + if (not VarIsNull(DisplayValue)) and (length(DisplayValue) > 0) then FFactura.IMPORTE_PORTE := DisplayValue else FFactura.IMPORTE_PORTE := 0; @@ -420,4 +420,4 @@ begin end; end. - \ No newline at end of file + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm index eaeeed0c..9e5f0420 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm @@ -97,6 +97,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Kind = skSum Position = spFooter Column = frViewFacturasProveedor1.cxGridViewIMPORTE_TOTAL + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE end> DataController.Summary.FooterSummaryItems = < item @@ -108,6 +114,11 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Format = '0 facturas' Kind = skCount Column = frViewFacturasProveedor1.cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewFacturasProveedor1.cxGridViewBASE_IMPONIBLE end> end end diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas index 73ab73e3..b52d43c0 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas @@ -100,7 +100,7 @@ begin if not Self.DataTable.Editing then Edit; IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); - BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; + BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; // + IMPORTE_PORTE; no se suma porque ya se desglosa en los articulos end; procedure TBizPedidoProveedor.CalcularImporteTotal; diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas index b026b9b8..6d82c2e1 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas @@ -148,7 +148,7 @@ procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate( var Error: Boolean); begin inherited; - if not VarIsNull(DisplayValue) then + if (not VarIsNull(DisplayValue)) and (length(DisplayValue) > 0) then FPedido.IMPORTE_PORTE := DisplayValue else FPedido.IMPORTE_PORTE := 0; @@ -304,4 +304,4 @@ begin end; end. - \ No newline at end of file + \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index e026904e..7c2396af 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -280,6 +280,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagPortada: TTabSheet Caption = 'Portada' ImageIndex = 3 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object edtPortada: TcxDBRichEdit Left = 0 Top = 0 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index 328bfc3d..eafb6154 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -152,12 +152,12 @@ procedure TfEditorPresupuestoCliente.frViewTotales1ePortePropertiesValidate( var Error: Boolean); begin inherited; - if not VarIsNull(DisplayValue) then + if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then FPresupuesto.IMPORTE_PORTE := DisplayValue else FPresupuesto.IMPORTE_PORTE := 0; - RecalcularPortePorUnidad; +// RecalcularPortePorUnidad; En los documentos de cliente no se desglosa el porte por articulo end; function TfEditorPresupuestoCliente.GetController: IPresupuestosClienteController; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index b290cecb..9365aa8a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -79,14 +79,18 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente DataController.Summary.DefaultGroupSummaryItems = < item Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum Position = spFooter Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewRecibosCliente1.cxGridViewIMPORTE end> DataController.Summary.FooterSummaryItems = < item Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL end item diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm index 18bd8d76..2b5f6145 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm @@ -3,7 +3,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor ClientHeight = 664 ClientWidth = 638 ExplicitWidth = 646 - ExplicitHeight = 698 + ExplicitHeight = 691 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -79,14 +79,18 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor DataController.Summary.DefaultGroupSummaryItems = < item Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum Position = spFooter Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewRecibosProveedor1.cxGridViewIMPORTE end> DataController.Summary.FooterSummaryItems = < item Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL end item diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 7fdb1bd737b89369c17362bc25a7619f65352d82..e31af9c36de72a12648c1a1697f0c452b83b9749 100644 GIT binary patch delta 99 zcmZ3pm2m?Q-HBk_GWl+VJdpew5zQzxIWkh2@!jOw$ZF;y2F=O8BW2Zd88R7OG88c+ tGvqVmFr+dRGw3iVFc>hH0?8C0A4Fy{Bu}=ElIJu6idzA(@#N$vPXMt`zU!%Lk4pOD+Ut=^U3K^o&Y3g8#n*} diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 3675d5a7..aeb6abf0 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "domingo, 25 de noviembre de 2007 17:47\0" + VALUE "CompileDate", "miércoles, 05 de diciembre de 2007 20:03\0" END END BLOCK "VarFileInfo"