topic Re: DATE PROBLEM IN ALV?? in Application Development and Automation Discussions

DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:09:02 GMT

Hi ALL,

Im using ALV function modules,

i have to display the date in '18.01.2007' format,,,,,but its showing '18012007'

how to do that?? in alv.

urgent,

regards

jack

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:11:13 GMT

use WRITE TO .............. EDIT MASK to change the date format

Sameer

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:11:31 GMT

Hi Jack,

Use this statement


date = 18012007
date1 like sy-datum.
write : date using edit mask '__.__.____' 
        to date1,                

Output : 18.01.2007

This will work.

Thanks

Vikranth

Message was edited by:

Khimavath Vikranth

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:23:49 GMT

You can use edit mask

DATA DATE TYPE SY-DATUM.

WRITE (8) DATE USING EDIT MASK '__.__.__'.

Check this sample one

*----------------------------------------------*
* Data Dictionary Table/s                      *
*----------------------------------------------*
TABLES: vbak,
        vttp.
 
CLASS lcl_event_receiver DEFINITION DEFERRED.
 
*----------------------------------------------*
* Global Data/s                                *
*----------------------------------------------*
DATA: gt_fieldcat         TYPE lvc_t_fcat,
      ok_code             TYPE syst-ucomm,
      save_ok             TYPE syst-ucomm,
      g_repid             TYPE syst-repid,
      gs_layout           TYPE lvc_s_layo,
      gv_container        TYPE scrfname VALUE 'CUSTOM_CONTROL',
      grid1               TYPE REF TO cl_gui_alv_grid,
      custom_container    TYPE REF TO cl_gui_custom_container,
      grid2               TYPE REF TO cl_gui_alv_grid,
      dialogbox_container TYPE REF TO cl_gui_dialogbox_container,
      event_receiver      TYPE REF TO lcl_event_receiver.
 
*----------------------------------------------*
* Global Structure/s                           *
*----------------------------------------------*
TYPES: BEGIN OF t_output,
        creation_date  TYPE vbak-erdat,
        creation_time  TYPE vbak-erzet,
        sales_doc      TYPE vbak-vbeln,
        cust_code      TYPE vbak-kunnr,
        cust_desc      TYPE kna1-name1,
        ship_to_code   TYPE likp-kunnr,
        ship_to_desc   TYPE kna1-name1,
        po_num         TYPE vbak-bstnk,
        doc_type       TYPE vbak-auart,
        req_dlv_date   TYPE vbak-vdatu,
        so_status(02)  TYPE c,
        created_by     TYPE vbak-ernam,
        del_doc        TYPE likp-vbeln,
        bill_doc       TYPE vbrk-vbeln,
       END OF t_output.
 
TYPES: BEGIN OF t_column,
        fname TYPE lvc_fname,
        level TYPE lvc_level,
       END OF t_column.
 
*----------------------------------------------*
* Global Internal Table/s                      *
*----------------------------------------------*
DATA: gt_output TYPE STANDARD TABLE OF t_output,
      gt_column TYPE STANDARD TABLE OF t_column.
 
*----------------------------------------------*
* Global Work Area/s                           *
*----------------------------------------------*
DATA: wa_output LIKE LINE OF gt_output.
 
*----------------------------------------------*
* SELECTION-SCREEN                             *
*----------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:     p_kunnr TYPE vbak-kunnr OBLIGATORY.
SELECT-OPTIONS: s_vkgrp FOR vbak-vkgrp,
                s_auart FOR vbak-auart,
                s_erdat FOR vbak-erdat  OBLIGATORY,
                s_ernam FOR vbak-ernam.
SELECTION-SCREEN END OF BLOCK b1.
 
 
*/ CLASS DEFINITION/S
 
CLASS lcl_process_data DEFINITION DEFERRED.
 
*----------------------------------------------------------------------*
*       CLASS lcl_get_data DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_get_data DEFINITION.
  PUBLIC SECTION.
    TYPES: BEGIN OF t_vbak,
            vbeln TYPE vbak-vbeln,
            erdat TYPE vbak-erdat,
            erzet TYPE vbak-erzet,
            ernam TYPE vbak-ernam,
            auart TYPE vbak-auart,
            vdatu TYPE vbak-vdatu,
            bstnk TYPE vbak-bstnk,
            kunnr TYPE vbak-kunnr,
           END OF t_vbak.
 
    TYPES: BEGIN OF t_kna1,
            kunnr TYPE kna1-kunnr,
            name1 TYPE kna1-name1,
           END OF t_kna1.
 
    TYPES: BEGIN OF t_delivery,
            vgbel TYPE lips-vgbel,
            vbeln TYPE likp-vbeln,
            kunnr TYPE likp-kunnr,
           END OF t_delivery.
 
    TYPES: BEGIN OF t_billing,
            vbelv   TYPE vbfa-vbelv,
            vbtyp_n TYPE vbfa-vbtyp_n,
            vbeln   TYPE vbfa-vbeln,
           END OF t_billing.
 
    TYPES: BEGIN OF t_status,
            vbeln TYPE vbuk-vbeln,      "Sales and Distribution Document Number
            cmgst TYPE vbuk-cmgst,      "Overall status of credit checks
            lfstk TYPE vbuk-lfstk,      "Delivery status
            kostk TYPE vbuk-kostk,      "Overall picking / putaway status
            fkstk TYPE vbuk-fkstk,      "Billing status
            trsta TYPE vbuk-trsta,      "Transportation planning status
           END OF t_status.
 
    TYPES: BEGIN OF t_status_do,
            vbeln TYPE vbuk-vbeln,      "Delivery Document Number
            kostk TYPE vbuk-kostk,      "Overall picking / putaway status
            fkstk TYPE vbuk-fkstk,      "Billing status
            trsta TYPE vbuk-trsta,      "Transportation planning status
           END OF t_status_do.
 
    METHODS: get_sales_docs    FINAL,
             get_customer_desc FINAL,
             get_ship_to_desc  FINAL,
             get_delivery_docs FINAL,
             get_billing_docs  FINAL,
             get_so_status     FINAL.
 
  PROTECTED SECTION.
    CLASS-DATA: gt_vbak            TYPE STANDARD TABLE OF t_vbak,
                gt_kna1            TYPE HASHED   TABLE OF t_kna1
                                   WITH UNIQUE KEY kunnr,
                gt_kna2            TYPE HASHED   TABLE OF t_kna1
                                   WITH UNIQUE KEY kunnr,
                gt_delivery        TYPE STANDARD TABLE OF t_delivery,
                gt_billing         TYPE STANDARD TABLE OF t_billing,
                gt_status          TYPE STANDARD TABLE OF t_status,
                gt_status_do       TYPE STANDARD TABLE OF t_status_do,
                o_lcl_process_data TYPE REF TO lcl_process_data.
 
  PRIVATE SECTION.
    CLASS-DATA: wa_status LIKE LINE OF gt_status.
