Coding program SALV_DEMO_HIERSEQ_SIMPLE

Hi,
Can anyone give me the code of program SALV_DEMO_HIERSEQ_SIMPLE since I am on SAP version 4.6B and the program isn't available in this release?
Regards,
Kris

Hi,
Check this link.You can find the code sample for Hierarcial list.
http://www.geocities.com/mpioud/Z_ALV_HIERSEQ_LIST.html
Kindly reward points by clciking the star on the left of the reply,if it is useful.

Similar Messages

Weird: changing file or link associated defaults then changes ALL defaults to the same program

Y'know... I thought I'd possibly 'seen it all' but today someone brought me a laptop with something I don't believe I've ever seen...
every link and file association is defaulted to the wrong program, and it is not possible to restore the association to the proper program for the respective file types. And changing one
association changes ALL other associations for every other link to a file or shortcut.
For instance: 'right-clicking' on what I KNOW to be an Adobe Acrobat file and selecting 'open with...' from the context menu, Adobe Acrobat is not shown (even after un-installing and re-installing Acrobat). So I 'browse' to the Program files (x86)
folder and select Adobe Acrobat (AcroRd32.exe) from within the Adobe Acrobat program folder to 're-associate' .pdf files with Acrobat.. BUT - this then changes ALL associations for everything (including shortcuts on the desktop) to Adobe Acrobat.
And the same can be said if I attempt to change the file association for a "docx" file extension (MS Word document). Change the 'association' for one single 'docx' file and this results in ALL files or shortcuts on the desktop to also
change to MS Word.
So - what the ...? Anyone have a clue as to what he's done on this "brand new" installation of Windows Home Premium (64-bit)? I only just (this past week) talked him into 'abandoning' XP in favor of a license of Windows 7 Home Premium,
and afterwards everything was 100% and fully operational - but now one week later and he's done this...
So... A registry issue..? Something to do with 'file association' defaults? (and my suspicion is some sort of 'dll' problem with this performance and the issue of not being able to configure 'program defaults' for any given file type without also affecting
all other associations...).
So,short of backing up all his data (out of precaution) and trying to do a 're-installation' of Windows, my most immediate response with this would be to just 'blow it away' and re-install Windows again ... and then copy all of his data back to the corresponding
locations. But I would like to know what he's possibly done (for future reference) and maybe learn of some possibility that this can be 'fixed' and the correct 'associations' re-established without having to re-install Windows one more time...
GAA! THIS is why I shave my head...

Hi，
According to the description, it seems that the issue is caused by some corrupted registry entry\keys, a corrupted registry key can be caused by an malware\virus, or an bad-coded program or just some incorrect operation by the user. it's hard to determin
which is the culprit, but we can try to repair it as we could.
Please refer to the following link and see if it helps, (backup your registry first before editing the registry)
http://support.microsoft.com/kb/950505
we can also create a new user profile instead and copy files and setting from the old profile
http://windows.microsoft.com/en-in/windows/fix-corrupted-user-profile#1TC=windows-7
Yolanda Zhu
TechNet Community Support

Key-Value coding question

So I've implemented countOf<key> and objectIn<key>AtIndex: methods, but I still can't get access to any array elements. My object contains a number of scalars along with an NSArray called list, and to get the first element of it, I've tried
[ object valueForKey: @"list.0" ]
[ object valueForKey: @"list.@0" ]
[ object valueForKey: @"list@0" ]
[ object valueForKey: @"list(0)" ]
[ object valueForKey: @"list[0]" ]
and probably several other strings. None of them ever call the methods above, and all crash. The Key-Value Coding Programming Guide makes no mention of how this works. This is frustrating because when I call simple scalar values, everything works as described. What am I doing wrong? Any help here would be appreciated.

To make this work, you would probably have to create a value for the "bar" property inside Foo.

Run a java program by double-click any desktop filetype

hi guys,
i need ur help!!!!!!! i'm tryin to code a program, where i double click on any file type and my coded java program should start running. my coded program should check for th particular in network,if the particular application is not in harddisk......
(eg
double-click on s.pdf file coded java program should start running and search should check for acrobat reader
in network)
pls send a sample code asap!!!!!
regards,
sam

File associations are platform specific. For example on windows they are setup through the registry. On linux I can use Konqueror and it has its way of setting these up or I could use something else. Probably the easiest way is to write your own file explorer that does this.

Run a java program by double-click on desktop file

hi guys,
i need ur help!!!!!!! i'm tryin to code a program, where i double click on any file type and my coded java program should start running. my coded program should check for th particular in network,if the particular application is not in harddisk......
(eg
double-click on s.pdf file coded java program should start running and search should check for acrobat reader
in network)
pls send a sample code asap!!!!!

Did you started any coding on this or just looking for
a complete solution from the memebers of JDC??i think you've got it...
could you please stop posting this message
http://forums.java.sun.com/thread.jsp?thread=207687&forum=4&message=705223
http://forums.java.sun.com/thread.jsp?thread=207185&forum=4&message=702579
http://forums.java.sun.com/thread.jsp?thread=207950&forum=4&message=706537
plus this one
and all the old posts about opening files including this one...
http://forums.java.sun.com/thread.jsp?thread=206532&forum=4&message=699027
maybe you should try and actually write some code on your own...

