Creating Text in line Item in sap abap

-
IF gv_salesdocument IS NOT INITIAL.

          gs_final-cmr = gv_salesdocument.


          SELECT vbeln vgbel
                 FROM vbak
                 INTO TABLE gt_vbak
                 WHERE vbeln = gv_salesdocument.

          IF sy-subrc = 0.


            SELECT vbeln
                   posnr
                   matnr
                   FROM vbap
                   INTO TABLE gt_vbap
                   FOR ALL ENTRIES IN gt_vbak
                   WHERE vbeln = gt_vbak-vbeln.

          ENDIF.

          LOOP AT gt_vbap INTO gs_vbap.
            CONCATENATE gs_vbap-vbeln gs_vbap-posnr INTO gv_name.

            CLEAR gs_vbak.
            READ TABLE gt_vbak INTO gs_vbak WITH KEY vbeln = gs_vbap-vbeln.
            IF sy-subrc = 0.

              CLEAR gs_upload3.
*              READ TABLE gt_upload1 INTO gs_upload3 WITH KEY vbeln = gs_vbak-vgbel
*                                                            matnr = gs_vbap-matnr
*                                                            read = ' '.
              READ TABLE gt_upload1 INTO gs_upload3 WITH KEY matnr = gs_vbap-matnr
                                                             read = ' '.
              IF sy-subrc = 0.
                CLEAR lv_tabix.
                lv_tabix = sy-tabix.
                gs_upload3-read = 'X'.
                MODIFY gt_upload1 FROM gs_upload3 INDEX lv_tabix.
                gs_tline-tdline = gs_upload3-equnr.
                APPEND gs_tline TO gt_tline.
              ENDIF.
            ENDIF.



            CALL FUNCTION 'CREATE_TEXT'
              EXPORTING
                fid         = 'Z002'
                flanguage   = sy-langu
                fname       = gv_name
                fobject     = 'VBBP'
                save_direct = 'X'
                fformat     = '*'
              TABLES
                flines      = gt_tline
              EXCEPTIONS
                no_init     = 1
                no_save     = 2
                OTHERS      = 3.
            IF sy-subrc <> 0.
* Implement suitable error handling here
            ENDIF.

            CLEAR : gs_tline , gt_tline[] .
            gs_tline-tdline = gs_upload3-cust_no_date.
            APPEND gs_tline TO gt_tline.

            CALL FUNCTION 'CREATE_TEXT'
              EXPORTING
                fid         = 'Z001'
                flanguage   = sy-langu
                fname       = gv_name
                fobject     = 'VBBP'
                save_direct = 'X'
                fformat     = '*'
              TABLES
                flines      = gt_tline
              EXCEPTIONS
                no_init     = 1
                no_save     = 2
                OTHERS      = 3.
            IF sy-subrc <> 0.
* Implement suitable error handling here
            ENDIF.
            CLEAR : gs_tline , gt_tline[] .
          ENDLOOP.

          PERFORM create_credit_memo.

        ELSE.
          READ TABLE gt_return INTO gs_return WITH KEY type = 'E'.
          gs_final-message = gs_return-message.
          APPEND gs_final TO gt_final.
          CONTINUE.
          CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
        ENDIF.

Comments

Post a Comment

Popular posts from this blog

Business senario : FB60 AND FB70 validation and subsituation

-
Image
As per the requirments validation GGB0 and subsituation GGB1 with help to two t-code we can do validation of t-code fb60 or fb70 for this purpose you can go to to standared programs .  there are two t-code for input your validation and subsituation OB28 for validation and OBBH for  subsituation   for subsituation you copy the standared program RGGBR000 in customer namespace and register the program in T80D table and register namespace to V_T80D Program you can change your exit like below   exits - name  =  'RK101' .   exits - param  =  c_exit_param_field .   exits - TITLE  =  TEXT - prb .    APPEND  exits . And second code like below  FORM  upf04 .    IF  BKPF - bukrs  IS  INITIAL .      MESSAGE  'PLease enter COMPANY CODE'  TYPE  'I' .    ENDIF . ENDFORM . and hole code as ...
Read more

MB_MIGO_BADI THIS BADI USED TO POSTING DATA IN MIGO

-
Here this badi used to how to work migo data migration and help to creating magi used to save  and validation of data  MB_DOCUMENT_UPDATE method  IF_EX_MB_MIGO_BADI ~ POST_DOCUMENT .    BREAK-POINT .    IF  is_mkpf - budat < is_mkpf - BLDAT .     sy - ucomm  =  'ENT1' .      MESSAGE  'Posting Date Should Not Be Less Than Document Date'   TYPE  'E'  .      SET SCREEN  syst - dynnr .      LEAVE SCREEN .    ENDIF . endmethod .
Read more

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and...
Read more