Pls send me a report of sd using sprat and vbeln

Question

pls

Answer 1

tables: vbak,vbap,vbfa,mast,stpo,mara,makt,kna1.
data: begin of it_temp occurs 0,
         vbeln type vbak-vbeln,      "Sale Order No
         audat type vbak-audat,      "Sale Order Date
         vdatu type vbak-vdatu,      "Requested Delivery Date
         posnr type vbap-posnr,      "Item Number
         matnr type vbap-matnr,      "Material Number
         arktx type vbap-arktx,      "Mat. Desc
         kunnr type vbak-kunnr,      "Customer
         kwmeng type vbap-kwmeng,    "Sale Order Qty
         netwr type vbap-netwr,      "Sale Order Net Price
         werks type vbap-werks,      "Plant
         vgbel type vbap-vgbel,      "Delivery Doc. Num.
         mbdat type vbep-mbdat,      "Assured Delivery Date
         rfmng type vbfa-rfmng,      "Delivery Qty
         erdat type vbfa-erdat,      "Delivery Date
       end of it_temp.
data: begin of it_pending occurs 0,
         vbeln type vbak-vbeln,      "Sale Order No
         audat type vbak-audat,      "Sale Order Date
         vdatu type vbak-vdatu,      "Requested Delivery Date
         posnr type vbap-posnr,      "Item Number
         matnr type vbap-matnr,      "Material Number
         arktx type vbap-arktx,      "Mat. Desc
         kunnr type vbak-kunnr,      "Customer
         kwmeng type vbap-kwmeng,    "Sale Order Qty
         netwr type vbap-netwr,      "Sale Order Net Price
         werks type vbap-werks,      "Plant
         vgbel type vbap-vgbel,      "Delivery Doc. Num.
         mbdat type vbep-mbdat,      "Assured Delivery Date
         rfmng type vbfa-rfmng,      "Delivery Qty
         erdat type vbfa-erdat,      "Delivery Date
       end of it_pending.
internal able to hold executed sale order data.
data: begin of it_exec occurs 0,
         vbeln type vbak-vbeln,
         audat type vbak-audat,
         vdatu type vbak-vdatu,
         posnr type vbap-posnr,
         matnr type vbap-matnr,
         arktx type vbap-arktx,
        idnrk type stpo-idnrk,
         kunnr type vbak-kunnr,
         name1 type kna1-name1,
         kwmeng type vbap-kwmeng,
         netwr type vbap-netwr,
         vgbel type  vbap-vgbel,     "Delivery Doc. Num.
         mbdat type vbep-mbdat,      "Assured Delivery Date
         rfmng type vbfa-rfmng,      "Delivery Qty
         erdat type vbfa-erdat,      "Delivery Date
         diff_qty type vbfa-rfmng,
         diff_val type konv-kwert,
         lead_time type p,
         delay type p,
     end of it_exec.
internal able to hold pending sale order data.
data: begin of it_pend occurs 0,
         vbeln type vbak-vbeln,
         audat type vbak-audat,
         vdatu type vbak-vdatu,
         matnr type vbap-matnr,
         arktx type vbap-arktx,
         idnrk type stpo-idnrk,
         kunnr type vbak-kunnr,
         name1 type kna1-name1,
         kwmeng type vbap-kwmeng,
         netwr type vbap-netwr,
         vgbel type  vbap-vgbel,     "Delivery Doc. Num.
         mbdat type vbep-mbdat,      "Assured Delivery Date
         delay type p,
      end of it_pend.
data: total_netwr type konv-kwert.
data : begin of it_vbrk occurs  5,
vbeln type vbrk-vbeln,
end of it_vbrk.
data: begin of it_vbfa  occurs 5,
vbelv type vbfa-vbelv,
end of it_vbfa.
data : begin of t_vbak occurs 5,
vbeln type vbak-vbeln,
end of t_vbak.
Selection Screen
select-options: r_vbeln for vbak-vbeln no intervals no-extension.
select-options: r_kunnr for vbak-kunnr no intervals no-extension.
parameters: p_werks type vbap-werks obligatory.
select-options: r_date for vbak-erdat.
To find the HALB Material Number for Corresponding Material Number for Pending orders
   clear: mast,stpo,stpo,makt.
   select single stlnr from mast into mast-stlnr where matnr = it_temp-matnr and werks = it_temp-werks.
   select idnrk rekrs from stpo into (stpo-idnrk, stpo-rekrs) where stlnr = mast-stlnr.
     select single mtart from mara into mara-mtart where matnr = stpo-idnrk and mtart = 'HALB'.
     if sy-subrc = 0.
       exit.
     else.
       clear: stpo, makt.
     endif.
   endselect.
   if stpo-idnrk ne ' '.
     it_pend-idnrk = stpo-idnrk.
   else.
     it_pend-idnrk = it_temp-matnr.
   endif.
