ALIAS HELP
VARIAVEL zfNumPed = 0
VARIAVEL z_NPed = 0
VARIAVEL z_Valped = 0
VARIAVEL zLoja = 0
variavel z_de = ctod("")
variavel z_ate = ctod("")
variavel zTotEs = 0
variavel zTotCh = 0
variavel zTotCv = 0
variavel zTotCt = 0
variavel zTotCa = 0
VARIAVEL sPrtLineLen = 132
VARIAVEL zFgFieldDev = .f.
VARIAVEL zFgSoEsp = "S"
VARIAVEL zFgLstProds = "N"
VARIAVEL zFoundProds = .f.

T08,10,16,40,Listar Cancelamentos
T2,2,Dia Inicial:,8,z_De,99.99.9999
T3,2,Ano Final  :,8,z_Ate,99.99.9999
T4,2,So Especie....?,1,zFgSoEsp,!
T5,2,Lista Produtos?,1,zFgLstProds,!
T6,2,Loja..........:,2,zLoja,99

COMANDO ANTES DbGoBottom()

ARQUIVO sf_pv
OUTROARQ sf_pvmv sf_pvp fnumped
OUTROARQ sf_vend 
COMANDO ANTES dbgotop()

comando antes zFgFieldDev = FieldPos('fCredDevol')>0

filtro fg_fat="C"
FILTRO (day(z_de)=0.OR.fdataemi>=z_de) 
FILTRO (day(z_ate)=0.OR.fdataemi<=z_ate)
filtro zFgSoEsp<>"S" .or. fVal=fValEs

comando durante z_nped = z_nped + 1
comando durante zCodVnd = fvendedor
comando durante sf_vend->(DbGoto(zCodVnd))
comando durante zNomeVnd = pad( str(sf_vend->fnumero,4)+" "+left(sf_vend->nome,1)+lower(substr(sf_vend->nome,2)), 30)
comando durante zCrNumPed = right(strZero(fnumped,10),6)
comando durante zSiCaixa = 'X'
comando durante zValCa = ((fval+fvaldev-if(zFgFieldDev,fCredDevol,0)) - fvalES - fvalCH - fvalCT - fvalCV)
comando durante zValCa = if(zValCa<0, 0, zValCa)

variavel zStrDias = ""
comando durante zTotEs = zTotEs + fvales
comando durante zTotCh = zTotCh + fvalch
comando durante zTotCv = zTotCv + fvalcv
comando durante zTotCt = zTotCt + fvalct
comando durante zTotCa = zTotCa + zValCa
comando durante zStrDias = if(day(z_de)>0,"Desde o dia "+dtoc(z_De),"")
comando durante zStrDias = zStrDias + if(day(z_ate)>0," ate o dia "+dtoc(z_ate),"")
comando durante zfNumPed = fnumped
comando durante zFoundProds = if(zFgLstProds=='S',sf_pvmv->(DbSeek(zfNumPed)), .f.)

C[SISTEMA] $ pag [pag 999]
CPrevendas Canceladas  [zStrDias] $ Impresso em [s_datual] as [time()]
C[repl("-",132)]
CEmissao   Hora  Cupom       Valor Prds Unds Especie  Cheques  Cartao    Carne Convenio Cx Usu_Canc COO     Matr-Vendedor
*dd.mm.aa xx:xx 999999  9999999999 9999 9999 99999.99 99999.99 99999.99 99999.99 99999.99 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
C[Repl("=",132)]
comando durante ztr = if(fvaldev>0,'*',' ')
d[fdataemi] [fhora xx:xx] [fnumped 999999][ztr] [fval @E 999,999.99] [ftotprod 999] [ftotunid 999] [fvales 99999.99] [fvalch 99999.99] [fvalct 99999.99] [zValCa 99999.99] [fvalcv 99999.99] [zSiCaixa] [fusucanc] [fnumcoo] [znomeVnd @S25]

sublist sf_pvmv
   repita enquanto zFoundProds .and. zfNumPed = fnumped
   filtroimp Quant>0 
   d.            [Cod 999999] [Desc] [Quant 9999] [PrTotal @e 999,999.99]
   filtroimp zFoundProds
   ultpag .................................................................... 
fim sublist

comando depois z_valped = zTotEs+zTotCh+zTotCt+zTotCv+zTotCa

ULTPAG[Repl("=",132)]
ULTPAG
ULTPAG ** Quantidade de Prevendas Canceladas: [z_nped 9999]
ULTPAG ** Valor das Prevendas Canceladas....: [z_valped @E 9999,999.99]
ULTPAG
ULTPAG ** Cancelamentos em Especie.: [zTotEs @E 9999,999.99]
ULTPAG ** Cancelamentos em Cheques.: [zTotCh @E 9999,999.99]
ULTPAG ** Cancelamentos em Cartao..: [zTotCt @E 9999,999.99]
ULTPAG ** Cancelamentos em Convenio: [zTotCv @E 9999,999.99]
ULTPAG ** Cancelamentos em Carnes..: [zTotCa @E 9999,999.99]
ULTPAG
