Subtração no Retatório

[Josmar dos Santos]

Boa Noite, to tentando fazer uma subtração de Valores no relatório e não estou conseguindo, eis os codigos:

Código: Selecionar todos

PRIVATE SALDO
SALDO:=0
SALDO:=V_GUINC-V_PEDAG //Primeira tentativa
SALDO:=RET_SAL() //Segunda tentativa
      PAG=PAG+1
      @ 02,01 SAY ""
      @ 03,01 SAY REPL("=",120)
      @ 04,082 SAY "PEDAGIO:"
      @ 04,097 SAY "VALOR:"
      @ 04,112 SAY "SALDO:"
      @ 05,01 SAY REPL("=",120)
      LINHA=06
      @ LINHA,078 SAY V_PEDAG
      @ LINHA,091 SAY V_GUINC
      @ LINHA,105 SAY SALDO //Ta retornando zero "0.00" 


FUNCTION RET_SAL
RETURN V_GUINC-V_PEDAG

Fiz de duas maneiras como vocês podem ver acima e não deu certo .
SALDO é uma variável de memória, V_PEDAG E V_GUINC são dados da DBU Numérica, Alguém saberia me dizer o que estou fazendo de errado ?
Obrigado
Josmar

[gvc]

Só para testar novamente:

Código: Selecionar todos

PRIVATE SALDO
SALDO := 0
// SALDO:=RET_SAL() //Segunda tentativa
      PAG++
      @ 02,01 SAY ""
      @ 03,01 SAY REPL("=", 120)
      @ 04,082 SAY "PEDAGIO:"
      @ 04,097 SAY "VALOR:"
      @ 04,112 SAY "SALDO:"
      @ 05,01 SAY REPL("=", 120)
      LINHA := 06
      @ LINHA,078 SAY V_PEDAG
      @ LINHA,091 SAY V_GUINC
      xSALDO := V_GUINC - V_PEDAG //Primeira tentativa
      @ LINHA,105 SAY xSALDO //Ta retornando zero "0.00" 


FUNCTION RET_SAL
RETURN V_GUINC-V_PEDAG

[Josmar dos Santos]

Ola gvc, funcionou legal e muito obrigado pela dica, porém gostaria se possível de uma previa explicação sua para eu entender o que eu fiz de errado para não ocorrer mais o mesmo !
Obrigado

Josmar
:)Pos

[gvc]

Eu simplesmente coloque a variável xSaldo para o calculo e para impressão.
Talvez vc tenha o campo SALDO no arquivo.
Alias a linha "saldo := 0" tb pode ser removida.