Como manter tabela SHADOW para registros个人?

2020-08-24 17:47发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)Olá, Estou com...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


Olá,

Estou com um requisito onde存在一个不可或缺的uma SM30 para algumas tabelas tabelas SHADOW do TDF de modo que seja possivel manter os dados das mesmas。

a tudo bem,o问题,éestas tabelas possuem o campo MANDTporémo mesmo fazreferênciaao campo mandt do sistema de origem dos dados mas as tabelas standard trata o campo como umo campo MANDT tradicional 福斯·奥坎普·曼丹特·阿桑多(TDF neste caso)。

示例:

环境标准产品ECC可能是客户端'666',而TDF可能是客户端'123',必须是SM30 de uma tabela SHADOW a tentar incluir um novo registro eleseráautoamente gerado pelo standard com o客户端'123 'quando o correto seria'666'。

存在"存在"或"需要"限制条件的" Z"实用程序或可重复使用的客户端程序吗?

Desdejáagradeçopelaatenção。

1条回答
土豆飞人
2020-08-24 18:21

Fabio,

问题的解决方案,解决方案,解决方案和解决方案的视图Z参数表的格式为GET_DATA,DB_UPD和READ_SINGLE gerados自动配置参数视图,forana editados包含SPCLIF SQL。

不方便在解决方案上作特别介绍的表格,请查看视图和演示文稿,然后再进行修改。 O ponto forteéqueéumasoluçãorápidaquenãoexige quevocêcrie um programa Z。

没有示例视图可对/VWK/TDFTPSERV进行表访问/TMF/D_IT_TPSERV for manandante'305'。

 * ----------------------------------------------  ----------------------- *
 *查看相关的FORM例程
 *生成日期:09.06.2018 at 21:49:39
 *查看维护生成器版本:#001407#
 * -------------------------------------------------  -------------------- *
 * ...处理:/VWK/TDFTPSERV .................... *
 表格GET_DATA_/VWK/TDFTPSERV。
   执行VIM_FILL_WHERETAB。
 *。从数据库中读取数据...........................................  。*
   刷新总计。
   清除总计。
 * Ajuste para tratar somente MANDANTE 305
   SELECT * FROM/TMF/D_IT_TPSERV CLIENT SPECIFIED WHERE MANDT ='305'AND
 (VIM_WHERETAB)。
     清除/VWK/TDFTPSERV。
