/*
   Sintaxe: MONTABRW()
   Funcao.: Monta janela de visualiza‡„o da consulta
   Retorna: NIL
*/
STATIC FUNC MONTABRW()
LOCAL id_carg:={}
op_sis   = EVAL(qualsis,ALIAS())       // subscricao do arquivo atual
arq_cor  = LEFT(ALIAS(),3)             // prefixo do arquivo
id_carg  = br_w:cargo                  // variaveis da consulta
criterio = id_carg[1]                  // filtro
cpord    = id_carg[2]                  // ordenacao
chv_rela = id_carg[3]                  // relacao
ind_ord  = id_carg[4]                  // indice atual
cmr_     = id_carg[5]                  // marcacao de registros
DBSETORDER(ind_ord)                    // escolhe o indice atual
PEGACHV2()                             // pega final do relaciomento
SETCOLOR(drvcorbox)                    // cor da janela selecionada

#ifdef COM_MOUSE
 IF drvmouse                           // define area de atuacao do mouse
  MOUSEBOX(br_w:ntop-1,br_w:nleft-1,br_w:nbottom+1,br_w:nright+1)
 ENDI
#endi


/*
   Monta janela de consulta e mensagens de status e teclas disponiveis
   nas suas bordas
*/
CAIXA(mold+CHR(0),br_w:ntop-2, br_w:nleft-1, br_w:nbottom+1, br_w:nright+1)
@ br_w:ntop-2,br_w:nleft SAY IF(EMPTY(criterio),"{Qde="+LTRIM(STR(RECC(),10))+"}",REPL(SUBS(mold,2,1),11))

If lMostraRodapeBrw  // mostra ou esconde rodape
 msg="TAB [ ],F10"+IF(SETKEY(K_F8)=NIL,"",",F8")+IF((M->v_out.AND.tem_t).OR.!M->v_out,",F9","")
EndIf

#ifdef COM_MOUSE
 IF drvmouse                           // botoes do mouse
  msg+=" "+CHR(174)+" "+CHR(175)+" "+CHR(30)+" "+CHR(31)+" "+CHR(24)+" "+CHR(26)+" "+CHR(25)+" "+CHR(27)+" "+CHR(18)
 ENDI
#endi

If lMostraRodapeBrw  // mostra ou esconde rodape
 msg=LEFT(msg,br_w:nright-br_w:nleft)
 posi_cur=INT((br_w:nright-br_w:nleft-LEN(msg))/2)
 @ br_w:nbottom+1,br_w:nleft+posi_cur SAY msg
 @ br_w:nbottom+1,br_w:nleft+posi_cur+5 SAY CHR(VAL(SUBS(di_tecl,dir_cur*2-1,2)))
EndIf

x=br_w:nright-br_w:nleft+1
@ br_w:ntop-1,br_w:nleft SAY PADC(MAIUSC(tit_cons[IF(br_w == br_origem,1,2)]),x,' ')
RETU NIL