标签：GS ERR 代码 GF 添加 BP PARTNER DATA
一，1.1创建函数ZSD_CREATE_BP
1.2定义结构
1.3导出参数
二，对应的代码参数
1 FUNCTION ZSD_CREATE_BP. 2 *"---------------------------------------------------------------------- 3 *"*"本地接口： 4 *" IMPORTING 5 *" REFERENCE(I_BP_DATA) TYPE ZSDS025 6 *" TABLES 7 *" ET_RETURN STRUCTURE BAPIRET2 8 *"---------------------------------------------------------------------- 9 10 DATA: GS_BP_DATA TYPE ZSDS025 . 11 DATA: LT_RETURN TYPE TABLE OF BAPIRET2, 12 LS_RETURN TYPE BAPIRET2. 13 DATA: LF_PARTNER TYPE KNA1-KUNNR, 14 LF_BP_PARTNER TYPE KNA1-KUNNR. 15 16 DATA: LF_LENTH TYPE INT4 . 17 DATA: GF_ERR TYPE CHAR1 . 18 19 CLEAR: ET_RETURN ,ET_RETURN[]. 20 CLEAR GS_BP_DATA . 21 GS_BP_DATA = I_BP_DATA . 22 23 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 24 EXPORTING 25 INPUT = GS_BP_DATA-PARTNER 26 IMPORTING 27 OUTPUT = GS_BP_DATA-PARTNER. 28 29 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 30 EXPORTING 31 INPUT = GS_BP_DATA-AKONT 32 IMPORTING 33 OUTPUT = GS_BP_DATA-AKONT. 34 35 IF GS_BP_DATA-KUNN2_PY IS INITIAL . 36 CLEAR LF_LENTH . 37 LF_LENTH = STRLEN( GS_BP_DATA-PARTNER ) . 38 IF LF_LENTH < 17 . 39 GS_BP_DATA-KUNN2_PY = GS_BP_DATA-PARTNER . 40 ELSE . 41 GS_BP_DATA-KUNN2_PY = GS_BP_DATA-PARTNER+7(10) . 42 ENDIF . 43 ENDIF. 44 45 IF GS_BP_DATA-KUNN2_BP IS INITIAL . 46 CLEAR LF_LENTH . 47 LF_LENTH = STRLEN( GS_BP_DATA-PARTNER ) . 48 IF LF_LENTH < 17 . 49 GS_BP_DATA-KUNN2_BP = GS_BP_DATA-PARTNER . 50 ELSE . 51 GS_BP_DATA-KUNN2_BP = GS_BP_DATA-PARTNER+7(10) . 52 ENDIF . 53 ENDIF. 54 55 IF GS_BP_DATA-KUNN2_SH IS INITIAL . 56 CLEAR LF_LENTH . 57 LF_LENTH = STRLEN( GS_BP_DATA-PARTNER ) . 58 IF LF_LENTH < 17 . 59 GS_BP_DATA-KUNN2_SH = GS_BP_DATA-PARTNER . 60 ELSE . 61 GS_BP_DATA-KUNN2_SH = GS_BP_DATA-PARTNER+7(10) . 62 ENDIF . 63 ENDIF. 64 65 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 66 EXPORTING 67 INPUT = GS_BP_DATA-KUNN2_PY 68 IMPORTING 69 OUTPUT = GS_BP_DATA-KUNN2_PY. 70 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 71 EXPORTING 72 INPUT = GS_BP_DATA-KUNN2_BP 73 IMPORTING 74 OUTPUT = GS_BP_DATA-KUNN2_BP. 75 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 76 EXPORTING 77 INPUT = GS_BP_DATA-KUNN2_SH 78 IMPORTING 79 OUTPUT = GS_BP_DATA-KUNN2_SH. 80 81 CLEAR LF_BP_PARTNER . 82 CLEAR LF_LENTH . 83 LF_LENTH = STRLEN( GS_BP_DATA-PARTNER ) . 84 IF LF_LENTH < 17 . 85 LF_BP_PARTNER = GS_BP_DATA-PARTNER . 86 ELSE . 87 LF_BP_PARTNER = GS_BP_DATA-PARTNER+7(10) . 88 ENDIF . 89 90 *1. 判断业务伙伴是否存在 ，存在，执行11 ，不存在，执行2 91 CLEAR LF_PARTNER . 92 SELECT SINGLE PARTNER INTO LF_PARTNER FROM BUT000 WHERE PARTNER = LF_BP_PARTNER . 93 IF SY-SUBRC <> 0 . 94 *2. 创建业务伙伴基本信息 参考ZMM_CREATE_BP-FRM_CREATE_BP 95 CLEAR GF_ERR . 96 PERFORM FRM_CREATE_BP TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR . 97 CHECK GF_ERR <> 'X' . 98 *3. 判断科目组是否为（1001 1002）是，执行4 ，否执行5 99 IF GS_BP_DATA-BU_GROUP = '1001' OR GS_BP_DATA-BU_GROUP = '1002' . 100 *4. 添加角色： FLCU00 ZMM_CREATE_BP-FRM_ADD_BP_ROLE 101 CLEAR GF_ERR . 102 PERFORM FRM_ADD_BP_ROLE TABLES ET_RETURN USING GS_BP_DATA-PARTNER 'FLCU00' CHANGING GF_ERR . 103 CHECK GF_ERR <> 'X' . 104 ELSE. 105 *5. 添加角色： FLCU00 FLCU01 UKM000 ZMM_CREATE_BP-FRM_ADD_BP_ROLE 106 CLEAR GF_ERR . 107 PERFORM FRM_ADD_BP_ROLE TABLES ET_RETURN USING GS_BP_DATA-PARTNER 'FLCU00' CHANGING GF_ERR . 108 CHECK GF_ERR <> 'X' . 109 110 CLEAR GF_ERR . 111 PERFORM FRM_ADD_BP_ROLE TABLES ET_RETURN USING GS_BP_DATA-PARTNER 'FLCU01' CHANGING GF_ERR . 112 CHECK GF_ERR <> 'X' . 113 114 CLEAR GF_ERR . 115 PERFORM FRM_ADD_BP_ROLE TABLES ET_RETURN USING GS_BP_DATA-PARTNER 'UKM000' CHANGING GF_ERR . 116 CHECK GF_ERR <> 'X' . 117 ENDIF . 118 *6. 创建业务伙伴的税号 ZMM_CREATE_BP-FRM_TAX_CREATE 119 IF GS_BP_DATA-TAXNUMXL IS NOT INITIAL . 120 CLEAR GF_ERR . 121 PERFORM FRM_TAX_CREATE TABLES ET_RETURN USING GS_BP_DATA-PARTNER GS_BP_DATA-TAXNUMXL CHANGING GF_ERR . 122 CHECK GF_ERR <> 'X' . 123 ENDIF . 124 *7. 创建银行数据 ZMM_CREATE_BP-FRM_BANK_CREATE 125 IF GS_BP_DATA-BANKL IS NOT INITIAL . 126 CLEAR GF_ERR . 127 PERFORM FRM_BANK_CREATE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR . 128 ENDIF . 129 *8. 创建公司数据 cmd_ei_api=>maintain_bapi 130 IF GS_BP_DATA-BUKRS IS NOT INITIAL . 131 PERFORM FRM_BUKRS_CREATE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR. 132 ENDIF . 133 *9. 创建销售数据 cmd_ei_api=>maintain_bapi 134 IF GS_BP_DATA-VKORG IS NOT INITIAL AND 135 GS_BP_DATA-VTWEG IS NOT INITIAL AND 136 GS_BP_DATA-SPART IS NOT INITIAL. 137 PERFORM FRM_SALES_CREATE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR. 138 ENDIF . 139 *10.创建信贷数据 结束 140 IF GS_BP_DATA-PARTNER IS NOT INITIAL . 141 CLEAR GF_ERR . 142 PERFORM FRM_CREDIT_CREATE TABLES ET_RETURN USING GS_BP_DATA-PARTNER GS_BP_DATA-LIMIT_RULE CHANGING GF_ERR . 143 CHECK GF_ERR <> 'X' . 144 ENDIF. 145 ELSE . 146 *11.修改业务伙伴基本信息 147 CLEAR GF_ERR . 148 PERFORM FRM_CHANGE_BP TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR . 149 CHECK GF_ERR <> 'X' . 150 *12.判断科目组是否为（1001 1002）是，执行13 ，否执行14 151 IF GS_BP_DATA-BU_GROUP = '1001' AND GS_BP_DATA-BU_GROUP = '1002' . 152 *13 判断角色是否存在： FLCU00 ，不存在则添加 153 CLEAR LF_PARTNER . 154 SELECT SINGLE PARTNER INTO LF_PARTNER FROM BUT100 WHERE PARTNER = LF_BP_PARTNER AND RLTYP = 'FLVN00' . 155 IF SY-SUBRC <> 0 . 156 CLEAR GF_ERR . 157 PERFORM FRM_ADD_BP_ROLE TABLES ET_RETURN USING GS_BP_DATA-PARTNER 'FLCU00' CHANGING GF_ERR . 158 CHECK GF_ERR <> 'X' . 159 ENDIF . 160 ELSE. 161 *14.修改业务伙伴的税号 162 IF GS_BP_DATA-TAXNUMXL IS NOT INITIAL . 163 CLEAR LF_PARTNER . 164 SELECT SINGLE PARTNER INTO LF_PARTNER FROM DFKKBPTAXNUM WHERE PARTNER = LF_BP_PARTNER AND TAXTYPE = 'CN0' . 165 IF SY-SUBRC <> 0 . 166 CLEAR GF_ERR . 167 PERFORM FRM_TAX_CREATE TABLES ET_RETURN USING GS_BP_DATA-PARTNER GS_BP_DATA-TAXNUMXL CHANGING GF_ERR . 168 CHECK GF_ERR <> 'X' . 169 ELSE . 170 CLEAR GF_ERR . 171 PERFORM FRM_TAX_CHANGE TABLES ET_RETURN USING GS_BP_DATA-PARTNER GS_BP_DATA-TAXNUMXL CHANGING GF_ERR. 172 CHECK GF_ERR <> 'X' . 173 ENDIF . 174 ENDIF . 175 ENDIF . 176 *15.修改银行数据 177 DATA: LF_BANKN1 TYPE BUT0BK-BANKN, 178 LF_BANKN2 TYPE BUT0BK-KOINH, 179 LF_STR_LENTH TYPE I, 180 LF_BKVID TYPE BUT0BK-BKVID. 181 IF GS_BP_DATA-BANKL IS NOT INITIAL . 182 CLEAR: LF_BANKN1 ,LF_BANKN2 ,LF_STR_LENTH . 183 LF_STR_LENTH = STRLEN( GS_BP_DATA-BANKN ) . 184 IF LF_STR_LENTH <= 18 . 185 LF_BANKN1 = GS_BP_DATA-BANKN . 186 LF_BANKN2 = SPACE . 187 ELSE . 188 LF_BANKN1 = GS_BP_DATA-BANKN+0(18) . 189 LF_BANKN2 = GS_BP_DATA-BANKN+18 . 190 ENDIF . 191 192 CLEAR LF_BKVID . 193 SELECT SINGLE BKVID INTO LF_BKVID FROM BUT0BK 194 WHERE PARTNER = LF_BP_PARTNER . 195 IF SY-SUBRC <> 0 . 196 CLEAR GF_ERR . 197 PERFORM FRM_BANK_CREATE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR . 198 CHECK GF_ERR <> 'X' . 199 ELSE . 200 CLEAR GF_ERR . 201 PERFORM FRM_BANK_CHANGE TABLES ET_RETURN USING GS_BP_DATA LF_BKVID CHANGING GF_ERR. 202 CHECK GF_ERR <> 'X' . 203 ENDIF . 204 ENDIF . 205 *16.修改公司数据 cmd_ei_api=>maintain_bapi 206 IF GS_BP_DATA-BUKRS IS NOT INITIAL . 207 CLEAR LF_PARTNER . 208 SELECT SINGLE KUNNR INTO LF_PARTNER FROM KNB1 209 WHERE BUKRS = GS_BP_DATA-BUKRS AND 210 KUNNR = LF_BP_PARTNER . 211 IF SY-SUBRC <> 0 . 212 PERFORM FRM_BUKRS_CREATE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR. 213 ELSE . 214 PERFORM FRM_BUKRS_CHANGE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR. 215 ENDIF . 216 ENDIF . 217 *17.修改销售数据 cmd_ei_api=>maintain_bapi 218 IF GS_BP_DATA-VKORG IS NOT INITIAL AND 219 GS_BP_DATA-VTWEG IS NOT INITIAL AND 220 GS_BP_DATA-SPART IS NOT INITIAL. 221 CLEAR LF_PARTNER . 222 SELECT SINGLE KUNNR INTO LF_PARTNER FROM KNVV WHERE KUNNR = LF_BP_PARTNER AND 223 VKORG = GS_BP_DATA-VKORG AND 224 VTWEG = GS_BP_DATA-VTWEG AND 225 SPART = GS_BP_DATA-SPART. 226 IF SY-SUBRC <> 0 . 227 PERFORM FRM_SALES_CREATE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR. 228 ELSE . 229 PERFORM FRM_SALES_CHANGE TABLES ET_RETURN USING GS_BP_DATA CHANGING GF_ERR. 230 ENDIF . 231 ENDIF . 232 *18.修改信贷数据 结束 233 IF GS_BP_DATA-LIMIT_RULE IS NOT INITIAL . 234 CLEAR LF_PARTNER . 235 SELECT SINGLE PARTNER FROM UKMBP_CMS INTO LF_PARTNER WHERE PARTNER = LF_BP_PARTNER AND 236 LIMIT_RULE = GS_BP_DATA-LIMIT_RULE. 237 IF SY-SUBRC <> 0. 238 CLEAR GF_ERR . 239 PERFORM FRM_CREDIT_CREATE TABLES ET_RETURN USING GS_BP_DATA-PARTNER GS_BP_DATA-LIMIT_RULE CHANGING GF_ERR . 240 CHECK GF_ERR <> 'X' . 241 ELSE . 242 CLEAR GF_ERR . 243 PERFORM FRM_CREDIT_CHANGE TABLES ET_RETURN USING GS_BP_DATA-PARTNER GS_BP_DATA-LIMIT_RULE CHANGING GF_ERR . 244 CHECK GF_ERR <> 'X' . 245 ENDIF. 246 ENDIF. 247 ENDIF. 248 249 CLEAR GS_BP_DATA . 250 251 ENDFUNCTION.View Code
标签：GS,ERR,代码,GF,添加,BP,PARTNER,DATA 来源： https://www.cnblogs.com/yushuiguodong/p/15034712.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。