#1
|
|||
|
|||
Múltiple elección
Me estoy rompiendo la cabeza con esto,
Tengo el siguiente código, que tengo que modificar para que en vez de introducir un sólo número de documento me active el poder meter varios. *** programa que calcula por posición el flujo de documentos **** *---- Selection Screen ------------------------------------------------- parameters: vbeln like vbuk-vbeln memory id aun obligatory, posnr like vbap-posnr memory id pid. *---- Variables -------------------------------------------------------- data: w_comwa like vbco6, it_doc like vbfa occurs 0 with header line, it_txt like dd07v occurs 0 with header line, begin of it_type occurs 0, vbtyp like vbuk-vbtyp, text like dd07v-ddtext, end of it_type. *----------------------------------------------------------------------- start-of-selection. w_comwa-mandt = sy-mandt. w_comwa-vbeln = vbeln. w_comwa-posnr = posnr. call function 'RV_ORDER_FLOW_INFORMATION' exporting comwa = w_comwa tables vbfa_tab = it_doc exceptions no_vbfa = 1 no_vbuk_found = 2 others = 3. case sy-subrc. when 1. write: / 'No VBFA found.'. when 2. write: / 'No VBUK found. Check selection criteria...'. when 3. write: / 'Unknown Error!'. when 0. perform write_docs. endcase. *----------------------------------------------------------------------- form write_docs. call function 'GET_DOMAIN_VALUES' exporting domname = 'VBTYP' tables values_tab = it_txt exceptions no_values_found = 1 others = 2. case sy-subrc. when 1. write: / 'Warning: No texts found for Sales Docs types!'. when 2. write: / 'Warning: Cannot retrieve SD types descriptions!'. when 0. perform sort_texts. endcase. write: / 'Order Flow Information:'. loop at it_doc. write: / it_doc-stufe, it_doc-vbelv, it_doc-posnv. perform write_type using it_doc-vbtyp_v. write: it_doc-vbeln, it_doc-posnn. perform write_type using it_doc-vbtyp_n. write: it_doc-matnr, it_doc-rfmng unit it_doc-meins, it_doc-meins. endloop. endform. *----------------------------------------------------------------------- form sort_texts. loop at it_txt. it_type-vbtyp = it_txt-domvalue_l. it_type-text = it_txt-ddtext. append it_type. clear it_type. endloop. sort it_type. endform. *----------------------------------------------------------------------- form write_type using value(p_vbtyp) like vbuk-vbtyp. data w_txt(30) type c. read table it_type with key vbtyp = p_vbtyp binary search. case sy-subrc. when 0. w_txt = it_type-text. when others. w_txt = '?'. endcase. write w_txt intensified off. endform. *----------------------------------------------------------------------- |
Herramientas | Buscar en Tema |
Desplegado | |
|
|