Pesquisar

Programação VBA - SAP (ME21N - Criação de Pedidos)

19/08/2023 às 08:52

Descrição do Projeto:

Tenho um código que consegue preencher somente as linhas visiveis.. Não estou conseguindo aprimorar para que ele consiga identificar a quantidade de linhas disponiveis na transação e quando ele atingir o máximo, seguir pras próximas linhas disponiveis. Algumém me ajuda?

Option Explicit
Public SapGuiAuto, WScript, msgcol
Public objGui As GuiApplication
Public objConn As GuiConnection
Public session As GuiSession

Sub TESTE2() 'Nome do código

Set SapGuiAuto = GetObject("SAPGUI")
Set objGui = SapGuiAuto.GetScriptingEngine
Set objConn = objGui.Children(0)
Set session = objConn.Children(0)

Dim total_itens, controle_itens, linha_itens, controle_detalhes, linha_detalhes, controle_linhas, linha, valor As Integer
Dim material, QTD, centro, remessa As String
Dim lastRow As Long
linha_itens = 0
linha_detalhes = 0
controle_itens = 1
controle_detalhes = 0
valor = 0
total_itens = Range("V" & Rows.Count).End(xlUp).Row - 2
lastRow = Sheets("STO").Cells(Sheets("STO").Rows.Count, 4).End(xlUp).Row
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("STO")

session.FindById("wnd[0]/tbar[0]/okcd").Text = "/Nme21n"
session.FindById("wnd[0]").sendVKey 0
session.FindById("wnd[0]/usr/subSUB0:SAPLMEGUI:" & Mid(session.ActiveWindow.SystemFocus.ID, 49, 4) & "/subSUB0:SAPLMEGUI:0030/subSUB1:SAPLMEGUI:1105/ctxtMEPO_TOPLINE-SUPERFIELD").Text = ThisWorkbook.Sheets("STO").Range("J2").Value

For linha = 2 To lastRow
material = "wnd[0]/usr/subSUB0:SAPLMEGUI:" & Mid(session.ActiveWindow.SystemFocus.ID, 49, 4) & "/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EMATN[4," & CStr(valor) & "]"
QTD = "wnd[0]/usr/subSUB0:SAPLMEGUI:" & Mid(session.ActiveWindow.SystemFocus.ID, 49, 4) & "/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/txtMEPO1211-MENGE[6," & CStr(valor) & "]"
remessa = "wnd[0]/usr/subSUB0:SAPLMEGUI:" & Mid(session.ActiveWindow.SystemFocus.ID, 49, 4) & "/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-EEIND[9," & CStr(valor) & "]"
centro = "wnd[0]/usr/subSUB0:SAPLMEGUI:" & Mid(session.ActiveWindow.SystemFocus.ID, 49, 4) & "/subSUB2:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1211/tblSAPLMEGUITC_1211/ctxtMEPO1211-NAME1[15," & CStr(valor) & "]"
On Error Resume Next
session.FindById(material).Text = ThisWorkbook.Sheets("STO").Range("D" & linha).Value
session.FindById(QTD).Text = ThisWorkbook.Sheets("STO").Range("F" & linha).Value
session.FindById(remessa).Text = ThisWorkbook.Sheets("STO").Range("H" & linha).Value
session.FindById(centro).Text = ThisWorkbook.Sheets("STO").Range("I" & linha).Value
On Error GoTo 0
valor = valor + 1
Next linha

Arquivos anexados:

Entre ou Cadastre-se para ver os arquivos anexados.

Atividades do cliente nesse projeto:

Última visualização: 21/08/2023 às 11:33

Última interação: 19/08/2023 às 11:29

Informações adicionais

Categoria: Web, Mobile & Software
Subcategoria: Desenvolvimento Web
Orçamento: Aberto
Nível de experiência: Iniciante
Visibilidade: Público
Propostas: 1
Interessados: 2
Valor Mínimo: R$ 50,00

Cliente

Freelancer vencedor

Propostas (1)
  • Freelancer novo Promovida Aceita Aceita Rejeitada

    Submetido: | Oferta: Privado | Duração estimada: Privado

Nenhuma proposta foi encontrada.

Carregando...
Projetos semelhantes no 99Freelas

Manutenção em Site - corretivas e preventiva - Olá tudo bom? Freela para manutenção em site. Realizar manutenção corretivas e preventiva, alterações de layouts quando solicitado e outros. Obs:...

Desenvolvedor(a) Frontend para página em Angular - Tenho um design simples de página que deve ser feito em Angular. O projeto já foi iniciado. Vou enviar o arquivo em zip, ou seja, você terá que finalizar ou refazer uma t...

Indexação de blog com Rank Math SEO - Recentemente criei um blog, mas não estou conseguindo fazer a indexação dele com o plugin Rank Math SEO. Assisti a vários tutoriais, mas não consegui resolver o p...

Desenvolvimento de ferramentas e formulários em PHP - Descrição do projeto: Estamos em busca de um(a) desenvolvedor(a) com experiência para criar ferramentas e formulários web em PHP, com design responsivo e que possam ser ...

Finalização de sistema de entrega (front-end e back-end) - Estou desenvolvendo um sistema completo de entrega, que inclui um site para solicitação de pedidos e um aplicativo para entregadores. Já tenho parte do front-end e algumas func...

Carregando...

Carregando...

Pesquisar

FREELANCERS
PROJETOS
Ocorreu um erro inesperado. Caso o erro persista, entre em contato conosco através do e-mail suporte@99freelas.com.br.