RATIFICANDO

Question

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 determin...

Falinden · Answer

Uma pergunta: ao cadastrar um Produto, vc tem o Fornecedor ?...

Psiu · Answer

Sim j� possuo o fornecedor......

Falinden · Answer

No evento da query_Produto:procedure query_ProdutoBeforePost(DataSet: TDataSet);beginwith query dobegin     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...

Psiu · Answer

Olha, recebo o nome do fornecedor em DbLukccombobox, como fa�o para descobri o codigo do mesmo para inseri-lo...

Falinden · Answer

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

Psiu · Answer

Ok muito obrigado pela for�a......

F�rum RATIFICANDO #158802