[Resolvido]Concatenar campos puxando o saldo linha por linha e formatando os valores sem pontos e vírgulas

Boa tarde amigos do Fórum.
Estou desenvolvendo o programa para fazer o Livro Caixa Digital do Produtor Rural para a empresa que trabalho, preciso montar um relatório que esteja de acordo com o manual de preenchimento, porém não sei se estou fazendo certo e não estou conseguindo êxito em montar o relatório.


*Este é o modelo do relatório montado com os campos separados, ao ser executado fica igual ao abaixo.



*Neste relatório acima, notem que na coluna (12) ele está puxando o saldo linha a linha, porém o que eu preciso é concatenar os campos continuando a puxar os saldos linha a linha e alterar o formato dos valores das colunas (10), (11) e (12) pois na tabela eles estão formatados como moeda, eu preciso que os números fiquem sem ponto e vírgula, e na coluna (12) mesmo que o valor seja negativo não exiba o sinal (-) pois no final já será exibido "N" para negativo e "P" para positivo, por exemplo onde aparece 1.327,55 seja exibido 132755, onde é numero exato na tabela ele suprimi as casas decimais por exemplo onde aparece 4.500 eu preciso que seja exibido 450000.



*Este é o modelo do relatório que estou tentando fazer funcionar, em uma linha estou concatenando os campos, porém ele não traz os saldos atualizados e não consegui ainda fazer a formatação dos valores das colunas (10), (11) e (12).



* Por fim esse é o modelo do relatório que preciso para exportá-lo para TXT com os campos separados pelo delimitador "|" Pipe e puxando os saldos linha a linha e com os valores das colunas formatados do jeito que preciso.

Alguém pode me dar uma ajuda por favor ?!

Bom dia pessoal, estou postando parte do projeto para facilitar a quem possa se interessar a me ajudar, já que estou quebrando a cabeça há alguns dias e ainda não consegui êxito no que preciso.

Segue o link para baixar o arquivo:
https://1drv.ms/u/s!AsZXjIXTeb4ygv1HhZZuM9fipztzVw?e=gFgcij

*Para o arquivo ficar menor deixei apenas lançamentos de 01/01/20 a 03/02/20, já está configurado para a puxar o mês de Janeiro de 2020.


*No arquivo deixei dois relatórios: um que é o que eu preciso, e o segundo é o modelo que está funcionando só faltando as formatações dos valores das colunas (10), (11) e (12).


*Esse é o layout que preciso no relatório para exportá-lo para txt


*Esse é o modelo que está funcionando porém preciso concatená-lo para sumir os espaços e ficar igual o relatório acima.


Fico no aguardo de alguém que possa me dar uma luz.
Abraço amigos!

Bom día Claudinei!

Da uma olhada

Saludos

Nova versão com formato nas colunas 10, 11, 12

Saludos

Praticamente isso meu querido!
Se Não for abusar, onde tem valores inteiros como por exemplo 4500 (quatro mil e quinhentos) teria que aparecer 450000, no campo da tabela como está formatado em moeda ele não aparece as duas casas decimais, tem como aparecer no relatório?

Segue:

Saludos

Valeu Franklin,
Só o ouro!

Para dar o tópico por encerrado e os créditos ao nosso amigo FranklinJSP, segue o código abaixo.

Código:


'FranklinJSP --------------------------------------------------------------
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim Col10, Col11, Col12
    
    If Not IsNull(Me.[VL_ENTRADA]) Then
        Col10 = Format(Me.[VL_ENTRADA], "#,##0.00")
        Col10 = Replace(Col10, Chr(44), "")
        Col10 = Replace(Col10, Chr(45), "")
        Col10 = Replace(Col10, Chr(46), "")
    End If
    
    If Not IsNull(Me.[VL_SAIDA]) Then
        Col11 = Format(Me.[VL_SAIDA], "#,##0.00")
        Col11 = Replace(Col11, Chr(44), "")
        Col11 = Replace(Col11, Chr(45), "")
        Col11 = Replace(Col11, Chr(46), "")
    End If
    
    If Not IsNull(Me.[SLD_FIN]) Then
        Col12 = Format(Me.[SLD_FIN], "#,##0.00")
        Col12 = Replace(Col12, Chr(44), "")
        Col12 = Replace(Col12, Chr(45), "")
        Col12 = Replace(Col12, Chr(46), "")
    End If

    Me.Resultado = "Q100" & " | " & Me.DATA & " | " & Me.[COD_IMOVEL] & " | " & Me.[COD_CONTA] & " | " & Me.[NUM_DOC] & " | " & Me.[TIPO_DOC] & " | " & Me.HIST & " | " & Me.[ID_PARTIC] & " | " & Me.[TIPO_LANC] & " | " & Col10 & " | " & Col11 & " | " & Col12 & " | " & Me.[NAT_SLD_FIN]
End Sub
'FranklinJSP --------------------------------------------------------------


Bom día Claudinei

Que bom!