ENDCLASS.                    "lcl_get_data DEFINITION
 
*----------------------------------------------------------------------*
*       CLASS lcl_process_data DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_process_data DEFINITION INHERITING FROM lcl_get_data.
  PUBLIC SECTION.
    METHODS: combine_data FINAL
               IMPORTING
                 im_sales_tab LIKE gt_vbak
                 im_cust_tab  LIKE gt_kna1
                 im_desc_tab  LIKE gt_kna2     OPTIONAL
                 im_dlv_tab   LIKE gt_delivery OPTIONAL
                 im_bill_tab  LIKE gt_billing  OPTIONAL
               EXPORTING
                 ex_output    LIKE gt_output,
 
             get_status
               IMPORTING
                 im_so        TYPE vbak-vbeln
                 im_do        TYPE likp-vbeln   OPTIONAL
               EXPORTING
                 ex_status    TYPE crmchar2.
 
  PRIVATE SECTION.
    DATA: lv_vbelv    TYPE vbfa-vbelv,
          lv_bill_doc TYPE vbfa-vbeln,
          lv_kunnr    TYPE vbpa-kunnr,
          lv_name1    TYPE kna1-name1,
          lv_parvw    TYPE vbpa-parvw,
          lv_flag1    TYPE flag.
ENDCLASS.                    "lcl_process_data DEFINITION
 
*----------------------------------------------------------------------*
*       CLASS lcl_alv_routines DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_alv_routines DEFINITION INHERITING FROM lcl_process_data.
  PUBLIC SECTION.
    TYPES: BEGIN OF t_status_history,
             cr_hold(50)        TYPE c,
             cr_rel_on(10)      TYPE c,
             cr_rel_at(10)      TYPE c,
             do_created_on(10)  TYPE c,
             do_created_time(8) TYPE c,
             picked_on(10)      TYPE c,
             picked_time(8)     TYPE c,
             inv_created_on(10) TYPE c,
             dispatched_on(10)  TYPE c,
             dispatched_at(10)  TYPE c,
           END OF t_status_history.
 
    TYPES: BEGIN OF t_confirmation,
             podat TYPE likp-podat,
             potim TYPE likp-potim,
           END OF t_confirmation.
 
    CLASS-DATA: wa_fieldcat       LIKE LINE OF gt_fieldcat,
                gt_status_history TYPE STANDARD TABLE OF t_status_history,
                gt_confirmation   TYPE STANDARD TABLE OF t_confirmation,
                wa_status_history LIKE LINE OF gt_status_history,
                wa_confirmation   LIKE LINE OF gt_confirmation,
                wa_column         LIKE LINE OF gt_column,
                gt_domain_val     TYPE STANDARD TABLE OF dd07v,
                wa_domain_val     LIKE LINE OF gt_domain_val.
 
    METHODS: build_fieldcat FINAL,
             popup_routines
               IMPORTING
                 im_column LIKE gt_column
                 im_output LIKE wa_output
               EXPORTING
                 ex_status_history LIKE gt_status_history
                 ex_confirmation   LIKE gt_confirmation,
             get_domain_values FINAL
               IMPORTING
                 value(im_tabname)    TYPE ddobjname
                 value(im_fieldname)  TYPE dfies-fieldname
               EXPORTING
                 value(ex_values_tab) LIKE gt_domain_val.
 
  PRIVATE SECTION.
    CLASS-DATA: lt_dfies_tab TYPE STANDARD TABLE OF dfies,
                wa_dfies_tab LIKE LINE OF lt_dfies_tab.
 
ENDCLASS.                    "lcl_alv_routines DEFINITION
 
*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION INHERITING FROM lcl_alv_routines FINAL.
  PUBLIC SECTION.
    METHODS: handle_double_click
               FOR EVENT double_click OF cl_gui_alv_grid
                 IMPORTING
                   e_row
                   e_column,
 
             handle_close
               FOR EVENT close OF cl_gui_dialogbox_container
                 IMPORTING
                   sender,
 
             handle_hotspot_click
               FOR EVENT hotspot_click OF cl_gui_alv_grid
                 IMPORTING
                   e_row_id
                   e_column_id
                   es_row_no,
 
             create_detail_list
               IMPORTING
                 im_column         LIKE gt_column
                 im_status         LIKE gt_status_history
                 im_confirmation   LIKE gt_confirmation.
 
  PRIVATE SECTION.
    CLASS-DATA: o_lcl_alv_routines TYPE REF TO lcl_alv_routines.