End of HALB Material Number find.
*select a~posnr
      a~matnr
      a~arktx
      a~kwmeng
      a~netwr
      a~werks
      a~vgbel
      b~vbeln
      b~kunnr
      b~audat
      bvdatu into corresponding fields of table it_temp from ( vbap as a join vbak as b on avbeln = b~vbeln )
                                                              where b~erdat in r_date
                                                                and b~kunnr in r_kunnr
                                                                and b~vbeln in r_vbeln
                                                                and a~werks = p_werks
                                                                and b~auart in ('ZOR1','ZOR3','ZTM').
select vbeln from vbrk into corresponding fields of table it_vbrk where fkdat in r_date.
if not it_vbrk[] is initial.
select vbelv into corresponding fields of table it_vbfa  from vbfa for all entries in it_vbrk where vbeln = it_vbrk-vbeln and vbtyp_v = 'C'.
endif.
sort it_vbfa by vbelv.
delete adjacent duplicates from it_vbfa comparing all fields.
select a~posnr
       a~matnr
       a~arktx
       a~kwmeng
       a~netwr
       a~werks
       a~vgbel
       b~vbeln
       b~kunnr
       b~audat
       b~vdatu
       into corresponding fields of table it_temp from ( vbap as a join vbak as b on a~vbeln = b~vbeln )
                                                               where b~kunnr in r_kunnr
                                                                 and b~vbeln in r_vbeln
                                                                 and a~werks = p_werks
                                                                 and b~auart in ('ZOR1','ZOR3','ZTM').
loop at it_temp.
read table it_vbfa with key vbelv = it_temp-vbeln.
if sy-subrc = 0.
else.
move : it_temp to it_pending.
append it_pending.
delete it_temp.
endif.
endloop.
select vbeln from vbak into corresponding fields of table t_vbak where kunnr in r_kunnr and erdat in r_date and vbeln in r_vbeln.
loop at it_pending.
read table t_vbak with key vbeln = it_pending-vbeln.
if sy-subrc = 0.
else.
delete it_pending.
endif.
endloop.
loop at it_pending.
move-corresponding it_pending to it_temp.
append it_temp.
endloop.
To segregate Executed Orders from Pending Orders
loop at it_temp.
  on change of it_temp-vbeln.
    select single name1 from kna1 into kna1-name1 where kunnr = it_temp-kunnr.
  endon.
  select rfmng erdat from vbfa into corresponding fields of vbfa where vbelv = it_temp-vbeln
                                                                      and posnv = it_temp-posnr
                                                                      and vbtyp_n = 'J'.
    it_temp-rfmng = it_temp-rfmng + vbfa-rfmng.
    it_temp-erdat = vbfa-erdat.
  endselect.
Executed Orders
  if sy-subrc = 0.
    move-corresponding it_temp to it_exec.
    it_exec-name1 = kna1-name1.
    append it_exec.
    clear it_exec.
  else.
Pending Orders
    move-corresponding it_temp to it_pend.
    it_pend-name1 = kna1-name1.
    append it_pend.
    clear it_pend.
  endif.
endloop.
loop at it_exec.
  it_exec-diff_qty = it_exec-kwmeng - it_exec-rfmng.
  if it_exec-kwmeng is not initial.
    it_exec-diff_val = it_exec-diff_qty * ( it_exec-netwr / it_exec-kwmeng ).
  endif.
  if it_exec-audat is not initial and it_exec-erdat is not initial.
    it_exec-lead_time = it_exec-erdat - it_exec-audat.
  endif.
  if it_exec-vdatu is not initial and it_exec-erdat is not initial.
    it_exec-delay = it_exec-erdat - it_exec-vdatu.
  endif.
  modify it_exec.
  clear it_exec.
