SAP VL10 Enhancement LV50R_VIEWG02 / LV50R_VIEWG03

LV50R_VIEWG02 :

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form POS_ITEM_FILL_USER, End                                                                                                                      A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZIM_LV50R_VIEW02.    "active version
* Add customer fields in VL10 list
  DATA : LS_ADRC TYPE ADRC,
         LV_COUNTRY TYPE STRING.
* get value - Customer PO
*  SELECT SINGLE BSTNK FROM VBAK INTO CS_POSTAB-CUS_PO WHERE VBELN = IS_VEPVG-VBELN.
  IF IT_VBKD-BSTKD IS INITIAL.
    CS_POSTAB-CUS_PO = IS_VBAK-BSTNK.
  ELSE.
    CS_POSTAB-CUS_PO = IT_VBKD-BSTKD.
  ENDIF.

* get value - shiping type
*  SELECT SINGLE VSART FROM VBKD INTO CS_POSTAB-SP_VSART WHERE VBELN =  IS_VEPVG-VBELN.
  CS_POSTAB-SP_VSART = IT_VBKD-VSART.
* get value - ship to address
  SELECT SINGLE * FROM ADRC INTO LS_ADRC WHERE ADDRNUMBER =  IS_VEPVG-ADRNR_WE.
  IF sy-subrc = 0.
    CONCATENATE LS_ADRC-CITY1 ' ' LS_ADRC-CITY2 ' ' LS_ADRC-STREET LS_ADRC-STR_SUPPL1 LS_ADRC-STR_SUPPL2 LS_ADRC-STR_SUPPL3
    ' ' LS_ADRC-BUILDING ' ' LS_ADRC-FLOOR ' ' LS_ADRC-ROOMNUMBER
    INTO CS_POSTAB-SP_ADDRESS.
*  get value - ship to address country
    SELECT SINGLE LANDX50 INTO LV_COUNTRY FROM T005T WHERE LAND1 = LS_ADRC-COUNTRY AND SPRAS = SY-LANGU.
    IF sy-subrc = 0.
      CONCATENATE CS_POSTAB-SP_ADDRESS LV_COUNTRY INTO CS_POSTAB-SP_ADDRESS SEPARATED BY ','.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    " POS_ITEM_FILL_USER

 

LV50R_VIEWG03:

 

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form POSTAB_VEPVG_FILL_USER, End                                                                                                                  A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZIM_LV50R_VIEW03.    "active version
* Add customer fields in VL10 list
  DATA : LS_ADRC TYPE ADRC,
         LV_COUNTRY TYPE STRING.
* get value - Customer PO
  SELECT SINGLE BSTNK FROM VBAK INTO CS_POSTAB-CUS_PO WHERE VBELN = IS_VEPVG-VBELN.
* get value - shiping type
  SELECT SINGLE VSART FROM VBKD INTO CS_POSTAB-SP_VSART WHERE VBELN =  IS_VEPVG-VBELN AND POSNR = '000000'.
* get value - ship to address
  SELECT SINGLE * FROM ADRC INTO LS_ADRC WHERE ADDRNUMBER =  IS_VEPVG-ADRNR_WE.
  IF sy-subrc = 0.
    CONCATENATE LS_ADRC-CITY1 '' LS_ADRC-CITY2 '' LS_ADRC-STREET LS_ADRC-STR_SUPPL1 LS_ADRC-STR_SUPPL2 LS_ADRC-STR_SUPPL3
    '' LS_ADRC-BUILDING '' LS_ADRC-FLOOR '' LS_ADRC-ROOMNUMBER
    INTO CS_POSTAB-SP_ADDRESS.
*  get value - ship to address country
    SELECT SINGLE LANDX50 INTO LV_COUNTRY FROM T005T WHERE LAND1 = LS_ADRC-COUNTRY AND SPRAS = SY-LANGU.
    IF sy-subrc = 0.
      CONCATENATE CS_POSTAB-SP_ADDRESS LV_COUNTRY INTO CS_POSTAB-SP_ADDRESS SEPARATED BY ','.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    " POSTAB_VEPVG_FILL_USER