Hello experts. I have an error adding the price AP.Lines When I add for example the price of GS 8200 in a bill that is inserted through the code that is posted below. When I look at SAP it appears that the amount of the price is 8201 which corresponds to a rounding problem. There is some method to add correctly and the price entered by the DI API correctly displayed.? For Each row In Grilla.Rows If Grilla.Rows(row.Index).Cells("cod_articulo").Value = "GRA" Then GRPO.Lines.BaseType = "-1" GRPO.Lines.ItemDescription = row.Cells("descripcion").Value GRPO.Lines.AccountCode = "11030101" GRPO.Lines.Quantity = CInt(row.Cells("cant_fp").Value) GRPO.Lines.PriceAfterVAT = row.Cells("precio_fp").Value Else GRPO.Lines.BaseLine = row.Cells("Nro_Linea").Value GRPO.Lines.BaseEntry = CInt(txtdocentry.Text) GRPO.Lines.BaseType = 22 If Grilla.Rows(row.Index).Cells("cod_articulo").Value = "OTGRA" Then GRPO.Lines.AccountCode = "11030101" End If End If GRPO.Lines.ItemCode = row.Cells.Item("cod_articulo").Value GRPO.Lines.TaxCode = row.Cells.Item("IVA").Value If row.Cells.Item("IVA").Value = "IVA_10" Then If txtmoneda.Text = "USD" Then GRPO.Lines.DiscountPercent = row.Cells("desc_linea").Value 'GRPO.Lines.UnitPrice = row.Cells("preciobruto").Value / "1,1" GRPO.Lines.LineTotal = row.Cells("total_line").Value GRPO.Lines.Currency = txtmoneda.Text Else GRPO.Lines.DiscountPercent = row.Cells("desc_linea").Value ' GRPO.Lines.UnitPrice = row.Cells("preciobruto").Value / "1,1" GRPO.Lines.PriceAfterVAT = row.Cells("preciobruto").Value ' GRPO.Lines.RowTotalFC = row.Cells("total_line").Value GRPO.Lines.Currency = txtmoneda.Text End If ElseIf row.Cells.Item("IVA").Value = "IVA_05" Then ' GRPO.Lines.LineTotal = row.Cells("total_line").Value / "1,05" ' GRPO.Lines.DiscountPercent = row.Cells("desc_linea").Value GRPO.Lines.Currency = txtmoneda.Text ElseIf row.Cells.Item("IVA").Value = "IVA_EXE" Then 'GRPO.Lines.LineTotal = row.Cells("total_line").Value 'GRPO.Lines.DiscountPercent = row.Cells("desc_linea").Value GRPO.Lines.Currency = txtmoneda.Text End If If x >= 771716 And row.Cells("IVA").Value <> "IVA_EXE" Then GRPO.Lines.WTLiable = BoYesNoEnum.tYES Else GRPO.Lines.WTLiable = BoYesNoEnum.tNO End If GRPO.Lines.Quantity = CInt(row.Cells("cant_fp").Value) GRPO.Lines.WarehouseCode = SucursalID GRPO.Lines.Add() Next GRPO.Comments = txtcomentario.Text ' GRPO.DocTotal = txttotalfinal.Text If txtmoneda.Text = "USD" Then GRPO.DocTotalFc = txttotalfinal.Text Else ' GRPO.DocTotal = txttotalfinal.Text End If errNum = GRPO.Add Thanks.-
↧