Delphi + Mysql + Tabela Vendas x Itens_vendas

Question

Bom dia pessoal j� procurei por ai at� achei topicos com a mesma duvida mas nenhuma solu��o que me serve.Tenho um sistema Delphi XE8 com Mysql 5 usando Componentes DBExpres. O que preciso parece sim...

Jones Granatyr · Accepted Answer

Ol�,Sobre essa parte: OK mas e se o usuario desistir da venda? como desfa�o o post?Poderia tamb�m verificar se existe algum item, caso n�o faz um delete na vendaJones...

Huidemar Costa · Answer

Boa Tarde!A forma que eu faria � salvar o cabe�alho da nota(Id_Venda, Numero, data, cliente/fornecedor), tendo feito isso terei o ID_VENDA, feito isso eu incluiria os itens da nota.A tabela poderia ter um campo para dizer se a venda foi finalizada, caso n�o tenha sido finalizada, ou seja, o usu�rio desistiu da venda, ele exclui a Nota....

Kellson · Answer

usa o comando Max(codigo)+1  acho que no mysql deve ser mesma logica que no sqlselect Max(id) from clienteou select @@identity as ULTIMOID +1...

Kellson · Answer

vc deveria usar o CDS Virtual, assim vc pode manusear ate estornar antes de efetivar no banco de dados....

Kellson · Answer

olha como eu faria, como id da venda gera uma unica vez com autoincrement, Identity, entao vc precisa fazer apenas um insert onde gera o id da venda e grava todos os itens com id da venda capturado certo.

faz um Virtual Clientdataset para armazenar os itens temporario, fa�a uma fct ou SP no proprio delphi para quando form lan�ando item ja somando para vc

botao finalizar
with query_venda do
begin
close;
sql.clear;
sql.text:='insert into venda(colunas) values( valores);
execsql;
sql.clear;
sql.text:='select Max(IVENDA) as ULTIMOID from venda;
open <--------------------------------------------------------------------------------------------------------------- // abrir para trazer o resultado
VARIAVEL INTEGER OU STRING:=query.fieldbyname(ULTIMOID).value;
close;
sql.clear;

end;

ate agora vc tem o id da venda

entao agora vem

while not(clientdataset.eof) do
begin

with query_ITEMVENDA do
begin
sql.add('insert into itemvenda(codigovenda,item,etc) values('+quotedstr(StringCodVenda)+',item,etc);
end;

clientdataset.next;
end

with adoquery_itemvenda do
begin
execsql;
end;

gambiarra pura kkkkkk, unica coisa que passou rapido pela minha cabe�a, mas � claro se tiver fazendo na hora surge ideias melhores.

Kellson · Answer

...

Casa · Answer

Mas para uma aplica��o em rede onde dois ou mais usu�rios ir�o utilizar ao mmsm tempo nao da problema de violar a chave primaria?...

Kellson · Answer

nao da problema nao,pois so gera id quando o cliente requisita insert , entao o banco no servidor vai gerar o ID com o generator identity.
puts amigo nao tenho nenhum projeto, perdi meu HD com os projetos , porem ja fiz isso.

Casa · Answer

Ent�o fiz o teste aqui, e usar o comando MAX vai dar problema com a chave sim, ele s� gera o id quando posta, se duas pessoas abrir uma venda ao memso tempo vai gerar o mesmo ID.Consegue um exemplo pra mim?...

Raimundo Pereira · Answer

Boa tarde,Uma alternativa � Criar uma tabela tempor�ria.TMP_VendaID_VENDA,UsadoEnt�o, abriu a tela de vendas a primeira coisa � gerar um id e salvar na TMP_VENDA.O pr�ximo usu�rio em rede ir� gerar um novo ID.O n�mero fica resguardado, Ap�s comitt basta realizar um updade USADO=SIM....

Kellson · Answer

como vc fez? pois o sql aceita em seguimento os comandos n�o simult�neo na tabela,   exemplo: executar comando 1 e comando 21 - insert +1 =22 - insert +1=3e nao simultaneo 1,2...

Kellson · Answer

faz uma procedure ent�o onde da um set var=Identity para pegar ultimo numero da do gerador assim inserindo nos itens...

Kellson · Answer

exemplo seria isso aqui : gerar proximo id com o proprio gerador do banco , pegar o ip da venda para utilizar nos itens, usa o identity para pegar ultimo id, e logo abaixo na mesma procedure usa outro insert para os itens, com id da venda.

create procedure inserir
@nome varchar(max),
@idade integer
as
insert into cliente(nome,idade) values(@nome,@idade)
select @@IDENTITY as 'ULTIMOID'

Luiz Freitas · Answer

Ol�!Peluchi,Como os outros usu�rios sugeriram, existem outras formas de fazer isso de dentro do Delphi mesmo, utilizando CachedUpdate por exemplo, mas eu n�o me lembro como faz, ent�o vou sugerir uma solu��o que j� utilizei e funcionou perfeitamente:> Crie uma tabela para controle dos IDs, voc� pode controlar os IDs de todas as tabelas nas quais opera��es parecidas com essa (venda + item) precise ocorrer;> No formul�rio de venda, ao iniciar uma nova venda voc� consulta a tabela de controle de IDs, pega o valor gravado nela, adiciona mais um (e j� realiza o update na tabela de controle para que ele fique atualizada) e reserva esse valor;> Os dados do cabe�alho da Venda, juntamente com o ID gerado, ficam gravados temporariamente em um ClientDataSet (CDS) ou em um FDMemTable (FMT), assim eles n�o s�o gravados diretamente no banco, ficam em mem�ria at� o processo ser conclu�do;> Assim como no caso da Venda, insira os itens, utilizando como ID da Venda o valaor reservado anteriormente, tamb�m em um CDS ou em um FMT (para que eles fiquem em mem�ria at� o momento da grava��o no banco);> Caso a venda seja confirmada, transfira os dados para as tabelas de Vendas e de Itens no o banco de dados;> Caso a venda seja interrompida por qualquer motivo simplesmente limpe o CDS ou FMT e estar� tudo cancelado.Em qualquer uma das situa��es, seja usando CachedUpdates, com um campo auto-incremento na pr�pria tabela, ou usando a solu��o que sugeri, criando uma tabe...

F�rum Delphi + Mysql + Tabela Vendas x Itens_vendas #562377