MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


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

    avatar
    narrate41
    Novato
    Novato

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

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    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 em 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 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 em 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 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    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 em 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 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 em 20/2/2019, 00:14

    Olá JPaulo!

    Perfeito!!! Muito obrigado pelo apoio de sempre.

    Abs
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    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 em 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...

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:00