Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arregla calculo dto en articulos y al mandar un presupuesto por email, poner presupuesto en asunto

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@242 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2015-11-04 18:22:57 +00:00
parent 4213975874
commit 1983c0c468
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -428,6 +428,8 @@ begin
if (AArticulo.Proveedores.DataTable.State in dsEditModes) then if (AArticulo.Proveedores.DataTable.State in dsEditModes) then
AArticulo.Proveedores.DataTable.Post; AArticulo.Proveedores.DataTable.Post;
// showmessage(FloatToStr(AArticulo.DESCUENTO));
if Length(AArticulo.DESCRIPCION) = 0 then if Length(AArticulo.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos la descripción de este artículo.'); raise Exception.Create('Debe indicar al menos la descripción de este artículo.');
@ -435,6 +437,7 @@ begin
AArticulo.Edit; AArticulo.Edit;
try try
AArticulo.USUARIO := AppFactuGES.UsuarioActivo.UserName; AArticulo.USUARIO := AppFactuGES.UsuarioActivo.UserName;
AArticulo.PRECIO_NETO := AArticulo.PRECIO_COSTE - ((AArticulo.PRECIO_COSTE * AArticulo.DESCUENTO)/100);
Result := True; Result := True;
finally finally
AArticulo.Post; AArticulo.Post;

2
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -813,7 +813,7 @@ begin
if not EsCadenaVacia(AAsuntoEMail) then if not EsCadenaVacia(AAsuntoEMail) then
AAsunto := AAsuntoEMail AAsunto := AAsuntoEMail
else else
AAsunto := 'Pedido ' + APresupuesto.REFERENCIA; AAsunto := 'Presupuesto ' + APresupuesto.REFERENCIA;
ShowHourglassCursor; ShowHourglassCursor;
Application.ProcessMessages; Application.ProcessMessages;