!...En esta oportunidad les comparto el siguiente .articulo de siguiente controles..en (Power Builder12.0)..!.
venta de artefactos
message al agregar producto
CODIGO FUENTE.
Botón ADD
dec b,a,c
dec suma
if messagebox("agregar","estas seguro de agregar este producto",information!,yesno!)=1 then
lb_producto.additem(ddlb_producto.text)
lb_precio.additem(string(sle_precio.text))
lb_cantidad.additem(string(em_cantidad.text))
c=integer(sle_precio.text)*integer(em_cantidad.text)
lb_subtotal1.additem(string(c))
a=dec(c)/dec(st_dolar.text)
lb_subtotal2.additem (string(round(a,2)))
st_totaldolar.text=string(integer(st_totaldolar.text)+integer(a)," #,##0.00")
st_neto.text=string(integer(st_neto.text)+integer(c)," #,##0.00")
end if
El siguiente codigo en el evento open del formulario..!