ENDCLASS.                    "lcl_event_receiver DEFINITION
 
 
*/ CLASS IMPLEMENTATION/S
*----------------------------------------------------------------------*
*       CLASS lcl_get_data IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_get_data IMPLEMENTATION.
* METHOD get_sales_docs
  METHOD get_sales_docs.
    SELECT vbeln erdat erzet ernam auart vdatu bstnk kunnr
      FROM vbak
      INTO TABLE gt_vbak
     WHERE erdat IN s_erdat
       AND ernam IN s_ernam
       AND auart IN s_auart
       AND vkgrp IN s_vkgrp
       AND kunnr =  p_kunnr.
 
    IF NOT gt_vbak[] IS INITIAL.
      CALL METHOD: me->get_customer_desc,
                       get_delivery_docs,
                       get_so_status,
                       get_billing_docs.
 
      CREATE OBJECT o_lcl_process_data.
      CALL METHOD o_lcl_process_data->combine_data
        EXPORTING
          im_sales_tab = gt_vbak
          im_cust_tab  = gt_kna1
          im_desc_tab  = gt_kna2
          im_dlv_tab   = gt_delivery
          im_bill_tab  = gt_billing
        IMPORTING
          ex_output    = gt_output.
    ELSE.
      MESSAGE i000 WITH text-032.
      LEAVE LIST-PROCESSING.
    ENDIF.
  ENDMETHOD.                    "get_sales_docs
 
* METHOD get_customer_desc
  METHOD get_customer_desc.
    SELECT kunnr name1
      FROM kna1
      INTO TABLE gt_kna1
       FOR ALL ENTRIES IN gt_vbak
     WHERE kunnr = gt_vbak-kunnr.
  ENDMETHOD.                    "get_customer_desc
 
* METHOD get_ship_to_desc
  METHOD get_ship_to_desc.
    SELECT kunnr name1
      FROM kna1
      INTO TABLE gt_kna2
       FOR ALL ENTRIES IN gt_delivery
     WHERE kunnr = gt_delivery-kunnr.
  ENDMETHOD.                    "get_ship_to_desc
 
* METHOD get_delivery_docs
  METHOD get_delivery_docs.
    SELECT lips~vgbel likp~vbeln likp~kunnr
      FROM likp
     INNER JOIN lips
        ON likp~vbeln = lips~vbeln
      INTO TABLE gt_delivery
       FOR ALL ENTRIES IN gt_vbak
     WHERE lips~vgbel = gt_vbak-vbeln.
 
    IF NOT gt_delivery[] IS INITIAL.
      SORT gt_delivery ASCENDING BY: vgbel vbeln kunnr.
      DELETE ADJACENT DUPLICATES FROM gt_delivery COMPARING vgbel vbeln kunnr.
 
*     Get ship-to description
      CALL METHOD me->get_ship_to_desc.
 
*     Get status of delivery documents
      SELECT vbeln kostk fkstk trsta
        FROM vbuk
        INTO TABLE gt_status_do
         FOR ALL ENTRIES IN gt_delivery
       WHERE vbeln = gt_delivery-vbeln.
    ENDIF.
  ENDMETHOD.                    "get_delivery_docs
 
* METHOD get_billing_docs
  METHOD get_billing_docs.
    SELECT vbelv vbtyp_n vbeln
      FROM vbfa
      INTO TABLE gt_billing
       FOR ALL ENTRIES IN gt_delivery
     WHERE vbelv   = gt_delivery-vbeln
       AND vbtyp_n = 'M'.
 
    SORT gt_billing ASCENDING BY: vbelv vbtyp_n vbeln.
    DELETE ADJACENT DUPLICATES FROM gt_billing COMPARING vbelv vbtyp_n vbeln.
  ENDMETHOD.                    "get_billing_docs
 
* METHOD get_so_status
  METHOD get_so_status.
    DATA: lv_curr_so TYPE vbak-vbeln,
          lv_lines   TYPE i.
 
    FIELD-SYMBOLS: <fs_status>    LIKE LINE OF gt_status,
                   <fs_delivery>  LIKE LINE OF gt_delivery,
                   <fs_status_do> LIKE LINE OF gt_status_do.
 
    SELECT vbeln cmgst lfstk
      FROM vbuk
      INTO CORRESPONDING FIELDS OF TABLE gt_status
       FOR ALL ENTRIES IN gt_vbak
     WHERE vbeln = gt_vbak-vbeln.
 
    SORT gt_status_do BY vbeln ASCENDING.
    DESCRIBE TABLE gt_status LINES lv_lines.
    LOOP AT gt_status ASSIGNING <fs_status>.
      IF sy-tabix > lv_lines.
        EXIT.
      ENDIF.
      LOOP AT gt_delivery ASSIGNING <fs_delivery> WHERE vgbel = <fs_status>-vbeln.
        IF lv_curr_so = <fs_delivery>-vgbel.
          wa_status-vbeln = <fs_status>-vbeln.
          wa_status-cmgst = <fs_status>-cmgst.
          wa_status-lfstk = <fs_status>-lfstk.
          READ TABLE gt_status_do ASSIGNING <fs_status_do> WITH KEY vbeln = <fs_delivery>-vbeln
                                                                            BINARY SEARCH.
          IF sy-subrc = 0.
            wa_status-kostk = <fs_status_do>-kostk.
            wa_status-fkstk = <fs_status_do>-fkstk.
            wa_status-trsta = <fs_status_do>-trsta.
          ENDIF.
          APPEND wa_status TO gt_status.
          CLEAR wa_status.
        ELSE.
          READ TABLE gt_status_do ASSIGNING <fs_status_do> WITH KEY vbeln = <fs_delivery>-vbeln
                                                                            BINARY SEARCH.
          <fs_status>-kostk = <fs_status_do>-kostk.
          <fs_status>-fkstk = <fs_status_do>-fkstk.
          <fs_status>-trsta = <fs_status_do>-trsta.
        ENDIF.
        lv_curr_so = <fs_delivery>-vgbel.
      ENDLOOP.
    ENDLOOP.
  ENDMETHOD.                    "get_do_status