Need hierarchy alv report base on salv_demo_hierseq_simple

Hi friends,
i need to do a hierarchy alv report,
i copied example code from program salv_demo_hierseq_simple and changes the selection screen +changed the select from tables.
my problem is that the results is one big list of data,
i dont have to open and close lines.
is anyone can help me with what could the problem be?
thanks,
dana.

Guys,
Any Idea on this.

Start programs at boot

I haven't yet been able to figure out how to start a program from boot on any distro. I like to run a keyboard daemon called hotkeys (not hotkey), but currently I have to type hotkeys -t msnetpro everytime I want to use it. Any way to make it start and configure the keyboard automatically?
Thanks

ezzetabi wrote:
@FUBAR
You obviously have no idea at all how to start a service in windows, it is not as putting an icon the start menu at all. A service is a program who start before the users log in and stops only when the computer turn off or it is stopped manually...
In windows only special coded programs can started this way otherwise you need something like http://www.codeproject.com/system/xyntservice.asp as wrapper.
In linux since all programs are the same, this problem does not exist at all
I know the difference between a service (daemon), controlled with "services.msc" on Windows, and a simple program run at boot time that can be configured in many different places.
I was just too lazy to type the whole thing.

Feature request: Add "Cancel" button to the close program / backup actions pop up window

Please add a way to cancel out of an unintended close of LR4. I cannot count how many times I have thought of something else I needed to do or wanted to try, only to have to totally restart the program to complete the action. If I prematurely exit the program I would like a way to get back in without having to totally close out and restart. LR3 suffers from the identical coding/programming oversight. Thanks.

Ok, so I did not see this feature request for LR4 but was able to find a few references for it under LR3 (which I apparently missed before posting this request). Is this simple request really that difficult a programming feat?

Submitting background jobs using an excecutable program

Hi all
Would anyone give an example program to submit jobs in background using job_open, job_submit, job_close F.M's,
please dont give complex coded program, easily understandable code with some useful comments will be apprecieated.
Thanks

Create a job using job_open
Create your job with JOB_OPEN. The module returns a unique job
number. Together with the jobname, this number identifies the
job. Other parameters are available, but are not required.
JOBNAME = 'Freely selectable name for the job(s) you create'.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
JOBNAME = JOBNAME
IMPORTING
JOBCOUNT = JOBNUMBER
EXCEPTIONS
CANT_CREATE_JOB = 01
INVALID_JOB_DATA = 02
JOBNAME_MISSING = 03
OTHERS = 99.
IF SY-SUBRC > 0.
<Error processing>
ENDIF.
Adding job step
Add a job step: ABAP program
CALL FUNCTION 'JOB_SUBMIT'
EXPORTING
AUTHCKNAM = SY-UNAME " Runtime authorizations
" user
JOBCOUNT = JOBNUMBER " Value from JOB_OPEN
JOBNAME = JOBNAME " Value from JOB_OPEN
REPORT = 'REPORT' " Report to be run
VARIANT = 'VARIANT' " Variant to use with
" report
PRIPARAMS = USER_PRINT_PARAMS " User printing options
ARCPARAMS = USER_ARC_PARAMS " User archiving options
" Both sets of options
" come from
" GET_PRINT_PARAMETERS
EXCEPTIONS
BAD_PRIPARAMS = 01
INVALID_JOBDATA = 02
JOBNAME_MISSING = 03
JOB_NOTEX = 04
JOB_SUBMIT_FAILED = 05
LOCK_FAILED = 06
PROGRAM_MISSING = 07
PROG_ABAP_AND_EXTPG_SET = 08
OTHERS = 99.
IF SY-SUBRC > 0.
<Error processing>
ENDIF.
**Closing job
Submit job for processing: immediate start
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
JOBCOUNT = JOBNUMBER " Job identification: number
JOBNAME = JOBNAME " and name.
STRTIMMED = 'X' " Schedules the job for
" immediate start. The job
" is started immediately
" only if the user has the
" RELE authorization to
" release a job to run.
IMPORTING
JOB_WAS_RELEASED = JOB_RELEASED " If user has authorization
" to release jobs to run, job
" is automatically released
" when it is scheduled. This
" field is set to 'x' if the
" job has been released.
" Otherwise, the job is sche-
" duled but must be released
" by an administrator before
" it can be started.
EXCEPTIONS
CANT_START_IMMEDIATE No longer used. Replaced by IMPORTING
parameter JOB_WAS_RELEASED.
INVALID_STARTDATE = 01
JOBNAME_MISSING = 02
JOB_CLOSE_FAILED = 03
JOB_NOSTEPS = 04
JOB_NOTEX = 05
LOCK_FAILED = 06
OTHERS = 99.
IF SY-SUBRC > 0.
<Error processing>
ENDIF.
*Please note it's not my original code..I have done what you could do!! Just visited help.sap.com and typed Background jobs and got sample codes..

A typical mathematical probplem programming

