Inserindo dados apos o clique YES do application
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
Curtidas 0
Respostas
Marco Salles
12/06/2010
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
GOSTEI 0
Carlos Mazzi
12/06/2010
Qual é o erro?
GOSTEI 0