ENDCLASS.                    "lcl_get_data IMPLEMENTATION
 
*----------------------------------------------------------------------*
*       CLASS lcl_process_data IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_process_data IMPLEMENTATION.
* METHOD combine_data
  METHOD combine_data.
    FIELD-SYMBOLS: <fs_sales_tab> LIKE LINE OF im_sales_tab,
                   <fs_cust_tab>  LIKE LINE OF im_cust_tab,
                   <fs_desc_tab>  LIKE LINE OF im_desc_tab,
                   <fs_dlv_tab>   LIKE LINE OF im_dlv_tab,
                   <fs_bill_tab>  LIKE LINE OF im_bill_tab.
 
    SORT gt_status BY vbeln ASCENDING.
    LOOP AT im_sales_tab ASSIGNING <fs_sales_tab>.
      CLEAR: lv_flag1, wa_output,lv_vbelv,
             lv_bill_doc, lv_kunnr,
             lv_name1, lv_parvw.
 
      wa_output-creation_date = <fs_sales_tab>-erdat.  "SO creation date
      wa_output-creation_time = <fs_sales_tab>-erzet.  "SO creation time
      wa_output-sales_doc     = <fs_sales_tab>-vbeln.  "Sales document
      wa_output-cust_code     = <fs_sales_tab>-kunnr.  "SO customer code
 
*     Customer description
      READ TABLE im_cust_tab ASSIGNING <fs_cust_tab> WITH KEY kunnr = <fs_sales_tab>-kunnr.
      IF sy-subrc = 0.
        MOVE <fs_cust_tab>-name1 TO: wa_output-cust_desc.    "SO customer description
      ENDIF.
 
      wa_output-po_num       = <fs_sales_tab>-bstnk.   "PO number
      wa_output-doc_type     = <fs_sales_tab>-auart.   "SO document type
      wa_output-req_dlv_date = <fs_sales_tab>-vdatu.   "SO req. delivery date
      wa_output-created_by   = <fs_sales_tab>-ernam.   "SO created by
 
      READ TABLE im_dlv_tab ASSIGNING <fs_dlv_tab> WITH KEY vgbel = <fs_sales_tab>-vbeln.
      IF sy-subrc <> 0.
        CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
          EXPORTING
            input  = 'SH'
          IMPORTING
            output = lv_parvw.
*/Get ship-to party and description based from sales document
* if delivery document is non-existent
        SELECT SINGLE kunnr
          FROM vbpa
          INTO lv_kunnr
         WHERE vbeln = <fs_sales_tab>-vbeln
           AND parvw = lv_parvw.             "Ship-to party
 
        IF sy-subrc = 0.
          SELECT SINGLE name1
            FROM kna1
            INTO lv_name1
           WHERE kunnr = lv_kunnr.
 
          IF sy-subrc = 0.
            wa_output-ship_to_code = lv_kunnr.
            wa_output-ship_to_desc = lv_name1.
          ENDIF.
        ENDIF.
*       Sales order status
        CALL METHOD me->get_status
          EXPORTING
            im_so     = wa_output-sales_doc
          IMPORTING
            ex_status = wa_output-so_status.
 
        APPEND wa_output TO ex_output.
        CLEAR wa_output.
        CONTINUE.
      ENDIF.
 
*     Ship-to code/party and delivery document
      LOOP AT im_dlv_tab ASSIGNING <fs_dlv_tab> WHERE vgbel = <fs_sales_tab>-vbeln.
        CLEAR: lv_flag1.
        wa_output-ship_to_code = <fs_dlv_tab>-kunnr.   "Ship-to code
        wa_output-del_doc      = <fs_dlv_tab>-vbeln.   "Delivery document
 
*       Ship-to description
        READ TABLE im_desc_tab ASSIGNING <fs_desc_tab> WITH KEY kunnr = <fs_dlv_tab>-kunnr.
        IF sy-subrc = 0.
          wa_output-ship_to_desc = <fs_desc_tab>-name1.
        ENDIF.
 
*       Sales order and delivery order status
        CALL METHOD me->get_status
          EXPORTING
            im_so     = wa_output-sales_doc
            im_do     = wa_output-del_doc
          IMPORTING
            ex_status = wa_output-so_status.
 
*       Billing document
        LOOP AT im_bill_tab ASSIGNING <fs_bill_tab> WHERE vbelv   = <fs_dlv_tab>-vbeln
                                                      AND vbtyp_n =  'M'.
          CLEAR lv_flag1.
          IF lv_vbelv    = <fs_bill_tab>-vbelv AND
             lv_bill_doc = <fs_bill_tab>-vbeln.
            CONTINUE.
          ENDIF.
          lv_vbelv    = <fs_bill_tab>-vbelv.
          lv_bill_doc = <fs_bill_tab>-vbeln.
 
          wa_output-bill_doc = <fs_bill_tab>-vbeln.    "Billing document
          MOVE 'X' TO lv_flag1.
          APPEND wa_output TO ex_output.
          CLEAR: wa_output-ship_to_code, wa_output-del_doc,
                 wa_output-so_status, wa_output-bill_doc.
          EXIT.
        ENDLOOP.
 
        IF lv_flag1 = 'X'.
          CONTINUE.
        ELSE.
          APPEND wa_output TO ex_output.
          CLEAR: wa_output-ship_to_code, wa_output-del_doc,
                 wa_output-ship_to_desc, wa_output-so_status.
        ENDIF.
      ENDLOOP.
    ENDLOOP.
 
    SORT ex_output BY sales_doc.
  ENDMETHOD.                    "combine_data
 
