xml_mov;Produtos disponiveis no XML;sys_tbbrow; 6;0;18;79;padrao;;eval(z_blockppo);
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_Xtela = SaveScreen(0,16,3,79)
VARIAVEL zNil = Abra('0NOIDX',r_siga,SE_PROD,'SE_PROD',SEIP_C,'PCOD')
VARIAVEL zNil = DbSelectArea('xml_mov')
VARIAVEL z_Blk1='Z_COR:=SetColor("B/W"),Scroll(0,16,3,79,0),DispBox(0,16,3,79),se_prod->(DbSeek(xml_mov->pcod),'
VARIAVEL z_Blk1=z_Blk1+'DevPos(0,17),DevOut(Padc("(Cod:"+Str(pcod,5)+") "+alltrim(pdesc),58)),'
VARIAVEL z_Blk1=z_Blk1+'DevPos(1,17),DevOut(Padc("(%DscBloq:"+pbloqvenda+") (Frv:"+Alltrim(str(pitens,4))+") (Saldo: "+ltrim(Str(peatual,4))+") Barras("+ltrim(str(pdic6,14))+")",58))),SetColor(Z_COR)'
VARIAVEL z_blockppo = _CreateBlock( z_blk1 )
VARIAVEL z_Blk1 = ""
COMANDO DEPOIS RestScreen(0,16,3,79,Z_Xtela)
COMANDO DEPOIS zNil = if( select('se_prod')>0, se_prod->(DbCloseArea()), '')
:TBMT
 13;XmlMov_BrwPrds( d_ob, xProd );Enter-Associa Produto;
 22;InsertProdByXml("EDIT");Ins-Cadastra_Produto ; 
 43;ChecaDicForn(,,,"INSERT_AUTO");+-Cadastro_Automatico ; 
 65;doget(D_ob);A-Edita ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
:TBFI
MeuCod;Pcod;N;999999;6;S;
Qtd;qCom;N;99999.99;9;S;
Fracao;PITENS;N;999.99;6;S;
PrUnit;vUnComLiq;N;99999.99;9;S;
PrTotalLiq;vProd-vDesc;N;99999.99;9;S;
Descricao;xProd;C;@S30;30;S;
Und;uCom;C;@S5;5;S;
CFOP;cfop;C;9999;4;S;
NCM;ncm;C;@s9;9;S;
PrUnitCh;vUnCom;N;99999.99;9;S;
PrCheio;vProd;N;99999.99;9;S;
Desconto;vDesc;N;99999.99;9;S;
OutrasDesp;vOutro;N;99999.99;9;S;
CodForn;cProd;C;@S30;10;S;
Ean;cEAN;C;@S13;13;S;
IndTot;indTot;C;X;6;S;
Orig;ICM_orig;C;X;4;S;
CstIcm;ICM_Cst;C;XXX;6;S;
modBC;ICM_modBC;C;X;5;S;
BaseIcm;ICM_vBC;N;99999.99;9;S;
%Icm;ICM_pICMS;N;99.99;5;S;
Val_Icm;ICM_vICMS;N;99999.99;9;S;
modBCST;ICM_mBCST;C;X;7;S;
BaseIcmST;ICM_vBCST;N;99999.99;9;S;
%IcmST;ICM_pICMST;N;99.99;6;S;
Val_IcmST;ICM_vICMST;N;99999.99;9;S;
%AgrST;ICM_pMVAST;N;99.99;6;S;
CstPIS;PIS_CST;C;XXX;6;S;
BasePIS;PIS_vBC;N;99999.99;9;S;
%PIS;PIS_pPIS;N;99.99;5;S;
Val_PIS;PIS_vPIS;N;99999.99;9;S;
CstCOF;COF_CST;C;XXX;6;S;
BasePIS;COF_vBC;N;99999.99;9;S;
%PIS;COF_pCOF;N;99.99;5;S;
Val_PIS;COF_vCOF;N;99999.99;9;S;