topic Re: BDC Code for inbound delivery in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-inbound-delivery/m-p/5144616#M1192323 <HTML><HEAD></HEAD><BODY><P>hi,</P><P>take the multiple data in an internal table.</P><P>Loop at t_data into fs_data.</P><P>perform bdc_dynpro sapxxxxx screen_number.</P><P>perform bdc_field field_name fs_data-col1.</P><P>endloop.</P><P></P><P>you get the program name number from the bdc recording in SHDB</P><P>field name you get from BDC recording and the data object fs_data-col1 from the internal table</P><P>in the form bdc_field </P><P></P><P>declare a table t_steps of type table of BDCDATA structure</P><P></P><P>FORM bdc_dynpro USING value(p_program_name)</P><P> value(p_screen_number).</P><P> CLEAR t_steps.</P><P> t_steps-program = p_program_name.</P><P> t_steps-dynpro = p_screen_number.</P><P> t_steps-dynbegin = 'X'.</P><P> APPEND t_steps.</P><P>ENDFORM. </P><P></P><P>FORM bdc_field USING value(p_fieldname)</P><P> value(p_value).</P><P> CLEAR t_steps.</P><P> t_steps-fnam = p_fieldname.</P><P> t_steps-fval = p_value.</P><P> APPEND t_steps.</P><P>ENDFORM. </P><P>This is a sample code which have been done for transaction XD01.</P><P>hope this makes things clear.</P><P> LOOP AT t_cust INTO fs_cust.</P><P> w_num = w_num + 1.</P><P> ON CHANGE OF FS_CUST-NAME1.</P><P> PERFORM screen_data USING 'SAPMF02D' '0100'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P> PERFORM field_data USING 'RF02D-BUKRS' fs_cust-bukrs.</P><P> PERFORM field_data USING 'RF02D-KTOKD' fs_cust-ktokd.</P><P> PERFORM field_data USING 'RF02D-REF_KUNNR' ''.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0110'.</P><P> PERFORM field_data USING 'KNA1-ANRED' fs_cust-anred.</P><P> PERFORM field_data USING 'KNA1-NAME1' fs_cust-name1.</P><P> PERFORM field_data USING 'KNA1-SORTL' fs_cust-sortl.</P><P> PERFORM field_data USING 'KNA1-ORT01' fs_cust-ort01.</P><P> PERFORM field_data USING 'KNA1-ORT02' fs_cust-ort02.</P><P> PERFORM field_data USING 'KNA1-PFACH' fs_cust-pfach.</P><P> PERFORM field_data USING 'KNA1-PSTLZ' fs_cust-pstlz.</P><P> PERFORM field_data USING 'KNA1-PFORT' fs_cust-pfort.</P><P> PERFORM field_data USING 'KNA1-LAND1' fs_cust-land1.</P><P> PERFORM field_data USING 'KNA1-SPRAS' fs_cust-spras.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0120'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0125'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0130'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0340'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0370'.</P><P> PERFORM field_data USING 'KNA1-CIVVE' 'X'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P> ENDON.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0360'.</P><P> CONCATENATE 'KNVK-ANRED(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-title. "KNVK-ANRED(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-NAMEV(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-namev. "KNVK-NAMEV(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-NAME1(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-name2. "KNVK-NAME1(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-TELF1(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-telf1. "KNVK-TELF1(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-TELF1(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-abtnr. "KNVK-ABTNR(01)</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P></P><P> AT END OF NAME1.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0360'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0210'.</P><P> PERFORM field_data USING 'KNB1-AKONT' fs_cust-akont.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0215'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0220'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0230'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P>CALL TRANSACTION 'XD01' USING t_steps MODE 'A' MESSAGES INTO t_messages.</P><P> REFRESH T_STEPS.</P><P> clear w_num.</P><P> ENDAT.</P><P> ENDLOOP. " LOOP AT t_cust INTO fs_cust</P><P></P><P></P><P>Thanks and regards</P><P>Sharath</P></BODY></HTML> Thu, 05 Feb 2009 13:36:34 GMT Former Member 2009-02-05T13:36:34Z BDC Code for inbound delivery https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-inbound-delivery/m-p/5144615#M1192322 <HTML><HEAD></HEAD><BODY><P>HI Experts,</P><P>i am creating on BDC for inbound delivery using VL31n. for the single item it is working fine.but when it comes to multiple item i am confused how to take the values because it may happen that only 3 items are processed for ASN out of 10. this can be any no. </P><P> Can anybody help me out , how to code for that.how i can map which item is to be processed. Send me the code if possible.</P><P></P><P>Thanks in advance.</P></BODY></HTML> Thu, 05 Feb 2009 13:21:40 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-inbound-delivery/m-p/5144615#M1192322 Former Member 2009-02-05T13:21:40Z Re: BDC Code for inbound delivery https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-inbound-delivery/m-p/5144616#M1192323 <HTML><HEAD></HEAD><BODY><P>hi,</P><P>take the multiple data in an internal table.</P><P>Loop at t_data into fs_data.</P><P>perform bdc_dynpro sapxxxxx screen_number.</P><P>perform bdc_field field_name fs_data-col1.</P><P>endloop.</P><P></P><P>you get the program name number from the bdc recording in SHDB</P><P>field name you get from BDC recording and the data object fs_data-col1 from the internal table</P><P>in the form bdc_field </P><P></P><P>declare a table t_steps of type table of BDCDATA structure</P><P></P><P>FORM bdc_dynpro USING value(p_program_name)</P><P> value(p_screen_number).</P><P> CLEAR t_steps.</P><P> t_steps-program = p_program_name.</P><P> t_steps-dynpro = p_screen_number.</P><P> t_steps-dynbegin = 'X'.</P><P> APPEND t_steps.</P><P>ENDFORM. </P><P></P><P>FORM bdc_field USING value(p_fieldname)</P><P> value(p_value).</P><P> CLEAR t_steps.</P><P> t_steps-fnam = p_fieldname.</P><P> t_steps-fval = p_value.</P><P> APPEND t_steps.</P><P>ENDFORM. </P><P>This is a sample code which have been done for transaction XD01.</P><P>hope this makes things clear.</P><P> LOOP AT t_cust INTO fs_cust.</P><P> w_num = w_num + 1.</P><P> ON CHANGE OF FS_CUST-NAME1.</P><P> PERFORM screen_data USING 'SAPMF02D' '0100'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P> PERFORM field_data USING 'RF02D-BUKRS' fs_cust-bukrs.</P><P> PERFORM field_data USING 'RF02D-KTOKD' fs_cust-ktokd.</P><P> PERFORM field_data USING 'RF02D-REF_KUNNR' ''.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0110'.</P><P> PERFORM field_data USING 'KNA1-ANRED' fs_cust-anred.</P><P> PERFORM field_data USING 'KNA1-NAME1' fs_cust-name1.</P><P> PERFORM field_data USING 'KNA1-SORTL' fs_cust-sortl.</P><P> PERFORM field_data USING 'KNA1-ORT01' fs_cust-ort01.</P><P> PERFORM field_data USING 'KNA1-ORT02' fs_cust-ort02.</P><P> PERFORM field_data USING 'KNA1-PFACH' fs_cust-pfach.</P><P> PERFORM field_data USING 'KNA1-PSTLZ' fs_cust-pstlz.</P><P> PERFORM field_data USING 'KNA1-PFORT' fs_cust-pfort.</P><P> PERFORM field_data USING 'KNA1-LAND1' fs_cust-land1.</P><P> PERFORM field_data USING 'KNA1-SPRAS' fs_cust-spras.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0120'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0125'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0130'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0340'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0370'.</P><P> PERFORM field_data USING 'KNA1-CIVVE' 'X'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P> ENDON.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0360'.</P><P> CONCATENATE 'KNVK-ANRED(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-title. "KNVK-ANRED(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-NAMEV(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-namev. "KNVK-NAMEV(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-NAME1(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-name2. "KNVK-NAME1(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-TELF1(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-telf1. "KNVK-TELF1(01)</P><P></P><P> CLEAR line.</P><P> CONCATENATE 'KNVK-TELF1(' w_num ')' INTO line.</P><P> PERFORM field_data USING line fs_cust-abtnr. "KNVK-ABTNR(01)</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P></P><P> AT END OF NAME1.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0360'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '=ENTR'.</P><P></P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0210'.</P><P> PERFORM field_data USING 'KNB1-AKONT' fs_cust-akont.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0215'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0220'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P></P><P> PERFORM screen_data USING 'SAPMF02D' '0230'.</P><P> PERFORM field_data USING 'BDC_OKCODE' '/00'.</P><P>CALL TRANSACTION 'XD01' USING t_steps MODE 'A' MESSAGES INTO t_messages.</P><P> REFRESH T_STEPS.</P><P> clear w_num.</P><P> ENDAT.</P><P> ENDLOOP. " LOOP AT t_cust INTO fs_cust</P><P></P><P></P><P>Thanks and regards</P><P>Sharath</P></BODY></HTML> Thu, 05 Feb 2009 13:36:34 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-inbound-delivery/m-p/5144616#M1192323 Former Member 2009-02-05T13:36:34Z