嗨，Chandu

系统将首先根据税码从OB40 T代码中提取总账科目，然后将根据税码和营业地点从表J_1IT030K_V中搜索总账，但仍然无法为我们提供正确的结果 。

因为FM J_1I7_GET_BUSINESS_PLACE中缺少某些代码。

为了实现这一点，我们在FM J_1I7_GET_BUSINESS_PLACE中编写了一些代码。

类型：ty_dynpfields的开头。
包括结构dynpread。
类型：ty_dynpfields的结尾。

数据：ty_dynpfields的it_dynpfields类型表。

数据：wa_buss类型J_1IT030K 。

数据：wa_dynpfields类型ty_dynpfields。

数据：w_dyname类型d020s-prog，
w_dynumb类型d020s-dnum。

如果（syst-tcode ='FB60 '或syst-tcode ='FB65'）。
将'SAPLFDCB'移至w_dyname。 "将FB60
中的程序（子屏幕）移至00_到w_dynumb。"将FB60
中的屏幕编号移至" INVFO-BUPLA"到wa_dynpfields-fieldname。
将wa_dynpfields附加到it_dynpfields。

调用函数'DYNP_VALUES_READ'
导出
dyname = w_dyname
dynumb = w_dynumb
TRANSLATE_TO_UPPER ='X'
表
dynpfields = it_dynpfields
EXCEPTIONS
INVALID_ABA br> INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8 DUAL STEPL_NOT_FOUND = 10
其他= 11
。
如果sy-subrc <> 0.
*消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
*带SY-MSGV1 SY -MSGV2 SY-MSGV3 SY-MSGV4。
ENDIF。

将表it_dynpfields读入wa_dynpfields索引1。

LS_J_1BBRANCH = wa_dynpfields-FIELDVALUE。
如果LS_J_1BBRANCH IS INIT。 >消息e000（8i）带有"请输入营业地点"。
ENDIF。
ENDIF。


如果（syst-tcode ='FB70'或syst-tcode ='FB75'）。
将'SAPLFDCB'移至w_dyname。 "将FB70
中的程序（子屏幕）移至'0510'到w_dynumb。"将FB70
中的屏幕编号移至'INVFO-BUPLA'并将其移至wa_dynpfields-fieldname。
将wa_dynpfields附加至it_dynpfields。
调用函数'DYNP_VALUES_READ'
导出
dyname = w_dyname
dynumb = w_dynumb
TRANSLATE_TO_UPPER ='X'
表
dynpfields = it_dynpfields
EXCEPTIONS
INVALID_ABA br> INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8 DUAL STEPL_NOT_FOUND = 10
其他= 11
。
如果sy-subrc <> 0.
*消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO
*带SY-MSGV1 SY -MSGV2 SY-MSGV3 SY-MSGV4。
ENDIF。

将表it_dynpfields读入wa_dynpfields索引1。

LS_J_1BBRANCH = wa_dynpfields-FIELDVALUE。
如果LS_J_1BBRANCH IS INIT。 >消息e000（8i）带有"请输入营业地点"。
ENDIF。
ENDIF。