#define ETQ_COD     1
#define ETQ_DESC    2
#define ETQ_REF     3
#define ETQ_VALOR   4
#define ETQ_COR     5
#define ETQ_TAM     6
#define ETQ_FAMILIA 7
#define ETQ_POSICAO 8
#kk contem a largura das etiquetas
#zv_etq contem ate cinco linhas com dados das etiquetas

VARIAVEL LST_TP = 999
COMANDO ANTES Z_TIPOETQ = if (type("fg_sinal")="L".and.fg_sinal," *","")

COMANDO DURANTE SETPRC(0,0)
COMANDO DURANTE Z_NETQ  = LEN(ZV_ETQ)
COMANDO DURANTE ZKK = 14
COMANDO DURANTE zline1 = ""
COMANDO DURANTE ZLINE2 = IF( LEN(ZV_ETQ)>=1,padc("TOKE DISCOS",Zkk),"")
COMANDO DURANTE zline3 = ""
COMANDO DURANTE zline4 = IF( LEN(ZV_ETQ)>=1," R$"+padc(Alltrim(transform(zv_etq[1,4],"@E 9,999.99")),Zkk-3),"")
COMANDO DURANTE zline5 = ""
COMANDO DURANTE zline6 = ""

COMANDO DURANTE ZLINE2 = zline2+IF( LEN(ZV_ETQ)>=2,padc("F ESPERANCA",Zkk),"")
COMANDO DURANTE zline4 = zline4+IF( LEN(ZV_ETQ)>=2," R$"+padc(Alltrim(transform(zv_etq[2,4],"@E 9,999.99")),Zkk-3),"")

COMANDO DURANTE ZLINE2 = zline2+IF( LEN(ZV_ETQ)>=3,padc("F ESPERANCA",Zkk),"")
COMANDO DURANTE zline4 = zline4+IF( LEN(ZV_ETQ)>=3," R$"+padc(Alltrim(transform(zv_etq[3,4],"@E 9,999.99")),Zkk-3),"")

COMANDO DURANTE ZLINE2 = zline2+IF( LEN(ZV_ETQ)>=4," "+padc("F ESPERANCA",Zkk),"")
COMANDO DURANTE zline4 = zline4+IF( LEN(ZV_ETQ)>=4,"  R$"+padc(Alltrim(transform(zv_etq[4,4],"@E 9,999.99")),Zkk-3),"")

COMANDO DURANTE ZLINE2 = zline2+IF( LEN(ZV_ETQ)>=5," "+padc("F ESPERANCA",Zkk),"")
COMANDO DURANTE zline4 = zline4+IF( LEN(ZV_ETQ)>=5,"  R$"+padc(Alltrim(transform(zv_etq[5,4],"@E 9,999.99")),Zkk-3),"")

D[&M_ENFAT][zline1]
D[zline2]
D[zline3]
D[zline5]
D[zline4]
D[zline6][&M_NAOENFAT]
