ULTPAG[REPL("=",80)]
ULTPAG
ULTPAGRelacao dos Pedidos Cancelados de [Z_DE]
ULTPAG[REPL("=",80)]
ULTPAGOperacao     DtVenda  DtCancel  Pedido Cliente                    Valor
ULTPAG[REPL("=",80)]

VARIAVEL Z_FAT = SF_FAT
ARQUIVO (Z_FAT) z_fat+".p" fnumped
OUTROARQ SCCRCLI
VARIAVEL TOT_CAN = 0
VARIAVEL LST_TP = 58
VARIAVEL Z_NIL = SET(11,"OFF")
COMANDO ANTES Z_NIL = DBGOTOP()
FILTRO Deleted().And.(fg_lib="A".and.fg_fat="A".Or.Fg_Lib="C").and.(FdataAlter=Z_DE.Or.(Day(FdataAlter)=0.And.Fdataemi=Z_DE))
COMANDO DURANTE Z_CLI = FCLI
COMANDO DURANTE SCCRCLI->( DBGOTO(Z_cLI) )
COMANDO DURANTE Z_NOMECLI = SCCRCLI->CR_NOME
COMANDO DURANTE Z_OPER = IF(FG_LIB="A","Alteracao","Cancelado")
COMANDO DURANTE TOT_CAN = TOT_CAN + IF(Z_OPER="Cancelado",FVAL,0)

FILTROIMP Z_OPER="Cancelado"
D[Z_OPER] [fdataemi] [FDATAALTER][FNUMPED 9999999] [STRZERO(FCLI,5)]-[Z_NOMECLI @S20][FVAL @E 999,999.99]

COMANDO DEPOIS Z_NIL = SET(11,"ON")

ULTPAG[REPL("=",80)]
ULTPAG                              TOTAL DOS PEDIDOS CANCELADOS.: [TOT_CAN @E 999,999.99]
ULTPAG
ULTPAG[CHR(12)]
