SP_EANTH;Leituras Efetuadas;sys_tbbrow; 0; 17;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)")
COMANDO ANTES ZNIL = __KEYBOARD( CHR(22)+CHR(22) )
//Cod_Barras;PDIC6;N;9999999999999; 13;;
:TBMT
 22;tb_insert(D_OB,,.f.);Ins-Inclui ;
 43;eval(zblkQuant);+-Pede_Nao_Pede_Quantidade ;
 67;tf_thean(D_oB,"ONHAND");C-Captura_Palm ;
:TBFI
EanTh;POBS;C;@S16; 16;;
Quant;MQATEND;N;999999;  6;;
Cod;PCOD;N;999999;  6;;
Tam;PTAM;C;xxxx;  4;;
Descricao;Pdesc;C;@s35;25;;
