Interbase- Só falta isto,para concluir.
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
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
Curtidas 0
Respostas
Adilsond
28/09/2003
Como seu campo é do tipo TDate e voce quer apenas a data sem a hora utilize:
qvenData.Value := Date;
qvenData.Value := Date;
GOSTEI 0
Paulo Almeida
28/09/2003
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.
Paulo.
GOSTEI 0
Vinicius2k
28/09/2003
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...
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...
GOSTEI 0
Babu
28/09/2003
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..
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..
GOSTEI 0
Vinicius2k
28/09/2003
qvenData.Value:=DateToStr(Date);
Babu, o campo é tipo DATE não pode passar o value como string...
GOSTEI 0