cancel
Showing results for 
Search instead for 
Did you mean: 

bdc transaction problem

Former Member
0 Kudos

hi,

i am create a programm for f-27 type DG by bdc session method

when i execute it on 3rd screen of execution it ask for the values for PAYMENT TERMS but in manual entry OF F-27 it does not TAKE ANY PAYMENT TERMS. plz check my code and tell me where is the problem in coding.

CODES:

REPORT zcrdtdgupld

NO STANDARD PAGE HEADING LINE-SIZE 255.

*INCLUDE zdata_declarations.

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

  • I N T E R N A L T A B L E *

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

DATA: BEGIN OF wa_data,

bldat TYPE BDC_FVAL, "Document Date10

blart TYPE BDC_FVAL, "Document Type

bukrs TYPE BDC_FVAL, "Company Code

budat TYPE BDC_FVAL, "Posting Date10

monat TYPE BDC_FVAL, "Period

waers TYPE BDC_FVAL, "Currency

xblnr TYPE BDC_FVAL, "Reference Field

docid TYPE BDC_FVAL, "Document ID

newbs TYPE BDC_FVAL, "Posting Key

newko TYPE BDC_FVAL, "Account Code

wrbtr TYPE BDC_FVAL, "Amount in Documentcurrency

zfbdt TYPE BDC_FVAL, "Baseline Date10

newbs2 TYPE BDC_FVAL, "Account Key2

newko2 TYPE BDC_FVAL, "Account code2

wrbtr2 TYPE BDC_FVAL, "bseg-wrbtr,"Amount2

kostl TYPE BDC_FVAL, " cost center

prctr TYPE BDC_FVAL, " profit center

END OF wa_data.

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

  • D A T A *

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

DATA: it_data LIKE TABLE OF wa_data.

DATA: it_bdcdata TYPE TABLE OF bdcdata.

DATA: wa_bdcdata LIKE LINE OF it_bdcdata.

DATA: v_file TYPE string.

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

  • S E L E C T I O N S C R E E N *

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

SELECTION-SCREEN BEGIN OF BLOCK b.

PARAMETERS : pa_file LIKE fc03tab-pl00_file OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b.

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

  • AT SELECTION-SCREEN *

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

AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.

PERFORM get_file USING pa_file.

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

  • S T A R T O F S E L E C T I O N *

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

START-OF-SELECTION.

v_file = pa_file.

*uploading flat file into internal table

PERFORM upload_file USING v_file CHANGING it_data.

*open the session

PERFORM open_session.

*POPULATING THE BDCDATA

LOOP AT it_data INTO wa_data.

REFRESH it_bdcdata.

PERFORM bdc_dynpro USING 'SAPMF05A' '0100' 'X'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-NEWKO'.

PERFORM bdc_field USING 'BDC_OKCODE' '/00'.

PERFORM bdc_field USING 'BKPF-BLDAT' wa_data-bldat.

PERFORM bdc_field USING 'BKPF-BLART' wa_data-blart.

PERFORM bdc_field USING 'BKPF-BUKRS' wa_data-bukrs.

PERFORM bdc_field USING 'BKPF-BUDAT' wa_data-budat.

PERFORM bdc_field USING 'BKPF-MONAT' wa_data-monat.

PERFORM bdc_field USING 'BKPF-WAERS' wa_data-waers.

PERFORM bdc_field USING 'BKPF-XBLNR' wa_data-xblnr.

PERFORM bdc_field USING 'FS006-DOCID' wa_data-docid.

PERFORM bdc_field USING 'RF05A-NEWBS' wa_data-newbs.

PERFORM bdc_field USING 'RF05A-NEWKO' wa_data-newko.

PERFORM bdc_dynpro USING 'SAPMF05A' '0301' 'X'.

PERFORM bdc_field USING 'BDC_CURSOR' 'BSEG-WRBTR'.

PERFORM bdc_field USING 'BDC_OKCODE' '/00'.

