VARIAVEL LST_TP = 99
VARIAVEL ZCHAVE = "I"+str(tv_ign->codigo,4)

##COMANDO ANTES ZNIL = ALERT("0: TO NA AREA: "+alias())

COMANDO ANTES ZNIL = ABRA("0",R_SIGA,"TABELA","TABELA","TABELAC","VAL(MED_ABC)")
COMANDO ANTES DBSELECTAREA("TV_PIGN")
COMANDO ANTES dbseek(zchave)

COMANDO DEPOIS TABELA->(DBCLOSEAREA())
COMANDO DEPOIS DBSELECTAREA("TV_PIGN")

REPITA ENQUANTO zchave= classe+str(codigo,4)
FILTRO PCOD > 0 .and. se_prod->pdivisao="0200"

COMANDO DURANTE ZPCOD = PCOD
*COMANDO DURANTE se_prod->(dbseek(ZPCOD))
COMANDO DURANTE ZPDESC = SE_PROD->PDESC
COMANDO DURANTE ZPRVENDA = SE_PROD->PVLUVENDA
COMANDO DURANTE ZPDIC5 = SE_PROD->PDIC5
COMANDO DURANTE TABELA->(dBseek(ZPDIC5))
COMANDO DURANTE ZPRTABELA = TABELA->MED_PCO1
COMANDO DURANTE ZFORN = se_prod->pprincforn
COMANDO DURANTE SCCPFOR->(DbGoto(zforn))
COMANDO DURANTE ZFANT = SCCPFOR->cp_fantasi
COMANDO DURANTE ZDESCONTO = IF(ZPRTABELA>0, 100*(ZPRTABELA-ZPRVENDA)/ZPRTABELA, 0)

D[PCOD 999999]    [ZPDESC] [ZFANT] [ZPRVENDA 99999.99] [ZPRTABELA 99999.99] [ZDESCONTO 99999.99]

