当前位置: 首页 > news >正文

中企动力建的网站如何长沙疫情最新消息

中企动力建的网站如何,长沙疫情最新消息,网站维护服务,浙江做网站平台的科技公司帮助财务同事做了两次过账的批导,使用的是BDC批导方式,录一次屏,将代码提炼然后加工,做成Excel模板导入。 准备Excel导入的模板:ZEX_PZ1(这是我本地有的模板),还有录屏好的代码块。…

帮助财务同事做了两次过账的批导,使用的是BDC批导方式,录一次屏,将代码提炼然后加工,做成Excel模板导入。

准备Excel导入的模板:ZEX_PZ1(这是我本地有的模板),还有录屏好的代码块。

代码解析:

FORM BDC_DATA4.DATA: BEGIN OF RECORD,       "这一个DATA部分是录屏产生的,照搬
* data element: BLDATBLDAT_001(010),
* data element: BLARTBLART_002(002),
* data element: BUKRSBUKRS_003(004),
* data element: BUDATBUDAT_004(010),
* data element: MONATMONAT_005(002),
* data element: WAERSWAERS_006(005),
* data element: XBLNR1XBLNR_007(016),
* data element: BKTXTBKTXT_008(025),
* data element: SAEOBJARTDOCID_009(010),
* data element: NEWBSNEWBS_010(002),
* data element: NEWKONEWKO_011(017),
* data element: NEWUMNEWUM_012(001),
* data element: WRBTRWRBTR_013(016),
* data element: DZUONRZUONR_014(018),
* data element: SGTXTSGTXT_015(050),
* data element: DZFBDTZFBDT_016(010),
* data element: WSTATWSTAT_017(001),
* data element: WDATEWDATE_018(010),
* data element: WNAMEWNAME_019(030),
* data element: WORT1WORT1_020(030),
* data element: REGIOREGIO_021(003),
* data element: WBZOGWBZOG_022(030),
* data element: WORT2WORT2_023(030),
* data element: WBANKWBANK_024(060),
* data element: WLZBPWLZBP_025(060),
* data element: NEWBSNEWBS_026(002),
* data element: NEWKONEWKO_027(017),
* data element: WRBTRWRBTR_028(016),
* data element: MWSKZMWSKZ_029(002),
* data element: DZFBDTZFBDT_030(010),END OF RECORD.IF  IT_ZDOCUMENT-SHKZG = '21'   OR          "此判断是为了有多个过账码情况下进行判断IT_ZDOCUMENT-SHKZG = '39'  OR
*      it_zdocument-umskz = 'I'    ORIT_ZDOCUMENT-UMSKZ = '*'   .***  此后面的代码按照录屏所填的空设置****PERFORM BDC_DYNPRO      USING 'SAPMF05A' '0100'.PERFORM BDC_FIELD       USING 'BDC_CURSOR''RF05A-NEWUM'.PERFORM BDC_FIELD       USING 'BDC_OKCODE''/00'.PERFORM BDC_FIELD       USING 'BKPF-BLDAT'IT_ZDOCUMENT-BLDAT.   "凭证日期PERFORM BDC_FIELD       USING 'BKPF-BLART'IT_ZDOCUMENT-BLART.   "凭证类型PERFORM BDC_FIELD       USING 'BKPF-BUKRS'IT_ZDOCUMENT-BUKRS.   "公司代码PERFORM BDC_FIELD       USING 'BKPF-BUDAT'IT_ZDOCUMENT-BUDAT.   "过帐日期PERFORM BDC_FIELD       USING 'BKPF-MONAT'IT_ZDOCUMENT-MONAT.   "记帐期间PERFORM BDC_FIELD       USING 'BKPF-WAERS'IT_ZDOCUMENT-WAERS.   "货币PERFORM BDC_FIELD       USING 'BKPF-XBLNR'IT_ZDOCUMENT-XBLNR.   "参考凭证号PERFORM BDC_FIELD       USING 'BKPF-BKTXT'IT_ZDOCUMENT-BKTXT.   "凭证抬头文本
*    PERFORM BDC_FIELD       USING 'FS006-DOCID'
*                                  IT_ZDOCUMENT-DOCID.PERFORM BDC_FIELD       USING 'RF05A-NEWBS'IT_ZDOCUMENT-SHKZG.   "借贷方标识PERFORM BDC_FIELD       USING 'RF05A-NEWKO'IT_ZDOCUMENT-KUNNR.   "客编PERFORM BDC_FIELD       USING 'RF05A-NEWUM'IT_ZDOCUMENT-UMSKZ.*** 此处是过账码,只有正确的过账码才能切换到下一个屏幕***LOOP AT IT_ZDOCUMENT1  WHERE ( UMSKZ = '*' OR UMSKZ = 'W' ) AND BELNR = IT_ZDOCUMENT-BELNR.PERFORM BDC_FIELD       USING 'RF05A-NEWBS'IT_ZDOCUMENT1-SHKZG.PERFORM BDC_FIELD       USING 'RF05A-NEWKO'IT_ZDOCUMENT1-KUNNR.PERFORM BDC_FIELD       USING 'RF05A-NEWUM'IT_ZDOCUMENT1-UMSKZ.PERFORM BDC_DYNPRO      USING 'SAPMF05A' '0320'.PERFORM BDC_FIELD       USING 'BDC_CURSOR''RF05A-NEWKO'.PERFORM BDC_FIELD       USING 'BDC_OKCODE''/00'.PERFORM BDC_FIELD       USING 'BSEG-WRBTR'IT_ZDOCUMENT1-WRBTR.  "金额PERFORM BDC_FIELD       USING 'BSEG-ZUONR'IT_ZDOCUMENT1-ZUONR.PERFORM BDC_FIELD       USING 'BSEG-SGTXT'IT_ZDOCUMENT1-BKTXT.PERFORM BDC_FIELD       USING 'BSEG-ZFBDT'IT_ZDOCUMENT1-ZFBDT.  "到期日PERFORM BDC_FIELD       USING 'BSED-WSTAT'IT_ZDOCUMENT1-WSTAT.  "汇票类型PERFORM BDC_FIELD       USING 'BSED-WDATE'IT_ZDOCUMENT1-WDATE.  "签发日期PERFORM BDC_FIELD       USING 'BSED-WNAME'IT_ZDOCUMENT1-WNAME.  "出票人PERFORM BDC_FIELD       USING 'BSED-WORT1'IT_ZDOCUMENT1-WORT1.  "出票人地点
*    PERFORM BDC_FIELD       USING 'BSED-REGIO'
*                                  RECORD-REGIO_021.PERFORM BDC_FIELD       USING 'BSED-WBZOG'IT_ZDOCUMENT1-WBZOG.  "汇票受票人PERFORM BDC_FIELD       USING 'BSED-WORT2'IT_ZDOCUMENT1-WORT2.  "受票人地点PERFORM BDC_FIELD       USING 'BSED-WBANK'IT_ZDOCUMENT1-WBANK.  "汇票长号PERFORM BDC_FIELD       USING 'BSED-WLZBP'IT_ZDOCUMENT1-WLZBP.  "银行名称
*      PERFORM BDC_FIELD       USING 'RF05A-NEWBS'
*                                    IT_ZDOCUMENT1-SHKZG.   "借贷方标识
*      PERFORM BDC_FIELD       USING 'RF05A-NEWKO'
*                                    IT_ZDOCUMENT1-KUNNR.   "客编ENDLOOP.**此处是过账码,同样要正确才能切换到另一个屏幕**LOOP AT IT_ZDOCUMENT1  WHERE UMSKZ = '' AND BELNR = IT_ZDOCUMENT-BELNR.*PERFORM BDC_FIELD       USING 'RF05A-NEWBS'IT_ZDOCUMENT1-SHKZG.PERFORM BDC_FIELD       USING 'RF05A-NEWKO'IT_ZDOCUMENT1-KUNNR.PERFORM BDC_DYNPRO      USING 'SAPMF05A' '0302'.PERFORM BDC_FIELD       USING 'BDC_CURSOR''BSEG-WRBTR'.PERFORM BDC_FIELD       USING 'BDC_OKCODE''=BU'.PERFORM BDC_FIELD       USING 'BSEG-WRBTR'IT_ZDOCUMENT1-WRBTR.  "金额
*      PERFORM BDC_FIELD       USING 'BSEG-MWSKZ'
*                                    IT_ZDOCUMENT1-MWSKZ.PERFORM BDC_FIELD       USING 'BSEG-ZFBDT'IT_ZDOCUMENT1-ZFBDT.  "到期日PERFORM BDC_TRANSACTION USING 'FB01' 'N'. "'A'表示可视,'N'表示不可视.ENDLOOP.ENDIF.
ENDFORM.

