VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT  = ""
*
VARIAVEL Z_CLI = 0
VARIAVEL Z_DE = CTOD("01."+SUBSTR(DTOC(DATE()),3) )
VARIAVEL Z_ATE = DATE()
VARIAVEL Z_VND = 0
VARIAVEL Z_PEDS = 0
VARIAVEL Z_TFVAL = 0
VARIAVEL Z_FTIPOVEN = " "

T10,10,18,60,Parametros
T2,2,Ano e Mes (AaMm) do Pedido:,4,z_aamm,9999
T4,2,Data Inicial .............:,8,z_de,99.99.99
T5,2,Data Final ...............:,8,z_ate,99.99.99
T6,2,Vendedor .................:,2,z_vnd,99
T7,2,Tipo de Venda ............:,1,z_ftipoven,9

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_NIL  = SET (11,"off")
COMANDO DEPOIS Z_FAT  = "FAT"+Z_AAMM

ARQUIVO (Z_FAT) Z_FAT+".p" FNUMPED
OUTROARQ SCCRCLI
OUTROARQ SF_VEND

FILTRO dele().and.(z_ftipoven=" ".or.ftipoven=z_ftipoven).and.(z_vnd=0.or.z_vnd=fvendedor).and.fdataemi>=z_de.and.fdataemi<=z_ate

COMANDO DURANTE z_CLI = FCLI
COMANDO DURANTE Z_FDATAEMI = FDATAEMI
COMANDO DURANTE Z_FVAL = FVAL
COMANDO DURANTE Z_FVND = FVENDEDOR
COMANDO DURANTE SCCRCLI->(DbGoto( Z_CLI ))
COMANDO DURANTE SF_VEND->(DbGoto( Z_FVND ) )
COMANDO DEPOIS Z_DELEON = SET(11,"on")

COMANDO DURANTE Z_PEDS = Z_PEDS + 1
COMANDO DURANTE Z_TFVAL = Z_TFVAL + FVAL

C[SISTEMA]                          pag [pag 999]  (Em [s_datual] as [time()])
CRelacao de Cupons Cancelados de [z_de] ate [z_ate],      (Vnd: [z_vnd 99]) (TipV:[z_ftipoven])
C[repl(".",80)]
C Cupom    Vendedor    Emissao     Hora Tv     Valor       Cliente
C[Repl("-",80)]
*999999  99 99.99.99 hh.mm.ss cc 99,999.99 9999-xxxxxXXXXXxxxxxXXXXXxxxxx
D[fnumped] [fvendedor 99].[sf_vend->nome @s10] [FDATAEMI] [fhora] [ftv][ftipoven] [FVAL @E 99,999.99] [z_cli 9999]-[sccrcli->cr_nome @s20]

ULTPAG
ULTPAG ** Numero de Pedidos.: [z_peds 9999]
ULTPAG ** Valor dos Cupons..: [z_tfval 999,999.99]
