Skip to Content
0
Former Member
Jun 02, 2008 at 08:23 AM

BDC issue

228 Views

Hi Gurus, for the follwoing code after I start the session method, after the first screen it is throwing me an error saying "no batch input screen for sapv45ma 4001", and it is not taking any values from here on. Here is the code:

report ZSO_BDC1

no standard page heading line-size 255.

include bdcrecx1.

data: begin of record occurs 1,

auart(4) type c,

vkorg(4) type c,

vtweg(2) type c,

spart(2) type c,

kunnr(10) type c,

kunnr3(10) type c,

mabnr(18) type c,

kwmeng(15) type c,

kunnr4(10) type c,

kunnr5(10) type c,

zterm2(4) type c,

inco5(3) type c,

inco6(28) type c,

kwmeng1(15) type c,

vrkme(4) type c,

kschl(4) type c,

kbetr(11) type c,

bedat(8) type c,

kunnr1(10) type c,

kunnr2(10) type c,

zterm1(4) type c,

inco3(3) type c,

inco4(28) type c,

end of record.

*data record like bdcdata occurs 2 with header line.

start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'D:\open_so.txt'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

  • HEADER_LENGTH = 0

  • READ_BY_LINE = 'X'

  • DAT_MODE = ' '

  • CODEPAGE = ' '

  • IGNORE_CERR = ABAP_TRUE

  • REPLACEMENT = '#'

  • CHECK_BOM = ' '

  • VIRUS_SCAN_PROFILE =

  • NO_AUTH_CHECK = ' '

  • IMPORTING

  • FILELENGTH =

  • HEADER =

TABLES

DATA_TAB = RECORD

  • EXCEPTIONS

  • FILE_OPEN_ERROR = 1

  • FILE_READ_ERROR = 2

  • NO_BATCH = 3

  • GUI_REFUSE_FILETRANSFER = 4

  • INVALID_TYPE = 5

  • NO_AUTHORITY = 6

  • UNKNOWN_ERROR = 7

  • BAD_DATA_FORMAT = 8

  • HEADER_NOT_ALLOWED = 9

  • SEPARATOR_NOT_ALLOWED = 10

  • HEADER_TOO_LONG = 11

  • UNKNOWN_DP_ERROR = 12

  • ACCESS_DENIED = 13

  • DP_OUT_OF_MEMORY = 14

  • DISK_FULL = 15

  • DP_TIMEOUT = 16

  • OTHERS = 17

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

perform open_group.

loop at record.

  • clear record.

  • refresh record.

perform bdc_dynpro using 'SAPMV45A' '0101'.

perform bdc_field using 'BDC_CURSOR'

'VBAK-VKGRP'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'VBAK-AUART'

record-auart.

perform bdc_field using 'VBAK-VKORG'

record-vkorg.

perform bdc_field using 'VBAK-VTWEG'

record-vtweg.

perform bdc_field using 'VBAK-SPART'

record-spart.

perform bdc_dynpro using 'SAPMSSY0' '0120'.

perform bdc_field using 'BDC_CURSOR'

'09/14'.

perform bdc_field using 'BDC_OKCODE'

'=PICK'.

perform bdc_dynpro using 'SAPMV45A' '4001'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'KUAGV-KUNNR'

record-kunnr.

perform bdc_field using 'KUWEV-KUNNR'

record-kunnr3.

*perform bdc_field using 'RV45A-KETDAT'.

*perform bdc_field using 'RV45A-KPRGBZ'.

*perform bdc_field using 'VBKD-PRSDT'.

perform bdc_field using 'BDC_CURSOR'

'RV45A-KWMENG(01)'.

perform bdc_field using 'RV45A-MABNR(01)'

record-mabnr.

perform bdc_field using 'RV45A-KWMENG(01)'

record-kwmeng.

perform bdc_dynpro using 'SAPMV45A' '4001'.

perform bdc_field using 'BDC_OKCODE'

'=ITEM'.

perform bdc_field using 'KUAGV-KUNNR'

record-kunnr4.

perform bdc_field using 'KUWEV-KUNNR'

record-kunnr5.

*perform bdc_field using 'RV45A-KETDAT'.

*perform bdc_field using 'RV45A-KPRGBZ'.

*perform bdc_field using 'VBKD-PRSDT'.

perform bdc_field using 'VBKD-ZTERM'

record-zterm2.

perform bdc_field using 'VBKD-INCO1'

record-inco5.

perform bdc_field using 'VBKD-INCO2'

record-inco6.

perform bdc_field using 'BDC_CURSOR'

'RV45A-MABNR(01)'.

perform bdc_dynpro using 'SAPMV45A' '4003'.

perform bdc_field using 'BDC_OKCODE'

'=T\06'.

perform bdc_field using 'BDC_CURSOR'

'RV45A-KWMENG'.

perform bdc_field using 'RV45A-KWMENG'

record-kwmeng1.

perform bdc_field using 'VBAP-VRKME'

record-vrkme.

*perform bdc_field using 'RV45A-ETDAT'

*perform bdc_field using 'RV45A-PRGBZ'

*perform bdc_field using 'VBKD-PRSDT'

perform bdc_dynpro using 'SAPMV45A' '5003'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'KOMV-KBETR(07)'.

perform bdc_field using 'KOMV-KSCHL(07)'

record-kschl.

perform bdc_field using 'KOMV-KBETR(07)'

record-kbetr.

perform bdc_dynpro using 'SAPMV45A' '5003'.

perform bdc_field using 'BDC_OKCODE'

'=T\05'.

perform bdc_field using 'BDC_CURSOR'

'KOMV-KSCHL(08)'.

perform bdc_dynpro using 'SAPLCNMS' '1300'.

perform bdc_field using 'BDC_OKCODE'

'/EESC'.

perform bdc_field using 'BDC_CURSOR'

'MLSTS-AUFNR'.

perform bdc_dynpro using 'SAPLV60F' '4001'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'FPLT-AFDAT(01)'.

perform bdc_field using 'FPLA-BEDAT'

record-bedat.

*perform bdc_field using 'FPLA-BEDAR'

.

*perform bdc_field using 'FPLT-AFDAT(01)'

perform bdc_dynpro using 'SAPLV60F' '4001'.

perform bdc_field using 'BDC_OKCODE'

'=S\BACK'.

perform bdc_field using 'BDC_CURSOR'

'FPLA-BEDAT'.

*perform bdc_field using 'FPLA-BEDAT'

*perform bdc_field using 'FPLA-BEDAR'

perform bdc_dynpro using 'SAPMV45A' '4001'.

perform bdc_field using 'BDC_OKCODE'

'=SICH'.

perform bdc_field using 'KUAGV-KUNNR'

record-kunnr1.

perform bdc_field using 'KUWEV-KUNNR'

record-kunnr2.

*perform bdc_field using 'RV45A-KETDAT'

*perform bdc_field using 'RV45A-KPRGBZ'

*perform bdc_field using 'VBKD-PRSDT'

perform bdc_field using 'VBKD-ZTERM'

record-zterm1.

perform bdc_field using 'VBKD-INCO1'

record-inco3.

perform bdc_field using 'VBKD-INCO2'

record-inco4.

perform bdc_field using 'BDC_CURSOR'

'RV45A-MABNR(02)'.

perform bdc_transaction using 'VA01'.

endloop.

perform close_group.

Please let me know the changes.

Thanks and Regards,

Vishwa