1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. mudança de valores
× Linguagem de Programação ADVPL

Perguntas mudança de valores

Mais
9 anos 11 meses atrás #26603 por mvittoria
mudança de valores foi criado por mvittoria
Bom dia,

Tenho um relatório para exportar para csv, que enviamos para os EUA,
Mas preciso alterar os valores, onde valores negativos sejam positivos ou seja sem o sinal "-"
e que os positivos sejam mostrados com o sinal de "-"

Estou salvando a impressão em uma variavel.
Alguem ja fez algo nesse sentido?
While !cArqTmp->(Eof())         
	Incproc()
	If !Empty(cArqTmp->CUSTO).and.!Empty(cArqTmp->CONTA).and.!Empty(cArqTmp->ITEM).and.!Empty(cArqTmp->CLVL)
		cLinha := Alltrim(cArqTmp->CUSTO)+"," //Centro de Custo
		cLinha += Alltrim(cArqTmp->CONTA)+"," //Conta Contabil
		cLinha += Alltrim(cArqTmp->ITEM)+"," //Item Contabil
		cLinha += Alltrim(cArqTmp->CLVL)+"," //Classe de Valor 
		cLinha += Alltrim(Transform(cArqTmp->SALDOATU,"@E 999999999.99"))+"," //Saldo Atual
		cLinha += dtoc(dDataFim)+"," //Data Fim
		fWrite(nHandle,cLinha+CRLF)
	Endif
	cArqTmp->(dbSkip())
Enddo

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 11 meses atrás #26606 por kanaamlrr
Respondido por kanaamlrr no tópico mudança de valores
Você quer transformar negativo em positivo e positivo em negativo?
Multiplique por -1 e está tudo certo :silly: ;) :woohoo:

Exemplo:
		cLinha += Alltrim(Transform(cArqTmp->SALDOATU*-1,"@E 999999999.99"))+"," //Saldo Atual

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 11 meses atrás #26613 por mvittoria
Respondido por mvittoria no tópico mudança de valores
Obrigado, funcionando

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. mudança de valores
Tempo para a criação da página:0.104 segundos
Joomla templates by a4joomla