Get popup in Batch session

[Former Member]

report ZPRG

no standard page heading line-size 255.

include bdcrecx1.

DATA : BEGIN OF GT_COUNT OCCURS 0,

DOC_NUM TYPE IKPF-IBLNR,

FI_YR TYPE IKPF-GJAHR,

CNT_DATE TYPE IIKPF-ZLDAT,

PER_VAR TYPE IIKPF-ABWEI,

SER_NUM TYPE STRING,

END OF GT_COUNT.

DATA : BEGIN OF GT_SERNUM OCCURS 0,

SER_NUM TYPE GERNR,

END OF GT_SERNUM.

DATA : CNT TYPE N,

FNAME TYPE STRING.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:\Documents and Settings\sapuser\Desktop\TEST.TXT'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = GT_COUNT

.

perform open_group.

LOOP AT GT_COUNT.

perform bdc_dynpro using 'SAPMM07I' '0701'.

perform bdc_field using 'BDC_CURSOR'

'RM07I-IBLNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RM07I-IBLNR'

GT_COUNT-DOC_NUM.

perform bdc_field using 'RM07I-GJAHR'

GT_COUNT-FI_YR.

perform bdc_field using 'RM07I-ZLDAT'

GT_COUNT-CNT_DATE.

perform bdc_dynpro using 'SAPMM07I' '0731'.

perform bdc_field using 'BDC_CURSOR'

'ISEG-ERFMG(01)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'ISEG-ERFMG(01)'

GT_COUNT-PER_VAR.

perform bdc_dynpro using 'SAPLIPW1' '0200'.

perform bdc_field using 'BDC_CURSOR'

'RIPW0-SERNR(02)'.

perform bdc_field using 'BDC_OKCODE'

'=RWS'.

REFRESH GT_SERNUM.

SPLIT GT_COUNT-SER_NUM AT ',' INTO TABLE GT_SERNUM.

CNT = 1.

LOOP AT GT_SERNUM.

CONCATENATE 'RIPW0-SERNR(' CNT ')' INTO FNAME.

PERFORM BDC_FIELD USING FNAME GT_SERNUM-SER_NUM.

CNT = CNT + 1.

ENDLOOP.

*perform bdc_field using 'RIPW0-SERNR(01)'

• 'RING08-001'.

*perform bdc_field using 'RIPW0-SERNR(02)'

• 'RING08-002'.

perform bdc_dynpro using 'SAPMM07I' '0731'.

perform bdc_field using 'BDC_CURSOR'

'ISEG-ERFMG(01)'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

perform bdc_transaction using 'MI04'.

ENDLOOP.

perform close_group.

Edited by: Alvaro Tejada Galindo on Apr 14, 2008 1:19 PM

[Former Member]

report ZPRG

no standard page heading line-size 255.

include bdcrecx1.

DATA : BEGIN OF GT_COUNT OCCURS 0,

DOC_NUM TYPE IKPF-IBLNR,

FI_YR TYPE IKPF-GJAHR,

CNT_DATE TYPE IIKPF-ZLDAT,

PER_VAR TYPE IIKPF-ABWEI,

SER_NUM TYPE STRING,

END OF GT_COUNT.

DATA : BEGIN OF GT_SERNUM OCCURS 0,

SER_NUM TYPE GERNR,

END OF GT_SERNUM.

DATA : CNT TYPE N,

FNAME TYPE STRING.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:\Documents and Settings\sapuser\Desktop\TEST.TXT'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = GT_COUNT

.

perform open_group.

LOOP AT GT_COUNT.

perform bdc_dynpro using 'SAPMM07I' '0701'.

perform bdc_field using 'BDC_CURSOR'

'RM07I-IBLNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RM07I-IBLNR'

GT_COUNT-DOC_NUM.

perform bdc_field using 'RM07I-GJAHR'

GT_COUNT-FI_YR.

perform bdc_field using 'RM07I-ZLDAT'

GT_COUNT-CNT_DATE.

perform bdc_dynpro using 'SAPMM07I' '0731'.

perform bdc_field using 'BDC_CURSOR'

'ISEG-ERFMG(01)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'ISEG-ERFMG(01)'

GT_COUNT-PER_VAR.

perform bdc_dynpro using 'SAPLIPW1' '0200'.

perform bdc_field using 'BDC_CURSOR'

'RIPW0-SERNR(02)'.

perform bdc_field using 'BDC_OKCODE'

'=RWS'.

REFRESH GT_SERNUM.

SPLIT GT_COUNT-SER_NUM AT ',' INTO TABLE GT_SERNUM.

CNT = 1.

LOOP AT GT_SERNUM.

CONCATENATE 'RIPW0-SERNR(' CNT ')' INTO FNAME.

PERFORM BDC_FIELD USING FNAME GT_SERNUM-SER_NUM.

CNT = CNT + 1.

ENDLOOP.

*perform bdc_field using 'RIPW0-SERNR(01)'

• 'RING08-001'.

*perform bdc_field using 'RIPW0-SERNR(02)'

• 'RING08-002'.

perform bdc_dynpro using 'SAPMM07I' '0731'.

perform bdc_field using 'BDC_CURSOR'

'ISEG-ERFMG(01)'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

perform bdc_transaction using 'MI04'.

ENDLOOP.

perform close_group.

Edited by: Alvaro Tejada Galindo on Apr 14, 2008 1:19 PM

[Former Member]

For what reason.

[Former Member]

Hi Expert!

I m working with this issue for the past 1 week.

I ggot to data trnasfer for a tcode mi04.

when i do it manually i m getting the scrremns proprrly

But when i m doing recording with the same tcode i m not getting the last pop up window

in the first screen

there is physical document no.

year

date.

In the second there is quantity

if we press enter we shud get a pop up window asking for serial nno..which i m getting for recording..

But when i execute and see the result in sm35..the pop up window ids not comming and it has the message

BACKGROUNFD PROCESSING NOT POSSIBLE WITH MATERIAL WITH SERIAL NO REQUIREMNT

kINDLY SUGGEST SOME METHODS PLS

Sincerely

JayalATHEESH

[Former Member]

What is the issue with the code?

Thanks,

Sriram Ponna.

[Former Member]

Hi SRiRAM,

i HAVE ADDED U IN MY GMAIL ACCOUNT (CHAT)

sO that in future i can ask u doubts then and there

SIncerely

jayaLatheesh

[Former Member]

Hi,

Pls reply,

may i ad u in my gmail..

[Former Member]

No jaya U cant, this is no fair):

[Former Member]

Hi

what problem ur facing code is working fine

[Former Member]

Hi Naresh,

I m working with this issue for the past 1 week.

I ggot to data trnasfer for a tcode mi04.

when i do it manually i m getting the scrremns proprrly

But when i m doing recording with the same tcode i m not getting the last pop up window

in the first screen

there is physical document no.

year

date.

In the second there is quantity

if we press enter we shud get a pop up window asking for serial nno..which i m getting for recording..

But when i execute and see the result in sm35..the pop up window ids not comming and it has the message

BACKGROUNFD PROCESSING NOT POSSIBLE WITH MATERIAL WITH SERIAL NO REQUIREMNT

kINDLY SUGGEST SOME METHODS PLS

[Former Member]

hi,

wat is the problem?