Boleta de ventas en power builder 12.0

USO DE CONTROL LISTBOX Y DROPDOWNLISTBOX

Boleta de ventas en power builder 12.0

1. Diseña el formulario como la imagen

2 Codigo fuente

st_fecha.text=string(today())

st_hora.text=string(now())

//st_fecha.text=string(time())

lb_lista.additem("Piura")

lb_lista.additem("Tacna")

lb_lista.additem("Amazonas")

lb_lista.additem("Arequipa")

lb_lista.additem("Puno")

lb_lista.additem("Cuzco")

//carga des cuentos

ddplb_descuento.additem("2")

ddplb_descuento.additem("3")

ddplb_descuento.additem("4")

ddplb_descuento.additem("5")

ddplb_descuento.additem("6")

ddplb_descuento.additem("7")

ddplb_descuento.additem("8")

ddplb_descuento.additem("9")

function

double p,des,extra,a,b

choose case lb_lista.selectedindex()

                case 1

                               p=118

                               case 2

                                               p=165

                               case 3

                                               p=120

                               case 4

                                               p=140

                               case 5

                                               p=150

                                               case 6

                                               p=160

                end choose

               

                st_costo.text=string(p,"##0.00")

                               a=double(st_costo.text)*double(em_cantidad.text)

                               b=double(a)*double(ddplb_descuento.text)/100

                               st_des.text=string(b,"##0.00")

                st_netopagar.text=string(double(a)-double(st_des.text),"##0.00")