* METHOD get_status
  METHOD get_status.
    FIELD-SYMBOLS: <fs_status>    LIKE LINE OF gt_status,
                   <fs_status_do> LIKE LINE OF gt_status_do.
 
*/Check the current stage of a given sales order in descending order
* starting with the shipment status
 
    READ TABLE gt_status_do ASSIGNING <fs_status_do> WITH KEY vbeln = im_do
                                                                      BINARY SEARCH.
    IF sy-subrc = 0.
*     Shipment/dispatch status
      IF <fs_status_do>-trsta = 'B' OR
         <fs_status_do>-trsta = 'C'.
        ex_status = 'SH'.
*     Invoice status
      ELSEIF <fs_status_do>-fkstk = 'B' OR
             <fs_status_do>-fkstk = 'C'.
        ex_status = 'IN'.
*     Picking status
      ELSEIF <fs_status_do>-kostk = 'B' OR
             <fs_status_do>-kostk = 'C'.
        ex_status = 'PS'.
      ENDIF.
    ENDIF.
 
    IF ex_status IS INITIAL.
      READ TABLE gt_status ASSIGNING <fs_status> WITH KEY vbeln = im_so
                                                                  BINARY SEARCH.
      IF sy-subrc = 0.
*       Delivery order status
        IF <fs_status>-lfstk = 'B' OR
           <fs_status>-lfstk = 'C'.
          ex_status = 'DO'.
*       Credit released
        ELSEIF <fs_status>-cmgst = 'A' OR
               <fs_status>-cmgst = 'D'.
          ex_status = 'CR'.
*       Credit hold
        ELSEIF <fs_status>-cmgst = 'B' OR
               <fs_status>-cmgst = 'C'.
          ex_status = 'CH'.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDMETHOD.                    "get_status
ENDCLASS.                    "lcl_process_data IMPLEMENTATION
 
*----------------------------------------------------------------------*
*       CLASS lcl_alv_routines IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_alv_routines IMPLEMENTATION.
* METHOD build_fieldcat
  METHOD build_fieldcat.
    REFRESH: gt_fieldcat.
    CLEAR wa_fieldcat.
 
    DEFINE m_fieldcat.
      add 1 to wa_fieldcat-col_pos.
      wa_fieldcat-fieldname   = &1.
      wa_fieldcat-tabname     = &2.
      wa_fieldcat-coltext     = &3.
      wa_fieldcat-outputlen   = &4.
      wa_fieldcat-fix_column  = &5.
      wa_fieldcat-just        = &6.
      wa_fieldcat-do_sum      = &7.
      wa_fieldcat-emphasize   = &8.
      wa_fieldcat-hotspot     = &9.
      append wa_fieldcat to gt_fieldcat.
    END-OF-DEFINITION.
 
    IF wa_column-fname = 'SO_STATUS'.
      m_fieldcat 'CR_HOLD'         'GT_STATUS_HISTORY'  text-002  '50' 'X' '' '' '' ''.
      m_fieldcat 'CR_REL_ON'       'GT_STATUS_HISTORY'  text-003  '18' 'X' '' '' '' ''.
      m_fieldcat 'CR_REL_AT'       'GT_STATUS_HISTORY'  text-004  '18' 'X' '' '' '' ''.
      m_fieldcat 'DO_CREATED_ON'   'GT_STATUS_HISTORY'  text-005  '13' 'X' '' '' '' ''.
      m_fieldcat 'DO_CREATED_TIME' 'GT_STATUS_HISTORY'  text-030  '15' 'X' '' '' '' ''.
      m_fieldcat 'PICKED_ON'       'GT_STATUS_HISTORY'  text-006  '12' 'X' '' '' '' ''.
      m_fieldcat 'PICKED_TIME'     'GT_STATUS_HISTORY'  text-031  '12' 'X' '' '' '' ''.
      m_fieldcat 'INV_CREATED_ON'  'GT_STATUS_HISTORY'  text-007  '15' 'X' '' '' '' ''.
      m_fieldcat 'DISPATCHED_ON'   'GT_STATUS_HISTORY'  text-008  '13' 'X' '' '' '' ''.
      m_fieldcat 'DISPATCHED_AT'   'GT_STATUS_HISTORY'  text-009  '13' 'X' '' '' '' ''.
    ELSEIF wa_column-fname = 'BILL_DOC'.
      m_fieldcat 'PODAT'          'GT_CONFIRMATION'    text-010  '17' 'X' '' '' '' ''.
      m_fieldcat 'POTIM'          'GT_CONFIRMATION'    text-011  '17' 'X' '' '' '' ''.
    ELSE.
      m_fieldcat 'CREATION_DATE' 'GT_OUTPUT' text-012 '10' 'X' '' '' '' ''.
      m_fieldcat 'CREATION_TIME' 'GT_OUTPUT' text-013 '10' 'X' '' '' '' ''.
      m_fieldcat 'SALES_DOC'     'GT_OUTPUT' text-014 '10' 'X' '' '' 'X' 'X'.
      m_fieldcat 'CUST_CODE'     'GT_OUTPUT' text-015 '16' 'X' '' '' '' ''.
      m_fieldcat 'CUST_DESC'     'GT_OUTPUT' text-016 '40' 'X' '' '' '' ''.
      m_fieldcat 'SHIP_TO_CODE'  'GT_OUTPUT' text-017 '15' 'X' '' '' '' ''.
      m_fieldcat 'SHIP_TO_DESC'  'GT_OUTPUT' text-018 '40' 'X' '' '' '' ''.
      m_fieldcat 'PO_NUM'        'GT_OUTPUT' text-019 '24' 'X' '' '' '' ''.
      m_fieldcat 'DOC_TYPE'      'GT_OUTPUT' text-020 '16' 'X' '' '' '' ''.
      m_fieldcat 'REQ_DLV_DATE'  'GT_OUTPUT' text-021 '21' 'X' '' '' '' ''.
      m_fieldcat 'SO_STATUS'     'GT_OUTPUT' text-022 '09' 'X' '' '' 'C400' ''.
      m_fieldcat 'CREATED_BY'    'GT_OUTPUT' text-023 '13' 'X' '' '' '' ''.
      m_fieldcat 'DEL_DOC'       'GT_OUTPUT' text-024 '18' 'X' '' '' '' ''.
      m_fieldcat 'BILL_DOC'      'GT_OUTPUT' text-025 '11' 'X' '' '' 'C600' ''.
    ENDIF.
  ENDMETHOD.                    "build_fieldcat
 
