群收藏夹 ABAP交流群 15881589

 

 

 

 

 

 

 

 

 

 

LOOP AT CT_ITEMS INTO LW_ITEMS.

    CLEAR: LW_LTAP_CREAT.
    LW_LTAP_CREAT-MATNR = LW_ITEMS-MATNR.
    LW_LTAP_CREAT-CHARG = LW_ITEMS-CHARG.
    LW_LTAP_CREAT-WERKS = LW_ITEMS-WERKS.
    LW_LTAP_CREAT-LGORT = LW_ITEMS-LGORT.
    LW_LTAP_CREAT-ANFME = LW_ITEMS-NSOLM - LW_ITEMS-NISTM. "差异数量 = 计划拣配数量 - 实际拣配数量
   LW_LTAP_CREAT-ALTME = LW_ITEMS-ALTME.

    "库存要返回去
   "源...
    LW_LTAP_CREAT-VLTYP = '999'.
    LW_LTAP_CREAT-VLBER = ''. "空
   LW_LTAP_CREAT-VLPLA = LW_ITEMS-TANUM. "转储单号

   "目的...
    LW_LTAP_CREAT-NLTYP = LW_ITEMS-VLTYP.
    LW_LTAP_CREAT-NLBER = LW_ITEMS-VLBER.
    LW_LTAP_CREAT-NLPLA = LW_ITEMS-VLPLA.

    APPEND LW_LTAP_CREAT TO LT_LTAP_CREAT.

  ENDLOOP.

  LV_LGNUM       = LW_ITEMS-LGNUM.
  LV_BWLVS       = '999'. "固定

 LV_NIDRU       = 'X'.
  LV_NOSPL       = 'X'.
  LV_COMMIT_WORK = 'X'.

  CALL FUNCTION 'L_TO_CREATE_MULTIPLE'

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

12.S4CONDITION TABLE

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

29替代。

 

 

 

Smartforms更改默认编辑器的方法
T-code: I18N
 I18N->I18N Customizing ->MS Word as Editor ->double click
去掉SAP script 和Smart form前的对勾 ->Activate

 

 

 

 

 

 

 

method if_ex_acc_document~change.
    data: wa_extension   type bapiparex,
          ext_value(960) type c,
          wa_accit       type accit,
          wa_acchd       type acchd,
          l_ref          type ref to data.

    field-symbols: <l_struc> type any,
                   <l_field> type any.

    sort c_extension2 by structure.

    loop at c_extension2 into wa_extension.
      at new structure.
        create data l_ref type (wa_extension-structure).
        assign l_ref->* to <l_struc>.
      endat.
      concatenate wa_extension-valuepart1 wa_extension-valuepart2
                  wa_extension-valuepart3 wa_extension-valuepart4
             into ext_value.
      move ext_value to <l_struc>.
      assign component 'POSNR' of structure <l_struc> to <l_field>.
      if <l_field> is assigned.
        read table c_accit with key posnr = <l_field>
            into wa_accit.
        if sy-subrc is initial.
          move-corresponding <l_struc> to wa_accit.
          modify c_accit from wa_accit index sy-tabix.
        endif.
        move-corresponding <l_struc> to c_acchd.
      endif.

    endloop.


  endmethod.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

T-CODE:VK+C 条件主数据检查

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

将前序单据号保存到索引表

 

 

 ***激活指定Sheet
*  CALL METHOD OF application 'WORKSHEETS' = sheet
*    EXPORTING #1 = itab_sheetname-sheetname .
*  CALL METHOD OF sheet 'ACTIVATE'.
*
***清空当前Sheet并设置为文本格式
*  GET PROPERTY OF  application 'ACTIVESHEET' = sheet.
*  CALL METHOD OF sheet 'CELLS' = range.
*  SET PROPERTY OF range 'NumberFormatLocal' = '@'. "设置为文本格式
*  CALL METHOD OF range 'ClearContents'.

**粘贴剪贴板内容
  GET PROPERTY OF  application 'ACTIVESHEET' = sheet.
  CALL METHOD OF sheet 'Cells' = cell
    EXPORTING #1 = 5 #2 = 1 .  "起始插入点
  CALL METHOD OF cell 'SELECT'.
  CALL METHOD OF sheet 'PASTE'.