J1B1N – Automatizando lançamento com Excel VBA
Nessa postagem vou demonstrar como automatizar o processo de criação de uma nota na transação J1B1N utilizando a funcionalidade Sap Gui Scripting em conjunto com Excel VBA.
Criei uma planilha onde inseri os campos que quero levar a transação J1B1N. Durante o preenchimento manual na J1B1N é possível identificar 3 momentos e segregá-los.
1º) Tela com dados básicos de entrada que é a primeira tela do SAP. Que na planilha identifiquei ao lado esquerdo de uma cor azul claro. Veja na imagem abaixo:
2º) Tela com dados da nota que é a segunda tela do SAP. Que na planilha identifiquei ao centro de uma cor azul um pouco mais escuro. Veja na imagem abaixo:
3º) Ainda na segunda tela do SAP, preenchemos os itens da nota. Que na planilha identifiquei ao lado direito de uma cor azul escuro. Veja na imagem abaixo:
Após preencher os dados na planilha inicio a gravação do script, preencho os campos manualmente, e após finalizar esse processo entro no arquivo .VBS copio os campos e faço as alterações no código no VBA.
No vídeo detalho melhor como efetuar essas alterações, espero que seja útil.
EXCELENTE!
Excelente, vc teria um arquivo atualizado com NFNUM com 9 posições tentei executar mas deu erro.Obrigada.
Excelente, Muito obrigado!
No meu caso, eu só precisei atualizar os campos de “NFe Num” e “CFOP. Fiz a substituição conforme abaixo e funcionou.
‘Preenchendo numero da nota
Session.findById(“wnd[0]/usr/subNF_NUMBER:SAPLJ1BB2:2002/txtJ_1BDYDOC-NFENUM”).Text = shtBase.Cells(x, 6).Text
‘Preenchendo CFOP
Session.findById(“wnd[0]/usr/tabsTABSTRIP1/tabpTAB1/ssubHEADER_TAB:SAPLJ1BB2:2100/tblSAPLJ1BB2ITEM_CONTROL/ctxtJ_1BDYLIN-CFOP[27,” & i + w & “]”).Text = shtBase.Cells(h, 14).Text