* METHOD popup_routines
  METHOD popup_routines.
    READ TABLE im_column INDEX 1 INTO wa_column.
    FIELD-SYMBOLS: <fs_status> LIKE LINE OF gt_status.
    DATA: lv_datum TYPE syst-datum,
          lv_uzeit TYPE syst-uzeit.
 
    CLEAR: wa_status_history, lv_datum, lv_uzeit.
    REFRESH gt_status_history.
 
*/Popup routine if user clicked on the SO status
    IF wa_column-fname = 'SO_STATUS'.
      CALL METHOD me->get_domain_values
        EXPORTING
          im_tabname    = 'VBUK'
          im_fieldname  = 'CMGST'
        IMPORTING
          ex_values_tab = gt_domain_val.
 
*     Credit hold
      READ TABLE gt_status ASSIGNING <fs_status> WITH KEY vbeln = im_output-sales_doc.
      IF sy-subrc = 0.
        wa_status_history-cr_hold = <fs_status>-cmgst.
      ENDIF.
 
      READ TABLE gt_domain_val INTO wa_domain_val WITH
                                KEY domvalue_l = wa_status_history-cr_hold
                                TRANSPORTING ddtext.
      IF sy-subrc = 0.
        wa_status_history-cr_hold = wa_domain_val-ddtext.
      ENDIF.
 
*     Credit released date and time
      SELECT SINGLE udate utime
        FROM cdhdr
        INTO (lv_datum, lv_uzeit)
       WHERE objectid = im_output-sales_doc
         AND tcode    = 'VKM3'.
 
      IF sy-subrc = 0.
        WRITE lv_datum TO wa_status_history-cr_rel_on
        USING EDIT MASK '__.__.____'.
        CLEAR lv_datum.
 
        WRITE lv_uzeit TO wa_status_history-cr_rel_at
        USING EDIT MASK '__:__:__'.
        CLEAR lv_uzeit.
      ENDIF.
 
*     DO creation date and time
      IF NOT im_output-del_doc IS INITIAL.
        SELECT SINGLE erdat erzet
          FROM likp
          INTO (lv_datum, lv_uzeit)
         WHERE vbeln = im_output-del_doc.
 
        IF sy-subrc = 0.
          WRITE lv_datum TO wa_status_history-do_created_on
          USING EDIT MASK '__.__.____'.
          CLEAR lv_datum.
 
          WRITE lv_uzeit TO wa_status_history-do_created_time
          USING EDIT MASK '__:__:__'.
          CLEAR lv_uzeit.
        ENDIF.
 
*       Picking date and time
        SELECT SINGLE bdatu bzeit
          FROM ltak
          INTO (lv_datum, lv_uzeit)
         WHERE vbeln = im_output-del_doc.
 
        IF sy-subrc = 0.
          WRITE lv_datum TO wa_status_history-picked_on
          USING EDIT MASK '__.__.____'.
          CLEAR lv_datum.
 
          WRITE lv_uzeit TO wa_status_history-picked_time
          USING EDIT MASK '__:__:__'.
          CLEAR lv_uzeit.
        ENDIF.
      ENDIF.
 
*     Invoice created on
      SELECT SINGLE erdat
        FROM vbrk
        INTO lv_datum
       WHERE vbeln = im_output-bill_doc.
 
      WRITE lv_datum TO wa_status_history-inv_created_on
      USING EDIT MASK '__.__.____'.
      CLEAR lv_datum.
 
*     Dispatched on and dispatched at
      SELECT SINGLE tknum
        FROM vttp
        INTO vttp-tknum
       WHERE vbeln = im_output-del_doc.
 
      IF sy-subrc = 0.
        SELECT SINGLE dtabf uzabf
          FROM vttk
          INTO (lv_datum, lv_uzeit)
         WHERE tknum = vttp-tknum.
 
        WRITE lv_datum TO wa_status_history-dispatched_on
        USING EDIT MASK '__.__.____'.
        CLEAR lv_datum.
 
        WRITE lv_uzeit TO wa_status_history-dispatched_at
        USING EDIT MASK '__:__:__'.
        CLEAR lv_uzeit.
      ENDIF.
 
      APPEND wa_status_history TO gt_status_history.
      ex_status_history[] = gt_status_history[].
      CLEAR wa_status_history.
*/Popup routine if the user clicked on the billing document
    ELSEIF wa_column-fname = 'BILL_DOC'.
      IF NOT im_output-del_doc IS INITIAL.
        SELECT SINGLE podat potim
          FROM likp
          INTO (wa_confirmation-podat, wa_confirmation-potim)
         WHERE vbeln = im_output-del_doc.
 
        APPEND wa_confirmation TO gt_confirmation.
        ex_confirmation[] = gt_confirmation[].
        CLEAR wa_confirmation.
      ENDIF.
    ENDIF.
  ENDMETHOD.                    "popup_routines
 
