-- cambio en mejora en formato de valor unitario PAC 3
This commit is contained in:
@@ -1472,8 +1472,8 @@ Public Class Timbrado
|
|||||||
If concep.Unidad <> "" Then comprobante.Conceptos(i).Unidad = concep.Unidad
|
If concep.Unidad <> "" Then comprobante.Conceptos(i).Unidad = concep.Unidad
|
||||||
comprobante.Conceptos(i).ClaveUnidad = concep.ClaveUnidad
|
comprobante.Conceptos(i).ClaveUnidad = concep.ClaveUnidad
|
||||||
comprobante.Conceptos(i).Descripcion = concep.Descripcion
|
comprobante.Conceptos(i).Descripcion = concep.Descripcion
|
||||||
comprobante.Conceptos(i).ValorUnitario = concep.ValorUnitario.RoundSQL(6)
|
comprobante.Conceptos(i).ValorUnitario = Decimal.Parse(concep.ValorUnitario.ToString("0.00####")) ' formateo forzoso, ej,2543.1
|
||||||
comprobante.Conceptos(i).Importe = concep.Importe.RoundSQL(NumDecimalesImporte)
|
comprobante.Conceptos(i).Importe = Decimal.Parse(concep.Importe.RoundSQL(NumDecimalesImporte).ToString("0.00")) ' formateo forzoso, ej,2543.1
|
||||||
comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
|
comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
|
||||||
comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto
|
comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user