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.