Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Infotype Tabstrip Subscreen Help!

Former Member
0 Kudos

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.

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.-

1 REPLY 1

timo_elssser
Explorer
0 Kudos

hi,

have you resolved this problem? d

thanks so lot.

regants