bdc程序实例.docx
- 文档编号:4696946
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:39
- 大小:33.28KB
bdc程序实例.docx
《bdc程序实例.docx》由会员分享,可在线阅读,更多相关《bdc程序实例.docx(39页珍藏版)》请在冰豆网上搜索。
bdc程序实例
*&---------------------------------------------------------------------*
*& Report ZMM_FPYH_FPCX
*& 程序描述:
国家电网发票优化信息查询 &*
*& 开发人员:
Lei Zhang &*
*& 创建日期:
2011/08/18 &*
*& 程序用途:
&*
*&--------------- 更改记录 ------------------------- &*
*& 日期 更改人. 更改版本 主要更改内容描述 &*
*& &*
*&--------------------------------------------------------------------&*
REPORT zmm_fpyh_fpyz.
TYPE-POOLS:
slis,
cndp,
vrm.
TABLES:
zmm_fpxx,
ekbe,
usr02.
TYPES:
BEGIN OF iy_zmm_fpxx,
cgddh TYPE zmm_fpxx-cgddh, "采购凭证号
*修改后的数据
fpha TYPE zmm_fpxx-fpha, "发票号
fpdma TYPE zmm_fpxx-fpdma, "发票代码
zwsbma TYPE zmm_fpxx-zwsbma, "财务识别码
fprqa TYPE zmm_fpxx-fprqa, "发票日期
gfsha TYPE zmm_fpxx-gfsha, "购方税号
xfsha TYPE zmm_fpxx-xfsha, "销方税号
jea TYPE zmm_fpxx-sea, "金额
sea TYPE zmm_fpxx-sea, "税额
*扫描数据
fph TYPE zmm_fpxx-fph, "发票号
fpdm TYPE zmm_fpxx-fpdm, "发票代码
zwsbm TYPE zmm_fpxx-zwsbm, "财务识别码
fprq TYPE zmm_fpxx-fprq, "发票日期
gfsh TYPE zmm_fpxx-gfsh, "购方税号
xfsh TYPE zmm_fpxx-xfsh, "销方税号
je TYPE zmm_fpxx-je, "金额
se TYPE zmm_fpxx-se, "税额
fpysry TYPE zmm_fpxx-fpysry,
fpysrq TYPE zmm_fpxx-fpysrq, "发票验审日期
fpyszt TYPE zmm_fpxx-fpyszt, "发票验审状态(0:
未验审 1:
已验审 2:
拒绝)
ysztms(6), "发票验审状态描述
fpyzrq TYPE zmm_fpxx-fpyzrq, "发票预制日期
yzpznd TYPE ekbe-gjahr, "会计预制凭证年度
gzpznd TYPE ekbe-gjahr, "会计过账凭证年度
fpyzpzh TYPE zmm_fpxx-fpyzpzh, "发票预制的凭证编号
fpgzpzh TYPE bkpf-belnr, "发票过账的凭证编号
fpgzrq TYPE bkpf-budat, "发票过账日期
fpsbrq TYPE zmm_fpxx-fpsbrq, "发票申报数据上传日期
fpsbje TYPE zmm_fpxx-fpsbje, "发票申报金额
fpsbse TYPE zmm_fpxx-fpsbse, "发票申报税额
* FPCSPC TYPE ZMM_FPXX-FPCSPC, "发票传输批次:
日期+时间
wjlj TYPE zmm_fpxx-wjlj, "文件路径
wjmc TYPE zmm_fpxx-wjmc,
doknr TYPE zmm_fpxx-doknr,
w_fpsbbj TYPE icon-internal, "发票申报金额和发票金额比较
lifnr LIKE lfa1-lifnr, "供应商号
name1 LIKE lfa1-name1, "供应商名称
w_hthsje LIKE zmm_fpxx-se, "采购订单含税总额
w_htje LIKE zmm_fpxx-se, "采购订单不含税总额
w_se LIKE zmm_fpxx-se, "采购订单税额
prart LIKE prps-prart, "项目类型
anlzu LIKE caufvd-anlzu, "系统状态
check TYPE c,
fply TYPE zmm_fpxx-fply, "发票来源(:
扫描 X:
手工)
fplyms(8) TYPE c, "发票来源描述
fpxgzt TYPE zmm_fpxx-fpxgzt, "发票修改状态
fpxgms(6) TYPE c, "发票修改状态描述
color TYPE lvc_t_scol,
END OF iy_zmm_fpxx.
DATA:
BEGIN OF it_pzsc OCCURS 0,
cgddh TYPE zmm_fpxx-cgddh, "采购凭证号
yzpznd TYPE ekbe-gjahr, "会计预制凭证年度
fpyzpzh TYPE zmm_fpxx-fpyzpzh, "发票预制的凭证编号
END OF it_pzsc.
DATA:
wa_zmm_fpxx TYPE iy_zmm_fpxx,
wa_zmm_fpxx1 TYPE iy_zmm_fpxx,
it_zmm_fpxx TYPE STANDARD TABLE OF iy_zmm_fpxx WITH HEADER LINE,
wa_fieldcat TYPE slis_fieldcat_alv,
wa_glay LIKE lvc_s_glay,
w_status TYPE slis_formname VALUE 'FOM_STATUS',
it_fieldcat TYPE slis_t_fieldcat_alv.
DATA:
BEGIN OF it_cgddh OCCURS 0,
cgddh TYPE ekko-ebeln,
END OF it_cgddh.
*--LN-ZQLIU
DATA:
it_sort TYPE slis_t_sortinfo_alv.
DATA:
BEGIN OF it_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
netwr TYPE ekpo-netwr,
brtwr TYPE ekpo-brtwr,
mwskz TYPE ekpo-mwskz,
matnr TYPE ekpo-matnr,
werks TYPE ekpo-werks,
nplnr TYPE ekkn-nplnr,
netpr TYPE ekpo-netpr,
kzwi3 TYPE ekpo-kzwi3,
menge TYPE ekpo-menge,
peinh TYPE ekpo-peinh,
ps_psp_pnr TYPE ekkn-ps_psp_pnr,
END OF it_ekpo.
DATA:
BEGIN OF it_ekko OCCURS 0,
ebeln LIKE ekko-ebeln,
bsart LIKE ekko-bsart,
kalsm LIKE ekko-kalsm,
END OF it_ekko.
DATA:
BEGIN OF it_ekkn OCCURS 0,
ebeln LIKE ekkn-ebeln,
ebelp LIKE ekkn-ebelp,
menge LIKE ekkn-menge,
nplnr TYPE ekkn-nplnr,
ps_psp_pnr TYPE ekkn-ps_psp_pnr,
END OF it_ekkn.
DATA:
BEGIN OF it_prart OCCURS 0,
ebeln LIKE ekko-ebeln,
prart LIKE prps-prart,
anlzu LIKE caufvd-anlzu, "系统状态
END OF it_prart.
DATA:
BEGIN OF it_htje OCCURS 0,
ebeln LIKE ekpo-ebeln,
netwr TYPE ekpo-netwr,
brtwr TYPE ekpo-brtwr,
htse TYPE ekpo-brtwr,
END OF it_htje.
DATA:
BEGIN OF it_ekbe OCCURS 0,
ebeln TYPE ekbe-ebeln,
vgabe TYPE ekbe-vgabe,
ebelp TYPE ekbe-ebelp,
wrbtr TYPE ekbe-wrbtr,
shkzg TYPE ekbe-shkzg,
END OF it_ekbe.
DATA:
wa_ekbe LIKE it_ekbe.
DATA:
BEGIN OF it_ekbe2 OCCURS 0,
ebeln TYPE ekbe-ebeln,
vgabe TYPE ekbe-vgabe,
wrbtr TYPE ekbe-wrbtr,
END OF it_ekbe2.
DATA:
wa_ekbe2_1 LIKE it_ekbe2.
DATA:
wa_ekbe2_2 LIKE it_ekbe2.
DATA:
BEGIN OF it_ebeln OCCURS 0,
ebeln LIKE ekbe-ebeln,
ebelp LIKE ekbe-ebelp,
vgabe LIKE ekbe-vgabe,
gjahr LIKE ekbe-gjahr,
belnr LIKE ekbe-belnr,
buzei LIKE ekbe-buzei,
menge LIKE ekbe-menge,
netpr LIKE ekpo-netpr,
meins LIKE ekpo-meins,
END OF it_ebeln.
DATA:
BEGIN OF it_gys OCCURS 0,
ebeln LIKE ekko-ebeln,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
stceg LIKE lfa1-stceg,
bsart TYPE ekko-bsart,
END OF it_gys.
DATA:
BEGIN OF it_fpxx OCCURS 0,
fpha LIKE zmm_fpxx-fpha,
fpdma LIKE zmm_fpxx-fpdma,
cgddh LIKE zmm_fpxx-cgddh,
jea LIKE zmm_fpxx-jea,
sea LIKE zmm_fpxx-sea,
END OF it_fpxx.
DATA:
w_je LIKE zmm_fpxx-jea. "发票全部金额
*
DATA:
BEGIN OF it_rseg OCCURS 0,
belnr TYPE rseg-belnr,
END OF it_rseg.
DATA:
lt_return LIKE TABLE OF bapiret2,
ls_return LIKE bapiret2.
DATA:
vp_eind TYPE c.
RANGES:
rs_cgddh FOR ekpo-ebeln.
DATA:
BEGIN OF ls_cgddh OCCURS 0,
cgddh LIKE zmm_fpxx-cgddh,
END OF ls_cgddh.
DATA:
it_zmm_sccl TYPE zmm_sccl OCCURS 0 WITH HEADER LINE.
DATA:
it_return TYPE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA:
wa_color TYPE lvc_s_scol.
DATA docking TYPE REF TO cl_gui_docking_container.
DATA:
wa_documentdata LIKE bapi_doc_draw2.
DATA:
v_path TYPE char30 VALUE '/usr/sap/trans/sapdoc/'.
*--END
* 用于刷新ALV列表
DATA:
lw_grid TYPE REF TO cl_gui_alv_grid.
*
DATA:
BEGIN OF it_belnr OCCURS 0,
belnr TYPE rbkp-belnr,
gjahr TYPE rbkp-gjahr,
END OF it_belnr.
DATA:
BEGIN OF it_rbkp OCCURS 0,
belnr TYPE rbkp-belnr,
gjahr TYPE rbkp-gjahr,
stblg TYPE rbkp-stblg,
stjah TYPE rbkp-stjah,
END OF it_rbkp.
DATA:
BEGIN OF it_awkey OCCURS 0,
awkey TYPE bkpf-awkey,
END OF it_awkey.
DATA:
BEGIN OF it_bkpf OCCURS 0,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
budat TYPE bkpf-budat,
stblg TYPE bkpf-stblg,
stjah TYPE bkpf-stjah,
awkey TYPE bkpf-awkey,
END OF it_bkpf.
DATA l_answer TYPE c.
*定义显示图片
DATA:
ok_code TYPE sy-ucomm.
DATA url TYPE cndp_url. " URL-field in screen
DATA picture_control TYPE REF TO cl_gui_picture.
DATA container TYPE REF TO cl_gui_custom_container.
DATA:
dts(50) TYPE c.
DATA:
graphic_url(100) TYPE c.
DATA:
g_result TYPE i.
DATA:
BEGIN OF it_data OCCURS 0,
my_data(500) TYPE x,
END OF it_data.
DATA path_string TYPE string.
*----定义下拉列表
DATA:
name TYPE vrm_id , " list box的名称
list TYPE vrm_values , " list box的值
value LIKE LINE OF list . " list box的结构
*BDC
DATA:
it_bdcdata TYPE bdcdata OCCURS 0 WITH HEADER LINE.
DATA:
it_bdcmsg TYPE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA:
v_mode TYPE c.
v_mode = 'N'.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
p_cgddh FOR zmm_fpxx-cgddh,
p_fpha FOR zmm_fpxx-fpha,
p_fpdma FOR zmm_fpxx-fpdma,
p_fprqa FOR zmm_fpxx-fprqa,
p_xfsha FOR zmm_fpxx-xfsha.
SELECTION-SCREEN END OF BLOCK bl1.
SELECTION-SCREEN BEGIN OF BLOCK bl2 WITH FRAME TITLE text-002.
SELECT-OPTIONS:
p_fpysrq FOR zmm_fpxx-fpysrq,
p_fpysry FOR usr02-bname.
* p_fpyszt FOR zmm_fpxx-fpyszt NO INTERVALS,
* p_fpyzpz FOR zmm_fpxx-fpyzpzh,
* p_fpyzrq FOR zmm_fpxx-fpyzrq,
* p_fpgzpz FOR zmm_fpxx-fpyzpzh,
* p_fpgzrq FOR zmm_fpxx-fpyzrq.
*SELECT-OPTIONS:
s_fpsbrq FOR zmm_fpxx-fpsbrq.
*PARAMETERS:
p_fpsbje(6) TYPE c AS LISTBOX VISIBLE LENGTH 6.
SELECTION-SCREEN END OF BLOCK bl2.
AT SELECTION-SCREEN OUTPUT .
PERFORM add_list.
START-OF-SELECTION.
PERFORM get_data.
IF it_zmm_fpxx[] IS NOT INITIAL.
PERFORM add_fieldcat.
PERFORM frm_sort_event.
PERFORM display_outdata.
ENDIF.
*&---------------------------------------------------------------------*
*& Form ADD_LIST
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM add_list .
REFRESH list .
value-key = '
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- bdc 程序 实例