Report selection process error.

Question

Dear Experts,
i have doveluped one report using alv, report is
Based on SOdetails we want to extaract the prodeuction order and plan order details, the program is sucessfully exicuted and display the output only SO details i cant get the PO , Plan Order and remining details ple check the selection process and solve this problem.
and one more problem is in plan order no block display the required delivery date.
plea rectifi this problem, the entire program is mentioned bellow.
Regards,
sri.
*& Report  ZSORDER_PRO_STATUS
REPORT  ZSORDER_PRO_STATUS.
Tables Declaration
tables : afpo,    "Order item
         aufk,    "Order master data
         afko,    "Order header data PP orders
         plaf,    "Planned order
        plpod,   "I/O table for task list operations and network activities
         s022,     "SFIS: Order Operation Data for Work Center
         vbap,    "Sales Document: Item Data
         vbak,    "Sales Document: Header Data
         kna1.    "General Data in Customer Master
type-pools: slis, vsep.
Data Declaration
data :begin of i_vbak occurs 0,
        vbeln like vbak-vbeln, "Sales Document
        kunnr like vbak-kunnr, "Sold-to party
        erdat like vbak-erdat, "Date on Which Record Was Created
        audat like vbak-audat, "Document Date (Date Received/Sent)
        aedat like vbak-aedat, "Changed On
        vdatu like vbak-vdatu, "required delivery date
       augru like vbak-augru, "Order reason (reason for the business transaction)
       posnr like vbap-posnr,    "Sales Document Item
      vdatu
       matnr like vbap-matnr,    "Material Number
       arktx like vbap-arktx,    "Short text for sales order item
       kwneng like vbap-kwmeng, "Cumulative Order Quantity in Sales Units
       end of i_vbak.
types: begin of t_s022,
      aufnr type s022-aufnr,
      arbpl type s022-arbpl,
      end of t_s022.
types: begin of t_afpo,
       kdauf type afpo-kdauf,
       posnr type afpo-posnr,
       plnum type afpo-plnum, "Planned order number
       aufnr type afpo-aufnr, "Order Number
      kdauf type afpo-kdauf, "Sales order number
       psmng type afpo-psmng, "Order item quantity
       wemng type afpo-wemng, "Quantity of goods received for the order item
       kdpos type afpo-kdpos,
       matnr type afpo-matnr,
       end of t_afpo.
types: begin of t_aufk,
       aufnr type aufk-aufnr,  "Order Number
       astnr type aufk-astnr, "Order status
       erdat type aufk-erdat, "Created on
      aurgu type aufk-aurgu,
       end of t_aufk.
types: begin of t_plaf,
       aufnr type plaf-aufnr,
       plnum type plaf-plnum,
       psttr type plaf-psttr,  "Order start date in planned order
       gsmng type plaf-gsmng,  "Total planned order quantity
       end of t_plaf.
data: begin of i_plpod occurs 0,
      matnr like afpo-matnr,
      arbpl like plpod-arbpl,
      istru like plpod-istru,
      end of i_plpod.
data : begin of i_sclass occurs 0.
        include structure sclass.
data : end of i_sclass.
data : wa_objek type ausp-objek.
data : begin of i_clobjdat occurs 0.
        include structure clobjdat.
data : end of i_clobjdat.
data: begin of i_augru occurs 0,
      vbeln like vbak-vbeln,
      augru like vbak-augru,
      kunnr like vbak-kunnr,
      audat like vbak-audat,
      end of i_augru.
types: begin of t_kunnr,
      kunnr type kna1-kunnr,
      name1 type kna1-name1,
      end of t_kunnr.
types: begin of t_final,
        vbeln type vbak-vbeln,    "Sales Document
        audat type vbak-audat,    "Document Date (Date Received/Sent)
        aedat type vbak-aedat,    "Changed On
        erdat type vbak-erdat,    "Date on Which Record Was Created
        kunnr type vbak-kunnr,    "customer
        vdatu type vbak-vdatu,    "required delivery date
        posnr type vbap-posnr,    "Sales Document Item
        plnum type afpo-plnum,    "plane order no
        psttr type plaf-psttr,    "Order start date in planned order
        gsmng type plaf-gsmng,    "Total planned order quantity
        aufnr type afko-aufnr,     "Order Number
        erdat1 type aufk-erdat,    "Created on
        matnr type vbap-matnr,     "Material Number
        arktx type vbap-arktx,     "Short text for sales order item
        kwmeng type vbap-kwmeng,   "Cumulative Order Quantity in Sales Units
        psmng type afpo-psmng,     "Order item quantity
        wemng type afpo-wemng,     "Quantity of goods received for the order item
        astnr type aufk-astnr,     "Order status
        ausp1  type clobjdat-ausp1,       "Paper & Paperboard DIM1
        ausp2  type clobjdat-ausp1,       "Paper & Paperboard DIM2
        matnr1 type afpo-matnr,
        ups1   type clobjdat-ausp1,   "ups
        augru type vbak-augru,       "new job/ Reprint
        arbpl type s022-arbpl,      " Michine details
        mgr1 type clobjdat-ausp1,   " mktg_acct_mgr1
       end of t_final.
  data: i_vbak type standard table of vbak,
        i_vbap type standard table of vbap,
  data:  i_s022 type standard table of t_s022.
   data: i_afpo type standard table of t_afpo,
         i_aufk type standard table of t_aufk,
         i_plaf type standard table of t_plaf,
         i_final type standard table of t_final,
         i_kunnr type standard table of t_kunnr.
