From 456e4348e2dd4baabb1a60a6c9ce7dbccae82390 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 19 May 2014 10:40:57 +0000 Subject: [PATCH] Se cambia informe de presupuestos de cliente de keiblair para no incluir iva solicitado por luis leon, se arregla varias cosas mas git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@225 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- Source/Base/Utiles/uNumUtils.pas | 5 +- Source/Informes/6/InfPresupuestoCliente.fr3 | 11 +- .../Views/uViewAlbaranesCliente.dfm | 2 - .../Views/uViewAlbaranesCliente.pas | 3 +- .../Views/uViewAlbaranesProveedor.dfm | 8 +- .../Views/uViewAlbaranesProveedor.pas | 3 +- .../Contactos/Views/Contactos_view.identcache | Bin 4009 -> 4009 bytes .../Views/uViewPedidosProveedor.dfm | 2 - .../Views/uViewPedidosProveedor.pas | 3 +- .../Views/PedidosCliente_view.dproj | 126 +++++++++--------- .../Views/uViewPedidosCliente.dfm | 2 - .../Views/uViewPedidosCliente.pas | 3 +- .../Views/uViewPresupuestosCliente.dfm | 2 - .../Views/uViewPresupuestosCliente.pas | 3 +- .../Controller/TiposDocumento_controller.dcu | Bin 16263 -> 16262 bytes Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23204 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 17 files changed, 88 insertions(+), 87 deletions(-) diff --git a/Source/Base/Utiles/uNumUtils.pas b/Source/Base/Utiles/uNumUtils.pas index 8a0ec3e..aa75542 100644 --- a/Source/Base/Utiles/uNumUtils.pas +++ b/Source/Base/Utiles/uNumUtils.pas @@ -110,7 +110,10 @@ var begin Cadena := ''; Entero := Trunc(Cifra); - Decimal := Trunc(((Cifra - Entero) * 100)); + + //Se quita el trunc ya que falla el redondeo y hay desfase de 1 centimo +// Decimal := Trunc(((Cifra - Entero) * 100)); + Decimal := Round((Cifra - Entero) * 100); if (Decimal > 0) then Cadena := ' CON ' + IntToLetras(Decimal) + ' CÉNTIMOS'; diff --git a/Source/Informes/6/InfPresupuestoCliente.fr3 b/Source/Informes/6/InfPresupuestoCliente.fr3 index 6124b16..3592be6 100644 --- a/Source/Informes/6/InfPresupuestoCliente.fr3 +++ b/Source/Informes/6/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -13,12 +13,13 @@ - - + + - - + + + diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm index 6cd301f..3e47635 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm @@ -258,8 +258,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 638 - ExplicitWidth = 215 - Width = 215 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas index f7deaff..fe97b9d 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas @@ -271,7 +271,8 @@ begin if (ARecord.Values[Sender.Index] = '1') then begin AIsHintMultiLine := True; - AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] + if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then + AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]; end; end; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm index 2fdd710..3bc2cdc 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm @@ -209,22 +209,22 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor Width = 188 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 229 + Left = 210 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 229 + ExplicitLeft = 210 ExplicitWidth = 294 Width = 294 end inherited eLista: TcxComboBox - Left = 487 + Left = 447 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 487 + ExplicitLeft = 447 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas index 6abafde..960277d 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas @@ -218,7 +218,8 @@ begin if (ARecord.Values[Sender.Index] = '1') then begin AIsHintMultiLine := True; - AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] + if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then + AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]; end; end; diff --git a/Source/Modulos/Contactos/Views/Contactos_view.identcache b/Source/Modulos/Contactos/Views/Contactos_view.identcache index f620e68ad76e073e84475cf7e1cf934192cb459f..51f84e6da4ecd63f55fe1b1b62676fd465a45e3a 100644 GIT binary patch delta 244 zcmZ1}zfyjK72{+nCd0`ynPewV;4z%Ml`(a40-yFIPS(lyS=lG&v2ad4!!9}bEwlFI z39RyyqxcOcKWCByE3M_0n9Rx?G5I`;{^qO9jv#aVfE6!7iLbOL3-YJ}&D5T3z|68afkTLK^J&h_jFbDB z#V7Og1p=}DbKzs58PL@eL3P5wf%*o4`q$hFdPxfWvnEaM?%jDN= zZj%K#wI|oJu}%KVqcU-_{^SI9jmdIMk&`>veV_(#ZI0yNVVt~=H*#|-=Vr#qc0k1* z%z~2}xC1A?(w_XEU3IboPZZdRulXb5W6Pv PX@I@v!6!MHnSU7on{P{d diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm index cd8c925..3e8eac6 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm @@ -244,8 +244,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 673 - ExplicitWidth = 215 - Width = 215 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas index 87e2175..3634ed6 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas @@ -220,7 +220,8 @@ begin if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then begin AIsHintMultiLine := True; - AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] + if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then + AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]; end; end; diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj index a33733e..9cd2cd6 100644 --- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj @@ -49,69 +49,69 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
frDialogListaPedidosClienteEnvioEMail
T diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm index 820f284..afb76cd 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm @@ -211,8 +211,6 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 673 - ExplicitWidth = 215 - Width = 215 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas index c1c4b07..4cc598b 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas @@ -196,7 +196,8 @@ begin if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then begin AIsHintMultiLine := True; - AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] + if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then + AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]; end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm index 90b900b..507b56a 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm @@ -203,8 +203,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 757 - ExplicitWidth = 215 - Width = 215 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas index cd130d7..0a53b15 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas @@ -277,7 +277,8 @@ begin if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then begin AIsHintMultiLine := True; - AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] + if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then + AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]; end; end; diff --git a/Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu b/Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu index e279e137fd82ce54af3727af45d8eba53117bc84..e7f20e0a3b96b33572be27d6ba8b9d11d196bef2 100644 GIT binary patch delta 65 zcmZp#Z>#54W?&F%vu9v9n7Mo+w>qC-vQGLlHwJL(XK!C}B<`215ob22%!$$+1!H06e)HCIA2c diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index c77a845..c4daa2d 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "4.3.9.0\0" VALUE "ProductVersion", "4.3.9.0\0" - VALUE "CompileDate", "jueves, 03 de abril de 2014 21:58\0" + VALUE "CompileDate", "miércoles, 07 de mayo de 2014 13:13\0" END END BLOCK "VarFileInfo"