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

    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 Qua Nov 18, 2020 11:57 am

    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?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira Qua Nov 18, 2020 12:08 pm

    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 Qua Nov 18, 2020 12:20 pm

    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 : 3711
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio Qua Nov 18, 2020 1:36 pm

    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: Dom Jun 20, 2021 1:15 am