SE_MOVRO;Movimentos do Produto;skip_blk(x); 9;0;20;79;se_movxp;;
:SKEL
VARIAVEL Z_BLOCK={|x_prd|se_prod->(dbseek(x_prd)),Str(x_prd,5)+" "+se_prod->pdesc }
//Acesso;rec_del();P;X99999;  6;;
:TBFI
Apresentacao;eval(z_block,pcod);C;@s30;30;N;
Data;MfgEs+" "+Dtoc(MDATA);C;@s10;10;N;
Quant x Valor;Str(MQUANT,4)+" "+Str(Mvalor,9,2);C;@S14;14;N;
NumPed x Nf;Str(FNUMPED,6)+Str(Mfnum,6);C;@s13;13;;
