Relacionar Uma Tabel De Itens Com Uma Tabela De Orçamentos

[Robson Silva 1]

Olá pessoal. Fiz um sistema em delphi para orçamentos de uma auto-mecânica. As tabelas foram feitas no IBConsole e linkadas pelo interbase.Na tabela Itens possuem os seguintes campos principais:*Item_codigo, #Item_codigodoorcamento, Item_total e por ai vai...Na tabela Orçamentos possui *orca_codigo como chave primária.Coloquei um contador incremental de código do orçamento e para cada item. Está tudo certo.Só que preciso zerar para cada orçamento os itens por exemplo:Orçamento 1itens numero 1,2,3,4orçamento 2itens numero 1,2,3,4...Cada item está relacionado a um código do orçamento isso tudo na tabela itens, só que não sei como zerar, alguem tem uma idéia?Obrigado, abraço!

[marcio.theis 3]

Desculpa, mas ficou confuso a sua dúvida...Teria como explicar ela melhor ?Pois não entendi se querer relacionar as duas tabelas no delphi, ou se quer fazer a item ser sequencial para cada mestre, ou seja, sempre começando pelo registro 1...

[Robson Silva 1]

É fico confuso pra caramba! heheheSeguinte, seria como uma vendaa tabela itens tem os campos código, código do orçamento que é chave estrangeira, total, sub-total, valor unitário e quantidade.Já na tabela orçamentos possui os campos código, código do cliente, data, placa do veículo, forma de pagamento e mecânico responsável.O exemplo seria o seguinte:Orçamento de código 1 possui 4 itens:Item 1 Item 2Item 3Item 4Orçamento de código 2 possui 2 itens:Item 1 Item 2Como faço pra zerar a contagem de itens para cada orçamento relacionando cada item ao código do orçamento?

[marcio.theis 3]

No caso teria de colocar na tabela ITEM os dois campos código como chave primária, e você mesmo fazer a busca do próximo item via SQL, algo do tipo:

 

var	prox: integer;beginqry.Close;qry.SQL.Clear;qry.SQL.Add('select max(codigo) as Proximo');qry.SQL.Add('from item');qry.SQL.Add('where item.codigoServico = ' + IntToStr(Codigo_servico));qry.Open;prox:=qry.FieldByName('PROXIMO').Value;Inc(prox);qry.Close;tblItemCODIGO.Value:=prox;end;

[Robson Silva 1]

vlw era mais ou menos issoconsegui faze funcionaobrigado pela ajuda fórum bom d+vou começar a participar mais daqui...

[marcio.theis 3]

beleza...

Contamos com a sua presença Robson Silva http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif