Findkey não aciona
08/01/2013
0
Clovis Junior
Posts
09/01/2013
Deivison Melo
09/01/2013
Clovis Junior
tabpedidoscod_peido.value , ele nao aparece nem o tabpedidoscod_cliente
porque sera?
09/01/2013
Clovis Junior
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;
Clique aqui para fazer login e interagir na Comunidade :)