08-08-2007 12:09 PM
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
08-08-2007 12:11 PM
use WRITE TO .............. EDIT MASK to change the date format
Sameer
08-08-2007 12:11 PM
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
08-08-2007 12:23 PM
Hi
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
08-08-2007 12:33 PM
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
08-08-2007 12:59 PM
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.
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
08-08-2007 12:41 PM
08-08-2007 12:42 PM
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
08-08-2007 12:54 PM
Check fieldcatelog for that column. Fill following values
fieldcat-ref_fieldname = 'DATUM' .
fieldcat-ref_tabname = 'SYST' .
08-08-2007 1:00 PM
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
08-08-2007 1:05 PM
Hi,
do this in fledcat:
MOVE 'X' TO WA_FIELDCAT-NO_ZERO.
Regards, Dieter
08-08-2007 1:27 PM
Hi
Use like this
SHIFT ITab-matnr LEFT DELETING LEADING '0'.
Reward all helpfull answers
Regards
Pavan