Fórum inseri na tabela #498651

boa noite, pessoal to usando um zquery, que inseri os dados na dbgrid mas nao esta adicionado, de uma olhada o que estou fazendo errado fazendo favor


procedure Tfrmvenda_pdv.RTOTALKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY = #13 THEN
BEGIN
if (RQTDE.value <> 0) and (eproduto.Text <> '') and (RTOTAL.Value <> 0) then
begin
try

qrvenda_produto.Insert;
qrvenda_produto.FieldByName('codproduto').asstring := qrproduto.fieldbyname('codigo').asstring;
qrvenda_produto.FieldByName('produto').asstring := qrproduto.fieldbyname('produto').asstring;
qrvenda_produto.FieldByName('NUMERACAO').asstring := qrproduto.fieldbyname('UNIDADE').asstring;
qrvenda_produto.FieldByName('qtde').asfloat := rqtde.value;
qrvenda_produto.FieldByName('unitario').asfloat := runitario.value;
qrvenda_produto.FieldByName('total').asfloat := rtotal.value;
qrvenda_produto.FieldByName('desconto').asfloat := rdesconto.value;
qrvenda_produto.FieldByName('tipo').asinteger := comboforma.ItemIndex;
qrvenda_produto.FieldByName('item').asstring := frmprincipal.zerarcodigo(inttostr(item),3);
litem.Caption := frmprincipal.zerarcodigo(inttostr(item),4);
item := item+1;
ltotal.caption := formatfloat('############0.00',strtofloat(ltotal.caption)+qrvenda_produto.FieldByName('total').asfloat);
qrvenda_produto.post;
frmmodulo.ConexaoLocal.Commit;
qrvenda_produto.refresh;
qrvenda_produto.Last;

eproduto.text := '';
rqtde.value := 0;
runitario.value := 0;
rdesconto.value := 0;
rtotal.value := 0;
lcodigo.Caption := '';
eproduto.setfocus;
except
// frmprincipal.msg('ERRO','Este item está sendo utilizado'+#13+'em outro terminal!'+#13+'Favor pedir a sua liberação'+#13+'para poder prosseguir!',false,false,true,'');
rtotal.setfocus;
exit;
end;
end
else
begin
rtotal.setfocus;
end;


END
ELSE
BEGIN
ABORT;
END;
end;