发送DN单号给第三方仓库

发送DN单号给第三方仓库 PROGRAM ID : ZRMM0017. DESCRIPTION : This function is delivery DN No. to the third part warehouse with outband rfc AUTHOR : CREATE DATE : R/3 RELEASE : --------------------------------------------------------------------- VERSION CONTROL DATE AUTHOR TRANSPORT DESCRIPTION --------------------------------------------------------------------- Initial VersionREPORT zrmm0017.amp--------------------------------------------------------------------- TABLESamp---------------------------------------------------------------------INCLUDE lticongt.TABLES: likp lips.TYPE-POOLS: slis.amp--------------------------------------------------------------------- TYPESamp---------------------------------------------------------------------TYPES: BEGIN OF ty_lips ebeln TYPE ekko-ebeln quotPurchasing Document Number ebelp TYPE ekpo-ebelp quotPO. Item No. vbeln TYPE lips-vbeln quotDelivery No. posnr TYPE lips-posnr quotDelivery item No. vgbel TYPE lips-vgbel quotreference document lfimg TYPE lips-lfimg quotActual quantity delivered charg TYPE lips-charg quotBatch uecha TYPE lips-uecha quotHigher-Level Item of Batch Split Item vgpos TYPE lips-vgpos quotItem number of the reference item matnr TYPE ekpo-matnr quotMaterial Number eindt TYPE eket-eindt quotItem Delivery Date reswk TYPE ekko-reswk quotSupplying Plant in Stock Transport Order waers TYPE ekko-waers quotCurrency Key reslo TYPE ekpo-reslo quotIssuing Storage Location for Stock Transport Order werks TYPE ekpo-werks quotPlant lgort TYPE ekpo-lgort quotStorage Location adrnr TYPE ekpo-adrnr quotaddress number del TYPE char1 quotDelete Flag spart TYPE mara-spart quotDivision header_rmk TYPE char255 quotHeader text footer_rmk1 TYPE char255 quotScreen input text1 footer_rmk2 TYPE char255 quotScreen input text2 footer_rmk3 TYPE char255 quotScreen input text3 footer_rmk4 TYPE char255 quotScreen input text4 import TYPE char2 quotImport box TYPE char1 quotALV BOX lights TYPE icon_d quotALV LIGHTS message TYPE char255 quotMESSAGE order TYPE char20 quotOrder END OF ty_lips BEGIN OF ty_likp vbeln TYPE likp-vbeln quotDelivery END OF ty_likp BEGIN OF ty_mara matnr TYPE mara-matnr quotMaterial Number spart TYPE mara-spart quotDivision END OF ty_mara BEGIN OF ty_meins matnr TYPE mara-matnr quotMaterial Number meins TYPE mara-meins quotBase Unit of Measure gewei TYPE mara-gewei quotWeight Unit brgew TYPE mara-brgew quotGross Weight spart TYPE mara-spart quotDivision END OF ty_meins.amp--------------------------------------------------------------------- CONSTANTSamp---------------------------------------------------------------------CONSTANTS: c_nl TYPE likp-lfart VALUE NL c_e TYPE char1 VALUE E c_x TYPE char1 VALUE X c_funcname TYPE rs38l_fnam VALUE Z_MM_RFC_SEND_DN c_rfctype TYPE zrfctype VALUE O c_status_00 TYPE zrfcstatus VALUE 00 c_status_40 TYPE zrfcstatus VALUE 40 c_status_41 TYPE zrfcstatus VALUE 41 c_destination TYPE char32 VALUE MM_SAP23PL_006 c_zbc_int TYPE char7 VALUE ZBC_INT c_004 TYPE char3 VALUE 004 c_bsart_ub TYPE ekko-bsart VALUE UB c_bsart_zub TYPE ekko-bsart VALUE ZUB c_nb TYPE char2 VALUE NB c_nn TYPE char2 VALUE NN c_5000 TYPE char4 VALUE 5000 c_6000 TYPE char4 VALUE 6000 c_7000 TYPE char4 VALUE 7000 c_8000 TYPE char4 VALUE 8000 c_light_red TYPE c VALUE 1 c_light_yellow TYPE c VALUE 2 c_light_green TYPE c VALUE 3 c_y TYPE char1 VALUE Y c_n TYPE char1 VALUE N c_371 TYPE t001-bukrs VALUE 371 c_tt TYPE char2 VALUE TF c_to TYPE char2 VALUE TO.amp--------------------------------------------------------------------- DATAamp---------------------------------------------------------------------DATA: g_flg TYPE char1 g_subrc TYPE sy-subrc.DATA: gw_data TYPE zsmm_dn gw_lips TYPE ty_lips gw_mara TYPE ty_mara gw_zdn TYPE ztmm_dn_2ftp gw_line TYPE tline gw_attr1 TYPE ztmm_lgort_attr gw_attr2 TYPE ztmm_lgort_attr gw_adrc TYPE adrc gw_adrct TYPE adrct gw_meins TYPE ty_meins gw_makt TYPE ztmm_makt gw_custom TYPE ztmm_customform gw_field TYPE slis_fieldcat_alv gw_layout TYPE slis_layout_alv gw_rpari TYPE zsbc_rtran gw_rpare TYPE zsbc_rtran gw_path1 TYPE ztmm_sto_path1 gw_path2 TYPE ztmm_sto_path2 gw_path3 TYPE ztmm_sto_path3 gw_path4 TYPE ztmm_sto_path4.DATA: gt_data TYPE STANDARD TABLE OF zsmm_dn gt_dataa TYPE STANDARD TABLE OF zsmm_dn gt_likp TYPE STANDARD TABLE OF ty_likp gt_lips TYPE STANDARD TABLE OF ty_lips gt_lipsbak TYPE STANDARD TABLE OF ty_lips gt_deli TYPE STANDARD TABLE OF ty_lips gt_mara TYPE STANDARD TABLE OF ty_mara gt_zdn TYPE STANDARD TABLE OF ztmm_dn_2ftp gt_line TYPE STANDARD TABLE OF tline gt_attr TYPE STANDARD TABLE OF ztmm_lgort_attr gt_adrc TYPE STANDARD TABLE OF adrc gt_adrct TYPE STANDARD TABLE OF adrct gt_twlad TYPE STANDARD TABLE OF twlad gt_meins TYPE STANDARD TABLE OF ty_meins gt_makt TYPE STANDARD TABLE OF ztmm_makt gt_custom TYPE STANDARD TABLE OF ztmm_customform gt_field TYPE STANDARD TABLE OF slis_fieldcat_alv gt_ret TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE gt_path1 TYPE STANDARD TABLE OF ztmm_sto_path1 gt_path2 TYPE STANDARD TABLE OF ztmm_sto_path2 gt_path3 TYPE STANDARD TABLE OF ztmm_sto_path3 gt_path4 TYPE STANDARD TABLE OF ztmm_sto_path4.amp--------------------------------------------------------------------- SELECTION-SCREENamp---------------------------------------------------------------------PARAMETERS: p_bukrs TYPE t001-bukrs OBLIGATORY quotCOMPANY CODE p_order TYPE char20. quotOrder No.SELECT-OPTIONS: s_spart FOR lips-spart quotDivision s_erdat FOR lips-erdat quotDN Date s_vbeln FOR likp-vbeln. quotDN NOPARAMETERS: p_send RADIOBUTTON GROUP 1 DEFAULT X p_rese RADIOBUTTON GROUP 1.amp--------------------------------------------------------------------- INITIALIZATIONamp---------------------------------------------------------------------INITIALIZATION.-gtInitial variate PERFORM frm_inital.amp---------------------------------------------------------------------amp--------------------------------------------------------------------- MAIN PROGRAM----------------------------------------------------------------------START-OF-SELECTION.-gtGet delivery data PERFORM frm_get_likp.-gtdisplay alv PERFORM frm_dis_alv.amp---------------------------------------------------------------------amp Form FRM_INITALamp--------------------------------------------------------------------- Initial variate----------------------------------------------------------------------FORM frm_inital. CLEAR: g_flg g_subrc gw_data gw_lips gw_mara gw_zdn gw_line gw_attr1 gw_attr2 gw_adrc gw_adrct gw_meins gw_makt gw_custom gw_field gw_layout gw_rpari gw_rpare gw_path1 gw_path2 gw_path3 gw_path4. REFRESH: gt_data gt_likp gt_lips gt_deli gt_mara gt_zdn gt_line gt_attr gt_adrc gt_adrct gt_meins gt_makt gt_custom gt_field gt_ret gt_path1 gt_path2 gt_path3 gt_path4.ENDFORM. quot FRM_INITALamp---------------------------------------------------------------------amp Form FRM_GET_LIKPamp--------------------------------------------------------------------- Get delivery data----------------------------------------------------------------------FORM frm_get_likp. DATA: l_text1 TYPE tline-tdline l_order TYPE char30 l_name TYPE thead-tdname.-gt Get delivery no SELECT vbeln INTO TABLE gt_likp FROM likp WHERE likpvbeln IN s_vbeln AND likperdat IN s_erdat AND likplfart c_nl. IF sy-subrc ltgt 0. MESSAGE s000zbc_int WITH text-t01 DISPLAY LIKE c_e. g_flg c_x. LEAVE TO LIST-PROCESSING. EXIT. ENDIF.-gt Get delivery data SELECT ekkoebeln quotPurchasing Document Number ekpoebelp quotPO. Item No. lipsvbeln quotDelivery No. lipsposnr quotDelivery item No. lipsvgbel quotreference document lipslfimg quotActual quantity delivered lipscharg quotBatch lipsuecha quotHigher-Level Item of Batch Split Item lipsvgpos quotItem number of the reference item ekpomatnr quotMaterial Number eketeindt quotItem Delivery Date ekkoreswk quotSupplying Plant in Stock Transport Order ekkowaers quotCurrency Key ekporeslo quotIssuing Storage Location for Stock Transport Order ekpowerks quotPlant ekpolgort quotStorage Location ekpoadrnr quotaddress number INTO CORRESPONDING FIELDS OF TABLE gt_lips FROM ekpo INNER JOIN ekko ON ekpoebeln ekkoebeln INNER JOIN lips ON ekpoebeln lipsvgbel INNER JOIN eket ON ekpoebeln eketebeln AND ekpoebelp eketebelp FOR ALL ENTRIES IN gt_likp WHERE ekkobukrs p_bukrs AND ekkobsart c_bsart_ub OR ekkobsart c_bsart_zub AND lipsvbeln gt_likp-vbeln AND eketmenge ltgt 0. IF sy-subrc ltgt 0. MESSAGE s000zbc_int WITH text-t01 DISPLAY LIKE c_e. g_flg c_x. LEAVE TO LIST-PROCESSING. EXIT. ENDIF.-gt Get Division SELECT matnr spart INTO CORRESPONDING FIELDS OF TABLE gt_mara FROM mara FOR ALL ENTRIES IN gt_lips WHERE matnr gt_lips-matnr AND spart IN s_spart. SORT gt_mara BY matnr.-gt Get DN No. Send Record REFRESH gt_zdn. SELECT INTO TABLE gt_zdn FROM ztmm_dn_2ftp FOR ALL ENTRIES IN gt_lips WHERE dn_no gt_lips-vbeln. SORT gt_zdn BY dn_no.-gt get Attribution of storage location SELECT INTO TABLE gt_attr FROM ztmm_lgort_attr FOR ALL ENTRIES IN gt_lips WHERE werks gt_lips-werks AND lgort gt_lips-lgort. SELECT APPENDING TABLE gt_attr FROM ztmm_lgort_attr FOR ALL ENTRIES IN gt_lips WHERE werks gt_lips-reswk AND lgort gt_lips-reslo. SORT gt_attr BY werks lgort.-gt Check condition LOOP AT gt_lips INTO gw_lips.-gt item no IF gw_lips-ebelp ltgt gw_lips-posnr. IF gw_lips-ebelp ltgt gw_lips-vgpos. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. CONTINUE. ENDIF. IF gw_lips-uecha IS INITIAL. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. CONTINUE. ENDIF.-gt Division READ TABLE gt_mara INTO gw_mara WITH KEY matnr gw_lips-matnr. IF sy-subrc ltgt 0. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. CONTINUE. ELSE. gw_lips-spart gw_mara-spart. MODIFY gt_lips FROM gw_lips TRANSPORTING spart. ENDIF.-gt DN No. Send Record READ TABLE gt_zdn INTO gw_zdn WITH KEY dn_no gw_lips-vbeln. IF sy-subrc ltgt 0. IF p_rese c_x. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. CONTINUE. ENDIF. ELSE. IF p_send c_x. IF gw_zdn-send IS NOT INITIAL. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. CONTINUE. ENDIF. ELSEIF p_rese c_x. IF gw_zdn-finish IS NOT INITIAL. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. CONTINUE. ENDIF. ENDIF. ENDIF.-gt Order IF p_order IS NOT INITIAL. CLEAR l_name. l_name gw_lips-ebeln. CALL FUNCTION READ_TEXT EXPORTING client sy-mandt id F01 language E name l_name object EKKO TABLES lines gt_line EXCEPTIONS id 1 language 2 name 3 not_found 4 object 5 reference_check 6 wrong_access_to_archive 7 OTHERS 8. IF sy-subrc ltgt 0. CALL FUNCTION READ_TEXT EXPORTING client sy-mandt id F01 language 1 name l_name object EKKO TABLES lines gt_line EXCEPTIONS id 1 language 2 name 3 not_found 4 object 5 reference_check 6 wrong_access_to_archive 7 OTHERS 8. IF sy-subrc 0. READ TABLE gt_line INTO gw_line INDEX 1. SPLIT gw_line-tdline AT : INTO l_text1 l_order. IF p_order IS NOT INITIAL AND l_order ltgt p_order. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. ELSE. LOOP AT gt_line INTO gw_line. IF gw_lips-header_rmk IS INITIAL. gw_lips-header_rmk gw_line-tdline. CONTINUE. ENDIF. CONCATENATE gw_lips-header_rmk gw_line-tdline INTO gw_lips-header_rmk SEPARATED BY space. ENDLOOP. gw_lips-order l_order. MODIFY gt_lips FROM gw_lips TRANSPORTING header_rmk order. ENDIF. ELSE. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. ENDIF.ELSE. READ TABLE gt_line INTO gw_line INDEX 1. SPLIT gw_line-tdline AT : INTO l_text1 l_order. IF p_order IS NOT INITIAL AND l_order ltgt p_order. gw_lips-del c_x. MODIFY gt_lips FROM gw_lips TRANSPORTING del. ELSE. LOOP AT gt_line INTO gw_line. IF gw_lips-header_rmk IS INITIAL. gw_lips-header_rmk gw_line-tdline. CONTINUE. ENDIF. CONCATENATE gw_lips-header_rmk gw_line-tdline INTO gw_lips-header_rmk SEPARATED BY space. ENDLOOP. gw_lips-order l_order. MODIFY gt_lips FROM gw_lips TRANSPORTING header_rmk order. ENDIF. .