none
Erro 800a01c2 - Chamada de Função RRS feed

  • Pergunta

  • Prezados,

    Bom dia.

    Tenho um arquivo asp que faz a inclusão de um arquivo chamado funcoes_manutencao.asp

    No arquivo funcoes_manutencao.asp estou fazendo uma chamada para um determinada função que precisa apenas de um parametro. Porém estou recebendo o seguinte erro:

    <p>Erro de tempo de execu&#231;&#227;o do Microsoft VBScript</font> <font face="Arial" size=2>erro '800a01c2'</font>
    <p>
    <font face="Arial" size=2>N&#250;mero de argumentos incorreto ou atribui&#231;&#227;o de propriedade inv&#225;lida: 'SEQUENCIAL_TESTE'</font>
    <p>
    <font face="Arial" size=2>/ms2000web/web/aplicativo/MSMODELO_Manutencao.asp</font><font face="Arial" size=2>, line 0</font>
    Código da função:

    Function SEQUENCIAL_TESTE(qteste)
    	Dim sql, valor, vetor, campo, tabela
    	campo = "CODIGO"
    	tabela = "EXPORTADORES"
    		sql = "select ISNULL(MAX(CAST("& campo &" AS INTEGER))+1,1) as SEQUENCIA from " & tabela
    		Set rs_SEQ = conn.execute(sql)
    		valor = rs_SEQ(0)
    	
    		rs_SEQ.close()
    		set rs_SEQ = Nothing
    		
    	SEQUENCIAL_TESTE = valor
    End Function
    Chamada da função:

    Function MANUT_verFuncao(funcao,param,vercampos,valcampo,opcao,opcao2,qOnChange,qOnClick,qOnFocus,qOnkeyPress,qOnKeyUp)
       Select Case funcao
          ''' funcoes do dbgrid
          Case "DBGRID_vertabela"     			: MANUT_verFuncao = DBGRID_vertabela(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)
    	  Case "DBGRID_SIM_NAO"       			: MANUT_verFuncao = DBGRID_SIM_NAO(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)
    	  Case "DBGRID_SIM_NAO_INTEIRO" 		: MANUT_verFuncao = DBGRID_SIM_NAO_INTEIRO(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)
    	  Case "DBGRID_DIC_TIPOS"        	    : MANUT_verFuncao = DBGRID_DIC_TIPOS(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)	  
    	  Case "DBGRID_DIC_TIPOS_E"        	    : MANUT_verFuncao = DBGRID_DIC_TIPOS_E(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)	  	  
    	  Case "DBGRID_ExibirArquivo" 			: MANUT_verFuncao = DBGRID_ExibirArquivo(param)
          Case "DBGRID_verlink"       			: MANUT_verFuncao = DBGRID_verlink(valcampo,param,opcao)	  
          Case "DBGRID_veremail"      			: MANUT_verFuncao = DBGRID_veremail(valcampo,param,opcao,opcao2)
    	  Case "DBGRID_verTabela_Seek"			: MANUT_verFuncao = DBGRID_verTabela_Seek(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)
    	  ''' funcoes de Manutenção
          Case "MANUT_vertabelaprod"  			: MANUT_verFuncao = MANUT_vertabelaprod(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus)	  
          Case "MANUT_vertabelaitem"  			: MANUT_verFuncao = MANUT_vertabelaitem(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus)	  
    	  Case "MANUT_vergrid"        			: MANUT_verFuncao = MANUT_Vergrid(param)
          Case "MANUT_vergridprod"    			: MANUT_verFuncao = MANUT_Vergridprod(param)	  	  
      	  Case "MANUT_Sequencial"     			: MANUT_verFuncao = MANUT_Sequencial(param,vercampos,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus)
       	  Case "MANUT_Sequencial_Item"			: MANUT_verFuncao = MANUT_Sequencial_Item(param,vercampos,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress)
       	  Case "MANUT_Ver_Parametro"  			: MANUT_verFuncao = MANUT_Ver_Parametro(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress)	  
          Case "MANUT_vertabelaCEP"   			: MANUT_verFuncao = MANUT_vertabelaCEP(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus)	  	  
    	  Case "DBGRID_vertabelaMateriais"		: MANUT_verFuncao = DBGRID_vertabelaMateriais(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)
    	  Case "DBGRID_vertabelaStatus"			: MANUT_verFuncao = DBGRID_vertabelaStatus(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)
    	  Case "DBGRID_vertabelaAuxiliar"		: MANUT_verFuncao = DBGRID_vertabelaAuxiliar(param,valcampo,opcao,opcao2,qOnChange,qonclick,qOnFocus,qOnkeyPress,qOnKeyUp)
    	  Case "SEQUENCIAL_TESTE"      			: MANUT_verFuncao = SEQUENCIAL_TESTE(param)
    	  Case "SEQUENCIAL_PROCURADOR"      	: MANUT_verFuncao = SEQUENCIAL_PROCURADOR()
    	  Case "SEQUENCIAL_IMPORTADOR"      	: MANUT_verFuncao = SEQUENCIAL_IMPORTADOR()
       End Select
    End Function
    Se eu retirar o parametro da função, a mesma funciona perfeitamente.

    Agradeço a atenção!

    Sandro Rassy
    rassy
    quinta-feira, 26 de novembro de 2009 12:56

Respostas

  • Rassy,

    Vc esta passando um parametro para a função "qteste" mais aonde vc esta utilizando esse parametro?

    Abraços,

    Leandro Rodrigues
    Caso a resposta tenha ajudado, não esqueça de marcar como resposta válida
    • Marcado como Resposta rassy quarta-feira, 19 de maio de 2010 12:29
    quarta-feira, 2 de dezembro de 2009 00:29