Check box creation

Question

Hi Experts,
i hae to create a check box for account assaignment default value ticked, ifit is ticked out put should come other wise output should not come
could any one help me, account assaignment field is ekpo-knttp.
i am giving the code below
REPORT zmmr_po_spendreport NO STANDARD PAGE HEADING
       MESSAGE-ID zs.
Program ID   :                                                      *
Version      : 1.0                                                  *
SAP Version  : R/3 System Ver. 4.6C                                 *
Program Name : ZMMR_PO_SPENDREPORT                                  *
Created by   : Venu Goli                                            *
Created on   : 6/1/2007                                             *
Description  : A Report on Direct and Indirect spend to find out    *
                the lead time in PO and Invoice creation             *
Tables
TABLES: ekko,   "Purchasing Document Header
        ekpo,   "Purchasing Document Item
        rbkp.   "Document Header: Invoice Receipt
Type-Pools
TYPE-POOLS : slis.   " Has to be declared to use ALVs
To hold ALV field catgory data
DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
       wa_fieldcat LIKE LINE OF it_fieldcat.
Internal tables declarations
Internal table to hold Report data
DATA: BEGIN OF it_output OCCURS 0,
       dir_indir(9),
       bukrs LIKE ekko-bukrs,    "company code
       ebeln LIKE ekko-ebeln,    "Purchasing Document Number
       ebelp LIKE ekpo-ebelp,    "Item
       aedat LIKE ekko-aedat,    "Date on which the record was created
       belnr LIKE rseg-belnr,    "Accounting document number
       bldat LIKE rbkp-bldat,    "Document date in document
       budat LIKE rbkp-budat,    "Posting date in the document
       wrbtr LIKE rseg-wrbtr,    "Amount in document currency
       curr  LIKE t880-curr,     "Price unit (Local Curr)
       bednr LIKE ekpo-bednr,    "Requirement tracking number
       lifnr LIKE ekko-lifnr,    "Vendor's account number
       name1 LIKE lfa1-name1,                               "name1
       name2(30),                "preparer name
       name3(30),                "requester name
       gjahr LIKE rseg-gjahr,    "Fiscal year
       ernam LIKE ekko-ernam,    "Name of Person who Created the Object
       kursf LIKE rbkp-kursf,    "Exchange rate
       shkzg LIKE rseg-shkzg,    "Debit/credit indicator
       banfn LIKE ekpo-banfn,    "Purchase requisition number
       knttp LIKE ekpo-knttp,    "account assignment category
      END OF it_output.
Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE ekko-bukrs OBLIGATORY,
               kntpp AS CHECKBOX DEFAULT 'X'.
SELECT-OPTIONS: s_invdat FOR rbkp-bldat,    "Document date in document
                s_vendor FOR ekko-lifnr,    "Vendor's account number
                s_purcdo FOR ekko-ebeln,    "Purchasing Document no
                s_credat FOR ekko-aedat OBLIGATORY,"create date
                s_plant  FOR ekpo-werks,    "Plant
                s_doctyp FOR ekko-bsart,    "Purchasing document type
                s_purorg FOR ekko-ekorg,    "Purchasing organization
                s_trcnum FOR ekpo-bednr,    "Requirement tracking number
                s_knttp  FOR ekpo-knttp.    "account assignment category
SELECTION-SCREEN: END OF BLOCK b1.
DATA: count TYPE i VALUE 0.            " Used to count records
          INITIALIZATION                                             *
INITIALIZATION.
At Selection Screen
AT SELECTION-SCREEN.
Checking for the input values of selection screen fields.
  PERFORM validate_params.
Start Of Selection
START-OF-SELECTION.
  PERFORM get_data.
End Of Selection
END-OF-SELECTION.
SUBROUTINE TO CALL THE FUNCTION MERGE TO ENSURE PROPER DISPLAY.
  PERFORM merge_fieldcatalog.
  PERFORM modify_fieldcat.
  PERFORM alv_report.
      FORM validate_params                                          *
FORM validate_params.
Validate company code
  SELECT SINGLE COUNT(*) FROM t001 WHERE bukrs = p_bukrs.
  IF sy-subrc <> 0.
    MESSAGE e021 WITH 'Please enter a valid Company code'.
  ENDIF.
