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]Gerar arquivos

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos Empty [Resolvido]Gerar arquivos

    Mensagem  msilveir em 2/7/2019, 21:25

    ola Pessoal

    tenho esse código abaixo , ele gerar um arquivo solicita.txt eu gostaria de gerar varios arquivos
    exemplo solicita1,solicita2,solicita3 e assim por diante no mesmo diretorio

    Código:
    Open "c:\Temp\Solicita.txt" For Output As #1

    Print #1, Me.txt1
    Print #1, Me.txt2
    Print #1, Me.txt3
    Print #1, Me.txt4
    Print #1, Me.txt5;
    Print #1, Me.txt6; Me.Filial; Me.txt7
    Print #1, Me.txt8
    Print #1, Me.txt9; Me.txtNumeroNota; Me.txt10
    Print #1, Me.txt11; Me.txtRampa; Me.txt12
    Print #1, Me.txt13
    Print #1, Me.txt14
    Print #1, Me.txt15
    Print #1, Me.txt16
    Print #1, Me.txt17
    Print #1, Me.txt18
    Print #1, Me.txt19; Me.txtVolumes; Me.txt20
    Print #1, Me.txt21; Me.txtVolumes; Me.txt22

    MsgBox "Arquivo Gerado com sucesso!", vbInformation, "Gerado com Sucesso"

    Close #1

    Shell "c:\imprimirsolicita.bat", vbNormalFocus
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  crysostomo em 2/7/2019, 21:33

    Qual arquivos você quer gerar ?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  msilveir em 3/7/2019, 12:38

    ola crysostomo

    nos txt1 e txt2 e assim por diante nos outros txt são valores fixos como padrao
    para gerar uma etiqueta na zebra abaixo seria o codigo que gera

    ele gerar o arquivo solicita.txt com o conteudo abaixo
    como falei eu gostaria de gerar o primeiro solicita.txt
    depois os outros

    segue codigo
    CT~~CD,~CC^~CT~
    ^XA
    ^PW799
    ^FT559,186^A0N,39,38^SN001,1,Y^FS
    ^FT23,82^A0N,62,62^FH\^FDFilial^FS^FT35,218^A0N,62,62^FH\^FD 13 ^FS
    ^FT169,161^A0N,45,45^FH\^FDRampa^FS
    ^FT173,236^A0N,45,45^FH\^FD456123^FS
    ^FT333,161^A0N,45,45^FH\^FDM 13-14^FS
    ^FO153,105^GB634,205,4^FS
    ^FO14,106^GB143,204,4^FS
    ^FO153,13^GB634,97,4^FS
    ^FO14,13^GB143,96,4^FS
    ^FT168,85^A0N,59,160^FH\^FDSOLICITA^FS
    ^FT597,136^A0N,25,24^FH\^FDVolumes^FS
    ^FT624,186^A0N,36,38^FH\^FD/ 1 ^FS
    ^PQ 1 ,0,1,Y^XZ
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  crysostomo em 3/7/2019, 12:43

    Bom dia , tenho um arquivo aqui que gera etiqueta, mas fico te devendo , pois desconheço desse jeito.
    Vamos esperar um de nossos amigos aí.
    Abçs


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 21/05/2015

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  ARGONZALE em 3/7/2019, 15:58

    Bom dia,

    Tenho este aquivo que gera etiquetas para impressora Zebra.

    Veja se te ajuda:

    Anexos
    [Resolvido]Gerar arquivos AttachmentVolumes de Etiquetas_OLD_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (177 Kb) Baixado 5 vez(es)


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 13/03/2011

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  msilveir em 15/7/2019, 23:43

    Ola Pessoal

    Apos falar com cliente ele desistiu de ter vários arquivos de etiquetas e ficou com uma arquivo só.

    muito obrigado a todos que me ajudaram nesse tópico

    Conteúdo patrocinado

    [Resolvido]Gerar arquivos Empty Re: [Resolvido]Gerar arquivos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 17:26