Código:
|
dim drPRoducto as datarow()
drProducto = ds.Tables("Productos").select(string.format("IDProducto='{0}'",nstring(dr("IDProducto"))),"")
if drProducto.Length = 0 then MessageBox.Show("No se encontró el producto"): exit sub
dim Total as double = InputBox("Monto pagado")
dim Cantidad as double = 1
dr("Cantidad") = Cantidad
dr("Precio") = Total / 1.16
dr("PrecioCosto") = Total / 1.16
dr("IVA") = (Total / 1.16) * .16
|
