Se arregla calculo de precio punto porque hay un caso de 3 decimales en un artículo que pierde exactitud. 9,90 articulo balda 1100 * 2,35 precio punto = 23,265 redondeo a 23,27

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@105 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas

@@ -39,7 +39,7 @@ type
 
 implementation
 
-uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase, uFactuGES_App,
+uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase, uFactuGES_App, uNumUtils,
      uCalculosUtils, uDataModuleAlbaranesCliente, uArticulosAlbaranClienteController;
 
 { TDetallesAlbaranClienteController }
@@ -162,7 +162,7 @@ procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStron
 begin
 if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
   if Assigned(AArticulos) then
-    ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
+    ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
   else
     ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
 end;

Source/Modulos/Articulos/Views/uViewArticulo.dfm

@@ -1,6 +1,6 @@
 inherited frViewArticulo: TfrViewArticulo
-  Width = 869
+  Width = 451
-  Height = 464
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -10,19 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
   object dxLayoutControlArticulo: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 869
+    Width = 451
     Height = 393
     Align = alTop
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth]
-    ExplicitWidth = 451
+    ExplicitWidth = 869
     DesignSize = (
-      869
+      451
       393)
     object PngSpeedButton2: TPngSpeedButton
-      Left = 807
+      Left = 546
       Top = 28
       Width = 23
       Height = 22
@@ -49,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton1: TPngSpeedButton
-      Left = 807
+      Left = 546
       Top = 56
       Width = 23
       Height = 22
@@ -123,7 +123,7 @@ inherited frViewArticulo: TfrViewArticulo
       Width = 144
     end
     object eImagen: TcxImage
-      Left = 640
+      Left = 447
       Top = 28
       Properties.GraphicClassName = 'TJPEGImage'
       Properties.ImmediatePost = True
@@ -169,7 +169,7 @@ inherited frViewArticulo: TfrViewArticulo
       Width = 70
     end
     inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
-      Left = 480
+      Left = 219
       Top = 193
       Width = 350
       Height = 202
@@ -182,7 +182,7 @@ inherited frViewArticulo: TfrViewArticulo
       ParentFont = False
       TabOrder = 14
       ReadOnly = False
-      ExplicitLeft = 480
+      ExplicitLeft = 219
       ExplicitTop = 193
       inherited dxLayoutControl1: TdxLayoutControl
         inherited edtNIFCIF: TcxDBTextEdit
@@ -314,7 +314,7 @@ inherited frViewArticulo: TfrViewArticulo
       Width = 86
     end
     object cbNoInventariable: TcxDBCheckBox
-      Left = 383
+      Left = 265
       Top = 136
       Caption = 'Art'#237'culo no inventariable'
       DataBinding.DataField = 'INVENTARIABLE'

Source/Modulos/Articulos/Views/uViewArticulo.pas

@@ -109,7 +109,7 @@ type
 
 implementation
 
-uses uFactuGES_App, uDataModuleArticulos, uSistemaFunc, uBizFamilias, uBizSubFamilias, uBizContactos;
+uses uFactuGES_App, uDataModuleArticulos, uSistemaFunc, uBizFamilias, uBizSubFamilias, uBizContactos, uNumUtils;
 
 {$R *.dfm}
 
@@ -293,7 +293,7 @@ end;
 
 procedure TfrViewArticulo.PuntosChanged(Sender: TObject);
 begin
-  ePrecioPVP2.Value := Articulo.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
+  ePrecioPVP2.Value := RoundCurrency(Articulo.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO);
 end;
 
 procedure TfrViewArticulo.SalvarImagen;

Source/Modulos/Articulos/Views/uViewArticulos.dfm

@@ -189,6 +189,7 @@ inherited frViewArticulos: TfrViewArticulos
   end
   inherited pnlAgrupaciones: TTBXDockablePanel
     Visible = True
+    ExplicitWidth = 128
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
       inherited TBXToolbar1: TTBXToolbar
         object TBXSeparatorItem1: TTBXSeparatorItem

Source/Modulos/Articulos/Views/uViewArticulos.pas

@@ -63,7 +63,7 @@ implementation
 
 uses //uDataModuleArticulos,
 
-schArticulosClient_Intf, uFactuGES_App;
+schArticulosClient_Intf, uFactuGES_App, uNumUtils;
 
 
 { TfrViewArticulos }
@@ -187,7 +187,8 @@ begin
   
   if not VarIsNull(ARecord.Values[cxGridViewPRECIO_COSTE.Index]) then
      if not VarIsNull(AppFactuGES.EmpresaActiva.PRECIO_PUNTO) then
-        ImportePVP := ARecord.Values[cxGridViewPRECIO_COSTE.Index] * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
+
+        ImportePVP := RoundCurrency(ARecord.Values[cxGridViewPRECIO_COSTE.Index] * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
      else
         ImportePVP := 0;
 

Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas

@@ -53,7 +53,7 @@ type
 implementation
 
 uses Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModuleContratosCliente,
-     uArticulosContratoClienteController, schContratosClienteClient_Intf,
+     uArticulosContratoClienteController, schContratosClienteClient_Intf, uNumUtils,
      uDataTableUtils, uCalculosUtils,
      //uIEditorAsignarDescuento,
      uEditorRegistryUtils, uFactuGES_App;
@@ -229,7 +229,7 @@ procedure TDetallesContratoClienteController.RellenarImportes(ADetalles: IDAStro
 begin
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then
-       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
+       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
      else
        ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
 end;

Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas

@@ -46,7 +46,7 @@ implementation
 
 { TDetallesFacturaClienteController }
 
-uses Variants, uDataModuleFacturasCliente, uArticulosFacturaClienteController,
+uses Variants, uDataModuleFacturasCliente, uArticulosFacturaClienteController, uNumUtils,
   uControllerDetallesBase, Dialogs, uDialogUtils, SysUtils, uCalculosUtils, uFactuGES_App;
 
 procedure TDetallesFacturaClienteController.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente);
@@ -169,7 +169,7 @@ end;
 procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
 begin
   if Assigned(AArticulos) then
-    ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
+    ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
   else
     ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
 end;

Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas

@@ -59,7 +59,7 @@ implementation
 
 uses
   DB, Controls, SysUtils, Dialogs, uDAInterfaces, uDialogUtils, Variants, uDataModulePresupuestosCliente,
-   uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf,
+   uArticulosPresupuestoClienteController, schPresupuestosClienteClient_Intf, uNumUtils,
    uDataTableUtils, uCalculosUtils, uIEditorAsignarDescuento, uEditorRegistryUtils,
    uFactuGES_App, Windows;
 
@@ -309,7 +309,7 @@ procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAS
 begin
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then
-       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
+       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
      else
        ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
 end;