Sap Script & VBA – Lendo dados em um ALV LIST
Nessa postagem vou detalhar um pouco sobre o controle ALV List, quais as principais diferenças entre o ALV List e o ALV Grid. E como efetuar a leitura do controle ALV List percorrendo todos os itens disponíveis utilizando Excel VBA em um laço de repetição FOR/NEXT.
Primeiramente precisamos identificar o que seria um controle ALV List, e para isso vou apresentar as duas imagens abaixo, uma para um controle ALV Grid e a outra um controle ALV List.
Nas imagens acima estou apresentando o mesmo documento contábil através da transação FB03, mas com visualizações diferentes. Deixei destacado em vermelho para facilitar a identificação dos controles. Percebam que a primeira e segunda imagem possuem a mesma informação os mesmo campos, apenas a sua visualização é diferente.
Estou utilizando a transação FB03 porque estou mais habituado a utiliza-la e sei que é possível alternar a visualização apresentando em tela um controle ALV Grid ou um controle ALV List, bastando escolher qual deseja usar. Isso é ótimo e acontece que quase todas as transações SAP. Eu disse “quase todas as transações SAP“, mas ainda existem transações que não disponibilizam o controle ALV Grid e por isso é importante saber automatizar também o controle ALV List.
O controle ALV Grid é mais amigável e atual, é possível ocultar colunas, arrastar sua posição utilizando o mouse, copiar o conteúdo facilmente e deslocar entre as células utilizando o teclado, além de ter propriedades que retornam a quantidade de linhas do Grid, a quantidade de linhas visíveis, sua posição começa sempre no 0 (zero). Não vou entrar em detalhes técnicos, mas adianto que o Grid é muito mais legal que o List.
Mas o foco aqui é o ALV List, porque existe relatórios que não permitem comutação de lista e oferece apenas o ALV List. E esse controle não tem (ou pelo menos eu não achei) uma propriedade que retorne a quantidade de linhas do registro. E diferente do ALV Grid ele nem sempre começa do 0 (zero), variar de acordo com a posição da tela ou do cabeçalho o que dificulta muito a leitura.
No exemplo que vamos utilizar nessa postagem os dados iniciam em 13, isso você consegue descobrir gravando um script e selecionando o campo. Para percorrer a lista iremos precisar de 3 informações, a primeira que acabei de falar que seria a posição inicial da lista, a segunda a quantidade de registro visíveis em tela e a terceira a quantidade total de registros dessa lista.
Iniciando a gravação do script e selecionando a primeira linha da lista no SAP você ira obter dentro do arquivo VBS o registro session.findById(“wnd[0]/usr/lbl[1,13]”).setFocus sendo que 13 é a posição da primeira linha, com isso já conseguimos a primeira informação.
Já a quantidade de registro visíveis em tela é necessária porque igual ao controle ALV Grid, a marcação do controle inicia-se em 13 (neste caso) e pode ir até o ultimo registro visível em tela, quando você alterna a posição da tela, seja deslocando o Scrollbar uma posição ou uma pagina que seja, os conteúdo é atualizado mas os campos são fixos, ou seja a primeira linha em tela sempre terá a posição 13, para obter a quantidade visível em tela vamos utilizar um propriedade session.findById(“wnd[0]/usr/lbl[1,13]”).Parent.verticalscrollbar.pageSize essa propriedade vai retornar 0 (zero) caso não tenha outra pagina no ALV List ou vai retornar a quantidade de linhas visíveis em tela.
Agora para terceira informação precisamos verificar o status da lista… que pode ser acessada pelos menu do SAP conforme imagem abaixo (pode variar dependendo da transação utilizada), ou utilizar o atalho do teclado Ctrl + F11
Utilizando o caminho acima ou através da tecla de atalho, você ira obter a janela abaixo, com um campo contendo a quantidade de registros dessa lista. Como comentado acima não encontrei outra forma de obter esse informação de forma rápida, caso você tenha conhecimento deixe nos comentários com certeza ira ajudar outros com a mesma duvida. Lembrando também que para capturar esse campo você deve gravar o script na sua maquina porque pode ter um nome ou posição diferente da que vou utilizar nesse exemplo.
Abaixo código comentado utilizado nesse exemplo , atenção a linha 60 até a 72 que é onde fazemos o tratamento da barra de rolagem, caso a variável lngQtdVisivel seja maior que zero significa existe mais de uma pagina e como comentado acima nesse exemplo a primeira linha começa sempre com 13, e quando a pagina é alterada precisamos voltar a variável para valor igual a 13.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 |
'Autor: Fabio Mitsueda 'Contato: mitsueda.fabio@gmail.com 'Data Criação: 21/06/2023 Option Explicit Public Sub Executar() Dim lngQtdLinha As Long Dim lngQtdVisivel As Long Dim x, y, z As Long Dim shtDestino As Worksheet 'Setando planilha Set shtDestino = ThisWorkbook.Sheets("Mitsueda") 'Acessando a transação FB03 Session.findById("wnd[0]/tbar[0]/okcd").Text = "FB03" 'Enviando a tecla enter Session.findById("wnd[0]").sendVKey 0 'Incluindo o numero do documento contabil Session.findById("wnd[0]/usr/txtRF05L-BELNR").Text = Cells(3, 3).Value 'Incluindo a empresa Session.findById("wnd[0]/usr/ctxtRF05L-BUKRS").Text = Cells(4, 3).Value 'Incluindo a exercicio Session.findById("wnd[0]/usr/txtRF05L-GJAHR").Text = Cells(5, 3).Value 'Enviando a tecla enter Session.findById("wnd[0]").sendVKey 0 'Selecionando o menu para alterar para ALV List Session.findById("wnd[0]/mbar/menu[0]/menu[5]").Select 'Selecionano o menu Configurações... > Status da lista Ctrl+F11 Session.findById("wnd[0]/mbar/menu[3]/menu[9]").Select 'Utilizando a tecla de atalho 'session.findById("wnd[0]").sendVKey 35 'Capturando a quantidade de registros da janela de Status da lista lngQtdLinha = VBA.CLng(VBA.Trim(Session.findById("wnd[1]/usr/lbl[20,3]").Text)) 'Fechando a janela Session.findById("wnd[1]/tbar[0]/btn[0]").press 'Capturando a quantidade de registros visiveis lngQtdVisivel = Session.findById("wnd[0]/usr/lbl[1,11]").Parent.verticalscrollbar.pageSize 'Carregar variavel y com inicio da lista que nesse caso é 13 y = 13 'Carregar variavel com linha inicial da planilha z = 10 'Executar repetição pela quantidade de linhas do ALV List For x = 1 To lngQtdLinha 'Caso a variavel seja 0 não existe mais de uma pagina If lngQtdVisivel > 0 Then 'Caso a linha seja maior que a primeira linha executar o teste If y > 13 Then 'O teste consiste em dividir a linha atual pela quantidade se for zero mudar a posição da barra If (y - 13) Mod lngQtdVisivel = 0 Then 'Alterando a posição da barra de rolagem Session.findById("wnd[0]/usr").verticalscrollbar.Position = (x - 1) 'Reiniciando a linha em 13 para proxima paginação y = 13 End If End If End If 'Inserindo informação: Iten shtDestino.Cells(z, 2).Value = Session.findById("wnd[0]/usr/lbl[1," & VBA.CStr(y) & "]").Text 'Inserindo informação: CL shtDestino.Cells(z, 3).Value = Session.findById("wnd[0]/usr/lbl[5," & VBA.CStr(y) & "]").Text 'Inserindo informação: Conta shtDestino.Cells(z, 4).Value = Session.findById("wnd[0]/usr/lbl[8," & VBA.CStr(y) & "]").Text 'Inserindo informação: Texto breve conta shtDestino.Cells(z, 5).Value = Session.findById("wnd[0]/usr/lbl[19," & VBA.CStr(y) & "]").Text 'Inserindo informação: Atribuição shtDestino.Cells(z, 6).Value = Session.findById("wnd[0]/usr/lbl[40," & VBA.CStr(y) & "]").Text 'Inserindo informação: CI shtDestino.Cells(z, 7).Value = Session.findById("wnd[0]/usr/lbl[59," & VBA.CStr(y) & "]").Text 'Inserindo informação: Montante shtDestino.Cells(z, 8).Value = Session.findById("wnd[0]/usr/lbl[62," & VBA.CStr(y) & "]").Text 'Acruando linha da planilha z = z + 1 'Acruando linha do SAP y = y + 1 Next 'Mensagem de finalização MsgBox "Concluido!!!" 'Descarregando valores Set shtDestino = Nothing End Sub |
Abaixo imagem da planilha utilizada nesse exemplo, consiste em efetuar a leitura através da transação FB03, comutar o tipo de controle de ALV Grid para ALV Lista, capturar a quantidade de registro para essa lista, fazer a leitura linha a linha e transferir para o Excel.
Clique aqui para baixar o arquivo exemplo utilizado nessa postagem.