Pular para o conteúdo principal

Postagens

Mostrando postagens de fevereiro, 2013

Usando Listbox

O nome do objeto é tComboBox , mas combo, vem de 'combinação', que no caso deveria permitir digitar no campo, e escolher numa lista, ao mesmo tempo. Como o campo criado por este tComboBox não permite digitar nada, eu o chamo de Listbox. Segue um exemplo, de como fazer listbox usando ADVPL: static function MinhaCombo() local nRBachou, aRBfil:={}, aRBfil2:={} private oDiag01, cCodfil, cOz4Cod @ 0, 0 to 300, 480 dialog oDiag01 title "Exemplo de Listbox" @ 5, 5 say "Filial:" dbselectarea("OZ4") OZ4->(dbgotop()) do while .not. OZ4->(eof()) nRBachou := aScan(aRBfil2, OZ4->OZ4_CODIGO) if nRBachou = 0 aadd(aRBfil2, OZ4->OZ4_CODIGO +" "+ OZ4->OZ4_DESC) endif OZ4->(dbskip()) enddo aRBfil := asort(aRBfil2) cOz4Cod := aRBfil[1] oCombo := tComboBox():new(5,60,{|u|if(pcount()>0,cOz4Cod:=u,cOz4Cod)},aRBfil,100,20,oDiag01,,{||fRBaltera(