CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
LISTOBJECT = ABAPLIST
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
CALL FUNCTION 'LIST_TO_ASCI'
EXPORTING
LIST_INDEX = -1
* Elven20070110 with_line_break = ' '
TABLES
LISTASCI = ASCILIST
LISTOBJECT = ABAPLIST
EXCEPTIONS
EMPTY_LIST = 1
LIST_INDEX_INVALID = 2
OTHERS = 3.
NEW-PAGE LINE-COUNT LINECOUNT LINE-SIZE LINESIZE.
DEST = 'LOCL'.
CALL FUNCTION 'SET_PRINT_PARAMETERS'
EXPORTING
LAYOUT = LAYOUT
DESTINATION = DEST
IMMEDIATELY ='X'.
CALL FUNCTION 'WRITE_LIST'
*Elven20070110 EXPORTING
* write_only = 'X'
TABLES
LISTOBJECT = ABAPLIST
EXCEPTIONS
EMPTY_LIST = 1
OTHERS = 2.
* perform. print_out using ZCM03tab-docnumber type.
* endloop.
*
* zcm03tab-selid = space.
* modify zcm03tab transporting selid where selid eq 'X'.
* perform. list_extracted_data.
ENDFORM. " write_purchase_order
*&--------------------------------------------------------------
*& Form Check_Save_Authorization
*&--------------------------------------------------------------
FORM. CHECK_SAVE_AUTHORIZATION
USING PLANT_FROM PLANT_TO DOCTYPE .
*ZCM04TAB-WERKS ZCM04TAB-UMWRK ZCM03-DOCTYPE
DATA : MOVTYPE LIKE ZMM029-TCODE.
TABLES :ZMM029.
SELECT SINGLE UNAME
FROM ZMM029 INTO ZMM029-UNAME
WHERE WERKS = PLANT_FROM
AND UNAME = SY-UNAME
AND TCODE = SY-TCODE
AND STATUS = 'Y' .
IF SY-SUBRC NE 0 .
MESSAGE E000(ZPCEMM001) WITH
'You have no authority for Tcode/Plant :' SY-TCODE
PLANT_FROM .
ENDIF.
* IF ( '48' CS doctype ) AND ( plant_from NE plant_to ) .
* ELSE.
* SELECT SINGLE UNAME
* FROM ZMM029 INTO ZMM029-UNAME
* WHERE WERKS = plant_from
* AND UNAME = SY-UNAME
* AND TCODE = SY-TCODE
* AND BWART = movtype
* AND STATUS = 'Y' .
*
* IF SY-SUBRC NE 0 .
* MESSAGE E000(ZPCEMM001) WITH SY-UNAME
* ' have no authority for Tcode/Plant :' SY-TCODE
* plant_from .
* ENDIF.
*
* ENDIF.
ENDFORM.
*---------------------------------------------------------------
* MODULE CHECK_REASON INPUT
*
*---------------------------------------------------------------
* ........
*
*---------------------------------------------------------------
MODULE CHECK_REASON INPUT.
CLEAR REASON_TXT.
PERFORM. GET_DOMMAIN_VALUE_TEXT(ZRMM_CSD_0015) USING 'ZREASON'
ZCM03-RESON
REASON_TXT.
ENDMODULE.
****LBG200804281811.edit.sn
MODULE CHECK_ERFMG INPUT.
DATA:L_YINGFA2 LIKE ZCM04-ERFMG.
DATA:C_YINGFA2(16) TYPE C.
DATA:L_MPQ LIKE MARC-BSTRF.
DATA:L_QPA LIKE RESB-ESMNG.
CLEAR L_MPQ.
L_CNT = 0.
SELECT BSTRF INTO L_MPQ FROM MARC WHERE
MATNR = ZCM04-MATNR AND WERKS = ZCM04-WERKS.
SELECT SINGLE RESB~ESMNG"LBG20080419.ADD ying fa qty
INTO L_QPA FROM RESB
INNER JOIN AFKO ON RESB~RSNUM = AFKO~RSNUM
WHERE AFKO~AUFNR EQ ZCM03-AUFNR
AND RESB~MATNR EQ ZCM04-MATNR
AND RESB~CHARG EQ ZCM04-CHARG.
L_CNT = L_CNT + 1.
ENDSELECT.
IF L_CNT < 1.
L_CNT = 1.
ENDIF.
L_YINGFA2 = 0.
IF L_MPQ <> 0.
IF L_QPA < 10."QPA<10 fa 1 mpq
L_YINGFA2 = L_MPQ * L_CNT .
ELSE."QPA>=10 fa 5 mpq
L_YINGFA2 = L_MPQ * 5 * L_CNT.
ENDIF.
IF L_YINGFA2 < ZCM04-ERFMG.
C_YINGFA2 = L_YINGFA2.
CONDENSE C_YINGFA2.
L_CNT = 0.
SELECT COUNT(*) INTO L_CNT FROM CAUFV WHERE AUFNR =
ZCM03-AUFNR
AND ERDAT >= '20080506'.
IF SY-SUBRC = 0.
MESSAGE E000 WITH 'ONE TIME ONLY issue' C_YINGFA2
ZCM04-MATNR.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
****LBG200804281811.edit.en
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/14397246/viewspace-666185/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/14397246/viewspace-666185/