//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 5;19;75;Pedir Autorizacao p/ Vale/Adiantamento;;;;;
:SKEL
VARIAVEL m_aut_por = space(20)
VARIAVEL m_paraquem = space(20)
VARIAVEL m_referencia = space(20)
VARIAVEL m_cod_adiant = 0
VARIAVEL m_cp_cod_for = val(xGetEnv("TESOUAD"))
VARIAVEL wAutorizadoresDePagamento := hb_atokens( xGetEnv("TESOU_AUTORIZADORES"), ",")
VARIAVEL wAutorizadoresDePagamento := if(len(wAutorizadoresDePagamento)=0, {sys_usuario}, wAutorizadoresDePagamento)
VARIAVEL m_cp_tip_lqd = 1
VARIAVEL m_sx_acesso = reccount()+1
VARIAVEL m_tipo   = "Retirada"
VARIAVEL m_grupo  = 3
VARIAVEL m_fg_contab = " "
VARIAVEL m_data  = s_datual
VARIAVEL m_sx_conta = if( val(getenv("TESOURARIA")) =0, 999, val(getenv("TESOURARIA")) )
VARIAVEL z_blktipo={||m_tipo:=left(m_tipo,1),.f.}
VARIAVEL z_blkdesc={||m_desc:=if(empty(m_desc),pad('Adiant a '+alltrim(m_paraquem)+' ref '+alltrim(m_referencia),len(m_desc)),m_desc),RefreshGetList()}

VARIAVEL z_divcompras = " "
COMANDO ANTES z_nil=if(sele("CP_DIVIS")=0,abra_arq("CP_DIVIS"),"")
COMANDO ANTES DbSelectArea("SX_CXAUT")

COMANDO SAIDA cp_divis->(DbCloseArea())
// 1;11; 2;Historico Contabil..:;N; 5;CODHIS;999;;PSQ_BROW;ARQ_HIST;PARQHIST;N;N;11;35;CT_DESC;@S30;

:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2;50;Acesso:;N; 6;sx_ACESSO;999999;.f.;;;
 1; 3;50;Tipo .:;C; 8;TIPO;@s8;.f.;;;
 1; 4;50;Data .:;D; 8;DATA;;;

 1; 3; 2;Adiantado Para.:;P;20;m_paraquem;!!!!!!!!!!!!!!!!!!!!;;;;
 1; 4; 2;Referente a Que:;P;20;m_Referencia;!!!!!!!!!!!!!!!!!!!!;;;;
 1; 5; 2;Autorizado Por :;P;20;m_aut_por;!!!!!!!!!!!!!!!!!!!!;;LISTBOX 20,5,wAutorizadoresDePagamento;;;

 1; 7; 2;Adiantado pelo Caixa....:;N; 3;sx_conta;999;;Chk_LastKey(5).or.PSQ_BROW;sx_conta;psxconta;N;S;7;35;ct_titulo;@s18; 
 1; 8; 2;Conta Controle dos Vales:;N; 3;CP_COD_FOR;99999;;Chk_LastKey(5).or.PSQ_BROW;sx_conta;psxconta;N;S;8;35;ct_titulo;@s18; 

 1;10; 2;Valor do Adiantamento...:;N;11;VALOR;99999999.99;;m_valor>0;;;N;
 1;11; 2;Adiant a QUEM e PARA QUE:;C;40;DESC;@S40;eval(z_blkdesc);;;;N;
