Infotype Tabstrip Subscreen Help!

Former Member — Thu, 15 Feb 2007 15:46:19 GMT

Hello, im new here, so hi everyone =).

Im doing an infotype, inside this i have a tabstrip (TAB) whit 3 tabs. (tab1, tab2, tab3).-

in each tab, i have a Subscreen. (sub1, sub,2, sub3).-

in each subscreen i have 3 fields. (field1, field2, field3- all defined in PSnnnn)

the datas for the infotype come for a txt file, via batch input.

so, i need just to made the infotype to be able to capture the data.

and show me the data-

till now, i think i have all necesary, the tables, PSNNNN, PANNNN, the fields defined.

the dynpros ready, (one for each subscreen) and a main dynpro for the infotype.

My problem now is... ¿how make it work?. because, i know that i need a ...control? for the tabstrip? im not sure, is my first infotype.

I have the following code in the diferents programs.

MP900800:

*----

Modulpool for Infotype P9008:*

*----

data definition for this infotype

INCLUDE MP900810. " Data Definitions

general infotype data definition and technique

INCLUDE MPPDAT00. " Global Data - Do not change

INCLUDE FP50PPSB. " Buffer - Do not change

INCLUDE MPPERS00. " Standard Modules- Do not change

specific includes for this infotype

INCLUDE MP900820. " Output Modules

INCLUDE MP900830. " Input Modules

INCLUDE MP900840. " Subroutines

INCLUDE MP900850.

MP900810:

________________________________________________________________

Data definition for infotype 9008 *

14 de febrero 2006 *

*----

the following tables are filled globally:
T001P, T500P
they can be made available with a TABLES-statement

PROGRAM MP900800 MESSAGE-ID RP.

TABLES: P9008,

T001P,

T500P,

USR01.

FIELD-SYMBOLS: STRUCTURE P9008

DEFAULT P9008.

DATA: PSAVE LIKE P9008.

DATA: SELECTED_LINE LIKE SY-STEPL,

SELECTED_FIELD(30),

SELECTION_DONE VALUE '1',

DELETE_LINE VALUE '0',

TB_TABIX LIKE SY-TABIX,

LINE_TO_BE_DELETED.

MP900820:

_____________________________________________________________

*----

*
Output-modules for infotype 9008 *

14 de febrero del 2007 *

*----

MODULE P9008 OUTPUT *

*----

MODULE P9901 OUTPUT.

IF PSYST-NSELC EQ YES.

read text fields etc.; do this whenever the screen is show for the
first time:
PERFORM RExxxx.

IF PSYST-IINIT = YES AND PSYST-IOPER = INSERT.

generate default values; do this the very first time on insert only:
PERFORM GET_DEFAULT.

ENDIF.

ENDMODULE.

_____________________________________________________________

MP900830:

*----

*
Input-modules for infotype 9008 *
Process After Input *

*----

*&----

*& Module CHECK_FCODE INPUT

*&----

text

*----

MODULE CHECK_FCODE INPUT.

PERFORM CHECK_FCODE.

ENDMODULE. " CHECK_FCODE INPUT

_________________________________________________________________

MP900840

*----

*
Subroutines for infotype 9008 *
*

*----

*&----

*& Form CHECK_FCODE

*&----

FORM CHECK_FCODE.

IF FCODE = 'GENRPT'.

MESSAGE ID 'HRPBSAU' TYPE 'I' NUMBER '004'.

CALL FUNCTION 'DEQUEUE_EPPRELE'

EXPORTING PERNR = P9008-PERNR.

SUBMIT RPTLSLQR AND RETURN

WITH PNPPERNR = P9008-PERNR.

CALL FUNCTION 'ENQUEUE_EPPRELE'

EXPORTING PERNR = P9008-PERNR.

ENDIF.

IF FCODE = 'VIEWBAL'. "note 787563

SUBMIT RPTLSLQR AND RETURN