PERFORM bdc_field USING 'BSEG-WRBTR' wa_data-wrbtr.

PERFORM bdc_field USING 'BSEG-ZFBDT' wa_data-zfbdt.

PERFORM bdc_field USING 'RF05A-NEWBS' wa_data-newbs2.

PERFORM bdc_field USING 'RF05A-NEWKO' wa_data-newko2.

PERFORM bdc_dynpro USING 'SAPMF05A' '0300' 'X'.

PERFORM bdc_field USING 'BDC_CURSOR' 'BSEG-WRBTR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.

PERFORM bdc_field USING 'BSEG-WRBTR' wa_data-wrbtr2.

PERFORM bdc_dynpro USING 'SAPLKACB' '0002' 'X'.

PERFORM bdc_field USING 'BDC_CURSOR' 'COBL-PRCTR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.

  • PERFORM bdc_field USING 'COBL-KOSTL' wa_data-kostl. "'101902'

PERFORM bdc_field USING 'COBL-PRCTR' wa_data-prctr.

PERFORM bdc_insert USING 'F-27' it_bdcdata.

ENDLOOP.

*close the session

PERFORM close_session.

&----


*& Form get_file

&----


  • text

----


  • -->P_PA_FILE text

----


FORM get_file USING p_pa_file.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

program_name = syst-repid

field_name = 'PA_FILE'

CHANGING

file_name = pa_file.

IF sy-subrc <> 0.

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

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

ENDIF.

ENDFORM. " get_file

&----


*& Form upload_file

&----


  • text

----


  • -->P_V_FILE text

  • <--P_IT_DATA text

----


FORM upload_file USING p_v_file

CHANGING p_it_data LIKE it_data.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = p_v_file

filetype = 'DAT'

  • has_field_separator = '#'

TABLES

data_tab = p_it_data.

IF sy-subrc <> 0.

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

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

ENDIF.

ENDFORM. " upload_file

&----


*& Form open_session

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM open_session .

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

client = sy-mandt

  • DEST = FILLER8

group = 'JAYANT'

  • HOLDDATE = FILLER8

keep = 'X'

user = sy-uname.

IF sy-subrc <> 0.

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

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

ENDIF.

ENDFORM. " open_session

&----


*& Form bdc_dynpro

&----


  • text

----


  • -->P_0043 text

  • -->P_0044 text

----


FORM bdc_dynpro USING program TYPE BDC_PROG

dynpro TYPE BDC_DYNR

dynbegin TYPE BDC_START.

wa_bdcdata-program = program.

wa_bdcdata-dynpro = dynpro.

wa_bdcdata-dynbegin = dynbegin.

APPEND wa_bdcdata TO it_bdcdata.

CLEAR wa_bdcdata.

ENDFORM. " bdc_dynpro

&----


*& Form bdc_field

&----


  • text

----


  • -->P_0048 text

  • -->P_0049 text

----


FORM bdc_field USING fnam TYPE FNAM_____4

fval TYPE BDC_FVAL.

wa_bdcdata-fnam = fnam.

wa_bdcdata-fval = fval.

APPEND wa_bdcdata TO it_bdcdata.

CLEAR wa_bdcdata.

ENDFORM. " bdc_field

&----


*& Form bdc_insert

&----


  • text

----


  • -->P_0183 text

  • -->P_IT_BDCDATA text

----


FORM bdc_insert USING p_tcode TYPE sytcode

p_it_bdcdata LIKE it_bdcdata.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

tcode = p_tcode

TABLES

dynprotab = p_it_bdcdata.

ENDFORM. " bdc_insert

&----


*& Form close_session

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM close_session .

CALL FUNCTION 'BDC_CLOSE_GROUP'.

ENDFORM. "close_session

plz help me in this programm

thanks

jayant.

Accepted Solutions (0)

Answers (1)

Answers (1)

former_member204746
Active Contributor
0 Kudos

why not post this in the ABAP forum?

You expect Basis people to help you on this one?