Clipper

[Guest Clipper]

è o seguinte pessoal, eu to querendo fazer uma coisa bem simples em clipper, só que isso ta virando um problemão pramim, eu to querendo faze um comparação de datas de um banco de dados para a data atual, só que não ta funcionando, eu já fiz de td e não to intendendo..... o codigo ta ai em baixo.....

----------------------------------

clear

use locar

index on cod_cli to indcod_cli

Set Date to Brit

cod_clix = 0

@1,1 say "Digite o codigo do cliente:" get cod_clix

read

seek cod_clix

if found()

D_atual = date()

D_LOCX = D_LOC

D_devx = D_dev

@3,6 say d_LOCX

@4,6 say D_devx

@5,6 say D_atual

if D_devx < D_atual

alert ("O cliente deve devolver o filme")

else

alert ("TUDO CERTO!!!")

endif

else

alert ("Cliente não cadastrado")

end if

----------------------------------

eu to preçisando disso pra hoje até as 22:00 horas (é que tenho q intrega amanhã), por favor se alguém puder me ajudar, seria muito grato....

outra coisa, eu queria saber tb como é que se faz para se trabalhar com varios bando de dados em um só codigo (.prg)...

Valeww

[Guest Guest]

è o seguinte pessoal, eu to querendo fazer uma coisa bem simples em clipper, só que isso ta virando um problemão pramim, eu to querendo faze um comparação de datas de um banco de dados para a data atual, só que não ta funcionando, eu já fiz de td e não to intendendo..... o codigo ta ai em baixo.....

----------------------------------

clear

use locar

index on cod_cli to indcod_cli

Set Date to Brit

cod_clix = 0

@1,1 say "Digite o codigo do cliente:" get cod_clix

read

seek cod_clix

if found()

D_atual = date()

D_LOCX = D_LOC

D_devx = D_dev

@3,6 say d_LOCX

@4,6 say D_devx

@5,6 say D_atual

if D_devx < D_atual

alert ("O cliente deve devolver o filme")

else

alert ("TUDO CERTO!!!")

endif

else

alert ("Cliente não cadastrado")

end if

----------------------------------

eu to preçisando disso pra hoje até as 22:00 horas (é que tenho q intrega amanhã), por favor se alguém puder me ajudar, seria muito grato....

outra coisa, eu queria saber tb como é que se faz para se trabalhar com varios bando de dados em um só codigo (.prg)...

Valeww

qual o erro que esta dando? ou o que esse codigo esta retornando!!!!!

você não especificou direito o problema

Luciano Bonfim de Azevedo

luciano@bonfimsistemas.com.br

[jissa]

Cara.. vi este post relembro do passado. hehe

não sei se é isto esta meio vago mesmo.. mas vou tentar...

Olha só no DBF a data esta definida como Data mesmo ou caracter.. se for caracter voce tem que usar o DTOC (para converter de data PARA caracter)

tipo :

D_Atual = DTOC(date()) ai compara...

Pode ser isto...

para utilizar varios Bancos de Dados voce tem duas formas criando o ALIAS para cada DB e apenas chamando ele antes de utilizar..ou o USE mesmo...

[LucianoBonfim]

se for isso, não usa o DTC não.... usa a função DTOS ... essa funçaõ tranforma uma data para aaaammdd e a DTOC vai ficar dd/mm/aaaa. quando você for comparar nem sempre vai funcionar usando DTOC, porem acredito que você não deve ter criado um campo data como caracter, se você fez isso aproveita e muda para data!!!!!

Luciano Bonfim de Azevedo