PC Toledo

Código: Selecionar todos

get cOpc1 valid setLista()
get lbLISTA
LISTBOX {"teste1","teste2,"teste3","teste4"} when empty(cOpc1)

//até ai td bem.

// Esta função abaixo é para apagar o conteúdo do listbox caso o campo cOpc seja preenchido.
function setLista
  if ! empty(cOpc1)
     lbLISTA = space(06)
  endif
return .t.

Código: Selecionar todos

LOCAL oCIDADE;
	, nI;

	DO WHILE .T.
	
		FOR nI = Len( aMunicipios ) TO 1 STEP -1
		   hb_ADel( aMunicipios, nI, .T. )
		NEXT
		IF Len(aMunicipios) <= 0
			EXIT
		ENDIF
	ENDDO
	FOR EACH oCIDADE IN SEFAZ_CIDADE
		IF oCIDADE[1] == mUF
			AAdd(aMunicipios,oCIDADE[3])
		ENDIF
	NEXT

 RETURN NIL

Código: Selecionar todos

LOCAL cOpc1, aOpcList := {}

@ 1, 0 get cOpc1 VALID SetLista( cOpc1, @aList )
@ 2, 0 get aList LISTBOX aOpcList when empty( cOpc1 )

function setLista( cOpc1, aList )

  if empty( cOpc1 )
      aList := {"teste1","teste2,"teste3","teste4"}
   else
     aList := {}
  endif

   return .t.

Código: Selecionar todos

PROCEDURE Main

   LOCAL cOpc1 := Space(3), x := Space(1), GetList := {}

   SetMode( 30, 100 )
   CLS
   @ 1, 0 GET cOpc1 VALID Check( @cOpc1 )
   @ 3, 0 GET x
   READ

   RETURN

FUNCTION Check( cOpc1 )

   LOCAL nTest := 1, GetList := {}
   LOCAL aList := { "teste1","teste2","teste3","teste4" }

   IF ! Empty( cOpc1 )
      RETURN .T.
   ENDIF
   SAVE SCREEN
   @ 2, 0, 8, 10 GET nTest LISTBOX aList 
   READ
   RESTORE SCREEN

   RETURN .T.