SP_EAN;Leituras Efetuadas;sys_tbbrow; 0; 10;23;79;padrao;;
// 22;tb_insert(D_OB);Ins-Inclui ;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL w_vb_quant = "S"
VARIAVEL zblkQuant = _CreateBlock("w_vb_quant:=if(w_vb_quant='S','N','S'),Mensagem(if(w_vb_quant='S','Sera pedida a quantidade por produto','Sera assumido 1 para a quantidade'),1)")

VARIAVEL zBlk = "z0Sel:=Select(),DbSelectArea('Se_Prod'),z1Recn:=Recno(),z1Ord:=IndexOrd(),DbSetOrder(3),Brow_Db('sp_eanp',.t.),DbSetOrder(z1Ord),DbGoto(z1Recn),DbSelectArea(z0Sel)"
VARIAVEL zBppo = _CreateBlock( zBlk )
VARIAVEL zBlk = ""
COMANDO ANTES ZNIL = __KEYBOARD( CHR(22)+CHR(22) )
:TBMT
 22;tb_insert(D_OB,,.f.);Ins-Inclui ;
 43;eval(zblkQuant);+-Pede_Nao_Pede_Quantidade ;
 32;Pf_EanEspImport(D_oB);Barra-Critica_Espelho ;
 13;eval(zBppo);Enter-Associa_CodBarra ;
  7;tb_del(D_ob);DEL-DELeta ;
 65;doget(D_ob);A-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Cod_Barras;PDIC6;N;9999999999999; 13;;
Quant;MQATEND;N;999999;  6;;
Cod;PCOD;N;999999;  6;;
Descricao;Pdesc;C;@s35;25;;
Qesp;MqEspel;N;9999;  4;;
Dic;pdic;N;99999999;  8;;
Tam;PTAM;C;xxxx;  4;;
PCOR;PCOR;C;@S10; 10;;
POBS;POBS;C;@S20; 20;;
