*
* O z_vendedor indica a farmacia
* O Z_fcli indica o convenio
* A Z_matricula indica o funcionario associado que comprou
*
OUTROARQ VB_ASS VB_ASSM STR(cr_Cod_Cli,5)+str(matricula,7)

VARIAVEL LST_TP      = 999
VARIAVEL Z_FCLI      = 0
VARIAVEL Z_MATR      = 0
VARIAVEL Z_NCH       = 0
VARIAVEL Z_LIDOS     = 0

T10,10,20,60,Parametros
T2,2,Convenio.........:,5,z_fcli,99999
T3,2,Matricula........:,8,z_matr,99999999
* T4,2,Cheques por Assoc:,4,z_nch,9999

COMANDO ANTES DBGOTO(Z_fCLI)
COMANDO DURANTE Z_LIDOS = Z_LIDOS + 1
REPITA ENQUANTO Z_FCLI=RECN()

SUBLIST VB_ASS
COMANDO ANTES DbSeek(Str(Z_Fcli,5)+if(z_matr>0,Str(Z_Matr,7),""))
REPITA ENQUANTO Z_fcli=Cr_Cod_Cli .And.(Z_Matr=0.Or.Z_MATR=MATRICULA)

COMANDO DURANTE Z_CONVENIO  = SCCRCLI->CR_NOME
COMANDO DURANTE Z_ASSNOME   = VB_ASS->NOME
COMANDO DURANTE Z_MATRICULA = VB_ASS->MATRICULA

COMANDO DURANTE Z_LIMCHQ  = VB_ASS->CR_LIMITE / 10
COMANDO DURANTE Z_EXTENSO = NUMEXT( Z_LIMCHQ )
COMANDO DURANTE Z_EXTE1   = Left(Z_EXTENSO,60)
COMANDO DURANTE Z_EXTE2   = Rtrim( Substr(Z_EXTENSO,61) )
COMANDO DURANTE Z_posicao_branco = At(" ",Z_exte2)
COMANDO DURANTE Z_EXTE1   = Z_exte1 + If(Z_posicao_branco>0, Left(Z_exte2, Z_posicao_branco-1),"")
COMANDO DURANTE Z_EXTE2   = Rtrim( Substr(z_Extenso, 60+z_posicao_branco+1) )

D[Z_CONVENIO]
D
D               [Z_EXTE1]
D  [Z_EXTE2]
D
D       [Z_ASSNOME]
D
D                               [Z_MATRICULA 99999999]
D
D

FIM SUBLIST

