PC Toledo

Enviado: **16 Mar 2005 09:12**

pessoal
tego os seguintes dados todos armazenados no arquivo (caixa.dbf), preciso que num periodo escolhido pelo cliente as despesas sejam agrupadas, isso avaliando a conta analitica de despesa (analit_cai), tipo:

quero que no periodo de 01/01/2005 seja relacionado todas as despesas mas ue fique separado por despesa e com totais em cada uma......

agradeço.

Enviado: **16 Mar 2005 11:02**

Não entendi mto bem.
Mas crie um indice pela data e o campo de despesas, isso caso vc use um código especifico para cada despesa.
Durante a impressão logicamente estando dentro de um while.
Inclua uma condição por exemplo.

Código: Selecionar todos

  // Nesse exemplo considerei os seguintes campos
  // caixa->DATA
  // caixa->DESP // campo que referencia a despesa
  // caixa->VALOR // valor da mesma
  // lembrando que deverá ter um indice 
  // ordem dtos(caixa->DATA)+caixa->DESP
  
  cDesp      := ""
  nValDesp := 0
  nTotDesp := 0
  
  while dtos(caixa->DATA) >= dtos(dIni) .and. ;
          dtos(caixa->DATA) <= dtos(dFim) .and. !eof()
         
         if cDesp <> caixa->DESP
           if nValDesp > 0
              ? "Valor da Despesa "+str(nValDesp,10,2)
              nValDesp := 0
           endif
            ? "Despesa "+caixa->DESP
            cDesp := caixa->DESP
         endif

        // Imprimo as demais informações.
         
         // Sumarizo a despesa e o total 
         nValDesp += caixa->VALOR
         nTotDesp += caixa->VALOR       

        caixa->(dbskip())
  enddo
  
   if nValDesp > 0
      ? "Valor da Despesa "+str(nValDesp,10,2)
       nValDesp := 0
   endif


   if nTotDesp > 0
      ? "Valor Total das Despesas "+str(nTotDesp,10,2)
       nValDesp := 0
   endif

PC Toledo

Relatorio agrupado

Relatorio agrupado