ReportZTEST11.docx

资源描述

ReportZTEST11.docx

《ReportZTEST11.docx》由会员分享，可在线阅读，更多相关《ReportZTEST11.docx（34页珍藏版）》请在冰豆网上搜索。

ReportZTEST11.docx

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:

TYPEANY.

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.

CLEAR:

L_N_ROW.

ENDFORM."INITIAL_CELLS

*&---------------------------------------------------------------------*

*&FormFILL_CELL

*&---------------------------------------------------------------------*

*text

*----------------------------------------------------------------------*

*<--P_WA_CELLStext

*----------------------------------------------------------------------*

FORMFILL_CELLCHANGINGP_CELLSLIKEWA_CELLS

P_FLAGTYPEC.

FIELD-SYMBOLS:

TYPEANY.

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.

=WA_VAL-VAL.

PERFORMFILL_CELL

CHANGING

P_CELLS

P_FLAG.

IFP_FLAGEQ'X'.

RETURN.

ELSE.

CLEAR:

ENDIF.

ENDLOOP.

ENDIF.

ENDFORM."FILL_CELL

*&---------------------------------------------------------------------*

*&FormCHECK_SUCCESS

*&---------------------------------------------------------------------*

*text

*----------------------------------------------------------------------*

*-->P_P_CELLStext

*<--P_L_FLAGtext

*----------------------------------------------------------------------*

FORMCHECK_SUCCESSUSINGP_CELLSLIKEWA_CELLS

CHANGINGP_FLAG.

FIELD-SYMBOLS:

TYPEANY.

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.

IFEQ0.

CLEAR:

P_FLAG.

ENDIF.

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:

TYPEANY.

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.

IFEQ0.

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.

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:

TYPEANY.

DATA:

L_FIELDTYPEfieldname.

L_N_COL=P_COL.

L_N_ROW=P_ROW.

CONCATENATE'C'L_N_COL'R''1'INTOL_FIELD.