SD提取订单的定价过程的各类折扣的报表样例.docx

SD提取订单的定价过程的各类折扣的报表样例.docx

《SD提取订单的定价过程的各类折扣的报表样例.docx》由会员分享，可在线阅读，更多相关《SD提取订单的定价过程的各类折扣的报表样例.docx（15页珍藏版）》请在冰豆网上搜索。

SD提取订单的定价过程的各类折扣的报表样例

SD--提取订单的定价过程的各类折扣的报表样例 

REPORTz_sales_discount. 

TYPES:

BEGINOFs_all, 

 vkorgTYPEvkorg,       "salesorganization 

 fkartTYPEfkart,       "billingtype 

 fkdatTYPEfkdat,       "billingdate 

b_vbelnTYPEvbeln_vf,      "billingdocument 

 kunagTYPEkunag,       "sold-toparty 

 spartTYPEspart,       "division 

 gsberTYPEgsber,       "businessarea 

 bstnkTYPEbstnk,       "pomunber 

 aubelTYPEvbeln_va,      "salesdocument 

 matnrTYPEmatnr,       "materialnumber 

 kwertTYPEkwert,       "grossvalue 

 kbetrTYPEkbetr,       "rate（conditionamountorpercentage） 

 knumvTYPEknumv,       "numberofdocumentcondition 

 kposnTYPEkposn,       "conditionitemnumber 

 kschlTYPEkscha,       "conditiontype 

b_posnrTYPEposnr_vf,      "billingitem 

 waerkTYPEwaerk,       "sddocumentcurrency 

 kurrfTYPEkurrf,       "exchangerate_accntg 

 name1TYPEname1_gp,      "name1 

 kunnrTYPEname1,       "customername1 

 arktxTYPEarktx,       "shorttextforsalesorderitem 

 fkimgTYPEfkimg,       "actualbilledquantity 

 vrkmeTYPEvrkme,       "salesunit 

 netwrTYPEnetwr_fp,      "netvalueofthebillingitemindocumentcurrency 

s_vbelnTYPEvbeln_va,      "salesdocument 

 ra01_discountTYPEkbetr,   "ra01%discount 

 ra01_dis_amt TYPEkwert,   "ra01discountamount 

 ra00_discountTYPEkbetr,   "ra00%discount 

 ra00_dis_amt TYPEkwert,   "ra00discountamount 

s_kwmengTYPEkwmeng,      "salesordertotalquantity 

s_kwert TYPEkwert,       "salesordertotalgrossvalue 

 ENDOFs_all. 

TYPES:

BEGINOFs_konv, 

 kwertTYPEkwert,       "grossvalue 

 kbetrTYPEkbetr,       "rate（conditionamountorpercentage） 

 knumvTYPEknumv,       "numberofdocumentcondition 

 kposnTYPEkposn,       "conditionitemnumber 

 kschlTYPEkscha,       "conditiontype 

 ENDOFs_konv. 

TYPES:

BEGINOFs_kna1, 

 name1TYPEname1_gp,      "name1 

 kunnrTYPEname1,       "customername1 

 kunagTYPEkunag,       "sold-toparty 

 ENDOFs_kna1. 

TYPES:

BEGINOFs_vbap, 

 kwmengTYPEkwmeng,      "cumulativeorderquantityinsalesunits 

 abgru TYPEabgru_va,     "reasonforrejectionofquotationsandsalesorders 

s_vbeln TYPEvbeln_va,     "salesdocument 

 ENDOFs_vbap. 

TYPE-POOLS:

slis.           "ALVDeclarations 

TYPES:

t_allTYPESTANDARDTABLEOFs_all, 

    t_konvTYPESTANDARDTABLEOFs_konv, 

    t_kna1TYPESTANDARDTABLEOFs_kna1, 

    t_vbapTYPESTANDARDTABLEOFs_vbap. 

DATA:

it_allTYPEt_all, 

   it_konvTYPEt_konv, 

   it_kna1TYPEt_kna1, 

   it_vbapTYPEt_vbap, 

   it_totalTYPEt_all, 

   it_total_outTYPEt_all. 

DATA:

wa_allTYPELINEOFt_all, 

   wa_konvTYPELINEOFt_konv, 

   wa_kna1TYPELINEOFt_kna1, 

   wa_vbapTYPELINEOFt_vbap, 

   wa_totalTYPELINEOFt_all, 

   wa_total_outTYPELINEOFt_all. 

DATA:

fieldcatalogTYPEslis_t_fieldcat_alvWITHHEADERLINE, 

   gd_repid   LIKEsy-repid. 

SELECTION-SCREENBEGINOFBLOCKb1WITHFRAMETITLEtext-000. 

SELECT-OPTIONS:

x_vkorgFORwa_all-vkorg,                "salesorganization 

        x_fkartFORwa_all-fkartMATCHCODEOBJECTh_tvfk,    "billingtype 

        x_fkdatFORwa_all-fkdat,                "billingdate 

        x_vbelnFORwa_all-b_vbelnMATCHCODEOBJECTf4_vbrk,   "billingdocument 

        x_kunagFORwa_all-kunagMATCHCODEOBJECTdebi.     "sold-toparty 

SELECTION-SCREENSKIP. 

SELECTION-SCREENBEGINOFBLOCKb2WITHFRAMETITLEtext-001. 

PARAMETERSx_checkASCHECKBOX. 

SELECT-OPTIONS:

x_spartFORwa_all-spart,                "division 

        x_gsberFORwa_all-gsberMATCHCODEOBJECTh_tgsb,    "businessarea 

        x_matnrFORwa_all-matnr,                "material 

        x_bstnkFORwa_all-bstnk,                "pomunber 

        x_aubelFORwa_all-aubel.                "salesdocument 