WITH TST_ON = 'X'

WITH PNPPERNR = P9008-PERNR.

ENDIF.

IF FCODE = SAVE.

MESSAGE I016 WITH TEXT-036 TEXT-037.

ENDIF.

ENDFORM. " CHECK_FCODE

________________________________________________________________

*----

***INCLUDE MP900850 .

*----

*&----

*& Module PBO_LIST OUTPUT

*&----

text

*----

MODULE PBO_LIST OUTPUT.

ENDMODULE. " PBO_LIST OUTPUT

*&----

*& Module LINE_FAST OUTPUT

*&----

text

*----

MODULE LINE_FAST OUTPUT.

ENDMODULE. " LINE_FAST OUTPUT

*&----

*& Module EXIT_FAST INPUT

*&----

text

*----

MODULE EXIT_FAST INPUT.

ENDMODULE. " EXIT_FAST INPUT

*&----

*& Module GET_ENTRY INPUT

*&----

text

*----

MODULE GET_ENTRY INPUT.

ENDMODULE. " GET_ENTRY INPUT

*&----

*& Module CHECK_PERNR INPUT

*&----

text

*----

MODULE CHECK_PERNR INPUT.

ENDMODULE. " CHECK_PERNR INPUT

*&----

*& Module PROPOSED_PERNR INPUT

*&----

text

*----

MODULE PROPOSED_PERNR INPUT.

ENDMODULE. " PROPOSED_PERNR INPUT

*&----

*& Module PUT_INPUT INPUT

*&----

text

*----

MODULE PUT_INPUT INPUT.

ENDMODULE. " PUT_INPUT INPUT

*&----

*& Module MARK_PSFAST INPUT

*&----

text

*----

MODULE MARK_PSFAST INPUT.

ENDMODULE. " MARK_PSFAST INPUT

*&----

*& Module FCODEFAST INPUT

*&----

text

*----

MODULE FCODEFAST INPUT.

ENDMODULE. " FCODEFAST INPUT

*&----

*& Module PROPOSED_VALUES INPUT

*&----

text

*----

MODULE PROPOSED_VALUES INPUT.

ENDMODULE. " PROPOSED_VALUES INPUT

*&----

*& Module PFSTATUS_PROP OUTPUT

*&----

text

*----

MODULE PFSTATUS_PROP OUTPUT.

ENDMODULE. " PFSTATUS_PROP OUTPUT

_________________________________________________

*----

*
Dynpro 2000 for infotype 9008 *

14 de febrero del 2007 *
*

*----

PBO -

PROCESS BEFORE OUTPUT.

------ general non infotype specific processing -------

MODULE BEFORE_OUTPUT.

CALL SUBSCREEN subscreen_empl INCLUDING empl_prog empl_dynnr.

CALL SUBSCREEN subscreen_header INCLUDING header_prog header_dynnr.

MODULE P9008.

CALL SUBSCREEN S1 INCLUDING 'MP900800' '2010'.

CALL SUBSCREEN S2 INCLUDING 'MP900800' '2020'.

CALL SUBSCREEN S3 INCLUDING 'MP900800' '2030'.

MODULE HIDDEN_DATA.

PROCESS AFTER INPUT.

*----

process exit commands

*----

MODULE EXIT AT EXIT-COMMAND.

CHAIN.

FIELD P9008-BEGDA.

FIELD P9008-ENDDA.

FIELD P9008-ZCATFINAL.

FIELD P9008-ZTOTEVA.

FIELD P9008-ZCATCOMP.
FIELD P9008-ZTOTCOMP.
FIELD P9008-ZPONDCOMP.
FIELD P9008-ZCATMETCLI.
FIELD P9008-ZTOTMETCLI.
FIELD P9008-ZPONDMETCLI.
FIELD P9008-ZCATMETAS.
FIELD P9008-ZTOTMETAS.
FIELD P9008-ZPONDMETAS.