/VWK/TDFTPSERV-MANDT =
/TMF/D_IT_TPSERV-MANDT。
/VWK/TDFTPSERV-EMPRESA =
/TMF/D_IT_TPSERV-EMPRESA。
/VWK/TDFTPSERV-FILIAL =
/TMF/D_IT_TPSERV-FILIAL。
/VWK/TDFTPSERV-NF_ID =
/TMF/D_IT_TPSERV-NF_ID。
/VWK/TDFTPSERV-TP_SERVICO =
/TMF/D_IT_TPSERV-TP_SERVICO。
/VWK/TDFTPSERV-BASE_IRF =
/TMF/D_IT_TPSERV-BASE_IRF。
/VWK/TDFTPSERV-VLR_IRF =
/TMF/D_IT_TPSERV-VLR_IRF。
/VWK/TDFTPSERV-DT_E_S =
/TMF/D_IT_TPSERV-DT_E_S。
/VWK/TDFTPSERV-VLR_RET_SUB =
/TMF/D_IT_TPSERV-VLR_RET_SUB。
/VWK/TDFTPSERV-VLR_N_RET_PRINC =
/TMF/D_IT_TPSERV-VLR_N_RET_PRINC。
/VWK/TDFTPSERV-VLR_SERVICOS_15 =
/TMF/D_IT_TPSERV-VLR_SERVICOS_15。
/VWK/TDFTPSERV-VLR_SERVICOS_20 =
/TMF/D_IT_TPSERV-VLR_SERVICOS_20。
/VWK/TDFTPSERV-VLR_SERVICOS_25 =
/TMF/D_IT_TPSERV-VLR_SERVICOS_25。
/VWK/TDFTPSERV-VLR_N_RET_ADIC =
/TMF/D_IT_TPSERV-VLR_N_RET_ADIC。
/VWK/TDFTPSERV-MUDAR_IRF =
/TMF/D_IT_TPSERV-MUDAR_IRF。
  =/VWK/TDFTPSERV。
     总计。
   ENDSELECT。
   排序总值 -ALR_SORTED ='R'。
 *。检查动态选择选项(不在DDIC中).................................... *
   如果X_HEADER-SELECTION NE SPACE。
     执行CHECK_DYNAMIC_SELECT_OPTIONS。
   ELSEIF X_HEADER-DELMDTFLAG NE空间。
     执行BUILD_MAINKEY_TAB。
   万一。
   刷新提取。
 ENDFORM。
 * -------------------------------------------------  -------------------- *
 表格DB_UPD_/VWK/TDFTPSERV。
 *。处理数据库更新/插入/删除.................................. *
 合计。
   检查 NE ORIGINAL。
 将移动到/VWK/TDFTPSERV。
   如果 = UPDATE_GELOESCHT。
      = GELOESCHT。
   万一。
   案例<操作>。
    当NEUER_GELOESCHT。
 如果STATUS_/VWK/TDFTPSERV-ST_DELETE EQ GELOESCHT。
      使用键读取表提取。
      如果SY-SUBRC EQ 0。
        删除提取索引SY-TABIX。
      万一。
     万一。
     删除总计。
     如果X_HEADER-DELMDTFLAG NE空间。
       执行DELETE_FROM_MAINKEY_TAB。
     万一。
    当GELOESCHT。
 * Ajuste para tratar somente MANDANTE 305
   选择单次更新*从/TMF/D_IT_TPSERV在MANDT ='35'的客户指定的AND
   EMPRESA =/VWK/TDFTPSERV-EMPRESA AND
   FILIAL =/VWK/TDFTPSERV-FILIAL AND
   NF_ID =/VWK/TDFTPSERV-NF_ID AND
   TP_SERVICO =/VWK/TDFTPSERV-TP_SERVICO。
     如果SY-SUBRC = 0。
 * Ajuste para tratar somente MANDANTE 305
     指定删除/TMF/D_IT_TPSERV客户端。
     万一。
     如果状态已删除,则EQ GELOESCHT。
       使用键二进制搜索读取表摘录。
       删除提取索引SY-TABIX。
     万一。
     删除总计。
     如果X_HEADER-DELMDTFLAG NE空间。
       执行DELETE_FROM_MAINKEY_TAB。
     万一。
    当别人。
 * Ajuste para tratar somente MANDANTE 305
   选择单次更新*从/TMF/D_IT_TPSERV在MANDT ='35'的客户指定的AND
   EMPRESA =/VWK/TDFTPSERV-EMPRESA AND
   FILIAL =/VWK/TDFTPSERV-FILIAL AND
   NF_ID =/VWK/TDFTPSERV-NF_ID AND
   TP_SERVICO =/VWK/TDFTPSERV-TP_SERVICO。
     IF SY-SUBRC <>0。"插入预处理:init WA
       清除/TMF/D_IT_TPSERV。
     万一。
/TMF/D_IT_TPSERV-MANDT =
/VWK/TDFTPSERV-MANDT。
/TMF/D_IT_TPSERV-EMPRESA =
/VWK/TDFTPSERV-EMPRESA。
/TMF/D_IT_TPSERV-FILIAL =
/VWK/TDFTPSERV-FILIAL。
/TMF/D_IT_TPSERV-NF_ID =
/VWK/TDFTPSERV-NF_ID。
/TMF/D_IT_TPSERV-TP_SERVICO =
/VWK/TDFTPSERV-TP_SERVICO。
/TMF/D_IT_TPSERV-BASE_IRF =
/VWK/TDFTPSERV-BASE_IRF。
/TMF/D_IT_TPSERV-VLR_IRF =
/VWK/TDFTPSERV-VLR_IRF。
/TMF/D_IT_TPSERV-DT_E_S =
/VWK/TDFTPSERV-DT_E_S。
/TMF/D_IT_TPSERV-VLR_RET_SUB =
/VWK/TDFTPSERV-VLR_RET_SUB。
/TMF/D_IT_TPSERV-VLR_N_RET_PRINC =
/VWK/TDFTPSERV-VLR_N_RET_PRINC。
/TMF/D_IT_TPSERV-VLR_SERVICOS_15 =
/VWK/TDFTPSERV-VLR_SERVICOS_15。
/TMF/D_IT_TPSERV-VLR_SERVICOS_20 =
/VWK/TDFTPSERV-VLR_SERVICOS_20。
/TMF/D_IT_TPSERV-VLR_SERVICOS_25 =
/VWK/TDFTPSERV-VLR_SERVICOS_25。
/TMF/D_IT_TPSERV-VLR_N_RET_ADIC =
/VWK/TDFTPSERV-VLR_N_RET_ADIC。
/TMF/D_IT_TPSERV-MUDAR_IRF =
/VWK/TDFTPSERV-MUDAR_IRF。

 * Ajuste para tratar somente MANDANTE 305
