SE_MOVRO;Movimentos do Produto;skip_blk(x); 4;0;12;79;se_movxp;;
:SKEL
VARIAVEL w_chave    = Wfat
VARIAVEL w_mensagem = "Sem mais Lancamentos DA VENDA"
VARIAVEL w_block    = {|| w_chave <> FNUMPED }
VARIAVEL Z_BLOCK={|x_prd|se_prod->(dbseek(x_prd)),Str(x_prd,5)+" "+se_prod->pdesc }
*-
VARIAVEL ZNIL='zv1:=pcod,zv2:=fnumped,zv3:=mquant,zv4:=mdata,zv5:=recno(),zv6:=mfges,zs3:=select(),dbselectarea(zaliaspsim),AppendBlank(),'
VARIAVEL ZNIL= znil+'put_var("pcod",zv1),put_var("fnumped",zv2),put_var("mquant",zv3),put_var("mdata",zv4),put_var("mrecno",zv5),put_var("mfges",zv6),'
VARIAVEL ZNIL= znil+'put_var("paciente","**RECEITUARIO SEM PACIENTE"),DbCommit(),DbUnlock(),dbselectarea(zs3),alert("Produto Adicionado"),__Keyboard(chr(27))'
VARIAVEL ZBLKINS = _createblock(znil)
:TBMT
 13;eval(Zblkins);Enter-Adiciona_Produto ;
: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;;
