ReportZTEST11.docx
- 文档编号:29544532
- 上传时间:2023-07-24
- 格式:DOCX
- 页数:34
- 大小:46.13KB
ReportZTEST11.docx
《ReportZTEST11.docx》由会员分享,可在线阅读,更多相关《ReportZTEST11.docx(34页珍藏版)》请在冰豆网上搜索。
ReportZTEST11
*&---------------------------------------------------------------------*
*&ReportZTEST11_RAY*
*&*
*&---------------------------------------------------------------------*
*&author:
woss
*&date:
2012/07/05
*&description:
##########*
*&*
*&---------------------------------------------------------------------*
REPORTZTEST11_RAY.
DATA:
BEGINOFWA_CELLS,
C1R1TYPEI,
C1R2TYPEI,
C1R3TYPEI,
C1R4TYPEI,
C1R5TYPEI,
C1R6TYPEI,
C1R7TYPEI,
C1R8TYPEI,
C1R9TYPEI,
C2R1TYPEI,
C2R2TYPEI,
C2R3TYPEI,
C2R4TYPEI,
C2R5TYPEI,
C2R6TYPEI,
C2R7TYPEI,
C2R8TYPEI,
C2R9TYPEI,
C3R1TYPEI,
C3R2TYPEI,
C3R3TYPEI,
C3R4TYPEI,
C3R5TYPEI,
C3R6TYPEI,
C3R7TYPEI,
C3R8TYPEI,
C3R9TYPEI,
C4R1TYPEI,
C4R2TYPEI,
C4R3TYPEI,
C4R4TYPEI,
C4R5TYPEI,
C4R6TYPEI,
C4R7TYPEI,
C4R8TYPEI,
C4R9TYPEI,
C5R1TYPEI,
C5R2TYPEI,
C5R3TYPEI,
C5R4TYPEI,
C5R5TYPEI,
C5R6TYPEI,
C5R7TYPEI,
C5R8TYPEI,
C5R9TYPEI,
C6R1TYPEI,
C6R2TYPEI,
C6R3TYPEI,
C6R4TYPEI,
C6R5TYPEI,
C6R6TYPEI,
C6R7TYPEI,
C6R8TYPEI,
C6R9TYPEI,
C7R1TYPEI,
C7R2TYPEI,
C7R3TYPEI,
C7R4TYPEI,
C7R5TYPEI,
C7R6TYPEI,
C7R7TYPEI,
C7R8TYPEI,
C7R9TYPEI,
C8R1TYPEI,
C8R2TYPEI,
C8R3TYPEI,
C8R4TYPEI,
C8R5TYPEI,
C8R6TYPEI,
C8R7TYPEI,
C8R8TYPEI,
C8R9TYPEI,
C9R1TYPEI,
C9R2TYPEI,
C9R3TYPEI,
C9R4TYPEI,
C9R5TYPEI,
C9R6TYPEI,
C9R7TYPEI,
C9R8TYPEI,
C9R9TYPEI,
ENDOFWA_CELLS.
DATA:
BEGINOFWA_VAL,
VALTYPEI,
ENDOFWA_VAL.
DATA:
IT_VALLIKETABLEOFWA_VAL.
DATA:
G_FLAGTYPEC.
TYPE-POOLSole2.
DATA:
l_filename1(100)TYPEc.
DATA:
v_excelTYPEole2_object."Excelobject
DATA:
l_booksTYPEole2_object,"listofworkbooks
l_bookTYPEole2_object,"workbook
sheetTYPEole2_object,"Worksheetobject
rangeTYPEole2_object,
cellTYPEole2_object,
rowTYPEole2_object,
columnsTYPEole2_object,
bordersTYPEole2_object.
DATA:
t_booksTYPEole2_object,"listofworkbooks
t_bookTYPEole2_object,"workbook
t_sheetTYPEole2_object,"Worksheetobject
a_rangeTYPEole2_object,
t_rangeTYPEole2_object.
DATA:
v_applicationTYPEole2_object.
DATA:
g_displayTYPEc.
**---------------------------------------------------------------------*
**选择屏幕参数*
**---------------------------------------------------------------------*
SELECTION-SCREENBEGINOFBLOCKBK2WITHFRAMETITLETEXT-002.
PARAMETERS:
P_FILELIKERCGFILETR-FTFRONTOBLIGATORYDEFAULT'C:
\Users\Wosslr\Desktop\最难九宫格.xls'.
SELECTION-SCREENENDOFBLOCKBK2.
**---------------------------------------------------------------------*
**AT-SELECTION-SCREEN
**---------------------------------------------------------------------*
ATSELECTION-SCREENONVALUE-REQUESTFORP_FILE.
CALLFUNCTION'KD_GET_FILENAME_ON_F4'
EXPORTING
STATIC='X'
MASK=',*.XLS,*.xls,*.XLSX,*.xlsx.'
CHANGING
FILE_NAME=P_FILE.
**---------------------------------------------------------------------*
**START-OF-SELECTION
**---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORMINITIAL_CELLS.
PERFORMFILL_CELLCHANGINGWA_CELLSG_FLAG.
IFG_FLAGEQ'X'.
PERFORMDISPLAY.
ENDIF.
*&---------------------------------------------------------------------*
*&FormINITIAL_CELLS
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
*-->p1text
*<--p2text
*----------------------------------------------------------------------*
FORMINITIAL_CELLS.
g_display='X'.
FIELD-SYMBOLS:
DATA:
l_fieldnameTYPEfieldname.
DATA:
L_COLTYPEI,
L_ROWTYPEI,
L_N_COLTYPEN,
L_N_ROWTYPEN.
PERFORMstartexcel_newusingP_FILE'Sheet1'.
DO9TIMES.
L_COL=SY-INDEX.
L_N_COL=L_COL.
DO9TIMES.
L_ROW=SY-INDEX.
L_N_ROW=L_ROW.
CONCATENATE'C'L_N_COL'R'L_N_ROWINTOl_fieldname.
ASSIGNCOMPONENTl_fieldnameOFSTRUCTUREWA_CELLSTO
PERFORMREAD_TMP_PROPERTY_EXCEL
USING
t_sheet
L_ROW
L_COL
ENDDO.
ENDDO.
CLEAR:
L_N_ROW.
ENDFORM."INITIAL_CELLS
*&---------------------------------------------------------------------*
*&FormFILL_CELL
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
*<--P_WA_CELLStext
*----------------------------------------------------------------------*
FORMFILL_CELLCHANGINGP_CELLSLIKEWA_CELLS
P_FLAGTYPEC.
FIELD-SYMBOLS:
DATA:
l_fieldnameTYPEfieldname.
DATA:
TARG_COLTYPEN,
TARG_ROWTYPEN,
LIT_VALLIKETABLEOFWA_VAL.
PERFORMCHECK_SUCCESS
USINGP_CELLS
CHANGINGP_FLAG.
IFP_FLAGEQ'X'.
RETURN.
ENDIF.
PERFORMGET_NEXTTABLESLIT_VAL
USINGP_CELLS
CHANGINGTARG_COLTARG_ROW
.
IFTARG_COLNE'0'ANDTARG_ROWNE'0'.
IFLIT_VAL[]ISINITIAL.
CLEAR:
P_FLAG.
RETURN.
ELSE.
LOOPATLIT_VALINTOWA_VAL.
CONCATENATE'C'TARG_COL'R'TARG_ROWINTOl_fieldname.
ASSIGNCOMPONENTl_fieldnameOFSTRUCTUREP_CELLSTO
PERFORMFILL_CELL
CHANGING
P_CELLS
P_FLAG.
IFP_FLAGEQ'X'.
RETURN.
ELSE.
CLEAR:
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM."FILL_CELL
*&---------------------------------------------------------------------*
*&FormCHECK_SUCCESS
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
*-->P_P_CELLStext
*<--P_L_FLAGtext
*----------------------------------------------------------------------*
FORMCHECK_SUCCESSUSINGP_CELLSLIKEWA_CELLS
CHANGINGP_FLAG.
FIELD-SYMBOLS:
DATA:
l_fieldnameTYPEfieldname.
DATA:
L_COLTYPEI,
L_ROWTYPEI,
L_N_COLTYPEN,
L_N_ROWTYPEN.
P_FLAG='X'.
DO9TIMES.
L_COL=SY-INDEX.
L_N_COL=L_COL.
DO9TIMES.
L_ROW=SY-INDEX.
L_N_ROW=L_ROW.
CONCATENATE'C'L_N_COL'R'L_N_ROWINTOl_fieldname.
ASSIGNCOMPONENTl_fieldnameOFSTRUCTUREP_CELLSTO
IF
CLEAR:
P_FLAG.
ENDIF.
ENDDO.
ENDDO.
ENDFORM."CHECK_SUCCESS
*&---------------------------------------------------------------------*
*&FormGET_NEXT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
*-->P_P_CELLStext
*<--P_TARG_COLtext
*<--P_TARG_ROWtext
*<--P_IT_POSBLtext
*----------------------------------------------------------------------*
FORMGET_NEXTTABLESP_IT_VALLIKEIT_VAL
USINGP_CELLSLIKEWA_CELLS
CHANGINGP_TARG_COLTYPEN
P_TARG_ROWTYPEN
.
FIELD-SYMBOLS:
DATA:
l_fieldnameTYPEfieldname.
DATA:
L_COLTYPEI,
L_ROWTYPEI,
L_N_COLTYPEN,
L_N_ROWTYPEN.
DATA:
LIT_VALLIKETABLEOFWA_VAL,
LIT_VAL_BFLIKETABLEOFWA_VAL.
DATA:
LINES_PTYPEI,
LINES_LTYPEI.
CLEAR:
WA_VAL.
DO9TIMES.
WA_VAL-VAL=SY-INDEX.
APPENDWA_VALTOLIT_VAL_BF.
CLEAR:
WA_VAL.
ENDDO.
P_IT_VAL[]=LIT_VAL_BF[].
DO9TIMES.
L_COL=SY-INDEX.
L_N_COL=L_COL.
DO9TIMES.
L_ROW=SY-INDEX.
L_N_ROW=L_ROW.
CONCATENATE'C'L_N_COL'R'L_N_ROWINTOl_fieldname.
ASSIGNCOMPONENTl_fieldnameOFSTRUCTUREP_CELLSTO
IF
LIT_VAL[]=LIT_VAL_BF[].
PERFORMGET_POSSBLETABLESLIT_VAL
USINGP_CELLSL_COLL_ROW
.
DESCRIBETABLEP_IT_VALLINESLINES_P.
DESCRIBETABLELIT_VALLINESLINES_L.
IFLINES_LLTLINES_P.
P_TARG_COL=L_COL.
P_TARG_ROW=L_ROW.
P_IT_VAL[]=LIT_VAL.
ENDIF.
ENDIF.
ENDDO.
ENDDO.
ENDFORM."GET_NEXT
*&---------------------------------------------------------------------*
*&FormGET_POSSBLE
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
*-->P_P_CELLStext
*-->P_L_COLtext
*-->P_L_ROWtext
*<--P_LIT_VALtext
*----------------------------------------------------------------------*
FORMGET_POSSBLETABLESP_IT_VALLIKEIT_VAL
USINGP_CELLS
P_COL
P_ROW
.
DATA:
L_COLTYPEI,
L_ROWTYPEI,
L_N_COLTYPEN,
L_N_ROWTYPEN.
FIELD-SYMBOLS:
DATA:
L_FIELDTYPEfieldname.
L_N_COL=P_COL.
L_N_ROW=P_ROW.
CONCATENATE'C'L_N_COL'R''1'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''2'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''3'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''4'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''5'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''6'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''7'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''8'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C'L_N_COL'R''9'INTOL_FIELD.
ASSIGNCOMPONENTL_FIELDOFSTRUCTUREP_CELLSTO
DELETEP_IT_VALWHEREVALEQ
CONCATENATE'C''1''R'L_N_ROWINTOL_FIELD.
ASSIGNCOMPONENTL_FIELD
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Report ZTEST11