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 Tipo as integer = InputBox("Tipo de Cálculo 1=Por Litro 2=Por Importe Total")
Select Case Tipo
Case "1"
dim Cantidad as double = InputBox("Inserte los litros")
dim ImporteIEPS as Double = Cantidad * ndouble(drProducto(0).item("PTasaIEPS"))
dim SubTotal as Double = ndouble(drProducto(0).item("PPrecioCosto")) * Cantidad - ImporteIEPS
dr("Cantidad") = Cantidad
dr("Precio") = ndouble(drProducto(0).item("PPrecioCosto"))
dr("IVA") = SubTotal * ndouble(drProducto(0).item("PTasaIVA"))
case "2"
dim Total as double = InputBox("Inserte el monto pagado")
Dim CostoUnitarioSinIEPS as double = ndouble(drProducto(0).item("PPrecioCosto")) - ndouble(drProducto(0).item("PTasaIEPS"))
Dim CostoUnitarioIVA as double = CostoUnitarioSinIEPS * ndouble(drProducto(0).item("PTasaIVA"))
DIM CostoTotal as double = ndouble(drProducto(0).item("PPrecioCosto")) + CostoUnitarioIVA
Dim Litros as double = Total / CostoTotal
dr("Cantidad") = Litros
dr("Precio") = ndouble(drProducto(0).item("PPrecioCosto"))
dr("PrecioCosto") = ndouble(drProducto(0).item("PPrecioCosto"))
dr("IVA") = CostoUnitarioIVA * Litros
case else
End Select
|