*Validate Vendor.
  SELECT SINGLE COUNT(*) FROM lfa1 WHERE lifnr IN s_vendor.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid Vendor'.
  ENDCASE.
*Validate PO doc type
  SELECT SINGLE COUNT(*) FROM t161 WHERE bsart IN s_doctyp.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid PO Doc. Type'.
  ENDCASE.
*Validate plant
  SELECT SINGLE COUNT(*) FROM t001w WHERE werks IN s_plant.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid Plant. Type'.
  ENDCASE.
*Validate Purch. Org
  SELECT SINGLE COUNT(*) FROM t024e WHERE ekorg IN s_purorg.
  CASE sy-subrc.
    WHEN 0.
    WHEN OTHERS.
      MESSAGE e021 WITH 'Please enter a valid Purch. Org.'.
  ENDCASE.
ENDFORM.                               " PERFORM VALIDATE_PARAMS.
      FORM get_data                                                 *
FORM get_data.
  DATA: l_persnumber LIKE usr21-persnumber.
Get PO data
  SELECT a~bukrs a~ebeln b~ebelp a~aedat a~lifnr a~ernam
         b~knttp b~bednr b~banfn
         c~belnr c~wrbtr c~gjahr c~shkzg
         d~bldat d~budat d~kursf
         e~dir_indir
  INTO CORRESPONDING FIELDS OF TABLE it_output
  FROM ekko AS a
  JOIN ekpo AS b ON b~ebeln = a~ebeln
  JOIN rseg AS c ON c~ebeln = b~ebeln
                AND c~ebelp = b~ebelp
                AND c~bukrs = a~bukrs
  JOIN rbkp AS d ON d~belnr = c~belnr
                AND d~gjahr = c~gjahr
  LEFT JOIN zpo_dirindir AS e ON e~knttp = b~knttp
  WHERE a~bukrs = p_bukrs
    AND a~lifnr IN s_vendor
    AND a~ebeln IN s_purcdo
    AND a~bsart IN s_doctyp
    AND a~ekorg IN s_purorg
    AND a~aedat IN s_credat
    AND b~knttp IN s_knttp
    AND b~werks IN s_plant
    AND b~bednr IN s_trcnum.
  LOOP AT it_output.
  Get posting date, Doc. date & Curr. Key
    IF it_output-kursf <> 0.
      it_output-wrbtr = it_output-wrbtr * it_output-kursf.
    ENDIF.
  get local currency
    SELECT SINGLE waers INTO it_output-curr FROM t001
             WHERE bukrs = it_output-bukrs.
  Get vendor name.
    SELECT SINGLE name1 FROM lfa1 INTO it_output-name1
    WHERE lifnr = it_output-lifnr.
  Get PO created person name
    SELECT SINGLE persnumber INTO l_persnumber FROM usr21
     WHERE bname = it_output-ernam.
    IF sy-subrc = 0.
      SELECT SINGLE name_text FROM adrp INTO it_output-name2
       WHERE persnumber = l_persnumber.
    ELSE.
      it_output-name2 = it_output-ernam.
    ENDIF.
  Get get requested by from reciepent point in PO
  else PR created by (If PR exists)
    CASE it_output-dir_indir.
      WHEN 'I'.
      Take requested by from Reciepent point.
        SELECT SINGLE wempf INTO it_output-name3 FROM ekkn
         WHERE ebeln = it_output-ebeln
           AND ebelp = it_output-ebelp .
      WHEN 'D'.
        SELECT SINGLE ernam INTO it_output-name3 FROM eban
         WHERE banfn = it_output-banfn
           AND ebelp = it_output-ebelp.
        IF sy-subrc <> 0.
          MOVE it_output-ernam TO it_output-name3.
        ENDIF.
        SELECT SINGLE persnumber INTO l_persnumber FROM usr21
            WHERE bname = it_output-name3.
        IF sy-subrc = 0.
          SELECT SINGLE name_text FROM adrp INTO it_output-name3
           WHERE persnumber = l_persnumber.
        ENDIF.
    ENDCASE.
  translate direction indicator to Indirect or Direct
    CASE it_output-dir_indir.
      WHEN 'I'. it_output-dir_indir = 'Indirect'.
      WHEN 'D'. it_output-dir_indir = 'Direct'.
    ENDCASE.
    MODIFY it_output.
  ENDLOOP.