hi guys ..I am in learning stage of Java but finding it quite promising..However , I am faced with a small mathematical problem that needs to be coded..
The question is enumerated below for clarity :-
Assume a 2D coordinate system.( A rectangle bounds the coordinate system) i.e. X axis ( 0 , Xmax) , Y axis (0, Y max)
Assume three points on X-axis (program allows for selecting them anywhere on X axis). Call these points A , B , C
Lets take a 2-D point P in the system (PX1,PY1). Assuming we have the data (PA - PB) and PB-PC (basically the diff of lengths).
Now i need to scan the rectangular bound to actually find out this unique point P such that PA-PB and PB-PC match.
I am trying to code this in Java. Could anyone guide me on this. This small program would lead to a very innovative solution in field of Acoustics.
Looking forward to some help.
regards
deepak

hi.. I meant innovative solution towards acoustic detection and tracking of targets..how do i intend to go about it is little comprehensive and may not be relevant to this forum..In case it is insisted upon i will share the same..Also , PA -PB is not equal to PB-PC...I will elaborate for clarity..The positions at A , B , C are three microphones which will pick up sound from the rectangular area. Say for Eg if point P is the source of sound , then the three microphones will pick it up with corresponding phase shifts due to difference in lengths covered by acoustic wave. So through treatment of the three waveforms by mics I would have the actual difference in length (PB-PA and PC-PB , PC-PA)..Now if i reverse engineering the whole scenario , and for every point in rectangular area of my program calculates PB-PA and PC-PB (PC-PA could be redundancy check) , there would probably be only one unique point that would correspond to this.
Now , I just need a Java coded program to do this problem..The program as per me will run a loop ( i loop for x coordinate and j loop for y coordinate) and calculate for every point the length between the point and A , B , C and calculate the diff and check with the given data...The syntax and new learning of java makes it a little difficult at this stage... I would request some guidance on this..thanks ...deepak

Report run in background, attachment needs to be sent to user via email

Hi all,
we have a PDF solution which allows the system to send a PDF document as attachment via email to the recipient, all one needs to do is type in recipient email to a predefined PDF printer.
What i need is a similar solution but instead of PDF it has to be an Excel file attached to email.
The enduser does not have authorization to use SM36.
Searching the Web (and with help from our Basis team) i have found several ideas but not sure as it would mean coding programs and so on.
Is there an easier way?
regards
RM

Hi all,
we have a PDF solution which allows the system to send a PDF document as attachment via email to the recipient, all one needs to do is type in recipient email to a predefined PDF printer.
What i need is a similar solution but instead of PDF it has to be an Excel file attached to email.
The enduser does not have authorization to use SM36.
Searching the Web (and with help from our Basis team) i have found several ideas but not sure as it would mean coding programs and so on.
Is there an easier way?
regards
RM

Logic needed Pls help

Hi
I have to add 'Upload excel file' option in Material consumption program. Current logic is Uploading Unix file. Can any one give me some idea pls.
following is my coding
PROGRAM ZMDM0081 MESSAGE-ID ZM.
TABLES: MARA.
* Resource file record structure
DATA: BEGIN OF RECORD,
        MATERIAL_NUMBER(10),
        PLANT(5),
        CORRECTED_VALUE_19(11),
        CORRECTED_VALUE_18(11),
        CORRECTED_VALUE_17(11),
        CORRECTED_VALUE_16(11),
        CORRECTED_VALUE_15(11),
        CORRECTED_VALUE_14(11),
        CORRECTED_VALUE_13(11),
        CORRECTED_VALUE_12(11),
        CORRECTED_VALUE_11(11),
        CORRECTED_VALUE_10(11),
        CORRECTED_VALUE_09(11),
        CORRECTED_VALUE_08(11),
        CORRECTED_VALUE_07(11),
        CORRECTED_VALUE_06(11),
        CORRECTED_VALUE_05(11),
        CORRECTED_VALUE_04(11),
        CORRECTED_VALUE_03(11),
        CORRECTED_VALUE_02(11),
        CORRECTED_VALUE_01(11),
      END OF RECORD.
* Working variables
DATA: RECORD_READ(6)   TYPE P,
      RECORD_INSERT(6) TYPE P,
      RECORD_OMIT(6)   TYPE P,
      MATERIAL_NUMBER LIKE MARA-MATNR,
      G_BRGEW          LIKE MARA-BRGEW,
      N_NTGEW          LIKE MARA-NTGEW,
      PLANT            LIKE MARC-WERKS,
      REMARKS(50),
      FLAG(1),
      RECORD_FLAG(1),
      INTENSIFIED_FLAG(1),
      NUMBER(6)        TYPE P.
* Constant variables
CONSTANTS: VALID   VALUE '1',
           INVALID VALUE '0',
           ON      VALUE '1',
           OFF     VALUE '0'.
* Reporting groups
FIELD-GROUPS HEADER.
* Insert into groups
INSERT MATERIAL_NUMBER
       PLANT
       REMARKS
       INTO HEADER.
