Fórum Interbase- Só falta isto,para concluir. #184740

28/09/2003

0

Delphi

Estou fazendo um trabalho e usando uma tabela Vendasb: Quero usar a data da venda como indicador para me dar o apurado total da data. Fiz uma Procedure ´´Confirma´ onde digo como se chama o paramentro na tabela de vendas com os valores que eu estou querendo pegar:
exemplo:
Procedure Tfven.confirma;
begin
qvencodigocli.value:= qclicodigocli.value;
qvenTITULO.value:=qestTITULO.value;
qvenCODIGOLIVRO.value:=qestCODIGOLIVRO.value;
//qvenData.Value:=formatdatetime(´dd/mm/yyyy´,now);
qvenvaloruni.value:=qestvaloruni.value;
qvenqtde.value:= verifica;
qest.Edit; e etc
o que está dando problema é a linha que tem //. Mostra uma mensagem que diz que TDate é incompatível com String

O negocio é que isto já funcionou em outras tabelas!!!

O que fazer?

grato desde Já.
Paulo


Paulo Almeida

Paulo Almeida

Responder

Posts

28/09/2003

Adilsond

Como seu campo é do tipo TDate e voce quer apenas a data sem a hora utilize:

qvenData.Value := Date;


Responder

Gostei + 0

28/09/2003

Paulo Almeida

Infelizmente não deu certo ele pega a data errado exemplo tá pegando o ano de 1899. O programa não compila e fica dando mensagem de erro.Mesmo assim , muito Obrigado por tentar ajudar.
Paulo.


Responder

Gostei + 0

28/09/2003

Vinicius2k

Paulo,
um format sempre retorna uma string... este eh o problema com a conversão...
converta sua string para date :

qvenData.Value:= StrToDate(formatdatetime(´dd/mm/yyyy´,now));

espero ter ajudado...


Responder

Gostei + 0

28/09/2003

Babu

Tente isso acho que vai funcionar...testei e funcionou
espero que ajude vc..

Procedure Tfven.confirma;
begin
qvencodigocli.value:= qclicodigocli.value;
qvenTITULO.value:=qestTITULO.value;
qvenCODIGOLIVRO.value:=qestCODIGOLIVRO.value;
qvenData.Value:=DateToStr(Date);
qvenvaloruni.value:=qestvaloruni.value;
qvenqtde.value:= verifica;
qest.Edit; e etc

Com esse codigo... vc recebe a linha tipo.: 28/09/2003 ou 28/09/03
vai de acordo como vc configura a data de seu micro... na nas configurações originais do Windows
...Testei aqui e deu certo..


Responder

Gostei + 0

28/09/2003

Vinicius2k

qvenData.Value:=DateToStr(Date);


Babu, o campo é tipo DATE não pode passar o value como string...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar