//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 8;2;18;49;Leitura de um Produto;;;;;
:SKEL
// 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 zBlkPrd =           'm_pcod:=val(left(m_pobs,7)),zFound:=se_prod->(DbSeek(m_pcod)),m_pdesc:=se_prod->pdesc,m_mqatend:=1,m_ptam:=SubStr(m_pobs,8,3),'
VARIAVEL zBlkPrd = zBlkPrd + 'znil:=if(!zFound,alert_tef("Produto Nao Cadastrado;ou sem Codigo de Barras!",1),NIL), .t.'
VARIAVEL zBlkPrd = _CreateBlock( zBlkPrd )
VARIAVEL zBlkValid= _CreateBlock('zok:=(m_mqatend<=99999),znil:=if(zok,__KeyBoard( chr(13)+chr(13) ),""),zok')
VARIAVEL zBlkWhen = _CreateBlock('zFgPara:=(w_vb_quant="S"),if(!zFgPara,__KeyBoard(chr(13)+chr(13))),zFgPara')

: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;16;POBS;@S16;;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; 7; 2;Quantidade:;N; 6;MQATEND;999999;eval(zBlkWhen);eval(zBlkValid);;;N;; 0; 0;;;
 1; 8; 2;Tamanho...:;C; 4;PTAM;xxxx;;;;;N;; 0; 0;;;
