From 1983c0c46837476cb0b52c0aed0d2e1c84cfb429 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 4 Nov 2015 18:22:57 +0000 Subject: [PATCH] Se arregla calculo dto en articulos y al mandar un presupuesto por email, poner presupuesto en asunto git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@242 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- Source/Modulos/Articulos/Controller/uArticulosController.pas | 3 +++ .../Controller/uPresupuestosClienteController.pas | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 66be4d5..0f0b30e 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -428,6 +428,8 @@ begin if (AArticulo.Proveedores.DataTable.State in dsEditModes) then AArticulo.Proveedores.DataTable.Post; +// showmessage(FloatToStr(AArticulo.DESCUENTO)); + if Length(AArticulo.DESCRIPCION) = 0 then raise Exception.Create('Debe indicar al menos la descripción de este artículo.'); @@ -435,6 +437,7 @@ begin AArticulo.Edit; try AArticulo.USUARIO := AppFactuGES.UsuarioActivo.UserName; + AArticulo.PRECIO_NETO := AArticulo.PRECIO_COSTE - ((AArticulo.PRECIO_COSTE * AArticulo.DESCUENTO)/100); Result := True; finally AArticulo.Post; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 4dee1d3..799ffea 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -813,7 +813,7 @@ begin if not EsCadenaVacia(AAsuntoEMail) then AAsunto := AAsuntoEMail else - AAsunto := 'Pedido ' + APresupuesto.REFERENCIA; + AAsunto := 'Presupuesto ' + APresupuesto.REFERENCIA; ShowHourglassCursor; Application.ProcessMessages;