{"id":5918,"date":"2016-09-24T13:48:44","date_gmt":"2016-09-24T10:48:44","guid":{"rendered":"https:\/\/www.karadere.com\/blog\/?p=5918"},"modified":"2016-09-24T13:48:44","modified_gmt":"2016-09-24T10:48:44","slug":"sap-abap-yemek-siparis-program-kodu","status":"publish","type":"post","link":"https:\/\/www.karadere.com\/blog\/sap-abap-yemek-siparis-program-kodu.html","title":{"rendered":"SAP ABAP yemek sipari\u015f program kodu."},"content":{"rendered":"

SAP SE\u00a0Abap<\/strong> Yemek sipari\u015f kodu. Y\u0131llar \u00f6nce yaz\u0131lan bir kodu ar\u015fivimi kurcalarken buldum \ud83d\ude42 \u015faka gibi zaman ne \u00e7abuk ge\u00e7mi\u015f.<\/p>\n

<\/p>\n

\n

\n

*&———————————————————————*<\/span>
\n*&\u00a0Report\u00a0\u00a0ZYEMEKSIP<\/span>
\n*&\u00a0Date\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0:\u00a009.07.2009<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0Reseon\u00a0\u00a0\u00a0:\u00a0IT\u00a0yemek\u00a0sipari\u015f\u00a0takip\u00a0program\u0131<\/span>
\n*&\u00a0Abap\u00a0Writer\u00a0:\u00a0Burhan\u00a0KARADERE<\/span>
\n*&\u00a0Copyleft\u00a0\u00ae\u00a02009\u00a0by\u00a0Burhan\u00a0KARADERE<\/span>
\n*&———————————————————————*<\/span><\/p>\n

REPORT<\/span>\u00a0\u00a0zyemeksip.<\/p>\n

TABLES<\/span>\u00a0:\u00a0zit_calisan\u00a0,\u00a0zyemeksiparis\u00a0.<\/p>\n

TYPE<\/span>-POOLS\u00a0:\u00a0slis\u00a0.\u00a0”\u00a0KUTUPHANE<\/span>
\nTYPE<\/span>-POOLS:\u00a0vrm.\u00a0”\u00a0LISTBOX\u00a0ICIN<\/span>
\n”\u00a0LISTBOX\u00a0ICIN\u00a0DEGISKENLER<\/span>
\nDATA<\/span>:\u00a0name\u00a0\u00a0TYPE<\/span>\u00a0vrm_id,
\nlist\u00a0\u00a0TYPE<\/span>\u00a0vrm_values,
\nvalue<\/span>\u00a0LIKE<\/span>\u00a0LINE<\/span>\u00a0OF<\/span>\u00a0list.
\n”\u00a0LISTBOX\u00a0ICIN\u00a0DEGISKENLER<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0GLOBAL\u00a0DEGISKENLER<\/span>
\n*&———————————————————————*<\/span>
\nDATA<\/span>\u00a0:\u00a0siparis(50<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.
\nDATA<\/span>\u00a0:\u00a0lokanta(30<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0”\u00a0lokanta<\/span>
\nDATA<\/span>\u00a0:\u00a0siptoplayan(10<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0“sip\u00a0toplayan<\/span>
\nDATA<\/span>\u00a0:\u00a0ysipveren(10<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0”\u00a0sip\u00a0veren<\/span>
\nDATA<\/span>\u00a0:\u00a0ylokanta(15<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0“lokanta<\/span>
\nDATA<\/span>\u00a0:\u00a0ysiparis(50<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0”\u00a0sipari\u015f<\/span>
\nDATA<\/span>\u00a0:\u00a0otur(10<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0”\u00a0\u00f6deme\u00a0t\u00fcr\u00fc<\/span>
\nDATA<\/span>\u00a0:\u00a0sid(10<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0”\u00a0siparis\u00a0id<\/span>
\nDATA<\/span>\u00a0:\u00a0ssid\u00a0LIKE<\/span>\u00a0zyemeksiparis-id<\/span>\u00a0.\u00a0”\u00a0siparis\u00a0detay\u00a0id<\/span><\/p>\n

DATA<\/span>\u00a0:\u00a0FIYAT(10<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0”\u00a0\u00f6deme\u00a0t\u00fcr\u00fc<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0GLOBAL\u00a0DEGISKENLER<\/span>
\n*&———————————————————————*<\/span>
\nDATA<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0:\u00a0gt_fcat\u00a0\u00a0\u00a0TYPE<\/span>\u00a0slis_t_fieldcat_alv\u00a0WITH<\/span>\u00a0HEADER<\/span>\u00a0LINE<\/span>\u00a0,
\n”\u00a0fieldcat<\/span>
\ngs_layo\u00a0TYPE<\/span>\u00a0slis_layout_alv\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0.<\/p>\n

”\u00a0itab<\/span>
\nDATA<\/span>\u00a0:\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0sip_itab\u00a0OCCURS<\/span>\u00a0100<\/span>\u00a0,
\nsec\u00a0TYPE<\/span>\u00a0c<\/span>,
\nid<\/span>\u00a0LIKE<\/span>\u00a0zyemeksip-id<\/span>\u00a0\u00a0,
\nsiptoplayan\u00a0LIKE<\/span>\u00a0zyemeksip-siptoplayan\u00a0,
\ntarih\u00a0LIKE<\/span>\u00a0zyemeksip-tarih\u00a0,
\nsaat\u00a0LIKE<\/span>\u00a0zyemeksip-saat\u00a0,
\nendsaat\u00a0LIKE<\/span>\u00a0zyemeksip-endsaat\u00a0,
\nlokanta\u00a0LIKE<\/span>\u00a0zyemeksip-lokanta\u00a0,
\nsiparis\u00a0LIKE<\/span>\u00a0zyemeksip-siparis\u00a0,
\ndurum\u00a0LIKE<\/span>\u00a0zyemeksip-durum\u00a0,
\nEND<\/span>\u00a0OF<\/span>\u00a0sip_itab\u00a0.<\/p>\n

”\u00a0SIPARISLER\u00a0ITAB<\/span>
\nDATA<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0:\u00a0gt_fcatsip\u00a0\u00a0\u00a0TYPE<\/span>\u00a0slis_t_fieldcat_alv\u00a0WITH<\/span>\u00a0HEADER<\/span>\u00a0LINE<\/span>\u00a0,
\n”\u00a0fieldcat<\/span>
\ngs_layosip\u00a0TYPE<\/span>\u00a0slis_layout_alv\u00a0\u00a0.<\/p>\n

DATA<\/span>\u00a0:\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0sipler_itab\u00a0OCCURS<\/span>\u00a00<\/span>\u00a0,
\nsecsip\u00a0TYPE<\/span>\u00a0c<\/span>,
\nid<\/span>\u00a0LIKE<\/span>\u00a0zyemeksiparis-id<\/span>\u00a0\u00a0,
\nsipveren\u00a0LIKE<\/span>\u00a0zyemeksiparis-sipveren\u00a0,
\nsipisteyen\u00a0LIKE<\/span>\u00a0zyemeksiparis-sipisteyen\u00a0,
\nsiparis\u00a0LIKE<\/span>\u00a0zyemeksiparis-siparis\u00a0,
\nfiyat\u00a0LIKE<\/span>\u00a0zyemeksiparis-fiyat\u00a0,
\nodemeturu\u00a0LIKE<\/span>\u00a0zyemeksiparis-odemeturu,
\nsid\u00a0LIKE<\/span>\u00a0zyemeksiparis-sid,<\/p>\n

END<\/span>\u00a0OF<\/span>\u00a0sipler_itab\u00a0.<\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0HELP\u00a0MENU\u00a0ICIN\u00a0IT\u00a0CALISANLAR<\/span>
\n*&———————————————————————*<\/span>
\nDATA<\/span>\u00a0\u00a0\u00a0:\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0zit_itab\u00a0OCCURS<\/span>\u00a00<\/span>\u00a0\u00a0,
\nxubname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0LIKE<\/span>\u00a0zit_calisan-xubname\u00a0,
\npartner_txt\u00a0\u00a0\u00a0LIKE<\/span>\u00a0zit_calisan-partner_txt,
\nEND<\/span>\u00a0OF<\/span>\u00a0zit_itab\u00a0.<\/p>\n

DATA<\/span>:\u00a0gv_it\u00a0LIKE<\/span>\u00a0\u00a0zit_calisan-xubname\u00a0.\u00a0”\u00a0GV_PIL\u00a0IL_ID\u00a0DONUYOR<\/span><\/p>\n

SELECTION-SCREEN<\/span>\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0BLOCK<\/span>\u00a0b0\u00a0WITH<\/span>\u00a0FRAME<\/span>\u00a0\u00a0\u00a0TITLE<\/span>\u00a0text<\/span>–001<\/span>\u00a0\u00a0\u00a0.
\nPARAMETERS<\/span>:m1\u00a0RADIOBUTTON<\/span>\u00a0GROUP<\/span>\u00a0r1\u00a0USER-COMMAND\u00a0radio1\u00a0DEFAULT<\/span>\u00a0‘X’<\/span>,
\nm2\u00a0RADIOBUTTON<\/span>\u00a0GROUP<\/span>\u00a0r1.
\nSELECTION-SCREEN<\/span>\u00a0:\u00a0END<\/span>\u00a0OF<\/span>\u00a0BLOCK<\/span>\u00a0b0\u00a0.<\/p>\n

SELECTION-SCREEN<\/span>\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0BLOCK<\/span>\u00a0b1\u00a0WITH<\/span>\u00a0FRAME<\/span>\u00a0TITLE<\/span>\u00a0text<\/span>–002<\/span>\u00a0.
\nDATA<\/span>\u00a0starih\u00a0TYPE<\/span>\u00a0abhod\u00a0\u00a0\u00a0.\u00a0”\u00a0SISTEM\u00a0DEN\u00a0GELEN\u00a0TARIH\u00a0FORMATI<\/span>
\nSELECT<\/span>-OPTIONS\u00a0btarih\u00a0\u00a0\u00a0FOR<\/span>\u00a0starih\u00a0MODIF\u00a0ID<\/span>\u00a0sc1\u00a0OBLIGATORY
\nDEFAULT<\/span>\u00a0sy-datum\u00a0\u00a0\u00a0.
\nSELECTION-SCREEN<\/span>\u00a0:\u00a0END<\/span>\u00a0OF<\/span>\u00a0BLOCK<\/span>\u00a0b1\u00a0.<\/p>\n

SELECTION-SCREEN<\/span>\u00a0:\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0BLOCK<\/span>\u00a0b2\u00a0WITH<\/span>\u00a0FRAME<\/span>\u00a0TITLE<\/span>\u00a0text<\/span>–003<\/span>\u00a0.
\nPARAMETERS<\/span>\u00a0spveren(10<\/span>)\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0MODIF\u00a0ID<\/span>\u00a0sc2\u00a0.
\nSELECTION-SCREEN<\/span>\u00a0:\u00a0END<\/span>\u00a0OF<\/span>\u00a0BLOCK<\/span>\u00a0b2\u00a0.<\/p>\n

AT<\/span>\u00a0SELECTION-SCREEN<\/span>\u00a0OUTPUT<\/span>.<\/p>\n

LOOP<\/span>\u00a0AT<\/span>\u00a0SCREEN<\/span>.<\/p>\n

IF<\/span>\u00a0m1\u00a0=\u00a0‘X’<\/span>\u00a0AND<\/span>\u00a0screen<\/span>-group1\u00a0=\u00a0‘SC1’<\/span>\u00a0\u00a0.
\nscreen<\/span>-active\u00a0=\u00a00<\/span>.
\nMODIFY<\/span>\u00a0SCREEN<\/span>.
\nENDIF<\/span>.
\nIF<\/span>\u00a0m1\u00a0=\u00a0‘X’<\/span>\u00a0AND<\/span>\u00a0screen<\/span>-group1\u00a0=\u00a0‘SC2’<\/span>\u00a0\u00a0.
\nscreen<\/span>-active\u00a0=\u00a00<\/span>.
\nMODIFY<\/span>\u00a0SCREEN<\/span>.
\nENDIF<\/span>.<\/p>\n

IF<\/span>\u00a0m2\u00a0=\u00a0‘X’<\/span>\u00a0AND<\/span>\u00a0screen<\/span>-group1\u00a0=\u00a0‘SC1’<\/span>\u00a0\u00a0.
\nscreen<\/span>-active\u00a0=\u00a01<\/span>.
\nMODIFY<\/span>\u00a0SCREEN<\/span>.
\nENDIF<\/span>.
\nIF<\/span>\u00a0m2\u00a0=\u00a0‘X’<\/span>\u00a0AND<\/span>\u00a0screen<\/span>-group1\u00a0=\u00a0‘SC2’<\/span>\u00a0\u00a0.
\nscreen<\/span>-active\u00a0=\u00a01<\/span>.
\nMODIFY<\/span>\u00a0SCREEN<\/span>.
\nENDIF<\/span>.<\/p>\n

ENDLOOP<\/span>.<\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0LISTBOX\u00a0ICIN<\/span>
\n*&———————————————————————*<\/span>
\nCLEAR<\/span>\u00a0:\u00a0list[].\u00a0“TEMIZLIYOZ”<\/span>
\nname\u00a0=\u00a0‘OTUR’<\/span>.
\nvalue<\/span>–key<\/span>\u00a0=\u00a0‘MULTINET’<\/span>.
\nvalue<\/span>–text<\/span>\u00a0=\u00a0‘MULTINET’<\/span>.
\nAPPEND<\/span>\u00a0value<\/span>\u00a0TO<\/span>\u00a0list.
\nvalue<\/span>–key<\/span>\u00a0=\u00a0‘SELECTA’<\/span>.
\nvalue<\/span>–text<\/span>\u00a0=\u00a0‘SELECTA’<\/span>.
\nAPPEND<\/span>\u00a0value<\/span>\u00a0TO<\/span>\u00a0list.
\nvalue<\/span>–key<\/span>\u00a0=\u00a0‘NAKIT’<\/span>.
\nvalue<\/span>–text<\/span>\u00a0=\u00a0‘NAKIT’<\/span>.
\nAPPEND<\/span>\u00a0value<\/span>\u00a0TO<\/span>\u00a0list.
\nvalue<\/span>–key<\/span>\u00a0=\u00a0‘KREDI\u00a0KARTI’<\/span>.
\nvalue<\/span>–text<\/span>\u00a0=\u00a0‘KREDI\u00a0KARTI’<\/span>.<\/p>\n

APPEND<\/span>\u00a0value<\/span>\u00a0TO<\/span>\u00a0list.<\/p>\n

CALL<\/span>\u00a0FUNCTION<\/span>\u00a0‘VRM_SET_VALUES’<\/span>
\nEXPORTING<\/span>
\nid<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0name
\nvalues\u00a0=\u00a0list.
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0LISTBOX\u00a0ICIN<\/span>
\n*&———————————————————————*<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0HELP\u00a0MENU\u00a0ICIN\u00a0IT\u00a0CALISANLAR<\/span>
\n*&———————————————————————*<\/span>
\nAT<\/span>\u00a0SELECTION-SCREEN<\/span>\u00a0ON<\/span>\u00a0VALUE<\/span>-REQUEST\u00a0FOR<\/span>\u00a0spveren\u00a0\u00a0.
\nPERFORM<\/span>\u00a0it_calisanlari_getir\u00a0.<\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0HELP\u00a0MENU\u00a0ICIN\u00a0IT\u00a0CALISANLAR<\/span>
\n*&———————————————————————*<\/span>
\nSTART-OF<\/span>-SELECTION\u00a0.\u00a0”\u00a0program\u0131n\u00a0ba\u015flad\u0131g\u0131\u00a0k\u0131s\u0131m<\/span><\/p>\n

IF<\/span>\u00a0m1\u00a0=\u00a0‘X’<\/span>\u00a0.<\/p>\n

PERFORM<\/span>\u00a0data_cek.<\/p>\n

ENDIF<\/span>.<\/p>\n

IF<\/span>\u00a0m2\u00a0=\u00a0‘X’<\/span>\u00a0.<\/p>\n

PERFORM<\/span>\u00a0data_cek_bugunku\u00a0.<\/p>\n

ENDIF<\/span>.<\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0DATA_CEK<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0data_cek\u00a0.<\/p>\n

SELECT<\/span>\u00a0*\u00a0FROM<\/span>\u00a0\u00a0zyemeksip\u00a0INTO<\/span>\u00a0CORRESPONDING\u00a0FIELDS<\/span>\u00a0OF<\/span>\u00a0TABLE<\/span>\u00a0sip_itab
\nWHERE<\/span>\u00a0tarih\u00a0=\u00a0sy-datum\u00a0\u00a0ORDER<\/span>\u00a0BY<\/span>\u00a0id<\/span>\u00a0\u00a0DESCENDING<\/span>\u00a0.<\/p>\n

*\u00a0\u00a0IF\u00a0sy-subrc\u00a0NE\u00a00\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0MESSAGE\u00a0‘Arad\u0131\u011f\u0131n\u0131z\u00a0k\u0131r\u0131terlerde\u00a0kay\u0131t\u00a0bulunamad\u0131…\u00a0‘<\/span>
\n*\u00a0\u00a0&\u00a0‘L\u00fctfen\u00a0kriterlerinizi\u00a0kontrol\u00a0edip\u00a0tekrar\u00a0deneyiniz’\u00a0TYPE\u00a0‘I’\u00a0.<\/span>
\n*\u00a0\u00a0ELSE.<\/span>
\nPERFORM<\/span>\u00a0fieldcat_belirle\u00a0.
\nPERFORM<\/span>\u00a0fielcat_duzenle\u00a0.
\nPERFORM<\/span>\u00a0layout_duzenle\u00a0.
\nPERFORM<\/span>\u00a0alv_goster\u00a0.
\n*\u00a0\u00a0ENDIF.<\/span><\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0DATA_CEK<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0DATA_CEK_BUGUNKU<\/span>
\n*&———————————————————————*<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0text<\/span>
\n*———————————————————————-*<\/span>
\nFORM<\/span>\u00a0data_cek_bugunku\u00a0.<\/p>\n

SELECT<\/span>\u00a0*\u00a0FROM<\/span>\u00a0\u00a0zyemeksip\u00a0INTO<\/span>\u00a0CORRESPONDING\u00a0FIELDS<\/span>\u00a0OF<\/span>\u00a0TABLE<\/span>\u00a0sip_itab
\nWHERE<\/span>\u00a0tarih\u00a0IN<\/span>\u00a0btarih\u00a0\u00a0AND<\/span>\u00a0siptoplayan\u00a0=\u00a0spveren
\nORDER<\/span>\u00a0BY<\/span>\u00a0id<\/span>\u00a0\u00a0DESCENDING<\/span>\u00a0.<\/p>\n

IF<\/span>\u00a0sy-subrc\u00a0NE<\/span>\u00a00<\/span>\u00a0.
\nMESSAGE<\/span>\u00a0‘Arad\u0131\u011f\u0131n\u0131z\u00a0k\u0131r\u0131terlerde\u00a0kay\u0131t\u00a0bulunamad\u0131…\u00a0‘<\/span>
\n&\u00a0‘L\u00fctfen\u00a0kriterlerinizi\u00a0kontrol\u00a0edip\u00a0tekrar\u00a0deneyiniz’<\/span>\u00a0TYPE<\/span>\u00a0‘I’<\/span>\u00a0.
\nELSE<\/span>.
\nPERFORM<\/span>\u00a0fieldcat_belirle\u00a0.
\nPERFORM<\/span>\u00a0fielcat_duzenle\u00a0.
\nPERFORM<\/span>\u00a0layout_duzenle\u00a0.
\nPERFORM<\/span>\u00a0alv_goster\u00a0.
\nENDIF<\/span>.
\nENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0“DATA_CEK_BUGUNKU<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0DATA_CEKSIP<\/span>
\n*&———————————————————————*<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0text<\/span>
\n*———————————————————————-*<\/span>
\nFORM<\/span>\u00a0data_ceksip\u00a0\u00a0USING<\/span>\u00a0sid\u00a0TYPE<\/span>\u00a0c<\/span>\u00a0.\u00a0“burhan<\/span>
\nSELECT<\/span>\u00a0*\u00a0FROM<\/span>\u00a0\u00a0zyemeksiparis
\nINTO<\/span>\u00a0CORRESPONDING\u00a0FIELDS<\/span>\u00a0OF<\/span>\u00a0TABLe<\/span>\u00a0\u00a0sipler_itab
\nWHERE<\/span>\u00a0sid\u00a0=\u00a0sid\u00a0\u00a0ORDER<\/span>\u00a0BY<\/span>\u00a0id<\/span>\u00a0\u00a0DESCENDING<\/span>\u00a0.<\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0DATA_CEK<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0FIELDCAT_BELIRLE<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0fieldcat_belirle\u00a0.
\nCALL<\/span>\u00a0FUNCTION<\/span>\u00a0‘REUSE_ALV_FIELDCATALOG_MERGE’<\/span>
\nEXPORTING<\/span>
\ni_program_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sy-repid
\ni_internal_tabname\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘SIP_ITAB’<\/span>
\ni_inclname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sy-repid
\ni_client_never_display\u00a0=\u00a0‘X’<\/span>
\ni_bypassing_buffer\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘X’<\/span>
\nCHANGING<\/span>
\nct_fieldcat\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0gt_fcat[]
\nEXCEPTIONS<\/span>
\nOTHERS<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a03<\/span>.
\nIF<\/span>\u00a0sy-subrc\u00a0NE<\/span>\u00a00<\/span>.
\nEXIT<\/span>.
\nENDIF<\/span>\u00a0.
\nENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0FIELDCAT_BELIRLE<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0FIELDCAT_BELIRLE<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0fieldcat_belirle_siparis\u00a0.
\nCALL<\/span>\u00a0FUNCTION<\/span>\u00a0‘REUSE_ALV_FIELDCATALOG_MERGE’<\/span>
\nEXPORTING<\/span>
\ni_program_name\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sy-repid
\ni_internal_tabname\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘SIPLER_ITAB’<\/span>
\ni_inclname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sy-repid
\ni_client_never_display\u00a0=\u00a0‘X’<\/span>
\ni_bypassing_buffer\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘X’<\/span>
\nCHANGING<\/span>
\nct_fieldcat\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0gt_fcatsip[]
\nEXCEPTIONS<\/span>
\nOTHERS<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a03<\/span>.
\nIF<\/span>\u00a0sy-subrc\u00a0NE<\/span>\u00a00<\/span>.
\nEXIT<\/span>.
\nENDIF<\/span>\u00a0.
\nENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0FIELDCAT_BELIRLE<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0ALV_GOSTER<\/span>
\n*&———————————————————————*<\/span>
\n*———————————————————————-*<\/span>
\nFORM<\/span>\u00a0alv_goster\u00a0.
\nCALL<\/span>\u00a0FUNCTION<\/span>\u00a0‘REUSE_ALV_GRID_DISPLAY’<\/span>
\nEXPORTING<\/span>
\ni_callback_program\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sy-repid
\ni_callback_pf_status_set\u00a0=\u00a0‘BUTONLAR’<\/span>
\ni_callback_user_command\u00a0\u00a0=\u00a0‘ALVMENUKOMUTU’<\/span>
\nis_layout\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0gs_layo
\nit_fieldcat\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0gt_fcat[]
\nTABLES<\/span>
\nt_outtab\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sip_itab
\nEXCEPTIONS<\/span>
\nprogram_error\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a01<\/span>
\nOTHERS<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a02<\/span>.
\nIF<\/span>\u00a0sy-subrc\u00a0<>\u00a00<\/span>.
\n*\u00a0MESSAGE\u00a0ID\u00a0SY-MSGID\u00a0TYPE\u00a0SY-MSGTY\u00a0NUMBER\u00a0SY-MSGNO<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WITH\u00a0SY-MSGV1\u00a0SY-MSGV2\u00a0SY-MSGV3\u00a0SY-MSGV4.<\/span>
\nENDIF<\/span>.<\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0ALV_GOSTER<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0ALV_GOSTER\u00a0SIPARIS<\/span>
\n*&———————————————————————*<\/span>
\n*———————————————————————-*<\/span>
\nFORM<\/span>\u00a0alv_goster_sipler\u00a0.
\nCALL<\/span>\u00a0FUNCTION<\/span>\u00a0‘REUSE_ALV_GRID_DISPLAY’<\/span>
\nEXPORTING<\/span>
\ni_callback_program\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sy-repid
\ni_callback_pf_status_set\u00a0=\u00a0‘BUTONLAR’<\/span>
\ni_callback_user_command\u00a0\u00a0=\u00a0‘ALVMENUKOMUTUSIP’<\/span>
\nis_layout\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0gs_layosip\u00a0“gs_layo<\/span>
\nit_fieldcat\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0gt_fcatsip[]
\nTABLES<\/span>
\nt_outtab\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0sipler_itab
\nEXCEPTIONS<\/span>
\nprogram_error\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a01<\/span>
\nOTHERS<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a02<\/span>.
\nIF<\/span>\u00a0sy-subrc\u00a0<>\u00a00<\/span>.
\n*\u00a0MESSAGE\u00a0ID\u00a0SY-MSGID\u00a0TYPE\u00a0SY-MSGTY\u00a0NUMBER\u00a0SY-MSGNO<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WITH\u00a0SY-MSGV1\u00a0SY-MSGV2\u00a0SY-MSGV3\u00a0SY-MSGV4.<\/span>
\nENDIF<\/span>.<\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0ALV_GOSTER<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0GUI<\/span>
\n*&———————————————————————<\/span>
\nFORM<\/span>\u00a0\u00a0butonlar\u00a0USING<\/span>\u00a0g_xpa.
\nSET<\/span>\u00a0PF-STATUS\u00a0‘BUTONGIRIS’<\/span>.
\nENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0“GUI<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0ALV\u00a0\u00a0\u00a0Form\u00a0\u00a0COMMAND<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0alvmenukomutu\u00a0USING<\/span>\u00a0islem\u00a0LIKE<\/span>\u00a0sy-ucomm\u00a0alvkontrol\u00a0TYPE<\/span>
\nslis_selfield.<\/p>\n

CASE<\/span>\u00a0islem\u00a0.
\nWHEN<\/span>\u00a0‘SIPVER’<\/span>.<\/p>\n

ysipveren\u00a0=\u00a0sy-uname\u00a0.
\nCALL<\/span>\u00a0SCREEN<\/span>\u00a00100<\/span>.
\n”\u00a0\u00a0\u00a0\u00a0\u00a0MESSAGE\u00a0‘Arama\u00a0i\u015flemi\u00a0ba\u015flad\u0131’\u00a0TYPE\u00a0‘S’\u00a0.<\/span><\/p>\n

*\u00a0\u00a0\u00a0\u00a0WHEN\u00a0‘SEPETIM’\u00a0.<\/span><\/p>\n

*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0“PERFORM\u00a0data_ceksip\u00a0USING\u00a0sid\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0fieldcat_belirle_siparis\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0fielcat_duzenle_sip\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0layout_duzenle_sip\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0alv_goster_sipler\u00a0.<\/span><\/p>\n

WHEN<\/span>\u00a0‘SIPARISPAK’<\/span>\u00a0.<\/p>\n

PERFORM<\/span>\u00a0data_cek.
\nPERFORM<\/span>\u00a0fieldcat_belirle\u00a0.
\nPERFORM<\/span>\u00a0fielcat_duzenle\u00a0.
\nPERFORM<\/span>\u00a0layout_duzenle\u00a0.
\nPERFORM<\/span>\u00a0alv_goster\u00a0.
\nLEAVE<\/span>\u00a0TO<\/span>\u00a0SCREEN<\/span>\u00a00<\/span>\u00a0.
\n”\u00a0MESSAGE\u00a0‘denem\u00a0sipler’\u00a0TYPE\u00a0‘I’\u00a0.<\/span><\/p>\n

WHEN<\/span>\u00a0‘&IC1’<\/span>.<\/p>\n

IF<\/span>\u00a0sip_itab-sec\u00a0=\u00a0‘X’<\/span>\u00a0\u00a0.
\n“MESSAGE\u00a0‘SECILDI’\u00a0TYPE\u00a0‘I’\u00a0.<\/span><\/p>\n

READ<\/span>\u00a0TABLE<\/span>\u00a0\u00a0sip_itab\u00a0WITH<\/span>\u00a0KEY<\/span>\u00a0sec\u00a0=\u00a0‘X’<\/span>.<\/p>\n

IF<\/span>\u00a0\u00a0sy-subrc\u00a0=\u00a00<\/span>\u00a0.
\nsid\u00a0=\u00a0sip_itab-id<\/span>.
\nCONDENSE<\/span>\u00a0sid\u00a0NO<\/span>-GAPS.
\nENDIF<\/span>.<\/p>\n

PERFORM<\/span>\u00a0data_ceksip\u00a0USING<\/span>\u00a0sid\u00a0.
\nPERFORM<\/span>\u00a0fieldcat_belirle_siparis\u00a0.
\nPERFORM<\/span>\u00a0fielcat_duzenle_sip\u00a0.
\nPERFORM<\/span>\u00a0layout_duzenle_sip\u00a0.
\nPERFORM<\/span>\u00a0alv_goster_sipler\u00a0.<\/p>\n

ENDIF<\/span>.<\/p>\n

IF<\/span>\u00a0alvkontrol-sel_tab_field\u00a0=\u00a0‘SIP_ITAB-ID’<\/span>\u00a0\u00a0.<\/p>\n

READ<\/span>\u00a0TABLE<\/span>\u00a0\u00a0sip_itab\u00a0INDEX<\/span>\u00a0alvkontrol-tabindex\u00a0.<\/p>\n

IF<\/span>\u00a0\u00a0sy-subrc\u00a0=\u00a00<\/span>\u00a0.<\/p>\n

IF<\/span>\u00a0\u00a0sip_itab-endsaat\u00a0<=\u00a0\u00a0sy-uzeit\u00a0.<\/p>\n

MESSAGE<\/span>\u00a0‘Bu\u00a0sipari\u015f\u00a0kapand\u0131.’<\/span>
\n&\u00a0‘S\u00fcresi\u00a0dolmu\u015ftur….\u00a0‘<\/span>
\n&‘L\u00fctfen\u00a0a\u00e7\u0131k\u00a0sipari\u015fleri\u00a0deneyiniz…’<\/span>\u00a0TYPE<\/span>\u00a0‘I’<\/span>\u00a0.<\/p>\n

ELSE<\/span>.
\nsiptoplayan\u00a0=\u00a0sip_itab-siptoplayan\u00a0.
\nlokanta\u00a0=\u00a0sip_itab-lokanta\u00a0\u00a0.
\nCONDENSE<\/span>\u00a0sip_itab-id<\/span>\u00a0NO<\/span>-GAPS.
\nsid\u00a0=\u00a0sip_itab-id<\/span>\u00a0.<\/p>\n

CALL<\/span>\u00a0SCREEN<\/span>\u00a00101<\/span>\u00a0.
\nENDIF<\/span>.<\/p>\n

ENDIF<\/span>.<\/p>\n

ENDIF<\/span>.
\nENDCASE<\/span>.<\/p>\n

“alvkontrol-refresh\u00a0=\u00a0‘X’.<\/span><\/p>\n

ENDFORM<\/span>\u00a0.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0“command<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0alvmenukomutusip<\/span>
\n*&———————————————————————*<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0text<\/span>
\n*———————————————————————-*<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0–>ISLEM2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0text<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0–>ALVKONTROLSIP\u00a0\u00a0text<\/span>
\n*———————————————————————-*<\/span>
\nFORM<\/span>\u00a0alvmenukomutusip\u00a0USING<\/span>\u00a0islem2\u00a0LIKE<\/span>\u00a0sy-ucomm\u00a0alvkontrolsip\u00a0TYPE<\/span>
\nslis_selfield.<\/p>\n

IF<\/span>\u00a0sipler_itab-secsip\u00a0=\u00a0‘X’<\/span>\u00a0\u00a0.<\/p>\n

IF<\/span>\u00a0\u00a0sip_itab-siptoplayan\u00a0=\u00a0\u00a0sy-uname\u00a0\u00a0.<\/p>\n

READ<\/span>\u00a0TABLE<\/span>\u00a0\u00a0sipler_itab\u00a0WITH<\/span>\u00a0KEY<\/span>\u00a0secsip\u00a0=\u00a0‘X’<\/span>.
\nIF<\/span>\u00a0\u00a0sy-subrc\u00a0=\u00a00<\/span>\u00a0.
\nssid\u00a0=\u00a0sipler_itab-id<\/span>.
\nCONDENSE<\/span>\u00a0ssid\u00a0NO<\/span>-GAPS.
\nENDIF<\/span>.<\/p>\n

READ<\/span>\u00a0TABLE<\/span>\u00a0\u00a0sipler_itab\u00a0INDEX<\/span>\u00a0alvkontrolsip-tabindex\u00a0.<\/p>\n

siptoplayan\u00a0=\u00a0sip_itab-siptoplayan\u00a0.
\nlokanta\u00a0=\u00a0sip_itab-lokanta\u00a0\u00a0.
\nsiparis\u00a0=\u00a0sip_itab-siparis\u00a0\u00a0.
\nysipveren\u00a0=\u00a0sipler_itab-sipisteyen\u00a0.
\nCALL<\/span>\u00a0\u00a0SCREEN<\/span>\u00a00500<\/span>\u00a0STARTING<\/span>\u00a0AT<\/span>\u00a010<\/span>\u00a010<\/span>\u00a0.<\/p>\n

else<\/span>.<\/p>\n

MESSAGE<\/span>\u00a0‘Bu\u00a0sipari\u015fi,\u00a0Sepeti\u00a0olu\u015fturan\u00a0ki\u015fi\u00a0d\u00fczenliyebilir’<\/span>\u00a0\u00a0TYPE<\/span>\u00a0‘I’<\/span>\u00a0.<\/p>\n

ENDIF<\/span>.<\/p>\n

ENDIF<\/span>.<\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0“alvmenukomutusip<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0FIELCAT_DUZENLE<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0fielcat_duzenle_sip\u00a0.
\nLOOP<\/span>\u00a0AT<\/span>\u00a0gt_fcatsip.<\/p>\n

CASE<\/span>\u00a0gt_fcatsip-fieldname\u00a0.
\nWHEN<\/span>\u00a0‘ID’<\/span>\u00a0.
\ngt_fcatsip-seltext_s\u00a0=\u00a0‘S.NO’<\/span>\u00a0.
\ngt_fcatsip-seltext_m\u00a0=\u00a0‘S\u0130P.NO’<\/span>\u00a0.
\ngt_fcatsip-seltext_l\u00a0=\u00a0‘S\u0130PAR\u0130\u015e\u00a0NO’<\/span>\u00a0.
\ngt_fcatsip-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\n”\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0gt_fcatsip-hotspot\u00a0=\u00a0‘X’\u00a0.<\/span>
\nWHEN<\/span>\u00a0‘SIPVEREN’<\/span>.
\ngt_fcatsip-seltext_s\u00a0=\u00a0‘S.’<\/span>.
\ngt_fcatsip-seltext_m\u00a0=\u00a0‘SIP.VER.’<\/span>.
\ngt_fcatsip-seltext_l\u00a0=\u00a0‘SIPARIS\u00a0VEREN’<\/span>.
\ngt_fcatsip-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘SIPISTEYEN’<\/span>.
\ngt_fcatsip-seltext_s\u00a0=\u00a0‘S.’<\/span>.
\ngt_fcatsip-seltext_m\u00a0=\u00a0‘SIP.IST.’<\/span>.
\ngt_fcatsip-seltext_l\u00a0=\u00a0‘SIPARIS\u00a0ISTEYEN’<\/span>.
\ngt_fcatsip-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘SIPARIS’<\/span>.
\ngt_fcatsip-seltext_s\u00a0=\u00a0‘S.’<\/span>.
\ngt_fcatsip-seltext_m\u00a0=\u00a0‘SIP.’<\/span>.
\ngt_fcatsip-seltext_l\u00a0=\u00a0‘SIPARIS’<\/span>.
\ngt_fcatsip-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘FIYAT’<\/span>.
\ngt_fcatsip-seltext_s\u00a0=\u00a0‘F.’<\/span>.
\ngt_fcatsip-seltext_m\u00a0=\u00a0‘FIY.’<\/span>.
\ngt_fcatsip-seltext_l\u00a0=\u00a0‘FIYAT’<\/span>.
\ngt_fcatsip-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘ODEMETURU’<\/span>.
\ngt_fcatsip-seltext_s\u00a0=\u00a0‘O.’<\/span>.
\ngt_fcatsip-seltext_m\u00a0=\u00a0‘OD.’<\/span>.
\ngt_fcatsip-seltext_l\u00a0=\u00a0‘ODEME’<\/span>.
\ngt_fcatsip-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘SID’<\/span>\u00a0.
\ngt_fcatsip-no_out\u00a0=\u00a0‘X’<\/span>\u00a0.<\/p>\n

ENDCASE<\/span>.
\nMODIFY<\/span>\u00a0gt_fcatsip.
\nENDLOOP<\/span>.
\nENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0FIELCAT_DUZENLE<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0LAYOUT_DUZENLE<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0fielcat_duzenle\u00a0.
\nLOOP<\/span>\u00a0AT<\/span>\u00a0gt_fcat.<\/p>\n

CASE<\/span>\u00a0gt_fcat-fieldname\u00a0.
\nWHEN<\/span>\u00a0‘ID’<\/span>\u00a0.
\ngt_fcat-seltext_s\u00a0=\u00a0‘S.NO’<\/span>\u00a0.
\ngt_fcat-seltext_m\u00a0=\u00a0‘S\u0130P.NO’<\/span>\u00a0.
\ngt_fcat-seltext_l\u00a0=\u00a0‘S\u0130PAR\u0130\u015e\u00a0NO’<\/span>\u00a0.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\ngt_fcat-hotspot<\/span>\u00a0=\u00a0‘X’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘SIPTOPLAYAN’<\/span>.
\ngt_fcat-seltext_s\u00a0=\u00a0‘S.TOP’<\/span>\u00a0.
\ngt_fcat-seltext_m\u00a0=\u00a0‘SIP.TOP.’<\/span>\u00a0.
\ngt_fcat-seltext_l\u00a0=\u00a0‘SIPARIS\u00a0TOPLAYAN’<\/span>\u00a0.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\n“gt_fcat-hotspot\u00a0=\u00a0‘X’\u00a0.<\/span>
\nWHEN<\/span>\u00a0‘TARIH’<\/span>.
\ngt_fcat-seltext_s\u00a0=\u00a0‘T.’<\/span>\u00a0.
\ngt_fcat-seltext_m\u00a0=\u00a0‘TAR.’<\/span>\u00a0.
\ngt_fcat-seltext_l\u00a0=\u00a0‘TARIH’<\/span>\u00a0.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘Pick\u00a0up\u00a0dt’<\/span>.
\ngt_fcat-seltext_s\u00a0=\u00a0‘T.’<\/span>\u00a0.
\ngt_fcat-seltext_m\u00a0=\u00a0‘TAR.’<\/span>\u00a0.
\ngt_fcat-seltext_l\u00a0=\u00a0‘TARIH’<\/span>\u00a0.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘SAAT’<\/span>.
\ngt_fcat-seltext_s\u00a0=\u00a0‘S.’<\/span>\u00a0.
\ngt_fcat-seltext_m\u00a0=\u00a0‘SA.’<\/span>\u00a0.
\ngt_fcat-seltext_l\u00a0=\u00a0‘SAAT’<\/span>\u00a0.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘ENDSAAT’<\/span>.
\ngt_fcat-seltext_s\u00a0=\u00a0‘B.S.’<\/span>\u00a0.
\ngt_fcat-seltext_m\u00a0=\u00a0‘BIT.SA.’<\/span>\u00a0.
\ngt_fcat-seltext_l\u00a0=\u00a0‘BITIS\u00a0SAAT’<\/span>\u00a0.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘LOKANTA’<\/span>.
\ngt_fcat-seltext_s\u00a0=\u00a0‘L.’<\/span>.
\ngt_fcat-seltext_m\u00a0=\u00a0‘LOK.’<\/span>.
\ngt_fcat-seltext_l\u00a0=\u00a0‘LOKANTA’<\/span>.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.<\/p>\n

WHEN<\/span>\u00a0‘SIPARIS’<\/span>.
\ngt_fcat-seltext_s\u00a0=\u00a0‘S.’<\/span>.
\ngt_fcat-seltext_m\u00a0=\u00a0‘SIP.’<\/span>.
\ngt_fcat-seltext_l\u00a0=\u00a0‘SIPARIS’<\/span>.
\ngt_fcat-just\u00a0=\u00a0‘L’<\/span>\u00a0.<\/p>\n

*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0WHEN\u00a0‘DURUM’.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0gt_fcat-seltext_s\u00a0=\u00a0‘S.D.’.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0gt_fcat-seltext_m\u00a0=\u00a0‘S\u0130P.DUR.’.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0gt_fcat-seltext_l\u00a0=\u00a0‘S\u0130PAR\u0130\u015e\u00a0DURUM’.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0gt_fcat-just\u00a0=\u00a0‘L’\u00a0.<\/span><\/p>\n

WHEN<\/span>\u00a0‘DURUM’<\/span>\u00a0.
\ngt_fcat-no_out\u00a0=\u00a0‘X’<\/span>\u00a0.<\/p>\n

ENDCASE<\/span>.
\nMODIFY<\/span>\u00a0gt_fcat.
\nENDLOOP<\/span>.
\nENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0FIELCAT_DUZENLE<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0LAYOUT_DUZENLE<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0layout_duzenle\u00a0.
\ngs_layo-zebra\u00a0=\u00a0‘X’<\/span>\u00a0\u00a0.
\ngs_layo-box_fieldname\u00a0=\u00a0‘SEC’<\/span>.
\nENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0LAYOUT_DUZENLE<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0layout_duzenle_sip<\/span>
\n*&———————————————————————*<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0text<\/span>
\n*———————————————————————-*<\/span>
\nFORM<\/span>\u00a0layout_duzenle_sip\u00a0.
\ngs_layosip-zebra\u00a0=\u00a0‘X’<\/span>\u00a0\u00a0.
\ngs_layosip-box_fieldname\u00a0=\u00a0‘SECSIP’<\/span>.<\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0LAYOUT_DUZENLE<\/span><\/p>\n

*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Module\u00a0\u00a0STATUS_0101\u00a0\u00a0OUTPUT<\/span>
\n*&———————————————————————*<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0text<\/span>
\n*———————————————————————-*<\/span>
\nMODULE<\/span>\u00a0status_0101\u00a0OUTPUT<\/span>.
\nSET<\/span>\u00a0PF-STATUS\u00a0‘BUTONGIRIS’<\/span>.
\n”\u00a0\u00a0SET\u00a0TITLEBAR\u00a0‘GUI2’.<\/span>
\n“GUI<\/span><\/p>\n

ENDMODULE<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0STATUS_0101\u00a0\u00a0OUTPUT<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Module\u00a0\u00a0USER_COMMAND_0101\u00a0\u00a0INPUT<\/span>
\n*&———————————————————————*<\/span>
\nMODULE<\/span>\u00a0user_command_0101\u00a0INPUT<\/span>.<\/p>\n

CASE<\/span>\u00a0sy-ucomm\u00a0.
\nWHEN<\/span>\u00a0‘BACK’<\/span>\u00a0\u00a0OR<\/span>\u00a0‘&F03’<\/span>\u00a0.<\/p>\n

LEAVE<\/span>\u00a0TO<\/span>\u00a0SCREEN<\/span>\u00a00<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘SIPLER’<\/span>\u00a0.
\nLEAVE<\/span>\u00a0TO<\/span>\u00a0SCREEN<\/span>\u00a00<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘SIPKAYDET’<\/span>\u00a0.
\nPERFORM<\/span>\u00a0sipariskaydet\u00a0.
\nENDCASE<\/span>\u00a0.
\nENDMODULE<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0USER_COMMAND_0101\u00a0\u00a0INPUT<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0SIPARISKAYDET<\/span>
\n*&———————————————————————*<\/span>
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0SIPARIS\u00a0KAYDETME\u00a0FONKSIYONU<\/span>
\n*———————————————————————-*<\/span>
\nFORM<\/span>\u00a0sipariskaydet\u00a0.<\/p>\n

DATA<\/span>\u00a0:\u00a0gt_siparis\u00a0LIKE<\/span>\u00a0zyemeksiparis\u00a0OCCURS<\/span>\u00a00<\/span>.
\nDATA<\/span>\u00a0:\u00a0gs_siparis\u00a0LIKE<\/span>\u00a0zyemeksiparis\u00a0.
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0SON\u00a0ID\u00a0ALIYORUZ<\/span>
\n*&———————————————————————*<\/span><\/p>\n

DATA<\/span>\u00a0:\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0itab_sip\u00a0OCCURS<\/span>\u00a00<\/span>\u00a0,
\nid<\/span>\u00a0LIKE<\/span>\u00a0zyemeksiparis-id<\/span>\u00a0,
\nEND<\/span>\u00a0OF<\/span>\u00a0itab_sip\u00a0.
\nDATA<\/span>\u00a0:\u00a0lv_id\u00a0LIKE<\/span>\u00a0zyemeksiparis-id<\/span>\u00a0.<\/p>\n

SELECT<\/span>\u00a0MAX<\/span>(\u00a0id<\/span>\u00a0)\u00a0FROM<\/span>\u00a0zyemeksiparis\u00a0INTO<\/span>\u00a0lv_id\u00a0.<\/p>\n

lv_id\u00a0=\u00a0lv_id\u00a0+\u00a01<\/span>\u00a0.
\nCONDENSE<\/span>\u00a0lv_id\u00a0\u00a0NO<\/span>-GAPS.<\/p>\n

gs_siparis-id<\/span>\u00a0=\u00a0\u00a0lv_id.<\/p>\n

gs_siparis-sipveren\u00a0=\u00a0siptoplayan\u00a0.
\ngs_siparis-sipisteyen\u00a0=\u00a0sy-uname\u00a0.
\ngs_siparis-siparis\u00a0=\u00a0siparis\u00a0.
\ngs_siparis-odemeturu\u00a0=\u00a0otur\u00a0.<\/p>\n

CONDENSE<\/span>\u00a0sid\u00a0NO<\/span>-GAPS.<\/p>\n

gs_siparis-sid\u00a0=\u00a0sid\u00a0.\u00a0”\u00a0sid<\/span><\/p>\n

APPEND<\/span>\u00a0gs_siparis\u00a0TO<\/span>\u00a0gt_siparis.
\nMODIFY<\/span>\u00a0zyemeksiparis\u00a0FROM<\/span>\u00a0TABLE<\/span>\u00a0gt_siparis.
\nCOMMIT<\/span>\u00a0WORK<\/span>\u00a0AND<\/span>\u00a0WAIT<\/span>.\u00a0”\u00a0biraz\u00a0\u00a0bekle<\/span><\/p>\n

MESSAGE<\/span>\u00a0‘Sipari\u015f\u00a0Bilgileri\u00a0Ba\u015far\u0131\u00a0\u0130le\u00a0Kaydedildi…\u00a0‘<\/span>\u00a0TYPE<\/span>\u00a0‘I’<\/span>\u00a0.<\/p>\n

*\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0data_ceksip\u00a0USING\u00a0sid\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0fieldcat_belirle_siparis\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0fielcat_duzenle_sip\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0layout_duzenle_sip\u00a0.<\/span>
\n*\u00a0\u00a0\u00a0\u00a0PERFORM\u00a0alv_goster_sipler\u00a0.<\/span><\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0SIPARISKAYDET<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Module\u00a0\u00a0STATUS_0100\u00a0\u00a0OUTPUT<\/span>
\n*&———————————————————————*<\/span>
\nMODULE<\/span>\u00a0status_0100\u00a0OUTPUT<\/span>.
\nSET<\/span>\u00a0PF-STATUS\u00a0‘BUTONGIRIS’<\/span>.
\n“SET\u00a0PF-STATUS\u00a0‘GUISIP’.<\/span>
\n*\u00a0\u00a0SET\u00a0TITLEBAR\u00a0‘xxx’.<\/span><\/p>\n

ENDMODULE<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0STATUS_0100\u00a0\u00a0OUTPUT<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Module\u00a0\u00a0USER_COMMAND_0100\u00a0\u00a0INPUT<\/span>
\n*&———————————————————————*<\/span><\/p>\n

MODULE<\/span>\u00a0user_command_0100\u00a0INPUT<\/span>.<\/p>\n

CASE<\/span>\u00a0sy-ucomm\u00a0.
\nWHEN<\/span>\u00a0‘BACK’<\/span>\u00a0\u00a0OR<\/span>\u00a0‘&F03’<\/span>\u00a0.
\nLEAVE<\/span>\u00a0TO<\/span>\u00a0SCREEN<\/span>\u00a00<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘YSIPKAYDET’<\/span>\u00a0.
\nPERFORM<\/span>\u00a0siparispaketinikaydet.
\nENDCASE<\/span>\u00a0.<\/p>\n

ENDMODULE<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0USER_COMMAND_0100\u00a0\u00a0INPUT<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0SIPARISPAKETINIKAYDET<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0siparispaketinikaydet\u00a0.<\/p>\n

DATA<\/span>\u00a0:\u00a0gt_ysiparis\u00a0LIKE<\/span>\u00a0zyemeksip\u00a0OCCURS<\/span>\u00a00<\/span>.
\nDATA<\/span>\u00a0:\u00a0gs_ysiparis\u00a0LIKE<\/span>\u00a0zyemeksip\u00a0.
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0SON\u00a0ID\u00a0ALIYORUZ<\/span>
\n*&———————————————————————*<\/span><\/p>\n

DATA<\/span>\u00a0:\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0itab_ysip\u00a0OCCURS<\/span>\u00a00<\/span>\u00a0,
\nid<\/span>\u00a0LIKE<\/span>\u00a0zyemeksip-id<\/span>\u00a0,
\nEND<\/span>\u00a0OF<\/span>\u00a0itab_ysip\u00a0.
\nDATA<\/span>\u00a0:\u00a0lv_yid\u00a0LIKE<\/span>\u00a0zyemeksip-id<\/span>\u00a0.<\/p>\n

SELECT<\/span>\u00a0MAX<\/span>(\u00a0id<\/span>\u00a0)\u00a0FROM<\/span>\u00a0zyemeksip\u00a0\u00a0INTO<\/span>\u00a0lv_yid\u00a0.<\/p>\n

lv_yid\u00a0=\u00a0lv_yid\u00a0+\u00a01<\/span>\u00a0.
\nCONDENSE<\/span>\u00a0lv_yid\u00a0\u00a0NO<\/span>-GAPS.<\/p>\n

gs_ysiparis-id<\/span>\u00a0=\u00a0lv_yid\u00a0.<\/p>\n

gs_ysiparis-siptoplayan\u00a0=\u00a0ysipveren\u00a0.
\ngs_ysiparis-siparis\u00a0=\u00a0ysiparis\u00a0.
\ngs_ysiparis-lokanta\u00a0=\u00a0ylokanta\u00a0.
\ngs_ysiparis-tarih\u00a0=\u00a0sy-datum\u00a0\u00a0.
\ngs_ysiparis-saat\u00a0=\u00a0sy-uzeit\u00a0.<\/p>\n

gs_ysiparis-endsaat\u00a0=\u00a0sy-uzeit\u00a0+\u00a0900<\/span>\u00a0.\u00a0”\u00a015\u00a0dakika\u00a0ekliyoz<\/span>
\ngs_ysiparis-durum\u00a0=\u00a0‘ACIK’<\/span>\u00a0.<\/p>\n

APPEND<\/span>\u00a0gs_ysiparis\u00a0TO<\/span>\u00a0gt_ysiparis.
\nMODIFY<\/span>\u00a0zyemeksip\u00a0FROM<\/span>\u00a0TABLE<\/span>\u00a0gt_ysiparis.<\/p>\n

COMMIT<\/span>\u00a0WORK<\/span>\u00a0AND<\/span>\u00a0WAIT<\/span>.\u00a0”\u00a0biraz\u00a0\u00a0bekle<\/span><\/p>\n

MESSAGE<\/span>\u00a0‘Sipari\u015f\u00a0Bilgileri\u00a0Ba\u015far\u0131\u00a0\u0130le\u00a0Kaydedildi…\u00a0‘<\/span>\u00a0TYPE<\/span>\u00a0‘I’<\/span>\u00a0.<\/p>\n

PERFORM<\/span>\u00a0data_cek.\u00a0”\u00a0YENILEMEK\u00a0ICIN<\/span><\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0SIPARISPAKETINIKAYDET<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0IT_CALISANLAR\u00a0HELP<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0it_calisanlari_getir\u00a0.
\nDATA<\/span>:\u00a0ihelp_fields\u00a0LIKE<\/span>\u00a0help_value\u00a0OCCURS<\/span>
\n0<\/span>\u00a0WITH<\/span>
\nHEADER<\/span>\u00a0LINE<\/span>.
\nDATA<\/span>:\u00a0BEGIN<\/span>\u00a0OF<\/span>\u00a0helptab\u00a0OCCURS<\/span>\u00a0100<\/span>,
\nfeld(80<\/span>),
\nEND<\/span>\u00a0OF<\/span>\u00a0helptab.\u00a0“STANDARTLAR”<\/span><\/p>\n

SELECT<\/span>\u00a0*\u00a0FROM<\/span>\u00a0zit_calisan\u00a0INTO<\/span>\u00a0CORRESPONDING\u00a0FIELDS<\/span>\u00a0OF<\/span>\u00a0TABLE<\/span>\u00a0zit_itab\u00a0.
\nFREE<\/span>\u00a0:\u00a0ihelp_fields,\u00a0helptab.<\/p>\n

ihelp_fields-tabname\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘ZIT_CALISAN’<\/span>.\u00a0”\u00a0Tablonun\u00a0ismi<\/span>
\nihelp_fields-fieldname\u00a0\u00a0\u00a0=\u00a0‘XUBNAME’<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0Tablonun\u00a0alan\u0131<\/span>
\nihelp_fields-selectflag\u00a0\u00a0=\u00a0‘X’<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0Secili\u00a0gelmesi<\/span>
\nAPPEND<\/span>\u00a0ihelp_fields.<\/p>\n

ihelp_fields-tabname\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘ZIT_CALISAN’<\/span>.\u00a0”\u00a0Tablonun\u00a0ismi<\/span>
\nihelp_fields-fieldname\u00a0\u00a0\u00a0=\u00a0‘PARTNER_TXT’<\/span>.\u00a0\u00a0”\u00a0Tablonun\u00a0alan\u0131<\/span>
\nihelp_fields-selectflag\u00a0\u00a0=\u00a0”<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0Secili\u00a0gelmesi<\/span>
\nAPPEND<\/span>\u00a0ihelp_fields.<\/p>\n

LOOP<\/span>\u00a0AT<\/span>\u00a0zit_itab\u00a0.
\nMOVE<\/span>\u00a0zit_itab-xubname\u00a0TO<\/span>\u00a0helptab-feld.\u00a0APPEND<\/span>\u00a0helptab.
\nMOVE<\/span>\u00a0zit_itab-partner_txt\u00a0TO<\/span>\u00a0helptab-feld.\u00a0APPEND<\/span>\u00a0helptab.
\nENDLOOP<\/span>\u00a0.<\/p>\n

CALL<\/span>\u00a0FUNCTION<\/span>\u00a0‘HELP_VALUES_GET_WITH_TABLE’<\/span>
\nEXPORTING<\/span>
\nfieldname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘XUBNAME’<\/span>
\ntabname\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0‘ZIT_CALISAN’<\/span>
\nIMPORTING<\/span>
\nselect_value\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0spveren\u00a0“gv_it<\/span>
\nTABLES<\/span>
\nfields<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0ihelp_fields
\nvaluetab\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a0helptab
\nEXCEPTIONS<\/span>
\nfield_not_in_ddic\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a001<\/span>
\nmore_then_one_selectfield\u00a0=\u00a002<\/span>
\nno_selectfield\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0=\u00a003<\/span>.
\n”\u00a0ITELEMAN\u00a0=\u00a0gv_iteleman.<\/span><\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0F4_P_ADI<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0IT_CALISANLAR\u00a0HELP<\/span>
\n*&———————————————————————*<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Module\u00a0\u00a0USER_COMMAND_0500\u00a0\u00a0INPUT<\/span>
\n*&———————————————————————*<\/span><\/p>\n

MODULE<\/span>\u00a0user_command_0500\u00a0INPUT<\/span>.<\/p>\n

CASE<\/span>\u00a0sy-ucomm\u00a0.
\nWHEN<\/span>\u00a0‘BACK’<\/span>\u00a0\u00a0OR<\/span>\u00a0‘&F03’<\/span>\u00a0.
\nLEAVE<\/span>\u00a0TO<\/span>\u00a0SCREEN<\/span>\u00a00<\/span>\u00a0.
\nWHEN<\/span>\u00a0‘FGUNCEL’<\/span>\u00a0.<\/p>\n

PERFORM<\/span>\u00a0fiyatguncelle\u00a0.
\nPERFORM<\/span>\u00a0data_ceksip\u00a0USING<\/span>\u00a0sid\u00a0.
\nPERFORM<\/span>\u00a0fieldcat_belirle_siparis\u00a0.
\nPERFORM<\/span>\u00a0fielcat_duzenle_sip\u00a0.
\nPERFORM<\/span>\u00a0layout_duzenle_sip\u00a0.
\nPERFORM<\/span>\u00a0alv_goster_sipler\u00a0.<\/p>\n

LEAVE<\/span>\u00a0TO<\/span>\u00a0SCREEN<\/span>\u00a00<\/span>\u00a0.<\/p>\n

WHEN<\/span>\u00a0‘FKAPAT’<\/span>\u00a0.<\/p>\n

LEAVE<\/span>\u00a0TO<\/span>\u00a0SCREEN<\/span>\u00a00<\/span>\u00a0.<\/p>\n

ENDCASE<\/span>\u00a0.
\nENDMODULE<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0USER_COMMAND_0500\u00a0\u00a0INPUT<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Module\u00a0\u00a0STATUS_0500\u00a0\u00a0OUTPUT<\/span>
\n*&———————————————————————*<\/span>
\nMODULE<\/span>\u00a0status_0500\u00a0OUTPUT<\/span>.
\nSET<\/span>\u00a0PF-STATUS\u00a0‘GUIFIYATDUZENLE’<\/span>.
\nSET<\/span>\u00a0TITLEBAR<\/span>\u00a0‘FIYAT\u00a0DUZENLE’<\/span>.<\/p>\n

ENDMODULE<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0STATUS_0500\u00a0\u00a0OUTPUT<\/span>
\n*&———————————————————————*<\/span>
\n*&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Form\u00a0\u00a0FIYATGUNCELLE<\/span>
\n*&———————————————————————*<\/span>
\nFORM<\/span>\u00a0fiyatguncelle\u00a0.<\/p>\n

data<\/span>\u00a0:\u00a0ls_sipler_itab\u00a0type<\/span>\u00a0zyemeksiparis,
\nlt_sipler_itab\u00a0\u00a0LIKE<\/span>\u00a0\u00a0zyemeksiparis\u00a0OCCURS<\/span>\u00a00<\/span>\u00a0WITH<\/span>\u00a0HEADER<\/span>\u00a0LINE<\/span>.<\/p>\n

LOOP<\/span>\u00a0AT<\/span>\u00a0sipler_itab\u00a0WHERE<\/span>\u00a0id<\/span>\u00a0=\u00a0SSID\u00a0\u00a0.
\nMOVE<\/span>-CORRESPONDING\u00a0sipler_itab\u00a0to<\/span>\u00a0ls_sipler_itab\u00a0.
\nls_sipler_itab-FIYAT\u00a0=\u00a0FIYAT\u00a0.
\nAPPEND<\/span>\u00a0ls_sipler_itab\u00a0to<\/span>\u00a0lt_sipler_itab\u00a0.<\/p>\n

ENDLOOP<\/span>\u00a0.<\/p>\n

MODIFY<\/span>\u00a0zyemeksiparis\u00a0\u00a0from<\/span>\u00a0table<\/span>\u00a0lt_sipler_itab\u00a0\u00a0.<\/p>\n

ENDFORM<\/span>.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0”\u00a0FIYATGUNCELLE<\/span><\/p>\n<\/blockquote>\n

\n","protected":false},"excerpt":{"rendered":"

SAP SE\u00a0Abap Yemek sipari\u015f kodu. Y\u0131llar \u00f6nce yaz\u0131lan bir kodu ar\u015fivimi kurcalarken buldum \ud83d\ude42 \u015faka gibi zaman ne \u00e7abuk ge\u00e7mi\u015f. *&———————————————————————* *&\u00a0Report\u00a0\u00a0ZYEMEKSIP *&\u00a0Date\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0:\u00a009.07.2009 *&———————————————————————* *&\u00a0Reseon\u00a0\u00a0\u00a0:\u00a0IT\u00a0yemek\u00a0sipari\u015f\u00a0takip\u00a0program\u0131 *&\u00a0Abap\u00a0Writer\u00a0:\u00a0Burhan\u00a0KARADERE *&\u00a0Copyleft\u00a0\u00ae\u00a02009\u00a0by\u00a0Burhan\u00a0KARADERE *&———————————————————————* REPORT\u00a0\u00a0zyemeksip. TABLES\u00a0:\u00a0zit_calisan\u00a0,\u00a0zyemeksiparis\u00a0. TYPE-POOLS\u00a0:\u00a0slis\u00a0.\u00a0”\u00a0KUTUPHANE TYPE-POOLS:\u00a0vrm.\u00a0”\u00a0LISTBOX\u00a0ICIN ”\u00a0LISTBOX\u00a0ICIN\u00a0DEGISKENLER DATA:\u00a0name\u00a0\u00a0TYPE\u00a0vrm_id, list\u00a0\u00a0TYPE\u00a0vrm_values, value\u00a0LIKE\u00a0LINE\u00a0OF\u00a0list. ”\u00a0LISTBOX\u00a0ICIN\u00a0DEGISKENLER *&———————————————————————* *&\u00a0GLOBAL\u00a0DEGISKENLER *&———————————————————————* DATA\u00a0:\u00a0siparis(50)\u00a0TYPE\u00a0c\u00a0. DATA\u00a0:\u00a0lokanta(30)\u00a0TYPE\u00a0c\u00a0.\u00a0”\u00a0lokanta DATA\u00a0:\u00a0siptoplayan(10)\u00a0TYPE\u00a0c\u00a0.\u00a0“sip\u00a0toplayan DATA\u00a0:\u00a0ysipveren(10)\u00a0TYPE\u00a0c\u00a0.\u00a0”\u00a0sip\u00a0veren DATA\u00a0:\u00a0ylokanta(15)\u00a0TYPE\u00a0c\u00a0.\u00a0“lokanta DATA\u00a0:\u00a0ysiparis(50)\u00a0TYPE\u00a0c\u00a0.\u00a0”\u00a0sipari\u015f DATA\u00a0:\u00a0otur(10)\u00a0TYPE\u00a0c\u00a0.\u00a0”\u00a0\u00f6deme\u00a0t\u00fcr\u00fc DATA\u00a0:\u00a0sid(10)\u00a0TYPE\u00a0c\u00a0.\u00a0”\u00a0siparis\u00a0id DATA\u00a0:\u00a0ssid\u00a0LIKE\u00a0zyemeksiparis-id\u00a0.\u00a0”\u00a0siparis\u00a0detay\u00a0id DATA\u00a0:\u00a0FIYAT(10)\u00a0TYPE\u00a0c\u00a0.\u00a0”\u00a0\u00f6deme\u00a0t\u00fcr\u00fc *&———————————————————————* *&\u00a0GLOBAL\u00a0DEGISKENLER *&———————————————————————* DATA\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0:\u00a0gt_fcat\u00a0\u00a0\u00a0TYPE\u00a0slis_t_fieldcat_alv\u00a0WITH\u00a0HEADER\u00a0LINE\u00a0, ”\u00a0fieldcat […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":"","_links_to":"","_links_to_target":""},"categories":[6],"tags":[395,397,1312,1615,2706,1837,2705],"class_list":["post-5918","post","type-post","status-publish","format-standard","hentry","category-bilisim-it-haber","tag-abap","tag-abapci","tag-kod","tag-ornek","tag-programi","tag-sap","tag-yemek-siparis","has-post-title","has-post-date","has-post-category","has-post-tag","has-post-comment","has-post-author",""],"aioseo_notices":[],"views":2476,"_links":{"self":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts\/5918","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/comments?post=5918"}],"version-history":[{"count":1,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts\/5918\/revisions"}],"predecessor-version":[{"id":5919,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts\/5918\/revisions\/5919"}],"wp:attachment":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/media?parent=5918"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/categories?post=5918"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/tags?post=5918"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}