ZCMM01-34

最新推荐文章于 2020-07-22 16:45:33 发布

cssp2014

最新推荐文章于 2020-07-22 16:45:33 发布

阅读量75

点赞数

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.