error '800a000d' Type mismatch:

[marciolvs 1]

tenho um sistema que gera boletos mensalmente para meus clientes.

Bom o sistema funcionava certinho atpe que a empresa responsável pela hospedagem efetuou uma manutenção e ele agora dá erro, porem eles não quer se responsabilizar.

 

 

erro:

 

 

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'adZero'

/admin/frame_pagamento_cobranca.asp, line 51

 

linha 51:

 

MesHoje = adZero(Month(Now()), 2)

 

alguém pode ajudar ?

 

obs.: procurei no fórum, mas os itens que achei não me ajudou

[xanburzum 169]

adZero precisa estar no formato compatível, esse erro geralmente vem porque você tem uma sintaxe errada que está tentando usar uma função como um array, ou uma string como uma função. Aqui estão alguns exemplos que fará com que esse erro:


<%
dim foo (5)
foo (0)

', ou

foo

', ou

var foo = "foo"
%>

No primeiro caso, parece que o código está tentando chamar um sub ou função chamada "foo" - ". Foo" quando VSBcript está esperando o código para um valor no primeiro elemento do array O segundo exemplo é uma tentativa de chamar a sub ou função chamada "foo", quando não existe tal função . O último método "empresta" a palavra-chave

[Victor Menezes 2]

Isso é tratamento de data? como faz o tratamento inteiro ?

esse erro geralmente é quando o campo recebe um valor diferente do correto

 

EX: campo data tentando receber int

[xanburzum 169]

foi o que expliquei acima

[Victor Menezes 2]

quando eu postei vc n tinha postado ainda :D cliquei em enviar a sua ja estava lá auhauhauha digitamos juntos

[marciolvs 1]

a função e´esta

 

 

 

function adZero(sText, sQuant)


IF isNull(sText) THEN Exit Function


IF Len(sText) > sQuant THEN
adZero = sText
ELSE
adZero = String(sQuant - len(sText), "0") & sText 
END IF


End function

teria algum exemplo para eu tentar resolver ?

[xanburzum 169]

dá um response.write no adZero, para vermos o resultado da variável

[marciolvs 1]

não retorna nada.

a função adZero, ela trata o 0 das data, para não ficar com apenas 1 digito.

[xanburzum 169]

use antes umas dessas funções para formatar a data

 

Formato: aaaa-mm-dd

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: dd-mm-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm-dd-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm/dd/aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

[marciolvs 1]

usei esta função

 

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

mudei apenas "ConverterDataBanco" por "AdZero", pois existe autros lugares da página que chama ele.

 

mas não funcou

[xanburzum 169]

antes de um CDate na variavel

[marciolvs 1]

antes de um CDate na variavel

tem um exemplo ai ?

[xanburzum 169]

sua variável esta como string, use o CDate para converter em data

 

aqui

adZero = String(sQuant - len(sText), "0") & sText

 

depois dessa linha tente inserir

 

Cdate(adZero)

[marciolvs 1]

esta parte funcou.

 

e me dá este erro:

 

Microsoft VBScript runtime error '800a01a8'
Object required: ''
/admin/frame_pagamento_cobranca.asp, line 82

linha 82:

 

linha 81: strSQL = "SELECT TOP 1 * FROM tbl_imovel " & strWHERE & " (ProxCobranca = '" & MesHoje & "/" & AnoHoje & "' OR ProxCobranca = '00/0000') AND id_Cliente > 0;"
linha 82: Set Rs = Conexao.Execute(strSQL)

 

 

response:

 

SELECT TOP 1 * FROM tbl_imovel WHERE ( Transacao = 'Mensal' OR Transacao = 'Semestral' OR Transacao = 'Anual' ) AND (ProxCobranca = '05/2013' OR ProxCobranca = '00/0000') AND id_Cliente > 0;