MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    Função para preencher espaços vazios

    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Função para preencher espaços vazios Empty Função para preencher espaços vazios

    Mensagem  annissima 18/11/2020, 11:57

    Olá, estou começando a desenvolver um form que gerará um arquivo TXT para emissão de Notas Fiscais.

    O modelo de arquivo é o seguinte:
    tremembe.sigiss.com.br/tremembe/download/Manual%20Envio%20de%20Notas%20Fiscais%20Eletroncias%20em%20Lote_revisado.pdf
    Função para preencher espaços vazios 0links10

    Vou precisar gerar o arquivo TXT com tamanhos de campo especificados.
    A nota fiscal é uma única linha, e cada campo inicia em uma posição e termina em outra:

    Exemplo:
    Valor  - Informe o valor dos serviços com 15 caracteres.
    Exemplo: R$ 100,00 - 000000000010000

    Como faço para preencher os campos?
    Por exemplo:

    Endereço do  tomador
    Posição inicial: 184
    Posição final: 233
    Tamanho: 50
    Tipo: Texto


    Se no meu form o endereço tiver 25 caracteres e não 50? como preencho esses espaços?
    Como faço a função PRINT gerar esse arquivo de texto corretamente?

    Alguma ideia de por onde começar?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    Função para preencher espaços vazios Empty Re: Função para preencher espaços vazios

    Mensagem  Alvaro Teixeira 18/11/2020, 12:08

    Olá Anissima

    Já tentou a "Busca" aqui do fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Para os "zeros", será usar o format, veja:
    https://www.maximoaccess.com/t7972-resolvidoconsulta-acrescimo-com-zeros-a-esquerda

    Para exportar e tamanhos, este:
    https://www.maximoaccess.com/t22789-resolvidoexportar-tabela-para-txt-com-tamanho-especifico

    Deve ter mais é só fazer a "busca"

    Por último tenha atenção às Regras do Fórum (nº 14, veja mensagem anterior).

    Abraço
    annissima
    annissima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

    Função para preencher espaços vazios Empty Re: Função para preencher espaços vazios

    Mensagem  annissima 18/11/2020, 12:20

    Poxa, desculpa! Eu inseri o link com a ferramenta aqui, não coloquei diretamente. Não sei pq saiu assim...
    Vou olhar esse links, teixeira, obrigada!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3780
    Registrado : 04/04/2010

    Função para preencher espaços vazios Empty Re: Função para preencher espaços vazios

    Mensagem  Avelino Sampaio 18/11/2020, 13:36

    Olá!

    veja se este meu artigo ajuda ( uso da space() ):

    (copie e cole o endereço no seu navegador)
    usandoaccess.com.br/dicas/alinhar-valores-direita-listbox.asp

    e neste outro ( uso da string() ):

    usandoaccess.com.br/tutoriais/gerar-arquivo-remessa-banco-itau.asp

    Outra dica - Rode a função abaixo e veja o que acontece:

    Public Sub fncTeste()
    Dim x As String * 30
    Dim y As String
    x = "avelino"
    y = "Anna"
    MsgBox x & y
    End Sub


    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 24/9/2022, 20:13