MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

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

    Mensagem  annissima em Qua 18 Nov - 8: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?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua 18 Nov - 9: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 100%

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

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

    Mensagem  annissima em Qua 18 Nov - 9: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 100%

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

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

    Mensagem  Avelino Sampaio em Qua 18 Nov - 10: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!


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.

      Data/hora atual: Qui 3 Dez - 7:07