VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2) 
VARIAVEL Z_FAT = "" 
VARIAVEL Z_DE = CTOD( "01."+SUBSTR(DTOC(S_DATUAL),4) ) 
VARIAVEL Z_ATE = S_DATUAL 
T10,10,18,60,Parametros 
T2,2,Ano e Mes (AaMm) ..:,4,z_aamm,9999 
T4,2,Data Inicial ......:,10,Z_DE,99.99.9999 
T5,2,Data Final ........:,10,Z_ATE,99.99.9999 
 
COMANDO ANTES DbGoBottom() 
COMANDO DEPOIS Z_FAT = "FAT"+Z_AAMM 
 
ARQUIVO (z_FAT) "temp0101" fdataemi 
OUTROARQ SCCRCLI 

FILTRO FSUBSIDIO>0.AND.FG_FAT<>"C"
FILTRO (fdataemi>=Z_DE .AND. fdataemi<=Z_ATE) 
 
COMANDO DURANTE SCCRCLI->( DbGoto( Z_fat->FCLI )) 
COMANDO DURANTE ZNOME  = SCCRCLI->CR_NOME
VARIAVEL Z_Temissoes   = 0 
VARIAVEL Z_Tsubsidios  = 0 
VARIAVEL Z_Tdescontos  = 0 
VARIAVEL Z_TqtdNotas   = 0 
VARIAVEL z_tdifcli     = 0
COMANDO DURANTE Z_Temissoes  = Z_TEMISSOES  + FVAL
COMANDO DURANTE Z_Tsubsidios = Z_TSUBSIDIOS + FSUBSIDIO
COMANDO DURANTE Z_difcli     = if(fval>fsubsidio, fval-fsubsidio, 0)
COMANDO DURANTE Z_TDIFCLI    = z_Tdifcli + z_difcli
COMANDO DURANTE Z_Tdescontos = Z_Tdescontos + Fdesconto 
COMANDO DURANTE Z_TqtdNotas  = z_TqtdNotas  + 1
 

CVendas Farmacia Popular, Emitida em [s_datual] as [time()]         Pag [pag 999]     Periodo: [D_DE] ate [D_ATE] 
C[repl("-",132)] 
CPedido   Valor       Subsidio    DifCli     Descontos    Emissao   Cliente
C[repl("=",132)] 
D[FNUMPED 999999] [fval @e 999,999.99] [fsubsidio @E 999,999.99] [z_difcli @e 999,999.99] [fdesconto @e 999,999.99] [fdataemi] [fcli 999999]-[Znome]
COMANDO DEPOIS z_perc = if(z_temissoes>0, 100 * z_tsubsidios/z_temissoes, 0)
ULTPAG [repl("-",132)] 
ULTPAG *** Numero de Vendas.....: [Z_Tqtdnotas 9999]
ULTPAG *** Valor das Vendas.....: [z_temissoes @E 99,999,999.99]
ULTPAG *** Valor das Subsidios..: [z_tsubsidios @E 99,999,999.99]   [z_perc @E 999.99]%
ULTPAG *** Diferencas do Cliente: [z_tdifcli @E 99,999,999.99]
ULTPAG *** Descontos Concedidos.: [z_tdescontos @E 99,999,999.99]
