SD提取订单的定价过程的各类折扣的报表样例Word格式.docx
《SD提取订单的定价过程的各类折扣的报表样例Word格式.docx》由会员分享,可在线阅读,更多相关《SD提取订单的定价过程的各类折扣的报表样例Word格式.docx(15页珍藏版)》请在冰豆网上搜索。
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,
ra01_discountTYPEkbetr,
ra01%discount
ra01_dis_amt
TYPEkwert,
ra01discountamount
ra00_discountTYPEkbetr,
ra00%discount
ra00_dis_amt
ra00discountamount
s_kwmengTYPEkwmeng,
salesordertotalquantity
s_kwert
salesordertotalgrossvalue
ENDOFs_all.
BEGINOFs_konv,
ENDOFs_konv.
BEGINOFs_kna1,
ENDOFs_kna1.
BEGINOFs_vbap,
kwmengTYPEkwmeng,
cumulativeorderquantityinsalesunits
abgru
TYPEabgru_va,
reasonforrejectionofquotationsandsalesorders
s_vbeln
TYPEvbeln_va,
ENDOFs_vbap.
TYPE-POOLS:
slis.
ALVDeclarations
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.
wa_allTYPELINEOFt_all,
wa_konvTYPELINEOFt_konv,
wa_kna1TYPELINEOFt_kna1,
wa_vbapTYPELINEOFt_vbap,
wa_totalTYPELINEOFt_all,
wa_total_outTYPELINEOFt_all.
fieldcatalogTYPEslis_t_fieldcat_alvWITHHEADERLINE,
gd_repid
LIKEsy-repid.
SELECTION-SCREENBEGINOFBLOCKb1WITHFRAMETITLEtext-000.
SELECT-OPTIONS:
x_vkorgFORwa_all-vkorg,
x_fkartFORwa_all-fkartMATCHCODEOBJECTh_tvfk,
x_fkdatFORwa_all-fkdat,
x_vbelnFORwa_all-b_vbelnMATCHCODEOBJECTf4_vbrk,
x_kunagFORwa_all-kunagMATCHCODEOBJECTdebi.
SELECTION-SCREENSKIP.
SELECTION-SCREENBEGINOFBLOCKb2WITHFRAMETITLEtext-001.
PARAMETERSx_checkASCHECKBOX.
x_spartFORwa_all-spart,
x_gsberFORwa_all-gsberMATCHCODEOBJECTh_tgsb,
x_matnrFORwa_all-matnr,
material
x_bstnkFORwa_all-bstnk,
x_aubelFORwa_all-aubel.
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
data_processing
performdataprocessing
FORMdata_processing.
PERFORMget_gross_dis_amt.
PERFORMget_total_gross.
PERFORMget_total.
data_processing
data_display
performdatadisplaying
FORMdata_display.
IFx_check='
X'
.
PERFORMbuild_fieldcatalog.
PERFORMdisplay_alv_reportUSINGit_all.
ELSE.
PERFORMdisplay_alv_reportUSINGit_total_out.
ENDIF.
data_display
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~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
vbrk~fkartINx_fkart
vbrk~fkartNOTIN('
ZMF8'
ZPF8'
vbrk~fkdatINx_fkdat
vbrk~vbelnINx_vbeln
vbrk~kunagINx_kunag
vbrp~spartINx_spart
vbrp~matnrINx_matnr
vbrp~gsberINx_gsber
vbrp~aubelINx_aubel.
SORTit_allBYb_vbelnkunag.
IFsy-subrc<
>
0.
MESSAGEi001(zjenni_msg).
LOOPATit_allINTOwa_all.
IFwa_all-fkart='
S1'
wa_all-netwr=-1*wa_all-netwr.
MODIFYit_allFROMwa_allTRANSPORTINGnetwr.
ENDLOOP.
CLEARwa_all.
select_from_vbrk_vbrp_vbak
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
kposn=it_all-b_posnr
kschlIN('
PR00'
RA00'
RA01'
).
SORTit_konvBYknumvkposn.
select_from_konv
select_from_kna1
selectdatafromtablekna1intoit_all
FORMselect_from_kna1.
SELECTname1
kunnr
FROMkna1
INTOCORRESPONDINGFIELDSOFTABLEit_kna1
WHEREkunnr=it_all-kunag.
SORTit_kna1BYkunnr.
READTABLEit_kna1INTOwa_kna1
WITHKEYkunnr=wa_all-kunagBINARYSEARCH.
wa_all-name1=wa_kna1-name1.
MODIFYit_all
FROMwa_allTRANSPORTINGname1.
select_from_kna1
select_from_vbap
1~selectdatafromtablevbap