bdc validations

Former Member — Mon, 10 Sep 2007 13:49:58 GMT

can any one write the validations for the bdc recording code that must show error message if if ur entring the wrong values in particular field.

&----

*& Report ZTESTIN *

*& *

&----

*& *

&----

REPORT ZTESTIN.

TABLES :LFA1,LFB1,LFM1.

PARAMETERS : P_FILE LIKE RLGRAP-FILENAME.

*DATA :V_FILE LIKE RLGRAP-FILENAME.

DATA : BEGIN OF IT_VEND OCCURS 0,

BUKRS TYPE LFB1-BUKRS,

EKORG TYPE LFM1-EKORG,

KTOKK TYPE LFA1-KTOKK,

NAME1 TYPE LFA1-NAME1,

SORTL TYPE LFA1-SORTL,

LAND1 TYPE LFA1-LAND1,

AKONT TYPE LFB1-AKONT,

FDGRV TYPE LFB1-FDGRV,

WAERS TYPE LFM1-WAERS,

END OF IT_VEND.

Call Function 'F4_FILENAME'
Exporting
Program_Name = SYST-CPROG9986772991
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ''
IMPORTING
FILE_NAME = P_File.
ENDIF.

DATA :BEGIN OF G_BDCDATA OCCURS 0.

INCLUDE STRUCTURE BDCDATA.

DATA : END OF G_BDCDATA.

DATA:FILE TYPE STRING .

At Selection-Screen On Value-Request For P_File.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

PROGRAM_NAME = SYST-REPID

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = ' '
STATIC = ' '
MASK = ' '

CHANGING

FILE_NAME = P_FILE

EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

start-of-selection.

FILE = p_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = FILE

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = IT_VEND

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

end-of-selection.

perform bdc_vendor.

&----

*& Form bdc_vendor

&----

text

----

--> p1 text
<-- p2 text

----

FORM bdc_vendor .

*perform open_group.

first screen

LOOP AT IT_VEND.

perform bdc_dynpro using 'SAPMF02K' '0100'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-KTOKK'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02K-BUKRS'

IT_VEND-BUKRS.

perform bdc_field using 'RF02K-EKORG'

IT_VEND-EKORG.

perform bdc_field using 'RF02K-KTOKK'

IT_VEND-KTOKK.

personal info screen 0110

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-LAND1'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'LFA1-NAME1'

IT_VEND-NAME1.

perform bdc_field using 'LFA1-SORTL'

IT_VEND-SORTL.

perform bdc_field using 'LFA1-LAND1'

IT_VEND-LAND1.

perform bdc_dynpro using 'SAPMF02K' '0120'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-KUNNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0130'.

perform bdc_field using 'BDC_CURSOR'

'LFBK-BANKS(01)'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_dynpro using 'SAPMF02K' '0210'.

perform bdc_field using 'BDC_CURSOR'

'LFB1-FDGRV'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'LFB1-AKONT' " Reference acc

IT_VEND-AKONT.

perform bdc_field using 'LFB1-FDGRV'

IT_VEND-FDGRV. "cash mgt group

perform bdc_dynpro using 'SAPMF02K' '0215'.

perform bdc_field using 'BDC_CURSOR'

'LFB1-ZTERM'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0220'.

perform bdc_field using 'BDC_CURSOR'

'LFB5-MAHNA'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

currency screen

perform bdc_dynpro using 'SAPMF02K' '0310'.

perform bdc_field using 'BDC_CURSOR'

'LFM1-WAERS'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'LFM1-WAERS'

IT_VEND-WAERS. "currency

perform bdc_dynpro using 'SAPMF02K' '0320'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-LIFNR'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

*CALL TRANSACTION 'XK01' USING G_BDCDATA MODE 'A'.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

*perform bdc_transaction using 'XK01'.

CALL TRANSACTION 'XK01' USING G_BDCDATA MODE 'A' .

ENDLOOP.

*perform close_group.

ENDFORM. " bdc_vendor

&----

*& Form bdc_dynpro

&----

text

----

-->P_0124 text
-->P_0125 text

----

FORM bdc_dynpro USING p_progname

p_screenno.

p_progname =

G_BDCDATA-PROGRAM = P_PROGNAME.

G_BDCDATA-DYNPRO = P_SCREENNO.

G_BDCDATA-DYNBEGIN = 'X'.

APPEND G_BDCDATA.

CLEAR G_BDCDATA.

ENDFORM. " bdc_dynpro

&----

*& Form bdc_field

&----

text

----

-->P_0274 text
-->P_0275 text

----

FORM bdc_field USING P_FNAM

P_FVAL.

G_BDCDATA-FNAM = P_FNAM.

G_BDCDATA-FVAL = P_FVAL.

APPEND G_BDCDATA.

CLEAR G_BDCDATA.

ENDFORM. " bdc_field

Re: bdc validations

Former Member — Mon, 10 Sep 2007 13:58:30 GMT

DATA : T_MSG type BDCMSGCOLL.

CALL TRANSACTION 'XK01' USING G_BDCDATA MODE 'A'  
messages into  t_MSG

This internal table contain all the messages returned by the CALL TRAN. You can checkfor the sucess messages and report the error messages from here.

Re: bdc validations

Former Member — Mon, 10 Sep 2007 14:19:18 GMT

Hi,

Check the link below it has got sample code as well.

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.highlightedcontent?documenturi=%2flibrary%2fabap%2fabap-code-samples%2fbdc%2fabapCodeSampletoUploadwithBDCandDisplayResultin+Report.pdf

Cheers

topic Re: bdc validations in Application Development and Automation Discussions

bdc validations

Re: bdc validations

Re: bdc validations