Cutomer theme is not working properly
HI,
we have upgraded our portal version from EP6.0 sp 9 to EO 7.0 SP9. after upgrade customer theme is not displaying properly. like tabs ,font size are displaying with improper format. can any one tell me what needs to be done. But SAP standard themes r displaying corrrectly.
Hi,
we had the same problem last summer.
We migrated from EP6 SP2 to NW04. Theme was ok.
Then upgraded from NW04 to 7.0. Theme was corrupted, web dynpros were not usable.
You just need to export the EP6 theme, then import it in EP 7.0. No need to delete the old ep7 one.
You may have to restart the j2ee.
Brad
Similar Messages
-
The appstore in my iPad is not working properly. It's not downloading either updates or new purchases of apps, stucks at "waiting" status an do not load them. I had to go through iTunes in my computer and sync.
bunjamin wrote:
There is now a new line in BBM that wasn't there before which covers the message that I am typing, so I can't actually see what I am typing.
Hi bunjamin,
just go to BlackBerry World, and update all your apps including BBM.
bunjamin wrote:
Every time I unlock my phone, my screen enlarges so I can't really see much on the hub/notification screen and it defaults to the hub which it didn't do before).
you can turn off the magnifying glass :
device settings >> accessibility >> magnify mode >> OFF
you can deactivate the "reset to Hub view" :
hub >> overflow (bottom right button) >> Settings >> Display and actions >> Return to Default View When Idle >> OFF
bunjamin wrote:
my ringtone is much softer than it was previously
yes, BlackBerry has acknowledged this bug in this article from the public knowledge base:
KB36755 After upgrading BlackBerry 10 OS to version 10.3.1 the volume for notifications is noticed to be significantly lower than in the previous version
The search box on top-right of this page is your true friend, and the public Knowledge Base too: -
The head phone jack on my brand new iPod touch 5th generation is not working properly
The head phone jack on my brand new iPod touch 5th generation is not working properly. It has sound without the headphones in but when I plug them in it has no sound, it's low, or poppy. I had only used my apple supplied headphones once before and it worked fine. I know it's not the headphones because I tried them on my girlfriends phone and they worked fine.
- Try cleaning out/blowing out the headphone jack. Try inserting/removing the plug a dozen times or so. There is a little switch in the headphone jack that disconnects the speaker when the headphone jack is inserted.
Try the following to rule out a software problem
- Reset the iOS device. Nothing will be lost
Reset iPod touch: Hold down the On/Off button and the Home button at the same time for at
least ten seconds, until the Apple logo appears.
- Reset all settings
Go to Settings > General > Reset and tap Reset All Settings.
All your preferences and settings are reset. Information (such as contacts and calendars) and media (such as songs and videos) aren’t affected.
- Restore from backup
- Restore to factory settings/new iOS device.
- Make an appointment at the Genius Bar of an Apple store. Seems you have a bad headphone jack.
Apple Retail Store - Genius Bar -
HP computer will not work properly with an HP printer
I have the following two items that I am trying to use together:
- HP 23" TouchSmart Desktop, T6500 2.1GHz 4GB DDR3, 500GB HDD (Windows 7)
- HP OfficeJet 6500 Multi-Function Printer/Scanner/Fax
When I try to scan to Adobe Acrobat Professional 9.0, the document goes through the scanner, however the dialog box that I would expect (e.g. "Next Page" or "Done") never shows up. At this point, the system is unresponsive with respect to Adobe or the printer.
I suspect that it is waiting for the input from the dialog box that never showed up. I tried to move the other windows to see if the dialog opened in the background, however I am not able to select any of them (they remain frozen).
I contacted HP Support, only to have them tell me it must be the driver, and I have an "old" printer. (I did not realize that a 9 month old printer was considered "old"). I have tried all of the possible drivers that are available (original disk, downloads, other downloads from HP tech support), none of these resolves the problem.
In any case, they were unable to resolve the problem of having an HP computer work properly with an HP printer. (The printing function seems to work, just very slowly).
Has anyone else heard of this? Is there a resolution?Update: I am still looking for a solution to this problem - the scanning portion of the Multi-function OfficeJet 6500 does not work properly with the HP TouchSmart computer.
I have not been able to find anyone in HP that can tell me when (or if) new drivers will be released for this printer.
I decided to investigate upgrading to a newer version of printer since HP told me the 9 month old printer I have was "obsolete", only to find that the identical printer is still on sale in many stores. Hmmm....
I feel like I am getting the run-around from HP.
I have since tried several more driver/software combinations, but every time I have the same problem (as described in the previous post).
If anyone has any ideas or suggestions, I would be most happy to hear them.
Thank you. -
I just had a conversation with Linksys' Customer Service via chat: Daphne L. J: Hello Fernando Paramo. My name is Daphne L..
Daphne L. J: Welcome to Linksys Global Chat. Is this your initial contact or do you have a case number?
You: Case number is 04971062
Daphne L. J: Please give me 3-5 minutes to pull up and review your case.
You: OK
Daphne L. J: Thank you.
You: I have a WRT1900 AC, V1. The router is not working properly. I have disconnections every few minutes.I already installed the new firmware version and I still have the same issues. I already reset the router to factory defaults and same issues. I have changed the settings back to my personal preferences: Changed the SSID, changed the wireless security settings, changed the DNS and deactivate WPS. That's it.I'm using 5 Ghz mode with my laptops (5 Ghz adapters) and 2-4 Ghz with a few devices (Chromecast, Nintendo 3DS).
Daphne L. J: Thank you for waiting.
Daphne L. J: Please confirm if the following information is correct:
Name : Fernando Paramo
Phone Number :
E-Mail Address :
Model Number : WRT1900AC
Serial Number : 13J10609406280
Country : United States
You: That's correct.
Daphne L. J: Okay. Were you able to check if the devices have stable connection wired to the router?
You: No. I do not have devices with Ethernet ports. Well, only the cable modem.
You: But the modem is fine. No disconnections from my ISP.
You: It is the router.
Daphne L. J: Alright. What is the current firmware version of your router?
You: I tried to return the router to Wal-Mart yesterday with no luck. This is a useless device. And I have been reading comments on the community forums and a lot of people are having problems.
Daphne L. J: We are actually aware of the issue and are working on a resolution. What is the current firmware version of your router?
You: Ver. 1.1.10.167514
You: Latest one.
Daphne L. J: Yes, so you reflashed the firmware, reset and then manually reconfigure it after, not using backup configuration, is that right?
You: That's correct.
Daphne L. J: And it is intermittent on all devices connected to both 2.4 and 5 Ghz networks, is that right?
You: That's correct.
Daphne L. J: Thank you for the information. Please give ,e 3-5 minutes to verify this with my superior.
Daphne L. J: Thank you for waiting.
You: I want to send you my WRT1900 AC and get a V2 or I want a EA8500 and pay the difference myseld.
You: I do not want my current hardware.
You: It is useless for my needs.
You: I can't believe I had an older E3000 that didn't give me any problems.
Daphne L. J: We have already exhausted all possible troubleshooting steps for your concern. As verified with my Supervisor, we will forward your case to our Customer Assurance Team. They are highly technical and knowledgeable when it comes to advanced troubleshooting. They will contact you in the next 24 to 48 hours. By the way, who is your Internet Service Provider? And do you Cable or DSL connection?
You: Cable connection.
Daphne L. J: Who is your Internet Service Provider?
You: A company called .
You: How are they going to contact me?
Daphne L. J: Alright. By the way, on the device itself, on its FCC ID, please check if you have WRT1900AC or WRT1900AC v2.
You: Are you paying attention to me?
You: I already told you it's V1.
Daphne L. J: They will call or email you. Please double check if these informations are correct:
Name :
Phone Number :
E-Mail Address :
You: I told you I want to send you my WRT1900 AC and get a V2 or I want a EA8500 and pay the difference myself.
You: I want them to contact me to my email. I can't answer the phone during work hours.
Daphne L. J: We can't assure you if we will be able to replace it with Version 2 or if you are allowed to have the EA8500 instead.
Daphne L. J: Just in case, do you also have an alternate number?
Daphne L. J: Also, what time zone are you in? And what is your preferred time and day for them to contact you?
You: I have the one from my office in Mexico. Central Time. Any time is good.
Daphne L. J: So, you are currently in Mexico?
You: I work in Mexico but I have the house in USA. I live in the border.
Daphne L. J: I see. Do you have any other questions or clarifications?
You: I live 10 minutes away from the International Bridge. But that's not an issue. I bought the router at Walmart in Laredo, TX.
Daphne L. J: Thank you for the information. Would that be all for now?
You: I want a clarification: Do you realize that there is an issue with the current WRT1900 AC? Are you aware of that?
You: Because this is a very expensive router that is not working as it should be.
Daphne L. J: Yes, we are aware of the issue and are working on a resolution.
Daphne L. J: Would there be anything else you need?
You: That would be it. I will wait for you to contact me.
You: Thanks.
Daphne L. J: Alright. Thank you for giving us an opportunity to serve you through Linksys Live Chat. You may also visit our support site at www.linksys.com. For your reference, your case number is 04980394. Thank you for choosing Linksys and have a great day! We paid $250 for this piece of equipment. That's a lot of money for a device that doesn't work. I just want to get a V2 replacement, or better yet, an exchange for a EA8500. We should all demand this. It is not fair for us. The current WRT1900 AC is a useless device. They even should do a recall of the product. I will wait for them to contact me, but I'm thinking if I should send the information to The Consumerist or someone else. What to do?FernandoRocker wrote:
Well... instead of looking into this with Engineering, I would prefer you to talk about this with the Sales department and exchange my WRT1900AC for an EA8500 (I will pay the difference if needed). Seriously. The device is useless. Not just a paperweigt... an expensive paperweight.Actually I looking into the swap for you because I think that would be best in your case. Keep this in perspective. There is laterally millions of WRT1900AC V1 out there with very few issues with latest firmwares and of course the odd exception. In your case it could be a defective WRT1900AC. -
I just had a conversation with Linksys' Customer Service via chat: Daphne L. J: Hello Fernando Paramo. My name is Daphne L..
Daphne L. J: Welcome to Linksys Global Chat. Is this your initial contact or do you have a case number?
You: Case number is 04971062
Daphne L. J: Please give me 3-5 minutes to pull up and review your case.
You: OK
Daphne L. J: Thank you.
You: I have a WRT1900AC, V1. The router is not working properly. I have disconnections every few minutes.I already installed the new firmware version and I still have the same issues. I already reset the router to factory defaults and same issues. I have changed the settings back to my personal preferences: Changed the SSID, changed the wireless security settings, changed the DNS and deactivate WPS. That's it.I'm using 5 Ghz mode with my laptops (5 Ghz adapters) and 2-4 Ghz with a few devices (Chromecast, Nintendo 3DS).
Daphne L. J: Thank you for waiting.
Daphne L. J: Please confirm if the following information is correct:
Name : Fernando Paramo
Phone Number :
E-Mail Address :
Model Number : WRT1900AC
Serial Number : 13J10609406280
Country : United States
You: That's correct.
Daphne L. J: Okay. Were you able to check if the devices have stable connection wired to the router?
You: No. I do not have devices with Ethernet ports. Well, only the cable modem.
You: But the modem is fine. No disconnections from my ISP.
You: It is the router.
Daphne L. J: Alright. What is the current firmware version of your router?
You: I tried to return the router to Wal-Mart yesterday with no luck. This is a useless device. And I have been reading comments on the community forums and a lot of people are having problems.
Daphne L. J: We are actually aware of the issue and are working on a resolution. What is the current firmware version of your router?
You: Ver. 1.1.10.167514
You: Latest one.
Daphne L. J: Yes, so you reflashed the firmware, reset and then manually reconfigure it after, not using backup configuration, is that right?
You: That's correct.
Daphne L. J: And it is intermittent on all devices connected to both 2.4 and 5 Ghz networks, is that right?
You: That's correct.
Daphne L. J: Thank you for the information. Please give ,e 3-5 minutes to verify this with my superior.
Daphne L. J: Thank you for waiting.
You: I want to send you my WRT1900AC and get a V2 or I want a EA8500 and pay the difference myseld.
You: I do not want my current hardware.
You: It is useless for my needs.
You: I can't believe I had an older E3000 that didn't give me any problems.
Daphne L. J: We have already exhausted all possible troubleshooting steps for your concern. As verified with my Supervisor, we will forward your case to our Customer Assurance Team. They are highly technical and knowledgeable when it comes to advanced troubleshooting. They will contact you in the next 24 to 48 hours. By the way, who is your Internet Service Provider? And do you Cable or DSL connection?
You: Cable connection.
Daphne L. J: Who is your Internet Service Provider?
You: A company called .
You: How are they going to contact me?
Daphne L. J: Alright. By the way, on the device itself, on its FCC ID, please check if you have WRT1900AC or WRT1900AC v2.
You: Are you paying attention to me?
You: I already told you it's V1.
Daphne L. J: They will call or email you. Please double check if these informations are correct:
Name :
Phone Number :
E-Mail Address :
You: I told you I want to send you my WRT1900AC and get a V2 or I want a EA8500 and pay the difference myself.
You: I want them to contact me to my email. I can't answer the phone during work hours.
Daphne L. J: We can't assure you if we will be able to replace it with Version 2 or if you are allowed to have the EA8500 instead.
Daphne L. J: Just in case, do you also have an alternate number?
Daphne L. J: Also, what time zone are you in? And what is your preferred time and day for them to contact you?
You: I have the one from my office in Mexico. Central Time. Any time is good.
Daphne L. J: So, you are currently in Mexico?
You: I work in Mexico but I have the house in USA. I live in the border.
Daphne L. J: I see. Do you have any other questions or clarifications?
You: I live 10 minutes away from the International Bridge. But that's not an issue. I bought the router at Walmart in Laredo, TX.
Daphne L. J: Thank you for the information. Would that be all for now?
You: I want a clarification: Do you realize that there is an issue with the current WRT1900AC? Are you aware of that?
You: Because this is a very expensive router that is not working as it should be.
Daphne L. J: Yes, we are aware of the issue and are working on a resolution.
Daphne L. J: Would there be anything else you need?
You: That would be it. I will wait for you to contact me.
You: Thanks.
Daphne L. J: Alright. Thank you for giving us an opportunity to serve you through Linksys Live Chat. You may also visit our support site at www.linksys.com. For your reference, your case number is 04980394. Thank you for choosing Linksys and have a great day! We paid $250 for this piece of equipment. That's a lot of money for a device that doesn't work. I just want to get a V2 replacement, or better yet, an exchange for a EA8500. We should all demand this. It is not fair for us. The current WRT1900AC is a useless device. They even should do a recall of the product. I will wait for them to contact me, but I'm thinking if I should send the information to The Consumerist or someone else. What to do?Hello. I sent my WRT1900AC V1 to Linksys four days ago (Monday) via UPS with a RMA. Linksys paid the shipping and everything. The router is still in route, and it should arrive to their offices tomorrow. Once they receive the WRT1900 AC V1, they are going to send me an EA8500 as a replacement. But I have been reading the comments about the EA8500 here in the forum and it seems to have the same problems. I guess the firmware is extremely flawed in both routers (maybe it is almost the same code?). Anyway, I will try the EA8500 and I hope it works. I bought a temporary router from Walmart and I paid $35 for it. It is a Belink N600 DB. I can't believe that a $35 router is working a lot, lot, lot better than my previous $250 WRT1900AC router. Unbelievable. If the EA8500 doesn't work, I'm going to try and get my money back from Linksys, or contact The Consumerist or someone to get my money back and get a Nighthawk instead.
-
Hi ALL i have a BDC code it is not working properly
this BDC code is not working properly , when ever the file is transfering BDC is aborting in the case of invalid material/batch comes into teh picture... so please could you ''Check for invalid material/batch combinations so they are not processed by the BDC in the program and correctly output in an exception report''
*****************************CODE HERE*****************************
S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_file LIKE rlgrap-filename,
p_arch LIKE rlgrap-filename. "RM080107
SELECTION-SCREEN SKIP.
PARAMETERS: p_mode LIKE ctu_params-dismode DEFAULT 'N'.
SELECTION-SCREEN END OF BLOCK b1.
I N C L U D E S
INCLUDE zwm_np_stock_recon_top.
INCLUDE zwm_np_stock_recon_f01.
I N I T I A L I Z A T I O N
INITIALIZATION.
PERFORM get_interface_filename USING c_interface_file p_file.
PERFORM get_interface_filename USING c_archive_file p_arch."RM080107
S T A R T O F S E L E C T I O N
START-OF-SELECTION.
PERFORM read_file USING p_file.
PERFORM pre_processing.
E N D O F S E L E C T I O N
END-OF-SELECTION.
PERFORM process_checks.
IF w_no_change = 'X'.
WRITE: / text-b03.
WRITE: / sy-uline(34).
ELSE.
PERFORM bdc_mi09.
PERFORM file_check_report.
PERFORM bdc_report.
ENDIF.
PERFORM post_process_checks.
*-- Move the processed file to archive directory
PERFORM move_file.
...*************.........first include...................************
INCLUDE ZWM_NP_STOCK_RECON_TOP *
Data declaration ----------------------------------------------
TYPES: st_rawdata(2000) TYPE c.
TYPES: BEGIN OF st_stck_cnt,
werks TYPE iseg-werks, "plant
lgort TYPE iseg-lgort, "storage location
matnr TYPE iseg-matnr, "material number
charg TYPE iseg-charg, "batch
vfdat TYPE mch1-vfdat, "Sell by date
lwedt TYPE mch1-lwedt, "Manufacture date
quarn(8) TYPE n, "qaunrantine quantity
menge(8) TYPE n, "quantity on hand
message(1), "Message Type (E/W/I)
msg_txt TYPE t100-text, "Message Text
zerostck(1), "Zero stock identifier "RM220307
END OF st_stck_cnt.
TYPES: BEGIN OF st_batch_errors,
matnr TYPE iseg-matnr, "material number
charg TYPE iseg-charg, "batch
clabs TYPE mchb-clabs, "Stock Balance
END OF st_batch_errors.
DATA:
t_rawdata TYPE TABLE OF st_rawdata,
w_rawdata TYPE st_rawdata,
t_stck_cnt TYPE TABLE OF st_stck_cnt,
d_stck_cnt TYPE TABLE OF st_stck_cnt, "RM191006
w_stck_cnt TYPE st_stck_cnt,
t_batch_errors TYPE TABLE OF st_batch_errors,
w_batch_errors TYPE st_batch_errors,
t_messtab LIKE bdcmsgcoll OCCURS 0,
w_messtab LIKE LINE OF t_messtab,
w_no_change.
CONSTANTS: c_interface_file(26) TYPE c VALUE 'ZNP_STOCK_RECON',
c_archive_file(26) TYPE c
VALUE 'ZNP_STOCK_RECON_ARCHIVE'. "RM080107
.*************................second include..........************
***INCLUDE ZWM_NEXTPHARMA_STOKRECON_F01 .
*& Form read_file
reads NextPharma file sent through via webmethods
-->P_FILENAME
FORM read_file USING p_filename.
CLEAR: t_rawdata,
w_rawdata.
REFRESH: t_rawdata.
OPEN DATASET p_filename FOR INPUT IN TEXT MODE.
IF sy-subrc <> 0.
MESSAGE e720(01).
ENDIF.
DO.
READ DATASET p_filename INTO w_rawdata.
IF sy-subrc <> 0.
EXIT.
ELSE.
APPEND w_rawdata TO t_rawdata.
ENDIF.
ENDDO.
CLOSE DATASET p_filename.
ENDFORM. " read_file
*& Form pre_processing
Read file values into internal table
FORM pre_processing.
DATA: lw_matnr TYPE iseg-matnr.
LOOP AT t_rawdata INTO w_rawdata.
lw_matnr = w_rawdata+21(20). "RM031006
lw_matnr = w_rawdata+22(18). "RM031006
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = lw_matnr
IMPORTING
output = lw_matnr
EXCEPTIONS
length_error = 1
OTHERS = 2.
MOVE: lw_matnr TO w_stck_cnt-matnr.
w_stck_cnt-werks = w_rawdata+14(4).
w_stck_cnt-lgort = w_rawdata+18(4).
w_stck_cnt-charg = w_rawdata+84(25).
w_stck_cnt-vfdat = w_rawdata+109(8).
w_stck_cnt-lwedt = w_rawdata+117(8).
w_stck_cnt-quarn = w_rawdata+141(8).
w_stck_cnt-menge = w_rawdata+125(8).
APPEND w_stck_cnt TO t_stck_cnt.
CLEAR w_stck_cnt.
ENDLOOP.
SORT t_stck_cnt BY werks
lgort
matnr
charg.
DELETE ADJACENT DUPLICATES FROM t_stck_cnt.
ENDFORM. " pre_processing
*& Form bdc_mi09
Run file data via BDC TCODE: MI09
FORM bdc_mi09.
DATA: t_bdcdata TYPE TABLE OF bdcdata,
w_bdcdata TYPE bdcdata,
lw_datum(10) TYPE c,
lw_count(2) TYPE n.
WRITE sy-datum TO lw_datum DD/MM/YYYY.
Front Screen
CLEAR w_bdcdata.
w_bdcdata-program = 'SAPMM07I'.
w_bdcdata-dynpro = '0700'.
w_bdcdata-dynbegin = 'X'.
APPEND w_bdcdata TO t_bdcdata.
Enter
CLEAR w_bdcdata.
w_bdcdata-fnam = 'BDC_OKCODE'.
w_bdcdata-fval = '/00'.
APPEND w_bdcdata TO t_bdcdata.
Count Date
CLEAR w_bdcdata.
w_bdcdata-fnam = 'RM07I-ZLDAT'.
w_bdcdata-fval = lw_datum.
APPEND w_bdcdata TO t_bdcdata.
Document Date
CLEAR w_bdcdata.
w_bdcdata-fnam = 'RM07I-BLDAT'.
w_bdcdata-fval = lw_datum.
APPEND w_bdcdata TO t_bdcdata.
Plant
CLEAR w_bdcdata.
w_bdcdata-fnam = 'IKPF-WERKS'.
w_bdcdata-fval = w_stck_cnt-werks.
APPEND w_bdcdata TO t_bdcdata.
Storage Location
CLEAR w_bdcdata.
w_bdcdata-fnam = 'IKPF-LGORT'.
w_bdcdata-fval = w_stck_cnt-lgort.
APPEND w_bdcdata TO t_bdcdata.
LOOP AT t_stck_cnt INTO w_stck_cnt.
Do not submit items with Errors against them
CHECK w_stck_cnt-message NE 'E' AND
w_stck_cnt-zerostck NE 'X'.
"RM220307
lw_count = lw_count + 1.
Input Screen
CLEAR w_bdcdata.
w_bdcdata-program = 'SAPMM07I'.
w_bdcdata-dynpro = '0731'.
w_bdcdata-dynbegin = 'X'.
APPEND w_bdcdata TO t_bdcdata.
Page Down
CLEAR w_bdcdata.
w_bdcdata-fnam = 'BDC_OKCODE'.
w_bdcdata-fval = '=P+'.
APPEND w_bdcdata TO t_bdcdata.
Material
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-MATNR(01)'.
w_bdcdata-fval = w_stck_cnt-matnr.
APPEND w_bdcdata TO t_bdcdata.
Batch
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-CHARG(01)'.
w_bdcdata-fval = w_stck_cnt-charg.
APPEND w_bdcdata TO t_bdcdata.
IF w_stck_cnt-menge NE 0.
Quantity
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-ERFMG(01)'.
w_bdcdata-fval = w_stck_cnt-menge.
APPEND w_bdcdata TO t_bdcdata.
*-- Begin RM220307 - We need to create an item when the quantity is zero
*-- in file and is non-zero in SAP
ELSE.
Zero Stock indicator
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-XNULL(01)'.
w_bdcdata-fval = 'X'.
APPEND w_bdcdata TO t_bdcdata.
*-- End RM220307
ENDIF.
ENDLOOP.
CHECK lw_count NE 0.
After all line items have been input
Final Screen
CLEAR w_bdcdata.
w_bdcdata-program = 'SAPMM07I'.
w_bdcdata-dynpro = '0731'.
w_bdcdata-dynbegin = 'X'.
APPEND w_bdcdata TO t_bdcdata.
Save Document
CLEAR w_bdcdata.
w_bdcdata-fnam = 'BDC_OKCODE'.
w_bdcdata-fval = '=BU'.
APPEND w_bdcdata TO t_bdcdata.
CALL TRANSACTION 'MI09' USING t_bdcdata
MODE p_mode
MESSAGES INTO t_messtab.
ENDFORM. " bdc_mi09
*& Form bdc_report
Write BDC Messages.
FORM bdc_report.
DATA: lw_text TYPE t100-text.
SKIP.
WRITE: / text-b01.
WRITE: / sy-uline(21).
SKIP.
Write BDC Messages
LOOP AT t_messtab INTO w_messtab WHERE msgspra = sy-langu.
MESSAGE ID w_messtab-msgid TYPE w_messtab-msgtyp
NUMBER w_messtab-msgnr
WITH w_messtab-msgv1
w_messtab-msgv2
w_messtab-msgv3
w_messtab-msgv4
INTO lw_text.
WRITE: / lw_text.
ENDLOOP.
ENDFORM. " bdc_report
*& Form process_checks
Perform process check before creating BDC Session
FORM process_checks.
DATA: lw_clabs LIKE mchb-clabs,
lw_menge LIKE mchb-clabs,
lw_matnr LIKE mara-matnr,
lw_charg LIKE mch1-charg,
lw_fail,
lw_vfdat TYPE mch1-vfdat,
lv_sell TYPE c, "RM191006
lv_qty(8) TYPE c. "RM191006
CLEAR: d_stck_cnt[], d_stck_cnt. "RM191006
Check if any of the stock figures differ from current stock figures
LOOP AT t_stck_cnt INTO w_stck_cnt.
lw_menge = w_stck_cnt-menge.
SELECT SINGLE clabs INTO lw_clabs
FROM mchb
WHERE matnr = w_stck_cnt-matnr
AND werks = w_stck_cnt-werks
AND lgort = w_stck_cnt-lgort
AND charg = w_stck_cnt-charg.
IF sy-subrc = 0.
IF lw_clabs NE lw_menge.
lw_fail = 'X'.
*-- Begin RM220307 - Do not create PI item if the stock is zero in the
*-- file and is zero in SAP
EXIT.
ELSEIF lw_clabs = 0 AND lw_menge = 0.
w_stck_cnt-zerostck = 'X'.
MODIFY t_stck_cnt FROM w_stck_cnt.
ENDIF.
*-- End RM220307
ELSE.
lw_fail = 'X'.
ERROR
ENDIF.
ENDLOOP.
If no differences are found set NO CHANGE Flag
IF lw_fail NE 'X'.
w_no_change = 'X'.
EXIT.
ENDIF.
Check for Errors in file data
LOOP AT t_stck_cnt INTO w_stck_cnt.
CLEAR lv_sell. "RM191006
SELECT SINGLE matnr INTO lw_matnr
FROM mara
WHERE matnr = w_stck_cnt-matnr.
IF sy-subrc NE 0.
Invalid Material (E)
w_stck_cnt-message = 'E'.
w_stck_cnt-msg_txt = 'Invalid Material'.
MODIFY t_stck_cnt FROM w_stck_cnt.
CONTINUE.
ENDIF.
SELECT SINGLE charg vfdat
INTO (lw_charg, lw_vfdat)
FROM mch1 "KOB01 - changed from MCHA
WHERE matnr = w_stck_cnt-matnr
AND charg = w_stck_cnt-charg.
AND werks = w_stck_cnt-werks.
IF sy-subrc NE 0.
Invalid Material Batch (E)
w_stck_cnt-message = 'E'.
CONCATENATE 'Invalid Material Batch for plant' w_stck_cnt-werks
INTO w_stck_cnt-msg_txt SEPARATED BY space.
MODIFY t_stck_cnt FROM w_stck_cnt.
CONTINUE.
ELSE.
IF w_stck_cnt-vfdat <> lw_vfdat.
Sell by dates do not match (W)
w_stck_cnt-message = 'W'.
w_stck_cnt-msg_txt =
'Sell by Date does not match Shelf life Expiry Date'.
MODIFY t_stck_cnt FROM w_stck_cnt.
lv_sell = 'X'. "RM191006
CONTINUE. "RM191006
ENDIF.
ENDIF.
IF w_stck_cnt-quarn > 0.
Quarantine balance not Zero (W)
w_stck_cnt-message = 'W'.
*-- Begin RM191006
*-- We do want all warning messages on the report
lv_qty = w_stck_cnt-quarn.
CONDENSE lv_qty NO-GAPS.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = lv_qty
IMPORTING
output = lv_qty.
w_stck_cnt-msg_txt = 'Quarantine balance is not zero'.
CONCATENATE 'Quarantine balance is ' lv_qty '- not zero'
INTO w_stck_cnt-msg_txt SEPARATED BY space.
MODIFY t_stck_cnt FROM w_stck_cnt.
CONTINUE.
IF lv_sell = 'X'.
APPEND w_stck_cnt TO d_stck_cnt.
CLEAR lv_sell.
ELSE.
MODIFY t_stck_cnt FROM w_stck_cnt.
ENDIF.
*-- End RM191006
ENDIF.
ENDLOOP.
*-- Begin RM191006
*-- Finally get all the records into dummy table to report
APPEND LINES OF t_stck_cnt TO d_stck_cnt.
SORT d_stck_cnt.
DELETE ADJACENT DUPLICATES FROM d_stck_cnt.
*-- End RM191006
ENDFORM. " process_checks
*& Form file_check_report
Write warning and Error messages from File checks
FORM file_check_report.
WRITE: /2 'Material',
22 'Batch',
32 'Sell By',
45 'Message Text'.
WRITE: /2 sy-uline(115).
SKIP.
LOOP AT t_stck_cnt INTO w_stck_cnt. "RM191006
LOOP AT d_stck_cnt INTO w_stck_cnt. "RM191006
CHECK w_stck_cnt-message NE ' '.
WRITE: /2 w_stck_cnt-matnr,
22 w_stck_cnt-charg,
32 w_stck_cnt-vfdat,
43 w_stck_cnt-message,
45 w_stck_cnt-msg_txt.
ENDLOOP.
ENDFORM. " file_check_report
*& Form post_process_checks
Check Material Batches in SAP against NP File
FORM post_process_checks.
RANGES: r_matnr FOR mchb-matnr,
r_lgort FOR mchb-lgort,
r_werks FOR mchb-werks.
SORT t_stck_cnt.
LOOP AT t_stck_cnt INTO w_stck_cnt.
AT END OF matnr.
r_lgort-sign = 'I'.
r_lgort-option = 'EQ'.
r_lgort-low = w_stck_cnt-lgort.
APPEND r_lgort.
r_werks-sign = 'I'.
r_werks-option = 'EQ'.
r_werks-low = w_stck_cnt-werks.
APPEND r_werks.
r_matnr-sign = 'I'.
r_matnr-option = 'EQ'.
r_matnr-low = w_stck_cnt-matnr.
APPEND r_matnr.
ENDAT.
ENDLOOP.
Select all material batches for NP Materials
SELECT matnr charg clabs
INTO TABLE t_batch_errors
FROM mchb
WHERE werks IN r_werks
AND lgort IN r_lgort.
IF sy-subrc EQ 0.
Check if the Material Batches are in the NP file
LOOP AT t_batch_errors INTO w_batch_errors.
Disregard Batches without positive unrestricted stock
IF w_batch_errors-clabs LE 0.
DELETE t_batch_errors.
CONTINUE.
ENDIF.
READ TABLE t_stck_cnt INTO w_stck_cnt
WITH KEY matnr = w_batch_errors-matnr
charg = w_batch_errors-charg.
IF sy-subrc = 0.
DELETE t_batch_errors.
ENDIF.
ENDLOOP.
ENDIF.
CHECK NOT t_batch_errors[] IS INITIAL.
Write Batch chak results to report
SKIP.
WRITE: / text-b02.
WRITE: / sy-uline(74).
WRITE: /2 'Material',
22 'Batch'.
WRITE: /2 sy-uline(32).
SKIP.
LOOP AT t_batch_errors INTO w_batch_errors.
WRITE: /2 w_batch_errors-matnr,
22 w_batch_errors-charg.
ENDLOOP.
ENDFORM. " post_process_checks
G E T _ I N T E R F A C E _ F I L E N A M E
FORM get_interface_filename USING filename lw_path.
DATA: i_file TYPE filename-fileintern,
out_filename LIKE v_path-pathextern.
CLEAR: out_filename.
i_file = filename.
get the interface filename to be used when creating file
CALL FUNCTION 'FILE_GET_NAME'
EXPORTING
logical_filename = i_file
IMPORTING
file_name = out_filename
EXCEPTIONS
file_not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
MOVE out_filename TO lw_path.
IF filename NE c_archive_file. "RM080107
CONCATENATE lw_path 'NP_StockBalance.dat'
INTO lw_path.
*-- Begin RM080107 - Add timestamp to the archived file
ELSE.
CONCATENATE lw_path 'NP_StockBalance' sy-datum sy-uzeit '.dat'
INTO lw_path.
ENDIF.
*-- End RM080107
ELSE.
ENDIF.
ENDFORM. "get_interface_filename
*& Form move_file RM080107
Move the processed file to archive directory
FORM move_file.
*-- At last move the file to archive directory
OPEN DATASET p_arch FOR OUTPUT IN TEXT MODE.
IF sy-subrc = 0.
LOOP AT t_rawdata INTO w_rawdata.
TRANSFER w_rawdata TO p_arch.
ENDLOOP.
ENDIF.
CLOSE DATASET p_arch.
DELETE DATASET p_file.
ENDFORM. " move_fileHi,
S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_file LIKE rlgrap-filename,
p_arch LIKE rlgrap-filename. "RM080107
SELECTION-SCREEN SKIP.
PARAMETERS: p_mode LIKE ctu_params-dismode DEFAULT 'N'.
SELECTION-SCREEN END OF BLOCK b1.
I N C L U D E S
INCLUDE zwm_np_stock_recon_top.
INCLUDE zwm_np_stock_recon_f01.
I N I T I A L I Z A T I O N
INITIALIZATION.
PERFORM get_interface_filename USING c_interface_file p_file.
PERFORM get_interface_filename USING c_archive_file p_arch."RM080107
S T A R T O F S E L E C T I O N
START-OF-SELECTION.
PERFORM read_file USING p_file.
PERFORM pre_processing.
E N D O F S E L E C T I O N
END-OF-SELECTION.
PERFORM process_checks.
IF w_no_change = 'X'.
WRITE: / text-b03.
WRITE: / sy-uline(34).
ELSE.
PERFORM bdc_mi09.
PERFORM file_check_report.
PERFORM bdc_report.
ENDIF.
PERFORM post_process_checks.
*-- Move the processed file to archive directory
PERFORM move_file.
...*************.........first include...................************
INCLUDE ZWM_NP_STOCK_RECON_TOP *
Data declaration ----------------------------------------------
TYPES: st_rawdata(2000) TYPE c.
TYPES: BEGIN OF st_stck_cnt,
werks TYPE iseg-werks, "plant
lgort TYPE iseg-lgort, "storage location
matnr TYPE iseg-matnr, "material number
charg TYPE iseg-charg, "batch
vfdat TYPE mch1-vfdat, "Sell by date
lwedt TYPE mch1-lwedt, "Manufacture date
quarn(8) TYPE n, "qaunrantine quantity
menge(8) TYPE n, "quantity on hand
message(1), "Message Type (E/W/I)
msg_txt TYPE t100-text, "Message Text
zerostck(1), "Zero stock identifier "RM220307
END OF st_stck_cnt.
TYPES: BEGIN OF st_batch_errors,
matnr TYPE iseg-matnr, "material number
charg TYPE iseg-charg, "batch
clabs TYPE mchb-clabs, "Stock Balance
END OF st_batch_errors.
DATA:
t_rawdata TYPE TABLE OF st_rawdata,
w_rawdata TYPE st_rawdata,
t_stck_cnt TYPE TABLE OF st_stck_cnt,
d_stck_cnt TYPE TABLE OF st_stck_cnt, "RM191006
w_stck_cnt TYPE st_stck_cnt,
t_batch_errors TYPE TABLE OF st_batch_errors,
w_batch_errors TYPE st_batch_errors,
t_messtab LIKE bdcmsgcoll OCCURS 0,
w_messtab LIKE LINE OF t_messtab,
w_no_change.
CONSTANTS: c_interface_file(26) TYPE c VALUE 'ZNP_STOCK_RECON',
c_archive_file(26) TYPE c
VALUE 'ZNP_STOCK_RECON_ARCHIVE'. "RM080107
.*************................second include..........************
***INCLUDE ZWM_NEXTPHARMA_STOKRECON_F01 .
*& Form read_file
reads NextPharma file sent through via webmethods
-->P_FILENAME
FORM read_file USING p_filename.
CLEAR: t_rawdata,
w_rawdata.
REFRESH: t_rawdata.
OPEN DATASET p_filename FOR INPUT IN TEXT MODE.
IF sy-subrc <> 0.
MESSAGE e720(01).
ENDIF.
DO.
READ DATASET p_filename INTO w_rawdata.
IF sy-subrc <> 0.
EXIT.
ELSE.
APPEND w_rawdata TO t_rawdata.
ENDIF.
ENDDO.
CLOSE DATASET p_filename.
ENDFORM. " read_file
*& Form pre_processing
Read file values into internal table
FORM pre_processing.
DATA: lw_matnr TYPE iseg-matnr.
LOOP AT t_rawdata INTO w_rawdata.
lw_matnr = w_rawdata+21(20). "RM031006
lw_matnr = w_rawdata+22(18). "RM031006
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = lw_matnr
IMPORTING
output = lw_matnr
EXCEPTIONS
length_error = 1
OTHERS = 2.
MOVE: lw_matnr TO w_stck_cnt-matnr.
w_stck_cnt-werks = w_rawdata+14(4).
w_stck_cnt-lgort = w_rawdata+18(4).
w_stck_cnt-charg = w_rawdata+84(25).
w_stck_cnt-vfdat = w_rawdata+109(8).
w_stck_cnt-lwedt = w_rawdata+117(8).
w_stck_cnt-quarn = w_rawdata+141(8).
w_stck_cnt-menge = w_rawdata+125(8).
APPEND w_stck_cnt TO t_stck_cnt.
CLEAR w_stck_cnt.
ENDLOOP.
SORT t_stck_cnt BY werks
lgort
matnr
charg.
DELETE ADJACENT DUPLICATES FROM t_stck_cnt.
ENDFORM. " pre_processing
*& Form bdc_mi09
Run file data via BDC TCODE: MI09
FORM bdc_mi09.
DATA: t_bdcdata TYPE TABLE OF bdcdata,
w_bdcdata TYPE bdcdata,
lw_datum(10) TYPE c,
lw_count(2) TYPE n.
WRITE sy-datum TO lw_datum DD/MM/YYYY.
<b>select single MATNR
WERKS
CHARG
from MCHA
into (l_matnr, l_werks, l_charg)
where matnr = w_stck_cnt-matnr
and werks = w_stck_cnt-werks.
and charg = w_stck_cnt-charg.
if sy-subrc ne 0.
continue.
endif.</b>
Front Screen
CLEAR w_bdcdata.
w_bdcdata-program = 'SAPMM07I'.
w_bdcdata-dynpro = '0700'.
w_bdcdata-dynbegin = 'X'.
APPEND w_bdcdata TO t_bdcdata.
Enter
CLEAR w_bdcdata.
w_bdcdata-fnam = 'BDC_OKCODE'.
w_bdcdata-fval = '/00'.
APPEND w_bdcdata TO t_bdcdata.
Count Date
CLEAR w_bdcdata.
w_bdcdata-fnam = 'RM07I-ZLDAT'.
w_bdcdata-fval = lw_datum.
APPEND w_bdcdata TO t_bdcdata.
Document Date
CLEAR w_bdcdata.
w_bdcdata-fnam = 'RM07I-BLDAT'.
w_bdcdata-fval = lw_datum.
APPEND w_bdcdata TO t_bdcdata.
Plant
CLEAR w_bdcdata.
w_bdcdata-fnam = 'IKPF-WERKS'.
w_bdcdata-fval = w_stck_cnt-werks.
APPEND w_bdcdata TO t_bdcdata.
Storage Location
CLEAR w_bdcdata.
w_bdcdata-fnam = 'IKPF-LGORT'.
w_bdcdata-fval = w_stck_cnt-lgort.
APPEND w_bdcdata TO t_bdcdata.
LOOP AT t_stck_cnt INTO w_stck_cnt.
Do not submit items with Errors against them
CHECK w_stck_cnt-message NE 'E' AND
w_stck_cnt-zerostck NE 'X'.
"RM220307
lw_count = lw_count + 1.
Input Screen
CLEAR w_bdcdata.
w_bdcdata-program = 'SAPMM07I'.
w_bdcdata-dynpro = '0731'.
w_bdcdata-dynbegin = 'X'.
APPEND w_bdcdata TO t_bdcdata.
Page Down
CLEAR w_bdcdata.
w_bdcdata-fnam = 'BDC_OKCODE'.
w_bdcdata-fval = '=P+'.
APPEND w_bdcdata TO t_bdcdata.
Material
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-MATNR(01)'.
w_bdcdata-fval = w_stck_cnt-matnr.
APPEND w_bdcdata TO t_bdcdata.
Batch
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-CHARG(01)'.
w_bdcdata-fval = w_stck_cnt-charg.
APPEND w_bdcdata TO t_bdcdata.
IF w_stck_cnt-menge NE 0.
Quantity
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-ERFMG(01)'.
w_bdcdata-fval = w_stck_cnt-menge.
APPEND w_bdcdata TO t_bdcdata.
*-- Begin RM220307 - We need to create an item when the quantity is zero
*-- in file and is non-zero in SAP
ELSE.
Zero Stock indicator
CLEAR w_bdcdata.
w_bdcdata-fnam = 'ISEG-XNULL(01)'.
w_bdcdata-fval = 'X'.
APPEND w_bdcdata TO t_bdcdata.
*-- End RM220307
ENDIF.
ENDLOOP.
CHECK lw_count NE 0.
After all line items have been input
Final Screen
CLEAR w_bdcdata.
w_bdcdata-program = 'SAPMM07I'.
w_bdcdata-dynpro = '0731'.
w_bdcdata-dynbegin = 'X'.
APPEND w_bdcdata TO t_bdcdata.
Save Document
CLEAR w_bdcdata.
w_bdcdata-fnam = 'BDC_OKCODE'.
w_bdcdata-fval = '=BU'.
APPEND w_bdcdata TO t_bdcdata.
CALL TRANSACTION 'MI09' USING t_bdcdata
MODE p_mode
MESSAGES INTO t_messtab.
ENDFORM. " bdc_mi09
*& Form bdc_report
Write BDC Messages.
FORM bdc_report.
DATA: lw_text TYPE t100-text.
SKIP.
WRITE: / text-b01.
WRITE: / sy-uline(21).
SKIP.
Write BDC Messages
LOOP AT t_messtab INTO w_messtab WHERE msgspra = sy-langu.
MESSAGE ID w_messtab-msgid TYPE w_messtab-msgtyp
NUMBER w_messtab-msgnr
WITH w_messtab-msgv1
w_messtab-msgv2
w_messtab-msgv3
w_messtab-msgv4
INTO lw_text.
WRITE: / lw_text.
ENDLOOP.
ENDFORM. " bdc_report
*& Form process_checks
Perform process check before creating BDC Session
FORM process_checks.
DATA: lw_clabs LIKE mchb-clabs,
lw_menge LIKE mchb-clabs,
lw_matnr LIKE mara-matnr,
lw_charg LIKE mch1-charg,
lw_fail,
lw_vfdat TYPE mch1-vfdat,
lv_sell TYPE c, "RM191006
lv_qty(8) TYPE c. "RM191006
CLEAR: d_stck_cnt[], d_stck_cnt. "RM191006
Check if any of the stock figures differ from current stock figures
LOOP AT t_stck_cnt INTO w_stck_cnt.
lw_menge = w_stck_cnt-menge.
SELECT SINGLE clabs INTO lw_clabs
FROM mchb
WHERE matnr = w_stck_cnt-matnr
AND werks = w_stck_cnt-werks
AND lgort = w_stck_cnt-lgort
AND charg = w_stck_cnt-charg.
IF sy-subrc = 0.
IF lw_clabs NE lw_menge.
lw_fail = 'X'.
*-- Begin RM220307 - Do not create PI item if the stock is zero in the
*-- file and is zero in SAP
EXIT.
ELSEIF lw_clabs = 0 AND lw_menge = 0.
w_stck_cnt-zerostck = 'X'.
MODIFY t_stck_cnt FROM w_stck_cnt.
ENDIF.
*-- End RM220307
ELSE.
lw_fail = 'X'.
ERROR
ENDIF.
ENDLOOP.
If no differences are found set NO CHANGE Flag
IF lw_fail NE 'X'.
w_no_change = 'X'.
EXIT.
ENDIF.
Check for Errors in file data
LOOP AT t_stck_cnt INTO w_stck_cnt.
CLEAR lv_sell. "RM191006
SELECT SINGLE matnr INTO lw_matnr
FROM mara
WHERE matnr = w_stck_cnt-matnr.
IF sy-subrc NE 0.
Invalid Material (E)
w_stck_cnt-message = 'E'.
w_stck_cnt-msg_txt = 'Invalid Material'.
MODIFY t_stck_cnt FROM w_stck_cnt.
CONTINUE.
ENDIF.
SELECT SINGLE charg vfdat
INTO (lw_charg, lw_vfdat)
FROM mch1 "KOB01 - changed from MCHA
WHERE matnr = w_stck_cnt-matnr
AND charg = w_stck_cnt-charg.
AND werks = w_stck_cnt-werks.
IF sy-subrc NE 0.
Invalid Material Batch (E)
w_stck_cnt-message = 'E'.
CONCATENATE 'Invalid Material Batch for plant' w_stck_cnt-werks
INTO w_stck_cnt-msg_txt SEPARATED BY space.
MODIFY t_stck_cnt FROM w_stck_cnt.
CONTINUE.
ELSE.
IF w_stck_cnt-vfdat <> lw_vfdat.
Sell by dates do not match (W)
w_stck_cnt-message = 'W'.
w_stck_cnt-msg_txt =
'Sell by Date does not match Shelf life Expiry Date'.
MODIFY t_stck_cnt FROM w_stck_cnt.
lv_sell = 'X'. "RM191006
CONTINUE. "RM191006
ENDIF.
ENDIF.
IF w_stck_cnt-quarn > 0.
Quarantine balance not Zero (W)
w_stck_cnt-message = 'W'.
*-- Begin RM191006
*-- We do want all warning messages on the report
lv_qty = w_stck_cnt-quarn.
CONDENSE lv_qty NO-GAPS.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = lv_qty
IMPORTING
output = lv_qty.
w_stck_cnt-msg_txt = 'Quarantine balance is not zero'.
CONCATENATE 'Quarantine balance is ' lv_qty '- not zero'
INTO w_stck_cnt-msg_txt SEPARATED BY space.
MODIFY t_stck_cnt FROM w_stck_cnt.
CONTINUE.
IF lv_sell = 'X'.
APPEND w_stck_cnt TO d_stck_cnt.
CLEAR lv_sell.
ELSE.
MODIFY t_stck_cnt FROM w_stck_cnt.
ENDIF.
*-- End RM191006
ENDIF.
ENDLOOP.
*-- Begin RM191006
*-- Finally get all the records into dummy table to report
APPEND LINES OF t_stck_cnt TO d_stck_cnt.
SORT d_stck_cnt.
DELETE ADJACENT DUPLICATES FROM d_stck_cnt.
*-- End RM191006
ENDFORM. " process_checks
*& Form file_check_report
Write warning and Error messages from File checks
FORM file_check_report.
WRITE: /2 'Material',
22 'Batch',
32 'Sell By',
45 'Message Text'.
WRITE: /2 sy-uline(115).
SKIP.
LOOP AT t_stck_cnt INTO w_stck_cnt. "RM191006
LOOP AT d_stck_cnt INTO w_stck_cnt. "RM191006
CHECK w_stck_cnt-message NE ' '.
WRITE: /2 w_stck_cnt-matnr,
22 w_stck_cnt-charg,
32 w_stck_cnt-vfdat,
43 w_stck_cnt-message,
45 w_stck_cnt-msg_txt.
ENDLOOP.
ENDFORM. " file_check_report
*& Form post_process_checks
Check Material Batches in SAP against NP File
FORM post_process_checks.
RANGES: r_matnr FOR mchb-matnr,
r_lgort FOR mchb-lgort,
r_werks FOR mchb-werks.
SORT t_stck_cnt.
LOOP AT t_stck_cnt INTO w_stck_cnt.
AT END OF matnr.
r_lgort-sign = 'I'.
r_lgort-option = 'EQ'.
r_lgort-low = w_stck_cnt-lgort.
APPEND r_lgort.
r_werks-sign = 'I'.
r_werks-option = 'EQ'.
r_werks-low = w_stck_cnt-werks.
APPEND r_werks.
r_matnr-sign = 'I'.
r_matnr-option = 'EQ'.
r_matnr-low = w_stck_cnt-matnr.
APPEND r_matnr.
ENDAT.
ENDLOOP.
Select all material batches for NP Materials
SELECT matnr charg clabs
INTO TABLE t_batch_errors
FROM mchb
WHERE werks IN r_werks
AND lgort IN r_lgort.
IF sy-subrc EQ 0.
Check if the Material Batches are in the NP file
LOOP AT t_batch_errors INTO w_batch_errors.
Disregard Batches without positive unrestricted stock
IF w_batch_errors-clabs LE 0.
DELETE t_batch_errors.
CONTINUE.
ENDIF.
READ TABLE t_stck_cnt INTO w_stck_cnt
WITH KEY matnr = w_batch_errors-matnr
charg = w_batch_errors-charg.
IF sy-subrc = 0.
DELETE t_batch_errors.
ENDIF.
ENDLOOP.
ENDIF.
CHECK NOT t_batch_errors[] IS INITIAL.
Write Batch chak results to report
SKIP.
WRITE: / text-b02.
WRITE: / sy-uline(74).
WRITE: /2 'Material',
22 'Batch'.
WRITE: /2 sy-uline(32).
SKIP.
LOOP AT t_batch_errors INTO w_batch_errors.
WRITE: /2 w_batch_errors-matnr,
22 w_batch_errors-charg.
ENDLOOP.
ENDFORM. " post_process_checks
G E T _ I N T E R F A C E _ F I L E N A M E
FORM get_interface_filename USING filename lw_path.
DATA: i_file TYPE filename-fileintern,
out_filename LIKE v_path-pathextern.
CLEAR: out_filename.
i_file = filename.
get the interface filename to be used when creating file
CALL FUNCTION 'FILE_GET_NAME'
EXPORTING
logical_filename = i_file
IMPORTING
file_name = out_filename
EXCEPTIONS
file_not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
MOVE out_filename TO lw_path.
IF filename NE c_archive_file. "RM080107
CONCATENATE lw_path 'NP_StockBalance.dat'
INTO lw_path.
*-- Begin RM080107 - Add timestamp to the archived file
ELSE.
CONCATENATE lw_path 'NP_StockBalance' sy-datum sy-uzeit '.dat'
INTO lw_path.
ENDIF.
*-- End RM080107
ELSE.
ENDIF.
ENDFORM. "get_interface_filename
*& Form move_file RM080107
Move the processed file to archive directory
FORM move_file.
*-- At last move the file to archive directory
OPEN DATASET p_arch FOR OUTPUT IN TEXT MODE.
IF sy-subrc = 0.
LOOP AT t_rawdata INTO w_rawdata.
TRANSFER w_rawdata TO p_arch.
ENDLOOP.
ENDIF.
CLOSE DATASET p_arch.
DELETE DATASET p_file.
ENDFORM. " move_file
Best regards,
Prashant -
My Ipod touch does not work properly.When i charge it,it only works for 5 min.n gets discharge.I showed it to the apple store in banglore n the person told me its fine n It is working properly.Bt its not working properly.Can someone help
If after you charge it for about three hours and it only last about five minutes the battery is probably dead or there could be another hardware problem. I would go back to the Apple store and ask them specifically how can it be OK if the fully charged battery only lasts five minutes.
-
Dial UP Modem is not working properly in Satellite A200-1GB
My A200 - 1 GB's modem is not working properly. It tries to connect but at last it says remote computer is not responding. As i noticed It has a "Agree" 56kpbs modem.
It shown as Toshiba Software Modem.
I tried so many times it doesn't work properly. I tried by changing the assigned COM ports to several other COM ports like COM1,COM10,COM 4 ext... same thing occurs.
When I diagnose the modem via the modem properties no matters found.
Same as when I'm dialing through the modem to a telephone (i mean as a call) it's working properly. I mean it can call to a mobile phone or land phone.
But the same phone line is working properly with my desktop modem as same as another HP laptop modem.
It seems there is some malfunction on my 56k modem.
I tried even uninstalling and reinstalling but still the matter exists.
Can anybody help me in this case?Please check this thread:
http://forums.computers.toshiba-europe.com/forums/message.jspa?messageID=109510#109510
Seems you have started two threads about the same theme. -
Mouse is not working properly on a one month old HP Pavillion 15-NO28US
I'm sure it's already been talked about on here, but I haven't found a successful fix or the same exact problem as I'm having. I went thru the latest Windows 8.1 update recently (at least I think it was the update) and when I restarted my computer yesterday the mouse was not working properly. Like a lot of other people who are complaining about it, the two-finger scrolling and other similar features are not working, but what really bothers me is the the mouse is almost acting like it was changed to a left handed mouse. I've checked the settings and it is still set on right-handed, but when I click the left mouse button the small window opens up next to where I clicked, which has the copy, delete and paste options (and other regular options) in it. When I click the right mouse button, nothing happens. Double tapping on the touchpad doesn't do anything either. I downloaded and install the latest synaptic drivers and nothing happened. I even performed a system recovery last night to reset all setting and it's still not working. This really sucks because I've only had this computer for about a month and I've already lost everything I've put on it...most importantly all of my school work and music apps. Is there anything to fix this or can anyone tell me what's going on with this stuff, before I have to call into HP and have a melt down?
Hi Kevin3047,
Thank you for your query, I will do my best to assist you!!
I understand that after updating from Windows 8 to 8.1 your mouse is not performing correctly. You have tried the built in troubleshooter but to no avail.
You checked the settings and they appear ok, but when you click the left mouse button the small window opens up next to where you clicked, which has the copy, delete and paste options (and other regular options) in it. When you click the right mouse button, nothing happens. Double tapping on the touchpad doesn't do anything either. I grasp that you did a recovery but it did not help. You also stated you lost your data once, and that in itself is extremely aggravating, I agree.
Here is a step that may help.
Go to the Command Prompt and right click on it to run as Administrator
type sfc /scannow and press enter. This will scan for corrupted files and try to repair them.
Here are links to two documents that may aid with this process.
Troubleshooting Mouse Problems (Windows 8)
Using and Troubleshooting the TouchPad or ClickPad (Windows 8)
Would you also please try a clean boot to see if it persists. Here is a Windows document to assist you.
How to perform a clean boot in Windows
If none of this has alleviated the issue, I suggest you do a Refresh Your PC to Resolve Problems (Windows 8).
If the issue still pesists, I would do a recovery again. You will be prompted during the recovery to backup your personal files to prevent data loss. I would suggest you choose yes, to prevent data loss.
Performing an HP System Recovery (Windows 8)
Restoring Files that were Backed Up Using HP Recovery Manager (Windows 8)
This will take it back to factory. Here is a document on Updating Windows 8 to 8.1 to assist you with doing the update again.
If you are still experiencing the issue, as @visruth stated I would contact HP support for assistance. They are able to remotely log onto your system to help with this difficulty.
Please call HP technical support at 800-474-6836. If you live outside the US/Canada Region, please click the link below to get the support number for your region HP Technical Support Sitemap.
Good Luck!!
Sparkles1
I work on behalf of HP
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 bottom right to say “Thanks” for helping! -
ESS is not working properly after upgrade from 4.7 to ECC6.0
ESS Scenario in 4.7
4.7 Scenario:
The IMG configuration u201CWork and Life Eventsu201D is done to map them with the PZM3 service (Home Page) to get them as different folders/links on the home page as given below:
List of Services used to set up ESS:
Sl.No Functionality Service/EWT/URL Name Standard/ Customized Type
1 Home Page PZM3 Standard Service
2 Inbox BWSP Standard Service
3 Calendar BWCA Standard Service
4 Whou2019s Who PZ01 Standard Service
5 CPF Display http://192.168.0.2:7070/omcpf NA URL
6 Payslip Display ZPAYSLIP_USER Customized Service
7 Section 80C PZ88 Standard EWT
8 Section 80 PZ80 Standard EWT
9 Form 16 HRESSIN_F16 Standard EWT
10 Address PZ02 Standard EWT
11 Bank Information PZ03 Standard Service
12 Open Appraisals Not Available NA Service
13 Emergency Address PZ05 Standard EWT
14 Family/Dependents PZ12 Standard EWT
15 Personal Data PZ13 Standard EWT
16 Previous Employers PZ28 Standard EWT
17 Apply Leave WS20000081 Standard Service
18 Leave Overview WS01000109 Standard Service
19 Leave Balance PZ09 Standard Service
20 Loan Application ZLOAN Customized Service
ECC6.0 Scenario:
In ECC6.0, flow based services are no more supported by ECC6.0 and Dynpro based services are supported.PZM3 (Home Page) is a flow based service.
There is no replacement provided for PZM3 service, so the IMG configuration is not possible for u201CWork and Life Eventsu201D.
OSS ticket raised, but no solution for IMG u201CWork and Lifeu201D events.
List of Services would be used to set up ESS:
Sl.No Functionality Service/EWT/URL Name Standard/ Customized Type
1 Home Page PZM3 Standard service
1)this service is not available
2)SAP does not provide any replacement.
3)PZM3 is not supported in Integrated ITS. No direct solution proposed.
4)Given reference of few notes.
5) A dynpro (module pool screen) based IAC needs to be created and links need to be provided on that screen. Generated HTML page is modified to access the services via URL or by OKCODE.
Screenshot attached below.
2 Whou2019s Who PZ01 Standard Service
1)this service Available
2)Not Working properly.
3) The problem may be because of the dependency with SAP Query. Either Query is missing in the new system or not having the proper authorization. Needs to be debugged and finalized.
7 Section 80C PZ88 Standard EWT Available
8 Section 80 PZ80 Standard EWT Available
9 Form 16 HRESSIN_F16 Standard EWT Available
10 Address PZ02 Standard EWT Available Only EWT Available. Service needs to be created to access the EWT.
11 Bank Information PZ03 Standard Service Available EWT Available. Service needs to be created to access the EWT.
12 Open Appraisals Not Available NA Service EWT Available. Service needs to be created to access the EWT.
13 Emergency Address PZ05 Standard EWT Available EWT Available. Service needs to be created to access the EWT.
14 Family/Dependents PZ12 Standard EWT EWT Available. Service needs to be created to access the EWT.
15 Personal Data PZ13 Standard EWT EWT Available. Service needs to be created to access the EWT.
16 Previous Employers PZ28 Standard EWT Service Available
17 Apply Leave WS20000081 Standard Service Available, but not working No solution is proposed yet.
18 Leave Overview WS01000109 Standard Service Available, but not working No solution is proposed yet.
19 Leave Balance PZ09 Standard Service Available, but not working No solution is proposed yet.Ya ramakrishna,
Even easier is for you to send us the mail ID of your client. We will do the work, then send them an idoc of message type INVOICE and for you a post card of course.
Please do the needfull,
Julius -
Charger is not working properly
Hi, after 10.9.2 update my charger is not working properly. First I thought the problem was the charger itself had died, but then I saw a pale light. I searched here and found that resetting SMC could be a solution. It worked for a while, but now the problem is back and resetting again doesn't work. I also resetted PRAM and nothing happens. The light is now green, but battery status says it isn't charging.
What else can I do? Mavericks updates are a headache that has already made me format my laptop – because of another problem– and I'd love to avoid it. Thanks in advance.If you are still under warranty and/or have AppleCare, call them. Let them deal w/it.
OOW: Take your MBP & charger to your local Apple Store or an AASP. Diagnostic testing is FREE! -
Safari is not working properly
Safari is not working properly......it stop responding without any reason and after a few seconds begins to work again......
Before it was very rare....but now it has become regular ....what should I do to fix this issue...?Have you tried restarting or resetting your iPad?
Restart: Press On/Off button until the Slide to Power Off slider appears, select Slide to Power Off and, after the iPad shuts down, then press the On/Off button until the Apple logo appears.
Reset: Press the Home and On/Off buttons at the same time and hold them until the Apple logo appears (about 10 seconds). Ignore the "Slide to power off" -
My Magic Jack is not working properly. I can make a call and the person I have called can hear me but I can't hear them. What can I do to fix this?
if it play not sound at all then it's likely the hardware issue where the headset detector gets stuck
like this the detector just is stuck in the opposite way
https://discussions.apple.com/thread/1343532?start=315&tstart=0
more
iphone stuck in headphone mode -
My mac book fell of my desk yesterday. All seems well, but I noticed today that the dvd drive is not working properly, it seems to want to keep ejecting the disk even when the disk is out, and it won't accept dvd's any more. Any suggestions o fellow apple users?
Back up EVERYTHING, then take it in to have them assess for any latent damage. Wouldn't want a similar "delayed reaction" from the hard disk drive, would we?
Maybe you are looking for
-
Project as an Investment measure - Unable to settle
Hi, Request help on the below situation. 1.We have created a project as an Investment project using tcode CJ20N and a WBS element in the project also. The WBS element when released, creates an AUC automatically. However the AUC created does not have
-
Hi, I got delivery number, how to get the vendor name and other details, it is shipping document. Plese help it is very urgent. thanks
-
I am running Safari as my browser I can receive emails however I can't send them. I have a yahoo account. My email works on my PC but not my MAC. Is it Safari or what? Will someone assist?
-
Hi Expurts where is the integration betwwen Asset and Project Systems please explain with examples. Regards Ragini
-
Can I select non-rectangular regions / arrays using a script?
I took at look at the VB Scripting Reference. Not clear whether the Select-Region made up of an array of points, can in fact be something other than a rectangle.