//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8; 5;17;75;Tesouraria: Suprimento Avulso;;;;;
:SKEL
*- Inclusao de Retiradas no Caixa  
*- tipo="R" (Suprimentos: Tipo="S")
*- Grupo indica se a saida se refere a um documento fiscal ou se nao.
*- o campo TPLANC esta sem uso no newCX e no sc_capta
*- O campo fg_contab indica se o lancamento foi selecionado no programa cp.exe

*- no arquivo CT_BANCO deve existir o codigo da conta contabil
*- A conta caixa devera estar cadastrada como sendo o sx_conta 999
*- Na verdade nao deveriamos usar o cadastro ct_banco e sim o si_banco(portadores) pois o mesmo
*- permitiria varias contas num mesmo banco.
*- Por enquanto usaremos o ct_banco usando o codigo 999 para a conta caixa.

VARIAVEL m_acesso = reccount()+1
VARIAVEL m_tipo   = "Suprimento"
VARIAVEL m_grupo  = 1
VARIAVEL m_data = s_dAtual
VARIAVEL m_sx_Conta = GetCtaTesou("ES") 
VARIAVEL z_divcompras = "T"
VARIAVEL z_blkdesc=_CreateBlock("m_desc:=if(empty(m_desc),pad('Receb.Ref.a:',len(m_desc)),m_desc),.t.")

COMANDO ANTES DbSelectArea("SX_CAIXA")

// 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;ACESSO;999999;.f.;;;;N;;0;0;;;
 1; 3;50;Tipo .:;C; 8;TIPO;@s8;.f.;;;;N;;0;0;;;
 1; 4;50;Data .:;D; 8;DATA;eval(z_blktipo);;;;;N;;0;0;;;

 1; 2; 2;Conta Tesour:;N; 3;sx_conta;999;;PSQ_BROW;sx_conta;psxconta;N;S;2;25;ct_titulo;@s18; 
 1; 3; 2;Gr.Contabil.:;N; 1;GRUPO;9;;lastkey()=5.or.m_grupo=1.or.m_grupo=2;;;N;;0;0;;;
 1; 3;25;Informar 1 ou 2;

 1; 5; 2;Valor do Suprimento.:;N;11;VALOR;99999999.99;;m_valor>0;;;N;; 0; 0;;;
 1; 7; 2;Obs. Complementar...:;C;40;DESC;@S40;eval(z_blkdesc);!empty(m_desc);;;N;; 0; 0;;;