* METHOD get_domain_values
  METHOD   get_domain_values.
    CALL FUNCTION 'DDIF_FIELDINFO_GET'
      EXPORTING
        tabname              = im_tabname
        fieldname            = im_fieldname
        langu                = sy-langu
*       LFIELDNAME           = ' '
*       ALL_TYPES            = ' '
*       GROUP_NAMES          = ' '
*       UCLEN                =
*     IMPORTING
*       X030L_WA             =
*       DDOBJTYPE            =
*       DFIES_WA             =
*       LINES_DESCR          =
      TABLES
        dfies_tab            = lt_dfies_tab
*       FIXED_VALUES         =
*     EXCEPTIONS
*       NOT_FOUND            = 1
*       INTERNAL_ERROR       = 2
*       OTHERS               = 3
              .
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
 
    READ TABLE lt_dfies_tab INDEX 1 INTO wa_dfies_tab
                                    TRANSPORTING domname.
 
    CALL FUNCTION 'GET_DOMAIN_VALUES'
       EXPORTING
         domname               = wa_dfies_tab-domname
*       TEXT                  = 'X'
*       FILL_DD07L_TAB        = ' '
       TABLES
         values_tab            = ex_values_tab
*       VALUES_DD07L          =
*     EXCEPTIONS
*       NO_VALUES_FOUND       = 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.
  ENDMETHOD.                    "get_domain_values
ENDCLASS.                    "lcl_alv_routines IMPLEMENTATION
 
*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
* METHOD handle_double_click
  METHOD handle_double_click.
    IF e_column = 'SO_STATUS' OR
       e_column = 'BILL_DOC'.
 
      CREATE OBJECT: o_lcl_alv_routines.
      CLEAR: wa_output.
      REFRESH: gt_fieldcat,
               gt_column,
               gt_status_history,
               gt_confirmation.
 
      MOVE: e_column-fieldname TO wa_column-fname,
            e_column-hierlevel TO wa_column-level.
 
      APPEND wa_column TO gt_column.
 
*     Get record based on what the user clicked
      READ TABLE gt_output INDEX e_row-index INTO wa_output.
 
*     Build fieldcatalog depending on what the user clicked
      CALL METHOD o_lcl_alv_routines->build_fieldcat.
 
*     Call popup routine/s
      CALL METHOD o_lcl_alv_routines->popup_routines
        EXPORTING
          im_column         = gt_column
          im_output         = wa_output
        IMPORTING
          ex_status_history = gt_status_history
          ex_confirmation   = gt_confirmation.
 
      CALL METHOD me->create_detail_list
        EXPORTING
          im_column       = gt_column
          im_status       = gt_status_history
          im_confirmation = gt_confirmation.
    ENDIF.
  ENDMETHOD.                    "handle_double_click
 
* METHOD handle_close
  METHOD handle_close.
    CALL METHOD sender->set_visible
      EXPORTING
        visible = space.
  ENDMETHOD.                    "handle_close
 
* METHOD handle_hotspot_click
  METHOD handle_hotspot_click.
    READ TABLE gt_output INDEX e_row_id INTO wa_output.
    IF NOT wa_output-sales_doc IS INITIAL
       AND e_column_id = 'SALES_DOC'.
      SET PARAMETER ID 'AUN' FIELD wa_output-sales_doc.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
    ENDIF.
 
  ENDMETHOD.                    "handle_hotspot_click
 
* METHOD create_detail_list
  METHOD create_detail_list.
    DATA: lv_caption(200) TYPE c.
    CLEAR wa_column.
 
*   Create popup window
    CREATE OBJECT dialogbox_container
        EXPORTING
          top = 100
          left = 150
          lifetime = cntl_lifetime_dynpro
          caption = lv_caption
          width = 800
          height = 200.
    CREATE OBJECT grid2
        EXPORTING i_parent = dialogbox_container.
 
*   Trigger event when user closes the popup window
    SET HANDLER event_receiver->handle_close FOR dialogbox_container.
 
    READ TABLE im_column INDEX 1 INTO wa_column.
 
*   Display popup window
    IF wa_column-fname = 'SO_STATUS'.
      gs_layout-grid_title = text-026.
      CALL METHOD grid2->set_table_for_first_display
       EXPORTING
*        i_structure_name = 'T_OUTPUT'
         is_layout        = gs_layout
       CHANGING
         it_outtab        = gt_status_history
         it_fieldcatalog  = gt_fieldcat.
    ELSEIF wa_column-fname = 'BILL_DOC'.
      gs_layout-grid_title = text-027.
      CALL METHOD grid2->set_table_for_first_display
       EXPORTING
*        i_structure_name = 'T_OUTPUT'
         is_layout        = gs_layout
       CHANGING
         it_outtab        = gt_confirmation
         it_fieldcatalog  = gt_fieldcat.
    ENDIF.
    CALL METHOD cl_gui_control=>set_focus
      EXPORTING
        control = grid2.
  ENDMETHOD.                    "create_detail_list
 
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
 
*----------------------------------------------*
* START-OF-SELECTION                           *
*----------------------------------------------*
START-OF-SELECTION.
  DATA: o_lcl_get_data TYPE REF TO lcl_get_data.
 
  CREATE OBJECT o_lcl_get_data.
  CALL METHOD o_lcl_get_data->get_sales_docs.
 
