* =========== ===========
* High Byte Low Byte
* =========== ===========
* 0xA1-0xF9 0x40-0x7E
* or
* 0xA1-0xFE
* =========== ===========
replace all occurrences of regex '[^[:print:]]+(?!$)' in STRING with ' '. replace all occurrences of regex '[^[:print:]]+$' in STRING with ''.
FIELD-SYMBOLS: <ERFMG> TYPE any,
<ERFMG1> TYPE any.
ASSIGN '(SAPMM07M)MSEG-ERFMG' TO <ERFMG>.
ASSIGN (<erfmg>) TO <erfmg1>.
<ERFMG1> = '0.001'.| Posts: | 252 | ||||||||
|---|---|---|---|---|---|---|---|---|---|
| Registered: | 2/27/07 | ||||||||
| Forum Points: | 302 | ||||||||
| Re: | Getting Sales order -Schedule line field , Delivered Quantity ( VSMNG ) ?? | ||||||||
| Posted: | Jan 13, 2009 10:38 AM | ||||||||
| Content: | Hi. You can use the function module RV_SCHEDULE_CHECK_DELIVERIES to get the delivered quanity corresponding to schedule line item in sales order. Please refer below code:
internal table tl_da_vbep has got field VSMNG which is the delievred quantity for each line item SELECT * FROM vbfa
INTO CORRESPONDING FIELDS OF TABLE tl_xvbfa
WHERE vbelv = ie3mdpslx-delnr
AND posnv = ie3mdpslx-delps
AND vbtyp_v = 'C'.
SELECT * FROM vbup
INTO CORRESPONDING FIELDS OF TABLE tl_xvbup
WHERE vbeln = ie3mdpslx-delnr
AND posnr = ie3mdpslx-delps.
SELECT * FROM vbep
INTO CORRESPONDING FIELDS OF TABLE tl_da_vbep
WHERE vbeln = ie3mdpslx-delnr
AND posnr = ie3mdpslx-delps.
SELECT * FROM vbap
INTO CORRESPONDING FIELDS OF TABLE tl_xvbap
WHERE vbeln = ie3mdpslx-delnr
AND posnr = ie3mdpslx-delps.
CALL FUNCTION 'RV_SCHEDULE_CHECK_DELIVERIES'
EXPORTING
fbeleg = ie3mdpslx-delnr
fposnr = ie3mdpslx-delps
TABLES
fvbfa = tl_xvbfa
fvbup = tl_xvbup
fxvbep = tl_da_vbep
fvbap = tl_xvbap
EXCEPTIONS
fehler_bei_lesen_fvbup = 1
fehler_bei_lesen_fxvbep = 2
OTHERS = 3. | ||||||||
*&---------------------------------------------------------------------*
*& Form data_export
*&---------------------------------------------------------------------*
* 資料匯出至 Excel
*----------------------------------------------------------------------*
FORM DATA_EXPORT .
DATA: XMPL_HEADER LIKE GXXLT_P-TEXT
VALUE '交貨明細表'.
DATA BEGIN OF XMPLT_O OCCURS 1.
INCLUDE STRUCTURE GXXLT_O.
DATA END OF XMPLT_O.
DATA BEGIN OF XMPLT_P OCCURS 1.
INCLUDE STRUCTURE GXXLT_P.
DATA END OF XMPLT_P.
DATA BEGIN OF XMPLT_V OCCURS 1.
INCLUDE STRUCTURE GXXLT_V.
DATA END OF XMPLT_V.
DATA: BEGIN OF XMPLT_D OCCURS 60,
VBELN LIKE LIPS-VBELN,
POSNR LIKE LIPS-POSNR,
KUNNR LIKE LIKP-KUNNR,
NAME1 LIKE KNA1-NAME1,
NAME1_SH LIKE KNA1-NAME1,
MATNR LIKE LIPS-MATNR,
VGBEL LIKE LIPS-VGBEL,
KDMAT LIKE LIPS-KDMAT,
LFIMG LIKE LIPS-LFIMG,
VRKME LIKE LIPS-VRKME,
LFDAT LIKE LIKP-LFDAT,
END OF XMPLT_D.
* 標題列
CLEAR XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '交貨'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '項目'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '收貨人'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '客戶名稱'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '出貨對象名稱'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '物料'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '採購文件'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '客戶物料號碼'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '交貨數量'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = 'SU'.
APPEND XMPLT_V.
XMPLT_V-COL_NO = XMPLT_V-COL_NO + 1.
XMPLT_V-COL_NAME = '發貨日期'.
APPEND XMPLT_V.
* 資料轉移
LOOP AT GT_ITAB.
MOVE-CORRESPONDING GT_ITAB TO XMPLT_D.
APPEND XMPLT_D.
ENDLOOP.
SORT XMPLT_D BY VBELN POSNR.
*
CALL FUNCTION 'XXL_SIMPLE_API'
EXPORTING
N_KEY_COLS = 4
FILENAME = 'XMPL0002'
HEADER = XMPL_HEADER
TABLES
DATA = XMPLT_D
ONLINE_TEXT = XMPLT_O
PRINT_TEXT = XMPLT_P
COL_TEXT = XMPLT_V.
ENDFORM. " data_export
CALL FUNCTION 'XXL_FULL_API'
EXPORTING
N_VRT_KEYS = 3 " Of the 9 columns in the list
N_ATT_COLS = 6 " \ object, 3 are key columns
N_HRZ_KEYS = 3 " Header above the non-key-columns
" \ forms a three-level-hierarchy
DATA_STARTING_AT = 5 " Only 50 rows out of 60 are
DATA_ENDING_AT = 54 " \ really exported
FILENAME = 'XMPL0001'
HEADER_1 = XMPL_HEADER1
HEADER_2 = XMPL_HEADER2
SEMA_TYPE = 'X' " C-Columns are converted if SEMA
" \ definitions require this
NO_DIALOG = SPACE " XXL itself prompts for FILENAME
TABLES
VKEY = XMPLT_V
HKEY = XMPLT_H
DATA = XMPLT_D
SEMA = XMPLT_S
ONLINE_TEXT = XMPLT_O
PRINT_TEXT = XMPLT_P
EXCEPTIONS
FILE_OPEN_ERROR = 71
FILE_WRITE_ERROR = 72
INV_WINSYS = 73
INV_XXL = 74
CANCELLED_BY_USER = 75
OTHERS = 99.
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
CHANGING
VALUE = var_char
TABLES: tvfk. RANGES: gr_fkart FOR vbrk-fkart.
* ------------- * Define Macro * ------------- DEFINE put_ranges. &1-sign = &2. &1-option = &3. &1-low = &4. &1-high = &5. APPEND &1. END-OF-DEFINITION.
DEFINE put_ranges. FIELD-SYMBOLS <PT> LIKE &1. ASSIGN &1 TO <PT>. <PT>-sign = &2. <PT>-option = &3. <PT>-low = &4. <PT>-high = &5. APPEND <PT> TO &1. END-OF-DEFINITION.
SELECT fkarts INTO tvfk-fkarts
FROM tvfk
WHERE kappl = 'V3'.
put_ranges gr_fkart 'E' 'EQ' tvfk-fkarts ''.
ENDSELECT.