- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro ao usar função SALDOTIT()
×
Linguagem de Programação ADVPL
Perguntas Erro ao usar função SALDOTIT()
- saranery
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 50
- Obrigados Recebidos: 0
11 anos 11 meses atrás #8542
por saranery
Erro ao usar função SALDOTIT() foi criado por saranery
Boa tarde pessoal, tô precisando de uma ajudinha com um relatório...tenho um relatório customizado que exibe os titulos X fornecedor, que está rodando certinho...mas os usuários pediram para inserir uma coluna exibindo o saldo retroativo numa determinada data. Fiz o ajuste no relatório para exibir a informação usando a função SALDOTIT(), mas o relatório agora entra em loop e não exibe nada! O que pode estar acontecendo?Esta função desposiciona os registros?
A alteração que fiz no código foi basicamente esta:
(...)
while REL1244->(!Eof())
if oReport:Cancel()
EXIT
endif
_cPrefixo:= E2_PREFIXO
_cTitulo:= E2_NUM
_cParcela:= E2_PARCELA
_cTipo:= E2_TIPO
_cNatureza:= E2_NATUREZ
_cCarteira:= "P"
_cCliFor:= A2_COD
_cLoja:= A2_LOJA
_cFil:= E2_FILIAL
_dtRef:= MV_PAR10
_cCalcRet := Saldotit(_cPrefixo,_cTitulo,_cParcela,_cTipo,_cNatureza,_cCarteira,;
_cCliFor,,,_dtRef,_cLoja,_cFil)
_oSection2:Init()
(...)
_oSection2:Cell("E2_SALDORT"):SetValue( _cCalcRet) //coluna adicionada para exibir saldo retroativo
_oSection2:PrintLine() _cPrefixo:=_cTitulo:=_cParcela:=_cTipo:=_cNatureza:=_cCarteira:=_cCliFor:=_cLoja:=_cFil:=""
DbSkip()
End
DbCloseArea()
//
Alguém pode me dar uma mãozinha??
Grata,
Sara Nery
A alteração que fiz no código foi basicamente esta:
(...)
while REL1244->(!Eof())
if oReport:Cancel()
EXIT
endif
_cPrefixo:= E2_PREFIXO
_cTitulo:= E2_NUM
_cParcela:= E2_PARCELA
_cTipo:= E2_TIPO
_cNatureza:= E2_NATUREZ
_cCarteira:= "P"
_cCliFor:= A2_COD
_cLoja:= A2_LOJA
_cFil:= E2_FILIAL
_dtRef:= MV_PAR10
_cCalcRet := Saldotit(_cPrefixo,_cTitulo,_cParcela,_cTipo,_cNatureza,_cCarteira,;
_cCliFor,,,_dtRef,_cLoja,_cFil)
_oSection2:Init()
(...)
_oSection2:Cell("E2_SALDORT"):SetValue( _cCalcRet) //coluna adicionada para exibir saldo retroativo
_oSection2:PrintLine() _cPrefixo:=_cTitulo:=_cParcela:=_cTipo:=_cNatureza:=_cCarteira:=_cCliFor:=_cLoja:=_cFil:=""
DbSkip()
End
DbCloseArea()
//
Alguém pode me dar uma mãozinha??
Grata,
Sara Nery
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 11 meses atrás #8983
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Erro ao usar função SALDOTIT()
Sara provavelmente sim, faça o seguinte:
nRecSe2 := SE2->(Recno())
_cCalcRet := Saldotit(_cPrefixo,_cTitulo,_cParcela,_cTipo,_cNatureza,_cCarteira,;
_cCliFor,,,_dtRef,_cLoja,_cFil)
SE2->(dbGoTo(nRecSe2))
Assim ele guarda o registro anterior, processa o saldotit e depois volta ao registro original.
nRecSe2 := SE2->(Recno())
_cCalcRet := Saldotit(_cPrefixo,_cTitulo,_cParcela,_cTipo,_cNatureza,_cCarteira,;
_cCliFor,,,_dtRef,_cLoja,_cFil)
SE2->(dbGoTo(nRecSe2))
Assim ele guarda o registro anterior, processa o saldotit e depois volta ao registro original.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- saranery
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 50
- Obrigados Recebidos: 0
11 anos 10 meses atrás #9013
por saranery
Respondido por saranery no tópico Re: Erro ao usar função SALDOTIT()
Oi Luis, obrigada pelo retorno,
Alterei o código como sugeriu e aparentemente funcionou (pelo menos o relatório não está mais em loop)
Vou fazer mais alguns testes e depois posto o resultado.
Obrigada pelo help,
Sara Nery
Alterei o código como sugeriu e aparentemente funcionou (pelo menos o relatório não está mais em loop)
Vou fazer mais alguns testes e depois posto o resultado.
Obrigada pelo help,
Sara Nery
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro ao usar função SALDOTIT()
Tempo para a criação da página:0.110 segundos