fmbb transaction

[Former Member]

hi all,

i need to upload budget details from excel spreadsheet to sap using tcode FMBB, so any body help me which one is the best method to acieve it.

regards

praveen

[Former Member]

Hi,

use GUI_Upload to upload excel data

SHDB to record screen sequence and

use call trasaction FMBB method to upload data in sap

Regards

amole

[Former Member]

Hi,

use GUI_Upload to upload excel data

SHDB to record screen sequence and

use call trasaction FMBB method to upload data in sap

Regards

amole

[former_member669163]

FMBB transaction contain an ALV grid which BDC recording does not capture during recording process. BDC recording capture table type controls.

[former_member603441]

Veja se isso atende, pode ser que precise de ajustes:

Private Sub bt_FMBB_Click() Rem B1 INICIO*********************************************** Set session = GetObject("SAPGUI").GetScriptingEngine.Children(0).Children(0) 'Isso conecta o Excel ao SAP ************************ Dim objExcel Dim objSheet Set objExcel = GetObject(, "Excel.Application") Set objSheet = objExcel.ActiveWorkbook.ActiveSheet ANO = Trim(CStr(objSheet.Cells(2, 1).Value)) 'A VARIAVEL ANO MES_X = Trim(CStr(objSheet.Cells(2, 2).Value)) 'A VARIAVEL MES Application.Wait Now + TimeValue("0:00:02") session.findById("wnd[0]/tbar[0]/okcd").Text = "FMBB" 'sem favoritos session.findById("wnd[0]/tbar[0]/btn[0]").press 'session.findById("wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell").selectedNode = "F00002" 'funciona com o Favoritos 'session.findById("wnd[0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont[0]/shell").doubleClickNode "F00002" If session.ActiveWindow.Name = "wnd[1]" Then session.findById("wnd[1]/usr/ctxtFMKU_S_SCREEN-FM_AREA").Text = "SBSP" session.findById("wnd[1]/usr/ctxtFMKU_S_SCREEN-FM_AREA").caretPosition = 4 session.findById("wnd[1]").sendVKey 0 Else End If session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/cmbFMBW_S_SCREEN-DOCTYPE").SetFocus session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/cmbFMBW_S_SCREEN-DOCTYPE").Key = "TRAN" session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/ctxtFMBW_S_SCREEN-VERSION").Text = "0" session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/txtFMBW_S_SCREEN-SFISCYEAR").Text = ANO session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/cmbFMBW_S_SCREEN-SPERIOD").SetFocus session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/cmbFMBW_S_SCREEN-SPERIOD").Key = MES_X session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/ctxtFMBW_S_SCREEN-SBUDTYPE").Text = "MODI" session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/cmbFMBW_S_SCREEN-RPERIOD").SetFocus session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/cmbFMBW_S_SCREEN-RPERIOD").Key = MES_X session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/ctxtFMBW_S_SCREEN-RBUDTYPE").Text = "MODI" session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/ctxtFMBW_S_SCREEN-RBUDTYPE").SetFocus session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/tabsHD_TABSTRIP/tabpHD_DATA/ssubSBA_HEADER:SAPLFMBWB:2030/ctxtFMBW_S_SCREEN-RBUDTYPE").caretPosition = 4 Rem B1 FIM ************************************************* Dim NumeroLinhas As Object Set NumeroLinhas = Worksheets("FMBB").Cells(1, 1).CurrentRegion TotalLinhas = NumeroLinhas.Rows.Count For Linha = 2 To TotalLinhas M_MENOS = Trim(CStr(objSheet.Cells(Linha, 3).Value)) 'A VARIAVEL MAIS_MENOS CFIN = Trim(CStr(objSheet.Cells(Linha, 4).Value)) 'A VARIAVEL CFIN PEP = Trim(CStr(objSheet.Cells(Linha, 5).Value)) 'A VARIAVEL PEP IFIN = Trim(CStr(objSheet.Cells(Linha, 6).Value)) 'A VARIAVEL IFIN FDS = Trim(CStr(objSheet.Cells(Linha, 7).Value)) 'A VARIAVEL FDS VLR = Trim(CStr(objSheet.Cells(Linha, 8).Value)) 'A VARIAVEL VLR TEXTO = Trim(CStr(objSheet.Cells(Linha, 9).Value)) 'A VARIAVEL TEXTO session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").modifyCell Linha - 2, "LINE_SIGN", M_MENOS ' variável sinal de menos ou mais session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").modifyCell Linha - 2, "FUNDSCTR", CFIN ' variável Centro Financeiro session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").modifyCell Linha - 2, "MEASURE", PEP ' fixo quando Despesa - para Investimento = PEP session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").modifyCell Linha - 2, "CMMTITEM", IFIN ' variável Item Financeiro session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").modifyCell Linha - 2, "FUND", FDS ' fixo quando Despesa - para Investimento = FUNDOS session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").modifyCell Linha - 2, "TVALUE", VLR ' variável Valor session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").modifyCell Linha - 2, "TEXT50", TEXTO ' variável Valor session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").insertRows Linha Next Linha session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").pressEnter session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").deleteRows TotalLinhas - 1 session.findById("wnd[0]/usr/ssubSUB0:SAPLFMBWB:0216/subSUB_TABSTRIPS:SAPLFMBWB:0300/tabsLINE_TABSTRIP/tabpLINE_TAB1/ssubSBA_LINE:SAPLFMBWB:0310/cntlCONTAINER_TAB1/shellcont/shell").deleteRows TotalLinhas - 1 session.findById("wnd[0]/tbar[0]/btn[11]").press Worksheets("FMBB").Cells(2, 10).Value = session.findById("wnd[0]/sbar").Text '(linha 2, coluna 10) session.findById("wnd[0]/tbar[0]/btn[15]").press Rem B2 ************************************************ Rem *************************************************** 'Mensagem de finalização MsgBox "Documento gerado com sucesso" 'Descarregando variaveis Set objSheet = Nothing Set objExcel = Nothing End Sub

[Former Member]

need more clarification please?

[Former Member]

I saw your posted comment Please raise a new question and follow our rules of engagement: https://community.sap.com/resources/rules-of-engagement. I suggest using the "I have a similar question" option under the question to get started. Feel free to take our Q&A tutorial at: https://developers.sap.com/tutorials/community-qa.html. With these tips you'll be able to prepare questions that draw responses from our members.

Best,
Your SAP Community moderator