Friday, January 30, 2015

Delete Parked Document By FBV6 - Runtime Error

When we are running the T-Code FBV6 and trying to delete, system gives run time error.

In order to solve the issue please apply notes and retest the same scenario.

1810842 - Delete or change parked documents from MM
1833381 - ASSERT violation FM_DOCUMENT_REVERSE_PP

Wednesday, January 7, 2015

Business Area, Profit Center and Cost Center Field Mandatory in Internal Order

Make Business Area, Profit Center and Cost Center Mandatory in Internal Order

Go to T-Code - KOT2_OPA
Select the Order Type for which you want the fields to be mandatory.
Or
Create New Order Type.

After the selecting the Order Type go to display.
Scroll down and click on Field Selection.
Now make the field as required and save.

BDC for Asset Retirement - ABAVN

Make the file in txt format having the fields that are defined in the Structure below -

REPORT ZABAVN NO STANDARD PAGE HEADING LINE-SIZE 255.

"DECLARATION TYPES
DATA: W_FILENAME TYPE STRING.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-500.
PARAMETERS: P_FILENM LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.

TABLES: RAIFP2, RAIFP1, RAIFP3.
"STRUCTURE
TYPES : BEGIN OF ST,
        ANLN1(12),
        ANLN2(4),
        BLDAT(10),
        BUDAT(10),
        BZDAT(10),
        SGTXT(50),
        MONAT(2),
        BLART(2),
        BWASL(3),
        END OF ST.

*INTERNAL TABLE AND WORKAREA DECLARATION*
DATA : IT TYPE TABLE OF ST.
DATA : WA TYPE ST.

INCLUDE BDCRECX1.

START-OF-SELECTION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.

  CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            MASK             = ',*.*,*.*.'
            MODE             = '0'
            TITLE            = 'GET FILE NAME'
       IMPORTING
            FILENAME         = P_FILENM
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.

** START OF CHANGE DCS05052003
START-OF-SELECTION.
 W_FILENAME = P_FILENM.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
**   FILENAME                    = 'C:\BDC_XLS_ASSIGN.TXT'
   FILENAME                      = W_FILENAME
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                     = IT
 EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17.

IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO.
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

PERFORM OPEN_GROUP.

LOOP AT IT INTO WA.

PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB02'.
PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                              WA-ANLN1."'80034358'.
PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                              WA-ANLN2."'0'.
PERFORM BDC_FIELD       USING 'RAIFP1-BLDAT'
                              WA-BLDAT."'31.12.2014'.
PERFORM BDC_FIELD       USING 'RAIFP1-BUDAT'
                              WA-BUDAT."'31.12.2014'.
PERFORM BDC_FIELD       USING 'RAIFP1-BZDAT'
                              WA-BZDAT."'01.04.2014'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'RAIFP2-SGTXT'.
PERFORM BDC_FIELD       USING 'RAIFP2-SGTXT'
                              WA-SGTXT."'RETIREMENT WITHOUT REVENUE'.
PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=SHWD'.
PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                              WA-ANLN1."'80034358'.
PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                              WA-ANLN2."'0'.
PERFORM BDC_FIELD       USING 'RAIFP2-MONAT'
                              WA-MONAT."'9'.
PERFORM BDC_FIELD       USING 'RAIFP1-BLART'
                              WA-BLART."'AA'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'RAIFP1-BWASL'.
PERFORM BDC_FIELD       USING 'RAIFP1-BWASL'
                              WA-BWASL."'200'.
PERFORM BDC_DYNPRO      USING 'SAPMSSY0' '0120'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=BUCH'.
PERFORM BDC_TRANSACTION USING 'ABAVN'.

ENDLOOP.

PERFORM CLOSE_GROUP.