Relatório por data

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Relatório por data

Mensagem por ederxc »

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
Avatar do usuário
kiko
Usuário Nível 3
Usuário Nível 3
Mensagens: 145
Registrado em: 08 Jul 2004 15:24
Localização: Cianorte

Mensagem por kiko »

ta confuso, cara...
posta o codigo completo pra gente analisar melhor....
valeu
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

Vc deve comparar assim:

dData=datcad
if ddata >= dData1 .and. ddata <= dData2
@row() +01,01 say cod //codigo
@row() ,13 say forn // fornecedor
@row() ,50 say end // endereço
endif
skip

boa sorte.
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

Fala ae GVC , vc acertou denovo , muito abrigado mais uma vez cara !
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

somar dbf

Mensagem por ederxc »

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
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

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
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

Desculpe, mas tente isto:

xliq := 0
while !eof()
@ 01,01 SAY liquido
xliq += liquido // LIQUIDO INDIVUAL
dbskip()
end
@ 01,01 SAY xliq // TOTAL DO LIQUIDO
RETURN
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

irei tentar as auternativas e posto em seguida o resultado , vlw!
Zeca Roque
Usuário Nível 2
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

Mensagem por Zeca Roque »

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
Boa Tarde !!!

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
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

cara valeu pela ajuda ! Mas eu ja havia feito do jeito em que o gvc falou ... mesmo assim agradeço o esforço da galera em ajudar .. sempre são boas as sugestões !
Responder