ERROR BASE/1073 - ERRO NOS PARÂMETROS: <

[kapiaba]

ERROR BASE/1073 - ERRO NOS PARAMETROS: < ???

Manual do xHarbour:

http://www.fivetechsoft.com/harbour-docs/runtimeerrors.html

BASE/1073

Invalid type of arguments

Description

The type of compared argument do not match.

Example(s)

<

          // Galera o que esta errado aqui? VONFEUTIL2G.PRG

          // Quando o CERTIFICADO ESTA VENCIDO QUEBRA NESTA LINHA.


          If Date() < ::dInicioValidade .or. Date() > ::dFimValidade  // ???


             ::GeraLog("Certificado fora do período de validade!"+ Dtoc(::dInicioValidade)+" ate "+Dtoc(::dFimValidade) )


             #IFDEF __DOS__

                Alert("O Certificado esta fora do periodo de validade!" + "valido de "+Dtoc(::dInicioValidade)+" ate "+Dtoc(::dFimValidade) )

             #ELSE

                MsgStop("O Certificado esta fora do período de validade!"+CRLF+;

                        "valido de "+Dtoc(::dInicioValidade)+" até "+Dtoc(::dFimValidade),CAPTION_MSG)

             #ENDIF


             ::lOkDll:=.f.


          Else

Obg. abs.

[kleyber]

Dá um print em ::dInicioValidade e em ::dFimValidade quando entrar nessa rotina, pra ver o conteúdo deles.

[kapiaba]

Dá um print em ::dInicioValidade e em ::dFimValidade quando entrar nessa rotina, pra ver o conteúdo deles.

Apresenta as datas do certificado, só não sei se a DATA do CERTIFICADO é uma DATA ou uma STRING, pois não tenho CERTIFICADO vencido para testar.

Estranho é que essa bagaça do Gilmer(kkkkkkkkkkkk) funcionava, só se alguma marca de CERTIFICADO, em vez de por uma STRING, poe uma DATA... Vai saber. Boiei. Obg. Abs.

[kleyber]

Dá um ValType em cada um deles.

[kapiaba]

Blz. o Gilmer trata as DATAS como String e dá um CTOD(), eu acho que esse erro de PARAMETRO, é que o RETURN do Gilmer está errado. Vou fazer o que dizes... thanks.

[kapiaba]

Vamos ver o que acontece assim:

         /*

         ::dInicioValidade:=ctod(left(cInicioValidade,10))

         ::dFimValidade := cTod( left(cFimValidade,10) )

         */


         cValtype := Valtype( cInicioValidade )


         DO CASE

         CASE cValType == "C"


            ::dInicioValidade := ctod(left(cInicioValidade,10))

            ::dFimValidade    := cTod(left(cFimValidade,10) )


         CASE cValType == "D"


            ::dInicioValidade := left(cInicioValidade,10)

            ::dFimValidade    := left(cFimValidade,10)


         ENDCASE