SP_MOVF;(ltrim(str(sp_movf->mqatend,6))+" unids de "+alltrim(left(sp_movf->pdesc,15)));sys_tbbrow; 3; 40;12;79;sp_movfn;;
:SKEL
VARIAVEL ZNIL = if(reccount()=0, __Keyboard( Chr(22) ),"")
:TBMT
 22;sp_lotf_add_get(D_oB, "APPEND", sp_movf->pcod, sp_movf->(RECNO()));Ins-Inclui ;
 13;sp_lotf_add_get(D_oB, "GET", sp_movf->pcod, sp_movf->(RECNO()));Enter-Edita ;
  7;tb_del(D_ob);DEL-DELeta ;
:TBFI
Quant;mqatend;N;9999;  4;S;
Lote;plote;C;@s10;10;S;
DataVenc;data_venc;D;;8;S;
Cod;PCOD;N;99999;  5;N;