Can we offer feedback on improving the usability of Verizon Wireless's website ?

I didn't find any email or webform on the "Contact Us" for website feedback. The only thing I found was a snail-mail address.
Is this correct? Website feedback is allowed only through snail-mail?

Hey there onedeetentee,
I would be more than happy to address your website feedback. We are always trying to make our website more user friendly and the only way to do that is to hear from the users themselves.
What kind of feedback do you have for us?
Ann154 is correct, we currently do not have an option to e-mail us, but we have plenty of other venues for you to interact with us. You can try the Chat option, you can give us a call at 1-800-922-0204, you can send us a post on Facebook or reach out to us on Twitter @VZWSupport.
Let us know if you need additional assistance.
Nicholas_VZW
Please follow us on twitter @VZWSupport

Similar Messages

Is there an App that I can buy which will significantly improve the volume of my i-phone 4 whilst using i-tunes?

Is there an App that I can buy which will significantly improve the volume of my i-phone 4 whilst using i-tunes?

It's already on your device - Settings > General > Accessibility > AssistiveTouch > On

Why can not you thought of improving the design of power adapters for mac book pro from damage so easily?

why can not you thought of improving the design of power adapters for mac book pro from damage so easily?

I congratulate you. you are very lucky because I hurt my less than two years taking all possible care. and have found that this has happened to many people more

What is the number for Verizon Wireless Corporate Customer Service Complaint for CA

My Complaint: I have been a Verizon Wireless customer for approx 20 years. I called customer service to seek an early upgrade for my daughter's phone. She is away in college and her phone is malfunctioning. She is eligible for an upgrade in approx 6 weeks so I did not want to spend the money on a replacement phone when since we were planning on updating to something newer. The customer service rep to me they could not do the early upgrade an to call back in a few weeks. After explaining this was unacceptable (I do not like the idea of a young female being out of state and away from home with no reliable means of communication), she places me on hold to later return with the only offer of I must purchase a new device through her ( over the phone) which will be shipped to me, the phone was priced $100.00 more than the online price (they will not price match), plus i must pay $30.00 upgrade fee, $35.00 activation fee and taxes on the retail price of the phone. I am upset and disappointed with the quality of service provided by Verizon being a 20 year customer. If not for the seriousness and urgency of this matter, i would not have asked for an early upgrade. It is times such as these that you get to see how much of a "valued customer" you really are. I guess you are valued as long as you pay your bill and continually purchase their products. I would like to speak with someone from Verizon's corporate or customer relations department. As of now I am really considering changing my service to a different provider. I have multiple accounts with Verizon and i will canx each after the current contract committment expire (starting with my daughter's phone which expires in 6 weeks) In the meantime I will go purchase her a new phone with someone else and take comfort knowing she will have reliable communication.

I started with them in 1985. It has been wonderful service but very expensive. They seem to operate on day of deposit day of withdrawal. That means that I have no benefits nothing beyond the normal customer if I don't pay my bill they shut me off. That's why I have switch to another provider and I have better service lower cost and better phones. you can't beat other providers I mean it. Please don't expect more from verizon other than a "pay me more money and I'll do what you want" because it's all about money. Read the transcripts from current Verizon employees all over the internet. The company is going down and they're taking customers with them.
msvat <[email protected]> wrote:
msvat created the discussion
"What is the number for Verizon Wireless Corporate Customer Service Complaint for CA"
To view the discussion, visit: https://community.verizonwireless.com/message/1113982#1113982
>

I deleted the pre installed verizon wireless tile on my smart screen on the Nokia icon how do I get it back

I Deleted the pre installed verizon wireless tile on my smart screen on the Nokia icon how do I get it back ?

We can help with this issue Izz. This may have been one of your screen savers. Have you tried to change your display settings? Here is a link with steps for changing the settings on your Nokia Lumia Icon.
KinquanaH_VZW
Follow us on Twitter @vzwsupport

Is there a place to offer feedback for improving OSX?

This forum is for "general constructive feedback about how the Discussions system is operating or how it may be improved" but what about a forum for general constructive feedback about how the Mac OS may be improved?
Does such a forum exist?

This isn't a forum for that purpose, but Apple provides the Mac OS X feedback form. You will not receive a response to your feedback, but your feedback is sent to the people who can use it.
(Hi First Magus. I was writing while you were posting. )
Message was edited by: Rachel R

The WORST of Verizon Wireless

The "customer service" I have experienced through interactions with Verizon employees over the past week has been nothing short of terrible. Here are a few of the best examples:
1. Went to Verizon Store in person to upgrade my broken iPhone (2 months after eligible for upgrade). Salesperson sees me in vulnerable state and informs me, "In order to process your upgrade, we require that you purchase our 'Upgrade Pack', which includes great stuff like a case, screen protector, headphones, and speakers." They would NOT allow me to purchase a new phone unless I spent an additional $160 on accessories I did not want. Worst of all, they were only willing to replace my broken iPhone 4s with a downgraded 4, which they wanted to charge me $199 for, when the online price was FREE for that unit with a new contract. Salesperson claimed this was store policy at the Glendale, CA location. They attempted to extort me for profit as they knew I needed a phone immediately. I walked out.
2. After the in-store disaster, I purchased a new phone using Verizon's 1-800 number last week. I was told that my order went through, they charged my credit card, and was informed that the phone would arrive in 2 days. That was a week ago. My order was held up in "processing" for over a week, with no explanation as to why. My credit card was charged TWICE for the same amount, yet I still have no phone being shipped to me.
3. In order to understand why my phone had never been shipped, I had to call customer service upwards of 20 times, with no resolution offered after any of these phone calls, some of which lasted over an hour. One of the men on the phone asked me if he had resolved my issue. After I told him "no," he called back 5 minutes later and attempted to offer me a resolution, all the while laughing at me. I could hear that I was on speakerphone, and I heard his co-workers laughing in the background at our conversation. He could barely even speak he was laughing so hard. I found this very disrespecful and embarassing. A paying customer is frustrated by YOUR service... why is this funny? Was tickled by his own ineptitude? I was NOT laughing. The fact that Verizon would promote a culture of abusing customers among their employees is disgusting. This account pays upwards of $5,000 each year, and has been with Verizon for many many years. Is this how you treat a loyal, long-time customer? ABSOLUTELY NOT.
4. I was transferred to "customer care." After holding for about 25 minutes, one of the associates started looking into my order, decided it was a difficult issue to resolve as the order was, for some reason, not attached to my account in their database, and then mid-sentence, transferred my call to another, unrelated department - device tech support - just to get rid of me. At that point, I was done.
I CANNOT WAIT until my contract is over so I never have to deal with the ignorant people working for this organization EVER AGAIN.

We as consumers have to be able to say no, when you have been pressured to purchase anything we don't want or need.
First off cancel the charges to your card and calm down.
I always use the store (corporate not a reseller) walk in the door, find the phone I want call the guy or girl over tell them to go in the back and get it for me, I state firmly that no changes are to be added or subtracted from my number or account.
I decline any and all extras, since I picked them up when I am ready as a seperate transaction.
Please note to have service or a new phone does not require any accessory purchase. Speak up and stick to it.
After you have the new phone, if under a new contract via taking a free or subsidize phone check the account on the receipt to see no surprises were added. If you are paying full price make sure you were not placed under any contract, make sure everything you had previously on the acvount be it unlimited data, calling, picture messaging, texting what ever make sure the only change was just the esn/meid number for your new device.
If you stay alert, firm and unfazed you will prevail.
Cancel the charges to your credit or bank card and then laugh right back at them when they call you. (verizon)

Getting the shaft because of the KinTWO by Verizon Wireless!!!

I upgraded to the KinTwo just over 30 days ago now. I started calling Verizon re: issues with it almost immediately upon receipt starting with the TWO HOUR conversation I had with tech support trying to get the darn thing activated and uploading my contacts only to be told to take it to the STORE and have them do it. Then I got to go AROUND with the store about the contact switch so that I wasn't charged for it. Then I was so frustrated trying to use it that I actually downloaded and read the user manual (a first for ANY phone I've had since 1998) and it STILL SUCKS!! There is no way to lock the volume control rocker so I am constantly muting the volume on the ringer (even though the screen is locked). I'd had two weeks ago (3 weeks after purchase) when it randomly began shutting off. All the time for no discernible reason!! I have been to two Verizon stores, one Verizon dealer, and called customer service 3 separate times trying to get them to change this *** for ANY other Verizon phone. I was even willing to add data and upgrade to the iPHONE!!! Still I got told that my options were to either buy a phone at full retail price, pay $170 to deactivate the phone and walk away from Verizon all together OR add a line to my plan @ $10/month and get a new phone at the 2 year price and put the old phone in a drawer somewhere. I finally thought I might have some help with my final call to customer service last week when I nice lady named Debbie said she would speak to her manager and see if there was something she could do to help. She said the mgr. was in a meeting, but that she would call me back in the next two hours. THAT WAS A WEEK AGO!!! Thanks DEBBIE for NOTHING!!!
Why do they even sell the Kin Two anymore? What happened to the 30 day thing? Verizon is HARDCORE that they wouldn't do anything for me when I hadn't had the phone for 30 days!!! I cannot believe the way they treat good customers. Wonder what they do to the people who don't pay? Boiled in oil is my guess....

Good point,
I think the wireless customer service must be separate from the rest of verizon because they dont seem to care about customer service.
I never got a return call a few times.. and just gave up..
Reading your post makes me think twice about their unresponsiveness two years ago.
Good luck, martin

How can I create a log for the dice roll generator on my website?

Here is my website: http://gator789.hostgator.com/~stillman/index.html
I want to create a log for each time the roll button is clicked to generate a random image of a six-sided die on my website. I was thinking maybe a MySQL database with PHP would get me what I want? I have no idea how I would start setting this up though. I don't want to sound to pushy here, but I would also like to have a form setup above the roll button for name details, etc. How would I go about doing this?

