Добрый день!
Коллеги, нуждаюсь в вашей помощи за разумную плату.
Мне нужно преобразовать часть кода записанного в SAP в VBA с последующим сравнением сумм в файле excel (например, суммы в excel находятся в 10 столбце Лист1) c cуммой в SAP.
При условии, что если сумма в SAP больше суммы в excel, то схлопываем.
Процедура схлопывания:
1) Встаем на первую позицию-сумму в SAP и нажимаем выбор
2) Нажимаем на частичный платеж
3) Встаем на первую позицию и нажимаем выбор
В противном случае
(если сумма в SAP меньше суммы в excel) - прощелкиваем суммы в SAP до тех пор, пока сумма не станет больше и схлопываем.
Пример прощелкивания сумм в SAP (например, до третьей позиции - суммы)
Часть записанного кода:
Коллеги, нуждаюсь в вашей помощи за разумную плату.
Мне нужно преобразовать часть кода записанного в SAP в VBA с последующим сравнением сумм в файле excel (например, суммы в excel находятся в 10 столбце Лист1) c cуммой в SAP.
При условии, что если сумма в SAP больше суммы в excel, то схлопываем.
Процедура схлопывания:
1) Встаем на первую позицию-сумму в SAP и нажимаем выбор
Код |
---|
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPDF05X:6102/tblSAPDF05XTC_6102/txtDF05B-PSBET[9,0]").setFocus session.findById("wnd[0]").sendVKey 2 |
2) Нажимаем на частичный платеж
Код |
---|
session.findById("wnd[0]/usr/tabsTS/tabpPART").select |
3) Встаем на первую позицию и нажимаем выбор
Код |
---|
session.findById("wnd[0]/usr/tabsTS/tabpPART/ssubPAGE:SAPDF05X:6104/tblSAPDF05XTC_6104/txtDF05B-PSZAH[11,0]").setFocus session.findById("wnd[0]").sendVKey 2 |
В противном случае
(если сумма в SAP меньше суммы в excel) - прощелкиваем суммы в SAP до тех пор, пока сумма не станет больше и схлопываем.
Пример прощелкивания сумм в SAP (например, до третьей позиции - суммы)
Код |
---|
session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPDF05X:6102/tblSAPDF05XTC_6102/txtDF05B-PSBET[9,0]").setFocus session.findById("wnd[0]").sendVKey 2 session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPDF05X:6102/tblSAPDF05XTC_6102/txtDF05B-PSBET[9,1]").setFocus session.findById("wnd[0]").sendVKey 2 session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPDF05X:6102/tblSAPDF05XTC_6102/txtDF05B-PSBET[9,2]").setFocus session.findById("wnd[0]").sendVKey 2 |
Часть записанного кода:
Код |
---|
[TABLE][TR][TD]session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPDF05X:6102/tblSAPDF05XTC_6102/txtDF05B-PSBET[9,0]").setFocus[/TD][/TR][TR][TD]session.findById("wnd[0]/usr/tabsTS/tabpMAIN/ssubPAGE:SAPDF05X:6102/tblSAPDF05XTC_6102/txtDF05B-PSBET[9,0]").caretPosition = 8[/TD][/TR][TR][TD]session.findById("wnd[0]").sendVKey 2[/TD][TD][/TD][/TR][TR][TD]session.findById("wnd[0]/usr/tabsTS/tabpPART").select[/TD][/TR][TR][TD]session.findById("wnd[0]/usr/tabsTS/tabpPART/ssubPAGE:SAPDF05X:6104/tblSAPDF05XTC_6104/txtDF05B-PSZAH[11,0]").setFocus[/TD][/TR][TR][TD]session.findById("wnd[0]/usr/tabsTS/tabpPART/ssubPAGE:SAPDF05X:6104/tblSAPDF05XTC_6104/txtDF05B-PSZAH[11,0]").caretPosition = 6[/TD][/TR][TR][TD]session.findById("wnd[0]").sendVKey 2[/TD][TD][/TD][/TR][/TABLE] |