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 |
Desenvolvedor para MVP - integração WhatsApp Cloud API, Pipedrive e Tracki - Preciso de um desenvolvedor para criar um MVP de sistema que rastreie a origem de leads que chegam via WhatsApp e integre automaticamente ao Pipedrive. Objetivo: Identificar de qual campanha/an&ua...
Automação Zapier e Z-API para leads do WhatsApp - O que precisa ser feito Configurar automação no Zapier integrada com a Z-API para que leads de tráfego pago caiam direto no WhatsApp do grupo de SDRs, com disparo automá...
Chat estilo WhatsApp com canais e integração de serviços - Desenvolver chat estilo WhatsApp com canais e integração de serviços (agenda, consultas e APIs externas) Preciso evoluir um projeto base de chat estilo WhatsApp para suportar ...
Criação de site para venda de camisas de futebol - Preciso de um site para venda de camisas de futebol, atendendo vendas no varejo e no atacado. O site deve ser simples, sem muitas firulas. Preferência por desenvolvimento em WordPress.
Sistema web multi-tenant com workflow, dashboard e integrações - Estou estruturando o desenvolvimento de um sistema (MVP) voltado à gestão estruturada de decisões organizacionais relacionadas ao tratamento de dados, com registro auditá...
