   DevPos(8,32);DevOut("Compras de uma Matricula")
   if !abre_prt()
      return
   endif
   Set( 20, "SCREEN" )
   zxtela = SaveScreen(0,0,24,79)
   ABRA ("0",r_siga,"sccrcli","sccrcli")
   w_fcli = 580
   dbGoto(w_fcli)
   DevPos(9,32);DevOut("Convenio:"+alltrim(cr_nome))
   dbCloseArea()
   abra ("0",r_siga,"vb_ass","VB_ASS", "VB_ASSM", "Str(cr_cod_cli,6)+str(matricula,7)", "VB_ASSN", "nome")
   w_chave    := str( w_fcli, 6)
   w_mensagem := "Sem mais Conveniados do Cliente"
   w_block    := _createblock('w_chave <> str(cr_cod_cli,6)')
   w_cr_cod_cli = w_fcli
   w_fcodfunc  = 0
   DevPos( 12, 32 ) ; DevOut( "Matricula...:" ); w_fcodfunc=VAR_GET(12,46, w_fcodfunc)
   zfound = DbSeek( Str(w_fcli,6)+str(w_fcodfunc,7) )
   if w_fcodfunc<=0 .or. .not. zfound
      Alert("Matricula "+Str(w_fcodfunc,7)+" Nao Cadastrada",,"R/W")
   else   
      w_ass_nome = nome
      zxopcao = "LISTA_VENDA_MAT"
      zaut    = "-1"
      zcmdline = lower("/siga/exe/sshcnvth ")+upper(zxopcao)+" "+StrZero(w_fcli,6)+" "+StrZero(w_fcodfunc,6)+" -1 -1 "+zaut
      s_arq_prn = lower( "/siga/rel/th_matri.rel" )
      __run( zcmdline+" > "+s_arq_prn )
   endif
   RestScreen(0,0,24,79,zxtela)
