PSQRSP;Pesquisa de Satisfacao de Funcionarios;sys_tbbrow; 3; 0;23;79;padrao;;eval(z_blkPpo)
:SKEL
VARIAVEL w_colsep = " "+chr(176)
VARIAVEL Z_BLOCK = {|xCodQst| PsqQst->(dbGoto(xCodQst)), PsqQst->Questao}
VARIAVEL Z_XTELA = SAVESCREEN(3,0,7,79)
VARIAVEL z_blkPpo =            "Z_COR := SetColor('B/W'),"
VARIAVEL z_blkPpo = z_blkPpo + "Scroll(3,0,9,79,0),DispBox(3,0,9,79),"
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,2), DevOut(memoline(obs,76,1)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(5,2), DevOut(memoline(obs,76,2)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(6,2), DevOut(memoline(obs,76,3)),'
VARIAVEL z_blkPpo = z_blkPpo + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_blkPpo )
COMANDO DEPOIS Z_NIL = RESTSCREEN(3,0,9,79,Z_XTELA)
COMANDO ANTES Z_NIL = ABRA("0",r_siga,"PsqQst","PsqQst")
COMANDO DEPOIS Z_NIL = IF(SELE("PsqQst")>0, PsqQst->( DbCloseArea() ),"")
:TBMT
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
  7;tb_del(D_ob);DEL-DELeta ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
:TBFI
Pergunta;eval(z_block,CodQst);C;@s30;30;N;
Resposta;resposta;N;9999;4;;
Obs;Alltrim(Memoline(Obs,60,1));C;@s40;40;;
Data;DATA;D;;8;;
Hora;HORA;C;@S8;8;;
Lj;FLOJA;N;99;2;;
Matr;Fnumero;N;9999;4;;