/TMF/D_IT_TPSERV-MANDT ='305'。
/VWK/TDFTPSERV-MANDT ='305'。

     如果SY-SUBRC = 0。
 * Ajuste para tratar somente MANDANTE 305
     指定更新/TMF/D_IT_TPSERV客户端。
     其他。
 * Ajuste para tratar somente MANDANTE 305
     插入/TMF/D_IT_TPSERV客户指定。
     万一。
     使用键读取表提取。
     如果SY-SUBRC EQ 0。
        =原始。
       修改提取索引SY-TABIX。
     万一。
      =原始。
     修改总计。
   结束。
 结局。
 清除:STATUS_/VWK/TDFTPSERV-UPD_FLAG,
 STATUS_/VWK/TDFTPSERV-UPD_CHECKD。
 讯息S018(SV)。
 ENDFORM。
 * -------------------------------------------------  -------------------- *
 表格READ_SINGLE_/VWK/TDFTPSERV。
 * Ajuste para tratar somente MANDANTE 305
   SELECT SINGLE * FROM/TMF/D_IT_TPSERV CLIENT SPECIFIED WHERE MANDT ='305'AND
 EMPRESA =/VWK/TDFTPSERV-EMPRESA AND
 FILIAL =/VWK/TDFTPSERV-FILIAL AND
 NF_ID =/VWK/TDFTPSERV-NF_ID AND
 TP_SERVICO =/VWK/TDFTPSERV-TP_SERVICO。
/VWK/TDFTPSERV-MANDT =
/TMF/D_IT_TPSERV-MANDT。
/VWK/TDFTPSERV-EMPRESA =
/TMF/D_IT_TPSERV-EMPRESA。
/VWK/TDFTPSERV-FILIAL =
/TMF/D_IT_TPSERV-FILIAL。
/VWK/TDFTPSERV-NF_ID =
/TMF/D_IT_TPSERV-NF_ID。
/VWK/TDFTPSERV-TP_SERVICO =
/TMF/D_IT_TPSERV-TP_SERVICO。
/VWK/TDFTPSERV-BASE_IRF =
/TMF/D_IT_TPSERV-BASE_IRF。
/VWK/TDFTPSERV-VLR_IRF =
/TMF/D_IT_TPSERV-VLR_IRF。
/VWK/TDFTPSERV-DT_E_S =
/TMF/D_IT_TPSERV-DT_E_S。
/VWK/TDFTPSERV-VLR_RET_SUB =
/TMF/D_IT_TPSERV-VLR_RET_SUB。
/VWK/TDFTPSERV-VLR_N_RET_PRINC =
/TMF/D_IT_TPSERV-VLR_N_RET_PRINC。
/VWK/TDFTPSERV-VLR_SERVICOS_15 =
/TMF/D_IT_TPSERV-VLR_SERVICOS_15。
/VWK/TDFTPSERV-VLR_SERVICOS_20 =
/TMF/D_IT_TPSERV-VLR_SERVICOS_20。
/VWK/TDFTPSERV-VLR_SERVICOS_25 =
/TMF/D_IT_TPSERV-VLR_SERVICOS_25。
/VWK/TDFTPSERV-VLR_N_RET_ADIC =
/TMF/D_IT_TPSERV-VLR_N_RET_ADIC。
/VWK/TDFTPSERV-MUDAR_IRF =
/TMF/D_IT_TPSERV-MUDAR_IRF。
 ENDFORM。

一周热门 更多>