function zasbis_parametreler. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" VALUE(LT_SIP_VIN) TYPE ZSD_SIP_TT_VIN OPTIONAL *" EXPORTING *" VALUE(E_SIP_VIN_DATA) TYPE ZSD_SIP_TT_VIN_DATA *" VALUE(E_SIP_ARACTIPI) TYPE ZSD_SIP_TT_ARACTIPI *" VALUE(E_SIP_KARAK) TYPE ZSD_SIP_TT_KARAK *" VALUE(E_ASBIS_CONF) TYPE ZSD_ASBIS_TT_CONF *" VALUE(E_ASBIS_VARYANT) TYPE ZSD_ASBIS_TT_VARYANT *" VALUE(E_ASBIS_AKS) TYPE ZSD_ASBIS_TT_AKS *" VALUE(E_ASBIS_VRSYN) TYPE ZSD_ASBIS_TT_VRYSN *" VALUE(E_ASBIS_KATIM) TYPE ZSD_ASBIS_TT_KATIM *" VALUE(E_ASBIS_TICAD) TYPE ZSD_ASBIS_TT_TICAD *" VALUE(E_ASBIS_ETIKET) TYPE ZSD_ASBIS_TT_ETIKET *" VALUE(E_ASBIS_ATNY) TYPE ZSD_ASBIS_TT_ATNY *" VALUE(E_ASBIS_TAY) TYPE ZSD_ASBIS_TT_TAY *" VALUE(E_ASBIS_AOR) TYPE ZSD_ASBIS_TT_AOR *" VALUE(E_ASBIS_LASTIK) TYPE ZSD_ASBIS_TT_LASTIK *" VALUE(E_ASBIS_LASKOD) TYPE ZSD_ASBIS_TT_LASKOD *" VALUE(E_ASBIS_IMALATCI) TYPE ZSD_ASBIS_TT_IMALATCI *" VALUE(E_ASBIS_JANT) TYPE ZSD_ASBIS_TT_JANT *" VALUE(E_ASBIS_KINGPIN) TYPE ZSD_ASBIS_TT_KINGPIN *" VALUE(E_ASBIS_AGRA) TYPE ZSD_ASBIS_TT_AGRA *" VALUE(E_ASBIS_AGRD) TYPE ZSD_ASBIS_TT_AGRD *" VALUE(E_ASBIS_AGO) TYPE ZSD_ASBIS_TT_AGO *" VALUE(E_ASBIS_MINMAX) TYPE ZSD_ASBIS_TT_MINMAX *" VALUE(E_ASBIS_SABLON) TYPE ZSD_ASBIS_TT_SABLON *" VALUE(E_RETURN) TYPE ZSD_ASBIS_TT_RETURN *"---------------------------------------------------------------------- * asbis dataları okumada, öncelik order için girilmiş bir veri varmı * (boş olabilir), * daha sonra oer den girilmiş bir değer varmı (bol olabilir), * en son olarak ta standart veriler okunacaktır ********************************************************************** clear : gs_lt_sip_vin. clear : e_sip_vin_data[], e_sip_vin_data, gs_e_sip_vin_data. clear : e_sip_aractipi[], e_sip_aractipi, gs_e_sip_aractipi. clear : e_sip_karak[], e_sip_karak. clear : e_asbis_conf[], e_asbis_conf, gs_e_asbis_conf. clear : e_asbis_varyant[], e_asbis_varyant, gs_e_asbis_varyant. clear : e_asbis_aks[], e_asbis_aks, gs_e_asbis_aks. clear : e_asbis_vrsyn[], e_asbis_vrsyn, gs_e_asbis_vrsyn. clear : e_asbis_katim[], e_asbis_katim, gs_e_asbis_katim. clear : e_asbis_ticad[], e_asbis_ticad, gs_e_asbis_ticad. clear : e_asbis_etiket[], e_asbis_etiket, gs_e_asbis_etiket. clear : e_asbis_atny[], e_asbis_atny, gs_e_asbis_atny. clear : e_asbis_tay[], e_asbis_tay, gs_e_asbis_tay. clear : e_asbis_aor[], e_asbis_aor, gs_e_asbis_aor. clear : e_asbis_lastik[], e_asbis_lastik, gs_e_asbis_lastik. clear : e_asbis_laskod[], e_asbis_laskod, gs_e_asbis_laskod. clear : e_asbis_imalatci[], e_asbis_imalatci, gs_e_asbis_imalatci. clear : e_asbis_jant[], e_asbis_jant, gs_e_asbis_jant. clear : e_asbis_kingpin[], e_asbis_kingpin, gs_e_asbis_kingpin. clear : e_asbis_agra[], e_asbis_agra, gs_e_asbis_agra. clear : e_asbis_agrd[], e_asbis_agrd, gs_e_asbis_agrd. clear : e_asbis_ago[], e_asbis_ago, gs_e_asbis_ago. clear : e_asbis_minmax[], e_asbis_minmax, gs_e_asbis_minmax. clear : e_asbis_sablon[], e_asbis_sablon, gs_e_asbis_sablon. ********************************************************************** clear : gt_e_sip_bom[], gt_e_sip_bom, gs_e_sip_bom. clear : gt_e_sip_karak[], gt_e_sip_karak, gs_e_sip_karak. clear : gt_bom[], gt_bom, gs_bom. clear : e_return[], e_return, ls_return. clear : gv_sernr. clear : gt_zsd_aractipi[], gt_zsd_aractipi, gs_zsd_aractipi. clear : gt_zasbisvariant[], gt_zasbisvariant, gs_zasbisvariant. clear : gt_zasbisaksdeger[], gt_zasbisaksdeger, gs_zasbisaksdeger. clear : gt_zasbisakstip[], gt_zasbisakstip, gs_zasbisakstip. clear : gt_zasbisversiyon[], gt_zasbisversiyon, gs_zasbisversiyon. clear : gt_zasbisarctntm[], gt_zasbisarctntm, gs_zasbisarctntm. clear : gt_zasbistipony[], gt_zasbistipony, gs_zasbistipony, gss_zasbistipony. clear : gt_zasbisticad[], gt_zasbisticad, gs_zasbisticad. clear : gt_zasbiszoretk[], gt_zasbiszoretk, gs_zasbiszoretk. clear : gt_zasbisdingil[], gt_zasbisdingil, gs_zasbisdingil. clear : gt_zasbisyukindex[], gt_zasbisyukindex, gs_zasbisyukindex. clear : gt_zasbisimltci[], gt_zasbisimltci, gs_zasbisimltci. clear : gt_zasbisaor[], gt_zasbisaor, gs_zasbisaor. clear : gt_zasbisaor_select[], gt_zasbisaor_select, gs_zasbisaor_select. clear : gt_zasbisjant[], gt_zasbisjant, gs_zasbisjant. clear : gt_zasbiskingpin[], gt_zasbiskingpin, gs_zasbiskingpin. clear : gt_zasbiskrksira[], gt_zasbiskrksira, gs_zasbiskrksira. clear : gt_zasbisagirlik[], gt_zasbisagirlik, gs_zasbisagirlik. clear : gt_zasbisagirlikk[], gt_zasbisagirlikk, gs_zasbisagirlikk. clear : gt_zasbisminmax[], gt_zasbisminmax, gs_zasbisminmax. clear : gt_zasbissablond[], gt_zasbissablond[], gs_zasbissablond. clear : gt_zasbistay[], gt_zasbistay, gs_zasbistay. ********************************************************************** ********************************************************************** clear : gt_zkont_werks[], gt_zkont_werks, gs_zkont_werks. select * from zkont_werks into table gt_zkont_werks where zcprog eq 'ZASBIS_PARAMETRELER' and zprgtip eq '1'. ********************************************************************** clear : gt_t002[], gt_t002, gs_t002. ********************************************************************** select * from t002 into table gt_t002. ********************************************************************** ********************************************************************** clear : gv_tar, gv_sat. move sy-datum to gv_tar. move sy-uzeit to gv_sat. move 'TR' to sy-langu. loop at lt_sip_vin into gs_lt_sip_vin. gv_index = sy-tabix. clear : gv_dvm. clear : lv_spras. if gs_lt_sip_vin-spras eq ' '. move 'TR' to gs_lt_sip_vin-spras. else. lv_spras = gs_lt_sip_vin-spras. translate lv_spras to upper case. gs_lt_sip_vin-spras = lv_spras. endif. read table gt_t002 into gs_t002 with key laiso = gs_lt_sip_vin-spras. if sy-subrc eq 0. move gs_t002-spras to gs_lt_sip_vin-spras_l. endif. ********************************************************************** if gs_lt_sip_vin-vbeln is not initial. call function 'CONVERSION_EXIT_ALPHA_INPUT' exporting input = gs_lt_sip_vin-vbeln importing output = gs_lt_sip_vin-vbeln. call function 'CONVERSION_EXIT_ALPHA_INPUT' exporting input = gs_lt_sip_vin-posnr importing output = gs_lt_sip_vin-posnr. if gs_lt_sip_vin-posnr is initial. move '000010' to gs_lt_sip_vin-posnr. endif. if gs_lt_sip_vin-sernr is initial. select single sernr from rog_s02obj into gs_lt_sip_vin-sernr where sdaufnr eq gs_lt_sip_vin-vbeln and posnr eq gs_lt_sip_vin-posnr. move gs_lt_sip_vin-sernr to gv_sernr. else. select single sernr from rog_s02obj into gv_sernr where sdaufnr eq gs_lt_sip_vin-vbeln and posnr eq gs_lt_sip_vin-posnr. if gv_sernr ne gs_lt_sip_vin-sernr. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '440'. ls_return-message_v1 = gs_lt_sip_vin-vbeln. ls_return-message_v2 = gs_lt_sip_vin-sernr. ls_return-message_v3 = gv_sernr. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. else. if gs_lt_sip_vin-sernr is initial. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '441'. ls_return-message_v1 = ' '. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. else. select single sdaufnr posnr from rog_s02obj into (gs_lt_sip_vin-vbeln, gs_lt_sip_vin-posnr) where sernr eq gs_lt_sip_vin-sernr. if sy-subrc ne 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '442'. ls_return-message_v1 = gs_lt_sip_vin-sernr. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. endif. check gv_dvm eq ' '. select single c~vbeln c~posnr c~matnr c~werks d~audat g~edatu g~wmeng c~werks c~objnr c~cuobj c~zvbeln_r c~zposnr_r zvbeln_t zposnr_t from vbap as c inner join vbak as d on c~vbeln = d~vbeln inner join vbep as g on g~vbeln = c~vbeln and g~posnr = c~posnr into corresponding fields of gs_sip where c~vbeln eq gs_lt_sip_vin-vbeln and c~posnr eq gs_lt_sip_vin-posnr. if sy-subrc ne 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '392'. ls_return-message_v1 = gs_lt_sip_vin-vbeln. ls_return-message_v2 = gs_lt_sip_vin-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. check gv_dvm eq ' '. ********************************************************************** ********************************************************************** * araç ve şasi no move gs_lt_sip_vin-spras_l to gs_e_sip_vin_data-spras. move gs_lt_sip_vin-vbeln to gs_e_sip_vin_data-vbeln. move gs_lt_sip_vin-posnr to gs_e_sip_vin_data-posnr. move gs_lt_sip_vin-sernr to gs_e_sip_vin_data-sernr. move gs_sip-matnr to gs_e_sip_vin_data-matnr. select single maktx into gs_e_sip_vin_data-maktx from makt where matnr eq gs_sip-matnr and spras eq gs_lt_sip_vin-spras_l. * oer clear : gv_zvbeln_r, gv_zposnr_r, gv_zvbeln_t, gv_zposnr_t. clear : gv_say_oer, gv_zoer, gv_zoervar. clear : gs_zsd_conf. move gs_sip-zvbeln_r to gv_zvbeln_r. move gs_sip-zposnr_r to gv_zposnr_r. move gs_sip-zvbeln_t to gv_zvbeln_t. move gs_sip-zposnr_t to gv_zposnr_t. select * from zsd_conf into gs_zsd_conf where vbeln eq gv_zvbeln_r and posnr eq gv_zposnr_r and zredred eq ' '. move gs_e_sip_vin_data-vbeln to gs_e_asbis_conf-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_conf-posnr. move gs_zsd_conf-charact to gs_e_asbis_conf-charact. move gs_zsd_conf-ch_descr to gs_e_asbis_conf-ch_descr. move gs_zsd_conf-text255 to gs_e_asbis_conf-text255. move 'X' to gv_zoer. move 'OER var' to gv_zoervar. move gv_zvbeln_r to gs_e_sip_vin_data-zvbeln. move gv_zposnr_r to gs_e_sip_vin_data-zposnr. move gv_zoer to gs_e_sip_vin_data-zoer. append gs_e_asbis_conf to e_asbis_conf. clear gs_e_asbis_conf. endselect. clear : gv_say_oer. describe table e_asbis_conf lines gv_say_oer. if gv_say_oer eq 0. select * from zsd_conf into gs_zsd_conf where vbeln eq gv_zvbeln_t and posnr eq gv_zposnr_t and zredred eq ' '. move gs_e_sip_vin_data-vbeln to gs_e_asbis_conf-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_conf-posnr. move gs_zsd_conf-charact to gs_e_asbis_conf-charact. move gs_zsd_conf-ch_descr to gs_e_asbis_conf-ch_descr. move gs_zsd_conf-text255 to gs_e_asbis_conf-text255. move 'X' to gv_zoer. move 'OER var' to gv_zoervar. move gv_zvbeln_t to gs_e_sip_vin_data-zvbeln. move gv_zposnr_t to gs_e_sip_vin_data-zposnr. move gv_zoer to gs_e_sip_vin_data-zoer. append gs_e_asbis_conf to e_asbis_conf. clear gs_e_asbis_conf. endselect. endif. * oer tercümesi varsa alınır loop at e_asbis_conf into gs_e_asbis_conf. gv_index_oer = sy-tabix. clear gs_zsd_conft. select single * from zsd_conft into gs_zsd_conft where vbeln = gs_e_asbis_conf-vbeln and posnr = gs_e_asbis_conf-posnr and charact = gs_e_asbis_conf-charact and zdelno = space and spras = gs_e_sip_vin_data-spras. if sy-subrc eq 0. move gs_zsd_conft-ch_descr to gs_e_asbis_conf-ch_descr. move gs_zsd_conft-text255 to gs_e_asbis_conf-text255. modify e_asbis_conf from gs_e_asbis_conf index gv_index_oer. endif. endloop. append gs_e_sip_vin_data to e_sip_vin_data. clear : gs_e_sip_vin_data. ********************************************************************** ********************************************************************** * karakteristik patlatılır clear : gt_e_sip_karak[], gt_e_sip_karak, gs_e_sip_karak. clear : lv_klart, lv_table. clear : lt_char[], lt_char, ls_char. clear : lt_char_v[], lt_char_v, ls_char_v. call function 'ZGET_KLART' importing e_klart = lv_klart e_table = lv_table. lv_object = gs_sip-matnr. clear : lv_class. call function 'CTMS_OBJECT_HAS_STANDARDCLASS' exporting object = lv_object table = lv_table classtype = lv_klart with_text = 'X' date_of_change = sy-datum importing class = lv_class exceptions no_classification = 1 table_not_allowed = 2 internal_error = 3 others = 4. call function 'BAPI_CLASS_GET_CHARACTERISTICS' exporting classnum = lv_class classtype = lv_klart * langu_int = 'T' langu_int = sy-langu key_date = sy-datum with_values = 'X' tables characteristics = lt_char char_values = lt_char_v. clear: sales_documents[], sales_documents, ls_order_header_inx, lt_order_item_in[], lt_order_item_in, lt_order_item_inx[], lt_order_item_inx, order_cfgs_cuvals_out[], order_cfgs_cuvals_out, lt_order_cfgs_ref[], lt_order_cfgs_ref, lt_order_cfgs_inst[], lt_order_cfgs_inst. clear : ls_bapi_view, lt_header[], lt_header, lt_item[], lt_item, lt_curefs[], lt_curefs, lt_cucfgs[], lt_cucfgs, lt_cuins[], lt_cuins, lt_cuvals[], lt_cuvals. sales_documents-vbeln = gs_sip-vbeln. append sales_documents. clear : ls_bapi_view. ls_bapi_view-header = 'X'. ls_bapi_view-item = 'X'. ls_bapi_view-configure = 'X'. call function 'BAPISDORDER_GETDETAILEDLIST' exporting i_bapi_view = ls_bapi_view tables sales_documents = sales_documents order_headers_out = lt_header order_items_out = lt_item order_cfgs_curefs_out = lt_curefs order_cfgs_cucfgs_out = lt_cucfgs order_cfgs_cuins_out = lt_cuins order_cfgs_cuvals_out = lt_cuvals. loop at lt_cuvals into ls_cuvals. clear : ls_char. read table lt_char into ls_char with key name_char = ls_cuvals-charc. clear : gv_ch_val. if ls_char-data_type <> 'CHAR'. lt_value = ls_cuvals-value. call function 'QSS0_FLTP_TO_CHAR_CONVERSION' exporting i_number_of_digits = 0 i_fltp_value = lt_value i_value_not_initial_flag = 'X' i_screen_fieldlength = 16 importing e_char_field = e_char_field. move e_char_field to gv_ch_val. else. move ls_cuvals-value to gv_ch_val. endif. move gs_lt_sip_vin-vbeln to gs_e_sip_karak-vbeln. move gs_lt_sip_vin-posnr to gs_e_sip_karak-posnr. move ls_cuvals-charc to gs_e_sip_karak-charact. move ls_char-descr_char to gs_e_sip_karak-ch_descr. shift gv_ch_val left deleting leading space. move gv_ch_val to gs_e_sip_karak-ch_val. clear gs_e_sip_karak-ch_vdescr. read table lt_char_v into ls_char_v with key name_char = ls_cuvals-charc char_value = gv_ch_val. if sy-subrc eq 0. move ls_char_v-descr_cval to gs_e_sip_karak-ch_vdescr. endif. append gs_e_sip_karak to gt_e_sip_karak. clear : gs_e_sip_karak. endloop. * clear : r_conf[], r_conf, gs_r_conf. * * call function 'VC_I_GET_CONFIGURATION' * exporting * instance = gs_sip-cuobj * language = sy-langu * tables * configuration = r_conf * exceptions * instance_not_found = 1 * internal_error = 2 * no_class_allocation = 3 * instance_not_valid = 4 * others = 5. * * loop at r_conf into gs_r_conf. * clear : ls_char. * read table lt_char into ls_char * with key name_char = gs_r_conf-atnam. * clear : gv_ch_val. * if ls_char-data_type <> 'CHAR'. * clear : str1, str2, str3, str4. * * split gs_r_conf-atwrt at ' ' into str1 str2. * split str1 at '.' into str3 str4. * if str4 = ' '. * gv_ch_val = str1. * else. * replace all occurrences of '.' in str1 with ''. * condense str1. * gv_ch_val = str1. * endif. * replace all occurrences of ',' in gv_ch_val with '.'. * else. * move gs_r_conf-atwrt to gv_ch_val. * endif. * * move gs_lt_sip_vin-vbeln to gs_e_sip_karak-vbeln. * move gs_lt_sip_vin-posnr to gs_e_sip_karak-posnr. * move gs_r_conf-atnam to gs_e_sip_karak-charact. * move gs_r_conf-atbez to gs_e_sip_karak-ch_descr. * move gv_ch_val to gs_e_sip_karak-ch_val. * move gs_r_conf-atwtb to gs_e_sip_karak-ch_vdescr. * * append gs_e_sip_karak to gt_e_sip_karak. * clear : gs_e_sip_karak. * endloop. sort gt_e_sip_karak by vbeln posnr charact ascending. delete gt_e_sip_karak where charact eq 'ZTVARKOND'. clear nbr_say. describe table gt_e_sip_karak lines nbr_say. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '444'. ls_return-message_v1 = gs_lt_sip_vin-vbeln. ls_return-message_v2 = gs_lt_sip_vin-posnr. ls_return-message_v3 = gs_sip-matnr. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. loop at gt_e_sip_karak into gs_e_sip_karak. append gs_e_sip_karak to e_sip_karak. endloop. check gv_dvm eq ' '. ********************************************************************** ********************************************************************** "n.enesh 20092017 araç ağırlıkları clear : gv_brgew. read table gt_e_sip_karak into gs_e_sip_karak with key vbeln = gs_sip-vbeln posnr = gs_sip-posnr charact = 'ZTBOSA'. if sy-subrc eq 0. gs_e_asbis_ago-vbeln = gs_sip-vbeln. gs_e_asbis_ago-posnr = gs_sip-posnr. gs_e_asbis_ago-matnr = gs_sip-matnr. select single zzsd_paket from vbap into gs_e_asbis_ago-paket where vbeln = gs_sip-vbeln and posnr = gs_sip-posnr. select single * from zasbisagirliko into corresponding fields of gs_agirliko where matnr = gs_sip-matnr and paket = '*ALL'. if gs_agirliko is initial. select single * from zasbisagirliko into corresponding fields of gs_agirliko where matnr = gs_sip-matnr and paket = gs_e_asbis_ago-paket. endif. gs_e_asbis_ago-brgew = gs_e_sip_karak-ch_val. clear gs_e_sip_karak_s. read table gt_e_sip_karak into gs_e_sip_karak_s with key vbeln = gs_sip-vbeln posnr = gs_sip-posnr charact = 'ZTSA'. if sy-subrc eq 0. clear : gv_ch_val. clear : str1, str2, str3, str4. split gs_e_sip_karak_s-ch_vdescr at ' ' into str1 str2. split str1 at '.' into str3 str4. if str4 = ' '. gv_ch_val = str1. else. replace all occurrences of '.' in str1 with ''. condense str1. gv_ch_val = str1. endif. gv_brgew = gv_ch_val. add gv_brgew to gs_e_asbis_ago-brgew. endif. clear : gv_hsp,gv_num. gv_num = gs_e_asbis_ago-brgew. gs_e_asbis_ago-brgew = gs_e_asbis_ago-brgew - gv_num+4(1). clear : gv_hsp,gv_num. gs_e_asbis_ago-gewei = 'KG'. "n.enesh 10102017 clear : gs_e_sip_karak,gv_num. read table gt_e_sip_karak into gs_e_sip_karak with key vbeln = gs_sip-vbeln posnr = gs_sip-posnr charact = 'ZTDS'. if sy-subrc eq 0. gv_num1 = gs_e_sip_karak-ch_val. while gv_num1 > 0. case gv_num1. when 0010. if gs_agirliko-dngl10 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '10'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl10 = gv_hsp * gs_agirliko-dngl10 . gv_num = gs_e_asbis_ago-dngl10. gs_e_asbis_ago-dngl10 = gv_num. gs_e_asbis_ago-dngl10 = gs_e_asbis_ago-dngl10 - gv_num+4(1). endif. when 0009. if gs_agirliko-dngl9 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '9'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl9 = gv_hsp * gs_agirliko-dngl9 . gv_num = gs_e_asbis_ago-dngl9. gs_e_asbis_ago-dngl9 = gv_num. gs_e_asbis_ago-dngl9 = gs_e_asbis_ago-dngl9 - gv_num+4(1). endif. when 0008. if gs_agirliko-dngl8 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '8'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl8 = gv_hsp * gs_agirliko-dngl8 . gv_num = gs_e_asbis_ago-dngl8. gs_e_asbis_ago-dngl8 = gv_num. gs_e_asbis_ago-dngl8 = gs_e_asbis_ago-dngl8 - gv_num+4(1). endif. when 0007. if gs_agirliko-dngl7 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '7'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl7 = gv_hsp * gs_agirliko-dngl7 . gv_num = gs_e_asbis_ago-dngl7. gs_e_asbis_ago-dngl7 = gv_num. gs_e_asbis_ago-dngl7 = gs_e_asbis_ago-dngl7 - gv_num+4(1). endif. when 0006. if gs_agirliko-dngl6 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '6'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl6 = gv_hsp * gs_agirliko-dngl6 . gv_num = gs_e_asbis_ago-dngl6. gs_e_asbis_ago-dngl6 = gv_num. gs_e_asbis_ago-dngl6 = gs_e_asbis_ago-dngl6 - gv_num+4(1). endif. when 0005. if gs_agirliko-dngl5 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '5'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl5 = gv_hsp * gs_agirliko-dngl5 . gv_num = gs_e_asbis_ago-dngl5. gs_e_asbis_ago-dngl5 = gv_num. gs_e_asbis_ago-dngl5 = gs_e_asbis_ago-dngl5 - gv_num+4(1). endif. when 0004. if gs_agirliko-dngl4 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '4'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl4 = gv_hsp * gs_agirliko-dngl4 . gv_num = gs_e_asbis_ago-dngl4. gs_e_asbis_ago-dngl4 = gv_num. gs_e_asbis_ago-dngl4 = gs_e_asbis_ago-dngl4 - gv_num+4(1). endif. when 0003. if gs_agirliko-dngl3 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '3'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl3 = gv_hsp * gs_agirliko-dngl3 . gv_num = gs_e_asbis_ago-dngl3. gs_e_asbis_ago-dngl3 = gv_num. gs_e_asbis_ago-dngl3 = gs_e_asbis_ago-dngl3 - gv_num+4(1). endif. when 0002. if gs_agirliko-dngl2 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '2'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl2 = gv_hsp * gs_agirliko-dngl2 . gv_num = gs_e_asbis_ago-dngl2. gs_e_asbis_ago-dngl2 = gv_num. gs_e_asbis_ago-dngl2 = gs_e_asbis_ago-dngl2 - gv_num+4(1). endif. when 0001. if gs_agirliko-dngl1 eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '627'. ls_return-message_v1 = gs_sip-vbeln. ls_return-message_v2 = '1'. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. else. clear : gv_hsp,gv_num. gv_hsp = gs_e_asbis_ago-brgew / 100 . gs_e_asbis_ago-dngl1 = gv_hsp * gs_agirliko-dngl1 . gv_num = gs_e_asbis_ago-dngl1. gs_e_asbis_ago-dngl1 = gv_num. gs_e_asbis_ago-dngl1 = gs_e_asbis_ago-dngl1 - gv_num+4(1). endif. endcase. gv_num1 = gv_num1 - 1. endwhile. endif. "en.enesh 10102017 append gs_e_asbis_ago to e_asbis_ago. clear : gs_e_asbis_ago,gs_e_sip_karak,gv_hsp,gs_agirliko. endif. "en.enesh 20092017 ********************************************************************** ********************************************************************** read table gt_zkont_werks with key werks = gs_sip-werks. if sy-subrc eq 0. move '1100' to gs_sip-werks. endif. * ürün ağacı clear : gt_bom[], gt_bom, gs_bom. call function 'CS_BOM_EXPL_KND_V1' exporting auskz = 'X' capid = 'PP01' cuobj = gs_sip-cuobj datuv = gs_sip-edatu emeng = gs_sip-wmeng mktls = 'X' mehrs = 'X' mtnrv = gs_sip-matnr stlal = '01' stlan = '1' stpst = 0 svwvo = 'X' werks = gs_sip-werks vbeln = gs_sip-vbeln vbpos = gs_sip-posnr vrsvo = 'X' tables stb = gt_bom exceptions alt_not_found = 1 call_invalid = 2 material_not_found = 3 missing_authorization = 4 no_bom_found = 5 no_plant_data = 6 no_suitable_bom_found = 7 conversion_error = 8 others = 9. delete gt_bom where alpgr is not initial and alprf > 1. clear nbr_say. describe table gt_bom lines nbr_say. if nbr_say eq 0. call function 'CS_BOM_EXPL_KND_V1' exporting auskz = 'X' capid = 'PP01' cuobj = gs_sip-cuobj datuv = gs_sip-edatu emeng = gs_sip-wmeng mktls = 'X' mehrs = 'X' mtnrv = gs_sip-matnr stlal = '01' stlan = '5' stpst = 0 svwvo = 'X' werks = gs_sip-werks vbeln = gs_sip-vbeln vbpos = gs_sip-posnr vrsvo = 'X' tables stb = gt_bom exceptions alt_not_found = 1 call_invalid = 2 material_not_found = 3 missing_authorization = 4 no_bom_found = 5 no_plant_data = 6 no_suitable_bom_found = 7 conversion_error = 8 others = 9. delete gt_bom where alpgr is not initial and alprf > 1. endif. loop at gt_bom into gs_bom. read table gt_e_sip_bom into gs_e_sip_bom-matnr with key matnr = gs_bom-idnrk. if sy-subrc ne 0. move gs_lt_sip_vin-vbeln to gs_e_sip_bom-vbeln. move gs_lt_sip_vin-posnr to gs_e_sip_bom-posnr. move gs_bom-idnrk to gs_e_sip_bom-matnr. append gs_e_sip_bom to gt_e_sip_bom. clear gs_e_sip_bom. endif. endloop. sort gt_e_sip_bom by vbeln posnr matnr ascending. clear nbr_say. describe table gt_e_sip_bom lines nbr_say. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '444'. ls_return-message_v1 = gs_lt_sip_vin-vbeln. ls_return-message_v2 = gs_lt_sip_vin-posnr. ls_return-message_v3 = gs_sip-werks. ls_return-message_v4 = gs_sip-matnr. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. check gv_dvm eq ' '. ********************************************************************** ********************************************************************** * araç tipi * tek kayıt gelmeli clear : gs_e_sip_karak. clear : gv_ch_val_marka, gv_ch_val_ds, gv_ch_val_le, gv_ch_val_ulke, gv_ch_val_imalat, gv_aractip. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTMARKA'. if sy-subrc eq 0. move gs_e_sip_karak-ch_vdescr to gv_ch_val_marka. translate gv_ch_val_marka to upper case. if gv_ch_val_marka+0(1) eq 'K'. move 'KÄSSBOHRER' to gv_ch_val_marka. endif. endif. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTDS'. if sy-subrc eq 0. * move gs_e_sip_karak-ch_vdescr to gv_ch_val_ds. concatenate gs_e_sip_karak-ch_val 'ADT' into gv_ch_val_ds separated by ' '. endif. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTLE'. if sy-subrc eq 0. move gs_e_sip_karak-ch_val to gv_ch_val_le. endif. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTIMALAT'. if sy-subrc eq 0. move gs_e_sip_karak-ch_val to gv_ch_val_imalat. endif. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTULKE'. if sy-subrc eq 0. move gs_e_sip_karak-ch_val to gv_ch_val_ulke. endif. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTARACTIPI'. if sy-subrc eq 0. move gs_e_sip_karak-ch_val to gv_aractip. endif. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTARACTIPIK'. if sy-subrc eq 0. move gs_e_sip_karak-ch_val to gv_aractip. endif. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_lt_sip_vin-vbeln posnr = gs_lt_sip_vin-posnr charact = 'ZTARACTIPIT'. if sy-subrc eq 0. move gs_e_sip_karak-ch_val to gv_aractip. endif. clear : gv_say_aractipi. clear : gt_zsd_aractipi[], gt_zsd_aractipi, gs_zsd_aractipi. select * from zsd_aractipi into table gt_zsd_aractipi where zmarka eq gv_ch_val_marka and matnr eq gs_sip-matnr and ztimalat eq gv_ch_val_imalat and ztds eq gv_ch_val_ds and ztulke eq gv_ch_val_ulke and ztle eq gv_ch_val_le. clear : gv_say_aractipi. describe table gt_zsd_aractipi lines gv_say_aractipi. if gv_say_aractipi eq 0. select * from zsd_aractipi into table gt_zsd_aractipi where zmarka eq gv_ch_val_marka and matnr eq gs_sip-matnr and ztimalat eq gv_ch_val_imalat and ztds eq gv_ch_val_ds and ztulke eq '*ALL' and ztle eq gv_ch_val_le. endif. describe table gt_zsd_aractipi lines gv_say_aractipi. if gv_say_aractipi eq 0. clear : gv_hata1, gv_hata2, gv_hata3, gv_hata4. concatenate gs_lt_sip_vin-vbeln gs_lt_sip_vin-posnr into gv_hata1 separated by space. concatenate 'Marka :' gv_ch_val_marka into gv_hata2 separated by space. concatenate 'Ürün :' gs_sip-matnr 'İmalat :' gv_ch_val_imalat into gv_hata3 separated by space. concatenate 'Dingil :' gv_ch_val_ds 'Lastik :' gv_ch_val_le into gv_hata4 separated by space. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '443'. ls_return-message_v1 = gv_hata1. ls_return-message_v2 = gv_hata2. ls_return-message_v3 = gv_hata3. ls_return-message_v4 = gv_hata4. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_aractipi eq 1. clear : gs_zsd_aractipi. read table gt_zsd_aractipi into gs_zsd_aractipi index 1. if sy-subrc eq 0. move gs_lt_sip_vin-vbeln to gs_e_sip_aractipi-vbeln. move gs_lt_sip_vin-posnr to gs_e_sip_aractipi-posnr. move gs_zsd_aractipi-zaractipi to gs_e_sip_aractipi-zaractipi. select single ztiponay from zplnschedule into gs_e_sip_aractipi-ztiponay where siparisno eq gs_lt_sip_vin-vbeln and sipariskalemi eq gs_lt_sip_vin-posnr. if sy-subrc eq 0. if gs_e_sip_aractipi-ztiponay is not initial. append gs_e_sip_aractipi to e_sip_aractipi. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '446'. ls_return-message_v1 = gs_lt_sip_vin-vbeln. ls_return-message_v2 = gs_lt_sip_vin-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '447'. ls_return-message_v1 = gs_lt_sip_vin-vbeln. ls_return-message_v2 = gs_lt_sip_vin-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. elseif gv_say_aractipi gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '462'. ls_return-message_v1 = gs_lt_sip_vin-vbeln. ls_return-message_v2 = gs_lt_sip_vin-posnr. ls_return-message_v3 = gs_sip-matnr. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear gs_e_sip_aractipi. clear : gv_hata1, gv_hata2, gv_hata3, gv_hata4. clear nbr_say. loop at e_sip_aractipi into gs_e_sip_aractipi where vbeln eq gs_lt_sip_vin-vbeln and posnr eq gs_lt_sip_vin-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. concatenate gs_lt_sip_vin-vbeln gs_lt_sip_vin-posnr into gv_hata1 separated by space. concatenate 'Marka :' gv_ch_val_marka into gv_hata2 separated by space. concatenate 'Ürün :' gs_sip-matnr 'İmalat :' gv_ch_val_imalat into gv_hata3 separated by space. concatenate 'Dingil :' gv_ch_val_ds 'Lastik :' gv_ch_val_le into gv_hata4 separated by space. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '443'. ls_return-message_v1 = gv_hata1. ls_return-message_v2 = gv_hata2. ls_return-message_v3 = gv_hata3. ls_return-message_v4 = gv_hata4. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. sort e_sip_aractipi by vbeln posnr zaractipi ztiponay. check gv_dvm eq ' '. endloop. ********************************************************************** ********************************************************************** ********************************************************************** * ASBIS verileri okunuyor clear : gv_ch_val_genusttip. loop at e_sip_vin_data into gs_e_sip_vin_data. clear : gs_e_sip_aractipi. read table e_sip_aractipi into gs_e_sip_aractipi with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr. if sy-subrc eq 0. ********************************************************************** * Varyant - ZASBIS9 clear : gv_ch_val_genusttip, gs_e_sip_karak. clear : gv_zkaynak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTGENUSTIP'. if sy-subrc eq 0. move gs_e_sip_karak-ch_val to gv_ch_val_genusttip. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '448'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. clear : gt_zasbisvariant[], gt_zasbisvariant, gs_zasbisvariant. select * from zasbisvariant into table gt_zasbisvariant where atnam eq ' ' and atwrt eq ' ' and tipon eq ' ' and vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr and zdrum eq 'A'. clear nbr_say. describe table gt_zasbisvariant lines nbr_say. if nbr_say eq 0. if gs_e_sip_vin_data-zoer eq 'X'. select * from zasbisvariant into table gt_zasbisvariant where atnam eq ' ' and atwrt eq ' ' and tipon eq ' ' and vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr and zdrum eq 'A'. clear nbr_say. describe table gt_zasbisvariant lines nbr_say. if nbr_say gt 0. move 'OER' to gv_zkaynak. endif. endif. clear nbr_say. describe table gt_zasbisvariant lines nbr_say. if nbr_say eq 0. select * from zasbisvariant into table gt_zasbisvariant where atnam eq 'ZTGENUSTIP' and atwrt eq gv_ch_val_genusttip and tipon eq gs_e_sip_aractipi-ztiponay and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear nbr_say. describe table gt_zasbisvariant lines nbr_say. if nbr_say gt 0. move 'STANDART' to gv_zkaynak. endif. endif. else. move 'ORDER' to gv_zkaynak. endif. clear nbr_say. describe table gt_zasbisvariant lines nbr_say. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '449'. ls_return-message_v1 = gs_e_sip_karak-ch_vdescr. ls_return-message_v2 = gs_e_sip_aractipi-ztiponay. ls_return-message_v3 = gs_e_sip_vin_data-vbeln. ls_return-message_v4 = gs_e_sip_vin_data-posnr. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '478'. ls_return-message_v1 = gs_e_sip_karak-ch_vdescr. ls_return-message_v2 = gs_e_sip_aractipi-ztiponay. ls_return-message_v3 = gs_e_sip_vin_data-vbeln. ls_return-message_v4 = gs_e_sip_vin_data-posnr. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear : gv_ver. loop at gt_zasbisvariant into gs_zasbisvariant. clear : gs_e_sip_karak, gv_ver. if gs_zasbisvariant-krkt1 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisvariant-krkt1 ch_val = gs_zasbisvariant-deger1. if sy-subrc ne 0. move 'X' to gv_ver. endif. endif. check gv_ver eq ' '. clear : gs_e_sip_karak, gv_ver. if gs_zasbisvariant-krkt2 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisvariant-krkt2 ch_val = gs_zasbisvariant-deger2. if sy-subrc ne 0. move 'X' to gv_ver. endif. endif. check gv_ver eq ' '. clear : gs_e_sip_karak, gv_ver. if gs_zasbisvariant-krkt3 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisvariant-krkt3 ch_val = gs_zasbisvariant-deger3. if sy-subrc ne 0. move 'X' to gv_ver. endif. endif. check gv_ver eq ' '. clear : gs_e_sip_karak, gv_ver. if gs_zasbisvariant-krkt4 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisvariant-krkt4 ch_val = gs_zasbisvariant-deger4. if sy-subrc ne 0. move 'X' to gv_ver. endif. endif. check gv_ver eq ' '. clear : gs_e_sip_karak, gv_ver. if gs_zasbisvariant-krkt5 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisvariant-krkt5 ch_val = gs_zasbisvariant-deger5. if sy-subrc ne 0. move 'X' to gv_ver. endif. endif. check gv_ver eq ' '. clear : gs_e_sip_karak, gv_ver. if gs_zasbisvariant-krkt6 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisvariant-krkt6 ch_val = gs_zasbisvariant-deger6. if sy-subrc ne 0. move 'X' to gv_ver. endif. endif. check gv_ver eq ' '. clear : gs_e_sip_karak, gv_ver. if gs_zasbisvariant-krkt7 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisvariant-krkt7 ch_val = gs_zasbisvariant-deger7. if sy-subrc ne 0. move 'X' to gv_ver. endif. endif. check gv_ver eq ' '. move-corresponding gs_zasbisvariant to gs_e_asbis_varyant. move gs_e_sip_vin_data-vbeln to gs_e_asbis_varyant-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_varyant-posnr. move gv_zkaynak to gs_e_asbis_varyant-zkaynak. append gs_e_asbis_varyant to e_asbis_varyant. clear gs_e_asbis_varyant. endloop. clear nbr_say. loop at e_asbis_varyant into gs_e_asbis_varyant where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '478'. ls_return-message_v1 = gs_e_sip_karak-ch_vdescr. ls_return-message_v2 = gs_e_sip_aractipi-ztiponay. ls_return-message_v3 = gs_e_sip_vin_data-vbeln. ls_return-message_v4 = gs_e_sip_vin_data-posnr. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. if nbr_say gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '499'. ls_return-message_v1 = gs_e_sip_karak-ch_vdescr. ls_return-message_v2 = gs_e_sip_aractipi-ztiponay. ls_return-message_v3 = gs_e_sip_vin_data-vbeln. ls_return-message_v4 = gs_e_sip_vin_data-posnr. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** ********************************************************************** * AKS Değerleri - ZASBIS7 clear : gt_zasbisaksdeger[], gt_zasbisaksdeger, gs_zasbisaksdeger. clear : gv_zkaynak. * ilk önce siparil numarası ile, daha sonra oer var ise teklif numarası * ile en son standart değerler ile bakılır select * from zasbisaksdeger into table gt_zasbisaksdeger where matnr eq ' ' and vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr and zdrum eq 'A'. clear nbr_say. describe table gt_zasbisaksdeger lines nbr_say. if nbr_say eq 0. if gs_e_sip_vin_data-zoer eq 'X'. select * from zasbisaksdeger into table gt_zasbisaksdeger where matnr eq ' ' and vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr and zdrum eq 'A'. clear nbr_say. describe table gt_zasbisaksdeger lines nbr_say. if nbr_say gt 0. move 'OER' to gv_zkaynak. endif. endif. clear nbr_say. describe table gt_zasbisaksdeger lines nbr_say. if nbr_say eq 0. select * from zasbisaksdeger into table gt_zasbisaksdeger where matnr eq gs_e_sip_vin_data-matnr and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear nbr_say. describe table gt_zasbisaksdeger lines nbr_say. if nbr_say gt 0. move 'STANDART' to gv_zkaynak. endif. endif. else. move 'ORDER' to gv_zkaynak. endif. clear nbr_say. describe table gt_zasbisaksdeger lines nbr_say. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '450'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. clear : gv_aks. loop at gt_zasbisaksdeger into gs_zasbisaksdeger. clear : gs_e_sip_karak, gv_aks. if gs_zasbisaksdeger-krkt1 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisaksdeger-krkt1 ch_val = gs_zasbisaksdeger-deger1. if sy-subrc ne 0. move 'X' to gv_aks. endif. endif. check gv_aks eq ' '. clear : gs_e_sip_karak, gv_aks. if gs_zasbisaksdeger-krkt2 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisaksdeger-krkt2 ch_val = gs_zasbisaksdeger-deger2. if sy-subrc ne 0. move 'X' to gv_aks. endif. endif. check gv_aks eq ' '. clear : gs_e_sip_karak, gv_aks. if gs_zasbisaksdeger-krkt3 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisaksdeger-krkt3 ch_val = gs_zasbisaksdeger-deger3. if sy-subrc ne 0. move 'X' to gv_aks. endif. endif. check gv_aks eq ' '. clear : gs_e_sip_karak, gv_aks. if gs_zasbisaksdeger-krkt4 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisaksdeger-krkt4 ch_val = gs_zasbisaksdeger-deger4. if sy-subrc ne 0. move 'X' to gv_aks. endif. endif. check gv_aks eq ' '. clear : gs_e_sip_karak, gv_aks. if gs_zasbisaksdeger-krkt5 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisaksdeger-krkt5 ch_val = gs_zasbisaksdeger-deger5. if sy-subrc ne 0. move 'X' to gv_aks. endif. endif. check gv_aks eq ' '. clear : gs_e_sip_karak, gv_aks. if gs_zasbisaksdeger-krkt6 is not initial. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisaksdeger-krkt6 ch_val = gs_zasbisaksdeger-deger6. if sy-subrc ne 0. move 'X' to gv_aks. endif. endif. check gv_aks eq ' '. move-corresponding gs_zasbisaksdeger to gs_e_asbis_aks. move gs_e_sip_vin_data-vbeln to gs_e_asbis_aks-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_aks-posnr. move gv_zkaynak to gs_e_asbis_aks-zkaynak. check gv_aks eq ' '. append gs_e_asbis_aks to e_asbis_aks. clear gs_e_asbis_aks. endloop. clear nbr_say. loop at e_asbis_aks into gs_e_asbis_aks where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '477'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. if nbr_say gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '463'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** ********************************************************************** ********************************************************************** * Versiyon * ZASBIS10 clear : gs_e_asbis_aks, gs_e_sip_karak, gv_vervar, gv_vervars. clear : gt_zasbisakstip[], gt_zasbisakstip, gs_zasbisakstip. clear : gv_zkaynak, gv_aksver. select * from zasbisakstip into table gt_zasbisakstip where zdrum eq 'A'. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTLE'. read table e_asbis_aks into gs_e_asbis_aks with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr. if sy-subrc eq 0. while gv_vervar = ' '. clear : gt_zasbisversiyon[], gt_zasbisversiyon, gs_zasbisversiyon. select * from zasbisversiyon into table gt_zasbisversiyon where tipon eq ' ' and vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr * and aksn1 eq ' ' * and aksn2 eq ' ' * and aksn3 eq ' ' * and aksn4 eq ' ' * and aksn5 eq ' ' * and aksn6 eq ' ' * and aksn7 eq ' ' * and aksn8 eq ' ' * and aksn9 eq ' ' * and aksn10 eq ' ' and atnam eq ' ' and atwrt eq ' ' and zdrum eq 'A'. clear : gv_say_versiyon. describe table gt_zasbisversiyon lines gv_say_versiyon. if gv_say_versiyon eq 0. if gs_e_sip_vin_data-zoer eq 'X'. select * from zasbisversiyon into table gt_zasbisversiyon where tipon eq ' ' and vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr * and aksn1 eq ' ' * and aksn2 eq ' ' * and aksn3 eq ' ' * and aksn4 eq ' ' * and aksn5 eq ' ' * and aksn6 eq ' ' * and aksn7 eq ' ' * and aksn8 eq ' ' * and aksn9 eq ' ' * and aksn10 eq ' ' and atnam eq ' ' and atwrt eq ' ' and zdrum eq 'A'. clear : gv_say_versiyon. describe table gt_zasbisversiyon lines gv_say_versiyon. if gv_say_versiyon gt 0. move 'OER' to gv_zkaynak. endif. endif. clear : gv_say_versiyon. describe table gt_zasbisversiyon lines gv_say_versiyon. if gv_say_versiyon eq 0. * karakteristik ve cevabı var ise select * from zasbisversiyon into table gt_zasbisversiyon where tipon eq gs_e_sip_aractipi-ztiponay and vbeln eq ' ' and posnr eq ' ' and aksn1 eq gs_e_asbis_aks-aksn1 and aksn2 eq gs_e_asbis_aks-aksn2 and aksn3 eq gs_e_asbis_aks-aksn3 and aksn4 eq gs_e_asbis_aks-aksn4 and aksn5 eq gs_e_asbis_aks-aksn5 and aksn6 eq gs_e_asbis_aks-aksn6 and aksn7 eq gs_e_asbis_aks-aksn7 and aksn8 eq gs_e_asbis_aks-aksn8 and aksn9 eq gs_e_asbis_aks-aksn9 and aksn10 eq gs_e_asbis_aks-aksn10 and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and zdrum eq 'A'. clear : gv_say_versiyon. describe table gt_zasbisversiyon lines gv_say_versiyon. if gv_say_versiyon gt 0. move 'STANDART' to gv_zkaynak. else. * 2. durumda * sadece karakteristik var ise, cevaba bakılmayacak. select * from zasbisversiyon into table gt_zasbisversiyon where tipon eq gs_e_sip_aractipi-ztiponay and vbeln eq ' ' and posnr eq ' ' and aksn1 eq gs_e_asbis_aks-aksn1 and aksn2 eq gs_e_asbis_aks-aksn2 and aksn3 eq gs_e_asbis_aks-aksn3 and aksn4 eq gs_e_asbis_aks-aksn4 and aksn5 eq gs_e_asbis_aks-aksn5 and aksn6 eq gs_e_asbis_aks-aksn6 and aksn7 eq gs_e_asbis_aks-aksn7 and aksn8 eq gs_e_asbis_aks-aksn8 and aksn9 eq gs_e_asbis_aks-aksn9 and aksn10 eq gs_e_asbis_aks-aksn10 and atnam eq gs_e_sip_karak-charact and atwrt eq ' ' and zdrum eq 'A'. clear : gv_say_versiyon. describe table gt_zasbisversiyon lines gv_say_versiyon. if gv_say_versiyon gt 0. move 'STANDART' to gv_zkaynak. endif. endif. endif. else. move 'ORDER' to gv_zkaynak. endif. add 1 to gv_vervars. clear : gv_say_versiyon. describe table gt_zasbisversiyon lines gv_say_versiyon. if gv_say_versiyon eq 0. * clear : gs_e_sip_karak-ch_val. * clear ls_return. * ls_return-id = 'ZSD'. * ls_return-type = 'E'. * ls_return-number = '464'. * ls_return-message_v1 = gs_e_sip_aractipi-ztiponay. * ls_return-message_v2 = ' '. * ls_return-message_v3 = ' '. * ls_return-message_v4 = ' '. * * call function 'MESSAGE_TEXT_BUILD' * exporting * msgid = ls_return-id * msgnr = ls_return-number * msgv1 = ls_return-message_v1 * msgv2 = ls_return-message_v2 * msgv3 = ls_return-message_v3 * msgv4 = ls_return-message_v4 * importing * message_text_output = ls_return-message. * * append ls_return to e_return. * move 'X' to gv_dvm. elseif gv_say_versiyon eq 1. clear gs_zasbisversiyon. read table gt_zasbisversiyon into gs_zasbisversiyon index 1. if sy-subrc eq 0. move-corresponding gs_zasbisversiyon to gs_e_asbis_vrsyn. move gs_e_sip_vin_data-vbeln to gs_e_asbis_vrsyn-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_vrsyn-posnr. move gv_zkaynak to gs_e_asbis_vrsyn-zkaynak. clear : gv_aksver. if gs_e_asbis_vrsyn-aksn1 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn1. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl1. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt1. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen1. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn1. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn2 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn2. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl2. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt2. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen2. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn2. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn3 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn3. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl3. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt3. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen3. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn3. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn4 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn4. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl4. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt4. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen4. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn4. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn5 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn5. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl5. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt5. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen5. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn5. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn6 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn6. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl6. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt6. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen6. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn6. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn7 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn7. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl7. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt7. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen7. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn7. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn8 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn8. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl8. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt8. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen8. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn8. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn9 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn9. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl9. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt9. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen9. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn9. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. if gs_e_asbis_vrsyn-aksn10 is not initial. clear gs_zasbisakstip. read table gt_zasbisakstip into gs_zasbisakstip with key akstn = gs_e_asbis_vrsyn-aksn10. if sy-subrc eq 0. move gs_zasbisakstip-zdnkl to gs_e_asbis_vrsyn-zdnkl10. move gs_zasbisakstip-zdumt to gs_e_asbis_vrsyn-zdumt10. move gs_zasbisakstip-zdumen to gs_e_asbis_vrsyn-zdumen10. else. move 'X' to gv_aksver. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '493'. ls_return-message_v1 = gs_e_asbis_vrsyn-aksn10. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. check gv_aksver eq ' '. append gs_e_asbis_vrsyn to e_asbis_vrsyn. clear gs_e_asbis_vrsyn. endif. move 'X' to gv_vervar. elseif gv_say_versiyon gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '465'. ls_return-message_v1 = gs_e_sip_aractipi-ztiponay. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. move 'X' to gv_vervar. endif. if gv_vervars eq 2. move 'X' to gv_vervar. endif. endwhile. endif. clear nbr_say. describe table e_asbis_vrsyn lines nbr_say. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '476'. ls_return-message_v1 = gs_e_sip_aractipi-ztiponay. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** ********************************************************************** ********************************************************************** * Araç Kategorisi ve İmalatçısı * ZASBIS4 clear : gt_zasbistipony[], gt_zasbistipony, gs_zasbistipony, gss_zasbistipony, gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTIMALAT'. if sy-subrc eq 0. select * from zasbistipony into table gt_zasbistipony where tipon eq gs_e_sip_aractipi-ztiponay and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and zdrum eq 'A'. clear : gv_say_tiponay. describe table gt_zasbistipony lines gv_say_tiponay. if gv_say_tiponay eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '468'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_aractipi-ztiponay. ls_return-message_v3 = gs_e_sip_karak-charact. ls_return-message_v4 = gs_e_sip_karak-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_tiponay eq 1. clear gs_zasbistipony. read table gt_zasbistipony into gs_zasbistipony index 1. if sy-subrc eq 0. move-corresponding gs_zasbistipony to gs_e_asbis_katim. move gs_e_sip_vin_data-vbeln to gs_e_asbis_katim-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_katim-posnr. append gs_e_asbis_katim to e_asbis_katim. clear gs_e_asbis_katim. * 00 versiyonu alınıyor clear : gss_zasbistipony. select single * from zasbistipony into gss_zasbistipony where tipno eq gs_zasbistipony-tipno and vrsno eq '00' and zdrum eq 'A'. if sy-subrc eq 0. move-corresponding gss_zasbistipony to gs_e_asbis_katim. move gs_e_sip_vin_data-vbeln to gs_e_asbis_katim-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_katim-posnr. append gs_e_asbis_katim to e_asbis_katim. clear gs_e_asbis_katim. else. delete e_asbis_katim where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '467'. ls_return-message_v1 = gs_e_sip_aractipi-ztiponay. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. elseif gv_say_tiponay gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '466'. ls_return-message_v1 = gs_e_sip_aractipi-ztiponay. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '491'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear nbr_say. loop at e_asbis_katim into gs_e_asbis_katim where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '475'. ls_return-message_v1 = gs_e_sip_aractipi-ztiponay. ls_return-message_v2 = ' '. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** * Ticari Ad * ZASBIS15 clear : gs_e_sip_karak, gt_zasbisticad[], gv_say_ticad, gt_zasbisticad, gs_zasbisticad. clear : gv_zkaynak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTLE'. if sy-subrc eq 0. * ilk önce karaktersitik değeri ile bakılır select * from zasbisticad into table gt_zasbisticad where matnr eq ' ' and atnam eq ' ' and atwrt eq ' ' and tipon eq ' ' and vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr and zdrum eq 'A'. clear gv_say_ticad. describe table gt_zasbisticad lines gv_say_ticad. if gv_say_ticad eq 0. if gs_e_sip_vin_data-zoer eq 'X'. select * from zasbisticad into table gt_zasbisticad where matnr eq ' ' and atnam eq ' ' and atwrt eq ' ' and tipon eq ' ' and vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr and zdrum eq 'A'. clear gv_say_ticad. describe table gt_zasbisticad lines gv_say_ticad. if gv_say_ticad gt 0. move 'OER' to gv_zkaynak. endif. endif. clear gv_say_ticad. describe table gt_zasbisticad lines gv_say_ticad. if gv_say_ticad eq 0. select * from zasbisticad into table gt_zasbisticad where matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and tipon eq gs_e_sip_aractipi-ztiponay and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear gv_say_ticad. describe table gt_zasbisticad lines gv_say_ticad. if gv_say_ticad gt 0. move 'STANDART' to gv_zkaynak. endif. endif. else. move 'ORDER' to gv_zkaynak. endif. * ikinci olarak karaktersitik değeri *ALL olarak bakılır clear gv_say_ticad. describe table gt_zasbisticad lines gv_say_ticad. if gv_say_ticad eq 0. select * from zasbisticad into table gt_zasbisticad where matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq '*ALL' and tipon eq gs_e_sip_aractipi-ztiponay and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear gv_say_ticad. describe table gt_zasbisticad lines gv_say_ticad. if gv_say_ticad gt 0. move 'STANDART' to gv_zkaynak. endif. endif. clear gv_say_ticad. describe table gt_zasbisticad lines gv_say_ticad. if gv_say_ticad eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '459'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-charact. ls_return-message_v3 = gs_e_sip_karak-ch_val. ls_return-message_v4 = gs_e_sip_aractipi-ztiponay. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_ticad eq 1. clear : gs_zasbisticad. read table gt_zasbisticad into gs_zasbisticad index 1. if sy-subrc eq 0. move-corresponding gs_zasbisticad to gs_e_asbis_ticad. move gs_e_sip_vin_data-vbeln to gs_e_asbis_ticad-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_ticad-posnr. move gv_zkaynak to gs_e_asbis_ticad-zkaynak. append gs_e_asbis_ticad to e_asbis_ticad. clear gs_e_asbis_ticad. endif. elseif gv_say_ticad gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '471'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-charact. ls_return-message_v3 = gs_e_sip_karak-ch_val. ls_return-message_v4 = gs_e_sip_aractipi-ztiponay. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '469'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear nbr_say. loop at e_asbis_ticad into gs_e_asbis_ticad where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '474'. ls_return-message_v1 = gs_e_sip_aractipi-vbeln. ls_return-message_v2 = gs_e_sip_aractipi-posnr. ls_return-message_v3 = gs_e_sip_vin_data-matnr. ls_return-message_v4 = gs_e_sip_aractipi-ztiponay.. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** * Etiket * ZASBIS12 clear : gs_e_sip_karak, gt_zasbiszoretk[], gv_say_zoretk, gt_zasbiszoretk, gs_zasbiszoretk. clear : gv_zkaynak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTPAKET'. if sy-subrc eq 0. ** birinci olarka karaktersitik cevabı ile bakılır * select * from zasbiszoretk * into table gt_zasbiszoretk * where langu eq gs_e_sip_vin_data-spras * and matnr eq ' ' * and atnam eq ' ' * and atwrt eq ' ' * and vbeln eq gs_e_sip_vin_data-vbeln * and posnr eq gs_e_sip_vin_data-posnr * and zdrum eq 'A'. * * clear : gv_say_zoretk. * describe table gt_zasbiszoretk lines gv_say_zoretk. * if gv_say_zoretk eq 0. * * if gs_e_sip_vin_data-zoer eq 'X'. * select * from zasbiszoretk * into table gt_zasbiszoretk * where langu eq gs_e_sip_vin_data-spras * and matnr eq ' ' * and atnam eq ' ' * and atwrt eq ' ' * and vbeln eq gs_e_sip_vin_data-zvbeln * and posnr eq gs_e_sip_vin_data-zposnr * and zdrum eq 'A'. * clear : gv_say_zoretk. * describe table gt_zasbiszoretk lines gv_say_zoretk. * if gv_say_zoretk gt 0. * move 'OER' to gv_zkaynak. * endif. * endif. * * clear : gv_say_zoretk. * describe table gt_zasbiszoretk lines gv_say_zoretk. * if gv_say_zoretk eq 0. * select * from zasbiszoretk * into table gt_zasbiszoretk * where langu eq gs_e_sip_vin_data-spras * and matnr eq gs_e_sip_vin_data-matnr * and atnam eq gs_e_sip_karak-charact * and atwrt eq gs_e_sip_karak-ch_val * and vbeln eq ' ' * and posnr eq ' ' * and zdrum eq 'A'. * clear : gv_say_zoretk. * describe table gt_zasbiszoretk lines gv_say_zoretk. * if gv_say_zoretk gt 0. * move 'STANDART' to gv_zkaynak. * endif. * endif. * else. * move 'ORDER' to gv_zkaynak. * endif. * clear : gv_say_zoretk. * describe table gt_zasbiszoretk lines gv_say_zoretk. * if gv_say_zoretk eq 0. select * from zasbiszoretk into table gt_zasbiszoretk where langu eq gs_e_sip_vin_data-spras and matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. * clear : gv_say_zoretk. * describe table gt_zasbiszoretk lines gv_say_zoretk. * if gv_say_zoretk gt 0. * move 'STANDART' to gv_zkaynak. * endif. * endif. * ikinci olarak karakteristik değeri olarak *ALL olarak bakılıyor clear : gv_say_zoretk. describe table gt_zasbiszoretk lines gv_say_zoretk. if gv_say_zoretk eq 0. select * from zasbiszoretk into table gt_zasbiszoretk where langu eq gs_e_sip_vin_data-spras and matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq '*ALL' and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. * clear : gv_say_zoretk. * describe table gt_zasbiszoretk lines gv_say_zoretk. * if gv_say_zoretk gt 0. * move 'STANDART' to gv_zkaynak. * endif. endif. clear : gv_say_zoretk. describe table gt_zasbiszoretk lines gv_say_zoretk. if gv_say_zoretk eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '461'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = gs_e_sip_karak-charact. ls_return-message_v4 = gs_e_sip_karak-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_zoretk eq 1. clear gs_zasbiszoretk. read table gt_zasbiszoretk into gs_zasbiszoretk index 1. if sy-subrc eq 0. move-corresponding gs_zasbiszoretk to gs_e_asbis_etiket. move gs_e_sip_vin_data-vbeln to gs_e_asbis_etiket-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_etiket-posnr. * move gv_zkaynak to gs_e_asbis_etiket-zkaynak. append gs_e_asbis_etiket to e_asbis_etiket. clear gs_e_asbis_etiket. endif. elseif gv_say_zoretk gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '472'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = gs_e_sip_karak-charact. ls_return-message_v4 = gs_e_sip_karak-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '470'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear nbr_say. loop at e_asbis_etiket into gs_e_asbis_etiket where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '473'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = gs_e_sip_karak-charact. ls_return-message_v4 = gs_e_sip_karak-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** * Araç tanıtım numarası yeri - ZASBIS13 clear : gs_e_sip_karak, gt_zasbisarctntm[], gv_say_arctntmno, gt_zasbisarctntm, gs_zasbisarctntm. clear : gv_zkaynak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTPAKET'. if sy-subrc eq 0. * ilk olarak karaktersitik cevabı ile bakar * select * from zasbisarctntm * into table gt_zasbisarctntm * where langu eq gs_e_sip_vin_data-spras * and matnr eq ' ' * and atnam eq ' ' * and atwrt eq ' ' * and vbeln eq gs_e_sip_vin_data-vbeln * and posnr eq gs_e_sip_vin_data-posnr * and zdrum eq 'A'. * * clear : gv_say_arctntmno. * describe table gt_zasbisarctntm lines gv_say_arctntmno. * if gv_say_arctntmno eq 0. * * if gs_e_sip_vin_data-zoer eq 'X'. * select * from zasbisarctntm * into table gt_zasbisarctntm * where langu eq gs_e_sip_vin_data-spras * and matnr eq ' ' * and atnam eq ' ' * and atwrt eq ' ' * and vbeln eq gs_e_sip_vin_data-zvbeln * and posnr eq gs_e_sip_vin_data-zposnr * and zdrum eq 'A'. * * clear : gv_say_arctntmno. * describe table gt_zasbisarctntm lines gv_say_arctntmno. * if gv_say_arctntmno gt 0. * move 'OER' to gv_zkaynak. * endif. * endif. * * clear : gv_say_arctntmno. * describe table gt_zasbisarctntm lines gv_say_arctntmno. * if gv_say_arctntmno eq 0. * select * from zasbisarctntm * into table gt_zasbisarctntm * where langu eq gs_e_sip_vin_data-spras * and matnr eq gs_e_sip_vin_data-matnr * and atnam eq gs_e_sip_karak-charact * and atwrt eq gs_e_sip_karak-ch_val * and vbeln eq ' ' * and posnr eq ' ' * and zdrum eq 'A'. * * clear : gv_say_arctntmno. * describe table gt_zasbisarctntm lines gv_say_arctntmno. * if gv_say_arctntmno gt 0. * move 'STANDART' to gv_zkaynak. * endif. * endif. * else. * move 'ORDER' to gv_zkaynak. * endif. * * clear : gv_say_arctntmno. * describe table gt_zasbisarctntm lines gv_say_arctntmno. * if gv_say_arctntmno eq 0. select * from zasbisarctntm into table gt_zasbisarctntm where langu eq gs_e_sip_vin_data-spras and matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. * * clear : gv_say_arctntmno. * describe table gt_zasbisarctntm lines gv_say_arctntmno. * if gv_say_arctntmno gt 0. * move 'STANDART' to gv_zkaynak. * endif. * endif. * ikinci olarak karaktersitik cevabı *ALL ile bakar clear : gv_say_arctntmno. describe table gt_zasbisarctntm lines gv_say_arctntmno. if gv_say_arctntmno eq 0. select * from zasbisarctntm into table gt_zasbisarctntm where langu eq gs_e_sip_vin_data-spras and matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq '*ALL' and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. * clear : gv_say_arctntmno. * describe table gt_zasbisarctntm lines gv_say_arctntmno. * if gv_say_arctntmno gt 0. * move 'STANDART' to gv_zkaynak. * endif. endif. clear : gv_say_arctntmno. describe table gt_zasbisarctntm lines gv_say_arctntmno. if gv_say_arctntmno eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '479'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = gs_e_sip_karak-charact. ls_return-message_v4 = gs_e_sip_karak-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_arctntmno eq 1. clear gs_zasbisarctntm. read table gt_zasbisarctntm into gs_zasbisarctntm index 1. if sy-subrc eq 0. move-corresponding gs_zasbisarctntm to gs_e_asbis_atny. move gs_e_sip_vin_data-vbeln to gs_e_asbis_atny-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_atny-posnr. * move gv_zkaynak to gs_e_asbis_atny-zkaynak. append gs_e_asbis_atny to e_asbis_atny. clear gs_e_asbis_atny. endif. elseif gv_say_arctntmno gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '480'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = gs_e_sip_karak-charact. ls_return-message_v4 = gs_e_sip_karak-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '470'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear nbr_say. loop at e_asbis_atny into gs_e_asbis_atny where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '481'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = gs_e_sip_karak-charact. ls_return-message_v4 = gs_e_sip_karak-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** * Araç Yön - ZASBIS19 clear : gs_e_sip_karak, gt_zasbistay[], gv_say_tay, gt_zasbistay, gs_zasbistay. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTULKE'. if sy-subrc eq 0. select * from zasbistay into table gt_zasbistay where atnam_k eq gs_e_sip_karak-charact and atwrt_k eq gs_e_sip_karak-ch_val and zdrum eq 'A'. describe table gt_zasbistay lines gv_say_tay. if gv_say_tay eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '521'. ls_return-message_v1 = gs_e_sip_karak-charact. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_tay eq 1. clear : gs_zasbistay. read table gt_zasbistay into gs_zasbistay index 1. if sy-subrc eq 0. move-corresponding gs_zasbistay to gs_e_asbis_tay. move gs_e_sip_vin_data-vbeln to gs_e_asbis_tay-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_tay-posnr. append gs_e_asbis_tay to e_asbis_tay. clear gs_e_asbis_tay. endif. elseif gv_say_tay gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '522'. ls_return-message_v1 = gs_e_sip_karak-charact. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '523'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear nbr_say. loop at e_asbis_tay into gs_e_asbis_tay where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '524'. ls_return-message_v1 = gs_e_sip_aractipi-vbeln. ls_return-message_v2 = gs_e_sip_aractipi-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** * AOR - ZASBIS20 - ZASBIS24 clear : gs_e_sip_karak, gt_zasbisaor[], gv_say_aor, gt_zasbisaor, gs_zasbisaor. clear : gt_zasbisaor_select[], gt_zasbisaor_select, gs_zasbisaor_select, gs_e_sip_karak_m, gs_e_sip_karak_k. clear : gv_aorvar. clear : gv_zkaynak. clear : gs_e_sip_karak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTPAKET'. if sy-subrc eq 0. clear : gs_e_sip_karak_m. read table e_sip_karak into gs_e_sip_karak_m with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTIMALAT'. if sy-subrc eq 0. clear : gs_e_sip_karak_k. read table e_sip_karak into gs_e_sip_karak_k with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTADR'. if sy-subrc eq 0. * tüm karaktersitik ve cevaplar içni bakılır select * from zasbisaor into table gt_zasbisaor where matnr eq ' ' and atnam eq ' ' and atwrt eq ' ' and atnam_m eq ' ' and atwrt_m eq ' ' and atnam_k eq ' ' and atwrt_k eq ' ' and vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr and zdrum eq 'A'. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor eq 0. if gs_e_sip_vin_data-zoer eq 'X'. select * from zasbisaor into table gt_zasbisaor where matnr eq ' ' and atnam eq ' ' and atwrt eq ' ' and atnam_m eq ' ' and atwrt_m eq ' ' and atnam_k eq ' ' and atwrt_k eq ' ' and vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr and zdrum eq 'A'. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor gt 0. move 'OER' to gv_zkaynak. endif. endif. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor eq 0. select * from zasbisaor into table gt_zasbisaor where matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and atnam_m eq gs_e_sip_karak_m-charact and atwrt_m eq gs_e_sip_karak_m-ch_val and atnam_k eq gs_e_sip_karak_k-charact and atwrt_k eq gs_e_sip_karak_k-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor gt 0. move 'STANDART' to gv_zkaynak. endif. endif. else. move 'ORDER' to gv_zkaynak. endif. * atwrt_m *all ile bakılır clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor eq 0. select * from zasbisaor into table gt_zasbisaor where matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and atnam_m eq gs_e_sip_karak_m-charact and atwrt_m eq '*ALL' and atnam_k eq gs_e_sip_karak_k-charact and atwrt_k eq gs_e_sip_karak_k-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor gt 0. move 'STANDART' to gv_zkaynak. endif. endif. * atwrt *all ile bakılır clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor eq 0. select * from zasbisaor into table gt_zasbisaor where matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq '*ALL' and atnam_m eq gs_e_sip_karak_m-charact and atwrt_m eq gs_e_sip_karak_m-ch_val and atnam_k eq gs_e_sip_karak_k-charact and atwrt_k eq gs_e_sip_karak_k-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor gt 0. move 'STANDART' to gv_zkaynak. endif. endif. * atwrt *all ve atwrt_m *all ile bakılır clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor eq 0. select * from zasbisaor into table gt_zasbisaor where matnr eq gs_e_sip_vin_data-matnr and atnam eq gs_e_sip_karak-charact and atwrt eq '*ALL' and atnam_m eq gs_e_sip_karak_m-charact and atwrt_m eq '*ALL' and atnam_k eq gs_e_sip_karak_k-charact and atwrt_k eq gs_e_sip_karak_k-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor gt 0. move 'STANDART' to gv_zkaynak. endif. endif. clear : gv_say_aor. describe table gt_zasbisaor lines gv_say_aor. if gv_say_aor eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '502'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = gs_e_sip_karak_k-charact. ls_return-message_v4 = gs_e_sip_karak_k-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_aor eq 1. move 'X' to gv_aorvar. clear gs_zasbisaor. read table gt_zasbisaor into gs_zasbisaor index 1. if sy-subrc eq 0. move-corresponding gs_zasbisaor to gs_e_asbis_aor. move gs_e_sip_vin_data-vbeln to gs_e_asbis_aor-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_aor-posnr. move gv_zkaynak to gs_e_asbis_aor-zkaynak. append gs_e_asbis_aor to e_asbis_aor. clear gs_e_asbis_aor. endif. elseif gv_say_aor gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '503'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = gs_e_sip_karak_k-charact. ls_return-message_v4 = gs_e_sip_karak_k-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'I'. ls_return-number = '622'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'I'. ls_return-number = '623'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'I'. ls_return-number = '470'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. endif. if gv_aorvar eq 'X'. clear nbr_say. loop at e_asbis_aor into gs_e_asbis_aor where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '504'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-charact. ls_return-message_v3 = gs_e_sip_karak-ch_val. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. * check gv_dvm eq ' '. ********************************************************************** * Lastik Sayısı - ZASBIS8 clear : gs_e_sip_karak, gs_e_sip_karak_k, gt_zasbisdingil[], gv_say_lastik, gt_zasbisdingil, gs_zasbisdingil. clear : gv_yok1, gv_yok2. clear : gv_zkaynak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTDS'. if sy-subrc ne 0. move 'X' to gv_yok1. endif. read table e_sip_karak into gs_e_sip_karak_k with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTLA'. if sy-subrc ne 0. move 'X' to gv_yok2. endif. if gv_yok1 eq ' ' and gv_yok2 eq ' '. select * from zasbisdingil into table gt_zasbisdingil where atnam eq ' ' and atwrt eq ' ' and atnam_k eq ' ' and atwrt_k eq ' ' and vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr and zdrum eq 'A'. clear : gv_say_lastik. describe table gt_zasbisdingil lines gv_say_lastik. if gv_say_lastik eq 0. if gs_e_sip_vin_data-zoer eq 'X'. select * from zasbisdingil into table gt_zasbisdingil where atnam eq ' ' and atwrt eq ' ' and atnam_k eq ' ' and atwrt_k eq ' ' and vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr and zdrum eq 'A'. clear : gv_say_lastik. describe table gt_zasbisdingil lines gv_say_lastik. if gv_say_lastik gt 0. move 'OER' to gv_zkaynak. endif. endif. clear : gv_say_lastik. describe table gt_zasbisdingil lines gv_say_lastik. if gv_say_lastik eq 0. select * from zasbisdingil into table gt_zasbisdingil where atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and atnam_k eq gs_e_sip_karak_k-charact and atwrt_k eq gs_e_sip_karak_k-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gv_say_lastik. describe table gt_zasbisdingil lines gv_say_lastik. if gv_say_lastik gt 0. move 'STANDART' to gv_zkaynak. endif. endif. else. move 'ORDER' to gv_zkaynak. endif. clear : gv_say_lastik. describe table gt_zasbisdingil lines gv_say_lastik. if gv_say_lastik eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '484'. ls_return-message_v1 = gs_e_sip_karak-charact. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = gs_e_sip_karak_k-charact. ls_return-message_v4 = gs_e_sip_karak_k-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_lastik eq 1. clear gs_zasbisdingil. read table gt_zasbisdingil into gs_zasbisdingil index 1. if sy-subrc eq 0. move-corresponding gs_zasbisdingil to gs_e_asbis_lastik. move gs_e_sip_vin_data-vbeln to gs_e_asbis_lastik-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_lastik-posnr. move gv_zkaynak to gs_e_asbis_lastik-zkaynak. append gs_e_asbis_lastik to e_asbis_lastik. clear gs_e_asbis_lastik. endif. elseif gv_say_lastik gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '485'. ls_return-message_v1 = gs_e_sip_karak-charact. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = gs_e_sip_karak_k-charact. ls_return-message_v4 = gs_e_sip_karak_k-ch_val. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. if gv_yok1 eq 'X'. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '482'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. if gv_yok2 eq 'X'. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '483'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. endif. clear nbr_say. loop at e_asbis_lastik into gs_e_asbis_lastik where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '486'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** * Yük index - ZASBIS16 clear : gt_zasbisyukindex[], gv_say_laskod, gt_zasbisyukindex, gs_zasbisyukindex. clear : gv_zkaynak. ** order iel bakılır * select * from zasbisyukindex * into gs_zasbisyukindex * where vbeln eq gs_e_sip_vin_data-vbeln * and posnr eq gs_e_sip_vin_data-posnr * and zdrum eq 'A'. ** clear : gs_e_sip_bom. ** read table gt_e_sip_bom into gs_e_sip_bom ** with key vbeln = gs_e_sip_vin_data-vbeln ** posnr = gs_e_sip_vin_data-posnr ** matnr = gs_zasbisyukindex-matnr. ** if sy-subrc eq 0. * move-corresponding gs_zasbisyukindex to gs_e_asbis_laskod. * move gs_e_sip_vin_data-vbeln to gs_e_asbis_laskod-vbeln. * move gs_e_sip_vin_data-posnr to gs_e_asbis_laskod-posnr. * move 'ORDER' to gs_e_asbis_laskod-zkaynak. * * append gs_e_asbis_laskod to e_asbis_laskod. * clear gs_e_asbis_laskod. ** endif. * endselect. * clear nbr_say. * describe table e_asbis_laskod lines nbr_say. * if nbr_say eq 0. ** oer ile bakılır * if gs_e_sip_vin_data-zoer eq 'X'. * select * from zasbisyukindex * into gs_zasbisyukindex * where vbeln eq gs_e_sip_vin_data-zvbeln * and posnr eq gs_e_sip_vin_data-zposnr * and zdrum eq 'A'. ** clear : gs_e_sip_bom. ** read table gt_e_sip_bom into gs_e_sip_bom ** with key vbeln = gs_e_sip_vin_data-vbeln ** posnr = gs_e_sip_vin_data-posnr ** matnr = gs_zasbisyukindex-matnr. ** if sy-subrc eq 0. * move-corresponding gs_zasbisyukindex to gs_e_asbis_laskod. * move gs_e_sip_vin_data-vbeln to gs_e_asbis_laskod-vbeln. * move gs_e_sip_vin_data-posnr to gs_e_asbis_laskod-posnr. * move 'OER' to gs_e_asbis_laskod-zkaynak. * * append gs_e_asbis_laskod to e_asbis_laskod. * clear gs_e_asbis_laskod. ** endif. * endselect. * endif. * standart ile bakılır * clear nbr_say. * describe table e_asbis_laskod lines nbr_say. * if nbr_say eq 0. select * from zasbisyukindex into gs_zasbisyukindex where vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gs_e_sip_bom. read table gt_e_sip_bom into gs_e_sip_bom with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr matnr = gs_zasbisyukindex-matnr. if sy-subrc eq 0. move-corresponding gs_zasbisyukindex to gs_e_asbis_laskod. move gs_e_sip_vin_data-vbeln to gs_e_asbis_laskod-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_laskod-posnr. * move 'STANDART' to gs_e_asbis_laskod-zkaynak. append gs_e_asbis_laskod to e_asbis_laskod. clear gs_e_asbis_laskod. endif. endselect. * endif. * endif. clear nbr_say. loop at e_asbis_laskod into gs_e_asbis_laskod where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '487'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif nbr_say gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '488'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. ********************************************************************** * İmalatçı - ZASBIS3 clear : gs_e_sip_karak, gt_zasbisimltci[], gv_say_imalatci, gt_zasbisimltci, gs_zasbisimltci. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTIMALAT'. if sy-subrc eq 0. select * from zasbisimltci into table gt_zasbisimltci where langu eq gs_e_sip_vin_data-spras and atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and zdrum eq 'A'. clear : gv_say_imalatci. describe table gt_zasbisimltci lines gv_say_imalatci. if gv_say_imalatci eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '489'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_karak-charact. ls_return-message_v3 = gs_e_sip_karak-ch_val. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif gv_say_imalatci eq 1. clear gs_zasbisimltci. read table gt_zasbisimltci into gs_zasbisimltci index 1. if sy-subrc eq 0. move-corresponding gs_zasbisimltci to gs_e_asbis_imalatci. move gs_e_sip_vin_data-vbeln to gs_e_asbis_imalatci-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_imalatci-posnr. append gs_e_asbis_imalatci to e_asbis_imalatci. clear gs_e_asbis_imalatci. endif. elseif gv_say_imalatci gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '490'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_karak-charact. ls_return-message_v3 = gs_e_sip_karak-ch_val. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '491'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear nbr_say. loop at e_asbis_imalatci into gs_e_asbis_imalatci where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '492'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_karak-charact. ls_return-message_v3 = gs_e_sip_karak-ch_val. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. ********************************************************************** * Jant Kodu - ZASBIS21 clear : gs_e_sip_karak, gt_zasbisjant[], gv_say_jant, gt_zasbisjant, gs_zasbisjant. clear : gv_zkaynak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTLE'. if sy-subrc eq 0. * order ile bakılır * select * from zasbisjant * into gs_zasbisjant * where atnam eq ' ' * and atwrt eq ' ' * and vbeln eq gs_e_sip_vin_data-vbeln * and posnr eq gs_e_sip_vin_data-posnr * and zdrum eq 'A'. select * from zasbisjant into gs_zasbisjant where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr and zdrum eq 'A'. * clear : gs_e_sip_bom. * read table gt_e_sip_bom into gs_e_sip_bom * with key vbeln = gs_e_sip_vin_data-vbeln * posnr = gs_e_sip_vin_data-posnr * matnr = gs_zasbisjant-matnr. * if sy-subrc eq 0. move-corresponding gs_zasbisjant to gs_e_asbis_jant. move gs_e_sip_vin_data-vbeln to gs_e_asbis_jant-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_jant-posnr. move 'ORDER' to gs_e_asbis_jant-zkaynak. append gs_e_asbis_jant to e_asbis_jant. clear gs_e_asbis_jant. * endif. endselect. clear nbr_say. describe table e_asbis_jant lines nbr_say. if nbr_say eq 0. * oer if gs_e_sip_vin_data-zoer eq 'X'. * select * from zasbisjant * into gs_zasbisjant * where atnam eq ' ' * and atwrt eq ' ' * and vbeln eq gs_e_sip_vin_data-zvbeln * and posnr eq gs_e_sip_vin_data-zposnr * and zdrum eq 'A'. select * from zasbisjant into gs_zasbisjant where vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr and zdrum eq 'A'. * clear : gs_e_sip_bom. * read table gt_e_sip_bom into gs_e_sip_bom * with key vbeln = gs_e_sip_vin_data-vbeln * posnr = gs_e_sip_vin_data-posnr * matnr = gs_zasbisjant-matnr. * if sy-subrc eq 0. move-corresponding gs_zasbisjant to gs_e_asbis_jant. move gs_e_sip_vin_data-vbeln to gs_e_asbis_jant-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_jant-posnr. move 'OER' to gs_e_asbis_jant-zkaynak. append gs_e_asbis_jant to e_asbis_jant. clear gs_e_asbis_jant. * endif. endselect. endif. * standart clear nbr_say. describe table e_asbis_jant lines nbr_say. if nbr_say eq 0. select * from zasbisjant into gs_zasbisjant where atnam eq gs_e_sip_karak-charact and atwrt eq gs_e_sip_karak-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gs_e_sip_bom. read table gt_e_sip_bom into gs_e_sip_bom with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr matnr = gs_zasbisjant-matnr. if sy-subrc eq 0. move-corresponding gs_zasbisjant to gs_e_asbis_jant. move gs_e_sip_vin_data-vbeln to gs_e_asbis_jant-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_jant-posnr. move 'STANDART' to gs_e_asbis_jant-zkaynak. append gs_e_asbis_jant to e_asbis_jant. clear gs_e_asbis_jant. endif. endselect. endif. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '469'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. clear nbr_say. loop at e_asbis_jant into gs_e_asbis_jant where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '494'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif nbr_say gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '495'. ls_return-message_v1 = gs_e_sip_vin_data-spras. ls_return-message_v2 = gs_e_sip_vin_data-matnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. ********************************************************************** * King Pin - ZASBIS22 clear : gt_zasbiskingpin[], gv_say_kingpin, gt_zasbiskingpin, gs_zasbiskingpin. select * from zasbiskingpin into gs_zasbiskingpin where zdrum eq 'A'. clear : gs_e_sip_bom. read table gt_e_sip_bom into gs_e_sip_bom with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr matnr = gs_zasbiskingpin-matnr. if sy-subrc eq 0. move-corresponding gs_zasbiskingpin to gs_e_asbis_kingpin. move gs_e_sip_vin_data-vbeln to gs_e_asbis_kingpin-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_kingpin-posnr. append gs_e_asbis_kingpin to e_asbis_kingpin. clear gs_e_asbis_kingpin. endif. endselect. clear nbr_say. loop at e_asbis_kingpin into gs_e_asbis_kingpin where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say > 1. sort e_asbis_kingpin ascending by zonce. read table e_asbis_kingpin into gs_e_asbis_kingpin_two index 1. loop at e_asbis_kingpin into gs_e_asbis_kingpin. gv_index_two = sy-tabix. if gs_e_asbis_kingpin_two-matnr ne gs_e_asbis_kingpin-matnr. delete e_asbis_kingpin index gv_index_two. endif. endloop. endif. clear nbr_say. loop at e_asbis_kingpin into gs_e_asbis_kingpin where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. add 1 to nbr_say. endloop. if nbr_say eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '505'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. elseif nbr_say gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '506'. ls_return-message_v1 = gs_e_sip_vin_data-vbeln. ls_return-message_v2 = gs_e_sip_vin_data-posnr. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. ********************************************************************** ********************************************************************** * Min max * ZASBIS24 clear : gs_e_asbis_minmax, gs_e_sip_karak, gv_minmaxvar, gt_zasbisminmax[], gt_zasbisminmax, gs_zasbisminmax, gv_say_minmax, gv_say_minmax_t, gs_e_sip_karak_x. clear : gv_zkaynak. read table e_sip_karak into gs_e_sip_karak with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = 'ZTPAKET'. * oerder bazlı select * from zasbisminmax into table gt_zasbisminmax where matnr eq ' ' and atnam eq ' ' and atwrt eq ' ' and vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr and zdrum eq 'A'. clear : gv_say_minmax. describe table gt_zasbisminmax lines gv_say_minmax. if gv_say_minmax gt 0. loop at gt_zasbisminmax into gs_zasbisminmax. move 'X' to gv_minmaxvar. move-corresponding gs_zasbisminmax to gs_e_asbis_minmax. move gs_e_sip_vin_data-vbeln to gs_e_asbis_minmax-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_minmax-posnr. move 'ORDER' to gs_e_asbis_minmax-zkaynak. append gs_e_asbis_minmax to e_asbis_minmax. clear gs_e_asbis_minmax. endloop. endif. * oer bazlı clear : gv_say_minmax_t. describe table e_asbis_minmax lines gv_say_minmax_t. if gv_say_minmax_t eq 0. select * from zasbisminmax into table gt_zasbisminmax where matnr eq ' ' and atnam eq ' ' and atwrt eq ' ' and vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr and zdrum eq 'A'. clear : gv_say_minmax. describe table gt_zasbisminmax lines gv_say_minmax. if gv_say_minmax gt 0. loop at gt_zasbisminmax into gs_zasbisminmax. move 'X' to gv_minmaxvar. move-corresponding gs_zasbisminmax to gs_e_asbis_minmax. move gs_e_sip_vin_data-vbeln to gs_e_asbis_minmax-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_minmax-posnr. move 'OER' to gs_e_asbis_minmax-zkaynak. append gs_e_asbis_minmax to e_asbis_minmax. clear gs_e_asbis_minmax. endloop. endif. endif. * standart clear : gv_say_minmax_t. describe table e_asbis_minmax lines gv_say_minmax_t. if gv_say_minmax_t eq 0. select * from zasbisminmax into table gt_zasbisminmax where atnam eq 'ZTPAKET' and atwrt eq gs_e_sip_karak-ch_val and zdrum eq 'A'. clear : gv_say_minmax. describe table gt_zasbisminmax lines gv_say_minmax. if gv_say_minmax gt 0. select * from zasbisminmax into table gt_zasbisminmax where matnr eq gs_e_sip_vin_data-matnr and atnam eq 'ZTPAKET' and atwrt eq gs_e_sip_karak-ch_val and vbeln eq ' ' and posnr eq ' ' and zdrum eq 'A'. clear : gv_say_minmax. describe table gt_zasbisminmax lines gv_say_minmax. if gv_say_minmax gt 0. loop at gt_zasbisminmax into gs_zasbisminmax. move 'X' to gv_minmaxvar. if gs_zasbisminmax-krkt1 ne space. clear : gs_e_sip_karak_x. read table e_sip_karak into gs_e_sip_karak_x with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisminmax-krkt1 ch_val = gs_zasbisminmax-deger1. if sy-subrc ne 0. clear gv_minmaxvar. endif. endif. if gs_zasbisminmax-krkt2 ne space. clear : gs_e_sip_karak_x. read table e_sip_karak into gs_e_sip_karak_x with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisminmax-krkt2 ch_val = gs_zasbisminmax-deger2. if sy-subrc ne 0. clear gv_minmaxvar. endif. endif. if gs_zasbisminmax-krkt3 ne space. clear : gs_e_sip_karak_x. read table e_sip_karak into gs_e_sip_karak_x with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisminmax-krkt3 ch_val = gs_zasbisminmax-deger3. if sy-subrc ne 0. clear gv_minmaxvar. endif. endif. if gs_zasbisminmax-krkt4 ne space. clear : gs_e_sip_karak_x. read table e_sip_karak into gs_e_sip_karak_x with key vbeln = gs_e_sip_vin_data-vbeln posnr = gs_e_sip_vin_data-posnr charact = gs_zasbisminmax-krkt4 ch_val = gs_zasbisminmax-deger4. if sy-subrc ne 0. clear gv_minmaxvar. endif. endif. if gv_minmaxvar eq 'X'. move-corresponding gs_zasbisminmax to gs_e_asbis_minmax. move gs_e_sip_vin_data-vbeln to gs_e_asbis_minmax-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_minmax-posnr. move 'STANDART' to gs_e_asbis_minmax-zkaynak. append gs_e_asbis_minmax to e_asbis_minmax. clear gs_e_asbis_minmax. endif. endloop. endif. endif. clear : gv_say_minmax_t. describe table e_asbis_minmax lines gv_say_minmax_t. if gv_say_minmax_t gt 1. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'E'. ls_return-number = '634'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. if gv_say_minmax_t eq 0. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'I'. ls_return-number = '633'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. else. clear ls_return. ls_return-id = 'ZSD'. ls_return-type = 'I'. ls_return-number = '635'. ls_return-message_v1 = gs_e_sip_vin_data-matnr. ls_return-message_v2 = gs_e_sip_karak-ch_val. ls_return-message_v3 = ' '. ls_return-message_v4 = ' '. call function 'MESSAGE_TEXT_BUILD' exporting msgid = ls_return-id msgnr = ls_return-number msgv1 = ls_return-message_v1 msgv2 = ls_return-message_v2 msgv3 = ls_return-message_v3 msgv4 = ls_return-message_v4 importing message_text_output = ls_return-message. append ls_return to e_return. move 'X' to gv_dvm. endif. * check gv_dvm eq ' '. ********************************************************************** ********************************************************************** * Şablon * ZASBIS25 clear : gs_e_asbis_sablon, gv_sablonvar, gt_zasbissablond[], gt_zasbissablond, gs_zasbissablond, gv_say_sablon, gv_say_sablon_t. clear : gv_zkaynak. * oerder bazlı select * from zasbissablond into table gt_zasbissablond where vbeln eq gs_e_sip_vin_data-vbeln and posnr eq gs_e_sip_vin_data-posnr. clear : gv_say_sablon. describe table gt_zasbissablond lines gv_say_sablon. if gv_say_sablon gt 0. loop at gt_zasbissablond into gs_zasbissablond. move 'X' to gv_sablonvar. move-corresponding gs_zasbissablond to gs_e_asbis_sablon. move gs_e_sip_vin_data-vbeln to gs_e_asbis_sablon-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_sablon-posnr. move 'ORDER' to gs_e_asbis_sablon-zkaynak. * call function 'CONVERSION_EXIT_ALPHA_OUTPUT' * exporting * input = gs_e_asbis_sablon-zmindg * importing * output = gs_e_asbis_sablon-zmindg. * * call function 'CONVERSION_EXIT_ALPHA_OUTPUT' * exporting * input = gs_e_asbis_sablon-zmaxdg * importing * output = gs_e_asbis_sablon-zmaxdg. append gs_e_asbis_sablon to e_asbis_sablon. clear gs_e_asbis_sablon. endloop. endif. * oer bazlı clear : gv_say_sablon_t. describe table e_asbis_sablon lines gv_say_sablon_t. if gv_say_sablon_t eq 0. select * from zasbissablond into table gt_zasbissablond where vbeln eq gs_e_sip_vin_data-zvbeln and posnr eq gs_e_sip_vin_data-zposnr. clear : gv_say_sablon. describe table gt_zasbissablond lines gv_say_sablon. if gv_say_sablon gt 0. loop at gt_zasbissablond into gs_zasbissablond. move 'X' to gv_sablonvar. move-corresponding gs_zasbissablond to gs_e_asbis_sablon. move gs_e_sip_vin_data-vbeln to gs_e_asbis_sablon-vbeln. move gs_e_sip_vin_data-posnr to gs_e_asbis_sablon-posnr. move 'OER' to gs_e_asbis_sablon-zkaynak. * call function 'CONVERSION_EXIT_ALPHA_OUTPUT' * exporting * input = gs_e_asbis_sablon-zmindg * importing * output = gs_e_asbis_sablon-zmindg. * * call function 'CONVERSION_EXIT_ALPHA_OUTPUT' * exporting * input = gs_e_asbis_sablon-zmaxdg * importing * output = gs_e_asbis_sablon-zmaxdg. append gs_e_asbis_sablon to e_asbis_sablon. clear gs_e_asbis_sablon. endloop. endif. endif. * check gv_dvm eq ' '. ********************************************************************** endif. endloop. endfunction.
No comment