SAP ABAP 关于SD

SAP ABAP 关于SD"/>

SAP ABAP 关于SD

function：SD_VBAP_READ_WITH_VBELN
功能：根据销售订单读取表vbap中的信息
参数：
  import：I_VBELN                          订单号（必输项）
              I_BYPASSING_BUFFER     是否回避buffer
              I_REFRESH_BUFFER         是否清空buffer
  tables：ET_VBAPVB                        不清楚其意义
                   ET_VBAP                            vbap表

form：EDIT_LINES
功能：把READ_TEXT返回的LINES中的行按照TDFORMAT=“*”重新组织
原因：如果用CREATE_TEXT登录的长文本不存在该问题，如果是在前台业务登录的text，那么存到数据库的时候会在72位的地方换行，在lines这个表中的TDFORMAT设置为空，导致READ_TEXT返回的表中的行数也许不是你需要的行数。
代码如下：

FORM EDIT_LINES TABLES P_IT_LINES STRUCTURE TLINE.DATA:L_IT_LINES TYPE STANDARD TABLE OF TLINE,L_WA_LINES TYPE TLINE,L_WA_LINE1 TYPE TLINE,L_LINE TYPE I.DATA:L_INDEX TYPE I,L_I     TYPE I.READ TABLE P_IT_LINES TRANSPORTING NO FIELDSWITH KEY TDFORMAT = SPACE.CHECK SY-SUBRC = 0.L_LINE = LINES( P_IT_LINES ).CHECK L_LINE > 1.L_IT_LINES[] = P_IT_LINES[].CLEAR: P_IT_LINES[].L_INDEX = 2.DO.CLEAR: L_WA_LINES.READ TABLE L_IT_LINES INTO L_WA_LINES INDEX L_INDEX.IF SY-SUBRC <> 0.L_I = L_INDEX - 1.READ TABLE L_IT_LINES INTO L_WA_LINES INDEX L_I.IF SY-SUBRC = 0 .APPEND L_WA_LINES TO P_IT_LINES.ENDIF.EXIT.ENDIF.IF L_WA_LINES-TDFORMAT = '*'.L_I = L_INDEX - 1.CLEAR L_WA_LINE1.READ TABLE L_IT_LINES INTO L_WA_LINE1 INDEX L_I.APPEND L_WA_LINE1 TO P_IT_LINES.L_INDEX = L_I + 2.ELSE.L_I = L_INDEX - 1.READ TABLE L_IT_LINES INTO L_WA_LINE1 INDEX L_I.CONCATENATE L_WA_LINE1-TDLINE L_WA_LINES-TDLINEINTO L_WA_LINE1-TDLINE.APPEND L_WA_LINE1 TO P_IT_LINES.L_INDEX = L_INDEX + 2.ENDIF.ENDDO.
ENDFORM.                    " S4110_EDIT_LINES