ELSE.
wa_zmm_fpxx-w_fpsbbj = '@5C@'. ENDIF.
IF wa_zmm_fpxx-fpxgzt = 'X'. * FPH
IF wa_zmm_fpxx-fph <> wa_zmm_fpxx-fpha. wa_color-fname = 'FPHA' . wa_color-color-col = '6' . wa_color-color-int = '1' .
APPEND wa_color TO wa_zmm_fpxx-color. ENDIF. * FPDM
IF wa_zmm_fpxx-fpdm <> wa_zmm_fpxx-fpdma. wa_color-fname = 'FPDMA' . wa_color-color-col = '6' . wa_color-color-int = '1' .
APPEND wa_color TO wa_zmm_fpxx-color. ENDIF. * FPRQ
IF wa_zmm_fpxx-fprq <> wa_zmm_fpxx-fprqa. wa_color-fname = 'FPRQA' . wa_color-color-col = '6' . wa_color-color-int = '1' .
APPEND wa_color TO wa_zmm_fpxx-color. ENDIF. * GFSH
IF wa_zmm_fpxx-gfsh <> wa_zmm_fpxx-gfsha. wa_color-fname = 'GFSHA' . wa_color-color-col = '6' . wa_color-color-int = '1' .
APPEND wa_color TO wa_zmm_fpxx-color. ENDIF. * XFSH
IF wa_zmm_fpxx-xfsh <> wa_zmm_fpxx-xfsha. wa_color-fname = 'XFSHA' . wa_color-color-col = '6' . wa_color-color-int = '1' .
APPEND wa_color TO wa_zmm_fpxx-color. ENDIF. * JE
IF wa_zmm_fpxx-je <> wa_zmm_fpxx-jea. wa_color-fname = 'JEA' . wa_color-color-col = '6' . wa_color-color-int = '1' .
APPEND wa_color TO wa_zmm_fpxx-color. ENDIF. * SE
IF wa_zmm_fpxx-se <> wa_zmm_fpxx-sea. wa_color-fname = 'SEA' . wa_color-color-col = '6' . wa_color-color-int = '1' .
APPEND wa_color TO wa_zmm_fpxx-color. ENDIF. ENDIF.
MODIFY it_zmm_fpxx FROM wa_zmm_fpxx. REFRESH: wa_zmm_fpxx-color. ENDLOOP.
SORT it_zmm_fpxx. ENDIF.
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form ADD_FIELDCAT
*&---------------------------------------------------------------------*
* text 用于显示数据库表头信息
*----------------------------------------------------------------------*
* --> p1 text * <-- p2 text
*----------------------------------------------------------------------*
FORM add_fieldcat . DEFINE add_fieldcat.
wa_fieldcat-fieldname = &1. wa_fieldcat-seltext_l = &2. wa_fieldcat-col_pos = &3. wa_fieldcat-hotspot = &4.
append wa_fieldcat to it_fieldcat. clear wa_fieldcat. END-OF-DEFINITION.
add_fieldcat 'CGDDH' '采购凭证号' '1' ''. add_fieldcat 'LIFNR' '供应商号' '2' ''. add_fieldcat 'NAME1' '供应商名称' '3' ''.
add_fieldcat 'W_HTHSJE' '采购合同含税总额' '4' ''.
add_fieldcat 'W_HTJE' '采购合同不含税总额' '5' ''. add_fieldcat 'W_SE' '采购合同税额' '6' ''. add_fieldcat 'YZPZND' '会计预制凭证年度' '7' ''. add_fieldcat 'FPYZPZH' '发票预制的凭证编号' '8' 'X'. add_fieldcat 'GZPZND' '会计过账凭证年度' '9' ''. add_fieldcat 'FPGZPZH' '发票过账的凭证编号' '10' ''. add_fieldcat 'PRART' '项目类型' '11' ''. add_fieldcat 'ANLZU' '系统状态' '12' ''. add_fieldcat 'FPHA' '发票号' '13' ''. add_fieldcat 'FPDMA' '发票代码' '14' ''. add_fieldcat 'FPRQA' '发票日期' '15' ''. add_fieldcat 'GFSHA' '购方税号' '16' ''. add_fieldcat 'XFSHA' '销方税号' '17' ''. add_fieldcat 'JEA' '金额' '18' ''. add_fieldcat 'SEA' '税额' '19' ''.
add_fieldcat 'FPH' '发票号(扫描)' '20' ''. add_fieldcat 'FPDM' '发票代码(扫描)' '21' ''. add_fieldcat 'FPRQ' '发票日期(扫描)' '22' ''. add_fieldcat 'GFSH' '购方税号(扫描)' '23' ''. add_fieldcat 'XFSH' '销方税号(扫描)' '24' ''. add_fieldcat 'JE' '金额(扫描)' '25' ''. add_fieldcat 'SE' '税额(扫描)' '26' ''. add_fieldcat 'FPLYMS' '发票来源' '27' ''. add_fieldcat 'FPXGMS' '发票修改状态' '28' ''. add_fieldcat 'FPYZRQ' '发票预制日期' '29' ''. add_fieldcat 'FPGZRQ' '发票过账日期' '30' ''. add_fieldcat 'FPYSRY' '发票验审人' '31' ''. add_fieldcat 'FPYSRQ' '发票验审日期' '32' ''. add_fieldcat 'YSZTMS' '发票验审状态' '33' ''.
add_fieldcat 'W_FPSBBJ' '比较:发票申报金额和发票金额' '34' ''. add_fieldcat 'FPSBRQ' '发票申报数据上传日期' '35' ''. add_fieldcat 'FPSBJE' '发票申报金额' '36' ''. add_fieldcat 'FPSBSE' '发票申报税额' '37' ''. * ADD_FIELDCAT 'FPCSPC' '发票传输批次' '' ''. * ADD_FIELDCAT 'WJLJ' '图片文件地址' '' ''.
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form DISPLAY_OUTDATA
*&---------------------------------------------------------------------*
* text
*--------------------------------------------------------------------
--*
* --> p1 text * <-- p2 text
*----------------------------------------------------------------------*
FORM display_outdata .
DATA: is_layout TYPE slis_layout_alv. is_layout-colwidth_optimize = 'X'. is_layout-box_fieldname = 'CHECK'. is_layout-coltab_fieldname = 'COLOR'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING
i_callback_program = sy-repid i_callback_pf_status_set = w_status i_callback_user_command = 'USER_COMMAND' is_layout = is_layout it_fieldcat = it_fieldcat it_sort = it_sort i_default = 'X' i_save = 'A' TABLES
t_outtab = it_zmm_fpxx. IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form STANDARD_NGK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
FORM fom_status USING rt_extab TYPE slis_t_extab.
DATA: it_button TYPE char20 OCCURS 0 WITH HEADER LINE. REFRESH: it_button.
