Smart Print icon not working in Bing Bar
I have two Smart Print 2.1 icons; one in the Command bar and one in the Bing bar. I don't know why this is. However, the one in the Command bar works, but the one in the Bing bar doesn't.
Any advice as to why this should be will be much appreciated.
To clarify, are you wanting to remove the icon that is not functioning in the Bing Bar? Or do you want to keep the one for Bing and remove the other one from the computer? Here is a link to the latest version of the Smart print for Bing Bar. I would uninstall both versions currently on the computer under Control Panel>> Programs and then use the link to download the latest version. I hope that this helps.
I am a former employee of HP...
How do I give Kudos?| How do I mark a post as Solved?
Similar Messages
-
How can I get HP Smart Print icon to appear on Bing bar?
I installed Smart Print and activated it, but I cannot find an icon on my Bing bar.
I HAVE DOWNLOADED SMART WEB PRINT BUT CAN NOT FIND THE ICON TO USE IT
-
HP Smart Print button not working
I have IE9 and installed the HP Smart Print with Bing bar from HP download page and activated Smart Print as mentioned on download page. But when I go to a site and click th Smart print button, nothing happens.
I tried it on different sites and it never works. What can be the problem?
Moontje1
This question was solved.
View Solution.I solved the problem myself. Add-on was not activated. I activated it and restarted my browser : problem solved
-
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. -
My HP photo smart C6280 printer does not work with CS6. Any Help?
My HP photo smart C6280 printer does not work with CS6. Any Help?
How does it "not work"?
What OS version are you using? -
WHEN I CLICK ON MY HP SMART WEB PRINT BUTTON THE SMART PRINT DOES NOT COME UP
ON MY HP PAVILION DV2000 I CAN NOT BRING UP THE HP SMART WEB PRINT PROGRAM WHEN I CLICK ON THE SMART PRINT ICON ON MY TOOLBAR NOTHING HAPPENS
Even though this is an older post I wanted to check in since I came across it. Are you using internet explorer? Is it versions 6-9? If so, I have found that uninstalling it and reinstalling both the Bing bar and HP smart print will correct the problem. I am currently running IE 9 my self.
Here is a link to use to do the reinstall.
I am a former employee of HP...
How do I give Kudos?| How do I mark a post as Solved? -
HP Printer Assistant not working for HP Envy 120
Hi,
I am running Windows 7 Home Premium Service Pack 1 with a 64-bit operating system and I am experiencing an issue with the HP Printer Assistant, in that it will not open when I click on the desktop icon, nor when I go to the HP folder located in All Programs and select it from there.
My son's laptop, however, will open it without any problems at all. I have tried un-installing and re-installing the full feature software and drivers from the HP website, but that makes no difference whatsoever. The All-in-One device itself works fine; I can print from it and also use the scan icon in the HP folder in All Programs, but I prefer to use the Printer Assistant as it gives me many more options. The last time I ran it, it worked fine and that was only a couple of months ago.
I would appreciate any help, as this is starting to get frustrating and irritating; this is the first time that I have had any sort of trouble with an HP product and, hopefully, there will be someone out there who can solve this issue.
Thanks in advance
Dags68 (Newbie)
This question was solved.
View Solution.Hi @Dags68 ,
Sorry that didn't do the job. I checked into this further and my co-worker @Sunshyn2005 and provided me with this fix.
Computer application interface won't open.
If this doesn't work try this please.
Icon not working.
Thank You.
Please click “Accept as Solution ” if you feel my post solved your issue, it will help others find the solution.
Click the “Kudos Thumbs Up" on the right to say “Thanks” for helping!
Gemini02
I work on behalf of HP -
Printer will not work: error code 0xc19a0022
Printer will not work: error code 0xc19a0022
Hello citizenED,
Welcome to the HP Forums.
I see that you are getting the error code " 0xc19a0022 " .
I do have a few steps that we can try.
First off, please make sure that you have the printer power cable connected directly to a wall outlet and not a power bar/strip. Here is a document that uses a LaserJet printer as an example but it is meant for HP products in general. Please click on the following link that explains the Issues when Connected to an Uninterruptible Power Supply/Power Strip/Surge Protector.
I have also located a document that deals with a 'Problem with Printhead,' 'Printer Failure,' 'Ink System Failure,' or a '0x...' or a 'C2...' Error ...
If the troubleshooting does not help resolve your issue, I would then suggest calling HP's Technical Support to see about further options for you. If you are calling within North America, the number is 1-800-474-6836 and for all other regions, click here: click here.
Thanks for your time.
Cheers,
Click the “Kudos Thumbs Up" at the bottom of this post to say “Thanks” for helping!
Please click “Accept as Solution ” if you feel my post solved your issue, it will help others find the solution.
W a t e r b o y 71
I work on behalf of HP -
How do I get the HP Smart Print icon back in the toolbar?
The HP Smart Print icon used to appear in the Firefox toolbar. I had to reload Firefox. the icon no longer appears. How do I get it back? I am using Windows 7.
HP Smart Print (formerly HP Smart Web Printing) is supported only in <u>IE 6 and later and is no longer supported on any other browser</u> ---- that was a decision made by HP, not Mozilla.
*See - http://h41112.www4.hp.com/smartprint/us/en/smart.html?jumpid=ex_r602_ww/en/hho/ipg/xx-mu-aw_chev/smartprint (click to expand item 12 at the bottom)
*See - http://h10025.www1.hp.com/ewfrf/wc/document?lc=en&dlc=en&cc=us&docname=c01812475#N152
*See - http://h30434.www3.hp.com/t5/Web-Printing-Software/HP-Smart-Web-Printing-and-Firefox/td-p/105151/page/7 ''(this is HP forum discussion from 08-15-2009 to 08-28-2012; see last comment on page 7 dated 08-28-2012 by user '''Shirlzz1''')'' -
Print Screen not working for user but working for Administrator
Satellite A100 Laptop Print Screen Not working for USER but is working for Administrator[ New ]
09-14-2009 11:25 AM
Hi I am new to this forum and am asking for your help. We are sharing a computer, the PrtSc key is working for the Administrator but not when we switch users. We have tried everything that we can think of: From opening a the page(S) we want to paste to not opening the pages. My most common usage is to PrtSc and paste it into an email , but barring that we have tried opening a page in notes, documents, word etc . Nothing seems to work. I do not get an error message , it just won't paste. Since we are not computer literate we are hoping you can help us with a solution . Thanks in Advance .Jerry, that post you just answered was from nearly 4 1/2 years ago! And that's the last time the OP was here.
C.B.
Toshiba Sat. C75D-B7260 Win 8.1 64 Bit--Toshiba Sat. L775D-S7132 Win 7 HP SP1 64 Bit and Win 10 PRO Technical Preview--Toshiba Sat. L305-S5921 Win Vista SP2 32 Bit -
Printer will not work after update to Mavericks
I have a macbook pro and an HP7280 printer connected wirelessly. After upgrading to Mavericks the printer will not work. The first time I used it the system upgraded automatically (I forget what it said but it just went ahead and did some upgrading) When I clicked on something to print it did recognized the printer but just scrolled and scrolled and never printed. So I deleted the printer and reset the system and then added the printer back on - same thing. Any ideas??
It means there is no issue with the driver you are using and with it working correctly on Mavericks. So you have a network issue with the printer queue you are using. Normally a reset of the printing system and re-adding the printer would be enough to get things working again. But since you have done this and your issue is not resolved, there must be some other gremlins in the system.
With the HP connected to the network, if you know its IP address you can enter this as a URL into a web browser. This should result in you connecting to the internal web page of the HP. Does this work? -
Dear Team
i need solution from Microsoft for the issue;
My infrastructure
- Windows Server 2008 R2 (Role - AD and Terminal Service)- Updated
- Client Machine running with windows 7 pro (Updated)
- Client Using RDP Client to connect Windows 2008 Terminal Session
- All are working fine, but Redirect Printing is not working (Through Windows 7 Pro) ... (HP Laser Jet 1020 plus - attached in Client PC)
- it is working fine from Windows XP
- i was done All terminal setting in both end, also try RDP Login with Administrator User, but issue is not resolve;
What Microsoft can say about the issue;
Thanks & Regards,
VIMAL PRAJAPATI | 09824111686Have you checked the Print Service log in event viewer?
Here's How.
I have the Microsoft XPS driver on my clients, so I use that fact to my advantage below.
Click Start Button/Administrative Tools/Remote Desktop Services/Remote Desktop Services Manager on the RDSH server
Click the Sessions tab. PC’s are listed Under Client Name by their computer name. Take Note of the corresponding
ID. We will use this to locate the Printer information in the Event Log.
In the Event Log open Application and Services Logs/Microsoft/Windows/Print Service/Admin/ and Find the Event ID 823 entry that has the corresponding ID from the sessions tab you previously noted.
This Event Log Entry is created at Logon and you can only get the session ID when they are logged in.
This tells you what client printer was mapped for the client. The name that appears is the name of the Printer that was set on the client when the printer was installed.
See if you see any errors here.
If you see Event Id 823 with the following message “The default printer was changed to Microsoft XPS Document Writer,winspool,Ne00:. See the event user data for context information.” Twice in a row with no other messages in between, and the first occurs
at the time the user logged in, then their printer was not properly redirected.
You see the Microsoft XPS driver mapped for each session prior to Easy Print redirecting the client machine’s Default Printer.
Since your printer is the HP 1020 I would bet the driver on the client does not work with Easyprint. I would try the the HP Universal Print Driver or the driver for a printer that is very close, like the HP 1018.
Thanks,
Jeremy -
I update my Mac to version 10.9.2 and now my printer does not work anymore. I did all the software updates and I do not understand why my mac does not recognize the printer anymore?
Go to the website of the manufacturer of your printer and check to see if they have released an updated driver for your particular model.
-
Ipod 4th gen volume buttons not working. Volume bar not showing in music or video apps, not a speaker problem as this works fine when testing built in alarm tones???
Have you tried the standard fixes:
- Reset:
Reset iPod touch: Press and hold the On/Off Sleep/Wake button and the Home
button at the same time for at least ten seconds, until the Apple logo appears.
- Restore the iPod from backup via iTunes
- Restore the iPod to factory defaults/new iPod.
If still problem you likely have a hardware problem and an appointment at the Genus Bar of an Apple store is in order. -
HP Photosmart C6300 printer/scanner not working after Snow Leopard install
HP Photosmart C6300 printer/scanner not working after Snow Leopard install
Reinstalling etc does not work - does anyone else have the same problem or a clue as to how to fix this?Keith,
I got a C6280 and the scanner does not work anymore. I am for 6 days in contact with HP. The last printer driver install form the apple web site does not open the image of HewlettPackardPrinterDrivers.dmg because of an invalid checksum. The skipping of the validation gives and error in the install.
Maybe you are looking for
-
My macbook pro is printing everything very small in the middle of the page
I've recently bought a MacBook Pro 13" and am having trouble printing from it. When i use Pages, or Word or even a PDF everything I print comes out very small in the middle of the page On the same day i purchased an IMac and it prints fine, ive chec
-
how can I fix this?
-
How do i get my computer to stop making a fan noise
how do i get my computer to stop making a fan noise?
-
Hi, How to look up records in Infocube in the Start or Endroutine ? In DSO there ist a active table, i could SELECT * from /BIC/XXXXXXX Where...... but in Infocube there are a Fact table and some dimension tables.
-
AE CS4 - Import problem (JVC Everio clips in 16:9)
Hi everyone, I hope someone can help me with this because it is driving me crazy I got a JVC Everio "GZ-MG750" camcorder some months ago and I must say I first had problems with "Export" (JVC to PC) because when you have recorded the clips in 16:9,