*----------------------------------------------*
* END-OF-SELECTION                             *
*----------------------------------------------*
END-OF-SELECTION.
  CALL SCREEN 100.
 
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS '100'.
  SET TITLEBAR  'TITLE100'.
 
  DATA: o_lcl_alv_routines TYPE REF TO lcl_alv_routines,
        gv_text            TYPE string,
        gv_name1           TYPE kna1-name1,
        gv_date_low(10)    TYPE c,
        gv_date_high(10)   TYPE c.
 
  CREATE OBJECT o_lcl_alv_routines.
 
  g_repid = sy-repid.
  IF custom_container IS INITIAL.
    CREATE OBJECT custom_container
      EXPORTING
        container_name = gv_container
      EXCEPTIONS
        cntl_error = 1
        cntl_system_error = 2
        create_error = 3
        lifetime_error = 4
        lifetime_dynpro_dynpro_link = 5.
 
    IF sy-subrc NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = g_repid
          txt2  = sy-subrc
          txt1  = text-028.
    ENDIF.
 
    CREATE OBJECT grid1
      EXPORTING
        i_parent = custom_container.
 
*   Build fieldcatalog for initial display
    CALL METHOD o_lcl_alv_routines->build_fieldcat.
 
    SELECT SINGLE name1
      FROM kna1
      INTO gv_name1
     WHERE kunnr = p_kunnr.
 
    WRITE: s_erdat-low  TO gv_date_low  USING EDIT MASK '__.__.____',
           s_erdat-high TO gv_date_high USING EDIT MASK '__.__.____'.
 
    CONCATENATE: gv_name1 'from:' gv_date_low '-' gv_date_high
           INTO gv_text
      SEPARATED BY space.
 
    gs_layout-grid_title = gv_text.
 
*   Display initial window
    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
*        i_structure_name = ''
        is_layout        = gs_layout
      CHANGING
        it_outtab        = gt_output
        it_fieldcatalog  = gt_fieldcat.
 
    CREATE OBJECT event_receiver.
 
*   Trigger event when user double clicks initial window
    SET HANDLER event_receiver->handle_double_click FOR grid1.
 
*   Trigger event when user clicks hotspot field
    SET HANDLER event_receiver->handle_hotspot_click FOR grid1.
 
  ENDIF.
 
  CALL METHOD cl_gui_control=>set_focus
    EXPORTING
      control = grid1.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CASE save_ok.
    WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      CALL METHOD custom_container->free.
      CALL METHOD cl_gui_cfw=>flush.
      IF sy-subrc <> 0.
        CALL FUNCTION 'POPUP_TO_INFORM'
          EXPORTING
            titel = g_repid
            txt2  = sy-subrc
            txt1  = text-029.
      ENDIF.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

Reward all helpfulla nswers

Regards

Pavan

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:33:52 GMT

HI PAVAN

Thanx for ur response.

BOSS im looking for only small sample code...not a lengthy one.

i have a field by name wadat_ist ..which is a goods issue date..

i have to convert that date into dd.mm.yyyy formatt...

regards

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:41:36 GMT

use the

date like sy-datum

rewrad if usefull

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:42:20 GMT

Hi Jack

To convert date try like this


FORM CONVERT-DATE.
 
  SELECT SINGLE * FROM USR01 WHERE BNAME = SY-UNAME.
  CASE USR01-DATFM.
   WHEN '1' OR '2' OR '3'.   "JJ.MM.AAAA
     WA_JJ    = SY-DATUM(2).
     WA_MM    = SY-DATUM+2(2).
     WA_AAAA  = SY-DATUM+4(4).
   WHEN '4' OR '5' OR '6'.  " AAAA.MM.JJ
      WA_JJ    = SY-DATUM+6(2).
      WA_MM    = SY-DATUM+4(2).
      WA_AAAA  = SY-DATUM(4).
     ENDCASE.
ENDFORM.

Or without using any function module u can perform in this way also

  start-of-selection.
data: lv_date type sy-datum.

data: lv_formatdate(10) type c.


data: var1(4) type c,

var2(2) type c,

var3(2) type c.


lv_date = sy-datum.
var1 = lv_date+(4).
var2 = lv_date+4(2).
var3 = lv_date+6(2).

concatenate var3 var2 var1 into lv_formatdate separated by '.'.

Check this link for using different FM for converting date format

http://sap4.com/contentid-130.html

Reward all helpfull answers

Regarsd

Pavan

Re: DATE PROBLEM IN ALV??

Pawan_Kesari — Wed, 08 Aug 2007 11:54:05 GMT

Check fieldcatelog for that column. Fill following values

fieldcat-ref_fieldname = 'DATUM' .
fieldcat-ref_tabname = 'SYST' .

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 11:59:13 GMT

Hi,

DATA: V_PERIOD(40).

CONCATENATE wadat_ist -LOW6(2) '.' wadat_ist -LOW4(2) '.'

wadat_ist -LOW(4) INTO V_PERIOD SEPARATED BY SPACE.

REFRESH ITHED.

CLEAR SHED.

SHED-TYP = 'H1'.

SHED-INFO = 'Report XYZ'.

APPEND SHED TO ITHED.

CLEAR SHED.

SHED-TYP = 'A'.

SHED-INFO = V_PERIOD.

APPEND SHED TO ITHED.

CLEAR SHED.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = ITHED.

I_LOGO =
I_END_OF_LIST_GRID =

ENDFORM.

Hope this helps.

reward if helpful.

Regards,

Sipra

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 12:00:45 GMT

HI PAWAN,

THANX ALOTT.

GOT SOLVED...

I HAVE ONE MORE QUERY..

and that is...

for a particular field the values are 0 for a particular sales order no. f

and 0,00 for another sales order no for the same field..

i dont want 0,00 ..how to do that??

regards,

jack

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 12:05:10 GMT

Hi,

do this in fledcat:

MOVE 'X' TO WA_FIELDCAT-NO_ZERO.

Regards, Dieter

Re: DATE PROBLEM IN ALV??

Former Member — Wed, 08 Aug 2007 12:27:56 GMT

Use like this

SHIFT ITab-matnr LEFT DELETING LEADING '0'.

Reward all helpfull answers

Regards

Pavan