endloop.
loop at it_pend.
  if it_pend-audat is not initial and it_pend-vdatu is not initial.
    it_pend-delay = sy-datum - it_pend-audat.
  endif.
  modify it_pend.
  clear it_pend.
endloop.
sort it_exec ascending by vbeln.
sort it_pend ascending by vbeln.
**************************************************Report Write************************************************************
skip.
******Executed Customer Orders
format color 7 intensified off.
if p_werks = '1002'.
  write: /'Executed Customer Orders'.
elseif p_werks = '1001'.
  write: /'Samples Dispatch Details'.
endif.
format color 1.
uline.
write: /2 'Customer Name' color 4 , 35 'Order No.' color 4, 47 'Order Date' color 4, 59 'FERT No.' color 4, 72 'FERT Name' color 4,
       111 'Order Volume' color 4,126 'Order Value' color 4, 140 'Req.Delv.Date' color 4,
       157 'Act.Delv.Date' color 4,177 'Act.Vol.Dispatched' color 4, 199 'Difference Kg' color 4, 218 'Difference INR' color 4,
       235 'Lead Time' color 4, 250 'Delay' color 4, 265 ''.
write: /50 '( a )' color 4, 144 '( b )' color 4, 161 '( c )' color 4, 235 '( c - a )' color 4, 250 '( c - b )' color 4, 265 ''.
uline.
format color 2.
loop at it_exec.
  format color 2.
  at new vbeln.
    read table it_exec index sy-tabix.
    write: /2 it_exec-name1,
            35 it_exec-vbeln,
            47 it_exec-audat,
            265 ''.
  endat.
  write: /59 it_exec-matnr,
          72 it_exec-arktx,
         111 it_exec-kwmeng left-justified,
         126 it_exec-netwr left-justified,
         140 it_exec-vdatu,
        157 it_exec-mbdat,
         157 it_exec-erdat,
         177 it_exec-rfmng left-justified,
         199 it_exec-diff_qty left-justified,
         218 it_exec-diff_val left-justified,
         235 it_exec-lead_time left-justified,
         250 it_exec-delay left-justified,
         265 ''.
  at end of vbeln.
    sum.
    format color 3.
    write: /95 'SUM:',
            111 it_exec-kwmeng left-justified,
            126 it_exec-netwr left-justified,
            265 ''.
  endat.
  at last.
    format: color 3 intensified on.
    sum.
    write:/87 'Overall SUM:',
          111 it_exec-kwmeng left-justified,
          126 it_exec-netwr left-justified,
          265 ''.
  endat.
endloop.
********Pending Customer Orders
skip 3.
format color 7 intensified off.
if p_werks = '1002'.
  write: /'Pending Customer Orders'.
elseif p_werks = '1001'.
  write: /'Pending Samples Dispatch'.
endif.
format color 1.
uline.
write: /2 'Customer Name' color 4, 35 'Order No.' color 4, 47 'Order Date' color 4, 59 'FERT No.' color 4, 72 'FERT Name' color 4,
       111 'Order Volume' color 4, 126 'Order Value' color 4, 140 'Req.Delv.Date' color 4,  156 'Delay as of Today' color 4,
       173 ' '.
format color 2.
uline.
loop at it_pend.
  format color 2.
  at new vbeln.
    read table it_pend index sy-tabix.
    write: /2 it_pend-name1,
            35 it_pend-vbeln,
            47 it_pend-audat,
            173 ''.
  endat.
  write: /59 it_pend-matnr,
          72 it_pend-arktx,
         111 it_pend-kwmeng left-justified,
         126 it_pend-netwr left-justified,
         140 it_pend-vdatu,
        157 it_pend-mbdat,
         156 it_pend-delay left-justified,
         173 ''.
  at end of vbeln.
    sum.
    format color 3.
    write: /100 'SUM:',
            111 it_pend-kwmeng left-justified,
            126 it_pend-netwr left-justified,
            173 ' '.
  endat.
  at last.
    sum.
    format color 3 intensified on.
    write:/92 'Overall SUM:',
          111 it_pend-kwmeng left-justified,
          126 it_pend-netwr left-justified,
          173 ' '.
  endat.
endloop.
<b>Reward points if helpful,</b>
Jinesh