SX_ORCAD;("Orcamentos de "+Alltrim(sx_orc_d->cp_desc));skip_blk(x);11;3;21;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL w_mensagem = "Sem mais Itens do Orcamento"
VARIAVEL w_chave = pad( left(sx_orc_d->cp_desc, len(cp_desc)), len(cp_desc) )
VARIAVEL w_block = {|| cp_desc<>w_chave }

VARIAVEL z_xBlk = "ZSorcad:=Select(),zACESSO:=acesso,zCP_COD_FOR:=CP_COD_FOR,zCP_FANTASI:=CP_FANTASI,zCP_DESC:=CP_DESC,f_fpagina:={},"
VARIAVEL z_xBlk = z_xBlk+ "Abra_Arq('SE_PROD'),Abra('0',R_SIGA,'SX_ORCAP','SX_ORCAP','SX_ORCAP','cp_desc+Str(acesso,6)'),"
VARIAVEL z_xBlk = z_xBlk+ "z_fgins:=!DbSeek(sx_orc_d->cp_desc+Str(zacesso,6)),z_nil:=if(z_fgins,GetScreen(1,.t.,.f.,'SX_ORCAP'), Brow_Db('SX_ORCAP',.t.)),"
VARIAVEL z_xBlk = z_xBlk+ "Se_Prod->(DbCloseArea()),Sx_OrcaP->(DbCloseArea()),d_dtela:='SX_ORCAD',m_acesso:=zACESSO,DbSelectArea(ZSorcad),f_fpagina:={},.f."
VARIAVEL z_blkprods = _CreateBlock( z_xBlk )
##Valor;Cp_Valor;N;99999.99;8;;

:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 13;if(sx_orc_d->pitens="S",eval(z_blkprods),tb_update(w_Dob));Enter-Altera ; 
  7;tb_del(D_ob);DEL-DELeta ;
 32;doget(D_OB);Barra-Edita ;
 65;tb_update(D_ob);A-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 70;tb_filter(d_ob);F-Filtra ;
:TBFI
Data;DATA;D;;  8;;
Fantasia;CP_FANTASI;C;@S15; 15;;
Fone;CP_FONE;C;@S15;15;;
Contato;CP_CONTATO;C;@S25; 15;;
*;FTIPOENC;N;9;  1;;
Div;CP_DIVISAO;N;999;  3;;
Forma Pag;CP_FORMAPG;C;@S15; 12;;
Subd;CP_SUBDIV;C;@S5;  5;;
Pz_Entrega;CP_PZENTRE;C;@S40; 40;;
Transp;FTRANSP;N;9999;  4;;
s;CR_SITUACA;C;x;  1;;
Acesso;ACESSO;N;999999;  6;;
Forn;CP_COD_FOR;N;9999;  4;;
Raz_Social;CP_NOME;C;@S35; 35;;
Assunto;CP_DESC;C;@S40; 40;;
Observacoes Complementares;CP_DESC2;C;@S40; 40;;
Bco;BANCO;C;xxx;  3;;