ENDFORM.
FORM MERGE_FIELDCATALOG                                             *
FORM merge_fieldcatalog.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            i_program_name         = sy-cprog
            i_internal_tabname     = 'IT_OUTPUT'
            i_inclname             = sy-cprog
       CHANGING
            ct_fieldcat            = it_fieldcat[]
       EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
ENDFORM. " MERGE_FIELDCATALOG
      FORM modify_fieldcat                                          *
FORM modify_fieldcat.
  DATA: wa_fieldcat TYPE slis_fieldcat_alv.
  LOOP AT it_fieldcat INTO wa_fieldcat.
    CASE wa_fieldcat-fieldname.
      WHEN 'DIR_INDIR'.
        wa_fieldcat-seltext_m = 'Direct/Indirect'.
      WHEN 'NAME2'.
        wa_fieldcat-seltext_m = 'PREPARER NAME'.
      WHEN 'NAME3'.
        wa_fieldcat-seltext_m = 'REQUESTER NAME'.
      WHEN 'BEDNR'.
        wa_fieldcat-seltext_m = 'SSP PO'.
      WHEN 'AEDAT'.
        wa_fieldcat-seltext_m = 'PO DOCUMENT DATE'.
      WHEN 'BLDAT'.
        wa_fieldcat-seltext_m = 'INVOICE DOCU DATE'.
      WHEN 'BUDAT'.
        wa_fieldcat-seltext_m = 'POSTAGE DATE'.
      WHEN 'WRBTR'.
        wa_fieldcat-seltext_m = 'LOCAL AMOUNT'.
        wa_fieldcat-cfieldname = 'CURR'.
        wa_fieldcat-ctabname   =  wa_fieldcat-tabname.
      WHEN 'CURR'.
        wa_fieldcat-seltext_m = 'LOCAL CURR'.
      WHEN 'NAME1'.
        wa_fieldcat-seltext_m = 'VENDOR NAME'.
    ENDCASE.
    MODIFY it_fieldcat FROM wa_fieldcat.
  ENDLOOP.
ENDFORM.
      FORM ALV_REPORT                                               *
FORM alv_report.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program = sy-cprog
            it_fieldcat        = it_fieldcat[]
       TABLES
            t_outtab           = it_output[].
  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.

Answer 1