* BDC parameters
SELECTION-SCREEN BEGIN OF BLOCK ONE WITH FRAME TITLE TEXT-010.
PARAMETERS: FILE(30) TYPE C
                      DEFAULT '/export/remote/data.txt'
                      LOWER CASE
                      OBLIGATORY,
             SESSION LIKE RL04I-MAPPE
                      OBLIGATORY
                      DEFAULT '8301_MM02',
                      UNAME LIKE SY-UNAME DEFAULT SY-UNAME.
SELECTION-SCREEN END OF BLOCK ONE.
* Data conversion parameters
SELECTION-SCREEN BEGIN OF BLOCK TWO WITH FRAME TITLE TEXT-020.
PARAMETERS MONTH(2) TYPE N DEFAULT 1.
SELECTION-SCREEN END OF BLOCK TWO.
* Notes to user
SELECTION-SCREEN BEGIN OF BLOCK THREE WITH FRAME TITLE TEXT-030.
SELECTION-SCREEN COMMENT /5(70) TEXT-040.
SELECTION-SCREEN COMMENT /5(70) TEXT-050.
SELECTION-SCREEN END OF BLOCK THREE.
MOVE UNAME TO SY-UNAME.
* Including SAP R/3 BDC customized include
INCLUDE ZSIN0001.
* Verifying the path & file name
AT SELECTION-SCREEN ON FILE.
PERFORM RESOURCE_FILE_OPEN.
* Processing BDC
START-OF-SELECTION.
PERFORM SESSION_OPEN.
PERFORM SESSION_GENERATION.
PERFORM SESSION_CLOSE.
CLOSE DATASET FILE.
* Printing execution report
END-OF-SELECTION.
SKIP.
WRITE /15 'BDC & SYSTEM PARAMETERS -' COLOR 3.
SKIP.
WRITE: /15 'Resource path & filename ..........', FILE,
         /15 'Session name ......................', SESSION,
         /15 'ABAP/4 Program name ...............', SY-REPID,
         /15 'Client ............................', SY-MANDT,
         /15 'SAP System ID .....................', SY-SYSID,
         /15 'SAP Release .......................', SY-SAPRL,
         /15 'Host ..............................', SY-HOST,
         /15 'Operating system ..................', SY-OPSYS,
         /15 'Database system ...................', SY-DBSYS,
         /15 'User ID ...........................', SY-UNAME,
         /15 'Date ..............................', SY-DATUM,
         /15 'Time ..............................', SY-UZEIT.
SKIP 3.
WRITE /15 'DATA CONVERSION DEFAULT PARAMETERS -' COLOR 3.
SKIP.
WRITE: /15 'Start at previous month ............', MONTH.
SKIP 3.
WRITE /15 'EXECUTION REPORT -' COLOR 3.
SKIP.
WRITE: /15 'Total records read form file ......', RECORD_READ,
         /15 'Total records insert to BDC .......', RECORD_INSERT,
         /15 'Total records omitted .............', RECORD_OMIT.
NEW-PAGE.
SORT.
LOOP.
    ADD 1 TO NUMBER.
    IF INTENSIFIED_FLAG EQ ON.
      FORMAT COLOR 2 INTENSIFIED ON.
      MOVE OFF TO INTENSIFIED_FLAG.
    ELSE.
      FORMAT COLOR 2 INTENSIFIED OFF.
      MOVE ON TO INTENSIFIED_FLAG.
    ENDIF.
    WRITE: /1 NUMBER, MATERIAL_NUMBER, PLANT, REMARKS.
    POSITION SY-LINSZ.
    WRITE ' '.
ENDLOOP.
* Reading resource file and generating BDC session
FORM SESSION_GENERATION.
DO.
    READ DATASET FILE INTO RECORD.
    IF SY-SUBRC NE 0 OR RECORD IS INITIAL.
      EXIT.
    ENDIF.
    ADD 1 TO RECORD_READ.
    PERFORM RECORD_CONDENSATION.
    PERFORM RECORD_VERIFICATION.
    CHECK RECORD_FLAG EQ VALID.
    REFRESH BDCDATA.
    PERFORM SCREEN_SEQUENCE.
    PERFORM BDC_TRANSACTION USING 'MM02'.
    IF SY-SUBRC EQ 0 .
      ADD 1 TO RECORD_INSERT.
    ELSE.
      ADD 1 TO RECORD_OMIT.
    ENDIF.
ENDDO.
ENDFORM.                    "SESSION_GENERATION
* Condensing the record fields
FORM RECORD_CONDENSATION.
CONDENSE: RECORD-MATERIAL_NUMBER,
            RECORD-PLANT,
            RECORD-CORRECTED_VALUE_19,
            RECORD-CORRECTED_VALUE_18,
            RECORD-CORRECTED_VALUE_17,
            RECORD-CORRECTED_VALUE_16,
            RECORD-CORRECTED_VALUE_15,
            RECORD-CORRECTED_VALUE_14,
            RECORD-CORRECTED_VALUE_13,
            RECORD-CORRECTED_VALUE_12,
            RECORD-CORRECTED_VALUE_11,
            RECORD-CORRECTED_VALUE_10,
            RECORD-CORRECTED_VALUE_09,
            RECORD-CORRECTED_VALUE_08,
            RECORD-CORRECTED_VALUE_07,
            RECORD-CORRECTED_VALUE_06,
            RECORD-CORRECTED_VALUE_05,
            RECORD-CORRECTED_VALUE_04,
            RECORD-CORRECTED_VALUE_03,
            RECORD-CORRECTED_VALUE_02,
            RECORD-CORRECTED_VALUE_01.
