Hide Z icon not working in 10.3.3?
In my (so far) very limited testing with 10.3.3 it appears the 'Hide the Z icon in the taskbar' directive isn't working. I've tested an XP(sp3) and a Win7(sp1) and according to ZCC, the policy is applying, but the Z icon is showing up in the taskbar for both machines. Anyone else seeing this?
Willmw,
to help engineering prioritize this, can you send me some details please?
Send to spond at novell dot com
Company Name:
Customer Name:
Contact email:
Number of users affected now:
Total users that may be affected:
Production or Test:
Realistic impact on your environment (I need it to be realistic, in case I have to go fight for it):
Shaun Pond
Similar Messages
-
"Full screen" menu item and its keyboard short cut F11 stop working with Acrobat Reader. The Firefox top edge border does not hide once you have moved around in the Acrobat document. Therefore it is not possible to display PDF documents in a true full screen mode within Firefox. The auto-hide full screen mode works nicely with other Firefox windows, so apparently the Acrobat Reader add-on breaks the feature. Windows 7 64-bit.
From the JS API Reference of the print method:
Non-interactive printing can only be executed during batch, console, and menu
events.
Outside of batch, console, and menu events, the values of bUI and of interactive are ignored
and a print dialog box will always be presented. -
Hi All,
I have developed a program to display two alv reports. The program when executed displays the first report and on the click of a push button it wud display the second report. The standard icons are all working in the first report but few icons like print, local file save are not working in the second screen. Can anyone help me on this?
REPORT ZMY20FCORD MESSAGE-ID 8I.
ALV
TYPE-POOLS: SLIS.
DATA: TXT_REPORT LIKE DOKHL-OBJECT. "Reportname für Erläuterungsaufruf
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
GT_EVENTS TYPE SLIS_T_EVENT,
GT_SORT TYPE SLIS_T_SORTINFO_ALV,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
TABLES ABAP Internal Table definitions
TABLES : T001, T001W, T005, TVST, ZMY20PROD, ZMY20WKFC, TVKO, ZMY20RMRK,
ZMY20FCVER, ZMY20GP, VBAK, VBAP, VBEP, VBPA, KNA1.
INTERNAL TABLES (i_): ABAP Internal Internal Table definitions
DATA: I_ZMY20WKFC LIKE ZMY20WKFC OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_VBAK OCCURS 0,
VBELN LIKE VBAK-VBELN,
KUNNR LIKE VBAK-KUNNR, " Sold-to-Party
END OF I_VBAK.
DATA: BEGIN OF I_ORDER OCCURS 0,
VBELN LIKE VBAK-VBELN,
POSNR LIKE VBAP-POSNR,
ETENR LIKE VBEP-ETENR,
KUNNR LIKE VBAK-KUNNR, " Sold-to-Party
MATNR LIKE VBAP-MATNR,
WERKS LIKE VBAP-WERKS,
VSTEL LIKE VBAP-VSTEL,
WMENG LIKE VBEP-WMENG,
VRKME LIKE VBEP-VRKME,
LDDAT LIKE VBEP-LDDAT,
SHIPTO LIKE VBPA-KUNNR,
SOLDCN LIKE KNA1-LAND1,
SHIPCN LIKE KNA1-LAND1,
PRODUCT LIKE ZMY20PROD-PRODUCT,
STCSTP LIKE ZMY20WKFC-STCSTP,
SPMON LIKE ZMY20WKFC-SPMON,
WEEK LIKE SCAL-WEEK,
UPDFLG(1) TYPE C,
END OF I_ORDER.
DATA: BEGIN OF I_SHIPTO OCCURS 0,
CUSTOMER(20) TYPE C,
SHIPTO LIKE VBPA-KUNNR,
END OF I_SHIPTO.
DATA: BEGIN OF I_OUTPUT OCCURS 0,
SORTKEY(1) TYPE C,
STCSTP LIKE ZMY20WKFC-STCSTP,
WERKS LIKE ZMY20WKFC-WERKS,
SHPPOINT LIKE ZMY20WKFC-SHPPOINT,
PRODUCT LIKE ZMY20WKFC-PRODUCT,
MAKTX LIKE ZMY20PROD-MAKTX,
QTY01 LIKE ZMY20WKFC-QTY01,
ORD01 LIKE ZMY20WKFC-QTY01,
QTY02 LIKE ZMY20WKFC-QTY01,
ORD02 LIKE ZMY20WKFC-QTY01,
QTY03 LIKE ZMY20WKFC-QTY01,
ORD03 LIKE ZMY20WKFC-QTY01,
QTY04 LIKE ZMY20WKFC-QTY01,
ORD04 LIKE ZMY20WKFC-QTY01,
QTY05 LIKE ZMY20WKFC-QTY01,
ORD05 LIKE ZMY20WKFC-QTY01,
QTY06 LIKE ZMY20WKFC-QTY01,
ORD06 LIKE ZMY20WKFC-QTY01,
TOTFC1 LIKE ZMY20WKFC-QTY01,
TOTORD1 LIKE ZMY20WKFC-QTY01,
FCORD1(5) TYPE P DECIMALS 2,
QTY07 LIKE ZMY20WKFC-QTY01,
ORD07 LIKE ZMY20WKFC-QTY01,
QTY08 LIKE ZMY20WKFC-QTY01,
ORD08 LIKE ZMY20WKFC-QTY01,
QTY09 LIKE ZMY20WKFC-QTY01,
ORD09 LIKE ZMY20WKFC-QTY01,
QTY10 LIKE ZMY20WKFC-QTY01,
ORD10 LIKE ZMY20WKFC-QTY01,
QTY11 LIKE ZMY20WKFC-QTY01,
ORD11 LIKE ZMY20WKFC-QTY01,
QTY12 LIKE ZMY20WKFC-QTY01,
ORD12 LIKE ZMY20WKFC-QTY01,
TOTFC2 LIKE ZMY20WKFC-QTY01,
TOTORD2 LIKE ZMY20WKFC-QTY01,
FCORD2(5) TYPE P DECIMALS 2,
CELLCOLOR TYPE SLIS_T_SPECIALCOL_ALV,
DUMMY(1) TYPE C,
END OF I_OUTPUT.
DATA: I_COLOUR TYPE LVC_T_SCOL WITH HEADER LINE.
DATA: BEGIN OF I_PRDWISE OCCURS 0,
SORTKEY(1) TYPE C,
STCSTP LIKE ZMY20WKFC-STCSTP,
PRODUCT LIKE ZMY20WKFC-PRODUCT,
MAKTX LIKE ZMY20PROD-MAKTX,
TOTFC1 LIKE ZMY20WKFC-QTY01,
TOTORD1 LIKE ZMY20WKFC-QTY01,
FCORD1(5) TYPE P DECIMALS 2,
DIFF1 LIKE ZMY20WKFC-QTY01,
TOTFC2 LIKE ZMY20WKFC-QTY01,
TOTORD2 LIKE ZMY20WKFC-QTY01,
FCORD2(5) TYPE P DECIMALS 2,
DIFF2 LIKE ZMY20WKFC-QTY01,
END OF I_PRDWISE.
DATA: BEGIN OF I_TVST OCCURS 0,
VSTEL LIKE TVST-VSTEL,
END OF I_TVST.
DATA: BEGIN OF T_STCP OCCURS 0,
SORTKEY(1) TYPE C,
STCSTP LIKE ZMY20WKFC-STCSTP,
END OF T_STCP.
DATA: BEGIN OF T_PROD OCCURS 0,
PRODUCT LIKE ZMY20PROD-PRODUCT,
MAKTX LIKE ZMY20PROD-MAKTX,
END OF T_PROD.
DATA: BEGIN OF T_USER OCCURS 0,
UNAME LIKE SY-UNAME,
END OF T_USER.
DATA: I_FIELDS LIKE SVAL OCCURS 0 WITH HEADER LINE.
VARIABLES (v_): ABAP Internal Variables definitions
DATA : V_ENDMTH LIKE S125-SPMON,
V_STRDT1 LIKE SY-DATUM,
V_STRDT2 LIKE SY-DATUM,
V_ENDDT1 LIKE SY-DATUM,
V_ENDDT2 LIKE SY-DATUM,
V_STRWK1 LIKE SCAL-WEEK,
V_STRWK2 LIKE SCAL-WEEK,
V_ENDWK1 LIKE SCAL-WEEK,
V_ENDWK2 LIKE SCAL-WEEK,
V_STRMTH LIKE S125-SPMON. " Only for Report Header
DATA : BEGIN OF I_WEEKS OCCURS 0,
SLNO TYPE I,
WEEKS LIKE SCAL-WEEK,
MONTH(2) TYPE C,
HDRWK(13) TYPE C,
END OF I_WEEKS.
DATA : V_TABIX LIKE SY-TABIX,
V_VERSN LIKE ZMY20WKFC-VERSN,
V_VKORG LIKE TVKO-VKORG.
DATA : V_REMARK1 LIKE ZMY20RMRK-REMARK1,
V_REMARK2 LIKE ZMY20RMRK-REMARK2,
V_RETCODE TYPE C,
V_FNAME(30) TYPE C,
V_UPDFLAG(1) TYPE C.
WORKING VARIABLES (w_): ABAP Internal Working Variables definitions
DATA: W_TOT(5) TYPE N,
W_SLNO TYPE I.
DATA: W_WEEKS LIKE SCAL-WEEK.
DATA: W_WKHDR01(13) TYPE C,
W_WKHDR02(13) TYPE C,
W_WKHDR03(13) TYPE C,
W_WKHDR04(13) TYPE C,
W_WKHDR05(13) TYPE C,
W_WKHDR06(13) TYPE C,
W_WKHDR07(13) TYPE C,
W_WKHDR08(13) TYPE C,
W_WKHDR09(13) TYPE C,
W_WKHDR10(13) TYPE C,
W_WKHDR11(13) TYPE C,
W_WKHDR12(13) TYPE C.
DATA: W_FCHDR01(13) TYPE C,
W_FCHDR02(13) TYPE C,
W_FCHDR03(13) TYPE C,
W_FCHDR04(13) TYPE C,
W_FCHDR05(13) TYPE C,
W_FCHDR06(13) TYPE C,
W_FCHDR07(13) TYPE C,
W_FCHDR08(13) TYPE C,
W_FCHDR09(13) TYPE C,
W_FCHDR10(13) TYPE C,
W_FCHDR11(13) TYPE C,
W_FCHDR12(13) TYPE C,
W_FCHDRT1(13) TYPE C,
W_FCHDRT2(13) TYPE C,
W_ORHDR01(13) TYPE C,
W_ORHDR02(13) TYPE C,
W_ORHDR03(13) TYPE C,
W_ORHDR04(13) TYPE C,
W_ORHDR05(13) TYPE C,
W_ORHDR06(13) TYPE C,
W_ORHDR07(13) TYPE C,
W_ORHDR08(13) TYPE C,
W_ORHDR09(13) TYPE C,
W_ORHDR10(13) TYPE C,
W_ORHDR11(13) TYPE C,
W_ORHDR12(13) TYPE C,
W_ORHDRT1(13) TYPE C,
W_ORHDRT2(13) TYPE C,
W_HDR%1(13) TYPE C,
W_HDR%2(13) TYPE C,
W_DIFF1(13) TYPE C,
W_DIFF2(13) TYPE C.
DATA: W_WKTBL01 LIKE SCAL-WEEK,
W_WKTBL02 LIKE SCAL-WEEK,
W_WKTBL03 LIKE SCAL-WEEK,
W_WKTBL04 LIKE SCAL-WEEK,
W_WKTBL05 LIKE SCAL-WEEK,
W_WKTBL06 LIKE SCAL-WEEK,
W_WKTBL07 LIKE SCAL-WEEK,
W_WKTBL08 LIKE SCAL-WEEK,
W_WKTBL09 LIKE SCAL-WEEK,
W_WKTBL10 LIKE SCAL-WEEK,
W_WKTBL11 LIKE SCAL-WEEK,
W_WKTBL12 LIKE SCAL-WEEK.
DATA: W_SHIPTO LIKE VBPA-KUNNR,
W_SOLDCN LIKE KNA1-LAND1,
W_SHIPCN LIKE KNA1-LAND1,
W_PRODUCT LIKE ZMY20PROD-PRODUCT.
DATA: W_ORD01 LIKE ZMY20WKFC-QTY01,
W_ORD02 LIKE ZMY20WKFC-QTY01,
W_ORD03 LIKE ZMY20WKFC-QTY01,
W_ORD04 LIKE ZMY20WKFC-QTY01,
W_ORD05 LIKE ZMY20WKFC-QTY01,
W_ORD06 LIKE ZMY20WKFC-QTY01,
W_ORD07 LIKE ZMY20WKFC-QTY01,
W_ORD08 LIKE ZMY20WKFC-QTY01,
W_ORD09 LIKE ZMY20WKFC-QTY01,
W_ORD10 LIKE ZMY20WKFC-QTY01,
W_ORD11 LIKE ZMY20WKFC-QTY01,
W_ORD12 LIKE ZMY20WKFC-QTY01,
W_ORDT1 LIKE ZMY20WKFC-QTY01,
W_ORDT2 LIKE ZMY20WKFC-QTY01.
SELECTION SCREEN DATA : ABAP Internal Select Options&Parameters
SELECT-OPTIONS (s_) definitions
PARAMETERS (p_)
SELECTION-SCREEN BEGIN OF BLOCK MYSEL1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_BUKRS LIKE T001-BUKRS OBLIGATORY DEFAULT 'MY20',
P_STRMTH LIKE S125-SPMON OBLIGATORY DEFAULT '200608'.
SELECT-OPTIONS : S_STCSTP FOR ZMY20WKFC-STCSTP,
S_WERKS FOR T001W-WERKS,
S_PROD FOR ZMY20PROD-PRODUCT,
S_SHP FOR VBAP-VSTEL.
SELECTION-SCREEN END OF BLOCK MYSEL1.
SELECTION-SCREEN BEGIN OF BLOCK MYSEL2 WITH FRAME.
PARAMETER : P_ZERO AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK MYSEL2.
AT SELECTION-SCREEN
Begin of Addition by T.Karthikeyan - UIS on 18/01/2007 - Req No - BA3K986971
AT SELECTION-SCREEN ON P_BUKRS.
AUTHORITY-CHECK OBJECT 'Z_BASF_SD'
ID 'BUKRS' FIELD P_BUKRS
ID 'VKORG' DUMMY
ID 'ZZ_UB' DUMMY
ID 'ZZ_SBU' DUMMY
ID 'WERKS' DUMMY
ID 'ZZ_PROG' FIELD SY-CPROG.
IF SY-SUBRC NE 0.
MESSAGE ID 'SD' TYPE 'E' NUMBER '836' WITH
TEXT-E02 SY-CPROG.
RETURN.
ENDIF.
End of Addition by T.Karthikeyan - UIS on 18/01/2007 - Req No - BA3K986971
At selection screen F4 help
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_STCSTP-LOW.
PERFORM F4_HELP_STCSTP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_STCSTP-HIGH.
PERFORM F4_HELP_STCSTP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_PROD-LOW.
PERFORM F4_HELP_PRODUCT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_PROD-HIGH.
PERFORM F4_HELP_PRODUCT.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM 1000_GET_WEEK_DETAILS.
PERFORM 1500_GET_SHIPTO_CUSTOMER.
PERFORM 2000_GET_FORECAST_DATA.
PERFORM 3000_GET_ORDER_DATA.
PERFORM 4000_CONSOLIDATE_DATA.
END-OF-SELECTION
END-OF-SELECTION.
REFRESH : GT_FIELDCAT, GT_LIST_TOP_OF_PAGE, GT_EVENTS, GT_SORT.
PERFORM FIELDCAT_INIT USING GT_FIELDCAT[].
PERFORM LAYOUT_INIT USING GS_LAYOUT.
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
PERFORM SORT_BUILD USING GT_SORT[].
PERFORM MAIN.
*& Form 1000_GET_WEEK_DETAILS
text
--> p1 text
<-- p2 text
FORM 1000_GET_WEEK_DETAILS .
REFRESH : I_WEEKS.
V_STRMTH = P_STRMTH.
V_ENDMTH = P_STRMTH + 1.
IF V_ENDMTH+4(2) GT '12'.
MOVE '01' TO V_ENDMTH+4(2).
ADD 1 TO V_ENDMTH+0(4).
ENDIF.
CONCATENATE P_STRMTH0(4) P_STRMTH4(2) '01' INTO V_STRDT1.
CONCATENATE V_ENDMTH0(4) V_ENDMTH4(2) '01' INTO V_ENDDT1.
CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
EXPORTING
I_DATE = V_STRDT1
IMPORTING
E_DATE = V_STRDT2.
CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
EXPORTING
I_DATE = V_ENDDT1
IMPORTING
E_DATE = V_ENDDT2.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = V_STRDT1
IMPORTING
WEEK = V_STRWK1.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = V_STRDT2
IMPORTING
WEEK = V_STRWK2.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = V_ENDDT1
IMPORTING
WEEK = V_ENDWK1.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = V_ENDDT2
IMPORTING
WEEK = V_ENDWK2.
CLEAR : W_WEEKS, W_SLNO.
MOVE V_STRWK1 TO W_WEEKS.
MOVE '1' TO W_SLNO.
DO.
CLEAR : I_WEEKS.
MOVE W_SLNO TO I_WEEKS-SLNO.
MOVE W_WEEKS TO I_WEEKS-WEEKS.
MOVE P_STRMTH+4(2) TO I_WEEKS-MONTH.
CONCATENATE I_WEEKS-MONTH '-' W_WEEKS+4(2) INTO I_WEEKS-HDRWK.
APPEND I_WEEKS.
ADD 1 TO W_SLNO.
CALL FUNCTION 'NEXT_WEEK'
EXPORTING
CURRENT_WEEK = W_WEEKS
IMPORTING
NEXT_WEEK = W_WEEKS.
IF W_WEEKS GT V_STRWK2.
EXIT.
ENDIF.
ENDDO.
CLEAR : W_WEEKS, W_SLNO.
MOVE V_ENDWK1 TO W_WEEKS.
MOVE '7' TO W_SLNO.
DO.
CLEAR : I_WEEKS.
MOVE W_SLNO TO I_WEEKS-SLNO.
MOVE W_WEEKS TO I_WEEKS-WEEKS.
MOVE V_ENDMTH+4(2) TO I_WEEKS-MONTH.
CONCATENATE I_WEEKS-MONTH '-' W_WEEKS+4(2) INTO I_WEEKS-HDRWK.
APPEND I_WEEKS.
ADD 1 TO W_SLNO.
CALL FUNCTION 'NEXT_WEEK'
EXPORTING
CURRENT_WEEK = W_WEEKS
IMPORTING
NEXT_WEEK = W_WEEKS.
IF W_WEEKS GT V_ENDWK2.
EXIT.
ENDIF.
ENDDO.
LOOP AT I_WEEKS.
IF I_WEEKS-SLNO = '1'.
MOVE I_WEEKS-HDRWK TO W_WKHDR01.
MOVE I_WEEKS-WEEKS TO W_WKTBL01.
ELSEIF I_WEEKS-SLNO = '2'.
MOVE I_WEEKS-HDRWK TO W_WKHDR02.
MOVE I_WEEKS-WEEKS TO W_WKTBL02.
ELSEIF I_WEEKS-SLNO = '3'.
MOVE I_WEEKS-HDRWK TO W_WKHDR03.
MOVE I_WEEKS-WEEKS TO W_WKTBL03.
ELSEIF I_WEEKS-SLNO = '4'.
MOVE I_WEEKS-HDRWK TO W_WKHDR04.
MOVE I_WEEKS-WEEKS TO W_WKTBL04.
ELSEIF I_WEEKS-SLNO = '5'.
MOVE I_WEEKS-HDRWK TO W_WKHDR05.
MOVE I_WEEKS-WEEKS TO W_WKTBL05.
ELSEIF I_WEEKS-SLNO = '6'.
MOVE I_WEEKS-HDRWK TO W_WKHDR06.
MOVE I_WEEKS-WEEKS TO W_WKTBL06.
ELSEIF I_WEEKS-SLNO = '7'.
MOVE I_WEEKS-HDRWK TO W_WKHDR07.
MOVE I_WEEKS-WEEKS TO W_WKTBL07.
ELSEIF I_WEEKS-SLNO = '8'.
MOVE I_WEEKS-HDRWK TO W_WKHDR08.
MOVE I_WEEKS-WEEKS TO W_WKTBL08.
ELSEIF I_WEEKS-SLNO = '9'.
MOVE I_WEEKS-HDRWK TO W_WKHDR09.
MOVE I_WEEKS-WEEKS TO W_WKTBL09.
ELSEIF I_WEEKS-SLNO = '10'.
MOVE I_WEEKS-HDRWK TO W_WKHDR10.
MOVE I_WEEKS-WEEKS TO W_WKTBL10.
ELSEIF I_WEEKS-SLNO = '11'.
MOVE I_WEEKS-HDRWK TO W_WKHDR11.
MOVE I_WEEKS-WEEKS TO W_WKTBL11.
ELSEIF I_WEEKS-SLNO = '12'.
MOVE I_WEEKS-HDRWK TO W_WKHDR12.
MOVE I_WEEKS-WEEKS TO W_WKTBL12.
ENDIF.
ENDLOOP.
CONCATENATE W_WKHDR01 'F' INTO W_FCHDR01.
CONCATENATE W_WKHDR02 'F' INTO W_FCHDR02.
CONCATENATE W_WKHDR03 'F' INTO W_FCHDR03.
CONCATENATE W_WKHDR04 'F' INTO W_FCHDR04.
CONCATENATE W_WKHDR05 'F' INTO W_FCHDR05.
CONCATENATE W_WKHDR06 'F' INTO W_FCHDR06.
CONCATENATE W_WKHDR07 'F' INTO W_FCHDR07.
CONCATENATE W_WKHDR08 'F' INTO W_FCHDR08.
CONCATENATE W_WKHDR09 'F' INTO W_FCHDR09.
CONCATENATE W_WKHDR10 'F' INTO W_FCHDR10.
CONCATENATE W_WKHDR11 'F' INTO W_FCHDR11.
CONCATENATE W_WKHDR12 'F' INTO W_FCHDR12.
CONCATENATE W_WKHDR01 'O' INTO W_ORHDR01.
CONCATENATE W_WKHDR02 'O' INTO W_ORHDR02.
CONCATENATE W_WKHDR03 'O' INTO W_ORHDR03.
CONCATENATE W_WKHDR04 'O' INTO W_ORHDR04.
CONCATENATE W_WKHDR05 'O' INTO W_ORHDR05.
CONCATENATE W_WKHDR06 'O' INTO W_ORHDR06.
CONCATENATE W_WKHDR07 'O' INTO W_ORHDR07.
CONCATENATE W_WKHDR08 'O' INTO W_ORHDR08.
CONCATENATE W_WKHDR09 'O' INTO W_ORHDR09.
CONCATENATE W_WKHDR10 'O' INTO W_ORHDR10.
CONCATENATE W_WKHDR11 'O' INTO W_ORHDR11.
CONCATENATE W_WKHDR12 'O' INTO W_ORHDR12.
CONCATENATE P_STRMTH4(2) '/' P_STRMTH0(4) 'F-TOT' INTO W_FCHDRT1.
CONCATENATE V_ENDMTH4(2) '/' V_ENDMTH0(4) 'F-TOT' INTO W_FCHDRT2.
CONCATENATE P_STRMTH4(2) '/' P_STRMTH0(4) 'O-TOT' INTO W_ORHDRT1.
CONCATENATE V_ENDMTH4(2) '/' V_ENDMTH0(4) 'O-TOT' INTO W_ORHDRT2.
CONCATENATE P_STRMTH4(2) '/' P_STRMTH0(4) '-%' INTO W_HDR%1.
CONCATENATE V_ENDMTH4(2) '/' V_ENDMTH0(4) '-%' INTO W_HDR%2.
CONCATENATE P_STRMTH4(2) '/' P_STRMTH0(4) '-DIFF' INTO W_DIFF1.
CONCATENATE V_ENDMTH4(2) '/' V_ENDMTH0(4) '-DIFF' INTO W_DIFF2.
ENDFORM. " 1000_GET_WEEK_DETAILS
*& Form 1500_GET_SHIPTO_CUSTOMER
text
--> p1 text
<-- p2 text
FORM 1500_GET_SHIPTO_CUSTOMER .
REFRESH : I_SHIPTO.
SELECT * FROM ZMY20GP WHERE ZZKEY1 = 'ZMY20FCUP'
AND ZZKEY3 = 'SHIPTOCUST'.
CLEAR : I_SHIPTO.
MOVE ZMY20GP-ZZKEY2 TO I_SHIPTO-CUSTOMER.
IF ZMY20GP-ZZVAL1 NE SPACE.
MOVE ZMY20GP-ZZVAL1+0(10) TO I_SHIPTO-SHIPTO.
APPEND I_SHIPTO.
ENDIF.
IF ZMY20GP-ZZVAL2 NE SPACE.
MOVE ZMY20GP-ZZVAL2+0(10) TO I_SHIPTO-SHIPTO.
APPEND I_SHIPTO.
ENDIF.
IF ZMY20GP-ZZVAL3 NE SPACE.
MOVE ZMY20GP-ZZVAL3+0(10) TO I_SHIPTO-SHIPTO.
APPEND I_SHIPTO.
ENDIF.
IF ZMY20GP-ZZVAL4 NE SPACE.
MOVE ZMY20GP-ZZVAL4+0(10) TO I_SHIPTO-SHIPTO.
APPEND I_SHIPTO.
ENDIF.
ENDSELECT.
PERFORM GET_REMARKENTRY_USER.
ENDFORM. " 1500_GET_SHIPTO_CUSTOMER
*& Form 2000_GET_FORECAST_DATA
text
--> p1 text
<-- p2 text
FORM 2000_GET_FORECAST_DATA .
Get the Forecast data for the give input
REFRESH : I_ZMY20WKFC.
SELECT * INTO CORRESPONDING FIELDS OF TABLE I_ZMY20WKFC FROM ZMY20WKFC
WHERE BUKRS EQ P_BUKRS
AND STCSTP IN S_STCSTP
AND WERKS IN S_WERKS
AND PRODUCT IN S_PROD
AND SHPPOINT IN S_SHP
AND SPMON GE P_STRMTH
AND SPMON LE V_ENDMTH.
Filter the final version of the forecast data
LOOP AT I_ZMY20WKFC.
V_TABIX = SY-TABIX.
SELECT SINGLE VERSN INTO V_VERSN FROM ZMY20FCVER
WHERE BUKRS EQ I_ZMY20WKFC-BUKRS
AND STCSTP EQ I_ZMY20WKFC-STCSTP
AND WERKS EQ I_ZMY20WKFC-WERKS
AND SPMON EQ I_ZMY20WKFC-SPMON.
IF I_ZMY20WKFC-VERSN EQ V_VERSN.
ELSE.
DELETE I_ZMY20WKFC INDEX V_TABIX.
ENDIF.
ENDLOOP.
ENDFORM. " 2000_GET_FORECAST_DATA
*& Form 3000_GET_ORDER_DATA
text
--> p1 text
<-- p2 text
FORM 3000_GET_ORDER_DATA .
REFRESH : I_VBAK, I_ORDER.
CLEAR : V_VKORG.
SELECT SINGLE VKORG INTO V_VKORG FROM TVKO WHERE BUKRS EQ P_BUKRS.
SELECT VBELN KUNNR INTO CORRESPONDING FIELDS OF TABLE I_VBAK FROM VBAK
WHERE VKORG EQ V_VKORG
AND AUART EQ 'TA' "Type OR
AND BUKRS_VF EQ P_BUKRS.
SORT I_VBAK BY VBELN.
LOOP AT I_VBAK.
CLEAR : W_SHIPTO, W_SOLDCN, W_SHIPCN.
SELECT SINGLE KUNNR INTO W_SHIPTO FROM VBPA WHERE VBELN EQ I_VBAK-VBELN
AND PARVW EQ 'WE'.
SELECT SINGLE LAND1 INTO W_SOLDCN FROM KNA1 WHERE KUNNR EQ I_VBAK-KUNNR.
SELECT SINGLE LAND1 INTO W_SHIPCN FROM KNA1 WHERE KUNNR EQ W_SHIPTO.
SELECT * FROM VBAP WHERE VBELN EQ I_VBAK-VBELN AND WERKS IN S_WERKS
AND ABGRU EQ SPACE
AND VSTEL IN S_SHP.
CLEAR : W_PRODUCT.
SELECT SINGLE PRODUCT INTO W_PRODUCT FROM ZMY20PROD WHERE SAPMATL EQ VBAP-MATNR.
SELECT * FROM VBEP WHERE VBELN EQ I_VBAK-VBELN
AND POSNR EQ VBAP-POSNR
AND LDDAT GE V_STRDT1
AND LDDAT LE V_ENDDT2
AND WMENG GT 0.
CLEAR : I_ORDER.
MOVE I_VBAK-VBELN TO I_ORDER-VBELN.
MOVE I_VBAK-KUNNR TO I_ORDER-KUNNR.
MOVE W_SHIPTO TO I_ORDER-SHIPTO.
MOVE W_SOLDCN TO I_ORDER-SOLDCN.
MOVE VBAP-POSNR TO I_ORDER-POSNR.
MOVE VBAP-MATNR TO I_ORDER-MATNR.
MOVE VBAP-WERKS TO I_ORDER-WERKS.
MOVE VBAP-VSTEL TO I_ORDER-VSTEL.
MOVE W_PRODUCT TO I_ORDER-PRODUCT.
MOVE VBEP-ETENR TO I_ORDER-ETENR.
MOVE VBEP-LDDAT+0(6) TO I_ORDER-SPMON.
MOVE VBEP-WMENG TO I_ORDER-WMENG.
MOVE VBEP-VRKME TO I_ORDER-VRKME.
MOVE VBEP-LDDAT TO I_ORDER-LDDAT.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = VBEP-LDDAT
IMPORTING
WEEK = I_ORDER-WEEK.
READ TABLE I_SHIPTO WITH KEY SHIPTO = I_ORDER-SHIPTO.
IF SY-SUBRC EQ 0.
MOVE I_SHIPTO-CUSTOMER TO I_ORDER-STCSTP.
ELSE.
MOVE I_ORDER-SOLDCN TO I_ORDER-STCSTP.
ENDIF.
IF W_SOLDCN = 'CN' OR W_SOLDCN = 'HK'.
MOVE 'CN&HK' TO I_ORDER-STCSTP.
ENDIF.
IF I_ORDER-STCSTP IN S_STCSTP AND I_ORDER-PRODUCT IN S_PROD.
APPEND I_ORDER.
ENDIF.
ENDSELECT.
ENDSELECT.
ENDLOOP.
ENDFORM. " 3000_GET_ORDER_DATA
*& Form 4000_CONSOLIDATE_DATA
text
--> p1 text
<-- p2 text
FORM 4000_CONSOLIDATE_DATA .
REFRESH : I_OUTPUT, I_PRDWISE.
LOOP AT I_ZMY20WKFC.
CLEAR : W_ORD01, W_ORD02, W_ORD03, W_ORD04, W_ORD05, W_ORD06,
W_ORD07, W_ORD08, W_ORD09, W_ORD10, W_ORD11, W_ORD12,
W_ORDT1, W_ORDT2.
LOOP AT I_ORDER WHERE STCSTP EQ I_ZMY20WKFC-STCSTP
AND WERKS EQ I_ZMY20WKFC-WERKS
AND PRODUCT EQ I_ZMY20WKFC-PRODUCT
AND SPMON EQ I_ZMY20WKFC-SPMON.
*BEGIN OF CHANGES BY FAIZAL ON 26/01/07 TR# BA3K987278
IF I_ORDER-VSTEL CA I_ZMY20WKFC-SHPPOINT.
IF I_ZMY20WKFC-SHPPOINT CS I_ORDER-VSTEL.
*END OF CHANGES BY FAIZAL ON 26/01/2007 TR# BA3K987278
ELSE.
CONTINUE.
ENDIF.
IF I_ORDER-SPMON EQ P_STRMTH.
IF I_ORDER-WEEK EQ W_WKTBL01.
W_ORD01 = W_ORD01 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL02.
W_ORD02 = W_ORD02 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL03.
W_ORD03 = W_ORD03 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL04.
W_ORD04 = W_ORD04 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL05.
W_ORD05 = W_ORD05 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL06.
W_ORD06 = W_ORD06 + I_ORDER-WMENG.
ENDIF.
W_ORDT1 = W_ORDT1 + I_ORDER-WMENG.
ELSE.
IF I_ORDER-WEEK EQ W_WKTBL07.
W_ORD07 = W_ORD07 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL08.
W_ORD08 = W_ORD08 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL09.
W_ORD09 = W_ORD09 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL10.
W_ORD10 = W_ORD10 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL11.
W_ORD11 = W_ORD11 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL12.
W_ORD12 = W_ORD12 + I_ORDER-WMENG.
ENDIF.
W_ORDT2 = W_ORDT2 + I_ORDER-WMENG.
ENDIF.
MOVE 'X' TO I_ORDER-UPDFLG.
MODIFY I_ORDER INDEX SY-TABIX.
ENDLOOP.
READ TABLE I_OUTPUT WITH KEY STCSTP = I_ZMY20WKFC-STCSTP
WERKS = I_ZMY20WKFC-WERKS
PRODUCT = I_ZMY20WKFC-PRODUCT
SHPPOINT = I_ZMY20WKFC-SHPPOINT.
IF SY-SUBRC EQ 0.
IF I_ZMY20WKFC-SPMON EQ P_STRMTH.
MOVE I_ZMY20WKFC-QTY01 TO I_OUTPUT-QTY01.
MOVE I_ZMY20WKFC-QTY02 TO I_OUTPUT-QTY02.
MOVE I_ZMY20WKFC-QTY03 TO I_OUTPUT-QTY03.
MOVE I_ZMY20WKFC-QTY04 TO I_OUTPUT-QTY04.
MOVE I_ZMY20WKFC-QTY05 TO I_OUTPUT-QTY05.
MOVE I_ZMY20WKFC-QTY06 TO I_OUTPUT-QTY06.
MOVE I_ZMY20WKFC-TOTQTY TO I_OUTPUT-TOTFC1.
MOVE W_ORD01 TO I_OUTPUT-ORD01.
MOVE W_ORD02 TO I_OUTPUT-ORD02.
MOVE W_ORD03 TO I_OUTPUT-ORD03.
MOVE W_ORD04 TO I_OUTPUT-ORD04.
MOVE W_ORD05 TO I_OUTPUT-ORD05.
MOVE W_ORD06 TO I_OUTPUT-ORD06.
MOVE W_ORDT1 TO I_OUTPUT-TOTORD1.
ELSE.
MOVE I_ZMY20WKFC-QTY01 TO I_OUTPUT-QTY07.
MOVE I_ZMY20WKFC-QTY02 TO I_OUTPUT-QTY08.
MOVE I_ZMY20WKFC-QTY03 TO I_OUTPUT-QTY09.
MOVE I_ZMY20WKFC-QTY04 TO I_OUTPUT-QTY10.
MOVE I_ZMY20WKFC-QTY05 TO I_OUTPUT-QTY11.
MOVE I_ZMY20WKFC-QTY06 TO I_OUTPUT-QTY12.
MOVE I_ZMY20WKFC-TOTQTY TO I_OUTPUT-TOTFC2.
MOVE W_ORD07 TO I_OUTPUT-ORD07.
MOVE W_ORD08 TO I_OUTPUT-ORD08.
MOVE W_ORD09 TO I_OUTPUT-ORD09.
MOVE W_ORD10 TO I_OUTPUT-ORD10.
MOVE W_ORD11 TO I_OUTPUT-ORD11.
MOVE W_ORD12 TO I_OUTPUT-ORD12.
MOVE W_ORDT2 TO I_OUTPUT-TOTORD2.
ENDIF.
MODIFY I_OUTPUT INDEX SY-TABIX.
ELSE.
CLEAR : I_OUTPUT.
MOVE I_ZMY20WKFC-STCSTP TO I_OUTPUT-STCSTP.
MOVE I_ZMY20WKFC-WERKS TO I_OUTPUT-WERKS.
MOVE I_ZMY20WKFC-PRODUCT TO I_OUTPUT-PRODUCT.
MOVE I_ZMY20WKFC-SHPPOINT TO I_OUTPUT-SHPPOINT.
IF I_ZMY20WKFC-SPMON EQ P_STRMTH.
MOVE I_ZMY20WKFC-QTY01 TO I_OUTPUT-QTY01.
MOVE I_ZMY20WKFC-QTY02 TO I_OUTPUT-QTY02.
MOVE I_ZMY20WKFC-QTY03 TO I_OUTPUT-QTY03.
MOVE I_ZMY20WKFC-QTY04 TO I_OUTPUT-QTY04.
MOVE I_ZMY20WKFC-QTY05 TO I_OUTPUT-QTY05.
MOVE I_ZMY20WKFC-QTY06 TO I_OUTPUT-QTY06.
MOVE I_ZMY20WKFC-TOTQTY TO I_OUTPUT-TOTFC1.
MOVE W_ORD01 TO I_OUTPUT-ORD01.
MOVE W_ORD02 TO I_OUTPUT-ORD02.
MOVE W_ORD03 TO I_OUTPUT-ORD03.
MOVE W_ORD04 TO I_OUTPUT-ORD04.
MOVE W_ORD05 TO I_OUTPUT-ORD05.
MOVE W_ORD06 TO I_OUTPUT-ORD06.
MOVE W_ORDT1 TO I_OUTPUT-TOTORD1.
ELSE.
MOVE I_ZMY20WKFC-QTY01 TO I_OUTPUT-QTY07.
MOVE I_ZMY20WKFC-QTY02 TO I_OUTPUT-QTY08.
MOVE I_ZMY20WKFC-QTY03 TO I_OUTPUT-QTY09.
MOVE I_ZMY20WKFC-QTY04 TO I_OUTPUT-QTY10.
MOVE I_ZMY20WKFC-QTY05 TO I_OUTPUT-QTY11.
MOVE I_ZMY20WKFC-QTY06 TO I_OUTPUT-QTY12.
MOVE I_ZMY20WKFC-TOTQTY TO I_OUTPUT-TOTFC2.
MOVE W_ORD07 TO I_OUTPUT-ORD07.
MOVE W_ORD08 TO I_OUTPUT-ORD08.
MOVE W_ORD09 TO I_OUTPUT-ORD09.
MOVE W_ORD10 TO I_OUTPUT-ORD10.
MOVE W_ORD11 TO I_OUTPUT-ORD11.
MOVE W_ORD12 TO I_OUTPUT-ORD12.
MOVE W_ORDT2 TO I_OUTPUT-TOTORD2.
ENDIF.
APPEND I_OUTPUT.
ENDIF.
ENDLOOP.
Process the Order data which Forecast not available
LOOP AT I_ORDER WHERE UPDFLG NE 'X'.
READ TABLE I_OUTPUT WITH KEY STCSTP = I_ORDER-STCSTP
WERKS = I_ORDER-WERKS
PRODUCT = I_ORDER-PRODUCT
SHPPOINT = I_ORDER-VSTEL.
IF SY-SUBRC EQ 0.
IF I_ORDER-SPMON EQ P_STRMTH.
IF I_ORDER-WEEK EQ W_WKTBL01.
I_OUTPUT-ORD01 = I_OUTPUT-ORD01 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL02.
I_OUTPUT-ORD02 = I_OUTPUT-ORD02 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL03.
I_OUTPUT-ORD03 = I_OUTPUT-ORD03 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL04.
I_OUTPUT-ORD04 = I_OUTPUT-ORD04 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL05.
I_OUTPUT-ORD05 = I_OUTPUT-ORD05 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL06.
I_OUTPUT-ORD06 = I_OUTPUT-ORD06 + I_ORDER-WMENG.
ENDIF.
I_OUTPUT-TOTORD1 = I_OUTPUT-TOTORD1 + I_ORDER-WMENG.
ELSE.
IF I_ORDER-WEEK EQ W_WKTBL07.
I_OUTPUT-ORD07 = I_OUTPUT-ORD07 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL08.
I_OUTPUT-ORD08 = I_OUTPUT-ORD08 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL09.
I_OUTPUT-ORD09 = I_OUTPUT-ORD09 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL10.
I_OUTPUT-ORD10 = I_OUTPUT-ORD10 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL11.
I_OUTPUT-ORD11 = I_OUTPUT-ORD11 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL12.
I_OUTPUT-ORD12 = I_OUTPUT-ORD12 + I_ORDER-WMENG.
ENDIF.
I_OUTPUT-TOTORD2 = I_OUTPUT-TOTORD2 + I_ORDER-WMENG.
ENDIF.
MODIFY I_OUTPUT INDEX SY-TABIX.
ELSE.
CLEAR : I_OUTPUT.
MOVE I_ORDER-STCSTP TO I_OUTPUT-STCSTP.
MOVE I_ORDER-WERKS TO I_OUTPUT-WERKS.
MOVE I_ORDER-PRODUCT TO I_OUTPUT-PRODUCT.
MOVE I_ORDER-VSTEL TO I_OUTPUT-SHPPOINT.
IF I_ORDER-SPMON EQ P_STRMTH.
IF I_ORDER-WEEK EQ W_WKTBL01.
I_OUTPUT-ORD01 = I_OUTPUT-ORD01 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL02.
I_OUTPUT-ORD02 = I_OUTPUT-ORD02 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL03.
I_OUTPUT-ORD03 = I_OUTPUT-ORD03 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL04.
I_OUTPUT-ORD04 = I_OUTPUT-ORD04 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL05.
I_OUTPUT-ORD05 = I_OUTPUT-ORD05 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL06.
I_OUTPUT-ORD06 = I_OUTPUT-ORD06 + I_ORDER-WMENG.
ENDIF.
I_OUTPUT-TOTORD1 = I_OUTPUT-TOTORD1 + I_ORDER-WMENG.
ELSE.
IF I_ORDER-WEEK EQ W_WKTBL07.
I_OUTPUT-ORD07 = I_OUTPUT-ORD07 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL08.
I_OUTPUT-ORD08 = I_OUTPUT-ORD08 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL09.
I_OUTPUT-ORD09 = I_OUTPUT-ORD09 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL10.
I_OUTPUT-ORD10 = I_OUTPUT-ORD10 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL11.
I_OUTPUT-ORD11 = I_OUTPUT-ORD11 + I_ORDER-WMENG.
ELSEIF I_ORDER-WEEK EQ W_WKTBL12.
I_OUTPUT-ORD12 = I_OUTPUT-ORD12 + I_ORDER-WMENG.
ENDIF.
I_OUTPUT-TOTORD2 = I_OUTPUT-TOTORD2 + I_ORDER-WMENG.
ENDIF.
APPEND I_OUTPUT.
ENDIF.
ENDLOOP.
Convert the Order Qty from KG to MT and calculate the %
LOOP AT I_OUTPUT.
V_TABIX = SY-TABIX.
SELECT SINGLE MAKTX INTO I_OUTPUT-MAKTX FROM ZMY20PROD WHERE PRODUCT EQ I_OUTPUT-PRODUCT.
I_OUTPUT-ORD01 = I_OUTPUT-ORD01 / 1000.
I_OUTPUT-ORD02 = I_OUTPUT-ORD02 / 1000.
I_OUTPUT-ORD03 = I_OUTPUT-ORD03 / 1000.
I_OUTPUT-ORD04 = I_OUTPUT-ORD04 / 1000.
I_OUTPUT-ORD05 = I_OUTPUT-ORD05 / 1000.
I_OUTPUT-ORD06 = I_OUTPUT-ORD06 / 1000.
I_OUTPUT-ORD07 = I_OUTPUT-ORD07 / 1000.
I_OUTPUT-ORD08 = I_OUTPUT-ORD08 / 1000.
I_OUTPUT-ORD09 = I_OUTPUT-ORD09 / 1000.
I_OUTPUT-ORD10 = I_OUTPUT-ORD10 / 1000.
I_OUTPUT-ORD11 = I_OUTPUT-ORD11 / 1000.
I_OUTPUT-ORD12 = I_OUTPUT-ORD12 / 1000.
I_OUTPUT-TOTORD1 = I_OUTPUT-TOTORD1 / 1000.
I_OUTPUT-TOTORD2 = I_OUTPUT-TOTORD2 / 1000.
IF I_OUTPUT-TOTFC1 GT 0.
I_OUTPUT-FCORD1 = I_OUTPUT-TOTORD1 / I_OUTPUT-TOTFC1 * 100.
ENDIF.
IF I_OUTPUT-TOTFC2 GT 0.
I_OUTPUT-FCORD2 = I_OUTPUT-TOTORD2 / I_OUTPUT-TOTFC2 * 100.
ENDIF.
MOVE '1' TO I_OUTPUT-SORTKEY.
SELECT SINGLE * FROM ZMY20GP WHERE ZZKEY1 EQ 'ZMY20FCUP'
AND ZZKEY2 EQ I_OUTPUT-STCSTP
AND ZZKEY3 EQ 'SHIPTOCUST'.
IF SY-SUBRC EQ 0.
MOVE '2' TO I_OUTPUT-SORTKEY.
ENDIF.
MODIFY I_OUTPUT INDEX SY-TABIX.
ENDLOOP.
LOOP AT I_OUTPUT.
READ TABLE I_PRDWISE WITH KEY SORTKEY = I_OUTPUT-SORTKEY
STCSTP = I_OUTPUT-STCSTP
PRODUCT = I_OUTPUT-PRODUCT.
IF SY-SUBRC EQ 0.
I_PRDWISE-TOTFC1 = I_PRDWISE-TOTFC1 + I_OUTPUT-TOTFC1.
I_PRDWISE-TOTORD1 = I_PRDWISE-TOTORD1 + I_OUTPUT-TOTORD1.
I_PRDWISE-TOTFC2 = I_PRDWISE-TOTFC2 + I_OUTPUT-TOTFC2.
I_PRDWISE-TOTORD2 = I_PRDWISE-TOTORD2 + I_OUTPUT-TOTORD2.
MODIFY I_PRDWISE INDEX SY-TABIX.
ELSE.
CLEAR : I_PRDWISE.
MOVE I_OUTPUT-SORTKEY TO I_PRDWISE-SORTKEY.
MOVE I_OUTPUT-STCSTP TO I_PRDWISE-STCSTP.
MOVE I_OUTPUT-PRODUCT TO I_PRDWISE-PRODUCT.
MOVE I_OUTPUT-MAKTX TO I_PRDWISE-MAKTX.
I_PRDWISE-TOTFC1 = I_PRDWISE-TOTFC1 + I_OUTPUT-TOTFC1.
I_PRDWISE-TOTORD1 = I_PRDWISE-TOTORD1 + I_OUTPUT-TOTORD1.
I_PRDWISE-TOTFC2 = I_PRDWISE-TOTFC2 + I_OUTPUT-TOTFC2.
I_PRDWISE-TOTORD2 = I_PRDWISE-TOTORD2 + I_OUTPUT-TOTORD2.
APPEND I_PRDWISE.
ENDIF.
ENDLOOP.
LOOP AT I_PRDWISE.
IF I_PRDWISE-TOTFC1 GT 0.
I_PRDWISE-FCORD1 = I_PRDWISE-TOTORD1 / I_PRDWISE-TOTFC1 * 100.
ENDIF.
IF I_PRDWISE-TOTFC2 GT 0.
I_PRDWISE-FCORD2 = I_PRDWISE-TOTORD2 / I_PRDWISE-TOTFC2 * 100.
ENDIF.
I_PRDWISE-DIFF1 = I_PRDWISE-TOTORD1 - I_PRDWISE-TOTFC1.
I_PRDWISE-DIFF2 = I_PRDWISE-TOTORD2 - I_PRDWISE-TOTFC2.
MODIFY I_PRDWISE INDEX SY-TABIX.
ENDLOOP.
SORT I_OUTPUT BY SORTKEY STCSTP WERKS PRODUCT.
Begin of Changes by Karthikeyan on 09/03/2007 - Req No -BA3K988704
SORT I_PRDWISE BY SORTKEY STCSTP PRODUCT.
SORT I_PRDWISE BY PRODUCT STCSTP.
End of Changes by Karthikeyan on 09/03/2007 - Req No -BA3K988704
IF P_ZERO = 'X'.
DELETE I_OUTPUT WHERE TOTFC1 EQ 0
AND TOTORD1 EQ 0
AND TOTFC2 EQ 0
AND TOTORD2 EQ 0.
DELETE I_PRDWISE WHERE TOTFC1 EQ 0
AND TOTORD1 EQ 0
AND TOTFC2 EQ 0
AND TOTORD2 EQ 0.
ENDIF.
Set Cell colour for Remark entries
LOOP AT I_OUTPUT.
V_TABIX = SY-TABIX.
SELECT * FROM ZMY20RMRK WHERE BUKRS EQ P_BUKRS
AND STCSTP EQ I_OUTPUT-STCSTP
AND WERKS EQ I_OUTPUT-WERKS
AND SHPPOINT EQ I_OUTPUT-SHPPOINT
AND PRODUCT EQ I_OUTPUT-PRODUCT.
CLEAR : V_FNAME.
IF ZMY20RMRK-SPMON = P_STRMTH.
READ TABLE I_WEEKS WITH KEY WEEKS = ZMY20RMRK-WEEK
MONTH = P_STRMTH+4(2).
IF I_WEEKS-SLNO = '1'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY01' TO V_FNAME.
ELSE.
MOVE 'ORD01' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '2'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY02' TO V_FNAME.
ELSE.
MOVE 'ORD02' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '3'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY03' TO V_FNAME.
ELSE.
MOVE 'ORD03' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '4'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY04' TO V_FNAME.
ELSE.
MOVE 'ORD04' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '5'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY05' TO V_FNAME.
ELSE.
MOVE 'ORD05' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '6'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY06' TO V_FNAME.
ELSE.
MOVE 'ORD06' TO V_FNAME.
ENDIF.
ENDIF.
ELSEIF ZMY20RMRK-SPMON = V_ENDMTH.
READ TABLE I_WEEKS WITH KEY WEEKS = ZMY20RMRK-WEEK
MONTH = V_ENDMTH+4(2).
IF I_WEEKS-SLNO = '7'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY07' TO V_FNAME.
ELSE.
MOVE 'ORD07' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '8'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY08' TO V_FNAME.
ELSE.
MOVE 'ORD08' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '9'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY09' TO V_FNAME.
ELSE.
MOVE 'ORD09' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '10'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY10' TO V_FNAME.
ELSE.
MOVE 'ORD10' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '11'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY11' TO V_FNAME.
ELSE.
MOVE 'ORD11' TO V_FNAME.
ENDIF.
ELSEIF I_WEEKS-SLNO = '12'.
IF ZMY20RMRK-FC_ORDER = 'FC'.
MOVE 'QTY12' TO V_FNAME.
ELSE.
MOVE 'ORD12' TO V_FNAME.
ENDIF.
ENDIF.
ENDIF.
IF V_FNAME NE SPACE.
PERFORM ALV_COLOR USING V_FNAME 6 0 0 CHANGING I_OUTPUT-CELLCOLOR.
ENDIF.
ENDSELECT.
MODIFY I_OUTPUT INDEX V_TABIX.
ENDLOOP.
ENDFORM. " 4000_CONSOLIDATE_DATA
*& Form f4_help_stcstp
text
--> p1 text
<-- p2 text
FORM F4_HELP_STCSTP.
*Initialize screen values
DATA: PROGNAME LIKE SY-REPID,
DYNNUM LIKE SY-DYNNR.
PROGNAME = SY-REPID.
DYNNUM = SY-DYNNR.
CLEAR : T_STCP.
REFRESH : T_STCP.
SELECT * FROM T005 WHERE LAND1 NE SPACE.
CLEAR : T_STCP.
MOVE T005-LAND1 TO T_STCP-STCSTP.
MOVE '1' TO T_STCP-SORTKEY.
APPEND T_STCP.
ENDSELECT.
SELECT * FROM ZMY20GP WHERE ZZKEY1 = 'ZMY20FCUP'
AND ZZKEY3 = 'SHIPTOCUST'.
CLEAR : T_STCP.
MOVE ZMY20GP-ZZKEY2 TO T_STCP-STCSTP.
MOVE '2' TO T_STCP-SORTKEY.
APPEND T_STCP.
ENDSELECT.
SORT T_STCP BY SORTKEY STCSTP.
DELETE ADJACENT DUPLICATES FROM T_STCP COMPARING SORTKEY STCSTP.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'STCSTP'
DYNPPROG = PROGNAME
DYNPNR = DYNNUM
DYNPROFIELD = 'S_STCSTP'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = T_STCP.
ENDFORM. " f4_help_stcstp
*& Form f4_help_product
text
--> p1 text
<-- p2 text
FORM F4_HELP_PRODUCT.
*Initialize screen values
DATA: PROGNAME LIKE SY-REPID,
DYNNUM LIKE SY-DYNNR.
PROGNAME = SY-REPID.
DYNNUM = SY-DYNNR.
CLEAR : T_PROD.
REFRESH : T_PROD.
SELECT * INTO CORRESPONDING FIELDS OF TABLE T_PROD FROM ZMY20PROD
WHERE PRODUCT NE SPACE.
SORT T_PROD BY PRODUCT.
DELETE ADJACENT DUPLICATES FROM T_PROD COMPARING PRODUCT.in st pf-status place the FCT code below the icon
for save - SAVE.
reward if useful. -
Hey everyone, the issue I'm haveing is not just with Photoshop, but sense I couldnt find a general CS5 forum, and Photoshop was the last CS5 application I noticed this for I'm hoping to find some answers here.
So on to the issue....
I have noticed that on other computers (Macs for sure) that Illustrator, Photoshop, Dreamweaver etc... are set as the default handlers of certain file types that are associated with each application, and as such, give each filetype there own little icons reflecting such. (see screenshot)
However on my system (Windows 7 Ultimate x64) this does not seem to be the case. I can go in and set them as default manually, which I have done for the filetypes I use most frequently, but I do not get to enjoy the nice icons that are made for each filetype, i just get a bland, default icon that is the same for every filetype.
As you can see, some of the file icons are working just fine (the .ai, .eps and .php) but the files I have had to set manually (.html and .psd) give me the default windows association icon that is simply the applications icon on top of a blank file. To clear up any confusion as to what icons I'm talking about, the icons in the "Change Icon" menu are the ones that should be shown, but are not.
Is there a way to fix this issue?
Thanks for you help.This may help. not sure.
http://www.sevenforums.com/customization/69163-changing-icons-image-files-jpg-png.html -
PDFMaker icon not working in Acrobat Pro 8.3.1.
I am using OS Windows XP Home and Microsoft Office 2003.
I generally use the work around of "Print". Annoying that I cannot use the PDFMaker icon in any Microsoft products. It use to work flawlessly. I keep getting the annoying message "The acrobat pdfmaker server could not be loaded". I have found solutions regarding modifying registry key "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroDist.exe"
Since I do not have a folder that specifically says Distillr, I modified the default key to C:\Program Files\Adobe\Acrobat 8.0\Acrobat\acrodist.exe and Path to C:\Program Files\Adobe\Acrobat 8.0\Acrobat\.
Did not work.
Anyone out there know how to repair??? The Acrobat "Repair" procedure is really not working for me.
Thanks.Gernal_USA,
I'm moving your question to the Acrobat forum, since it does not relate to the CreatePDF service.
Dave -
Scrollup and down icons not working in ALV. Please help!
Hi Experts,
I have a ALV webdynpro ABAP report. I have to show only fixed no of rows.
But the scrollup and scroll down icons in the ALV (^) not working when I use subtotal (aggregation).
Interestingly scrolling works perfectly if I remove my subtotal code.
My subtotal code is like this:
*...Sort PRODUCT and group it for subtotal
*lr_field_settings ?= l_value.
*lr_field = lr_field_settings->get_field( 'PRODUCT' ).
*lr_field->if_salv_wd_sort~set_group_aggregation_allowed( ABAP_TRUE ).
*lr_field->if_salv_wd_sort~create_sort_rule( ).
*l_sortrule = lr_field->if_salv_wd_sort~GET_SORT_RULE( ).
*l_sortrule->set_sort_order( if_salv_wd_c_sort=>sort_order_ascending ).
*l_sortrule->set_group_aggregation( ABAP_TRUE ).
**...Aggregate Field QTY
*lr_field = lr_field_settings->get_field( 'QTY' ).
*lr_field->if_salv_wd_aggr~create_aggr_rule( ).
*lr_aggr_rule = lr_field->if_salv_wd_aggr~get_aggr_rule( ).
*lr_aggr_rule->set_aggregation_type( if_salv_wd_c_aggregation=>aggrtype_total ).
**lr_field_settings ?= l_value.
**lr_field_settings->set_group_aggr_displayed( abap_true ).
One more thing, In addition to subtotal it also shows grand total in the end. Is this the normal feature or my code for subtotal is wrong?
So what could be the problem?
Any sample code will be really helpfull. Please help!
Thanks
Gopal
Message was edited by:
gopalkrishna baligaHi Gopal,
Please try to build the effect you commented out in the settings of the ALV. You can save it as a special layout. If scrolling works then, you should check which part of your coding leads to the problem and possibly correct it.
If this is not possible, just create an OSS message.
Ciao, Regina -
The icons are not working on my Palm Z 22. I have performed both a soft reset and hard reset to no avail. What next?
theresajane wrote:
After performing the hard reset, the screen is asking that I "tap the center of the target". The target does not respond to my tap. Before I did the hard reset, none of the icons responded nor did the 5-way button allow me to move around. I'm wondering if I should bury this PDA and move on?
Certainly seems like its best days are over...
WyreNut
I am a Volunteer here, not employed by HP.
You too can become an HP Expert! Details HERE!
If my post has helped you, click the Kudos Thumbs up!
If it solved your issue, Click the "Accept as Solution" button so others can benefit from the question you asked! -
My app store icon is not working. Went to Mac page of Apple store to find a new download for it and the process didn't work. No new downloads found.
Any ideas ?Hi James...
The only way to reinstall the App Store is by downloadiing and installing the Mac OS X 10.6.8 Update Combo
Restart your Mac after the update is installed. It's ok to do this even though you are already running v10.6.8. -
Sticky hide and show not working
I believe I have followed Carl Backstrom's Sticky Hide and Show Region example to the letter for my own application.
1 - I have the application items and application processes in place.
2 - I have the javascript in the HTML Header attribute
3 - The SHOW_HIDE_MEMORY package is in place
4 - I edited the Hide and Show Region template
I'm on Apex version 3.0.0.00.20
The collection does not seem to be getting populated. I'm wondering if the region template which includes this code is not working: onclick="$r_ToggleAndSave(this,'#REGION_ID#')" id="#REGION_ID#img"
My regions are always collapsed when I navigate away and return to the page and the collection is always empty. I've checked the state of the temporary item after clicking the expand (+) button and the value is always null.
Any help would be greatly appreciated.
Thanks, ToddHi Carl,
I'm not seeing any obvious errors on the screen or in the message bar. I just downloaded the Firefox javascript debugger extension. I'm not exactly sure how to use this tool, but when I expand a hidden region, I do see this message in the debugger screen:
Warning ``reference to undefined property this.onShutdown_'' [xs] in file ``file:///C:/Program%20Files/Mozilla%20Firefox/components/nsSafebrowsingApplication.js'', line 1710, character 0.
Error ``node has no properties'' [xs] in file ``http://dsi3.gfc.iowa.com:7777/i/javascript/htmldb_html_elements.js'', line 25, character 0. -
The little icon found on the left that allows you to access your project plan is not working for one of my project managers, who is the owner of that specific project. However in the Admin's view they are able to access it by clicking that button.
Any thoughts why?Hi EPM Admin,
The issue occurs only for 1 PM? Is the icon working for this PM with another view? Can the PM try on another machine? When you say that it doesn't work, do you have any error message or just nothing happens? Have you tried refreshing IE deleting the cache
(press CTRL F5)?
Hope this helps,
Guillaume Rouyre, MBA, MVP, P-Seller | -
IPhone App - Gear icon not working
We have an multi-folio (Enterprise) app that is built for iPad and iPhone. The iPad version seems to be working properly, but in the iPhone version, the Gear icon is not working. I didn't see anything in the App Builder that would negate that from working.
Am I missing something?
Thanks.
DamonWhen you tap the gear icon in your iPad app, which options do you see? If you just see "Remove Issues from iPad," it makes sense that the gear icon is empty on the iPhone app—you swipe from right to left in the iPhone library to remove downloaded folios.
But if you see options such as "Privacy Policy" or "Restore All Purchases" in the iPad but not on the iPhone, that's a different issue. -
8500 A909g setup icon not working
Can anyone help?
I have the above printer and recently I have been unable to access the setup screen via the touch screen (spanner icon) all the lower section works i.e. copy, scan etc. and if I do a partial reset all other toch buttons work, the only items that do not work are the 3 at the top of the screen next to the data and time i.e. spanner, cartridge and ? icons. anyone know a solution or is the touch screen pad U/S, thanks JbraddersHi @Jbradders
I just sent you a private message. If you are not sure how to check your forum messages this post, has instructions.
Thank you,
R a i n b o w 7000I work on behalf of HP
Click the “Kudos Thumbs Up" at the bottom of this post to say
“Thanks” for helping!
Click “Accept as Solution” if you feel my post solved your issue, it will help others find the solution! -
PSE 8: "Auto-analysis" and change of tag icon not working
Hi, in the organizer of PSE8/Win i have two problems:
I select some thumbnails and use "auto analyze" (for quality level etc.). Then i get a status bar "auto analyzing starts" - and it never gets beyond that stage. I have to click "cancel" to get out. That's also true with one single image selected.
The icons for tags like "Mary" automatically get a small picture. It is possible to change this tag picture after right-clicking. But then, the button "Edit symbol" is greyed out.
The menu for sorting by date in ascending/descending order doesn't change anything (i always see oldest pictures first).
There's lot of available hard disk in Elements' drive, but only 800 MB on the C: drive. I changed NONE of Elements preferences. When i change preference to "auto analyze on organizer's start-up", it still doesn't work. In the task manager, i do NOT see a task like "PhotoshopElementsAutoAnalyzer.exe" or so. I believe i saw this task in a slightly earlier version where everything worked fine. The problem exists with old catalogs as well as with newly created catalogs. Re-starts and re-booting didn't help either. I have perfectly normal camera JPEGS - and the face recognition works fine. It seems that the sub-application "PhotoshopElementsAutoAnalyzer.exe (?)" misses - could you advise me which file to look for?
Btw, i have Win XP SP2 with 4 GB memory on a non-English system with appropriate non-English PSE8 retail version. Premiere Elements 8 is installed too.
I would like to try "auto analyzing" and i would like to change tag icon pictures. Of course i could re-install, but that's just so tedious and i don't know if it helps. Would you have any other ideas? Thanks a lot!Barbara, John,
thanks again for your considerations! After some more testing and input from the PrE 8 forum, i can say the following:
- Ascending/descending order: Now i know: If you have only pictures of one single day, there is no change in thumbnail order when you switch from "ascending" to "descending" and back. Of course pics from morning and evening should change position, but they don't. BUT: If you add one pic from another day, switching from "ascending" to "descending" suddenly fully works - including pics taken on one same day changing position. (To test Organizer, auto analysis and face recognition under fast clear conditions, i had originally only 20 pics in the catalog, all from one family day trip. And there, i couldn't change the order.)
- I checked "auto analyze" again. Now i can say: When i start "auto analyze" manually, i see "ElementsAutoAnalyzer.exe" for half a second in the task manager. Then it disappears, and on the Organizer screens, the status bar keeps claiming "Starting analysis" until i click "Cancel". I ONLY tried it on regular JPEGs so far. There is no way to get a "smart tag". If i try a second time, no more "ElementsAutoAnalyzer.exe" appears in the task manager. I also switched users on my PC to a user which has no utilities whatsoever running, less than 10 processes in the task manager, turned off anti-virus - still the same problem with "auto analyze".
- The face recognition tags btw are not written into the image file as IPTC, that has to be done with the "File" menu command. Also if i drag "smart tags" like "low quality" manually over a thumbnail, they get assigned only via catalog, not written as IPTC straight into the image file.
I don't think it's worth wasting more of one's time before there is a bugfix delivered that expressively acknowledges the issues mentioned. I am not a computer geek, just like to play with pictures and videos; i thought Elements was made for people like that.
Thanks again for your input! -
Airplay icon not working on any devices now...
My TECH:
ATV3
iPad 3
iPhone 5
Internal Airport Internet Sharing
iMac 11,3
I'm getting extremely frustrated with how my ATV3's Airplay function is up and down for working. This has happened before and after the i0S6 updates...
Basically, I can never get the Airplay icons to show up on my devices. I have to restart my computer, the ATV, my devices and sooner or later one of them will work. But now they absolutely do not show up.
I have two Itunes account (US/JP) I don't think that should be a problem. Is there something in the Internet Sharing Options I'm not doing right?
Any help soon would be greatly appreciated as I use the AirPlay for demonstration and NOTHING is working.So I tried to do a restore via Itunes.... and now it's this endless cycle of plugging it back into the TV and it telling me to plug it back into Itunes. Restore again... Repeat.....
-
"Hide Instance" setting not working with 2012 SQL Server Database Engine
I have turned on the "Hide Instance" setting in SQL Server Configuration Manager on my SQL Server 2012 Database Server. After several restarts of my SQL Server/Agent/Browser services, as well as the server, I am still able to browse for the Instance
from another computer. I can also find the instance by running the "sqlcmd -L" command. Is there another step to get this to work? I have seen other people suggest that you disable the SQL Browser service, but we would like to avoid
that.Hi,
According to the description, I know the you are able to find the instance in the Browse for Servers window from another computer after turning on the ‘Hide Instance’ setting in SQL Server Configuration Manager. Are you able to connect to the instance as
well?
Make sure that the HideInstance has been set to 1 in the below registry key:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\MSSQL11.instancename\MSSQLServer\SuperSocketNetLib
Note: You may take a backup of the key before make any changes on the registry keys.
For more information about how to back up and restore the registry, click the following article number to view the article in the Microsoft Knowledge Base:
How to back up and restore the registry in Windows
Thanks.
Tracy Cai
TechNet Community Support
Maybe you are looking for
-
How can I see the relationship of tables in Microsoft SQL Server?
How can I see the relationships of the tables? Exactly like what we see in Access. In Access if we select Database tool and then relationships, we can see how the tables are linked to each other. How can I find this option in SQL Server Management St
-
Error while importing SAPKB70013 component?
Hi, We got Solman 4.0 running in windows 2003 server. When i tried to import the BASIS sp components SAPKB70013, SPAM stopped at XPRA_EXECUTION stage with the following error "Method push_client is not declared or inherited in the class CL_FDT_STORAG
-
Where can I purchase and download adobe acrobat x standard for Mac OSx?
Where can I purchase and download adobe acrobat x standard for Mac OSx?
-
Adobe reader should get a "listen to text" feature so that visually impaired or blind people can use Adobe Reader
-
Hiya Folks... I've now managed to get hold of an old Air Port base station and am running this via the ethernet port on my Virgin Hub. My iBook is connecting to it beautifully, but is still not automatically changing the time and date and when I use