SF_ZRVV05IVB_重建SD单据的索引

***********************************************************************
*程序名称：ZRVV05IVB *
*程序目的：重建销售凭证初始索引 *
* SAP系统中经常发生索引表损坏,sap的有些标准tcode会生成错误结果. *
*这都是因为该报表使用sd的索引表,解决此种错误的方法更新相关索引就可解决.*
*使用变式： *
*需求文档： *
*开发人： SUNFENG 根据标准程序编写 *
*开始时间：2007/08/09 完成时间： 传输请求号： *
*程序修改时间： 修改人：2007/08/09 *
*修改说明 *
**********************************************************************

REPORT ZRVV05IVB .

TABLES: TVIER, VBAK, LIKP, VBRK.

selection-screen comment /2(83) text11.
SELECTION-SCREEN BEGIN OF BLOCK ORDER WITH FRAME TITLE TEXT-A01.
SELECT-OPTIONS I_A FOR VBAK-VBELN.
PARAMETERS: VAKGU AS CHECKBOX.
PARAMETERS: VAKPA AS CHECKBOX.
PARAMETERS: VAPMA AS CHECKBOX.
PARAMETERS: VEPVG AS CHECKBOX.
PARAMETERS: VKDFS AS CHECKBOX.
PARAMETERS: VLPKM AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK ORDER.



INITIALIZATION.

TEXT11 = '本程序只限SD顾问在通过测试判定sap的标准tcode生成了错误结果, 需要重建索引表的时候才执行!'.


SELECTION-SCREEN BEGIN OF BLOCK DELV WITH FRAME TITLE TEXT-L01.
SELECT-OPTIONS I_L FOR LIKP-VBELN.
PARAMETERS: VLKPA AS CHECKBOX.
PARAMETERS: VLPMA AS CHECKBOX.
PARAMETERS: VKDFS_L AS CHECKBOX.
PARAMETERS: VTRDI AS CHECKBOX.
PARAMETERS: VRSLI AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK DELV.

SELECTION-SCREEN BEGIN OF BLOCK BILL WITH FRAME TITLE TEXT-F01.
SELECT-OPTIONS I_F FOR VBRK-VBELN.
PARAMETERS: VRKPA AS CHECKBOX.
PARAMETERS: VRPMA AS CHECKBOX.
PARAMETERS: VKDFS_F AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK BILL.

PARAMETERS: ANZAHL LIKE SY-TABIX DEFAULT 100.

IF ANZAHL < 100. ANZAHL = 100. ENDIF.

CALL FUNCTION 'RV_INDEX_REORG'
EXPORTING
ANZAHL_BIS_COMMIT = ANZAHL
VAKPA_CORRECT = VAKPA
VAPMA_CORRECT = VAPMA
VEPVG_CORRECT = VEPVG
VKDFS_CORRECT = VKDFS
VLKPA_CORRECT = VLKPA
VLPMA_CORRECT = VLPMA
VRKPA_CORRECT = VRKPA
VRPMA_CORRECT = VRPMA
VTRDI_CORRECT = VTRDI
VLPKM_CORRECT = VLPKM
VAKGU_CORRECT = VAKGU
VRSLI_CORRECT = VRSLI
VKDFS_CORRECT_LIKP = VKDFS_L
VKDFS_CORRECT_VBRK = VKDFS_F
TABLES
I_A = I_A
I_L = I_L
I_F = I_F.

COMMIT WORK.