Relatório por data
Moderador: Moderadores
Relatório por data
Galera é o seguinte , estou tentando fazer um relatório de data em tela mais estou com probleminha ... quando mando listar de data inicial até data final só lista a data inicial .. olhem como eu estou fazendo e se possivel me corrijam
dData=datcad
if dData1=dData .and. dData1<=dData2
@row() +01,01 say cod //codigo
@row() ,13 say forn // fornecedor
@row() ,50 say end // endereço
skip
else
skip
endif
dData=datcad
if dData1=dData .and. dData1<=dData2
@row() +01,01 say cod //codigo
@row() ,13 say forn // fornecedor
@row() ,50 say end // endereço
skip
else
skip
endif
somar dbf
Aproveitando o tópico , tenho um relatório de notas fiscais e gostaria de saber como poderia somar todos os valores totais e mostrar no final do relatório
ex :
mostrei o numero da nota , fornecedor total da nota
mostrei o numero da nota , fornecedor total da nota
mostrei o numero da nota , fornecedor total da nota
mostrei o numero da nota , fornecedor total da nota
.....................................................valor total das nostas R$
sera que deu pra ter uma idéia de que quero...
pesso dscupas por ficar fazendo diverssas perguntas que talvez pra vcs sejam insignificantes , mas estou comessando a programar e preciso de ajuda da comunidade que até agora me foi muito ultil ! VLW
ex :
mostrei o numero da nota , fornecedor total da nota
mostrei o numero da nota , fornecedor total da nota
mostrei o numero da nota , fornecedor total da nota
mostrei o numero da nota , fornecedor total da nota
.....................................................valor total das nostas R$
sera que deu pra ter uma idéia de que quero...
pesso dscupas por ficar fazendo diverssas perguntas que talvez pra vcs sejam insignificantes , mas estou comessando a programar e preciso de ajuda da comunidade que até agora me foi muito ultil ! VLW
- sygecom
- Administrador

- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
Vc não esta fazendo perguntas insignificantes.Na minha opnião aqui no forum todos estão aqui para ajudar e ser ajudado...
Obs: Sempre que possivel faça uma busca no forum ou até mesmo faça vc mesmo uns teste e post seu codigo fonte para que todos vejam e possam lhe ajudar a resolver suas duvidas...
Segue Abaixo dois exemplos:
1° Ex:
FUNC SOMANOTAS
USE DBFNOTAS ALIAS DBFNOTAS SHARED
SET INDEX TO DBFNOTAS //(CAMPO INDEXADO PELO LIQUIDO)
xCODFOR=0
@ 01,01 GET xCODFOR
READ
SELE DBFNOTAS
SUM ALL TO LIQUIDO TOTAL FOR CODFOR=XCODFOR //
@ 01,01 SAY TOTAL PICT "@E 999,999.99"
RETURN
2°Ex:
FUNC SOMANOTAS
USE DBFNOTAS ALIAS DBFNOTAS SHARED
SET INDEX TO DBFNOTAS //(CAMPO INDEXADO PELO LIQUIDO)
xCODFOR=0
@ 01,01 GET xCODFOR
READ
SELE DBFNOTAS
xTOTALLIQ=0
do while !eof()
xliq=0
xliq=LIQUIDO
@ 01,01 SAY xliq
xTOTALLIQ=xTOTALLIQ+xliq // LIQUIDO INDIVUAL
SELE DBFNOTAS
SKIP
enddo
@ 01,01 SAY xTOTALLIQ // TOTAL DO LIQUIDO
RETURN
Tche, qualquer duvida post ai e vamos resolvendo um a um....mas lembre-se sempre de tenta fazer algo antes de postar...ou ainda de procurar no forum suas duvidas.
Clip-Abraço
Obs: Sempre que possivel faça uma busca no forum ou até mesmo faça vc mesmo uns teste e post seu codigo fonte para que todos vejam e possam lhe ajudar a resolver suas duvidas...
Segue Abaixo dois exemplos:
1° Ex:
FUNC SOMANOTAS
USE DBFNOTAS ALIAS DBFNOTAS SHARED
SET INDEX TO DBFNOTAS //(CAMPO INDEXADO PELO LIQUIDO)
xCODFOR=0
@ 01,01 GET xCODFOR
READ
SELE DBFNOTAS
SUM ALL TO LIQUIDO TOTAL FOR CODFOR=XCODFOR //
@ 01,01 SAY TOTAL PICT "@E 999,999.99"
RETURN
2°Ex:
FUNC SOMANOTAS
USE DBFNOTAS ALIAS DBFNOTAS SHARED
SET INDEX TO DBFNOTAS //(CAMPO INDEXADO PELO LIQUIDO)
xCODFOR=0
@ 01,01 GET xCODFOR
READ
SELE DBFNOTAS
xTOTALLIQ=0
do while !eof()
xliq=0
xliq=LIQUIDO
@ 01,01 SAY xliq
xTOTALLIQ=xTOTALLIQ+xliq // LIQUIDO INDIVUAL
SELE DBFNOTAS
SKIP
enddo
@ 01,01 SAY xTOTALLIQ // TOTAL DO LIQUIDO
RETURN
Tche, qualquer duvida post ai e vamos resolvendo um a um....mas lembre-se sempre de tenta fazer algo antes de postar...ou ainda de procurar no forum suas duvidas.
Clip-Abraço
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
xHarbour.org + Hwgui + PostgreSql
-
Zeca Roque
- Usuário Nível 2

- Mensagens: 59
- Registrado em: 11 Jul 2006 15:40
- Localização: SÃO PAULO-CAPITAL
Re: Relatório por data
Boa Tarde !!!ederxc escreveu:Galera é o seguinte , estou tentando fazer um relatório de data em tela mais estou com probleminha ... quando mando listar de data inicial até data final só lista a data inicial .. olhem como eu estou fazendo e se possivel me corrijam
dData=datcad
if dData1=dData .and. dData1<=dData2
@row() +01,01 say cod //codigo
@row() ,13 say forn // fornecedor
@row() ,50 say end // endereço
skip
else
skip
endif
Tente isto:
.......
bBloco := {|| datcad >= dData .AND. dData1 <= dData2 }
IF Eval(bBloco)
@row() +01,01 say cod //codigo
@row() ,13 say forn // fornecedor
@row() ,50 say end // endereço
ENDIF
SKIP
LOOP :)Pos
Saudacoes
José Carlos
Fw/Fwh - Clipper 52e - Blinker 7.0 - WS 4.50 - SIX - xHarbour110
José Carlos
Fw/Fwh - Clipper 52e - Blinker 7.0 - WS 4.50 - SIX - xHarbour110