REPORT zmmr_po_spendreport NO STANDARD PAGE HEADING
MESSAGE-ID zs.
Program ID : *
Version : 1.0 *
SAP Version : R/3 System Ver. 4.6C *
Program Name : ZMMR_PO_SPENDREPORT *
Created by : Venu Goli *
Created on : 6/1/2007 *
Description : A Report on Direct and Indirect spend to find out *
the lead time in PO and Invoice creation *
Tables
TABLES: ekko, "Purchasing Document Header
ekpo, "Purchasing Document Item
rbkp. "Document Header: Invoice Receipt
Type-Pools
TYPE-POOLS : slis. " Has to be declared to use ALVs
To hold ALV field catgory data
DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat LIKE LINE OF it_fieldcat.
Internal tables declarations
Internal table to hold Report data
DATA: BEGIN OF it_output OCCURS 0,
dir_indir(9),
bukrs LIKE ekko-bukrs, "company code
ebeln LIKE ekko-ebeln, "Purchasing Document Number
ebelp LIKE ekpo-ebelp, "Item
aedat LIKE ekko-aedat, "Date on which the record was created
belnr LIKE rseg-belnr, "Accounting document number
bldat LIKE rbkp-bldat, "Document date in document
budat LIKE rbkp-budat, "Posting date in the document
wrbtr LIKE rseg-wrbtr, "Amount in document currency
curr LIKE t880-curr, "Price unit (Local Curr)
bednr LIKE ekpo-bednr, "Requirement tracking number
lifnr LIKE ekko-lifnr, "Vendor's account number
name1 LIKE lfa1-name1, "name1
name2(30), "preparer name
name3(30), "requester name
gjahr LIKE rseg-gjahr, "Fiscal year
ernam LIKE ekko-ernam, "Name of Person who Created the Object
kursf LIKE rbkp-kursf, "Exchange rate
shkzg LIKE rseg-shkzg, "Debit/credit indicator
banfn LIKE ekpo-banfn, "Purchase requisition number
knttp LIKE ekpo-knttp, "account assignment category
END OF it_output.
Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE ekko-bukrs OBLIGATORY,
kntpp AS CHECKBOX DEFAULT 'X'.
SELECT-OPTIONS: s_invdat FOR rbkp-bldat, "Document date in document
s_vendor FOR ekko-lifnr, "Vendor's account number
s_purcdo FOR ekko-ebeln, "Purchasing Document no
s_credat FOR ekko-aedat OBLIGATORY,"create date
s_plant FOR ekpo-werks, "Plant
s_doctyp FOR ekko-bsart, "Purchasing document type
s_purorg FOR ekko-ekorg, "Purchasing organization
s_trcnum FOR ekpo-bednr, "Requirement tracking number
s_knttp FOR ekpo-knttp. "account assignment category
parameters : p_knntp as checkbox default 'X'.
SELECTION-SCREEN: END OF BLOCK b1.
DATA: count TYPE i VALUE 0. " Used to count records
INITIALIZATION *
INITIALIZATION.
At Selection Screen
AT SELECTION-SCREEN.
Checking for the input values of selection screen fields.
PERFORM validate_params.
Start Of Selection
START-OF-SELECTION.
if p_knttp = 'X'.
PERFORM get_data.
else.
message 'no output'.
endif.
End Of Selection
END-OF-SELECTION.
SUBROUTINE TO CALL THE FUNCTION MERGE TO ENSURE PROPER DISPLAY.
PERFORM merge_fieldcatalog.
PERFORM modify_fieldcat.
PERFORM alv_report.
FORM validate_params *
FORM validate_params.
Validate company code
SELECT SINGLE COUNT(*) FROM t001 WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
MESSAGE e021 WITH 'Please enter a valid Company code'.
ENDIF.
*Validate Vendor.
SELECT SINGLE COUNT(*) FROM lfa1 WHERE lifnr IN s_vendor.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
MESSAGE e021 WITH 'Please enter a valid Vendor'.
ENDCASE.
*Validate PO doc type
SELECT SINGLE COUNT(*) FROM t161 WHERE bsart IN s_doctyp.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
MESSAGE e021 WITH 'Please enter a valid PO Doc. Type'.
ENDCASE.
*Validate plant
SELECT SINGLE COUNT(*) FROM t001w WHERE werks IN s_plant.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
MESSAGE e021 WITH 'Please enter a valid Plant. Type'.
ENDCASE.
*Validate Purch. Org
SELECT SINGLE COUNT(*) FROM t024e WHERE ekorg IN s_purorg.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
MESSAGE e021 WITH 'Please enter a valid Purch. Org.'.
ENDCASE.
ENDFORM. " PERFORM VALIDATE_PARAMS.
FORM get_data *
FORM get_data.
DATA: l_persnumber LIKE usr21-persnumber.
Get PO data
SELECT a~bukrs a~ebeln b~ebelp a~aedat a~lifnr a~ernam
b~knttp b~bednr b~banfn
c~belnr c~wrbtr c~gjahr c~shkzg
d~bldat d~budat d~kursf
e~dir_indir
INTO CORRESPONDING FIELDS OF TABLE it_output
FROM ekko AS a
JOIN ekpo AS b ON b~ebeln = a~ebeln
JOIN rseg AS c ON c~ebeln = b~ebeln
AND c~ebelp = b~ebelp
AND c~bukrs = a~bukrs
JOIN rbkp AS d ON d~belnr = c~belnr
AND d~gjahr = c~gjahr
LEFT JOIN zpo_dirindir AS e ON e~knttp = b~knttp
WHERE a~bukrs = p_bukrs
AND a~lifnr IN s_vendor
AND a~ebeln IN s_purcdo
AND a~bsart IN s_doctyp
AND a~ekorg IN s_purorg
AND a~aedat IN s_credat
AND b~knttp IN s_knttp
AND b~werks IN s_plant
AND b~bednr IN s_trcnum.
LOOP AT it_output.
Get posting date, Doc. date & Curr. Key
IF it_output-kursf <> 0.
it_output-wrbtr = it_output-wrbtr * it_output-kursf.
ENDIF.
get local currency
SELECT SINGLE waers INTO it_output-curr FROM t001
WHERE bukrs = it_output-bukrs.
Get vendor name.
SELECT SINGLE name1 FROM lfa1 INTO it_output-name1
WHERE lifnr = it_output-lifnr.
Get PO created person name
SELECT SINGLE persnumber INTO l_persnumber FROM usr21
WHERE bname = it_output-ernam.
IF sy-subrc = 0.
SELECT SINGLE name_text FROM adrp INTO it_output-name2
WHERE persnumber = l_persnumber.
ELSE.
it_output-name2 = it_output-ernam.
ENDIF.
Get get requested by from reciepent point in PO
else PR created by (If PR exists)
CASE it_output-dir_indir.
WHEN 'I'.
Take requested by from Reciepent point.
SELECT SINGLE wempf INTO it_output-name3 FROM ekkn
WHERE ebeln = it_output-ebeln
AND ebelp = it_output-ebelp .
WHEN 'D'.
SELECT SINGLE ernam INTO it_output-name3 FROM eban
WHERE banfn = it_output-banfn
AND ebelp = it_output-ebelp.
IF sy-subrc <> 0.
MOVE it_output-ernam TO it_output-name3.
ENDIF.
SELECT SINGLE persnumber INTO l_persnumber FROM usr21
WHERE bname = it_output-name3.
IF sy-subrc = 0.
SELECT SINGLE name_text FROM adrp INTO it_output-name3
WHERE persnumber = l_persnumber.
ENDIF.
ENDCASE.
translate direction indicator to Indirect or Direct
CASE it_output-dir_indir.
WHEN 'I'. it_output-dir_indir = 'Indirect'.
WHEN 'D'. it_output-dir_indir = 'Direct'.
ENDCASE.
MODIFY it_output.
ENDLOOP.
ENDFORM.
FORM MERGE_FIELDCATALOG *
FORM merge_fieldcatalog.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-cprog
i_internal_tabname = 'IT_OUTPUT'
i_inclname = sy-cprog
CHANGING
ct_fieldcat = it_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
ENDFORM. " MERGE_FIELDCATALOG
FORM modify_fieldcat *
FORM modify_fieldcat.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
LOOP AT it_fieldcat INTO wa_fieldcat.
CASE wa_fieldcat-fieldname.
WHEN 'DIR_INDIR'.
wa_fieldcat-seltext_m = 'Direct/Indirect'.
WHEN 'NAME2'.
wa_fieldcat-seltext_m = 'PREPARER NAME'.
WHEN 'NAME3'.
wa_fieldcat-seltext_m = 'REQUESTER NAME'.
WHEN 'BEDNR'.
wa_fieldcat-seltext_m = 'SSP PO'.
WHEN 'AEDAT'.
wa_fieldcat-seltext_m = 'PO DOCUMENT DATE'.
WHEN 'BLDAT'.
wa_fieldcat-seltext_m = 'INVOICE DOCU DATE'.
WHEN 'BUDAT'.
wa_fieldcat-seltext_m = 'POSTAGE DATE'.
WHEN 'WRBTR'.
wa_fieldcat-seltext_m = 'LOCAL AMOUNT'.
wa_fieldcat-cfieldname = 'CURR'.
wa_fieldcat-ctabname = wa_fieldcat-tabname.
WHEN 'CURR'.
wa_fieldcat-seltext_m = 'LOCAL CURR'.
WHEN 'NAME1'.
wa_fieldcat-seltext_m = 'VENDOR NAME'.
ENDCASE.
MODIFY it_fieldcat FROM wa_fieldcat.
ENDLOOP.
ENDFORM.
FORM ALV_REPORT *
FORM alv_report.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
it_fieldcat = it_fieldcat[]
TABLES
t_outtab = it_output[].
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.