//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 6;23;77;Orcamento;;;;;
:SKEL 
VARIAVEL m_ACESSO = recc()+1
VARIAVEL z_fok = .f.
VARIAVEL m_FTIPOENC = 1
VARIAVEL m_dgtprods="N"
VARIAVEL z_divcompras="M"
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:=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_var="z_fok:=(m_cp_cod_for>0),m_CP_FANTASI:=Iif(z_fok,sccpfor->cp_fantasi,m_CP_FANTASI),m_CP_FONE:=Iif(z_fok,sccpfor->CP_FONE,m_CP_FONE)"
VARIAVEL z_var=z_var+",m_CP_contato:=Iif(z_fok,sccpfor->CP_contato,m_CP_contato),z_fok"
VARIAVEL z_blkfant=_CreateBlock(z_var)
VARIAVEL z_var=""
COMANDO ANTES Abra("0",r_siga,"sx_orc_d","sx_orc_d","sx_orc_d","cp_desc")
COMANDO ANTES Abra("0",r_siga,"sx_orc_f","sx_orc_f","sx_orc_f","cp_fantasi")
COMANDO ANTES abra_arq("SCCPFOR")
COMANDO ANTES abra_arq("CP_DIVIS")
COMANDO ANTES DbGoTop()
COMANDO ANTES DbSelectArea("SX_ORCA")
COMANDO DEPOIS reglock()
COMANDO DEPOIS put_var("cp_nome",m_cp_nome)

COMANDO SAIDA sccpfor->(DbCloseArea())
COMANDO SAIDA cp_divis->(DbCloseArea())
      // VARIAVEL z_blforn=_CreateBlock("m_CP_SUBDIV:=StrZero(m_CP_DIVISAO,3)+'xx',.t.")
      //COMANDO ANTES abra_arq("SE_PEXP")
      //COMANDO ANTES z_nil=dbSetFilter(_CreateBlock('DepCompras="S"'),'DepCompras="S"')
       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;52;Acesso:;N; 6;ACESSO;999999;.f.;;;;N;; 0; 0;;;
 1; 2; 2;Assunto do Orcamento..:;C;40;CP_DESC;@S40;;psq_brow;sx_orca2;psxorc1;N;N;15;45;CP_DESC;@s18;

 1; 4; 2;Cod Fornec.(Se Ja Cad):;N; 5;CP_COD_FOR;99999;x_operacao=1.or.x_operacao=2;lastkey()=5.OR.m_CP_COD_FOR=0.or.psq_brow;sccpfor;psccpfor;N;N; 4;45;cp_nome;@s30;
 1; 5; 2;Fantasia do Fornecedor:;C;15;CP_FANTASI;@S15;.not.eval(z_blkfant);;;;N;; 0; 0;;;
 1; 6; 2;Telefones de Contato..:;C;38;CP_FONE;@S38;!z_fok;;;;N;; 0; 0;;;
 1; 7; 2;Vendedor ou Contato...:;C;25;CP_CONTATO;@S25;!z_fok;;;;N;; 0; 0;;;

 1; 9; 2;Preco Total ..........:;C;40;CP_valor;999999.99;;;;;N;; 0; 0;;;
 
 1;11; 2;Forma de Pagamento....:;C;40;CP_FORMAPG;@S40;;;;;N;; 0; 0;;;
 1;12; 2;Prazo de Entrega......:;C;40;CP_PZENTRE;@S40;;;;;N;; 0; 0;;;
 1;13; 2;Obs. Complementar.....:;C;40;CP_DESC2;@S40;;;;;N;; 0; 0;;;
 1;14; 2;Transportador.........:;N; 4;FTRANSP;9999;;;;;N;; 0; 0;;;

 1;15; 2;Tipo de Comprovante...:;N; 1;FTIPOENC;9;;lastkey()=5.or.psq_brow;cp_tpdoc;pcptpdoc;N;N;15;45;desc;@s18;
 1;16; 2;Divisao de Despesa....:;N; 3;CP_DIVISAO;999;;lastkey()=5.or.psq_brow;cp_divis;pcpdivif;N;N;16;45;desc;@s18;
 1;17; 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;17;45;SdDesc;@S18;
 
 1;18; 2;Digita Produtos.......?;P; 5;m_dgtprods;!;;
 