//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8;2;18;49;Leitura de um Produto;;;;;
:SKEL
// 1; 4; 1;PTAM;C; 4;PTAM;xxxx;;;;;N;; 0; 0;;;
// 1; 5; 1;PCOR;C;10;PCOR;@S10;;;;;N;; 0; 0;;;
// 1; 6; 1;Unids Pedidas..:;N; 6;PCOD;999999;;;;;N;; 0; 0;;;
// 1; 6; 1;Unids Recebidas:;N; 6;PCOD;999999;;;;;N;; 0; 0;;;
VARIAVEL zBlk = 'zpdic6:=val(m_pobs),zFound:=se_prod->(DbSeek(zpdic6)),m_pdesc:=se_prod->pdesc,m_pcod:=se_prod->pcod,m_mqatend:=1,m_pdic6:=zpdic6,'
VARIAVEL zBlk = zBlk + 'znil:=if(!zFound,alert_tef("Produto Nao Cadastrado;ou sem Codigo de Barras!",1),NIL), .t.'
VARIAVEL zBlkPrd = _CreateBlock( zBlk )
//VARIAVEL zBlkValid= _CreateBlock('zok:=(m_mqatend<=99999),znil:=if(zok,__KeyBoard( chr(13)+chr(13)),""),zok')
//VARIAVEL zBlkWhen = _CreateBlock('zFgStop:=(w_vb_quant="S"),if(!zFgStop,__KeyBoard(chr(13)+chr(13)),""),zFgStop')
VARIAVEL zBlkValid= _CreateBlock('zok:=(m_mqatend<=99999),znil:=if(zok,__KeyBoard( chr(13)),""),zok')
VARIAVEL zBlkWhen = _CreateBlock('zFgStop:=(w_vb_quant="S"),if(!zFgStop,__KeyBoard(chr(13)),""),zFgStop')
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Leitura Optica.:;C;13;POBS;@S13;;eval(zBlkPrd);;;N;; 0; 0;;;
 1; 4; 2;Desc..:;C;35;Pdesc;@S35;.f.;;;;N;; 0; 0;;;
 1; 5; 2;Codigo:;N; 6;PCOD;999999;.f.;;;;N;; 0; 0;;;
 1; 5;25;Ean13:;N;13;PDIC6;9999999999999;.f.;;;;N;; 0; 0;;;
 1; 7; 2;Quantidade:;N; 6;MQATEND;999999;eval(zBlkWhen);eval(zBlkValid);;;N;; 0; 0;;;
