Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@105 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2015-05-04 15:46:17 +00:00
parent 6d71fe0679
commit d1bd05623d
11 changed files with 25 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

4
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -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;

22
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo
Width = 869
Height = 464
Width = 451
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'

4
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -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;

1
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

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

5
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -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;

4
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -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;

4
Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
View File

@ -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;

4
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -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;

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.