Programação VBA - SAP (ME21N - Criação de Pedidos)
19/08/2023 às 08:52Descrição do Projeto:
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
Habilidades desejadas:
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 |
Desenvolvimento de mini sites para campanha política - Olá, o projeto consiste em criar mini sites com captura de nome, telefone, e-mail e área para colocar vídeo. Gostaria que quem aceitasse a proposta pudesse integrar a minha equ...
Formatação de blog WordPress - Olá, preciso de uma pessoa habilidosa com WordPress para formatar um blog. Alinhar algumas informações e formatações necessárias, como plugins, entre outros.
Desenvolvedor web e WordPress - Preciso de um desenvolvedor para um pequeno sistema em meu site, algo básico. Tenho tudo pronto e desenhado, preciso somente implantar no site!
Ajustes no checkout do CartFlows - Preciso fazer alguns ajustes no meu checkout. Muita coisa consigo fazer pelo plugin CartFlows, mas ao mexer em uma coisa, acaba desconfigurando outra. A página que vai sofrer as altera&ccedi...
Integração de pagamento DLocalGo - Olá, estou procurando um especialista que trabalhe com integrações de pagamentos. Tenho um website online e trabalho com vendas dentro dele. Queria adicionar algumas novas for...
