RATIFICANDO
tenho 3 tabelas (Produto, Fornecedor e FornProd), onde, [b:abd10613cf]Produto [/b:abd10613cf]recebe dados de um determinado produto, [b:abd10613cf]Fornecedor [/b:abd10613cf]recebe dados de um determinado fornecedor e a tabela [b:abd10613cf]FornProd [/b:abd10613cf]apenas receberá os seguintes dados : CodForn(código do fornecedor) e CodProd(Código do Produto), simples OK?
Mas a questão é ao cadastrar um produto devo pegar o codigo do fornecedor e o codigo do produto e inserí-los na tabela [b:abd10613cf]FornProd[/b:abd10613cf].
Alguem por favor me ajude!!!
Agradeço desde já.
[]´s
:oops:
Mas a questão é ao cadastrar um produto devo pegar o codigo do fornecedor e o codigo do produto e inserí-los na tabela [b:abd10613cf]FornProd[/b:abd10613cf].
Alguem por favor me ajude!!!
Agradeço desde já.
[]´s
:oops:
Psiu
Curtidas 0
Respostas
Falinden
08/05/2003
Uma pergunta:
ao cadastrar um Produto, vc tem o Fornecedor ?
ao cadastrar um Produto, vc tem o Fornecedor ?
GOSTEI 0
Psiu
08/05/2003
Sim já possuo o fornecedor...
GOSTEI 0
Falinden
08/05/2003
No evento da query_Produto:
procedure query_ProdutoBeforePost(DataSet: TDataSet);
begin
with query do
begin
Close;
Sql.Clear;
Sql.Add(´ insert into FornProd(CodProduto, CodForn) ´);
Sql.Add(´ values (:CodProd,:CodForn) ´);
ParamByName(´CodProd´).asstring := query_ProdutoCODPROD.asstring;
ParamByName(´CodForn´).asstring := CodFornecedor; // veja a origem
ExecSql;
end;
end;
Qualquer dúvida, escreva. Espero ter ajudado,
FAB
procedure query_ProdutoBeforePost(DataSet: TDataSet);
begin
with query do
begin
Close;
Sql.Clear;
Sql.Add(´ insert into FornProd(CodProduto, CodForn) ´);
Sql.Add(´ values (:CodProd,:CodForn) ´);
ParamByName(´CodProd´).asstring := query_ProdutoCODPROD.asstring;
ParamByName(´CodForn´).asstring := CodFornecedor; // veja a origem
ExecSql;
end;
end;
Qualquer dúvida, escreva. Espero ter ajudado,
FAB
GOSTEI 0
Psiu
08/05/2003
Olha, recebo o nome do fornecedor em DbLukccombobox, como faço para descobri o codigo do mesmo para inseri-lo
GOSTEI 0
Falinden
08/05/2003
procedure query_ProdutoBeforePost(DataSet: TDataSet);
var
CodFornecedor :string;
begin
with query do
begin
Close;
Sql.Clear;
Sql.Add(´ select CodForn from Fornecedor where Nome_Fornecedor = :Forn ´);
ParamByName(´Forn´).asstring := DbLukccombobox.value;
Open;
CodFornecedor := FieldByName(´CodForn´).asstring;
Close;
Sql.Clear;
Sql.Add(´ insert into FornProd(CodProduto, CodForn) ´);
Sql.Add(´ values (:CodProd,:CodForn) ´);
ParamByName(´CodProd´).asstring := query_ProdutoCODPROD.asstring;
ParamByName(´CodForn´).asstring := CodFornecedor; // veja a origem
ExecSql;
end;
end;
// Confira os tipos de dados
var
CodFornecedor :string;
begin
with query do
begin
Close;
Sql.Clear;
Sql.Add(´ select CodForn from Fornecedor where Nome_Fornecedor = :Forn ´);
ParamByName(´Forn´).asstring := DbLukccombobox.value;
Open;
CodFornecedor := FieldByName(´CodForn´).asstring;
Close;
Sql.Clear;
Sql.Add(´ insert into FornProd(CodProduto, CodForn) ´);
Sql.Add(´ values (:CodProd,:CodForn) ´);
ParamByName(´CodProd´).asstring := query_ProdutoCODPROD.asstring;
ParamByName(´CodForn´).asstring := CodFornecedor; // veja a origem
ExecSql;
end;
end;
// Confira os tipos de dados
GOSTEI 0
Psiu
08/05/2003
Ok muito obrigado pela força...
GOSTEI 0