*
* 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....:,4,z_fcli,9999
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,4)+str(matricula,7)

COMANDO ANTES SCCRCLI->(DBGOTO(Z_FCLI))
COMANDO ANTES Z_OBS = Z_OBS + IF(Z_FCLI>0,"** Listado apenas o Convenio: "+ SCCRCLI->CR_NOME,"")
COMANDO ANTES Z_OBS = Z_OBS + IF(Z_MATRICULA>0,"** Apenas Matricula: "+Str(Z_MATRICULA,8) + "-" + VB_ASS->NOME, "")

COMANDO DURANTE SF_VEND->( DbGoto( vb_convl->fvendedor ) )
*COMANDO DURANTE SCCRCLI->( DbGoto( vb_convl->fcli ))
COMANDO DURANTE VB_ASS->( DbSeek( Str(vb_convl->fcli,4)+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

* CVendas da Farmacia: [z_farmacia]-[z_nomefar], de [z_de] ate [z_ate]
C                                   SUPERFARMA
C                                Rede de Farmacias
C                     Rua Dr. San Juan, 222 - Bairro dos Estados
C                          Fones(0xx83) 225-2020 / 983-6365
C                           Contatos: Normando / Everardo
C[z_obs]
C[repl("-",133)]
CVendedor                Convenio             Funcionario                 Data    Valor
*xxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxx XXXXXXXXXXXXXXXXXXXXXXXXX XX/XX/XX  X,XXX.XX
C[Repl("-",133)]
D[z_farmacia @S23] [Z_CONVENIO @S20] [Z_ASSNOME @S25] [DATALAN] [VALOR 9,999.99]
ULTPAG 
ULTPAG *** Numero de Compras: [z_Compras 999999]
ULTPAG *** Valor das Compras: [z_tcompras 999,999.99] 
