Formatar variavel Valor e data em Report

[Julio]

Boa tarde Pessoal!

Tenho um report, feito atraves do report desing.
Para alimentar este report, utilizo uma consulta em um formulario, apos a pesquisa realizada, armazeno os resultados em variaveis:

Código:

txt_datacompra = produto.dtcompra
txt_vlcompra    = produito.vlcompra

Aqui chamo o report

Código:

report form r_ficha_c to PRINTER prompt preview

Minha dúvida.
No report crio um FIELD com esta variavel txt_datacompra.

Pergunto como formatar os valores e as datas para que fiquem :
Valor = 1.200,95
Data = 23/07/2010


Obrigado

julio

[Marcos Guedes]

Para os valores eu precisei fazer uma função.
Se não aparecer algo prático, postarei aqui utilizo.
Quanto à data, em que formato está?

[Julio]

Marcos

Todos os campos de datas, na tabela DBF elas Type D e Width 8.

Após a pesquisa pego as datas assim:

Código:

 Thisform.txtDtCompra.value    = produto.dtcompra

Depois guardo na variavel assim:

Código:

txt_dtcompra  = Thisform.txtDtCompra.value

[Marcos Guedes]

Quero saber, na verdade, o formato.
Se é:

- dia/mês/ano
- ano/mês/dia
- mês/dia/ano

Pelo que entendi, sua data pode não estar no formato brasileiro.
O que exigiria que você acrescentasse SET DATE BRITISH ao seu código.

[Julio]

Marcos

No menu TOOLS / OPTIONS / Guia Regional, ja selecionado data British, ticado century, no programa principal tenho SET DATE BRITISH.

Colocando um wait logo apos a variavel ser alimentada é exibido a data 10/11/08, que é o exemplo.

Sim esta DIA/MES/ANO


Julio

[Marcos Guedes]

Pergunto como formatar os valores e as datas para que fiquem :
Valor = 1.200,95
Data = 23/07/2010

Se a data já está DIA/MÊS/ANO, então qual o problema na formatação acima citada?

[Julio]

Marcos

No report aparece

data 10/11/08 eu quero 10/11/2008 && nao sai o ano c/ 4 digitos

Valor 1200,95 eu quero 1.200,95 && nao sai o ponto


Julio

[Julio]

Quanto a data resolvi colocando no form os comandos

Código:

SET DATE TO BRITISH
SET CENTURY ON

Não sei porque não esta pegando a configuração do INICIO.PRG (setmain)
Depois verifico se em algum momento esta desabilitando.

Só falta o valor em moeda.

Julio

[Marcos Guedes]

Julio, faz muito tempo que fiz esta função, por isso está a maior bagunça, mas veja se lhe ajuda:

Código:

SET SEPARATOR TO '.'
SET POINT TO ','

CLEAR
?formato_moeda("123456789,56")
?formato_moeda(123456789.56)

FUNCTION formato_moeda
   LPARAMETERS valor_to_convert AS STRING

   LOCAL convention AS STRING
   LOCAL before_comma AS STRING
   LOCAL after_comma AS STRING
   LOCAL local_comma AS INTEGER
   LOCAL counter AS INTEGER
   LOCAL putting_point AS STRING
   LOCAL estouro AS INTEGER
   LOCAL i AS INTEGER
   LOCAL set_point AS CHARACTER
   LOCAL set_separator AS CHARACTER

   m.valor_to_convert = TRANSFORM(m.valor_to_convert)
   m.set_point = SET("Point")
   m.set_separator = SET("Separator")
   m.counter = 0
   m.before_comma = ""
   m.after_comma = ""
   m.putting_point = ""
   m.local_comma = AT(m.set_point, m.valor_to_convert)
   m.estouro = LEN(m.valor_to_convert)

   FOR i = (m.local_comma) TO m.estouro
      m.after_comma = m.after_comma + SUBSTR(m.valor_to_convert, i, 1)
   ENDFOR

   m.estouro = (m.local_comma - 1)

   FOR i = 1 TO m.estouro
      m.before_comma = SUBSTR(m.valor_to_convert, i, 1) + m.before_comma
   ENDFOR

   m.estouro = (m.local_comma - 1)

   FOR i = 1 TO m.estouro
      m.counter = m.counter + 1
      m.putting_point = m.putting_point + SUBSTR(m.before_comma, i, 1)
      IF (m.counter = 3) AND (i != m.estouro)
         m.counter = 0
         m.putting_point = m.putting_point + m.set_separator
      ENDIF
   ENDFOR

   m.before_comma = ""
   m.estouro = LEN(m.putting_point)

   FOR i = 1 TO m.estouro
      m.before_comma = SUBSTR(m.putting_point, i, 1) +  m.before_comma
   ENDFOR

   m.convention = m.before_comma + STRTRAN(m.after_comma, m.set_separator, m.set_point)
   m.convention = STRTRAN(m.convention, "-" + m.set_separator, "-")

   RETURN m.convention
ENDFUNC

Obs.: Talvez existe uma solução melhor.


Resolve?

[m@r<3|o]

eai Julio blzzzz
comigo aconteceu isso esses dias, isso é coisas que desconfigura testando projetos

só que acontecia no brow , nao na impressao do relatorio
tenta isso

no init do form

Código:

SET DELETED ON

e no load

Código:

SET DELETED ON
SET SAFETY OFF
SET CENTURY ON
SET DATE ANSI

SET DATE BRITISH
SET EXCLUSIVE OFF

pra compilar vai arrumar
no seu brow provavel continuara
complicada essa vida de hacker
abs
obg
Marcelo

[Nelson Arcas]

Julio
Estava com um problema assim e encontrei a seguinte solução e veja se atende sua necessidade

No prg (main) estou colocando

Código:


SET SYSFORMATS ON
SET CURRENCY TO 'R$'         && Moeda para real
SET CENTURY ON
SET DATE TO BRITISH


Na máscara do rerport estou colocando para os campos do tipo moeda

Código:


999,999,999.99


Espero ter ajudado

[alceu11]

tem um video para ajudar alem das repostas dadas no topico

[Você precisa estar registrado e conectado para ver este link.]

[Julio]

Pessoal

Este report esta sendo alimenado com uma variavel que ele recebe de um form e nao diretamente da tabela.

Estou tentando com o codigo que o Marcos postou.

julio

[lardecristo]

Bom, resposta rápida, é com o VFP 9.0, se sim, quando você colocar o objeto field para conter o conteudo da variavel, vá com o mouse click com o botão direito, propriedades, depois vá na guia Format e veja as opções.

Para valor
coloque em "format expression: " 999,999,999.99
Marque Numeric abaixo

[hugo]

lembrando que dependendo da configuracao vai ser

999.999.999,99

set point to
set separator
set fixed
set decimals