//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 0;19;79;Orcamento;;;;;
:SKEL 
VARIAVEL _zfok = .f.
VARIAVEL m_dgtprods="N"
VARIAVEL z_var="bx_ok:=Val(Left(m_CP_SubDiv,3))==M_CP_DIVISAO, "
VARIAVEL z_var=z_var+"If(bx_ok,.t.,Mensagem('Subdivisao Informada ('+Left(m_CP_SubDiv,3)+') nao Pertence a Divisao '+Str(m_cp_divisao,3))),bx_ok"
VARIAVEL z_blksubdiv=_CreateBlock(z_var)
VARIAVEL z_blkprefsubd=_CreateBlock("m_CP_SUBDIV:=StrZero(m_CP_DIVISAO,3)+'xx',.t.")
VARIAVEL z_var="_zfok:=(m_cp_cod_for>0),m_CP_FANTASI:=Iif(_zfok,sccpfor->cp_fantasi,m_CP_FANTASI),m_CP_FONE:=Iif(_zfok,sccpfor->CP_FONE,m_CP_FONE)"
VARIAVEL z_var=z_var+",m_CP_contato:=Iif(_zfok,sccpfor->CP_contato,m_CP_contato),_zfok"
VARIAVEL z_blkfant=_CreateBlock(z_var)
VARIAVEL z_var=""
// VARIAVEL z_blforn=_CreateBlock("m_CP_SUBDIV:=StrZero(m_CP_DIVISAO,3)+'xx',.t.")
//COMANDO ANTES abra_arq("SE_PEXP")
COMANDO ANTES abra_arq("SCCPFOR")
COMANDO ANTES abra_arq("CP_DIVIS")
//COMANDO ANTES z_nil=dbSetFilter(_CreateBlock('DepCompras="S"'),'DepCompras="S"')
COMANDO ANTES DbGoTop()
COMANDO ANTES DbSelectArea("sx_pgto")
COMANDO SAIDA sccpfor->(DbCloseArea())
COMANDO SAIDA cp_divis->(DbCloseArea())
 1;10; 1;Codigo do Produto.....:;N; 5;PCOD;99999;;psq_brow;se_prod;PSEPROD;N;S; 0; 0;;;
 1;11; 1;Descricao do Produto..:;C;30;Pdesc;@!30;;;;;N;; 0; 0;;;
 1;12; 1;Unidade de Compra.....:;C; 6;PUNIDADE;@S6;;;;;N;; 0; 0;;; 
 1;13; 1;Ultimo Preco de Compra:;N;12;PVLUVENDA;9999999.99;;;;;N;; 0; 0;;;
 1;14; 1;Quantidade da Compra..:;N;10;MQUANT;99999.99;;;;;N;; 0; 0;;;
  
 
 1;16; 1;Digita Produtos.......?;P; 5;m_dgtprods;!;;
 
 
// 2; 2; 1;CR_SITUACA;C; 1;CR_SITUACA;x;;;;;N;; 0; 0;;;
// 1; 2; 1;Pagto no Caixa/Banco:;C; 3;BANCO;xxx;;;;;N;; 0; 0;;;

// 1; 6; 1;Fantasia do Fornecedor....:;C;15;CP_FANTASI;@S15;eval(z_blkfant);;;;N;; 0; 0;;;
// 1; 7; 1;Telefones de Contato......:;C;38;CP_FONE;@S38;!_zfok;;;;N;; 0; 0;;;
// 1; 8; 1;Vendedor ou Contato.......:;C;25;CP_CONTATO;@S25;!_zfok;;;;N;; 0; 0;;;

// 2; 3; 0;23;79;;;;;;
// 1; 7; 3;Dt Entrada:;D; 8;CP_DT_chg;;x_operacao=1;m_cp_dt_chg>=m_cp_dt_emis;;;N;; 0; 0;;;
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Numero do Orcamento....:;N; 6;IdCotacao;999999;;;;;N;; 0; 0;;;
 1; 3; 2;Tipo Comprovante Compra:;N; 1;FTIPOENC;9;;lastkey()=5.or.psq_brow;cp_tpdoc;pcptpdoc;N;N; 3;45;desc;@s18;
 1; 4; 2;Numero da NF/RECIBO....:;C;10;cp_num_ped;10;;
 1; 6; 2;Divisao de Despesa.....:;N; 3;CP_DIVISAO;999;;lastkey()=5.or.psq_brow;cp_divis;pcpdivis;N;N; 6;45;desc;@s18;
 1; 7; 2;Subdivisao da Despesa..:;C; 5;CP_SUBDIV;@S5;eval(z_blkprefsubd);lastkey()=5.OR.!empty(m_CP_SUBDIV).and.Psq_brow;Cp_Subd;PcpSubdf;N;S;7;45;SdDesc;@S18;
 1; 8; 2;Codigo do Fornecedor...:;N; 5;CP_COD_FOR;99999;x_operacao=1.or.x_operacao=2;psq_brow;sccpfor;psccpfor;N;N; 8;45;cp_nome;@s30;

 1;10; 2;Observacoes............:;C;40;CP_DESC;@S40;;;;;N;; 0; 0;;;
 1;11; 2;.                      :;C;40;CP_DESC2;@S40;;;;;N;; 0; 0;;;
