Fórum Inserindo dados apos o clique YES do application #379443
12/06/2010
0
Galera apos clicar no application box no YES, gostaria que ele pegasse a data e salvasse no banc + fica dando erro I/O 53 oque pode ser?
procedure TFPedidos.SpeedButton2Click(Sender: TObject);
var
I,CONTADOR:Integer;
IMPRESSORA:TextFile;
totalPedido,totalCalcau: Real; // Linha:String;
begin
CONTADOR:=0;
I:=0;
totalPedido:=0;
totalCalcau:=0;
if application.messagebox('Confirma a impressão do Pedido? ', 'Atenção', mb_iconquestion+ mb_yesno+mb_defbutton2)=idyes then
begin
pedidos.edit;
pedidosDATAIMPRESSAO.Value:=date;
pedidos.Post;
showmessage('A data da impressao foi:' +datetostr(pedidosDATAIMPRESSAO.Value)); ............ .......... ...... ..... .............. Creio que ta dando erro nessa questao de abrir o edit antes de salvar ou post do dado.
var
I,CONTADOR:Integer;
IMPRESSORA:TextFile;
totalPedido,totalCalcau: Real; // Linha:String;
begin
CONTADOR:=0;
I:=0;
totalPedido:=0;
totalCalcau:=0;
if application.messagebox('Confirma a impressão do Pedido? ', 'Atenção', mb_iconquestion+ mb_yesno+mb_defbutton2)=idyes then
begin
pedidos.edit;
pedidosDATAIMPRESSAO.Value:=date;
pedidos.Post;
showmessage('A data da impressao foi:' +datetostr(pedidosDATAIMPRESSAO.Value)); ............ .......... ...... ..... .............. Creio que ta dando erro nessa questao de abrir o edit antes de salvar ou post do dado.
Chadoiam
Curtir tópico
+ 0
Responder
Posts
13/06/2010
Marco Salles
Galera apos clicar no application box no YES, gostaria que ele pegasse a data e salvasse no banc + fica dando erro I/O 53 oque pode ser?
procedure TFPedidos.SpeedButton2Click(Sender: TObject);
var
I,CONTADOR:Integer;
IMPRESSORA:TextFile;
totalPedido,totalCalcau: Real; // Linha:String;
begin
CONTADOR:=0;
I:=0;
totalPedido:=0;
totalCalcau:=0;
if application.messagebox('Confirma a impressão do Pedido? ', 'Atenção', mb_iconquestion+ mb_yesno+mb_defbutton2)=idyes then
begin
pedidos.edit;
pedidosDATAIMPRESSAO.Value:=date;
pedidos.Post;
showmessage('A data da impressao foi:' +datetostr(pedidosDATAIMPRESSAO.Value)); ............ .......... ...... ..... .............. Creio que ta dando erro nessa questao de abrir o edit antes de salvar ou post do dado.
bem pode ser muita coisa... Tem que depurar e mostrar exatamente aonde esta Exceção esta sendo Levantada
Mas de cara Vc deve usar a Propriedades AsDateTime e AsString do Tfield para não ficar Fazendo Conversão
Desnecessária.. Tipo Isto
var
I,CONTADOR:Integer;
IMPRESSORA:TextFile;
totalPedido,totalCalcau: Real; // Linha:String;
begin
CONTADOR:=0;
I:=0;
totalPedido:=0;
totalCalcau:=0;
if application.messagebox('Confirma a impressão do Pedido? ', 'Atenção', mb_iconquestion+ mb_yesno+mb_defbutton2)=idyes then
begin
pedidos.edit;
pedidosDATAIMPRESSAO.Value:=date;
pedidos.Post;
showmessage('A data da impressao foi:' +datetostr(pedidosDATAIMPRESSAO.Value)); ............ .......... ...... ..... .............. Creio que ta dando erro nessa questao de abrir o edit antes de salvar ou post do dado.
begin
pedidos.edit;
pedidosDATAIMPRESSAO.AsDateTime:=date; // Data No Formato Data
pedidos.Post;
showmessage('A data da impressao foi:' +pedidosDATAIMPRESSAO.AsString); //Data No Formato String
Responder
Gostei + 0
17/06/2010
Carlos Mazzi
Qual é o erro?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)