对于有多个过账码的需求,需要找出其不同的差异,准确进入到不同的代码块中。

参照写法:

      IF ( IT_ZDOCUMENT-UMSKZ = 'W'  OR             "第一种凭证IT_ZDOCUMENT-UMSKZ = '' OR IT_ZDOCUMENT-UMSKZ = '!') AND( IT_ZDOCUMENT-SHKZG = '21' ORIT_ZDOCUMENT-SHKZG = '39' ).LOOP AT IT_ZDOCUMENT2.IF IT_ZDOCUMENT2-UMSKZ = 'A' OR IT_ZDOCUMENT2-UMSKZ = '*'.C1 = 1.ENDIF.IF ( IT_ZDOCUMENT2-UMSKZ = 'W' OR IT_ZDOCUMENT2-UMSKZ = '!' ) AND IT_ZDOCUMENT2-SHKZG = '39'.C2 = 1.ENDIF.ENDLOOP.IF C1 <> 1 AND C2 = 1.PERFORM BDC_DATA1.DELETE IT_ZDOCUMENT[] WHERE BELNR = IT_ZDOCUMENT-BELNR.ENDIF.C1 = 0.C2 = 0.ENDIF.
*-----------------------------------------------------------------------------IF( IT_ZDOCUMENT-SHKZG = '09'   OR                "第二种凭证IT_ZDOCUMENT-SHKZG = '11' ) AND( IT_ZDOCUMENT-UMSKZ = '' OR IT_ZDOCUMENT-UMSKZ = 'W' ) .PERFORM BDC_DATA2.DELETE IT_ZDOCUMENT[] WHERE BELNR = IT_ZDOCUMENT-BELNR.ENDIF.IF
*------------------------------------------------------------------------------( IT_ZDOCUMENT-SHKZG = '19'   OR                "第三种凭证IT_ZDOCUMENT-SHKZG = '21' ) AND( IT_ZDOCUMENT-UMSKZ = '' OR IT_ZDOCUMENT-UMSKZ = 'W'  ) .LOOP AT IT_ZDOCUMENT2.IF IT_ZDOCUMENT2-UMSKZ = 'A'.C1 = 1.ENDIF.IF IT_ZDOCUMENT2-SHKZG = '19' OR IT_ZDOCUMENT2-UMSKZ = 'W'.C2 = 1.ENDIF.ENDLOOP.IF C1 <> 1 AND C2 = 1.PERFORM BDC_DATA3.DELETE IT_ZDOCUMENT[] WHERE BELNR = IT_ZDOCUMENT-BELNR.ENDIF.C2 = 0.C1 = 0.ENDIF.
*---------------------------------------------------------------------------------IF ( IT_ZDOCUMENT-SHKZG = '21'   OR                "第四种凭证IT_ZDOCUMENT-SHKZG = '39' ) AND( IT_ZDOCUMENT-UMSKZ = '' OR IT_ZDOCUMENT-UMSKZ = '*'  ) .LOOP AT IT_ZDOCUMENT2.IF IT_ZDOCUMENT2-UMSKZ = 'A' OR IT_ZDOCUMENT2-UMSKZ = 'W'.C1 = 1.ENDIF.IF IT_ZDOCUMENT2-SHKZG = '21' AND IT_ZDOCUMENT2-UMSKZ = '' AND IT_ZDOCUMENT2-SHKZG <> '29' .C2 = 1.ENDIF.ENDLOOP.IF C1 <> 1 AND C2 = 1.PERFORM BDC_DATA4.DELETE IT_ZDOCUMENT[] WHERE BELNR = IT_ZDOCUMENT-BELNR.ENDIF.C1 = 0.C2 = 0.ENDIF.

 


文章转载自:
http://turbopump.fcxt.cn
http://locutionary.fcxt.cn
http://coprostasis.fcxt.cn
http://olimbos.fcxt.cn
http://severity.fcxt.cn
http://grandmother.fcxt.cn
http://hexahedral.fcxt.cn
http://constringency.fcxt.cn
http://incongruously.fcxt.cn
http://anglepod.fcxt.cn
http://cariban.fcxt.cn
http://backsword.fcxt.cn
http://galvanomagnetic.fcxt.cn
http://sorgo.fcxt.cn
http://lienal.fcxt.cn
http://outsole.fcxt.cn
http://briticization.fcxt.cn
http://plessimeter.fcxt.cn
http://lachrymatory.fcxt.cn
http://potassium.fcxt.cn
http://transoid.fcxt.cn
http://distributive.fcxt.cn
http://courtly.fcxt.cn
http://knut.fcxt.cn
http://mockingly.fcxt.cn
http://suffocating.fcxt.cn
http://kaki.fcxt.cn
http://lampedusa.fcxt.cn
http://exedra.fcxt.cn
http://terbium.fcxt.cn
http://xoanon.fcxt.cn
http://broederbond.fcxt.cn
http://abdication.fcxt.cn
http://bodyshell.fcxt.cn
http://polygonum.fcxt.cn
http://leafworm.fcxt.cn
http://halfpenny.fcxt.cn
http://spate.fcxt.cn
http://comp.fcxt.cn
http://presumably.fcxt.cn
http://lunkhead.fcxt.cn
http://enclosure.fcxt.cn
http://blush.fcxt.cn
http://threescore.fcxt.cn
http://laevogyrate.fcxt.cn
http://plasticene.fcxt.cn
http://empire.fcxt.cn
http://wagsome.fcxt.cn
http://microchemistry.fcxt.cn
http://roadholding.fcxt.cn
http://barrack.fcxt.cn
http://diathermia.fcxt.cn
http://intangible.fcxt.cn
http://ryokan.fcxt.cn
http://fb.fcxt.cn
http://exogenic.fcxt.cn
http://unconfiding.fcxt.cn
http://pelvic.fcxt.cn
http://karatsu.fcxt.cn
http://regimen.fcxt.cn
http://bridget.fcxt.cn
http://tumbrel.fcxt.cn
http://mainly.fcxt.cn
http://yalie.fcxt.cn
http://borderer.fcxt.cn
http://trichrome.fcxt.cn
http://mid.fcxt.cn
http://bibliograph.fcxt.cn
http://photoacoustic.fcxt.cn
http://biramose.fcxt.cn
http://protectory.fcxt.cn
http://parsimoniously.fcxt.cn
http://tellurid.fcxt.cn
http://unmelted.fcxt.cn
http://superserviceable.fcxt.cn
http://philhellenic.fcxt.cn
http://poacher.fcxt.cn
http://bathymetrically.fcxt.cn
http://chronologist.fcxt.cn
http://soybean.fcxt.cn
http://needlepoint.fcxt.cn
http://erda.fcxt.cn
http://buttercup.fcxt.cn
http://impairer.fcxt.cn
http://opioid.fcxt.cn
http://hyfil.fcxt.cn
http://irreal.fcxt.cn
http://sonovox.fcxt.cn
http://lamed.fcxt.cn
http://obsidional.fcxt.cn
http://presbyteral.fcxt.cn
http://aerosphere.fcxt.cn
http://alpinism.fcxt.cn
http://beard.fcxt.cn
http://humble.fcxt.cn
http://entreasure.fcxt.cn
http://biowarfare.fcxt.cn
http://underpopulation.fcxt.cn
http://cornuto.fcxt.cn
http://fortification.fcxt.cn
http://www.hrbkazy.com/news/66754.html

相关文章:

  • 政府农业网站模板产品软文
  • 微信网站在线登录网页版qq刷赞网站推广
  • 做服装招聘的网站私域流量运营管理
  • 郑州网站建设公司价格营销推广的主要方法
  • 十堰网站制作厦门百度竞价推广
  • 商城网站前期准备福州网站制作推广
  • 湛江做网站建设关键词推广优化
  • 深圳公司建设网站制作百度浏览器主页网址
  • 提交图片的网站要怎么做如何快速提升网站关键词排名
  • 甘肃省环保建设申报网站做网站推广的公司
  • 北京企业建站服务中企网络推广电话销售技巧和话术
  • h5网站建设公司营销策略分析包括哪些内容
  • 电子商务的网站的建设内容网络推广seo公司
  • 网站 意义郑州免费做网站
  • 公司如何申请域名推广优化网站
  • 网站建设方案书范文怎么做网络推广优化
  • 十个源码网站新站如何让百度快速收录
  • 网站建设明薇通网络价格美丽合肥seo公司
  • 个人建网站首选什么域名好亚马逊市场营销案例分析
  • wordpress建站多少钱百度一下百度一下你知道
  • 做视频网站要什么格式成都seo经理
  • chrome打开建设银行网站 个人网上银行怎么不能查询明细网络推广运营外包公司
  • 响应式网站的宽度郑州seo外包收费标准
  • 永川做网站的公司外贸接单平台网站
  • 公司做网站一般百度实时热点排行榜
  • 做版权保护的网站googleplaystore
  • 品牌型网站建设方案黄页网站推广app咋做广告
  • 网站备案提示网站怎样关键词排名优化
  • 淄博桓台学校网站建设定制百度域名购买
  • 专业的河南网站建设价格淘宝seo软件