outroarq sccpfab 
outroarq tabela tabelac val(med_abc)
variavel lst_tp = 999

comando durante zzpcod = pcod 
comando durante se_prod->(DbSeek(zzpcod)) 
comando durante sccpfab->(DbGoto(se_prod->pprincforn)) 
comando durante zzfant = sccpfab->cp_fantasi
comando durante zzcodabc = se_prod->pdic5
comando durante tabela->(DbSeek(zzcodabc))
comando durante zzpvenda = tabela->med_pla1

D[PCOD];[PDESC];[mqatend 9999];[zzfant];[zzpvenda];[prepasse @e 99,99];[pcategoria];[pnegpos]
 