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

2 participantes

    [Resolvido]Exportação TXT - Último campo não exporta

    avatar
    narrate41
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/01/2018

    [Resolvido]Exportação TXT  - Último campo não exporta Empty [Resolvido]Exportação TXT - Último campo não exporta

    Mensagem  narrate41 18/2/2019, 03:15

    Olá Amigos!

    Novamente venho aqui buscar uma ajuda valiosa.

    No arquivo em anexo, existe um formulário chamado "Pendencias". Ao acessar o mesmo, vão ver um registro de controle número "7" já preenchido.

    Quando clico no botão"Exportar Arquivo", o arquivo é gerado na área de trabalho da seguinte forma:

    Primeira linha: Os campos do "Header do Arquivo", que são do H1 ao H6;
    Segunda linha: Os campos do "Registro de Pendências", que são do 1 ao 22;
    Terceira linha: Os campos do "Trailler do Arquivo", que são do T1 ao T7;

    Os campos de exportação estão discriminados na consulta "qryExport_header","qryExport_pendencias" e "qryExport_trailler";
    O Exportador usado foi criado pelo grande colaborador deste grupo, JPaulo, que chama "modExportaParaTXT";

    Meu problema é que tanto o campo H6 (do header) e T7 (do trailler), que são campos fixos com espaços em branco, não são exportados.

    Fiz um teste, onde se eu criar um campo após esses dois, como por exemplo um H7 e um T8 preenchidos, eles são exportados e o H7 e T8 não, ou seja, imagino que "problema"seja serem os últimos de cada bloco.

    Ao clicar no botão "Exportar Arquivo", o valor que devem inserir é 078666 ou somente cliquem em CTRL + V que o sistema cola o valor do campo lote.

    Podem me ajudar?

    Exemplo_Download
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Exportação TXT  - Último campo não exporta Empty Re: [Resolvido]Exportação TXT - Último campo não exporta

    Mensagem  JPaulo 18/2/2019, 13:26

    Olá;

    O seu H6 e T7 não tem valores e são os ultimos campos.

    Como pretende que seja exportado se estiver Nulo ?

    Se você adicionar uma nova coluna exemplo: H7 e escrever lá algo, funciona.

    Veja:
    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new Instruções SQL como utilizar...
    avatar
    narrate41
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/01/2018

    [Resolvido]Exportação TXT  - Último campo não exporta Empty Re: [Resolvido]Exportação TXT - Último campo não exporta

    Mensagem  narrate41 18/2/2019, 23:46

    Olá JPaulo, como vai?

    Os dois campos (H6 e T7) precisam gerar 177 e 193 espaços em branco (ambos possuem um evento ao perder o foco) respectivamente e como pode conferir no print em anexo, os mesmos estão com esses espaços, por isso deu a ideia de estarem vazios, mas não estão.

    Esses espaços precisam ser exportados.

    Não posso criar um campo após esses dois, pois realmente são os últimos e preciso seguir o layout que foi enviado.

    Desde já obrigado
    Anexos
    [Resolvido]Exportação TXT  - Último campo não exporta Attachmentimagem.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 4 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Exportação TXT  - Último campo não exporta Empty Re: [Resolvido]Exportação TXT - Último campo não exporta

    Mensagem  JPaulo 19/2/2019, 17:47

    Olá;

    A unica alternativa para isso é usarmos a função interna "Space" no Do Until.

    Código:
                If Left(rs.Fields(i).Value, 1) = "H" Then
                OutputLine = rs.Fields(i).Value & Space(177) 'acrescenta 177 espaços no final do header
                Else
                OutputLine = rs.Fields(i).Value
                End If

    Veja se assim já serve;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new Instruções SQL como utilizar...
    avatar
    narrate41
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/01/2018

    [Resolvido]Exportação TXT  - Último campo não exporta Empty Re: [Resolvido]Exportação TXT - Último campo não exporta

    Mensagem  narrate41 20/2/2019, 00:14

    Olá JPaulo!

    Perfeito!!! Muito obrigado pelo apoio de sempre.

    Abs
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Exportação TXT  - Último campo não exporta Empty Re: [Resolvido]Exportação TXT - Último campo não exporta

    Mensagem  JPaulo 20/2/2019, 09:56

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportação TXT  - Último campo não exporta Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 1/8/2021, 11:25