data: wa_vbak type vbak,
      wa_vbap type vbap,
data: wa_s022 type t_s022.
  data: wa_afpo type t_afpo,
       wa_aufk type t_aufk,
       wa_plaf type t_plaf,
       wa_final type t_final,
       wa_kunnr type t_kunnr.
* For ALV
data: wrk_fieldcat  type slis_t_fieldcat_alv,
      wrk_repid     like sy-repid,
      wrk_layout    type slis_layout_alv.
parameters and select-options
selection-screen begin of block b1 with frame title text-001.
select-options: s_vbeln for vbak-vbeln, "sales order
                s_kunnr for vbak-kunnr, "Sold-to party
                s_audat for vbak-audat. "Date on Which Record Was Created
selection-screen end of block b1.
start-of-selection.
select
vbak~vbeln
vbak~kunnr
vbak~erdat
vbak~audat
vbak~aedat
vbak~vdatu
vbap~posnr
vbap~matnr
vbap~arktx
vbap~kwmeng
  into table i_vbak from vbak inner join vbap on vbakvbeln = vbapvbeln
  where vbakvbeln in s_vbeln and vbakaudat in s_audat and vbak~kunnr in s_kunnr.
if i_vbak is not initial.
*select rmanr
      posnr_rma
      aufnr
      from afko into table i_afko
      for all entries in i_vbak
      where rmanr = i_vbak-vbeln
      and  posnr_rma = i_vbak-posnr.
select kdauf
       posnr
       aufnr
       plnum
       kdauf
       psmng
       wemng
       matnr
       kdpos
       from afpo into table i_afpo
       for all entries in i_vbak
       where kdauf = i_vbak-vbeln
       and kdpos = i_vbak-posnr.
if sy-subrc = 0.
select plnum
       psttr
       gsmng
       from plaf into table i_plaf
       for all entries in i_afpo
       where plnum = i_afpo-plnum.
if i_afpo is not initial.
select aufnr
        astnr
        erdat
        from aufk into table i_aufk
        for all entries in i_afpo
        where aufnr = i_afpo-aufnr.
endif.
endif.
endif.
select vbeln augru
       from vbak into table i_augru
       where vbeln in s_vbeln and kunnr in s_kunnr and audat in s_audat
       and augru = 'z01' or augru = 'z02'.
select aufnr arbpl from s022 into table i_s022 where aufnr = afpo-aufnr and arbpl like 'ptg%'.
*loop at i_vbak.&&&&
loop at i_vbak.
move-corresponding i_vbak to wa_final.
select single kunnr from vbak into wa_kunnr where vbeln = i_vbak-vbeln.
      if sy-subrc eq 0.
        select single name1 from kna1 into wa_final-kunnr where kunnr = i_vbak-kunnr.
      endif.
*read table i_afko into wa_afko with key rmanr = i_vbak-vbeln.
*read table i_afko into wa_afko with key posnr_rma = i_vbak-posnr.
*if sy-subrc = 0.
*move-corresponding wa_afko to wa_final.
*endif.
read table i_afpo into wa_afpo with key kdauf = i_vbak-vbeln.
read table i_afpo into wa_afpo with key kdpos = i_vbak-posnr.
if sy-subrc = 0.
move-corresponding wa_afpo to wa_final.
move wa_afpo-matnr to wa_final-matnr1.
endif.
read table i_plaf into wa_plaf with key plnum = wa_afpo-plnum.
if sy-subrc = 0.
move-corresponding wa_plaf to wa_final.
endif.
read table i_aufk into wa_aufk with key aufnr = wa_afpo-aufnr.
if sy-subrc = 0.
move wa_aufk-astnr to wa_final-astnr.
move wa_aufk-erdat to wa_final-erdat1.
endif.
read table i_s022 into wa_s022 with key aufnr = wa_afpo-aufnr.
*read table i_s022 into wa_s022 with key arbpl like 'ptg%'.
if sy-subrc = 0.
move wa_s022-arbpl to wa_final-arbpl.
endif.
read table i_augru with key vbeln = i_vbak-vbeln.
if sy-subrc = 0.
move i_augru-augru to wa_final-augru.
endif.
refresh : i_clobjdat.
clear   : i_clobjdat,
          wa_objek.
      wa_objek = wa_afpo-matnr.
      call function 'CLAF_CLASSIFICATION_OF_OBJECTS'
        exporting
         class                      = ' '
         classtext                  = 'X'
         classtype                  = '001'
         clint                      = 0
         features                   = 'X'
         language                   = sy-langu
         object                     = wa_objek
         objecttable                = ' '
         key_date                   = sy-datum
         initial_charact            = 'X'
       NO_VALUE_DESCRIPT          =
         change_service_clf         = 'X'
         inherited_char             = ' '
         change_number              = ' '
        tables
          t_class                   = i_sclass
          t_objectdata              = i_clobjdat
        I_SEL_CHARACTERISTIC       =
        T_NO_AUTH_CHARACT          =
       exceptions
         no_classification          = 1
         no_classtypes              = 2
         invalid_class_type         = 3
         others                     = 4.
