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]Captura dados em tela tipo AIX (IBM)

    avatar
    lcsantos2019
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 24/04/2019

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  lcsantos2019 em 1/7/2019, 19:14

    Olá Colegas,

    Procurei por captura de dados, mas não encontrei nada parecido. Então posto minha dúvida e pedido de ajuda.
    Onde trabalho temos um sistema baseado no sistema AIX da IBM, por razões que prefiro não comentar, tenho que duplicar algumas informações do cadastro de clientes que estão no AIX para o ACCESS.
    Atenção "não posso solicitar cópia ou acesso dos dados no AIX/IBM". Então faço consulta no AIX/IBM e redigito no ACCESS.... (é arffff).
    Pensei que poderia criar uma rotina que capturasse e interpretasse os campos (código, nome, endereço, fones e etc...) e gravasse em uma tabela no access.
    Particularmente acho difícil, até porque conheço muito pouco de access e VBA, então lanço o desafio. Quem pode me socorrer?

    Em anexo cópia de uma tela AIX/IBM.
    Anexos
    [Resolvido]Captura dados em tela tipo AIX (IBM) AttachmentImagem Tela AIX.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 13 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 895
    Registrado : 22/11/2016

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  IvanJr. em 3/7/2019, 04:02

    Não será possível capturar as informações. Mas Interpretá-las, talvez.

    Como você disse que redigita, certamente é porque não é possível selecionar o texto e dar control+c. Mas caso isso seja possível, o que pode ser feito é você abrir a tela, selecionar todo o texto presente, e deixar o resto por conta do access.

    Se existir a possibilidade de selecionar o texto e copiá-lo para a área de transferência com um control+c então faça isso e cole o resultado em um arquivo .txt e anexe-o aqui para que possamos ajudá-lo.


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    lcsantos2019
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 24/04/2019

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  lcsantos2019 em 3/7/2019, 15:09

    Olá Ivan,

    Exatamente, é possível selecionar tudo e copiar.
    Estou anexando uma cópia salva no wordpad.
    Anexos
    [Resolvido]Captura dados em tela tipo AIX (IBM) AttachmentCópiaTela.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 12 vez(es)
    avatar
    lcsantos2019
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 24/04/2019

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  lcsantos2019 em 12/7/2019, 19:38

    Olá Ivan,

    Inspirado na sua pergunta criei o código abaixo, onde marco e recorto os dados da tela IBM/IAX, copio para um arquivo texto e depois executo a rotina abaixo:
    Código:
    Private Sub Bt_Importar_Click()
    Arq = FreeFile
       Open stFile For Input As #1
       If Len(stFile) = 0 Then
           MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
           Ed_Arquivo.SetFocus
           Exit Sub
       End If
       If Len(Dir(stFile)) = 0 Then
           MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
           Exit Sub
       End If
       While Not EOF(1)
           Line Input #1, Linha
           Contador = Contador + 1
           Select Case (Contador)
           Case 3
               Ed_Registro = CStr(Trim(Mid$(Linha, 13, 8)))
               Ed_Cliente = CStr(Trim(Mid$(Linha, 22, 52)))
           Case 4
               Ed_Sexo = CStr(Trim(Mid$(Linha, 35, 1)))
           Case 7
               Ed_Fone_1 = CStr(Trim(Mid$(Linha, 15, 13)))
           Case 9
               Ed_Fone_2 = CStr(Trim(Mid$(Linha, 15, 13)))
           Case 10
               Ed_Fone_3 = CStr(Trim(Mid$(Linha, 15, 13)))
           Case 11
               Ed_Fone_4 = CStr(Trim(Mid$(Linha, 15, 13)))
           Case 12
               Ed_Fone_5 = CStr(Trim(Mid$(Linha, 15, 13)))
           Case 15
               Ed_Endereco = CStr(Trim(Mid$(Linha, 2, 66)))
               Ed_Numero = CStr(Trim(Mid$(Linha, 73, 6)))
           Case 16
               Ed_Complemento = CStr(Trim(Mid$(Linha, 9, 25)))
               Ed_Bairro = CStr(Trim(Mid$(Linha, 42, 37)))
           Case 17
               Ed_Cidade = CStr(Trim(Mid$(Linha, 10, 50)))
               Ed_Estado = CStr(Trim(Mid$(Linha, 65, 2)))
           Case 18
               Ed_CEP = CStr(Trim(Mid$(Linha, 7, 9)))
           End Select
       Wend
    Saida:
       Close
           MsgBox "Arquivo importado com sucesso", vbInformation, "Importação"
       Exit Sub
    End Sub
    Não ficou 100 %, mas economizou a digitação e a possibilidade de erros na transcrição. Estou criando alguns parâmetros de segurança para testar os primeiros e últimos caracteres do conjunto para garantir a cópia de dados corretos.
    Vou tentar automatizar ao máximo, se tiver alguma ideia... por favor....
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  ahteixeira em 12/7/2019, 21:02

    Olá a todos,

    Luiz Santos, conseguiu cegar lá, é mesmo isso.
    Obrigado pelo retorno o fórum agradece.

    Se tiver uma forma de exportar tudo para TXT ou necessitar de importar "Cabeçalho" e "detalhe", recomendo ver este tópico:
    http://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo

    Abraço a todos
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 895
    Registrado : 22/11/2016

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  IvanJr. em 13/7/2019, 15:53

    Veja o caminho que eu planejava... apenas finalize-o
    Anexos
    [Resolvido]Captura dados em tela tipo AIX (IBM) Attachmentexemploo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 15 vez(es)


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  ahteixeira em 13/7/2019, 16:31

    Olá a todos,

    IvanJr, parabéns, gostei Very Happy
    Como diz o nosso Grande JPaulo, existe várias formas de fazer Nestum

    Ficamos aguardar retorno do colega que abriu o tópico.

    Abraço a todos
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 895
    Registrado : 22/11/2016

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  IvanJr. em 13/7/2019, 18:45

    Mestre Alvaro... então... minha cabeça falta só explodir quando percebo tantas possibilidades. Idea (risos)

    aguardemos um retorno aqui


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    lcsantos2019
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 24/04/2019

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  lcsantos2019 em 19/7/2019, 12:41

    Ivan, inacreditável, seu código faz a captura com 15 linhas de comandos.
    Com sua permissão, e devidos créditos, vou adaptar seu código e utilizá-lo, o sistema ficará mais enxuto.
    Valeu pela ajuda, muito obrigado.


    >>>> Só somos fortes, juntos somos invencíveis. <<<<<
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 895
    Registrado : 22/11/2016

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  IvanJr. em 19/7/2019, 23:46

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Captura dados em tela tipo AIX (IBM) Empty Re: [Resolvido]Captura dados em tela tipo AIX (IBM)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/9/2019, 16:06