VARIAVEL Z_TPRODS = 0
VARIAVEL Z_TUnids = 0
VARIAVEL Z_TVALOR = 0

CRomaneio de Separacao [m_froman 9999]
C-----------------------------------------------------------

COMANDO DURANTE Z_PCOD = pcod

SUBLIST SF_RCARG

COMANDO ANTES Z_NPRODS = 0
COMANDO ANTES Z_Unids = 0
COMANDO ANTES Z_VALOR = 0
COMANDO ANTES Z_PDESC = PDESC

REPITA ENQUANTO Z_PCOD = PCOD

COMANDO DURANTE Z_NPRODS = Z_NPRODS + 1
COMANDO DURANTE Z_Unids  = Z_Unids + MQUANT
COMANDO DURANTE Z_VALOR  = Z_VALOR + MVALOR

COMANDO DEPOIS Z_TPRODS = Z_TPRODS + Z_NPRODS
COMANDO DEPOIS Z_TUnids = Z_TUnids + Z_Unids
COMANDO DEPOIS Z_TVALOR = Z_TVALOR + Z_VALOR
COMANDO DEPOIS DBSKIP(-1)

ULTPAG[Z_PCOD 99999] [Z_PDESC @S50] [Z_Unids @e 999,999] [Z_VALOR @E 999,999.99]

FIM SUBLIST

ULTPAG
ULTPAG *** Total de Produtos: [z_tprods @e 999,999]
ULTPAG *** Total de Unidades: [z_tunids @e 999,999]
ULTPAG *** Valor do Romaneio: [z_tvalor @e 999,999.99]