ENDFORM.                    "RECORD_CONDENSATION
* Verifying record fields
FORM RECORD_VERIFICATION.
MOVE VALID TO RECORD_FLAG.
UNPACK RECORD-MATERIAL_NUMBER TO MATERIAL_NUMBER.
SELECT SINGLE * FROM MARA
                      WHERE MATNR EQ MATERIAL_NUMBER.
IF SY-SUBRC NE 0.
    ADD 1 TO RECORD_OMIT.
    MOVE: RECORD-PLANT TO PLANT,
          TEXT-060     TO REMARKS,
          INVALID      TO RECORD_FLAG.
    EXTRACT HEADER.
    EXIT.
ELSE.
    IF MARA-NTGEW > MARA-BRGEW.     "add to check for net weight > grow
      MOVE '1' TO FLAG.
    ELSE.
      MOVE ' ' TO FLAG.
    ENDIF.
ENDIF.
MOVE RECORD-PLANT TO PLANT.
SELECT SINGLE MATNR WERKS INTO (PLANT, MATERIAL_NUMBER)
                            FROM ('MARC')
                            WHERE MATNR EQ MATERIAL_NUMBER
                            AND   WERKS EQ PLANT.
IF SY-SUBRC NE 0.
    ADD 1 TO RECORD_OMIT.
    MOVE: TEXT-070 TO REMARKS,
          INVALID TO RECORD_FLAG.
    EXTRACT HEADER.
ENDIF.
ENDFORM.                    "RECORD_VERIFICATION
* Performing the screen sequence
FORM SCREEN_SEQUENCE.
PERFORM SCREEN_SAPLMGMM_0060.
PERFORM SCREEN_SAPLMGMM_0070.
PERFORM SCREEN_SAPLMGMM_3005.
PERFORM SCREEN_SAPLMGMM_0081.
PERFORM SCREEN_SAPLMGMM_3006.
PERFORM SCREEN_SAPLMGMM_3110.
ENDFORM.                    "SCREEN_SEQUENCE
* Change Material: Initial Screen
FORM SCREEN_SAPLMGMM_0060.
PERFORM BDC_DYNPRO USING 'SAPLMGMM'   '0060'.
PERFORM BDC_FIELD USING 'RMMG1-MATNR' RECORD-MATERIAL_NUMBER.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '/5'. " Select view(s)
ENDFORM.                    "SCREEN_SAPLMGMM_0060
* Select view(s)
FORM SCREEN_SAPLMGMM_0070.
PERFORM BDC_DYNPRO USING 'SAPLMGMM'            '0070'.
PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(01)' 'X'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'           '/0'. " Enter
ENDFORM.                    "SCREEN_SAPLMGMM_0070
* Change Material: Basic data
FORM SCREEN_SAPLMGMM_3005.
PERFORM BDC_DYNPRO USING 'SAPLMGMM'   '3005'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' 'SP08'.             " MRP 1
IF FLAG EQ '1'.
    PERFORM BDC_DYNPRO USING 'SAPLMGMM'   '3005'.
    PERFORM BDC_FIELD USING 'BDC_OKCODE'           '/0'.
ENDIF.
ENDFORM.                    "SCREEN_SAPLMGMM_3005
* Organizational levels
FORM SCREEN_SAPLMGMM_0081.
PERFORM BDC_DYNPRO USING 'SAPLMGMM'    '0081'.
PERFORM BDC_FIELD USING 'RMMG1-WERKS' RECORD-PLANT.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ENTR'. "Continue
ENDFORM.                    "SCREEN_SAPLMGMM_0081
* Change Material: MRP 1
FORM SCREEN_SAPLMGMM_3006.
PERFORM BDC_DYNPRO USING 'SAPLMGMM'   '3006'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' 'ZU11'. " Consumption
ENDFORM.                    "SCREEN_SAPLMGMM_3006
* Change Material: Consumption
FORM SCREEN_SAPLMGMM_3110.
CONSTANTS: PREVIOUS_MONTH VALUE 'X',
             THIS_MONTH     VALUE ' '.
DATA: ROW_POSITION(2)      TYPE N VALUE 0,
        WS_POSITION(2)       TYPE C,
        FIELDNAME            LIKE BDCDATA-FNAM,
        CONSUMPTION_QUANTITY LIKE RECORD-CORRECTED_VALUE_01.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3110'.