I don't understand why you need a log to generate a random number. The logic behind a random javascript image generator with a math function is all you need. Put your gif images into an array and let the script do the rest.
http://eposic.org/samples/dice/part1.php
Nancy O.
Alt-Web Design & Publishing
Web | Graphics | Print | Media Specialists
http://alt-web.com/
http://twitter.com/altweb
http://alt-web.blogspot.com

Why can't I list 'Russian' as the culture on a Russian based website?

Just about every other culture is listed in the BC admin but Russian seems to be missing...or am I missing something?

This is a long shot (since I've not had troubles posting with Safari), but I would tell Safari to allow pop-ups (Safari > Preferences > Security > (uncheck) Block pop-up windows), and then log in to eBay.

Hi sap gurus can u plz improve the performance of my code --sneha

// for the below program i have performance issue can any sap gurus can modify my code to improve the performance ,its very urgent plz help me -
sneha
REPORT ZFIR_GRIR_IPV
        NO STANDARD PAGE HEADING
        LINE-SIZE 120
        MESSAGE-ID ZFI02.
TABLES: BSEG,BKPF.
TYPES: BEGIN OF A_FINAL,
        BUKRS   TYPE CHAR12,
        HKONT_P TYPE CHAR18,
        GJAHR   TYPE CHAR11,
        BELNR   TYPE CHAR19,
        BUDAT   TYPE CHAR12,
        WAERS   TYPE CHAR8,
        XBLNR   TYPE CHAR20,
        BLART   TYPE CHAR13,
        MONAT   TYPE CHAR13,
        DMBTR_P TYPE CHAR13,
        KOSTL   TYPE CHAR11,
        PRCTR_P TYPE CHAR13,
        HKONT_G TYPE CHAR18,
        DMBTR_G TYPE CHAR13,
        PRCTR_G TYPE CHAR13,
        BUZID_G TYPE CHAR15,
        END OF A_FINAL.
changes on 30 th may by dileep
TYPES: BEGIN OF IT_FINAL,
        BUKRS   TYPE BUKRS ,
        HKONT TYPE HKONT,
        BELNR   TYPE BELNR_D,
        DMBTR TYPE DMBTR ,
        KOSTL   TYPE KOSTL,
        PRCTR TYPE PRCTR,
        END OF IT_FINAL.
TYPES: BEGIN OF IT_FINAL1,
        BUKRS   TYPE BUKRS,
        HKONT TYPE HKONT,
        GJAHR   TYPE GJAHR ,
        BELNR   TYPE BELNR_D,
        BUDAT   TYPE BUDAT,
        WAERS   TYPE WAERS ,
        XBLNR   TYPE XBLNR1,
        BLART   TYPE BLART,
        MONAT   TYPE MONAT,
        DMBTR TYPE DMBTR,
        KOSTL   TYPE KOSTL,
        PRCTR TYPE PRCTR,
         END OF IT_FINAL1.
end of changes on 30 th may by dileep
TYPES: BEGIN OF P_FINAL,
        BUKRS   TYPE CHAR12,
        DELIMITER_1         TYPE CHAR1,
        HKONT_P TYPE CHAR18,
         DELIMITER_2         TYPE CHAR1,
        GJAHR   TYPE CHAR11,
        DELIMITER_3         TYPE CHAR1,
        BELNR   TYPE CHAR19,
        DELIMITER_4         TYPE CHAR1,
        BUDAT   TYPE CHAR12,
        DELIMITER_5        TYPE CHAR1,
        WAERS   TYPE CHAR8,
        DELIMITER_6         TYPE CHAR1,
        XBLNR   TYPE CHAR20,
        DELIMITER_7         TYPE CHAR1,
        BLART   TYPE CHAR13,
        DELIMITER_8         TYPE CHAR1,
        MONAT   TYPE CHAR13,
        DELIMITER_9         TYPE CHAR1,
        DMBTR_P TYPE CHAR13,
        DELIMITER_10         TYPE CHAR1,
        KOSTL   TYPE CHAR11,
        DELIMITER_11         TYPE CHAR1,
        PRCTR_P TYPE CHAR13,
        DELIMITER_12         TYPE CHAR1,
        HKONT_G TYPE CHAR18,
        DELIMITER_13         TYPE CHAR1,
        DMBTR_G TYPE CHAR13,
        DELIMITER_14         TYPE CHAR1,
        PRCTR_G TYPE CHAR13,
        DELIMITER_15        TYPE CHAR1,
        BUZID_G TYPE CHAR15,
        END OF P_FINAL.
DATA: IT_BSEG TYPE STANDARD TABLE OF IT_FINAL INITIAL SIZE 0,
      I_BSEG TYPE STANDARD TABLE OF IT_FINAL1 INITIAL SIZE 0,
      I_FINAL TYPE STANDARD TABLE OF A_FINAL INITIAL SIZE 0 WITH HEADER LINE,
      I_FINAL_P TYPE STANDARD TABLE OF P_FINAL INITIAL SIZE 0 WITH HEADER LINE,
      W_FINAL_P TYPE P_FINAL,
      W_BSEG1 TYPE BSEG,
      WA_BSEG TYPE IT_FINAL OCCURS 0 WITH HEADER LINE,
      W_BSEG TYPE IT_FINAL1 OCCURS 0 WITH HEADER LINE,
      T_BSEG TYPE STANDARD TABLE OF BSEG INITIAL SIZE 0 WITH HEADER LINE,
      W_FINAL TYPE A_FINAL,
      F_YEAR TYPE BAPI0002_4-FISCAL_YEAR,
      F_PERIOD TYPE BAPI0002_4-FISCAL_PERIOD,
      RETURN1 TYPE BAPIRETURN1,
      V_DATE        TYPE CHAR8,               " Date in YYYYMMDD format
      V_PRESPATH    TYPE STRING,              " Path
      V_APPPATH     TYPE STRING,               " Path
      V_FILENAME(25) TYPE C,                    " File Name
      V_PERIOD      TYPE CHAR3,                " Date for Posting Period
      V_FSYEAR      TYPE BDATJ,                " Fiscal Year
      L_TEXT        TYPE CHAR1.                " Hypen
CONSTANTS:   C_TXT       TYPE    CHAR4    VALUE '.txt',          " File Extension
             C_TXT1      TYPE    STRING   VALUE 'txt',           " File Type
             C_FLAG_X    TYPE    CHAR1    VALUE 'X',             " Flag
             C_ASC       TYPE    FILETYPE VALUE 'ASC',           " File type
             C_DAT       TYPE    CHAR4    VALUE '.dat',          " File Type
             C_FLAG_1    TYPE    CHAR1    VALUE '1',             " Constant value
             C_ZERO      TYPE    CHAR1    VALUE '0',             " Constant
             C_GLD(10)    TYPE    C        VALUE 'GRIR021S',       " Constant in file Path
             C_DIR       TYPE    CHAR3    VALUE 'C:\',           " Presentation Server path
             C_FLAG_12   TYPE    CHAR2    VALUE '12',            " Constant value
             C_PCFILE    TYPE    STRING   VALUE 'PC File',
             C_DELIMITER TYPE    C        VALUE '|'.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
*--- Selection Criteria
SELECT-OPTIONS: S_BUKRS FOR    BSEG-BUKRS   DEFAULT '012T',       " Company Code
                S_HKONT FOR    BSEG-HKONT OBLIGATORY DEFAULT '4505001',
                S_GJAHR FOR    BKPF-GJAHR   DEFAULT SY-DATUM+0(4),
                S_MONAT FOR    BKPF-MONAT   DEFAULT SY-DATUM+4(2),
                S_BELNR FOR    BSEG-BELNR ,
                S_BUDAT FOR    BKPF-BUDAT ,
                S_PRCTR FOR    BSEG-PRCTR OBLIGATORY DEFAULT '12TOTH00',
                S_BLART FOR    BKPF-BLART   OBLIGATORY DEFAULT 'RE'.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
*--- Radio Buttons for chose the PC Path or App.. Server Path
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
RB_PFILE RADIOBUTTON GROUP RAD2 DEFAULT 'X' USER-COMMAND UCOMM1.
SELECTION-SCREEN COMMENT 5(27) TEXT-002 FOR FIELD RB_PFILE.
PARAMETERS:
P_PFILE   LIKE     RLGRAP-FILENAME LOWER CASE.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
RB_AFILE RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 5(27) TEXT-003 FOR FIELD RB_AFILE.
PARAMETERS:
P_AFILE   LIKE     RLGRAP-FILENAME LOWER CASE. " Path for AS
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PFILE.
*-- Select File name with Dialog Box
PERFORM SUB_GET_FILENAME CHANGING P_PFILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_AFILE.
*--- Attach F4 HELP CORRESPONDING TO THE FIELD
PERFORM SUB_AP_F4.
AT SELECTION-SCREEN OUTPUT.
*--Modify screen parameters
PERFORM SUB_MODIFY_SCREEN.
AT SELECTION-SCREEN.
*--- Selection Screen validations for Company Code
PERFORM SUB_VALIDATION_BUKRS.
*--- Selection Screen validations for Chart of Accounts
PERFORM SUB_VALIDATION_HKONT.
*--- Selection Screen validations Fiscal Year
PERFORM SUB_VALIDATION_GJAHR.
*--- Selection Screen validations for Peiod
PERFORM SUB_VALIDATION_MONAT.
*--- Selection Screen validations for Company Code
PERFORM SUB_VALIDATION_BELNR.
*--- Selection Screen validations for Chart of Accounts
PERFORM SUB_VALIDATION_BUDAT.
*--- Selection Screen validations Fiscal Year
PERFORM SUB_VALIDATION_PRCTR.
*--- Selection Screen validations for Peiod
PERFORM SUB_VALIDATION_BLART.
                        START-OF-SELECTION
START-OF-SELECTION.
*--- Check whether filepath/name have been entered in the sel screen
PERFORM SUB_CHECK_FILEPATH.
*--- Prepare Final Internal Table.
PERFORM SUB_PREPARE_FINAL.
*--- Download data.
PERFORM SUB_DOWNLOAD_DATA .
*&      Form sub_get_filename
      text
     <--P_PFILE Presentation server File name
FORM SUB_GET_FILENAME CHANGING P_FILE TYPE C.
DATA : L_FILENAME   TYPE STRING,                " For File Name
          L_PATH       TYPE STRING,                " For Directory
          L_FULLPATH   TYPE STRING.                " Full path
*--- For File Open Dialog Box
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
    EXPORTING
      WINDOW_TITLE         = C_PCFILE              " Window Title
      DEFAULT_EXTENSION    = C_TXT1                " File Extn
      PROMPT_ON_OVERWRITE = C_FLAG_X              " Over write
    CHANGING
      FILENAME             = L_FILENAME            " File Name
      PATH                 = L_PATH                " File Path
      FULLPATH             = L_FULLPATH            " Full Path
    EXCEPTIONS
      CNTL_ERROR           = 1
      ERROR_NO_GUI         = 2
      NOT_SUPPORTED_BY_GUI = 3
      OTHERS               = 4.
IF SY-SUBRC NE 0.
*--- Error in opening the file
    MESSAGE E000.
ELSE.
    CONCATENATE L_PATH
                L_FILENAME
           INTO P_FILE.
    V_PRESPATH = L_PATH.
ENDIF.
ENDFORM.                    " sub_get_filename
*&      Form sub_ap_f4
      f4 help attched with application server
FORM SUB_AP_F4 .
*--- FM for to get the Application Server Path
IF RB_AFILE = C_FLAG_X.
    CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
     EXPORTING
     DIRECTORY              =
       FILEMASK               = C_ASC                 " File Extn
    IMPORTING
       SERVERFILE             = P_AFILE               " File Path
    EXCEPTIONS
       CANCELED_BY_USER       = 1
       OTHERS                 = 2.
    IF SY-SUBRC NE 0.
*--- Error in opening the file
      MESSAGE E000.
    ENDIF.
ENDIF.
ENDFORM.                                                    " sub_ap_f4
*&      Form sub_modify_screen
      text
--> p1        text
<-- p2        text
FORM SUB_MODIFY_SCREEN .
*--- Selection screen Modifications
IF RB_PFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE' OR
         SCREEN-NAME = '%_P_PFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_FLAG_1.
        CONCATENATE C_DIR C_GLD V_DATE SY-UZEIT(4) C_TXT INTO P_PFILE.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSE.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE' OR
         SCREEN-NAME = '%_P_PFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_ZERO.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
IF RB_AFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_AFILE' OR
         SCREEN-NAME = '%_P_AFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_FLAG_1.
        CONCATENATE '/Solectron/Data/' C_GLD V_DATE SY-UZEIT(4) C_DAT
                      INTO P_AFILE.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSE.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_AFILE' OR
         SCREEN-NAME = '%_P_AFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_ZERO.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
IF RB_PFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE'.
        SCREEN-ACTIVE = C_FLAG_1.
      ENDIF.
      IF SCREEN-NAME = 'P_AFILE'.
        SCREEN-ACTIVE = C_ZERO.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ELSEIF RB_AFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE'.
        SCREEN-ACTIVE = C_ZERO.
      ENDIF.
      IF SCREEN-NAME = 'P_AFILE'.
        SCREEN-ACTIVE = C_FLAG_1.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDFORM.                    " sub_modify_screen
*&      Form sub_validation_bukrs
      Validation For Company Code
FORM SUB_VALIDATION_BUKRS .
DATA: L_BUKRS TYPE BUKRS.                " Company Code
IF S_BUKRS IS NOT INITIAL.
    IF S_BUKRS-HIGH IS NOT INITIAL AND S_BUKRS-LOW IS INITIAL.
      MESSAGE E006.
    ELSE.
*--- Validation for chart of accounts
      SELECT BUKRS                              " Company Code
      FROM T001 UP TO 1 ROWS
      INTO L_BUKRS
      WHERE BUKRS IN S_BUKRS.
      ENDSELECT.
      IF SY-SUBRC NE 0.
*--- Invalid Company code
        MESSAGE E001.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_bukrs
*&      Form sub_validation_hkont
      Validation For General Ledger Account
FORM SUB_VALIDATION_HKONT .
DATA: L_HKONT TYPE HKONT.                " General Ledger Account
IF S_HKONT IS INITIAL.
    MESSAGE E002.
ELSE.
    IF S_HKONT-HIGH IS NOT INITIAL AND S_HKONT-LOW IS INITIAL.
      MESSAGE E006.
    ELSE.
*--- Validation for chart of accounts
      SELECT SAKNR                             " General Ledger Account
      FROM SKA1 UP TO 1 ROWS
      INTO L_HKONT
      WHERE SAKNR IN S_HKONT AND KTOPL = '1SLR'.
      ENDSELECT.
      IF SY-SUBRC NE 0.
*--- Invalid General Ledger Account
        MESSAGE E003.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_hkont
*&      Form sub_validation_gjahr
      Validation For Fiscal Year
FORM SUB_VALIDATION_GJAHR .
DATA: L_GJAHR TYPE GJAHR.                " Fiscal Year
IF S_GJAHR IS NOT INITIAL.
    IF S_GJAHR-HIGH IS NOT INITIAL AND S_GJAHR-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_gjahr
*&      Form sub_validation_monat
      Validation For Fiscal period
FORM SUB_VALIDATION_MONAT .
DATA: L_MONAT TYPE MONAT.                " Fiscal period
IF S_MONAT IS NOT INITIAL.
    IF S_MONAT-LOW LE C_ZERO.
*--- Invalid Fiscal Period
      MESSAGE E006.
    ENDIF.
    IF S_MONAT-HIGH GT C_FLAG_12.
*--- Invalid Fiscal Period
      MESSAGE E007.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_monat
*&      Form sub_validation_belnr
      Validation For Accounting Document Number
FORM SUB_VALIDATION_BELNR .
DATA: L_BELNR TYPE BELNR_D.                " Accounting Document Number
IF S_BELNR IS NOT INITIAL.
    IF S_BELNR-HIGH IS NOT INITIAL AND S_BELNR-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_belnr
*&      Form sub_validation_budat
      Validation For Posting Date
FORM SUB_VALIDATION_BUDAT .
DATA: L_BUDAT TYPE BUDAT.                " Posting Date
IF S_BUDAT IS NOT INITIAL.
    IF S_BUDAT-HIGH IS NOT INITIAL AND S_BUDAT-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_budat
*&      Form sub_validation_prctr
      Validation For Profit Center
FORM SUB_VALIDATION_PRCTR .
DATA: L_PRCTR TYPE PRCTR.                " Profit Center
IF S_PRCTR IS INITIAL.
    MESSAGE E010.
ELSE.
    IF S_PRCTR-HIGH IS NOT INITIAL AND S_PRCTR-LOW IS INITIAL.
      MESSAGE E006.
    ELSE.
*--- Validation for chart of accounts
      SELECT PRCTR                             " Profit Center
      FROM CEPC UP TO 1 ROWS
      INTO L_PRCTR
      WHERE PRCTR IN S_PRCTR.
      ENDSELECT.
      IF SY-SUBRC NE 0.
*--- Invalid Profit Center
        MESSAGE E011.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_prctr
*&      Form sub_validation_blart
      Validation For Document type
FORM SUB_VALIDATION_BLART .
DATA: L_BLART TYPE BLART.                " Document type
IF S_BLART IS INITIAL.
    MESSAGE E012.
ELSE.
    IF S_BLART-HIGH IS NOT INITIAL AND S_BLART-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_blart
*&      Form sub_check_filepath
      Check user input for initial filename
FORM SUB_CHECK_FILEPATH .
IF RB_PFILE = C_FLAG_X.
    IF P_PFILE IS INITIAL.
*--- The Local File Path can not be Empty
      MESSAGE I014.
      LEAVE LIST-PROCESSING.
    ENDIF.
ELSEIF RB_AFILE = C_FLAG_X.
    IF P_AFILE IS INITIAL.
*--- The App Server File Path can not be Empty
      MESSAGE I015.
      LEAVE LIST-PROCESSING.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_check_filepath
*&      Form sub_prepare_final
      append the required output data in to the internal table.
FORM SUB_PREPARE_FINAL.
changes on 30 th may by dileep
SELECT * FROM BSEG INTO TABLE I_BSEG WHERE HKONT IN S_HKONT AND "G/L Account
                                            GJAHR IN S_GJAHR AND
                                            PRCTR IN S_PRCTR AND "Profit Center
                                            BLART IN S_BLART . "Document Type
SELECT BUKRS
         HKONT
         BELNR
         DMBTR
         KOSTL
         PRCTR
         FROM BSEG INTO TABLE IT_BSEG WHERE HKONT IN S_HKONT AND "G/L Account
                                            PRCTR IN S_PRCTR. "Profit Center
LOOP AT IT_BSEG INTO WA_BSEG.
    SELECT SINGLE GJAHR
           BUDAT
           WAERS
           XBLNR
           BLART
           MONAT
           INTO (W_BSEG-GJAHR,W_BSEG-BUDAT,W_BSEG-WAERS,W_BSEG-XBLNR,W_BSEG-BLART,W_BSEG-MONAT)
             FROM BKPF WHERE BELNR = W_BSEG-BELNR AND
                   GJAHR IN S_GJAHR AND
                   BLART IN S_BLART . "Document Type
    MOVE WA_BSEG-BUKRS TO W_BSEG-BUKRS.
    MOVE WA_BSEG-HKONT TO W_BSEG-HKONT.
    MOVE WA_BSEG-BELNR TO W_BSEG-BELNR.
    MOVE WA_BSEG-DMBTR TO W_BSEG-DMBTR.
    MOVE WA_BSEG-KOSTL TO W_BSEG-KOSTL.
    MOVE WA_BSEG-PRCTR TO W_BSEG-PRCTR.
    APPEND W_BSEG TO I_BSEG.
ENDLOOP.
changes on 30 th may by dileep
IF S_BUKRS IS NOT INITIAL.
    SORT I_BSEG BY BUKRS ASCENDING.
    DELETE I_BSEG WHERE NOT BUKRS IN S_BUKRS.
ENDIF.
IF S_MONAT IS NOT INITIAL.
    SORT I_BSEG BY GJAHR MONAT ASCENDING.
    IF S_MONAT-HIGH IS NOT INITIAL AND S_MONAT-LOW IS NOT INITIAL.
      DELETE I_BSEG WHERE MONAT < S_MONAT-LOW OR MONAT > S_MONAT-HIGH.
    ENDIF.
    IF S_MONAT-HIGH IS INITIAL AND S_MONAT-LOW IS NOT INITIAL.
      DELETE I_BSEG WHERE MONAT NE S_MONAT-LOW.
    ENDIF.
ENDIF.
IF S_BELNR IS NOT INITIAL.
    SORT I_BSEG BY BELNR ASCENDING.
    DELETE I_BSEG WHERE NOT BELNR IN S_BELNR.
ENDIF.
IF S_BUDAT IS NOT INITIAL.
    SORT I_BSEG BY BUDAT ASCENDING.
    DELETE I_BSEG WHERE NOT BUDAT IN S_BUDAT.
ENDIF.
LOOP AT I_BSEG INTO W_BSEG.
    MOVE W_BSEG-BUKRS      TO W_FINAL-BUKRS.
    MOVE W_BSEG-HKONT      TO W_FINAL-HKONT_P.
    MOVE W_BSEG-GJAHR      TO W_FINAL-GJAHR.
    MOVE W_BSEG-BELNR      TO W_FINAL-BELNR.
    MOVE W_BSEG-BUDAT      TO W_FINAL-BUDAT.
    MOVE W_BSEG-WAERS      TO W_FINAL-WAERS.
    MOVE W_BSEG-XBLNR      TO W_FINAL-XBLNR.
    MOVE W_BSEG-BLART      TO W_FINAL-BLART.
    MOVE W_BSEG-MONAT      TO W_FINAL-MONAT.
    MOVE W_BSEG-DMBTR      TO W_FINAL-DMBTR_P.
    MOVE W_BSEG-KOSTL      TO W_FINAL-KOSTL.
    MOVE W_BSEG-PRCTR      TO W_FINAL-PRCTR_P.
    SELECT SINGLE * FROM BSEG INTO W_BSEG1 WHERE BELNR = W_BSEG-BELNR AND    "Document Type
                                          BUZID = 'W' .
    IF SY-SUBRC = 0.
      MOVE W_BSEG1-HKONT      TO W_FINAL-HKONT_G.
      MOVE W_BSEG1-DMBTR      TO W_FINAL-DMBTR_G.
      MOVE W_BSEG1-PRCTR      TO W_FINAL-PRCTR_G.
      MOVE W_BSEG1-BUZID      TO W_FINAL-BUZID_G.
    ELSE.
      EXIT.
    ENDIF.
    APPEND W_FINAL TO I_FINAL.
    SORT I_FINAL BY BELNR ASCENDING.
ENDLOOP.
ENDFORM.                  " sub_prepare_final
*&      Form sub_download_data
      Download data
FORM SUB_DOWNLOAD_DATA .
DATA : V_PRD(2) TYPE N.
IF RB_PFILE = C_FLAG_X.
*--- Downloading To presentation server
    V_PRESPATH = P_PFILE.
    PERFORM SUB_DOWNLOAD_PRESSERVER.
ELSEIF RB_AFILE = C_FLAG_X.
*--- Downloading To Application server in Auto Mode
    V_APPPATH = P_AFILE.
    PERFORM SUB_DOWNLOAD_APPSERVER.
ENDIF.
ENDFORM.                    " sub_download_data
*&      Form sub_download_presserver
      text
FORM SUB_DOWNLOAD_PRESSERVER.
DATA: MESSAGE TYPE STRING.
IF I_FINAL[] IS INITIAL.
    MESSAGE I016.
    EXIT.
ELSE.
    W_FINAL_P-BUKRS = 'Company Code'.
    W_FINAL_P-DELIMITER_1 = '|'.
    W_FINAL_P-HKONT_P = 'G/L Account Number'.
    W_FINAL_P-DELIMITER_2 = '|'.
    W_FINAL_P-GJAHR = 'Fiscal Year'.
    W_FINAL_P-DELIMITER_3 = '|'.
    W_FINAL_P-BELNR = 'A/c Document Number'.
    W_FINAL_P-DELIMITER_4 = '|'.
    W_FINAL_P-BUDAT = 'Posting Date' .
    W_FINAL_P-DELIMITER_5 = '|'.
    W_FINAL_P-WAERS = 'Currency'.
    W_FINAL_P-DELIMITER_6 = '|'.
    W_FINAL_P-XBLNR = 'Ref. Document Number'.
    W_FINAL_P-DELIMITER_7 = '|'.
    W_FINAL_P-BLART = 'Document Type'.
    W_FINAL_P-DELIMITER_8 = '|'.
    W_FINAL_P-MONAT = 'Fiscal Period'.
    W_FINAL_P-DELIMITER_9 = '|'.
    W_FINAL_P-DMBTR_P = 'Amount'.
    W_FINAL_P-DELIMITER_10 = '|'.
    W_FINAL_P-KOSTL = 'Cost Center'.
    W_FINAL_P-DELIMITER_11 = '|'.
    W_FINAL_P-PRCTR_P = 'Profit Center'.
    W_FINAL_P-DELIMITER_12 = '|'.
    W_FINAL_P-HKONT_G = 'G/L Account Number'.
    W_FINAL_P-DELIMITER_13 = '|'.
    W_FINAL_P-DMBTR_G = 'Amount'.
    W_FINAL_P-DELIMITER_14 = '|'.
    W_FINAL_P-PRCTR_G = 'Profit Center'.
    W_FINAL_P-DELIMITER_15 = '|'.
    W_FINAL_P-BUZID_G = 'Line Item Id'.
    APPEND W_FINAL_P TO I_FINAL_P.
    LOOP AT I_FINAL INTO W_FINAL.
      W_FINAL_P-BUKRS = W_FINAL-BUKRS.
      W_FINAL_P-DELIMITER_1 = '|'.
      W_FINAL_P-HKONT_P = W_FINAL-HKONT_P.
      W_FINAL_P-DELIMITER_2 = '|'.
      W_FINAL_P-GJAHR = W_FINAL-GJAHR.
      W_FINAL_P-DELIMITER_3 = '|'.
      W_FINAL_P-BELNR = W_FINAL-BELNR.
      W_FINAL_P-DELIMITER_4 = '|'.
      W_FINAL_P-BUDAT = W_FINAL-BUDAT .
      W_FINAL_P-DELIMITER_5 = '|'.
      W_FINAL_P-WAERS = W_FINAL-WAERS.
      W_FINAL_P-DELIMITER_6 = '|'.
      W_FINAL_P-XBLNR = W_FINAL-XBLNR.
      W_FINAL_P-DELIMITER_7 = '|'.
      W_FINAL_P-BLART = W_FINAL-BLART.
      W_FINAL_P-DELIMITER_8 = '|'.
      W_FINAL_P-MONAT = W_FINAL-MONAT.
      W_FINAL_P-DELIMITER_9 = '|'.
      W_FINAL_P-DMBTR_P = W_FINAL-DMBTR_P.
      W_FINAL_P-DELIMITER_10 = '|'.
      W_FINAL_P-KOSTL = W_FINAL-KOSTL.
      W_FINAL_P-DELIMITER_11 = '|'.
      W_FINAL_P-PRCTR_P = W_FINAL-PRCTR_P.
      W_FINAL_P-DELIMITER_12 = '|'.
      W_FINAL_P-HKONT_G = W_FINAL-HKONT_G.
      W_FINAL_P-DELIMITER_13 = '|'.
      W_FINAL_P-DMBTR_G = W_FINAL-DMBTR_G.
      W_FINAL_P-DELIMITER_14 = '|'.
      W_FINAL_P-PRCTR_G = W_FINAL-PRCTR_G.
      W_FINAL_P-DELIMITER_15 = '|'.
      W_FINAL_P-BUZID_G = W_FINAL-BUZID_G.
      APPEND W_FINAL_P TO I_FINAL_P.
      CLEAR : W_FINAL_P, W_FINAL.
    ENDLOOP.
ENDIF.
*---Downloading data to file on Presentation Server
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                = V_PRESPATH
      FILETYPE                = 'ASC'
    TABLES
      DATA_TAB                = I_FINAL_P
    EXCEPTIONS
      FILE_WRITE_ERROR        = 1
      NO_BATCH                = 2
      GUI_REFUSE_FILETRANSFER = 3
      INVALID_TYPE            = 4
      NO_AUTHORITY            = 5
      UNKNOWN_ERROR           = 6
      HEADER_NOT_ALLOWED      = 7
      SEPARATOR_NOT_ALLOWED   = 8
      FILESIZE_NOT_ALLOWED    = 9
      HEADER_TOO_LONG         = 10
      DP_ERROR_CREATE         = 11
      DP_ERROR_SEND           = 12
      DP_ERROR_WRITE          = 13
      UNKNOWN_DP_ERROR        = 14
      ACCESS_DENIED           = 15
      DP_OUT_OF_MEMORY        = 16
      DISK_FULL               = 17
      DP_TIMEOUT              = 18
      FILE_NOT_FOUND          = 19
      DATAPROVIDER_EXCEPTION = 20
      CONTROL_FLUSH_ERROR     = 21
      OTHERS                  = 22.
*-- File can not be opened successfully
IF SY-SUBRC NE 0.
    IF SY-BATCH EQ C_FLAG_X. " Stop Processing
      MESSAGE E017.        " File could not be opened
    ELSE.
      MESSAGE I017.        " File could not be opened
      LEAVE LIST-PROCESSING.
    ENDIF.
ELSE.
    CONCATENATE 'Data Successfully downloaded to the Specified Location' V_PRESPATH INTO MESSAGE SEPARATED BY SPACE.
    MESSAGE MESSAGE TYPE 'S'.
ENDIF.
MODIFY SCREEN.
ENDFORM.                    " sub_download_presserver
*&      Form sub_download_appserver
      text
FORM SUB_DOWNLOAD_APPSERVER .
DATA: V_FILE        TYPE STRING,               " String
        P_DMBTR TYPE CHAR20,
        G_DMBTR TYPE CHAR20,
        MESSAGE1 TYPE STRING.
IF I_FINAL[] IS INITIAL.
    IF SY-BATCH EQ C_FLAG_X.
*--- File contains no data
      MESSAGE E016 .
    ELSE.
*--- File contains no data
      MESSAGE I016 .
      LEAVE LIST-PROCESSING.
    ENDIF.
ENDIF.
*--- To Open The file in Application Server
OPEN DATASET V_APPPATH FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC NE 0.
*--- Display error message: "Could not open file"
    IF SY-BATCH EQ C_FLAG_X.
*--- File contains no data
      MESSAGE E016 .
    ELSE.
*--- File contains no data
      MESSAGE I016 .
      LEAVE LIST-PROCESSING.
    ENDIF.
ENDIF.
*--- Perform for building the Report header
CONCATENATE
             'COMPANY_CODE'
             'G/L_ACCOUNT_NUMBER'
             'FISCAL_YEAR'
             'A/C_DOCUMENT_NUMBER'
             'POSTING_DATE'
             'CURRENCY'
             'REF_DOCUMENT_NUMBER'
             'DOCUMENT_TYPE'
             'FISCAL_PERIOD'
             'AMOUNT'
             'COSTCENTER'
             'PROFIT_CENTER'
             'G/L_ACCOUNT_NUMBER'
             'AMOUNT'
             'PROFIT_CENTER'
             'LINE_ITEM_ID'
            INTO V_FILE SEPARATED BY C_DELIMITER.
TRANSFER V_FILE TO V_APPPATH.
*--- Transfer the data to application Server
LOOP AT I_FINAL INTO W_FINAL.
    P_DMBTR = W_FINAL-DMBTR_P.
    G_DMBTR = W_FINAL-DMBTR_G.
    CONCATENATE
             W_FINAL-BUKRS
             W_FINAL-HKONT_P
             W_FINAL-GJAHR
             W_FINAL-BELNR
             W_FINAL-BUDAT
             W_FINAL-WAERS
             W_FINAL-XBLNR
             W_FINAL-BLART
             W_FINAL-MONAT
             P_DMBTR
             W_FINAL-KOSTL
             W_FINAL-PRCTR_P
             W_FINAL-HKONT_G
             G_DMBTR
             W_FINAL-PRCTR_G
             W_FINAL-BUZID_G
          INTO V_FILE SEPARATED BY C_DELIMITER.
    TRANSFER V_FILE TO V_APPPATH.
    IF SY-SUBRC NE 0.
Display error message: "Data could not be written at the location"
      MESSAGE 'Data could not be written at the location' TYPE 'I'.
      EXIT.
    ENDIF.
    CLEAR V_FILE.
ENDLOOP.
CLOSE DATASET V_APPPATH.
IF SY-SUBRC NE 0.
Display error message: "File could not be closed"
    MESSAGE 'File could not be closed' TYPE 'I'.
    EXIT.
ELSE.
    CONCATENATE 'Data Successfully downloaded to the Specified Location' V_APPPATH INTO MESSAGE1 SEPARATED BY SPACE.
    MESSAGE MESSAGE1 TYPE 'S'.
ENDIF.
ENDFORM.                    " sub_download_appserver

hi,
here is improved code.
REPORT ZFIR_GRIR_IPV
NO STANDARD PAGE HEADING
LINE-SIZE 120
MESSAGE-ID ZFI02.
TABLES: BSEG,BKPF.
TYPES: BEGIN OF A_FINAL,
BUKRS TYPE CHAR12,
HKONT_P TYPE CHAR18,
GJAHR TYPE CHAR11,
BELNR TYPE CHAR19,
BUDAT TYPE CHAR12,
WAERS TYPE CHAR8,
XBLNR TYPE CHAR20,
BLART TYPE CHAR13,
MONAT TYPE CHAR13,
DMBTR_P TYPE CHAR13,
KOSTL TYPE CHAR11,
PRCTR_P TYPE CHAR13,
HKONT_G TYPE CHAR18,
DMBTR_G TYPE CHAR13,
PRCTR_G TYPE CHAR13,
BUZID_G TYPE CHAR15,
END OF A_FINAL.
changes on 30 th may by dileep
TYPES: BEGIN OF IT_FINAL,
BUKRS TYPE BUKRS ,
HKONT TYPE HKONT,
BELNR TYPE BELNR_D,
DMBTR TYPE DMBTR ,
KOSTL TYPE KOSTL,
PRCTR TYPE PRCTR,
END OF IT_FINAL.
TYPES: BEGIN OF IT_FINAL1,
BUKRS TYPE BUKRS,
HKONT TYPE HKONT,
GJAHR TYPE GJAHR ,
BELNR TYPE BELNR_D,
BUDAT TYPE BUDAT,
WAERS TYPE WAERS ,
XBLNR TYPE XBLNR1,
BLART TYPE BLART,
MONAT TYPE MONAT,
DMBTR TYPE DMBTR,
KOSTL TYPE KOSTL,
PRCTR TYPE PRCTR,
END OF IT_FINAL1.
end of changes on 30 th may by dileep
TYPES: BEGIN OF P_FINAL,
BUKRS TYPE CHAR12,
DELIMITER_1 TYPE CHAR1,
HKONT_P TYPE CHAR18,
DELIMITER_2 TYPE CHAR1,
GJAHR TYPE CHAR11,
DELIMITER_3 TYPE CHAR1,
BELNR TYPE CHAR19,
DELIMITER_4 TYPE CHAR1,
BUDAT TYPE CHAR12,
DELIMITER_5 TYPE CHAR1,
WAERS TYPE CHAR8,
DELIMITER_6 TYPE CHAR1,
XBLNR TYPE CHAR20,
DELIMITER_7 TYPE CHAR1,
BLART TYPE CHAR13,
DELIMITER_8 TYPE CHAR1,
MONAT TYPE CHAR13,
DELIMITER_9 TYPE CHAR1,
DMBTR_P TYPE CHAR13,
DELIMITER_10 TYPE CHAR1,
KOSTL TYPE CHAR11,
DELIMITER_11 TYPE CHAR1,
PRCTR_P TYPE CHAR13,
DELIMITER_12 TYPE CHAR1,
HKONT_G TYPE CHAR18,
DELIMITER_13 TYPE CHAR1,
DMBTR_G TYPE CHAR13,
DELIMITER_14 TYPE CHAR1,
PRCTR_G TYPE CHAR13,
DELIMITER_15 TYPE CHAR1,
BUZID_G TYPE CHAR15,
END OF P_FINAL.
DATA: IT_BSEG TYPE STANDARD TABLE OF IT_FINAL INITIAL SIZE 0,
I_BSEG TYPE STANDARD TABLE OF IT_FINAL1 INITIAL SIZE 0,
I_FINAL TYPE STANDARD TABLE OF A_FINAL INITIAL SIZE 0 WITH HEADER LINE,
I_FINAL_P TYPE STANDARD TABLE OF P_FINAL INITIAL SIZE 0 WITH HEADER LINE,
W_FINAL_P TYPE P_FINAL,
W_BSEG1 TYPE BSEG,
WA_BSEG TYPE IT_FINAL OCCURS 0 WITH HEADER LINE,
W_BSEG TYPE IT_FINAL1 OCCURS 0 WITH HEADER LINE,
T_BSEG TYPE STANDARD TABLE OF BSEG INITIAL SIZE 0 WITH HEADER LINE,
W_FINAL TYPE A_FINAL,
F_YEAR TYPE BAPI0002_4-FISCAL_YEAR,
F_PERIOD TYPE BAPI0002_4-FISCAL_PERIOD,
RETURN1 TYPE BAPIRETURN1,
V_DATE TYPE CHAR8, " Date in YYYYMMDD format
V_PRESPATH TYPE STRING, " Path
V_APPPATH TYPE STRING, " Path
V_FILENAME(25) TYPE C, " File Name
V_PERIOD TYPE CHAR3, " Date for Posting Period
V_FSYEAR TYPE BDATJ, " Fiscal Year
L_TEXT TYPE CHAR1. " Hypen
CONSTANTS: C_TXT TYPE CHAR4 VALUE '.txt', " File Extension
C_TXT1 TYPE STRING VALUE 'txt', " File Type
C_FLAG_X TYPE CHAR1 VALUE 'X', " Flag
C_ASC TYPE FILETYPE VALUE 'ASC', " File type
C_DAT TYPE CHAR4 VALUE '.dat', " File Type
C_FLAG_1 TYPE CHAR1 VALUE '1', " Constant value
C_ZERO TYPE CHAR1 VALUE '0', " Constant
C_GLD(10) TYPE C VALUE 'GRIR021S', " Constant in file Path
C_DIR TYPE CHAR3 VALUE 'C:\', " Presentation Server path
C_FLAG_12 TYPE CHAR2 VALUE '12', " Constant value
C_PCFILE TYPE STRING VALUE 'PC File',
C_DELIMITER TYPE C VALUE '|'.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
          o
                +
Selection Criteria
SELECT-OPTIONS: S_BUKRS FOR BSEG-BUKRS DEFAULT '012T', " Company Code
S_HKONT FOR BSEG-HKONT OBLIGATORY DEFAULT '4505001',
S_GJAHR FOR BKPF-GJAHR DEFAULT SY-DATUM+0(4),
S_MONAT FOR BKPF-MONAT DEFAULT SY-DATUM+4(2),
S_BELNR FOR BSEG-BELNR ,
S_BUDAT FOR BKPF-BUDAT ,
S_PRCTR FOR BSEG-PRCTR OBLIGATORY DEFAULT '12TOTH00',
S_BLART FOR BKPF-BLART OBLIGATORY DEFAULT 'RE'.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
          o
                +
Radio Buttons for chose the PC Path or App.. Server Path
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
RB_PFILE RADIOBUTTON GROUP RAD2 DEFAULT 'X' USER-COMMAND UCOMM1.
SELECTION-SCREEN COMMENT 5(27) TEXT-002 FOR FIELD RB_PFILE.
PARAMETERS:
P_PFILE LIKE RLGRAP-FILENAME LOWER CASE.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
RB_AFILE RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 5(27) TEXT-003 FOR FIELD RB_AFILE.
PARAMETERS:
P_AFILE LIKE RLGRAP-FILENAME LOWER CASE. " Path for AS
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PFILE.
          o
                + Select File name with Dialog Box
PERFORM SUB_GET_FILENAME CHANGING P_PFILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_AFILE.
          o
                +
Attach F4 HELP CORRESPONDING TO THE FIELD
PERFORM SUB_AP_F4.
AT SELECTION-SCREEN OUTPUT.
*--Modify screen parameters
PERFORM SUB_MODIFY_SCREEN.
AT SELECTION-SCREEN.
          o
                +
Selection Screen validations for Company Code
PERFORM SUB_VALIDATION_BUKRS.
          o
                +
Selection Screen validations for Chart of Accounts
PERFORM SUB_VALIDATION_HKONT.
          o
                +
Selection Screen validations Fiscal Year
PERFORM SUB_VALIDATION_GJAHR.
          o
                +
Selection Screen validations for Peiod
PERFORM SUB_VALIDATION_MONAT.
          o
                +
Selection Screen validations for Company Code
PERFORM SUB_VALIDATION_BELNR.
          o
                +
Selection Screen validations for Chart of Accounts
PERFORM SUB_VALIDATION_BUDAT.
          o
                +
Selection Screen validations Fiscal Year
PERFORM SUB_VALIDATION_PRCTR.
          o
                +
Selection Screen validations for Peiod
PERFORM SUB_VALIDATION_BLART.
START-OF-SELECTION
START-OF-SELECTION.
          o
                +
Check whether filepath/name have been entered in the sel screen
PERFORM SUB_CHECK_FILEPATH.
          o
                +
Prepare Final Internal Table.
PERFORM SUB_PREPARE_FINAL.
          o
                +
Download data.
PERFORM SUB_DOWNLOAD_DATA .
*& Form sub_get_filename
text
<--P_PFILE Presentation server File name
FORM SUB_GET_FILENAME CHANGING P_FILE TYPE C.
DATA : L_FILENAME TYPE STRING, " For File Name
L_PATH TYPE STRING, " For Directory
L_FULLPATH TYPE STRING. " Full path
          o
                +
For File Open Dialog Box
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
WINDOW_TITLE = C_PCFILE " Window Title
DEFAULT_EXTENSION = C_TXT1 " File Extn
PROMPT_ON_OVERWRITE = C_FLAG_X " Over write
CHANGING
FILENAME = L_FILENAME " File Name
PATH = L_PATH " File Path
FULLPATH = L_FULLPATH " Full Path
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC NE 0.
          o
                +
Error in opening the file
MESSAGE E000.
ELSE.
CONCATENATE L_PATH
L_FILENAME
INTO P_FILE.
V_PRESPATH = L_PATH.
ENDIF.
ENDFORM. " sub_get_filename
*& Form sub_ap_f4
f4 help attched with application server
FORM SUB_AP_F4 .
          o
                +
FM for to get the Application Server Path
IF RB_AFILE = C_FLAG_X.
CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
EXPORTING
DIRECTORY =
FILEMASK = C_ASC " File Extn
IMPORTING
SERVERFILE = P_AFILE " File Path
EXCEPTIONS
CANCELED_BY_USER = 1
OTHERS = 2.
IF SY-SUBRC NE 0.
          o
                +
Error in opening the file
MESSAGE E000.
ENDIF.
ENDIF.
ENDFORM. " sub_ap_f4
*& Form sub_modify_screen
text
--> p1 text
<-- p2 text
FORM SUB_MODIFY_SCREEN .
          o
                +
Selection screen Modifications
IF RB_PFILE = C_FLAG_X.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_PFILE' OR
SCREEN-NAME = '%_P_PFILE_%_APP_%-TEXT'.
SCREEN-ACTIVE = C_FLAG_1.
CONCATENATE C_DIR C_GLD V_DATE SY-UZEIT(4) C_TXT INTO P_PFILE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_PFILE' OR
SCREEN-NAME = '%_P_PFILE_%_APP_%-TEXT'.
SCREEN-ACTIVE = C_ZERO.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF RB_AFILE = C_FLAG_X.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_AFILE' OR
SCREEN-NAME = '%_P_AFILE_%_APP_%-TEXT'.
SCREEN-ACTIVE = C_FLAG_1.
CONCATENATE '/Solectron/Data/' C_GLD V_DATE SY-UZEIT(4) C_DAT
INTO P_AFILE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_AFILE' OR
SCREEN-NAME = '%_P_AFILE_%_APP_%-TEXT'.
SCREEN-ACTIVE = C_ZERO.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF RB_PFILE = C_FLAG_X.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_PFILE'.
SCREEN-ACTIVE = C_FLAG_1.
ENDIF.
IF SCREEN-NAME = 'P_AFILE'.
SCREEN-ACTIVE = C_ZERO.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF RB_AFILE = C_FLAG_X.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_PFILE'.
SCREEN-ACTIVE = C_ZERO.
ENDIF.
IF SCREEN-NAME = 'P_AFILE'.
SCREEN-ACTIVE = C_FLAG_1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDFORM. " sub_modify_screen
*& Form sub_validation_bukrs
Validation For Company Code
FORM SUB_VALIDATION_BUKRS .
DATA: L_BUKRS TYPE BUKRS. " Company Code
IF S_BUKRS IS NOT INITIAL.
IF S_BUKRS-HIGH IS NOT INITIAL AND S_BUKRS-LOW IS INITIAL.
MESSAGE E006.
ELSE.
          o
                +
Validation for chart of accounts
SELECT BUKRS " Company Code
FROM T001 UP TO 1 ROWS
INTO L_BUKRS
WHERE BUKRS IN S_BUKRS.
ENDSELECT.
IF SY-SUBRC NE 0.
          o
                +
Invalid Company code
MESSAGE E001.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_bukrs
*& Form sub_validation_hkont
Validation For General Ledger Account
FORM SUB_VALIDATION_HKONT .
DATA: L_HKONT TYPE HKONT. " General Ledger Account
IF S_HKONT IS INITIAL.
MESSAGE E002.
ELSE.
IF S_HKONT-HIGH IS NOT INITIAL AND S_HKONT-LOW IS INITIAL.
MESSAGE E006.
ELSE.
          o
                +
Validation for chart of accounts
SELECT SAKNR " General Ledger Account
FROM SKA1 UP TO 1 ROWS
INTO L_HKONT
WHERE SAKNR IN S_HKONT AND KTOPL = '1SLR'.
ENDSELECT.
IF SY-SUBRC NE 0.
          o
                +
Invalid General Ledger Account
MESSAGE E003.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_hkont
*& Form sub_validation_gjahr
Validation For Fiscal Year
FORM SUB_VALIDATION_GJAHR .
DATA: L_GJAHR TYPE GJAHR. " Fiscal Year
IF S_GJAHR IS NOT INITIAL.
IF S_GJAHR-HIGH IS NOT INITIAL AND S_GJAHR-LOW IS INITIAL.
MESSAGE E006.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_gjahr
*& Form sub_validation_monat
Validation For Fiscal period
FORM SUB_VALIDATION_MONAT .
DATA: L_MONAT TYPE MONAT. " Fiscal period
IF S_MONAT IS NOT INITIAL.
IF S_MONAT-LOW LE C_ZERO.
          o
                +
Invalid Fiscal Period
MESSAGE E006.
ENDIF.
IF S_MONAT-HIGH GT C_FLAG_12.
          o
                +
Invalid Fiscal Period
MESSAGE E007.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_monat
*& Form sub_validation_belnr
Validation For Accounting Document Number
FORM SUB_VALIDATION_BELNR .
DATA: L_BELNR TYPE BELNR_D. " Accounting Document Number
IF S_BELNR IS NOT INITIAL.
IF S_BELNR-HIGH IS NOT INITIAL AND S_BELNR-LOW IS INITIAL.
MESSAGE E006.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_belnr
*& Form sub_validation_budat
Validation For Posting Date
FORM SUB_VALIDATION_BUDAT .
DATA: L_BUDAT TYPE BUDAT. " Posting Date
IF S_BUDAT IS NOT INITIAL.
IF S_BUDAT-HIGH IS NOT INITIAL AND S_BUDAT-LOW IS INITIAL.
MESSAGE E006.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_budat
*& Form sub_validation_prctr
Validation For Profit Center
FORM SUB_VALIDATION_PRCTR .
DATA: L_PRCTR TYPE PRCTR. " Profit Center
IF S_PRCTR IS INITIAL.
MESSAGE E010.
ELSE.
IF S_PRCTR-HIGH IS NOT INITIAL AND S_PRCTR-LOW IS INITIAL.
MESSAGE E006.
ELSE.
          o
                +
Validation for chart of accounts
SELECT PRCTR " Profit Center
FROM CEPC UP TO 1 ROWS
INTO L_PRCTR
WHERE PRCTR IN S_PRCTR.
ENDSELECT.
IF SY-SUBRC NE 0.
          o
                +
Invalid Profit Center
MESSAGE E011.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_prctr
*& Form sub_validation_blart
Validation For Document type
FORM SUB_VALIDATION_BLART .
DATA: L_BLART TYPE BLART. " Document type
IF S_BLART IS INITIAL.
MESSAGE E012.
ELSE.
IF S_BLART-HIGH IS NOT INITIAL AND S_BLART-LOW IS INITIAL.
MESSAGE E006.
ENDIF.
ENDIF.
ENDFORM. " sub_validation_blart
*& Form sub_check_filepath
Check user input for initial filename
FORM SUB_CHECK_FILEPATH .
IF RB_PFILE = C_FLAG_X.
IF P_PFILE IS INITIAL.
          o
                +
The Local File Path can not be Empty
MESSAGE I014.
LEAVE LIST-PROCESSING.
ENDIF.
ELSEIF RB_AFILE = C_FLAG_X.
IF P_AFILE IS INITIAL.
          o
                +
The App Server File Path can not be Empty
MESSAGE I015.
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
ENDFORM. " sub_check_filepath
*& Form sub_prepare_final
append the required output data in to the internal table.
FORM SUB_PREPARE_FINAL.
changes on 30 th may by dileep
SELECT * FROM BSEG INTO TABLE I_BSEG WHERE HKONT IN S_HKONT AND "G/L Account
GJAHR IN S_GJAHR AND
PRCTR IN S_PRCTR AND "Profit Center
BLART IN S_BLART . "Document Type
SELECT BUKRS
HKONT
BELNR
DMBTR
KOSTL
PRCTR
FROM BSEG INTO TABLE IT_BSEG WHERE HKONT IN S_HKONT AND "G/L Account
PRCTR IN S_PRCTR. "Profit Center
LOOP AT IT_BSEG INTO WA_BSEG.
SELECT SINGLE GJAHR
BUDAT
WAERS
XBLNR
BLART
MONAT
INTO (W_BSEG-GJAHR,W_BSEG-BUDAT,W_BSEG-WAERS,W_BSEG-XBLNR,W_BSEG-BLART,W_BSEG-MONAT)
FROM BKPF WHERE BELNR = W_BSEG-BELNR AND
GJAHR IN S_GJAHR AND
BLART IN S_BLART . "Document Type
MOVE WA_BSEG-BUKRS TO W_BSEG-BUKRS.
MOVE WA_BSEG-HKONT TO W_BSEG-HKONT.
MOVE WA_BSEG-BELNR TO W_BSEG-BELNR.
MOVE WA_BSEG-DMBTR TO W_BSEG-DMBTR.
MOVE WA_BSEG-KOSTL TO W_BSEG-KOSTL.
MOVE WA_BSEG-PRCTR TO W_BSEG-PRCTR.
APPEND W_BSEG TO I_BSEG.
ENDLOOP.
changes on 30 th may by dileep
IF S_BUKRS IS NOT INITIAL.
SORT I_BSEG BY BUKRS ASCENDING.
DELETE I_BSEG WHERE NOT BUKRS IN S_BUKRS.
ENDIF.
IF S_MONAT IS NOT INITIAL.
SORT I_BSEG BY GJAHR MONAT ASCENDING.
IF S_MONAT-HIGH IS NOT INITIAL AND S_MONAT-LOW IS NOT INITIAL.
DELETE I_BSEG WHERE MONAT < S_MONAT-LOW OR MONAT > S_MONAT-HIGH.
ENDIF.
IF S_MONAT-HIGH IS INITIAL AND S_MONAT-LOW IS NOT INITIAL.
DELETE I_BSEG WHERE MONAT NE S_MONAT-LOW.
ENDIF.
ENDIF.
IF S_BELNR IS NOT INITIAL.
SORT I_BSEG BY BELNR ASCENDING.
DELETE I_BSEG WHERE NOT BELNR IN S_BELNR.
ENDIF.
IF S_BUDAT IS NOT INITIAL.
SORT I_BSEG BY BUDAT ASCENDING.
DELETE I_BSEG WHERE NOT BUDAT IN S_BUDAT.
ENDIF.
LOOP AT I_BSEG INTO W_BSEG.
MOVE W_BSEG-BUKRS TO W_FINAL-BUKRS.
MOVE W_BSEG-HKONT TO W_FINAL-HKONT_P.
MOVE W_BSEG-GJAHR TO W_FINAL-GJAHR.
MOVE W_BSEG-BELNR TO W_FINAL-BELNR.
MOVE W_BSEG-BUDAT TO W_FINAL-BUDAT.
MOVE W_BSEG-WAERS TO W_FINAL-WAERS.
MOVE W_BSEG-XBLNR TO W_FINAL-XBLNR.
MOVE W_BSEG-BLART TO W_FINAL-BLART.
MOVE W_BSEG-MONAT TO W_FINAL-MONAT.
MOVE W_BSEG-DMBTR TO W_FINAL-DMBTR_P.
MOVE W_BSEG-KOSTL TO W_FINAL-KOSTL.
MOVE W_BSEG-PRCTR TO W_FINAL-PRCTR_P.
SELECT SINGLE * FROM BSEG INTO W_BSEG1 WHERE BELNR = W_BSEG-BELNR AND "Document Type
BUZID = 'W' .
IF SY-SUBRC = 0.
MOVE W_BSEG1-HKONT TO W_FINAL-HKONT_G.
MOVE W_BSEG1-DMBTR TO W_FINAL-DMBTR_G.
MOVE W_BSEG1-PRCTR TO W_FINAL-PRCTR_G.
MOVE W_BSEG1-BUZID TO W_FINAL-BUZID_G.
ELSE.
EXIT.
ENDIF.
APPEND W_FINAL TO I_FINAL.
SORT I_FINAL BY BELNR ASCENDING.
ENDLOOP.
ENDFORM. " sub_prepare_final
*& Form sub_download_data
Download data
FORM SUB_DOWNLOAD_DATA .
DATA : V_PRD(2) TYPE N.
IF RB_PFILE = C_FLAG_X.
          o
                +
Downloading To presentation server
V_PRESPATH = P_PFILE.
PERFORM SUB_DOWNLOAD_PRESSERVER.
ELSEIF RB_AFILE = C_FLAG_X.
          o
                +
Downloading To Application server in Auto Mode
V_APPPATH = P_AFILE.
PERFORM SUB_DOWNLOAD_APPSERVER.
ENDIF.
ENDFORM. " sub_download_data
*& Form sub_download_presserver
text
FORM SUB_DOWNLOAD_PRESSERVER.
DATA: MESSAGE TYPE STRING.
IF I_FINAL[] IS INITIAL.
MESSAGE I016.
EXIT.
ELSE.
W_FINAL_P-BUKRS = 'Company Code'.
W_FINAL_P-DELIMITER_1 = '|'.
W_FINAL_P-HKONT_P = 'G/L Account Number'.
W_FINAL_P-DELIMITER_2 = '|'.
W_FINAL_P-GJAHR = 'Fiscal Year'.
W_FINAL_P-DELIMITER_3 = '|'.
W_FINAL_P-BELNR = 'A/c Document Number'.
W_FINAL_P-DELIMITER_4 = '|'.
W_FINAL_P-BUDAT = 'Posting Date' .
W_FINAL_P-DELIMITER_5 = '|'.
W_FINAL_P-WAERS = 'Currency'.
W_FINAL_P-DELIMITER_6 = '|'.
W_FINAL_P-XBLNR = 'Ref. Document Number'.
W_FINAL_P-DELIMITER_7 = '|'.
W_FINAL_P-BLART = 'Document Type'.
W_FINAL_P-DELIMITER_8 = '|'.
W_FINAL_P-MONAT = 'Fiscal Period'.
W_FINAL_P-DELIMITER_9 = '|'.
W_FINAL_P-DMBTR_P = 'Amount'.
W_FINAL_P-DELIMITER_10 = '|'.
W_FINAL_P-KOSTL = 'Cost Center'.
W_FINAL_P-DELIMITER_11 = '|'.
W_FINAL_P-PRCTR_P = 'Profit Center'.
W_FINAL_P-DELIMITER_12 = '|'.
W_FINAL_P-HKONT_G = 'G/L Account Number'.
W_FINAL_P-DELIMITER_13 = '|'.
W_FINAL_P-DMBTR_G = 'Amount'.
W_FINAL_P-DELIMITER_14 = '|'.
W_FINAL_P-PRCTR_G = 'Profit Center'.
W_FINAL_P-DELIMITER_15 = '|'.
W_FINAL_P-BUZID_G = 'Line Item Id'.
APPEND W_FINAL_P TO I_FINAL_P.
LOOP AT I_FINAL INTO W_FINAL.
W_FINAL_P-BUKRS = W_FINAL-BUKRS.
W_FINAL_P-DELIMITER_1 = '|'.
W_FINAL_P-HKONT_P = W_FINAL-HKONT_P.
W_FINAL_P-DELIMITER_2 = '|'.
W_FINAL_P-GJAHR = W_FINAL-GJAHR.
W_FINAL_P-DELIMITER_3 = '|'.
W_FINAL_P-BELNR = W_FINAL-BELNR.
W_FINAL_P-DELIMITER_4 = '|'.
W_FINAL_P-BUDAT = W_FINAL-BUDAT .
W_FINAL_P-DELIMITER_5 = '|'.
W_FINAL_P-WAERS = W_FINAL-WAERS.
W_FINAL_P-DELIMITER_6 = '|'.
W_FINAL_P-XBLNR = W_FINAL-XBLNR.
W_FINAL_P-DELIMITER_7 = '|'.
W_FINAL_P-BLART = W_FINAL-BLART.
W_FINAL_P-DELIMITER_8 = '|'.
W_FINAL_P-MONAT = W_FINAL-MONAT.
W_FINAL_P-DELIMITER_9 = '|'.
W_FINAL_P-DMBTR_P = W_FINAL-DMBTR_P.
W_FINAL_P-DELIMITER_10 = '|'.
W_FINAL_P-KOSTL = W_FINAL-KOSTL.
W_FINAL_P-DELIMITER_11 = '|'.
W_FINAL_P-PRCTR_P = W_FINAL-PRCTR_P.
W_FINAL_P-DELIMITER_12 = '|'.
W_FINAL_P-HKONT_G = W_FINAL-HKONT_G.
W_FINAL_P-DELIMITER_13 = '|'.
W_FINAL_P-DMBTR_G = W_FINAL-DMBTR_G.
W_FINAL_P-DELIMITER_14 = '|'.
W_FINAL_P-PRCTR_G = W_FINAL-PRCTR_G.
W_FINAL_P-DELIMITER_15 = '|'.
W_FINAL_P-BUZID_G = W_FINAL-BUZID_G.
APPEND W_FINAL_P TO I_FINAL_P.
CLEAR : W_FINAL_P, W_FINAL.
ENDLOOP.
ENDIF.
*---Downloading data to file on Presentation Server
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = V_PRESPATH
FILETYPE = 'ASC'
TABLES
DATA_TAB = I_FINAL_P
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
          o
                + File can not be opened successfully
IF SY-SUBRC NE 0.
IF SY-BATCH EQ C_FLAG_X. " Stop Processing
MESSAGE E017. " File could not be opened
ELSE.
MESSAGE I017. " File could not be opened
LEAVE LIST-PROCESSING.
ENDIF.
ELSE.
CONCATENATE 'Data Successfully downloaded to the Specified Location' V_PRESPATH INTO MESSAGE SEPARATED BY SPACE.
MESSAGE MESSAGE TYPE 'S'.
ENDIF.
MODIFY SCREEN.
ENDFORM. " sub_download_presserver
*& Form sub_download_appserver
text
FORM SUB_DOWNLOAD_APPSERVER .
DATA: V_FILE TYPE STRING, " String
P_DMBTR TYPE CHAR20,
G_DMBTR TYPE CHAR20,
MESSAGE1 TYPE STRING.
IF I_FINAL[] IS INITIAL.
IF SY-BATCH EQ C_FLAG_X.
          o
                +
File contains no data
MESSAGE E016 .
ELSE.
          o
                +
File contains no data
MESSAGE I016 .
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
          o
                +
To Open The file in Application Server
OPEN DATASET V_APPPATH FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC NE 0.
          o
                +
Display error message: "Could not open file"
IF SY-BATCH EQ C_FLAG_X.
          o
                +
File contains no data
MESSAGE E016 .
ELSE.
          o
                +
File contains no data
MESSAGE I016 .
LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
          o
                +
Perform for building the Report header
CONCATENATE
'COMPANY_CODE'
'G/L_ACCOUNT_NUMBER'
'FISCAL_YEAR'
'A/C_DOCUMENT_NUMBER'
'POSTING_DATE'
'CURRENCY'
'REF_DOCUMENT_NUMBER'
'DOCUMENT_TYPE'
'FISCAL_PERIOD'
'AMOUNT'
'COSTCENTER'
'PROFIT_CENTER'
'G/L_ACCOUNT_NUMBER'
'AMOUNT'
'PROFIT_CENTER'
'LINE_ITEM_ID'
INTO V_FILE SEPARATED BY C_DELIMITER.
TRANSFER V_FILE TO V_APPPATH.
          o
                +
Transfer the data to application Server
LOOP AT I_FINAL INTO W_FINAL.
P_DMBTR = W_FINAL-DMBTR_P.
G_DMBTR = W_FINAL-DMBTR_G.
CONCATENATE
W_FINAL-BUKRS
W_FINAL-HKONT_P
W_FINAL-GJAHR
W_FINAL-BELNR
W_FINAL-BUDAT
W_FINAL-WAERS
W_FINAL-XBLNR
W_FINAL-BLART
W_FINAL-MONAT
P_DMBTR
W_FINAL-KOSTL
W_FINAL-PRCTR_P
W_FINAL-HKONT_G
G_DMBTR
W_FINAL-PRCTR_G
W_FINAL-BUZID_G
INTO V_FILE SEPARATED BY C_DELIMITER.
TRANSFER V_FILE TO V_APPPATH.
IF SY-SUBRC NE 0.
Display error message: "Data could not be written at the location"
MESSAGE 'Data could not be written at the location' TYPE 'I'.
EXIT.
ENDIF.
CLEAR V_FILE.
ENDLOOP.
CLOSE DATASET V_APPPATH.
IF SY-SUBRC NE 0.
Display error message: "File could not be closed"
MESSAGE 'File could not be closed' TYPE 'I'.
EXIT.
ELSE.
CONCATENATE 'Data Successfully downloaded to the Specified Location' V_APPPATH INTO MESSAGE1 SEPARATED BY SPACE.
MESSAGE MESSAGE1 TYPE 'S'.
ENDIF.
ENDFORM. " sub_download_appserver
regards,
Vipul

How Can I improve the time it takes to start PSE 9's Back up?

PSE's backup to external HDD has always seemed to be clunky.
For example, when the process starts and you are taken step-by-step through browsing for your HDD and then creating your next incremental backup file and then browsing again to your last backup file, I have gotten used to this taking ages. e.g. often up to 45 minutes.
Because of this, I ignore the fact that the application shows no user sign of carrying out the task, but looks like the application has hung. (just the windows blue circle revolving!). Indeed, if I mouse click on the button again (or anywhere else on the open PSE Organizer window), then Windows provides the message that Elements is not responding. However, if I wait, and wait eventually the next stage kicks in. Tonight, I started this process and it took 2.5 hours to reach the point that Elements would start the backup. It then took only just over 5 minutes to complete the backup!!
I am probably at least part of the cause of this problem. My Catalogue has 38,103 images in it (+ 1, 804 items not shown) - What are these and are they additional to the 38, 103?
Can I do something to improve the process of backing up?
I really like PSE and its organizer and this catalogue enables me to find any image very, very quickly which, for my work, is brilliant and incredibly useful and impressive. This catalogue has been in existence for a number of years now back from PSE 6 through, 7, 8 and now, PSE 9, since last September. Maybe this is part of the problem?
When I upgraded to PSE 9, I did restart the back up process with a full backup. I am now up to incremental backup 5. My images are spread out on my PC's HDD (2.95 gb on the internal partitioned drive C with 60.2 gb on its other partition D). The remainder 144 gb is on an external HDD.
Whilst PSE finds any image quickly, as already stated, it IS getting very slow at generating the thumbnails when new images are downloaded into PSE.
Are there any steps that I can take to refresh PSE to speed up the backuyp process and generating the thumbnails?
Thanks for reading and considering all the above.
Elemt

function(){return A.apply(null,[this].concat($A(arguments)))}
function(){return A.apply(null,[this].concat($A(arguments)))}elemt wrote:
Arising out of our discussion yesterday and my stated intention to replace the current internal HDD with one that has a significantly larger capacity, I wonder if you, Ken, or dj_paige, or both, have any suggestions as to if I should keep my copy of PSE 9 activated when I make a mirror copy of the existing internal HDD or deactivate it before I make the mirror copy?
Since installing PSE fresh is relatively quick and painless, I wouldn't bother with keeping it in a mirrored copy. I don't know if activation is based on an ID derived from the hard drive or not, but based on my conversations with Adobe when I replaced mine I think it is (at least in part). The bottom line is that you'll need to deactivate your old copy before running the new copy (and activating that new copy), so to be on the safe side, I'd
Deactivate the old copy of PSE.
Uninstall that old copy.
Get your new primary hard drive set up.
Install PSE.
Activate PSE.
function(){return A.apply(null,[this].concat($A(arguments)))}
function(){return A.apply(null,[this].concat($A(arguments)))}elemt wrote:
Then, I would copy across from the temporary external HDD, the 60.2 gb of images previously stored on the old E partition.
From both your comments, I am thinking that this might well screw up the database and PSE Organizer would be thrown by this. (maybe I could reconnect manually, but even if I could, that would be a massive task). It would probably mean my back up of my catalog that I made yesterday, unusable?
It might screw things up. I've never used the catalog Backup/Restore, so I'll defer to others who have, but I do know that Organizer's database (the catalog) stores a unique serial number ID for each volume that's used (C:, D:, etc.). I suspect that that serial number is derived from the serial number of the unit, but I could be wrong. I don't know how the database handles the situation where, e.g., photos on a Hitachi drive E: are then transferred to a Western Digital drive E:. It probably will involve "re-connecting" all the photos, but this is just speculation on my part.
I suggest you ignore, for the moment, PSE and set up your new hard drives in the way that makes the most sense to you. Then work in PSE to accommodate that setup.
Ken

How to improve the performance of the application

Hi,
We have customized the standard SRM BSP application and integrated to portal.
Now it has got some performence issues. It is taking time to load the page and also while navigating between the views.
We have done the performence tuning for the application to the maximum extent. But the problem is while loading the application, its taking time.
Can anyone suggest how to improve the performence of the Application.
Thanks & Regards
Warun

The system configuration is more than enough to run java applications.
You are probalbly doing time-consuming operations in the event thread. Which blocks the event thread and the gui seems not to be responding. If you you have a very bad design.
Use a thread for time consuming operations.

Does the 1st generation apple wireless keyboard work with an iPad?

Hi
I want to get a keyboard for my iPad but I don't know if this one works with my iPad 2. Can someone help please??!!

Should work just fine, I have a 1G Apple wireless keyboard and it connected just fine to my iPad 3.
Any reason why you want to use a first generation Apple keyboard? They require 3 AA batteries and can drain them fairly fast. The second and present wireless keyboard only needs 2 AA's and the batteries last much longer. I use rechargeable batteries in my 2G keyboard as well and since my charger only charges batteries in pairs makes the 1G limited to alkaline batteries.

It's Here! Experience the new My Verizon!!

You spoke. We listened.
Managing your wireless service is faster and easier check it out. Experience the new My Verizon.

This whole website is a mess. It MUST be run on a Tandy TRS 80 or something with a cassette tape drive. With voice and data and air card and all that I spend over $200 a month and I just wasted 1-1/2 hours of my life trying to upgrade my air card only to be told that "That selection is unavailable at this time"!
I finally called Verizon and talked to a really good guy who took care of my needs in about 8 minutes. You people need to take this whole website and delete it and start over. It would have been quicker, cheaper, and easier for me to get in my car and drive to a store to deal with Verizon than deal with this Toys'R Us attempt at a website.
I have seen Nigerian 409 scams put together better than this. Do you guys have a bunch of 3rd graders writing code for you or something?
We spoke and you listened?!? What the devil did you hear if this abortion is your answer? We don't want flashy graphics and cutesy "rate this page" crap - We want to do business! Act like adults who want to make money instead of an entertainment company! This ain't art class!

Can we offer feedback on improving the usability of Verizon Wireless's website ?

Similar Messages

Maybe you are looking for