ZPPH_UPLOAD_PROD_PLAN

REPORT ZPPH_UPLOAD_PROD_PLAN .
**********SELECTION SCREEN*******************************************

SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
PARAMETERS:
AKT AS CHECKBOX DEFAULT 'X',
PLANNAME LIKE RM60X-PBDNR,
FILEPLAN LIKE RLGRAP-FILENAME,
VERSB LIKE B60BL-VERSB DEFAULT '00',
* WERKS LIKE B60BL-WERKS DEFAULT 'GONF',
PNWEEK(2) DEFAULT '14'.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-BL2.
PARAMETERS:
DEAKT AS CHECKBOX,
OLDPLAN LIKE RM60X-PBDNR.
SELECTION-SCREEN END OF BLOCK BL2.
*parameters : p_sim radiobutton group rad1,
* p_run radiobutton group rad1.
data : err.
TABLES:
MARA,
MARC.
*****************************D A T A**********************************
** data
TABLES: PBIM.
DATA: BEG_WEEK LIKE B60ET-EDATU.
DATA: BEGIN OF X60ET OCCURS 1 .
INCLUDE STRUCTURE B60ET.
DATA: END OF X60ET.

DATA: BEGIN OF X60BL OCCURS 1 .
INCLUDE STRUCTURE B60BL.
DATA: END OF X60BL.

DATA: BEGIN OF PROTO OCCURS 1.
INCLUDE STRUCTURE PBMSG.
DATA: END OF PROTO.
** production plan
DATA: BEGIN OF PPLAN OCCURS 0,
MATNR LIKE X60BL-MATNR,
WERKS LIKE X60BL-WERKS,
MATTXT(100),
F1 LIKE X60ET-PLNMG,
F2 LIKE X60ET-PLNMG,
F3 LIKE X60ET-PLNMG,
F4 LIKE X60ET-PLNMG,
F5 LIKE X60ET-PLNMG,
F6 LIKE X60ET-PLNMG,
F7 LIKE X60ET-PLNMG,
F8 LIKE X60ET-PLNMG,
F9 LIKE X60ET-PLNMG,
F10 LIKE X60ET-PLNMG,
F11 LIKE X60ET-PLNMG,
F12 LIKE X60ET-PLNMG,
F13 LIKE X60ET-PLNMG,
F14 LIKE X60ET-PLNMG,
F15 LIKE X60ET-PLNMG,
F16 LIKE X60ET-PLNMG,
F17 LIKE X60ET-PLNMG,
F18 LIKE X60ET-PLNMG,
F19 LIKE X60ET-PLNMG,
F20 LIKE X60ET-PLNMG,
F21 LIKE X60ET-PLNMG,
F22 LIKE X60ET-PLNMG,
F23 LIKE X60ET-PLNMG,
F24 LIKE X60ET-PLNMG,
F25 LIKE X60ET-PLNMG,
F26 LIKE X60ET-PLNMG,
F27 LIKE X60ET-PLNMG,
FFF LIKE X60ET-PLNMG,
END OF PPLAN,
TPLAN LIKE PPLAN.
*************message log
DATA: BEGIN OF MSGLOG OCCURS 10,
MATNR LIKE MARA-MATNR,
WERKS LIKE MSEG-WERKS,
TXT(100),
END OF MSGLOG.
DATA: G_POS(3) VALUE 0.

DATA: BEGIN OF I_STB OCCURS 0.
INCLUDE STRUCTURE STPOX.
DATA: END OF I_STB.



data: WERKS LIKE B60BL-WERKS value 'HNDE' .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILEPLAN.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
STATIC = 'X'
CHANGING
FILE_NAME = FILEPLAN.

END-OF-SELECTION.
IF AKT EQ 'X'.
PERFORM UPLOAD_FILES.
PERFORM CHECK_DATA.
check err is initial.
PERFORM CREATE_PPLAN.
ENDIF.
IF DEAKT EQ 'X'.
PERFORM DEACTIVATE_PLAN.
ENDIF.
PERFORM REPORT_ERRORS.

INCLUDE ZPPH_UPLOAD_PROD_PLAN_INCLUDE.
* INCLUDE ZPP_UPLOAD_PROD_PLAN_INCLUDE.