read table i_clobjdat with key atnam = 'PAPER_BOARD_DIM1'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-ausp1 = i_clobjdat-ausp1.
        endif.
      endif.
read table i_clobjdat with key atnam = 'PAPER_BOARD_DIM2'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-ausp2 = i_clobjdat-ausp1.
        endif.
      endif.
read table i_clobjdat with key atnam = 'UPS1'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-ups1 = i_clobjdat-ausp1.
        endif.
      endif.
read table i_clobjdat with key atnam = 'MKTG_ACCT_MGR1'.
      if sy-subrc eq 0.
        if i_clobjdat-ausp1 ne '?'.
          wa_final-mgr1 = i_clobjdat-ausp1.
        endif.
      endif.
  if wa_final is not initial.
  append wa_final to i_final.
  endif.
endif.
endloop.
*endif.
*form display_alv .
data: wrk_fld type slis_fieldcat_alv.
refresh wrk_fieldcat.
clear wrk_fieldcat.
perform display_alv.
*&      Form  display_alv
      text
-->  p1        text
<--  p2        text
form display_alv .
  data: wrk_fld type slis_fieldcat_alv.
refresh wrk_fieldcat.
clear wrk_fieldcat.
  perform pc_fld using:
        'AUDAT'       text-003     'I_FINAL'     ,
        'VBELN'       text-004     'I_FINAL'     ,
        'AEDAT'       text-005     'I_FINAL'     ,
        'ERDAT'       text-006     'I_FINAL'     ,
        'KUNNR'       text-007     'I_FINAL'     ,
        'POSNR'       text-008     'I_FINAL'     ,
        'VDATU'       text-009     'I_FINAL'     ,
        'PLANUM'       text-010     'I_FINAL'     ,
        'PSTTR'       text-011     'I_FINAL'     ,
        'GSMNG'       text-012     'I_FINAL'     ,
        'AUFNR'      text-013     'I_FINAL'     ,
        'ERDAT1'     text-014     'I_FINAL'     ,
        'MATNR'       text-015     'I_FINAL'     ,
        'ARKTX'       text-016     'I_FINAL'     ,
        'KWMNG'       text-017     'I_FINAL'     ,
        'PSMNG'       text-018     'I_FINAL'     ,
        'WEMNG'       text-019     'I_FINAL'     ,
        'ASTNR'       text-020     'I_FINAL'     ,
        'AUSP1'      text-021     'I_FINAL'     ,
        'AUSP2'      text-022     'I_FINAL'     ,
        'UPS1'      text-023     'I_FINAL'     ,
        'AUGRU'       text-024     'I_FINAL'     ,
        'ARBPL'       text-025     'I_FINAL'     ,
        'MRG1'       text-026     'I_FINAL'     .
Layout Information.
wrk_layout-zebra = 'X'.
  wrk_layout-colwidth_optimize = 'X'.
  wrk_layout-expand_fieldname = 'X'.
  wrk_repid = 'ZPPR_DESPACHE'.
Call ALV.
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program = wrk_repid
      is_layout          = wrk_layout
      it_fieldcat        = wrk_fieldcat
     i_save             = 'A'
    tables
      t_outtab           = i_final[]
    exceptions
      program_error      = 1
      others             = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    " display_alv
*&      Form  pc_fld
      text
     -->P_1      text
     -->P_1      text
     -->P_0891   text
     -->P_TEXT_C01  text
     -->P_03     text
     -->P_0894   text
     -->P_IT_LEVEL  text
form pc_fld  using    f d t .
  data: wrk_fld type slis_fieldcat_alv.
  wrk_fld-no_zero = 'X'.
  if f eq 'SRNO'.
    wrk_fld-key = 'X'.
  endif.
  wrk_fld-quantity = 'SHT'.
  move f to wrk_fld-fieldname.
  move d to : wrk_fld-seltext_l.
  move t to wrk_fld-tabname.
  append wrk_fld to wrk_fieldcat.
endform.

Answer 1

Already a known issue, here's the [KB 1584095 - A boolean NOT is added at the beginning of a record selection formula when the report is loaded by the Crystal Reports .NET SDK |http://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/oss_notes_boj/sdn_oss_boj_bi/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/scn_bosap/notes%7B6163636573733d36393736354636443646363436353344333933393338323636393736354637333631373036453646373436353733354636453735364436323635373233443330333033303331333533383334333033393335%7D.do]