Como recuperar o valor da última linha em uma coluna específica no SAP com GetCellValue.

Obrigado Daniel pela resposta. Consegui fazê-lo funcionar usando um loop while.

p = 0

rowValue = session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2036/subSCREEN_1010_LEFT_AREA:SAPLBUS_LOCATOR:3100/tabsGS_SCREEN_3100_TABSTRIP/tabpBUS_LOCATOR_TAB_02/ssubSCREEN_3100_TABSTRIP_AREA:SAPLBUS_LOCATOR:3200/subSCREEN_3200_SEARCH_AREA:SAPLBUS_LOCATOR:3211/subSCREEN_3200_RESULT_AREA:SAPLBUPA_DIALOG_JOEL:1060/ssubSCREEN_1060_RESULT_AREA:SAPLBUPA_DIALOG_JOEL:1080/cntlSCREEN_1080_CONTAINER/shellcont/shell").RowCount

while p < rowValue: part=session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2036/subSCREEN_1010_LEFT_AREA:SAPLBUS_LOCATOR:3100/tabsGS_SCREEN_3100_TABSTRIP/tabpBUS_LOCATOR_TAB_02/ssubSCREEN_3100_TABSTRIP_AREA:SAPLBUS_LOCATOR:3200/subSCREEN_3200_SEARCH_AREA:SAPLBUS_LOCATOR:3211/subSCREEN_3200_RESULT_AREA:SAPLBUPA_DIALOG_JOEL:1060/ssubSCREEN_1060_RESULT_AREA:SAPLBUPA_DIALOG_JOEL:1080/cntlSCREEN_1080_CONTAINER/shellcont/shell").GetCellValue(p, "PART")

print(part)

p+=1

Saudações,

Ren.

Respondido el 15/04/2024

LUCIANO RIOJA GHIOTTO

Se unió el 13/07/2019

Agregar

Em VBA, você pode declarar objetos e defini-los no shell, por exemplo.

    Dim zTreeList       As SAPFEWSELib.GuiTree
    Dim zTreeDet        As SAPFEWSELib.GuiShell

A partir daí, você pode revisar alguns dos métodos de conveniência disponíveis para percorrer o GUIShell ou o GUItree.

Pessoalmente, não estou familiarizado com um método para obter o último valor, mas você pode começar de cima usando o seguinte.

'definir objeto
Set zTreeList = session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2036/subSCREEN_1010_LEFT_AREA:SAPLBUS_LOCATOR:3100/tabsGS_SCREEN_3100_TABSTRIP/tabpBUS_LOCATOR_TAB_02/ssubSCREEN_3100_TABSTRIP_AREA:SAPLBUS_LOCATOR:3200/subSCREEN_3200_SEARCH_AREA:SAPLBUS_LOCATOR:3211/subSCREEN_3200_RESULT_AREA:SAPLBUPA_DIALOG_JOEL:1060/ssubSCREEN_1060_RESULT_AREA:SAPLBUPA_DIALOG_JOEL:1080/cntlSCREEN_1080_CONTAINER/shellcont/shell")

'definir nó inicial
targetItem = zTreeList.TopNode

'fazer algo 
zTreeList.DoubleClickNode (targetItem)

'definir o novo objeto (apenas mostra da subtela SLG1) 
Set zTreeDet = session.FindById("wnd[0]/usr/subSUBSCREEN:SAPLSBAL_DISPLAY:0101/cntlSAPLSBAL_DISPLAY_CONTAINER/shellcont/shell/shellcont[1]/shell")

'neste caso, ler todos os subitens para algum texto
For i = zTreeDet.FirstVisibleRow To zTreeDet.RowCount - 1
    If InStr(1, zTreeDet.GetCellValue(i, "T_MSG"), inp.DataBodyRange(nRow, 1), vbTextCompare) > 0 Then
       foundIt = "X"
       Exit For
    Else:
                              
    End If                
Next

'iterar até o próximo nó
targetItem = zTreeList.GetNextNodeKey(targetItem)

Respondido el 15/04/2024

LUCIANO RIOJA GHIOTTO

Se unió el 13/07/2019

Agregar

PARA MÁS INFORMACIÓN
INGRESA TUS DATOS

Etiquetas más populares

Ver todo

Aprende en Comunidad

2 Respuestas

PARA MÁS INFORMACIÓN
INGRESA TUS DATOS

Etiquetas más populares

Preguntas más populares

Partners:

Aprende en Comunidad

Como recuperar o valor da última linha em uma coluna específica no SAP com GetCellValue.

2 Respuestas

PARA MÁS INFORMACIÓNINGRESA TUS DATOS

Etiquetas más populares

Preguntas más populares

Partners:

PARA MÁS INFORMACIÓN
INGRESA TUS DATOS