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.
Relatorio agrupado
Moderador: Moderadores
-
Dudu_XBase
- Membro Master

- Mensagens: 1071
- Registrado em: 25 Ago 2003 16:55
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.
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
________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle
