ALIAS HELP
VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2)
VARIAVEL z_NPed = 0
VARIAVEL z_Valped = 0
VARIAVEL zLoja = 0
variavel z_dia  = 0
variavel z_diade = 0
variavel z_diaate = 0
variavel zTotEs = 0
variavel zTotCh = 0
variavel zTotCv = 0
variavel zTotCt = 0
variavel zTotCa = 0
VARIAVEL sPrtLineLen = 132

T08,10,16,40,Listar Cancelamentos
T2,2,Ano e Mes  :,4,z_aamm,9999
T3,2,Dia Inicial:,2,z_DiaDe,99
T4,2,Ano Final  :,2,z_DiaAte,99
T5,2,Loja...... :,2,zLoja,99

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS SetAliasAaMm(Z_AAMM)

ARQUIVO (wsf_fat)
OUTROARQ SCCRDUP SCRID_ND CR_NUM_PED
OUTROARQ (wse_mov) wse_mov_p fnumped
OUTROARQ sf_vend 
COMANDO ANTES set(11,"off")
COMANDO ANTES dbgotop()    


FILTRO deleted() 
FILTRO (Z_DIAde=0.OR.day(fdataemi)>=z_diade)
FILTRO (Z_DIAate=0.OR.day(fdataemi)<=z_diaAte)

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-fCredDevol) - fvalES - fvalCH - fvalCT - fvalCV)
comando durante zValCa = if(zValCa<0, 0, zValCa)

comando durante #TEXTO_FONTE
private zAreaOrig
zAreaOrig := select()
dbselectArea("sccrdup")
dbseek(zCrNumPed)
do WHILE .not. eof() .and. zCrNumPed=left(cr_num_ped,6)
   IF val(cr_local)=zLoja .and. deleted()
      zSiCaixa := cr_ha_juro
      EXIT 
   ENDIF
   dbskip()
ENDDO
dbselectarea(zAreaOrig)
#FIM_TEXTO_FONTE
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(z_diade>0,"Desde Dia "+StrZero(z_diaDe,2),"")
comando durante zStrDias = zStrDias + if(z_DiaDe>0," ","")+if(z_diaAte>0,"Ate Dia "+StrZero(z_diaAte,2),"")
C[SISTEMA] $ pag [pag 999]
CPedidos Cancelados do mes [z_aamm]   [zStrDias] , Emitida 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]

COMANDO DEPOIS Set(11,"on")
comando depois z_valped = zTotEs+zTotCh+zTotCt+zTotCv+zTotCa

ULTPAG[Repl("=",132)]
ULTPAG
ULTPAG ** Numero de Pedidos Cancelados: [z_nped 9999]
ULTPAG ** Valor dos Pedidos Cancelados: [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