FIELD P9008-ZINSTRUTXT.

FIELD P9008-ZINSTRU.

FIELD P9008-ZEVAMATRI.

FIELD P9008-ZEVADIR.

MODULE INPUT_STATUS ON CHAIN-REQUEST.

MODULE CHECK_END_DATE.

ENDCHAIN.

*----

process functioncodes before input-checks *

*----

MODULE PRE_INPUT_CHECKS.

*----

input-checks: *

*----

insert check modules here:

CALL SUBSCREEN S1.

CALL SUBSCREEN S2.

CALL SUBSCREEN S3.

MODULE CHECK_FCODE.

*----

process function code: ALL fields that appear on the
screen HAVE TO BE listed here (including output-only fields)

*----

CHAIN.

FIELD P9008-BEGDA.

FIELD P9008-ENDDA.

FIELD RP50M-SPRTX.

FIELD P9008-ZCATFINAL.

FIELD P9008-ZTOTEVA.

FIELD P9008-ZCATCOMP.
FIELD P9008-ZTOTCOMP.
FIELD P9008-ZPONDCOMP.
FIELD P9008-ZCATMETCLI.
FIELD P9008-ZTOTMETCLI.
FIELD P9008-ZPONDMETCLI.
FIELD P9008-ZCATMETAS.
FIELD P9008-ZTOTMETAS.
FIELD P9008-ZPONDMETAS.

FIELD P9008-ZINSTRUTXT.

FIELD P9008-ZINSTRU.

FIELD P9008-ZEVAMATRI.

FIELD P9008-ZEVADIR.

FIELD RP50M-SPRTX.

MODULE POST_INPUT_CHECKS.

ENDCHAIN.

______________________________________________________________

*DYNPRO 2110

PROCESS BEFORE OUTPUT.

MODULE STATUS_2010.

MODULE MODIFY_SUBSCREEN.

MODULE HIDDEN_DATA_SUBSCREEN.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_2010.

CHAIN.

FIELD PA9008-ZPONDMETAS.

FIELD PA9008-ZTOTMETAS.

FIELD PA9008-ZCATMETAS.

MODULE INPUT_STATUS_SUBSCREEN ON CHAIN-REQUEST.

ENDCHAIN.

_______________________________________________________________

*DYNPRO2120

***********************************************************************

process after input. *

***********************************************************************

PROCESS BEFORE OUTPUT.

MODULE MODIFY_SUBSCREEN.

MODULE HIDDEN_DATA_SUBSCREEN.

***********************************************************************

process after input. *

***********************************************************************

PROCESS AFTER INPUT.

CHAIN.

FIELD PA9008-ZPONDMETCLI.

FIELD PA9008-ZTOTMETCLI.

FIELD PA9008-ZCATMETCLI.

MODULE INPUT_STATUS_SUBSCREEN ON CHAIN-REQUEST.

ENDCHAIN.

____________________________________________________________________

*DYNPRO 2130

***********************************************************************

process after input. *

***********************************************************************

PROCESS BEFORE OUTPUT.

MODULE MODIFY_SUBSCREEN.

MODULE HIDDEN_DATA_SUBSCREEN.

***********************************************************************

process after input. *

***********************************************************************

PROCESS AFTER INPUT.

CHAIN.

FIELD PA9008-ZPONDCOMP.

FIELD PA9008-ZTOTCOMP.

FIELD PA9008-ZCATCOMP.

MODULE INPUT_STATUS_SUBSCREEN ON CHAIN-REQUEST.

ENDCHAIN.

Thats all... and i really need your help, i need this thing done for tomorrow :S

Kind of desesperate!.. well, i dont fully undertood ABAP yet... i on my way-.

Thanks a Lot!! Felipe.-

topic Infotype Tabstrip Subscreen Help! in Application Development and Automation Discussions

Infotype Tabstrip Subscreen Help!

Re: Infotype Tabstrip Subscreen Help!