//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7;5;20;79;Movimento Financeiro;;;;;
:SKEL
VARIAVEL z_fg_forn = .not.empty(m_cp_num_ped)
VARIAVEL z_fg_trans = (m_grupo=3)
VARIAVEL z_blkprefsubd=_CreateBlock("m_CP_SUBDIV:=if(empty(m_CP_SUBDIV).or.left(m_CP_SUBDIV,3)<>StrZero(m_CP_DIVISAO,3),StrZero(m_CP_DIVISAO,3)+'xx',m_CP_SUBDIV),.t.")
VARIAVEL z_blktipo=_CreateBlock("m_tipo:=left(m_tipo,1),.f.")
//Abra_arq( x_fdbname, x_psq, Area, Rota, xAlias, xv_ntxs, xv_fors)
COMANDO ANTES z_nil=if(sele("SCCPFOR")=0,abra_arq("SCCPFOR"),"")
COMANDO ANTES z_nil=if(sele("CP_DIVIS")=0,abra_arq("CP_DIVIS"),"")
COMANDO ANTES DbSelectArea("SX_CAIXA")
COMANDO ANTES z_nil=if(z_fg_forn ,Alert("Voce nao deve alterar lancamento; de quitacao de duplicata de fornecedor!;Voce Deveria cancelar o lancamento e efetuar nova quitacao!"),"")
COMANDO ANTES z_nil=if(z_fg_trans,Alert("Voce nao pode alterar lancamento;de saque para deposito!;Voce deve cancelar os lancamentos originais;e efetuar novo deposito!"),"")
COMANDO SAIDA cp_divis->(DbCloseArea())
COMANDO SAIDA sccpfor->(DbCloseArea())


: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;Caixa/Banco.:;N; 3;BANCO;999;!z_fg_trans;PSQ_BROW;sx_conta;psxconta;N;S;2;25;ct_titulo;@s18;
 1; 3; 2;Div. Despesa:;N; 3;CP_DIVISAO;999;!z_fg_trans;lastkey()=5.or.psq_brow;cp_divis;pcpdivif;N;N;3;25;desc;@s18;
 1; 4; 2;Centro Custo:;C; 5;CP_SUBDIV;@S5;!z_fg_trans.and.eval(z_blkprefsubd);lastkey()=5.OR.!empty(m_CP_SUBDIV).and.Psq_brow;Cp_Subd;PcpSubdf;N;S;4;25;SdDesc;@S18;
 1; 5; 2;Gr.Contabil.:;N; 1;GRUPO;9;!z_fg_trans;lastkey()=5.or.m_grupo=1.or.m_grupo=2;;;N;;0;0;;;
 1; 5;25;Informar 1 ou 2;

 1; 7; 2;Codigo do Fornecedor:;N; 5;CP_COD_FOR;99999;!z_fg_forn;LastKey()=5.or.psq_brow;SCCPFOR;PSCCPFOR;N;N;7;37;CP_NOME;@S25;
 1; 8; 2;Numero da Duplicata.:;C;10;CP_DUPLIC;@s10;.f.;
 1; 9; 2;Numero do Pedido....:;N;11;cp_num_ped;@s10;.f.;;;;N;
 1;10; 2;Valor do Lancamento.:;N;11;VALOR;99999999.99;!z_fg_forn.and.!z_fg_trans;m_valor>0;;;N
 1;11; 2;Obs. Complementar...:;C;40;DESC;@S40;;;;;N;