ERROR BASE/119
Enviado: 16 Fev 2009 16:32
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
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.
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.)
EndifNetavin
---
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.