* if month eq previous_month.
*    move 1 to row_position.
* elseif month eq this_month.
*    move 0 to row_position.
* endif.
MOVE MONTH TO ROW_POSITION.
DO 19 TIMES VARYING CONSUMPTION_QUANTITY
              FROM RECORD-CORRECTED_VALUE_01
              NEXT RECORD-CORRECTED_VALUE_02.
    IF ROW_POSITION GT 11.
      MOVE 1 TO ROW_POSITION.
      PERFORM BDC_FIELD USING 'BDC_OKCODE' 'VWNP'. " Page down
      PERFORM BDC_DYNPRO USING 'SAPLMGMM'   '3110'.
    ENDIF.
    UNPACK ROW_POSITION TO WS_POSITION.
    CONCATENATE 'RM03M-VBWRT(' WS_POSITION ')' INTO FIELDNAME.
    IF CONSUMPTION_QUANTITY+0(1) EQ '-'.
      SHIFT CONSUMPTION_QUANTITY LEFT BY 1 PLACES.
      CONCATENATE CONSUMPTION_QUANTITY '-' INTO CONSUMPTION_QUANTITY.
    ENDIF.
    PERFORM BDC_FIELD USING FIELDNAME CONSUMPTION_QUANTITY.
    ADD 1 TO ROW_POSITION.
ENDDO.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '3110'.
PERFORM BDC_FIELD USING 'BDC_OKCODE' '/11'. " Save
ENDFORM.                    "SCREEN_SAPLMGMM_3110
Include Program
* BDC data table and record structure defination
DATA BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
* Opening a resource file
FORM RESOURCE_FILE_OPEN.
DATA ERROR_MESSAGE(40).
*Begin of changes Mod01
* OPEN DATASET FILE FOR INPUT IN TEXT MODE MESSAGE ERROR_MESSAGE.
OPEN DATASET FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT MESSAGE
                                                      ERROR_MESSAGE.
*End of changes Mod01
IF SY-SUBRC NE 0.
    MESSAGE E000 WITH FILE ERROR_MESSAGE.
ENDIF.
ENDFORM.
* Opening of BDC session
FORM SESSION_OPEN.
CALL FUNCTION 'BDC_OPEN_GROUP'
       EXPORTING CLIENT              = SY-MANDT
                  DEST                = SY-HOST
                  GROUP               = SESSION
                  USER                = SY-UNAME
                  KEEP                = 'X'
       EXCEPTIONS CLIENT_INVALID      = 01
                  DESTINATION_INVALID = 02
                  GROUP_INVALID       = 03
                  HOLDDATE_INVALID    = 04
                  INTERNAL_ERROR      = 05
                  QUEUE_ERROR         = 06
                  RUNNING             = 07
                  USER_INVALID        = 08.
CASE SY-SUBRC.
    WHEN 01. MESSAGE E001 WITH SY-MANDT.
    WHEN 02. MESSAGE E002.
    WHEN 03. MESSAGE E003.
    WHEN 04. MESSAGE E004.
    WHEN 05. MESSAGE E005.
    WHEN 06. MESSAGE E006.
    WHEN 07. MESSAGE E007.
    WHEN 08. MESSAGE E007.
ENDCASE.
ENDFORM.
* Closing BDC session
FORM SESSION_CLOSE.
CALL FUNCTION 'BDC_CLOSE_GROUP'
    EXCEPTIONS NOT_OPEN    = 01
               QUEUE_ERROR = 02.
CASE SY-SUBRC.
    WHEN 01. MESSAGE E009.
    WHEN 02. MESSAGE E010.
ENDCASE.
ENDFORM.
* Inserting data into BDC
FORM BDC_TRANSACTION USING TRANSACTION_CODE.
CALL FUNCTION 'BDC_INSERT'
       EXPORTING TCODE          = TRANSACTION_CODE
       TABLES     DYNPROTAB      = BDCDATA
       EXCEPTIONS INTERNAL_ERROR = 1
                  NOT_OPEN       = 2
                  QUEUE_ERROR    = 3
                  TCODE_INVALID = 4
                  OTHERS         = 5.
ENDFORM.
* Insert program name & screen number
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
MOVE: PROGRAM TO BDCDATA-PROGRAM,
        DYNPRO TO BDCDATA-DYNPRO,
        'X'     TO BDCDATA-DYNBEGIN.
APPEND BDCDATA.
ENDFORM.
* Inserting field name/BDC_OKCODE/BDC_CUESOR and value
FORM BDC_FIELD USING FNAM FVAL.
CLEAR BDCDATA.
MOVE: FNAM TO BDCDATA-FNAM,
        FVAL TO BDCDATA-FVAL.
APPEND BDCDATA.
ENDFORM.

i have changed the selection screen as follows
SELECTION-SCREEN BEGIN OF BLOCK one WITH FRAME TITLE text-010.
*                                                          "1)
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_unix RADIOBUTTON GROUP rad1 .                 "
SELECTION-SCREEN COMMENT 5(26) text-008.
SELECTION-SCREEN POSITION 33.                              "
PARAMETERS: file(128) TYPE c
                      DEFAULT '/export/remote/data.txt' LOWER CASE.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_xls RADIOBUTTON GROUP rad1 .                 "excel file
