*
* O z_vendedor indica a farmacia
* O Z_fcli indica o convenio
* A Z_matricula indica o funcionario associado que comprou
*
VARIAVEL Z_DE = DATE()
VARIAVEL Z_ATE = DATE()
VARIAVEL Z_VENDEDOR  = 0
VARIAVEL Z_FCLI      = 0
VARIAVEL Z_MATRICULA = 0

VARIAVEL Z_cOMPRAS  = 0
VARIAVEL Z_tCOMPRAS = 0
VARIAVEL Z_OBS = ""

T10,10,20,60,Parametros
T2,2,Data Inicial:,8,z_de,99.99.99
T3,2,Data Final..:,8,z_Ate,99.99.99
T4,2,Farmacia....:,3,z_vendedor,999
T5,2,Convenio....:,5,z_fcli,99999
T6,2,Matricula...:,8,z_matricula,99999999

FILTRO (DATALAN>=Z_DE.AND.DATALAN<=Z_ATE)
FILTRO (Z_VENDEDOR=0.OR.Z_VENDEDOR=FVENDEDOR)
FILTRO (Z_FCLI=0.OR.Z_FCLI=FCLI)
FILTRO (Z_MATRICULA=0.OR.Z_MATRICULA=MATRICULA)

OUTROARQ SF_VEND
OUTROARQ SCCRCLI
OUTROARQ VB_ASS VB_ASSM STR(cr_Cod_Cli,5)+str(matricula,7)

COMANDO ANTES Z_OBS = Z_OBS + IF(Z_FCLI>0,"** Listado apenas o Convenio: "+Str(Z_fcli,3) , "")
COMANDO ANTES Z_OBS = Z_OBS + IF(Z_MATRICULA>0,"** Apenas Matricula: "+Str(Z_MATRICULA,8) , "")

COMANDO DURANTE SF_VEND->( DbGoto( vb_convl->fvendedor ) )
COMANDO DURANTE SCCRCLI->( DbGoto( vb_convl->fcli ))
COMANDO DURANTE VB_ASS->( DbSeek( Str(vb_convl->fcli,5)+Str(vb_convl->matricula,7) ) )
COMANDO DURANTE Z_CONVENIO = SCCRCLI->CR_NOME
COMANDO DURANTE Z_FARMACIA = SF_vEND->NOME
COMANDO DURANTE Z_ASSNOME  = VB_ASS->NOME 


COMANDO DURANTE Z_COMPRAS = Z_cOMPRAS + 1
COMANDO DURANTE Z_TCOMPRAS = Z_TCOMPRAS + VALOR

C[CHR(15)] [SISTEMA]
CCompras do Associado: [z_matricula]-[z_assnome], de [z_de] ate [z_ate]
C[z_obs]
C
CFarmacia                     Convenio                      Data Valor
C
D[FVENDEDOR 999] [z_farmacia @S20] [FCLI 99999] [Z_CONVENIO @S20] [DATALAN] [VALOR 9,999.99]

ULTPAG 
ULTPAG *** Numero de Compras: [z_Compras 999999]
ULTPAG *** Valor das Compras: [z_tcompras 999,999.99] 