Skip to Content
0
Former Member
Feb 12, 2009 at 08:26 AM

upload program for duplicate entries

53 Views

hi,

I have upload program for duplicate entries.In that for duplicate entries if i give * (for ex 2001*)

it is not taking for the upload.In my case 2001 is ulready there.How to give one more new entry

on the same.Please give some suggestions.

TYPE-POOLS TRUXS.

TABLES : ZGATEP.

TYPES : BEGIN OF TY_ZGATEP,

GTEN TYPE ZGATEP-GTEN,

ZDATE TYPE ZGATEP-ZDATE,

LIFNR TYPE ZGATEP-LIFNR,

NAME1 TYPE ZGATEP-NAME1,

VBELN TYPE ZGATEP-VBELN,

DDATE TYPE ZGATEP-DDATE,

EBELN TYPE ZGATEP-EBELN,

GJAHR TYPE ZGATEP-GJAHR,

WERKS TYPE ZGATEP-WERKS,

END OF TY_ZGATEP.

DATA : IT_ZGATEP TYPE TABLE OF TY_ZGATEP,

WA_ZGATEP TYPE TY_ZGATEP,

IT_TYPE TYPE TRUXS_T_TEXT_DATA.

PARAMETER : P_FILE TYPE RLGRAP-FILENAME.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

  • PROGRAM_NAME = SYST-CPROG

  • DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = 'P_FILE'

IMPORTING

FILE_NAME = P_FILE

.

START-OF-SELECTION.

  • Uploading the data in the file into internal table

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

EXPORTING

  • I_FIELD_SEPERATOR =

  • I_LINE_HEADER = 'X'

I_TAB_RAW_DATA = IT_TYPE

I_FILENAME = P_FILE

TABLES

I_TAB_CONVERTED_DATA = IT_ZGATEP[]

EXCEPTIONS

CONVERSION_FAILED = 1

OTHERS = 2.

  • IF sy-subrc NE 0.

  • MESSAGE ID sy-msgid

  • TYPE sy-msgty

  • NUMBER sy-msgno

  • WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  • ENDIF.

END-OF-SELECTION.

LOOP AT IT_ZGATEP INTO WA_ZGATEP.

ZGATEP-GTEN = WA_ZGATEP-GTEN.

ZGATEP-ZDATE = WA_ZGATEP-ZDATE.

ZGATEP-LIFNR = WA_ZGATEP-LIFNR.

ZGATEP-NAME1 = WA_ZGATEP-NAME1.

ZGATEP-VBELN = WA_ZGATEP-VBELN.

ZGATEP-DDATE = WA_ZGATEP-DDATE.

ZGATEP-EBELN = WA_ZGATEP-EBELN.

ZGATEP-GJAHR = WA_ZGATEP-GJAHR.

ZGATEP-WERKS = WA_ZGATEP-WERKS.

MODIFY ZGATEP.

ENDLOOP.