SELECTION-SCREEN COMMENT 5(26) text-009.
SELECTION-SCREEN POSITION 33.                              "
PARAMETERS: filf(128).
SELECTION-SCREEN END OF LINE.
*>>
*PARAMETERS: file(128) TYPE c
*                      DEFAULT '/export/remote/data.txt' LOWER CASE OBLIGATORY,
PARAMETERS: session LIKE rl04i-mappe OBLIGATORY
                      DEFAULT '8301_MM02',
             uname LIKE sy-uname DEFAULT sy-uname.
SELECTION-SCREEN END OF BLOCK one.
* Data conversion parameters
SELECTION-SCREEN BEGIN OF BLOCK two WITH FRAME TITLE text-020.
PARAMETERS month(2) TYPE n DEFAULT 1.
SELECTION-SCREEN END OF BLOCK two.
* Notes to user
SELECTION-SCREEN BEGIN OF BLOCK three WITH FRAME TITLE text-030.
SELECTION-SCREEN COMMENT /5(70) text-040.
SELECTION-SCREEN COMMENT /5(70) text-050.
SELECTION-SCREEN END OF BLOCK three.

Questions About Office 365 Capabilities

I am exploring the possibility of putting our organization's Office on, "the cloud" using Office 365 Enterprise E2. I have some questions that are important. Any help will be appreciate.
1. I have developed extensive VBA "code behind" on Word files and Excel workbooks that do complex operations. For instance, I open our Outlook public folder shared contacts to do searches and populate forms and Excel cells.
I use NPOI calls to create downloadable Excel workbooks, etc. I use calls to SQL to access and query databases and return data. Is the VBA coding supported with Office 365? If so, what restrictions might there be over my current situation,
where Exchange and Office are hosted on our servers?
2. In general, what restrictions will I encounter with Exchange and Office being hosted by Microsoft, versus these tools being hosted on our servers?
Again, crucial questions and I appreciate any help. Thanks.
Doug Pruiett Good News Jail & Prison Ministry Richmond, Virginia www.goodnewsjail.org

Hi,
Please try to use your account which logon in the Technet to sign in the Office 365 forum.
http://community.office365.com/en-us/forums/default.aspx
And your issues were more related to coding/programming, you'd better post them to MSND forum:
http://social.msdn.microsoft.com/Forums/en-US/home?category=officedev&filter=alltypes&sort=lastpostdesc
Regards,
George Zhao
TechNet Community Support

Access 2010 - If Then Else Statement to display text within text box upon Check Box True/False condition

I have a form called myForm. On this form is a check box called myCheckBox. I also have a text box labeled myTextBox. I have assigned a macro, myMacro, to run upon selection/click of myCheckBox. The macro is an If statement which determines if myCheckBox
is checked or not checked and spits out a value, "Yes" or "No" for example, into the text box.
I am not able to get text to display into the text box although I am not receiving any errors when I run the macro. This may be a fault in my logic and would like help resolving where the problem lies. I am fairly new to Access so this could be something
simple.
My code is as follows:
If Forms!myForm = True Then
Forms!myForm!myTextBox.Value = "Yes!"
ElseIf Forms!myForm = False Then
Forms!myForm!myTextBox.Value = "No!"
Else
Forms!myForm!myTextBox.Value = " / ERROR / "
End if
Thanks!

Hi,
This is the forum to discuss questions and feedback for Microsoft Office, the issue is more related to coding/programing, you'd better post your question to the MSDN forum for Access
http://social.msdn.microsoft.com/Forums/en-US/home?forum=accessdev&filter=alltypes&sort=lastpostdesc
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.
George Zhao
TechNet Community Support

How can I importing when create object?

Hi Gurus,
Im beginner with OO Abap. Please give me a hand with this.
Im using the programming interface REPORT Z_TEST_ST_TEXT_EDITOR for text editor found on /people/igor.barbaric/blog/2005/06/06/the-standard-text-editor-oo-abap-cfw-class which is good and useful for me (highly recommended) but I need to import the text created (t_text) in method constructor in order to send it via e.mail.
Could anybody tell me how to get/import the text created?
Thank you in advance.
Below is the coding. (program which uses the developed class and method consisting the created text)
DATA: o_txe TYPE REF TO zcl_standard_text_editor,
 v_caption TYPE char100,
 s_thead TYPE thead.
call screen
CALL SCREEN 0100.
MODULE s0100_start
MODULE s0100_start OUTPUT.
 SET PF-STATUS 'BASIC'.
 s_thead-tdname = 'VENDOR0000000011'.
 s_thead-tdid = 'ST'.
 s_thead-tdobject = 'TEXT'.
 s_thead-tdspras = sy-langu.
 CONCATENATE 'Standard text:' s_thead-tdname
 INTO v_caption SEPARATED BY space.
 IF o_txe IS INITIAL.
 CREATE OBJECT o_txe
EXPORTING i_thead = s_thead
 i_caption = v_caption.
IMPORTING????
 ENDIF.
