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 Factor as Double = (ndouble(drProducto(0).item("PPrecioCosto"))) + ((ndouble(drProducto(0).item("PPrecioCosto")) - ndouble(drProducto(0).item("PTasaIEPS"))) * ndouble(drProducto(0).item("PTasaIVA")))
          dim Liros as Double = Total / Factor
         
          dim Cantidad as double = Liros
          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 else
         
         
  End Select