Notes
Notes - notes.io |
SELECT *
FROM VBAK
INTO CORRESPONDING FIELDS OF TABLE GT_VBAK
WHERE AUART = P_AUART AND
VKORG = P_VKORG AND
VBELN IN S_VBELN AND
AUDAT IN S_AUDAT AND
VBTYP IN S_VBTYP AND
AUGRU IN S_AUGRU AND
VTWEG IN S_VTWEG AND
SPART IN S_SPART.
SELECT A~VBELN A~ERDAT A~KUNNR A~NETWR A~VKORG A~WAERK A~XBLNR
A~GSBER K~NAME1 T~VTEXT G~GTEXT FROM VBAK AS A
LEFT OUTER JOIN KNA1 AS K
ON A~KUNNR EQ K~KUNNR
LEFT OUTER JOIN TVKOT AS T
ON A~VKORG EQ T~VKORG
LEFT OUTER JOIN TGSBT AS G
ON A~GSBER EQ G~GSBER
AND G~SPRAS = 'T'
INTO CORRESPONDING FIELDS OF TABLE GT_VBAK
FOR ALL ENTRIES IN GT_VBAK
WHERE A~VBELN = GT_VBAK-VBELN.
SELECT A~VBELN A~POSNR A~MATNR A~MATKL A~CHARG A~WERKS A~LGORT
W~NAME1 L~LGOBE M~MAKTX T~WGBEZ FROM VBAP AS A
LEFT OUTER JOIN MAKT AS M
ON A~MATNR EQ M~MATNR
LEFT OUTER JOIN T023T AS T
ON A~MATKL EQ T~MATKL
LEFT OUTER JOIN T001W AS W
ON A~WERKS EQ W~WERKS
LEFT OUTER JOIN T001L AS L
ON A~LGORT EQ L~LGORT
INTO CORRESPONDING FIELDS OF TABLE GT_VBAP
FOR ALL ENTRIES IN GT_VBAK
WHERE A~VBELN = GT_VBAK-VBELN.
ENDFORM. " GET_DATA
*&---------------------------------------------------------------------*
*& Form SET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SET_DATA .
LOOP AT GT_VBAK INTO GS_VBAK.
CLEAR W_CELLCOLOR.
APPEND W_CELLCOLOR TO GS_VBAK-CELLCOLOR.
MODIFY GT_VBAK FROM GS_VBAK TRANSPORTING CELLCOLOR.
MOVE-CORRESPONDING GS_VBAK TO GS_ITAB.
READ TABLE GT_VBAP INTO GS_VBAP WITH KEY VBELN = GS_VBAK-VBELN.
IF SY-SUBRC = 0.
GS_ITAB-VBELN = GS_VBAP-VBELN.
GS_ITAB-POSNR = GS_VBAP-POSNR.
GS_ITAB-MATNR = GS_VBAP-MATNR.
GS_ITAB-MATKL = GS_VBAP-MATKL.
GS_ITAB-CHARG = GS_VBAP-CHARG.
GS_ITAB-WERKS = GS_VBAP-WERKS.
GS_ITAB-LGORT = GS_VBAP-LGORT.
GS_ITAB-MAKTX = GS_VBAP-MAKTX.
GS_ITAB-WGBEZ = GS_VBAP-WGBEZ.
GS_ITAB-NAME1 = GS_VBAP-NAME1.
GS_ITAB-LGOBE = GS_VBAP-LGOBE.
ENDIF.
APPEND GS_ITAB TO GT_ITAB.
CLEAR GS_ITAB.
ENDLOOP.
ENDFORM. " SET_DATA
*&---------------------------------------------------------------------*
*& Form GET_FCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_FCAT .
LS_FCAT-FIELDNAME = 'VBELN'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Sipariş Numarası'.
LS_FCAT-KEY = 'X'.
LS_FCAT-HOTSPOT = 'X'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'POSNR'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Sipariş Kalemi'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'ERDAT'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Kayıt Tarihi'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'KUNNR'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Sipariş Veren'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'NAME1'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Sipariş Veren Tanımı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'KONDM'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Malzeme'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'VTEXT'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Malzeme Tanımı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'MATKL'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Mal Grubu'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'WGBEZ'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Mal Grubu Tanımı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'CHARG'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Parti No'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'VKGRP'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Satış Organizasyonu'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'VTEXT2'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Satış Organizasyonu Tanımı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'WERKS'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Üretim Yeri'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'NAME2'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Üretim Yeri Tanımı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'LGORT'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Depo Yeri'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'LGOBE'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Depo Yeri Tanımı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'NETWR'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Net Tutar'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'MWSKZ'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'KDV Oranı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'TEXT1'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'KDV Değeri'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'WAERK'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Para Birimi'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'XBLNR'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'Referans Numarası'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'GSBER'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'İş Alanı'.
APPEND LS_FCAT TO LT_FCAT.
CLEAR LS_FCAT.
LS_FCAT-FIELDNAME = 'GSTEXT'.
LS_FCAT-TABNAME = 'GT_ITAB'.
LS_FCAT-COLTEXT = 'İş Alanı Tanımı'.
APPEND LS_FCAT TO LT_FCAT.
ENDFORM. " GET_FCAT
*&---------------------------------------------------------------------*
*& Form GET_ALV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_ALV .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_GRID_TITLE = GV_TITLE
IS_LAYOUT_LVC = LS_LAYO
IT_FIELDCAT_LVC = LT_FCAT
I_SAVE = 'A'
TABLES
T_OUTTAB = GT_ITAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE 'ALV OLUŞTURULAMADI' TYPE 'I' DISPLAY LIKE 'E'.
ENDIF.
ENDFORM. " GET_ALV
*&---------------------------------------------------------------------*
*& Form LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM LAYOUT .
LS_LAYO-CWIDTH_OPT = 'X'.
* LS_LAYO-ZEBRA = 'X'.
LS_LAYO-CTAB_FNAME = 'CELLCOLOR'.
ENDFORM. " LAYOUT
*&---------------------------------------------------------------------*
*& Form PF_STATUS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_RE_EXTAB text
*----------------------------------------------------------------------*
FORM PF_STATUS USING P_RE_EXTAB.
SET PF-STATUS 'STATUS'.
ENDFORM. " PF_STATUS
*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_B_UCOMM text
* -->P_RS_SELFIED text
*----------------------------------------------------------------------*
FORM USER_COMMAND USING P_B_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE P_B_UCOMM.
WHEN '&F03' OR '&F15' OR '&F12'.
LEAVE TO SCREEN 0.
ENDCASE.
CASE RS_SELFIELD-FIELDNAME.
WHEN 'VBELN'.
READ TABLE GT_ITAB INTO GS_ITAB WITH KEY VBELN = RS_SELFIELD-VALUE.
IF SY-SUBRC EQ 0.
SET PARAMETER ID 'BES' FIELD GS_ITAB-VBELN.
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDFORM. "USER_COMMAND
*&---------------------------------------------------------------------*
*& Form MODIFY_SCREEN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM MODIFY_SCREEN .
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_VKORG'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM. " MODIFY_SCREEN
|
|
Notes.io is a web-based application for taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000 notes created and continuing...
With notes.io;
- * You can take a note from anywhere and any device with internet connection.
- * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
- * You can quickly share your contents without website, blog and e-mail.
- * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
- * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.
Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.
Easy: Notes.io doesn’t require installation. Just write and share note!
Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )
Free: Notes.io works for 12 years and has been free since the day it was started.
You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;
Email: [email protected]
Twitter: http://twitter.com/notesio
Instagram: http://instagram.com/notes.io
Facebook: http://facebook.com/notesio
Regards;
Notes.io Team
