Voce poderia fazer na tabela pedidos, que em Master,se likasse com a tabela 
itens.

Assim, elas ficariam sincronizadas.

em seguida, fazer o que você já apresentou

with DM2 do begin

   tItems.First;

   While not tItems.Eof do
      begin

      tItems.Edit;  //***
  
      result:= result + tItems.Fieldbyname'Subtotal').value);

      tItems.post;  //*** 

      tItems.Next;

    End;


mais ou menos assim deve dar certo 
  ----- Original Message ----- 
  From: Atila 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 02, 2005 1:36 PM
  Subject: [delphi-br] campo calculado c/ total de items


  Boa tarde,
  Alguem poderia me ajudar??

  Estou precisando de ajuda.
  D7/Paradox


  2Tabelas, 2Grids

  Tabela 1 / Grid 1 ----Pedido
  Gostaria de criar um campo calculado com o total de items


  Tabela 2  / Grid 2----Items
  total de items a ser jogado no campo calculado da tabela 1

  No OnCalcFields da Tabela 1 ja tentei de tudo mas fica tudo bagunçado

  Dm2.tItems.First;
     While not Dm2.tItems.Eof do
     begin
      If  
DM2.tPedidosAux.FindKey([Dm2.tItemsAgregado.FieldByName('CD_PRODUTO').AsInteger])
 then
        result:= result + (Dm2.tItems.Fieldbyname('Subtotal').asFloat);
        Dm2.tItems.Next;

      End;


  Alguma Sugestão????

  Obrigado
  Atila


  [As partes desta mensagem que não continham texto foram removidas]



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]




------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
      
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
      
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 




------------------------------------------------------------------------------


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 267.3.0 - Release Date: 30/05/2005


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a