ERROR BASE/119

[Netavin]

Olá amigos !
Passei meu sistema feito em Cli 5.3 para xHarbour. No Clipper funciona perfeitamente. Porém em xHarbour está ocorrendo um erro com a mensagem:
Error Base/1119
Erro nos parâmetros: CTOD Arguments:([1]=type: D VAL: 20070205).
As linhas são as seguintes:
Code D_BX:=ctod(" ")
@ Linh+36,C+21 Say "Data:" Get d_bx Valid baixou(d_bx)
Read

Código: Selecionar todos

/*******************************************************************/
/* Fun‡ao que verifica se houve baixa na data informada */
/*******************************************************************/
Function baixou(d_bx)
Locate for dtbx = d_bx
If d_bx > date()
    ERRORBEEP()
    A_lerta("Data inv lida!")
    Return(.f.)
ElseIf Empty(d_bx)
    ERRORBEEP()
    A_lerta("Informe a data!")
    Return(.f.)
ElseIf !found()
    ERRORBEEP()
    A_lerta("Nao houve baixa nesta data!")
    Return(.f.)
Else
    return (.t.)
Endif

Agradeço a ajuda !

Netavin


---
Nota da Moderação (Maligno):
O presente tópico foi editado para a inserção das tags delimitadores de código de programação, o que vem facilitar sua leitura.

[DLZ]

Pelo que vejo a data está no formato yyyymmaa... Eu normalmente uso a data no formato ddmmyyyy..
Para Tal, uso as seguintes configurações de ambiente...

SET DATE BRIT
SET CENTURY ON
SET EPOCH TO 1960

[Netavin]

... pessoal, me desculpem...
Foi apenas um desleixo de minha parte na codificação...
Grato!!!
Netavin