TEMPLATE_RTF etq_1.rtf
* pcod,pdesc,x_ref,x_valor,x_ptam,x_pcor,pfamilia,pposicao
comando antes SetPrc(0,0)
comando durante zPcod1=zv_etq[1,1]
comando durante zPcod2=zv_etq[2,1]
comando durante zPcod3=zv_etq[3,1]
comando durante zPcod4=zv_etq[4,1]
comando durante zPcod5=zv_etq[5,1]

comando durante zPdesc1=zv_etq[1,2]
comando durante zPdesc2=zv_etq[2,2]
comando durante zPdesc3=zv_etq[3,2]
comando durante zPdesc4=zv_etq[4,2]
comando durante zPdesc5=zv_etq[5,2]

comando durante zPref1=zv_etq[1,3]
comando durante zPref2=zv_etq[2,3]
comando durante zPref3=zv_etq[3,3]
comando durante zPref4=zv_etq[4,3]
comando durante zPref5=zv_etq[5,3]

comando durante zValor1=zv_etq[1,4]
comando durante zValor2=zv_etq[2,4]
comando durante zValor3=zv_etq[3,4]
comando durante zValor4=zv_etq[4,4]
comando durante zValor5=zv_etq[5,4]
comando durante alert("estou no relat prg_5etq.lst... e estou gerando etq para zpdesc1: "+zpdesc1)

D[zPcod1 99999] [zValor1 999.99]  [zPcod2 99999] [zValor2 999.99]  [zPcod3 99999] [zValor3 999.99]  [zPcod4 99999] [zValor4 999.99]  [zPcod5 99999] [zValor5 999.99]
D[zPdesc1 @s25]                   [zPdesc2 @s25]                   [zPdesc3 @s25]                   [zPdesc4 @s25]                   [zPdesc5 @s25]
D
D