ENDMODULE.
method CONSTRUCTOR.
DATA: o_dialogbox TYPE REF TO cl_gui_dialogbox_container,
 t_text TYPE STANDARD TABLE OF tdline,
 s_event TYPE cntl_simple_event,
 t_events TYPE cntl_simple_events,
 t_lines TYPE STANDARD TABLE OF tline,
 v_text TYPE tdline,
 v_text_temp TYPE tdline,
 v_line_temp TYPE tdline,
 v_line_len TYPE i,
 v_index TYPE i.
FIELD-SYMBOLS: <line> TYPE tline.
me->thead = i_thead.
me->caption = i_caption.
*------ containers
IF i_container IS INITIAL.
 CREATE OBJECT o_dialogbox
 EXPORTING top = 50
 left = 200
 height = 150
 width = 500
 caption = i_caption.
 me->main_container = o_dialogbox.
 SET HANDLER me->on_container_close FOR o_dialogbox.
ELSE.
 me->main_container = i_container.
ENDIF.
IF me->splitter IS INITIAL.
 CREATE OBJECT me->splitter
 EXPORTING
 parent = me->main_container
 orientation = me->splitter->orientation_vertical
 sash_position = 10. "percentage of containers
 ------ toolbar
 CREATE OBJECT me->toolbar
 EXPORTING parent = me->splitter->top_left_container.
 CALL METHOD me->toolbar->add_button
 EXPORTING fcode = me->c_save
 is_disabled = ' '
 icon = '@2L@' "icon_system_save
 butn_type = cntb_btype_button.
 CALL METHOD me->toolbar->add_button
 EXPORTING fcode = me->c_close
 is_disabled = ' '
 icon = '@3X@' "icon_close
 butn_type = cntb_btype_button.
*------ register events
 REFRESH t_events.
 s_event-eventid = cl_gui_toolbar=>m_id_function_selected.
 s_event-appl_event = ' '.
 APPEND s_event TO t_events.
 CALL METHOD me->toolbar->set_registered_events
 EXPORTING events = t_events.
 SET HANDLER: me->on_toolbar_func_sel FOR me->toolbar.
*------ create textedit control
 CREATE OBJECT me->textedit
 EXPORTING parent = me->splitter->bottom_right_container.
ENDIF.
get text
CALL FUNCTION 'READ_TEXT'
 EXPORTING ID = me->thead-tdid
 LANGUAGE = me->thead-tdspras
 NAME = me->thead-tdname
 OBJECT = me->thead-tdobject
 TABLES LINES = t_lines
 EXCEPTIONS ID = 1
 LANGUAGE = 2
 NAME = 3
 NOT_FOUND = 4
 OBJECT = 5
 REFERENCE_CHECK = 6
 WRONG_ACCESS_TO_ARCHIVE = 7
 OTHERS = 8.
*------- convert text to text editor format
LOOP AT t_lines ASSIGNING <line>.
 IF <line>-tdformat = space OR <line>-tdformat = '=' OR sy-tabix = 1.
 v_line_temp = <line>-tdline.
 CONCATENATE v_text v_line_temp INTO v_text_temp.
 ELSE.
 CONCATENATE: cl_abap_char_utilities=>cr_lf <line>-tdline
 INTO v_line_temp.
 CONCATENATE v_text v_line_temp INTO v_text_temp.
 ENDIF.
 IF sy-subrc = 0.
 v_text = v_text_temp.
 ELSE.
 APPEND v_text TO t_text.
 v_text = v_line_temp.
 ENDIF.
ENDLOOP.
IF sy-subrc = 0.
 APPEND v_text TO t_text.
ENDIF.
*------- display text
CALL METHOD me->textedit->set_text_as_stream
 EXPORTING text = t_text.
me->t_initial_text = t_text.
endmethod.

good book on ABAP objects(OOPS)
http://www.esnips.com/doc/bc475662-82d6-4412-9083-28a7e7f1ce09/Abap-Objects---An-Introduction-To-Programming-Sap-Applications
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm
http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt
http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt
http://www.allsaplinks.com/
http://www.sap-img.com/
http://www.sapgenie.com/
http://help.sap.com
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://www.sapgenie.com/abap/controls/index.htm
http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm
http://www.sapgenie.com/abap/OO/
these links
http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm
For funtion module to class
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm
for classes
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm
for methods
http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm
for inheritance
http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm
for interfaces
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm
For Materials:
1) http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCABA/BCABA.pdf -- Page no: 1291
2) http://esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt
3) http://esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
4) http://esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf
5) http://esnips.com/doc/92be4457-1b6e-4061-92e5-8e4b3a6e3239/Object-Oriented-ABAP.ppt
6) http://esnips.com/doc/448e8302-68b1-4046-9fef-8fa8808caee0/abap-objects-by-helen.pdf
7) http://esnips.com/doc/39fdc647-1aed-4b40-a476-4d3042b6ec28/class_builder.ppt
8) http://www.amazon.com/gp/explorer/0201750805/2/ref=pd_lpo_ase/102-9378020-8749710?ie=UTF8
1) http://www.erpgenie.com/sap/abap/OO/index.htm
2) http://help.sap.com/saphelp_nw04/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm
Rewards if useful......................
Minal

Coding program SALV_DEMO_HIERSEQ_SIMPLE

Similar Messages

Maybe you are looking for