//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 0;23;79;Orcamento;;;;;
:SKEL 
VARIAVEL _zfok = .f.
VARIAVEL m_dgtprods="N"
VARIAVEL zbSubd={||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_ORCA")
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;;;
  
 
// 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;;;


// 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; 1;45;Num.Orcamento:;N; 6;IdCotacao;999999;;;;;N;; 0; 0;;;
 1; 1; 1;Tipo de Comprovante Compra:;N; 1;FTIPOENC;9;;lastkey()=5.or.psq_brow;cp_tpdoc;pcptpdoc;N;N; 1;45;desc;@s18;
 1; 2; 1;Divisao de Despesa........:;N; 3;CP_DIVISAO;999;;lastkey()=5.or.psq_brow;cp_divis;pcpdivif;N;N; 2;45;desc;@s18;
 1; 3; 1;Subdivisao da Despesa.....:;C; 5;CP_SUBDIV;@S5;eval(zbSubd);lastkey()=5.OR.!empty(m_CP_SUBDIV).and.Psq_brow;Cp_Subd;PcpSubdf;N;S;3;45;SdDesc;@S18;

 1; 5; 1;Cod Fornecedor (Se Ja Cad):;N; 5;CP_COD_FOR;99999;x_operacao=1.or.x_operacao=2;psq_brow;sccpfor;psccpfor;N;N; 5;45;cp_nome;@s30;
 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;;;

 1;10; 1;Observacoes...........:;C;40;CP_DESC;@S40;;;;;N;; 0; 0;;;
 1;11; 1;.                     :;C;40;CP_DESC2;@S40;;;;;N;; 0; 0;;;
 1;12; 1;Forma de Pagamento....:;C;40;CP_FORMAPG;@S40;;;;;N;; 0; 0;;;
 1;13; 1;Prazo de Entrega......:;C;40;CP_PZENTRE;@S40;;;;;N;; 0; 0;;;
 2;14; 1;Transportador.........:;N; 4;FTRANSP;9999;;;;;N;; 0; 0;;;
 
 1;16; 1;Digita Produtos.......?;P; 5;m_dgtprods;!;;
 

