Feching Eccn code and HTS code from GTS to ECC

Question

Hi Gurus,
I am extending a standard delivery idoc (DELVRY05) for some of the header and items fields.
i have tried to pull them throgh the FM /SAPSLL/***_DOCS_SD0C_GET_R3 i have passed the sales order number, item number and VBTYP to this FM to pull the Eccn code and HTS code.but all the tables are containing the zero entries.
Please help me. i have to populate the ECCN code and HTS code at the item level in my EXTENDED (Z)DELVRY05 idoc.
I have the SO number POSNR and material with me in the program.

Answer 1

Hi All,
I am now fetching the ECCN code and HTS code as beow:
You need to write an RFC enabled function module in GTS system, and then call this FM from ECC6.0 passing the RFC destination with help of the FM:  /SAPSLL/CD_ALE_RECEIVER_GET_R3.
Call the FM as below:
Coding in ECC 6.0.
data:   lv_rfc_dest   TYPE bdibapi_dest-rfc_dest.
clear : w_so.
          w_so-vbeln = w_e1edl24-vgbel." It can be the SO number or the delivery number which will be passed to the RFC ZFM to GTS to fetch the ECCN and HTS code.
          append w_so to t_so .
          clear: w_so.
   CALL FUNCTION '/SAPSLL/CD_ALE_RECEIVER_GET_R3'
            IMPORTING
              ev_rfc_dest                   = lv_rfc_dest.
   IF lv_rfc_dest IS NOT INITIAL.
   CALL FUNCTION 'ZS_HS_ECCN_SCHB_COPY'
              DESTINATION lv_rfc_dest
              EXPORTING
                PRVSY              = <fs_lips>-matnr
              IMPORTING
                ECCN               = lv_eccn
                HSCODE             = lv_stawn
                TABLES
                REFNO              = t_so
              EXCEPTIONS
                systen_error       = 1
                connection_failure = 2.
Lv_eccn and Lv_Stawn contains the ECCN and HTS code.
Coding of the ZFM in GTS:
Note: tables parameter of FM  RefNo is optional, where as the material number is mandatory parameter for the FM.
   FUNCTION ZS_HS_ECCN_SCHB_COPY.
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(PRVSY) TYPE  /SAPSLL/PRVSY
*"  EXPORTING
*"     VALUE(ECCN) TYPE  /SAPSLL/CCNGN
*"     VALUE(HSCODE) TYPE  /SAPSLL/CCNGN
*"     VALUE(SCHB) TYPE  /SAPSLL/CCNGN
*"     VALUE(RADIO) TYPE  /SAPSLL/CCNGN
*"     VALUE(RADIO_ECCN) TYPE  /SAPSLL/CCNGN
*"     VALUE(TEXT) TYPE  /SAPSLL/TEXT60
*"  TABLES
*"      REFNO STRUCTURE  /SAPSLL/API6800_DLN_LC_S OPTIONAL
    DATA:lv_prtyp TYPE /sapsll/prtyp VALUE '01'.
  DATA: lv_rptdt    TYPE /sapsll/rptdt.
  DATA:lr_datab TYPE /sapsll/rptst_r_t,
       lr_datbi TYPE /sapsll/rptet_r_t.
  TYPES : BEGIN OF s_pr,
         guid_pr TYPE /sapsll/guid_16,
         END OF s_pr.
  DATA: w_pr TYPE s_pr.
  DATA: t_pr TYPE STANDARD TABLE OF s_pr.
  TYPES : BEGIN OF s_hscode,
         guid_ctsnum TYPE /sapsll/guid_16,
         stcts TYPE /sapsll/stcts,
         datbi TYPE /sapsll/rptet,
         datab TYPE /sapsll/rptst,
         END OF s_hscode.
TYPES : BEGIN OF s_corref,
        GUID_POBJ TYPE /SAPSLL/CORREF-GUID_POBJ,
        REFNO  TYPE /SAPSLL/CORREF-REFNO ,
      end of s_corref.
TYPES: begin of s_cuit,
         GUID_CUHD  TYPE  /SAPSLL/CUIT-GUID_CUHD,
         GUID_PR    TYPE  /SAPSLL/CUIT-GUID_PR,
         CTYDP      TYPE  /SAPSLL/CUIT-CTYDP,
        end of s_cuit.
TYPES : BEGIN OF s_t606g,
         LGREG TYPE /SAPSLL/T606G-LGREG,
         GGLND TYPE /SAPSLL/T606G-GGLND,
        end of s_t606g.
TYPES : BEGIN OF s_TLEGSU ,
        LGREG  TYPE /SAPSLL/TLEGSU-LGREG ,
        CTSEX TYPE /SAPSLL/TLEGSU-CTSEX,
    end of s_TLEGSU .
TYPES  : BEGIN OF s_ctsnum,
      GUID_CTSNUM TYPE /SAPSLL/ctsnum-GUID_CTSNUM ,
      STCTS       TYPE  /SAPSLL/ctsnum-STCTS ,
      CCNGN       TYPE  /SAPSLL/ctsnum-CCNGN ,
  END OF s_ctsnum.
  DATA: w_hscode TYPE s_hscode.
  DATA: t_hscode TYPE STANDARD TABLE OF s_hscode,
        t_corref TYPE STANDARD TABLE OF s_corref,
        t_cuit TYPE STANDARD TABLE OF s_cuit,
        t_t606g TYPE STANDARD TABLE OF s_t606g,
        t_tlegsu TYPE STANDARD TABLE OF s_tlegsu,
        t_ctsnum TYPE STANDARD TABLE OF s_ctsnum,
        w_ctsnum TYPE s_ctsnum,
        w_tlegsu TYPE s_tlegsu,
        w_cuit TYPE s_cuit,
        lv_refno TYPE  /sapsll/corref-refno,
        t_refno type STANDARD TABLE OF /SAPSLL/API6800_DLN_LC_S,
        w_refno TYPE /SAPSLL/API6800_DLN_LC_S.
  TYPES : BEGIN OF s_eccn,
         ccngn TYPE  /sapsll/ccngn,
         guid_ctsnum TYPE /sapsll/guid_16,
         END OF s_eccn.
DATA: lv_pname TYPE sy-repid,
       t_ztuhcd1 type STANDARD TABLE OF ztuhcd1,
       w_ztuhcd1 type ztuhcd1.
  CONSTANTS: c_eccn  TYPE char7 VALUE 'ECCN',
             c_HSCODE TYPE char7 value 'HSCODE'.
  DATA: w_eccn TYPE s_eccn.
  DATA: t_eccn TYPE STANDARD TABLE OF s_eccn.
  DATA: w_radio TYPE s_eccn.
  DATA: t_radio TYPE STANDARD TABLE OF s_eccn.
  DATA:w_text TYPE /sapsll/text60.
  REFRESH: t_pr,t_hscode,t_eccn,t_radio,lr_datbi,lr_datab, t_cuit,t_t606g,t_tlegsu,t_ctsnum.
  CLEAR: t_pr,t_hscode,t_eccn,w_radio,hscode,eccn,schb,lr_datbi,lr_datab,lv_rptdt,w_ctsnum,w_tlegsu.
  GET TIME STAMP FIELD lv_rptdt.
*BREAK-POINT.
  CALL FUNCTION '/SAPSLL/VALID_RANGES_PREPARE'
    EXPORTING
      iv_rptdt  = lv_rptdt
      iv_option = 'LT'
    IMPORTING
      er_datab  = lr_datab
      er_datbi  = lr_datbi.
  CALL FUNCTION 'CONVERSION_EXIT_SLLPR_INPUT'
    EXPORTING
      input  = prvsy
    IMPORTING
      output = prvsy.
  SELECT  guid_pr
          INTO TABLE t_pr
          FROM /sapsll/pntpr
          WHERE grvsy = 'LSG_ECC'
          AND   prvsy = prvsy
          AND   prtyp = lv_prtyp.
if refno[] is initial.
   IF NOT t_pr[] IS INITIAL.
    SELECT guid_ctsnum
           stcts
           datbi
           datab
           INTO TABLE t_hscode
           FROM    /sapsll/prcts
           FOR ALL ENTRIES IN t_pr
           WHERE guid_pr = t_pr-guid_pr
           AND   stcts  IN ('US_HTS','EARECCN','US_SCHB','NRC_SCHB', 'NRCECCN')
           AND datbi IN lr_datbi[]
           AND datab IN lr_datab[].
  ENDIF.
  IF NOT  t_hscode[] IS INITIAL.
    SELECT  ccngn
            guid_ctsnum
            INTO TABLE t_eccn
            FROM    /sapsll/ctsnum
            FOR ALL ENTRIES IN t_hscode
            WHERE guid_ctsnum  = t_hscode-guid_ctsnum.
  ENDIF.
  LOOP AT t_eccn INTO w_eccn.
    READ TABLE t_hscode INTO w_hscode WITH KEY guid_ctsnum = w_eccn-guid_ctsnum.
    IF sy-subrc = 0.
      IF w_hscode-stcts = 'US_HTS'.
        hscode = w_eccn-ccngn.
      ELSEIF w_hscode-stcts = 'EARECCN'.
        eccn = w_eccn-ccngn.
      ELSEIF  w_hscode-stcts = 'US_SCHB'.
        schb =  w_eccn-ccngn.
      ELSEIF  w_hscode-stcts = 'NRC_SCHB'.
        radio =  w_eccn-ccngn.
      ELSEIF  w_hscode-stcts = 'NRCECCN'.
        radio_eccn =  w_eccn-ccngn.
      ENDIF.
      IF NOT radio IS INITIAL OR
         NOT radio_eccn IS INITIAL .
        SELECT SINGLE text
          INTO w_text
          FROM    /sapsll/ctsnumt
          WHERE guid_ctsnum  = w_hscode-guid_ctsnum
          AND ctstt = 'F'
          AND   langu = 'EN'.
        IF sy-subrc = 0.
          text = w_text.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDLOOP.
Else.
  IF NOT t_pr[] IS INITIAL.
    SELECT guid_ctsnum
           stcts
           datbi
           datab
           INTO TABLE t_hscode
           FROM    /sapsll/prcts
           FOR ALL ENTRIES IN t_pr
           WHERE guid_pr = t_pr-guid_pr
           AND datbi IN lr_datbi[]
           AND datab IN lr_datab[].
  endif.
  read table refno into w_refno index 1.
  if sy-subrc eq 0.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      INPUT         = w_refno-refno
   IMPORTING
     OUTPUT        = lv_refno.
  endif.
select GUID_POBJ
       REFNO
       from /sapsll/corref into TABLE t_corref
       where REFNO = lv_REFNO.
if t_corref is not initial.
select GUID_CUHD
       GUID_PR
       CTYDP
       from /sapsll/cuit into table t_cuit
       for all entries in t_corref
       where GUID_CUHD = t_corref-GUID_POBJ.
   endif.
if t_cuit is not initial .
select LGREG GGLND from  /SAPSLL/T606G
                   into table t_T606G
                  for all entries in t_cuit
                  where  GGLND = t_cuit-CTYDP.
endif.
if t_T606G is not initial.
select LGREG
       CTSEX from /SAPSLL/TLEGSU
                   into TABLE t_TLEGSU
                   FOR ALL ENTRIES IN t_T606G
                   where LGREG = t_T606G-LGREG.
endif.
if t_hscode[] is not INITIAL.
select GUID_CTSNUM
       STCTS
       CCNGN
      from  /SAPSLL/CTSNUM
      into TABLE t_CTSNUM FOR ALL ENTRIES IN t_hscode
      where GUID_CTSNUM = t_hscode-GUID_CTSNUM .
endif.
  REFRESH: t_ztuhcd1.
  CLEAR:   t_ztuhcd1,w_ztuhcd1.
* loop at t_TLEGSU into w_TLEGSU.
READ TABLE t_cuit INTO w_cuit index 1.
  lv_pname = sy-repid.
* To retrive all the hard coded values
  w_ztuhcd1-name  = c_eccn.
*  w_ztuhcd1-field = c_eccn.
  w_ztuhcd1-zkey  = w_cuit-ctydp.
  APPEND w_ztuhcd1 TO t_ztuhcd1.
  CLEAR: w_ztuhcd1,lv_pname.
* To retrive all the hard coded values
  CALL FUNCTION 'Z_UHARD_CODE_VALUE'
       TABLES
            t_ztuhcd1     = t_ztuhcd1
       EXCEPTIONS
            no_data_found = 1
            OTHERS        = 2.
if sy-subrc eq 0.
loop at t_ztuhcd1 into w_ztuhcd1 .
read table t_CTSNUM into w_CTSNUM with key STCTS =  w_ztuhcd1-low.
if sy-subrc eq 0.
    eccn = w_CTSNUM-CCNGN.
  endif.
  endloop.
  endif.
  REFRESH: t_ztuhcd1.
  CLEAR:   t_ztuhcd1,w_ztuhcd1.
*  lv_pname = sy-repid.
* To retrive all the hard coded values
  w_ztuhcd1-name  = c_HSCODE.
*  w_ztuhcd1-field = c_HSCODE.
  w_ztuhcd1-zkey  = w_cuit-ctydp.
  APPEND w_ztuhcd1 TO t_ztuhcd1.
  CLEAR w_ztuhcd1.
* To retrive all the hard coded values
  CALL FUNCTION 'Z_UHARD_CODE_VALUE'
       TABLES
            t_ztuhcd1     = t_ztuhcd1
       EXCEPTIONS
            no_data_found = 1
            OTHERS        = 2.
if sy-subrc eq 0.
loop at t_ztuhcd1 into w_ztuhcd1 .
read table t_CTSNUM into w_CTSNUM with key STCTS =  w_ztuhcd1-low.
if sy-subrc eq 0.
    HSCODE = w_CTSNUM-CCNGN.
  endif.
  endloop.
  endif.
endif.
ENDFUNCTION.