7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder

1/4

DISEAR EL SIGUIENTE FORMULARIO

Listado de pases.

Codigo fuente

CODIGO:

Boton mostrar:

lb_lista1.additem(sle_pais.text)

sle_pais.text=""

mostar()

Boton delete:

if lb_lista2.selectedIndex()=-1 then

//if lb_lista1.selectedIndex()=-1 and lb_lista2.selectedIndex() = -1 then

messagebox("error","selecciona un elemento")

else

//lb_lista1.deleteitem(lb_lista1.selectedindex())

lb_lista2.deleteitem(lb_lista2.selectedindex())

end if

mostar()

http://2.bp.blogspot.com/-Sbl_v_CHhmA/TdGpRAuezuI/AAAAAAAAAFw/GZs9zbhoFbw/s1600/Dibujo.JPG

7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder

2/4

Boton >

Integer i

For i=1 To lb_lista1.totalitems()

lb_lista1.selectitem(i)

lb_lista2.additem(lb_lista1.selecteditem())

Next

lb_lista1.reset()

mostar()

Boton >:

If lb_LISTA1.selectedindex() < 0 Then

Messagebox("Error","Seleccione un Registro")

Else

lb_lista2.additem(lb_lista1.selecteditem())

lb_lista1.deleteitem(lb_lista1.selectedindex())

End Ifmostar()

Nuevo:

lb_lista1.reset()

lb_lista2.reset()

mostar()

7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder

3/4

PRACTICA 03 (Signo Zodiacal en power builder)

Codigo Fuente:

Botn apply:intdia,mes,ao,szodiaco

string zdatefec

dia=integer(sle_dia.text)mes=integer(sle_mes.text)ao=integer(sle_ao.text)fec=today()szodiaco=integer(right(string(fec),4))ifdia>=21 and mes=3 or dia=20 and mes=4 or dia=21 and mes=5 or dia=21 and mes=6 or dia=23 and mes=7 or dia=23 and mes=8 or dia=23 and mes=9 or dia

7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder

4/4

elseifdia>=23 and mes=10 or dia=22 and mes=11 or dia=21 and mes=12 or dia=20 and mes=1 or dia=19 and mes=2 or dia