SELECTION-SCREENENDOFBLOCKb2. 

SELECTION-SCREENENDOFBLOCKb1. 

START-OF-SELECTION. 

 PERFORMdata_select. 

 PERFORMdata_processing. 

END-OF-SELECTION. 

 PERFORMdata_display. 

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

*&   Form data_select 

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

*    performdataselecting 

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

FORMdata_select. 

 PERFORMselect_from_vbrk_vbrp_vbak. 

 PERFORMselect_from_konv. 

 PERFORMselect_from_kna1. 

 PERFORMselect_from_vbap. 

ENDFORM.          "data_select 

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

*&   Form data_processing 

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

*    performdataprocessing 

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

FORMdata_processing. 

 PERFORMget_gross_dis_amt. 

 PERFORMget_total_gross. 

 PERFORMget_total. 

ENDFORM.          "data_processing 

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

*&   Form data_display 

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

*    performdatadisplaying 

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

FORMdata_display. 

 IFx_check='X'. 

  PERFORMbuild_fieldcatalog. 

  PERFORMdisplay_alv_reportUSINGit_all. 

 ELSE. 

  PERFORMbuild_fieldcatalog. 

  PERFORMdisplay_alv_reportUSINGit_total_out. 

 ENDIF. 

ENDFORM.          "data_display 

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

*&   Form select_from_vbrk_vbrp_vbak 

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

*    1~selectdatafromtablevbrk/vbrp/vbakintoit_all. 

*    2~whenbillingtypeis's1',addnegativetonetvalue 

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

FORMselect_from_vbrk_vbrp_vbak. 

 SELECTvbrk~vkorg 

     vbrk~fkart 

     vbrk~fkdat 

     vbrk~vbelnASb_vbeln 

     vbrk~kunag 

     vbrp~spart 

     vbrp~matnr 

     vbrp~gsber 

     vbrp~aubel 

     vbak~bstnk 

     vbrk~knumv 

     vbrp~posnrASb_posnr 

     vbrk~waerk 

     vbrk~kurrf 

     vbrp~matnr 

     vbrp~arktx 

     vbrp~fkimg 

     vbrp~vrkme 

     vbrp~netwr 

  INTOCORRESPONDINGFIELDSOFTABLEit_all 

  FROMvbrp 

  JOINvbakONvbak~vbeln=vbrp~aubel 

  JOINvbrkONvbrk~vbeln=vbrp~vbeln 

  WHEREvbrk~vkorgINx_vkorg 

  AND  vbrk~vkorgNOTIN（'4802','4803'） "SaleOrganization

   AND  vbrk~fkartINx_fkart 

  AND  vbrk~fkartNOTIN（'ZMF8','ZPF8'） 

  AND  vbrk~fkdatINx_fkdat 

  AND  vbrk~vbelnINx_vbeln 

  AND  vbrk~kunagINx_kunag 

  AND  vbrp~spartINx_spart 

  AND  vbrp~matnrINx_matnr 

  AND  vbrp~gsberINx_gsber 

  AND  vbrp~aubelINx_aubel. 

 SORTit_allBYb_vbelnkunag. 

 IFsy-subrc<>0. 

  MESSAGEi001（zjenni_msg）. 

 ENDIF. 

 LOOPATit_allINTOwa_all. 

  IFwa_all-fkart='S1'. 

   wa_all-netwr=-1*wa_all-netwr. 

   MODIFYit_allFROMwa_allTRANSPORTINGnetwr. 

  ENDIF. 

 ENDLOOP. 

 CLEARwa_all. 

ENDFORM.          "select_from_vbrk_vbrp_vbak 

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

*&   Form select_from_konv 

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

*    selectdatafromtablekonvintoit_konv 

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

FORMselect_from_konv. 

 IFit_all[]ISNOTINITIAL. 

  SELECTkwert 

      kbetr 

      knumv 

      kposn 

      kschl 

   FROMkonv 

   INTOCORRESPONDINGFIELDSOFTABLEit_konv 

   FORALLENTRIESINit_all 

   WHEREknumv=it_all-knumv 

   AND  kposn=it_all-b_posnr 

   AND  kschlIN（'PR00','RA00','RA01'）. 

 ENDIF. 

 SORTit_konvBYknumvkposn. 

 IFsy-subrc<>0. 

  MESSAGEi001（zjenni_msg）. 

 ENDIF. 

ENDFORM.          "select_from_konv 

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

*&   Form select_from_kna1 

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

*    selectdatafromtablekna1intoit_all 

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

FORMselect_from_kna1. 

 IFit_all[]ISNOTINITIAL. 

  SELECTname1 

      kunnr 

   FROMkna1 

   INTOCORRESPONDINGFIELDSOFTABLEit_kna1 

   FORALLENTRIESINit_all 

   WHEREkunnr=it_all-kunag. 

 ENDIF. 

 SORTit_kna1BYkunnr. 

 IFsy-subrc<>0. 

  MESSAGEi001（zjenni_msg）. 

 ENDIF. 

 LOOPATit_allINTOwa_all. 

  READTABLEit_kna1INTOwa_kna1 

  WITHKEYkunnr=wa_all-kunagBINARYSEARCH. 

  wa_all-name1=wa_kna1-name1. 

  MODIFYit_all FROMwa_allTRANSPORTINGname1. 

 ENDLOOP. 

 CLEARwa_all. 

ENDFORM.          "select_from_kna1 

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

*&   Form select_from_vbap 

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

*    1~selectdatafromtablevbap 

*