Findkey não aciona

08/01/2013

1

Eu estou tentando colocar findkey no meu componente ibtabe da paleta interbase e nao aciona , ele fica com um vermelho em cima da palavra :S oq sera de errado ?? preciso de ajuda
Responder

Posts

Seria interessante postar o seu código para assim podermos ajudá-lo!
Responder

09/01/2013

Clovis Junior

Então cara na hora quando vou clicar contro barra espaço para lançar este codigo

tabpedidoscod_peido.value , ele nao aparece nem o tabpedidoscod_cliente

porque sera?
Responder

09/01/2013

Clovis Junior

procedure TfrmBalcao.btnnovacomandaClick(Sender: TObject);
var Codigo:Integer;
begin
if MessageDlg('CONFIRMAÇÃO!'#13'Deseja abrir uma nova comanda ?',mtConfirmation, [mbYes, mbNo],0) = mrYes then begin
tabconfpedidos.IndexName := '';
Codigo := tabconfpedidos.RecordCount+1;
while tabconfpedidos.Locate([Codigo]) do
inc(Codigo);

IB_PEDIDO.Append;
IB_PEDIDOCOD_PEDIDO.Value := Codigo; //ta dando erro aki nesta linha em COD_PEDIDO ele aparece o "COD_PEDIDO"
IB_PEDIDODATA_PEDIDO.Value := StrToDate(Label18.Caption);
IB_PEDIDOHORA_PEDIDO.Value := Now;
IB_PEDIDONOME.Value := 'CONSUMIDOR';
IB_PEDIDOTIPO.Value := 'BALCAO';
IB_PEDIDOFECHADO.Value := 'NAO';
IB_PEDIDO.Post;
IB_PEDIDO.Refresh;
IB_PEDIDO.Edit;
btnincluirprodutos.Setfocus;
end else begin
btnnovacomanda.SetFocus;
end;
end;
Responder