VARIAVEL Z_AAMM  = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_FAT   = ""
VARIAVEL z_de    = date()
VARIAVEL z_ate   = date()
VARIAVEL Z_TOTAL = 0
VARIAVEL Z_TOT_can = 0
VARIAVEL Z_TOT_alt = 0
*
T10,10,18,60,Parametros
T2,2,Cupons Alterados/Cancelados,
T4,2,Ano e Mes ......:,4,z_aamm,9999
T5,2,Data Inical.....:,8,z_de,99.99.99
T6,2,Data Final......:,8,z_ate,99.99.99

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_FAT = "FAT"+Z_AAMM

ARQUIVO (Z_FAT)
OUTROARQ SE_PROD SEIP_C PCOD
OUTROARQ sccrcli

FILTRO Dele().And.(fg_lib="A".Or.Fg_Lib="C").and.fdataemi>=z_de.and.fdataemi<=z_ate

VARIAVEL Z_NIL = SET(11,"OFF")
COMANDO ANTES Z_NIL = DBGOTOP()
COMANDO DURANTE Z_OPER = IF(FG_LIB="A","Alter.","Canc. ")
COMANDO ANTES Z_SPCS = "     "
COMANDO DEPOIS Z_NIL = SET(11,"ON")

COMANDO DURANTE Z_PED = FNUMPED
COMANDO DURANTE Z_DATAEMI = FDATAEMI
COMANDO DURANTE Z_FHORA = FHORA
COMANDO DURANTE SCCRCLI->( DBGOTO(Z_FAT->FCLI ))
VARIAVEL Z_TIPO = ""
COMANDO DURANTE Z_TIPO = IF(FTIPOVEN="1","Dinheiro",z_tipo)
COMANDO DURANTE Z_TIPO = IF(FTIPOVEN="2","Cheque  ",z_tipo)
COMANDO DURANTE Z_TIPO = IF(FTIPOVEN="3","Cartao  ",z_tipo)
COMANDO DURANTE Z_TIPO = IF(FTIPOVEN="4","Convenio",z_tipo)
COMANDO DURANTE Z_TIPO = IF(FTIPOVEN="5","VndMista",z_tipo)
COMANDO DURANTE Z_TOT_can = Z_TOT_can + if(FG_LIB="C",fval,0)
COMANDO DURANTE Z_TOT_alt = Z_TOT_alt + if(FG_LIB="A",fval,0)
COMANDO DURANTE Z_TOTAL   = Z_TOT_alt + Z_TOT_CAN

C
C[EMPRESA]                        Emitida em [s_datual] as [time()]         Pag [pag 9999]
CCupons Alterados/Cancelados no Periodo de [z_de] ate [z_ate].
C[repl("-",80)]
CN§Pedido Data     Hora  TpVend   Cliente                   Valor Sit.   Usuario
C[REPL(".",80)]
D [FNUMPED] [FDATAALTER] [FHORAALTER @s5] [z_tipo] [SCCRCLI->CR_NOME @S20] [FVAL @E 999,999.99] [Z_OPER] [USUARIO]
ULTPAG[REPL("-",80)]
ULTPAG                             Total dos Cancelamentos: [z_tot_can @e 999,999.99]
ULTPAG                             Total das Alteracoes...: [z_tot_alt @e 999,999.99]
ULTPAG                             TOTAL..................: [z_total @e 999,999.99]
ULTPAG

