Exclude Output Type of Rejected SO

Hi,
How can I exlcude output types in the sales order header (Extra ->Output->Header->Edit) when the sales order is rejected? Is there any user exit for this?
Regards,
Mawi

Check this Link purchase order as email - SAPMM06E and TEXT_SYMBOL_REPLACE
it will be helpful for you.
Regards,
S Anand

Similar Messages

Output type for the managed codes cut letter is hard coded

Hello,
Very Good afternoon!
I have a requirement to create new Output Types for a Smart Form.
The already existing Output types are hard coded as shown Below :
CONSTANTS : c_kschl_order LIKE nast-kschl
 VALUE 'ZUS0',
 c_kschl_order1 LIKE nast-kschl
 VALUE 'ZUS1',
Now they do not want to use ZUS1. Insted they wnat to use New Output Types.
u2022 Remove ZUS1 as we no longer use this one.
u2022 Add ZAU0
u2022 Add ZNZ0
u2022 Add ZJP0
u2022 Add ZCN0
u2022 Add ZKR0
How to add these Output types without Hardcoding as shown ABove.
Any Suggestions will be appreciated.....
For reference..I will paste the code of the Program here.
Here is the code :
 PROGRAM DECLARATION
PROGRAM ID Z_RVADOR01_SALES_CUT_LETTER
TABLES: vbak, "Sales Document: Header Data
 vbap, "Sales Document: Item Data
 vbpa, "Sales Document: Partner
 vbep, "Sales Document: Schedule Line Data
 kna1, "General Data in Customer Master
 MARA, "Material Master
 KOMK, "Communicationarea for conditions
 KOMP, "Communicationarea for conditions
 KOMVD, "Communicationarea for conditions
 VBCO3, "Communicationarea for view
 VBDKA, "Headerview
 VBDPA, "Itemview
 VBDPAU, "Subitemnumbers
 CONF_OUT, "Configuration data
 SADR, "Addresses
 TVAG, "Reason for rejection
 VEDKA, "Servicecontract head data
 VEDPA, "Servicecontract position data
 VEDKN, "Servicecontract head notice data
 VEDPN, "Servicecontract pos. notice data
 RISERLS, "Serialnumbers
 KOMSER, "Serialnumbers for print
 TVBUR, "Sales office
 TVKO, "Sales organisation
 ADRS, "Communicationarea for Address
 FPLTDR, "billing schedules
 WTAD_ADDIS_IN_SO_PRINT, "additional
 WTAD_BUYING_PRINT_EXTRA_TEXT, "texts belonging to additional
 adrc,
 adr6,
 t247.
INCLUDE RVADTABL.
INCLUDE RVDIREKT.
INCLUDE VEDADATA.
data for access to central address maintenance
INCLUDE SDZAVDAT.
TYPE-POOLS: ADDI.
DATA PRICE_PRINT_MODE(1) TYPE C. "Print-mode
DATA: RETCODE LIKE SY-SUBRC. "Returncode
DATA: REPEAT(1) TYPE C.
DATA: XSCREEN(1) TYPE C. "Output on printer or screen
DATA: BEGIN OF STEU, "Controldata for output
 VDKEX(1) TYPE C,
 VDPEX(1) TYPE C,
 KBKEX(1) TYPE C,
 KBPEX(1) TYPE C,
 END OF STEU.
DATA: BEGIN OF TVBDPA OCCURS 0. "Internal table for items
 INCLUDE STRUCTURE VBDPA.
DATA: END OF TVBDPA.
DATA: BEGIN OF TKOMV OCCURS 50.
 INCLUDE STRUCTURE KOMV.
DATA: END OF TKOMV.
DATA: BEGIN OF TKOMVD OCCURS 50.
 INCLUDE STRUCTURE KOMVD.
DATA: END OF TKOMVD.
DATA: BEGIN OF TVBDPAU OCCURS 5.
 INCLUDE STRUCTURE VBDPAU.
DATA: END OF TVBDPAU.
DATA: BEGIN OF TKOMCON OCCURS 50.
 INCLUDE STRUCTURE CONF_OUT.
DATA: END OF TKOMCON.
DATA: BEGIN OF TKOMSERVH OCCURS 1.
 INCLUDE STRUCTURE VEDKA.
DATA: END OF TKOMSERVH.
DATA: BEGIN OF TKOMSERVP OCCURS 5.
 INCLUDE STRUCTURE VEDPA.
DATA: END OF TKOMSERVP.
DATA: BEGIN OF TKOMSERVHN OCCURS 5.
 INCLUDE STRUCTURE VEDKN.
DATA: END OF TKOMSERVHN.
DATA: BEGIN OF TKOMSERVPN OCCURS 5.
 INCLUDE STRUCTURE VEDPN.
DATA: END OF TKOMSERVPN.
DATA: BEGIN OF TKOMSER OCCURS 5.
 INCLUDE STRUCTURE RISERLS.
DATA: END OF TKOMSER.
DATA: BEGIN OF TKOMSER_PRINT OCCURS 5.
 INCLUDE STRUCTURE KOMSER.
DATA: END OF TKOMSER_PRINT.
DATA: BEGIN OF TFPLTDR OCCURS 5.
 INCLUDE STRUCTURE FPLTDR.
DATA: END OF TFPLTDR.
DATA: TADDI_PRINT TYPE ADDI_SO_PRINT_ITAB WITH HEADER LINE.
TYPES:BEGIN OF ty_orders ,
 xblnr LIKE mkpf-xblnr, "delivery number
 erfmg LIKE mseg-erfmg, "goods issue quantity
 custname LIKE kna1-name1, "customer name
 bstnk LIKE vbak-bstnk, "purchase order number
 ean11 LIKE vbap-ean11, "upc
 kdmat LIKE vbap-kdmat, "customer material code
 arktx LIKE vbap-arktx, "description
 csrno LIKE kna1-kunnr, "customer service rep number
 spras LIKE kna1-spras, "customer language key
 csrname LIKE kna1-name1, "customer service rep name
 csremail LIKE adr6-smtp_addr, "csr email
 csrphone LIKE kna1-telf1, "csr telephone
 csrext LIKE adrc-tel_extens, "csr extension
 csrfax LIKE kna1-telfx, "csr fax
 total LIKE lips-lfimg, "cut quantity
 ldate(18) TYPE c,
 END OF ty_orders.
CONSTANTS: c_kschl_order LIKE nast-kschl
 VALUE 'ZUS0',
 c_kschl_order1 LIKE nast-kschl
 VALUE 'ZUS1', c_parvw_shipto LIKE vbpa-parvw
 VALUE 'WE',
 c_parvw_csr LIKE vbpa-parvw
 VALUE 'ZS',
 c_eng(1) TYPE c VALUE 'E',
 c_sep(1) TYPE c VALUE '/',
 c_sale(25) type c VALUE 'Sales Order'.
DATA: WA_VBAK TYPE VBAK,
 tbl_ord TYPE ty_orders OCCURS 0 WITH HEADER LINE,
 w_csrname(30) TYPE c,
 w_csrno(30) TYPE c,
 w_email LIKE adr6-smtp_addr,
 f_shipto_found TYPE c,
 w_custname(30) TYPE c,
 w_month(2),
 w_ldate(18),
 w_total LIKE lips-lfimg,
 w_lines TYPE i VALUE 0,
 f_mail(1) TYPE c,
 cnt_1 TYPE i VALUE 0,
 cnt_2 TYPE i VALUE 0,
 tbl_otf LIKE itcoo OCCURS 0 WITH HEADER LINE,
 w_type(25) TYPE c,
 st_doc_data LIKE sodocchgi1,
 tbl_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 tbl_line LIKE tline OCCURS 0 WITH HEADER LINE,
 tbl_attach LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 tbl_objhead LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 tbl_proc_para LIKE soparai1 OCCURS 10 WITH HEADER LINE,
 tbl_maillist LIKE somlreci1 OCCURS 10 WITH HEADER LINE,
 tbl_pack_list LIKE sopcklsti1 OCCURS 10 WITH HEADER LINE,
 tbl_cpo LIKE itcpo OCCURS 0 WITH HEADER LINE,"SAPscript output
 " interface
 tbl_cpp LIKE itcpp OCCURS 0 WITH HEADER LINE,"SAPscript output
 " parameters
 tbl_smtp TYPE szadr_adsmtp_line OCCURS 0 WITH HEADER LINE,
 tbl_cdhdpos LIKE cdshw OCCURS 0 WITH HEADER LINE,
 tbl_cdpos LIKE cdshw OCCURS 0 WITH HEADER LINE,
 wrk_lines LIKE sy-tabix,
 hltlines TYPE i,
 off1 TYPE p,
 fle1(2) TYPE p,
 fle2(2) TYPE p,
 htabix LIKE sy-tabix,
 hfeld(500) TYPE c.
FORM ENTRY USING RETURN_CODE US_SCREEN.
if sy-tcode = 'VA01'.
IF nast-kschl = c_kschl_order.
SELECT SINGLE * FROM VBAK INTO WA_VBAK WHERE vbeln = nast-objky.
IF SY-SUBRC = 0.
CLEAR RETCODE.
XSCREEN = US_SCREEN.
PERFORM PROCESSING USING us_screen.
IF RETCODE NE 0.
 RETURN_CODE = 1.
ELSE.
 RETURN_CODE = 0.
ENDIF.
 ELSE.
 retcode = sy-subrc.
 syst-msgid = 'ZVERROR'.
 syst-msgno = '000'.
 syst-msgty = 'E'.
 syst-msgv1 = NAST-KSCHL.
 syst-msgv1 = 'Sales Order cut letter
 for this order already issued'.
 syst-msgv2 = ' '.
 PERFORM protocol_update.
 ENDIF.
ELSE.
 CLEAR retcode.
 xscreen = us_screen.
 PERFORM processing USING us_screen.
 IF retcode NE 0.
 return_code = 1.
 ELSE.
 return_code = 0.
 ENDIF.
ENDIF.
endif.
ENDFORM.
 FORM PROCESSING *
FORM PROCESSING USING proc_screen.
CASE nast-kschl.
 WHEN c_kschl_order.
 PERFORM get_orders.
 CHECK retcode = 0.
 PERFORM openform USING proc_screen vbak-landtx.
 CHECK retcode = 0.
 PERFORM layout.
 CHECK retcode = 0.
 CHECK proc_screen NE 'X'.
 w_type = c_sale.
 PERFORM send_email USING proc_screen.
WHEN c_kschl_order1.
 PERFORM get_orders.
 CHECK retcode = 0.
 CHECK proc_screen NE 'X'.
 w_type = c_sale.
 PERFORM send_email USING proc_screen.
 WHEN OTHERS.
 retcode = 1.
 syst-msgid = 'E0'.
 syst-msgno = '430'.
 syst-msgty = 'E'.
 PERFORM protocol_update.
ENDCASE.
IF retcode EQ 0.
 syst-msgid = '69'.
 syst-msgno = '254'.
 syst-msgty = 'S'.
 syst-msgv1 = nast-kschl.
 PERFORM protocol_update.
ELSE.
 syst-msgid = 'CKCC'.
 syst-msgno = '036'.
 syst-msgty = 'E'.
 PERFORM protocol_update.
ENDIF.
ENDFORM.
 FORM PROTOCOL_UPDATE *
 The messages are collected for the processing protocol. *
FORM PROTOCOL_UPDATE.
IF xscreen EQ space.
 CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
 EXPORTING
 MSG_ARBGB = SYST-MSGID
 MSG_NR = SYST-MSGNO
 MSG_TY = SYST-MSGTY
 MSG_V1 = SYST-MSGV1
 MSG_V2 = SYST-MSGV2
 MSG_V3 = SYST-MSGV3
 MSG_V4 = SYST-MSGV4
 EXCEPTIONS
 OTHERS = 1.
 ELSE.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ENDFORM.
*& Form get_orders
 text
--> p1 text
<-- p2 text
FORM get_orders.
DATA : f_csr_found TYPE c.
SELECT SINGLE vbeln vkorg vdatu bstnk kunnr
 FROM vbak
 INTO (vbak-vbeln,vbak-vkorg,vbak-vdatu,vbak-bstnk,vbak-kunnr)
 WHERE vbeln EQ nast-objky.
IF sy-subrc NE 0.
 retcode = sy-subrc.
 syst-msgid = 'VN'.
 syst-msgno = '203'.
 syst-msgty = 'E'.
 syst-msgv1 = 'VBAK'.
 syst-msgv2 = sy-subrc.
 PERFORM protocol_update.
ENDIF.
SELECT vbeln posnr matnr pmatn arktx abgru kdmat werks
FROM vbap
INTO (vbap-vbeln,vbap-posnr,vbap-matnr,vbap-pmatn,
vbap-arktx,vbap-abgru,vbap-kdmat,vbap-werks)
WHERE vbeln = vbak-vbeln
AND abgru NE space "select items havng Rejection Reason
and PSTYV NE 'ZHDR'.
to check whether the reason for rejection was picked from the
managed codes tables
data: war_abgru type abgru,
 w_exist type c.
clear : war_abgru, w_exist.
select single abgru from ZMAT_REJ002
 into war_abgru
 where vkorg = vbak-vkorg
 and kunnr <> vbak-kunnr
 and MATNR = vbap-matnr
 and datef <= vbak-vdatu
 and datet >= vbak-vdatu.
 if sy-subrc <> 0.
 select single abgru from ZMAT_REJ003
 into war_abgru
 where vkorg = vbak-vkorg
 and kunnr <> vbak-kunnr
 and MATNR = vbap-matnr
 and datef <= vbak-vdatu
 and datet >= vbak-vdatu.
 if sy-subrc <> 0.
 select single abgru from ZMAT_REJ001
 into war_abgru
 where vkorg = vbak-vkorg
 and werks <> vbap-werks
 and matnr = vbap-matnr
 and datef <= vbak-vdatu
 and datet >= vbak-vdatu.
 if sy-subrc <> 0.
 select single abgru from ZMAT_REJ004
 into war_abgru
 where vkorg = vbak-vkorg
 and matnr = vbap-matnr
 and datef >= vbak-vdatu
 and datet <= vbak-vdatu.
 if sy-subrc <> 0.
 else.
 w_exist = 'X'.
 endif.
 else.
 w_exist = 'X'.
 endif.
 else.
 w_exist = 'X'.
 endif.
 else.
 w_exist = 'X'.
 endif.
if w_exist = 'X'.
end for check from managed codes table
*to find the quantity fields
 SELECT SINGLE wmeng bmeng
 FROM vbep
 INTO (vbep-wmeng,vbep-bmeng)
 WHERE vbeln EQ vbap-vbeln
 AND posnr EQ vbap-posnr.
*to get info about the customer
 SELECT SINGLE kunnr
 FROM vbpa
 INTO vbpa-kunnr
 WHERE vbeln EQ vbak-vbeln
 AND parvw EQ c_parvw_shipto.
 IF sy-subrc EQ 0.
 f_shipto_found = 'X'.
 SELECT SINGLE name1 spras
 FROM kna1
 INTO (kna1-name1,kna1-spras)
 WHERE kunnr EQ vbpa-kunnr.
 IF sy-subrc EQ 0.
 w_custname = kna1-name1.
 CLEAR kna1-name1.
 ENDIF.
 ENDIF.
 SELECT SINGLE kunnr
 FROM vbpa
 INTO vbpa-kunnr
 WHERE vbeln EQ vbak-vbeln
 AND parvw EQ c_parvw_csr.
 IF SY-SUBRC EQ 0.
 f_csr_found = 'X'.
 SELECT SINGLE kunnr name1 name2 adrnr
 FROM kna1
 INTO (kna1-kunnr,kna1-name1,kna1-name2,
 kna1-adrnr)
 WHERE kunnr EQ vbpa-kunnr.
 IF sy-subrc EQ 0.
 w_csrno = kna1-kunnr.
 w_csrname = kna1-name1.
 CLEAR kna1-name1.
 SELECT SINGLE tel_number tel_extens fax_number
 FROM adrc
 INTO (adrc-tel_number,adrc-tel_extens,
 adrc-fax_number)
 WHERE addrnumber EQ kna1-adrnr.
 CLEAR: adr6, w_email.
 SELECT SINGLE * FROM adr6 WHERE addrnumber = kna1-adrnr.
 IF sy-subrc = 0.
 w_email = adr6-smtp_addr.
 ENDIF.
 ENDIF.
 ENDIF.
*to get the date format in french
 IF kna1-spras NE c_eng.
 w_month = sy-datum+4(2).
 SELECT SINGLE ltx
 FROM t247
 INTO t247-ltx
 WHERE spras EQ kna1-spras
 AND mnr EQ w_month.
 CONCATENATE sy-datum+6(2)
 t247-ltx
 sy-datum+0(4)
 INTO w_ldate
 SEPARATED BY space.
 ELSE.
 CONCATENATE sy-datum+4(2)
 sy-datum+6(2)
 sy-datum+0(4)
 INTO w_ldate
 SEPARATED BY c_sep.
 ENDIF.
 w_total = vbep-wmeng - vbep-bmeng.
 IF w_total GT 0.
 PERFORM fill_orders.
 ELSE.
 IF vbap-abgru NE space.
 w_total = vbep-wmeng.
 PERFORM fill_orders.
 ENDIF.
 ENDIF.
 CLEAR vbap.
 endif. " check for w_exist for Managed Codes entry
ENDSELECT.
IF tbl_ord[] IS INITIAL.
 retcode = 1.
 syst-msgid = 'FZ'.
 syst-msgno = '027'.
 syst-msgty = 'E'.
 PERFORM protocol_update.
ENDIF.
IF f_csr_found IS INITIAL.
 syst-msgid = '8B'.
 syst-msgno = '127'.
 syst-msgty = 'W'.
 syst-msgv1 = c_parvw_csr.
 PERFORM protocol_update.
ENDIF.
IF f_shipto_found IS INITIAL.
 syst-msgid = '8B'.
 syst-msgno = '127'.
 syst-msgty = 'W'.
 syst-msgv1 = c_parvw_shipto.
 PERFORM protocol_update.
ENDIF.
ENDFORM. " get_orders
*& Form layout
 text
--> p1 text
<-- p2 text
FORM layout.
SORT tbl_ord BY bstnk kdmat.
LOOP AT tbl_ord.
 AT FIRST.
 PERFORM writeform_text.
 ENDAT.
 PERFORM writeform.
 AT LAST.
 PERFORM writeform_footer.
 ENDAT.
ENDLOOP.
CLEAR : cnt_1,cnt_2.
PERFORM closeform.
ENDFORM. " layout
*& Form openform
 text
FORM openform USING us_screen us_country.
DESCRIBE TABLE tbl_ord LINES w_lines.
IF w_lines EQ 0.
 retcode = '1'.
 syst-msgid = 'FE'.
 syst-msgno = '078'.
 syst-msgty = 'E'.
 PERFORM protocol_update.
ENDIF.
CHECK retcode EQ 0.
INCLUDE zrvadopfo.
ENDFORM. " openform
*& Form send_email
 text
 -->P_PROC_SCREEN text
FORM send_email USING PROC_SCREEN.
f_mail = 'X'.
PERFORM openform USING proc_screen vbak-landtx.
LOOP AT tbl_ord.
 AT FIRST.
 PERFORM writeform_text.
 ENDAT.
 PERFORM writeform.
 AT LAST.
 PERFORM writeform_footer.
 ENDAT.
ENDLOOP.
CLEAR cnt_2.
PERFORM closeform.
CALL FUNCTION 'CONVERT_OTF'
 EXPORTING
 format = 'PDF' "'ASCII'
 IMPORTING
 bin_filesize = st_doc_data-doc_size
 TABLES
 otf = tbl_otf
 lines = tbl_line
 EXCEPTIONS "DEVK912166
 err_max_linewidth = 1
 err_format = 2
 err_conv_not_possible = 3
 OTHERS = 4.
IF sy-subrc NE 0.
 retcode = sy-subrc.
 syst-msgid = 'OA'. "DEVK912166
 syst-msgno = '186'. "DEVK912166
 syst-msgty = 'E'. "DEVK912166
 PERFORM protocol_update.
ENDIF.
REFRESH tbl_objtxt.
CLEAR tbl_objtxt.
CLEAR tbl_proc_para.
REFRESH tbl_proc_para.
CLEAR tbl_maillist.
REFRESH tbl_maillist.
CLEAR tbl_pack_list.
REFRESH tbl_pack_list.
st_doc_data-obj_name = 'Sales Order Cut Letter'.
st_doc_data-obj_langu = 'E'. "DEVK905849
st_doc_data-sensitivty = 'F'. "DEVK905849
st_doc_data-obj_prio = 1. "DEVK905849
CONCATENATE w_type 'Cut Letter' INTO "#EC NOTEXT
 st_doc_data-obj_descr SEPARATED BY space.
DATA w_line(3) TYPE c.
PERFORM format_pdf. "DEVK905849
concatenate VBAK-VBELN '.PDF' into tbl_objhead.
tbl_objhead = 'Sales Order Cut Letter.PDF'.
APPEND tbl_objhead.
 "DEVK905849
CLEAR wrk_lines.
DESCRIBE TABLE tbl_attach LINES wrk_lines.
fields needed for email
tbl_maillist-com_type = 'INT'.
tbl_maillist-receiver = w_email.
tbl_maillist-rec_type = 'U'.
APPEND tbl_maillist.
send email
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
 STARTING NEW TASK 'MAIL'
 EXPORTING
 document_data = st_doc_data
 document_type = 'PDF'
 COMMIT_WORK = 'X' " added after ECC6.0 upgrade
 TABLES
 object_header = tbl_objhead
 object_content = tbl_objtxt
 receivers = tbl_maillist
 EXCEPTIONS "DEVK912166
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4
 parameter_error = 5
 x_error = 6
 enqueue_error = 7
 OTHERS = 8
IF sy-subrc NE 0.
 retcode = sy-subrc.
 syst-msgid = 'ZA_G'. "DEVK912166
 syst-msgno = '922'. "DEVK912166
 syst-msgty = 'E'. "DEVK912166
 syst-msgv1 = sy-subrc. "DEVK912166
 syst-msgv2 = tbl_smtp-adsmtp-smtp_addr. "DEVK912166
 PERFORM protocol_update.
 syst-msgid = 'VW'.
 syst-msgno = '001'.
 syst-msgty = 'E'.
 syst-msgv1 = 'Print successful:email Recepient Invalid'."#EC NOTEXT
 PERFORM protocol_update.
ENDIF.
ENDFORM. " send_email
*& Form fill_orders
 text
--> p1 text
<-- p2 text
FORM fill_orders.
tbl_ord-bstnk = vbak-bstnk.
tbl_ord-kdmat = vbap-kdmat.
tbl_ord-xblnr = vbak-vbeln.
tbl_ord-ean11 = vbap-pmatn.
tbl_ord-arktx = vbap-arktx.
tbl_ord-csrno = w_csrno .
tbl_ord-csremail = w_email.
tbl_ord-spras = kna1-spras .
tbl_ord-csrphone = adrc-tel_number.
tbl_ord-csrfax = adrc-fax_number.
tbl_ord-csrext = adrc-tel_extens.
tbl_ord-total = w_total.
tbl_ord-custname = w_custname.
tbl_ord-csrname = w_csrname .
tbl_ord-ldate = w_ldate.
APPEND tbl_ord.
CLEAR tbl_ord.
CLEAR w_total.
CLEAR w_ldate.
ENDFORM. " fill_orders
*& Form writeform_text
 text
--> p1 text
<-- p2 text
FORM writeform_text.
CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'WTEXT'
 window = 'WINDOW2'
 EXCEPTIONS
 element = 1
 window = 2.
IF sy-subrc NE 0.
 retcode = sy-subrc.
 syst-msgid = 'EBR'.
 syst-msgno = '056'.
 syst-msgty = 'E'.
 syst-msgv1 = 'WTEXT'.
 syst-msgv2 = 'WINDOW2'.
 PERFORM protocol_update.
ENDIF.
ENDFORM. " writeform_text
*& Form writeform
 text
--> p1 text
<-- p2 text
FORM writeform.
CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'EMAIN'
 window = 'MAIN'
 EXCEPTIONS
 element = 1
 window = 2.
IF sy-subrc NE 0.
 retcode = sy-subrc.
 syst-msgid = 'EBR'.
 syst-msgno = '056'.
 syst-msgty = 'E'.
 syst-msgv1 = 'WTEXT'.
 syst-msgv2 = 'WINDOW2'.
 PERFORM protocol_update.
ENDIF.
ENDFORM. " writeform
*& Form writeform_footer
 text
--> p1 text
<-- p2 text
FORM writeform_footer.
IF nast-spras = 'N'.
 CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'FOOTER'
 window = 'MAIN'
 EXCEPTIONS
 element = 1
 window = 2.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
 EXPORTING
 element = 'WFOOTER'
 window = 'WINDOW12'
 EXCEPTIONS
 element = 1
 window = 2.
IF sy-subrc NE 0.
 retcode = sy-subrc.
 syst-msgid = 'EBR'.
 syst-msgno = '056'.
 syst-msgty = 'E'.
 syst-msgv1 = 'WFOOTER'.
 syst-msgv2 = 'WINDOW12'.
 PERFORM protocol_update.
ENDIF.
ENDFORM. " writeform_footer
*& Form closeform
 text
--> p1 text
<-- p2 text
FORM closeform.
CALL FUNCTION 'CLOSE_FORM'
 TABLES
 otfdata = tbl_otf
 EXCEPTIONS
 unopened = 1
 bad_pageformat_for_print = 2
 OTHERS = 3.
IF sy-subrc NE 0.
 retcode = sy-subrc.
 syst-msgid = 'PS'.
 syst-msgno = '005'.
 syst-msgty = 'E'.
 PERFORM protocol_update.
ENDIF.
ENDFORM. " closeform
*& Form format_pdf
 text
--> p1 text
<-- p2 text
FORM format_pdf.
FIELD-SYMBOLS <fs>.
DESCRIBE TABLE tbl_line LINES hltlines.
DESCRIBE FIELD tbl_line LENGTH fle1 IN BYTE MODE . Defect#1579-
DESCRIBE FIELD tbl_objtxt LENGTH fle2 IN BYTE MODE . Defect#1579-
Start of Defect#1579+
DESCRIBE FIELD tbl_line LENGTH fle1 IN CHARACTER MODE.
DESCRIBE FIELD tbl_objtxt LENGTH fle2 IN CHARACTER MODE.
End of Defect#1579+
CLEAR tbl_objtxt.
REFRESH tbl_objtxt.
LOOP AT tbl_line.
 htabix = sy-tabix.
 MOVE tbl_line TO hfeld+off1.
 IF htabix = hltlines.
 fle1 = strlen( tbl_line ).
 ENDIF.
 off1 = off1 + fle1.
 IF off1 GE fle2.
 CLEAR tbl_objtxt.
 tbl_objtxt = hfeld(fle2).
 APPEND tbl_objtxt.
 SHIFT hfeld BY fle2 PLACES.
 off1 = off1 - fle2.
 ENDIF.
 IF htabix = hltlines.
 IF off1 GT 0.
 CLEAR tbl_objtxt.
 tbl_objtxt = hfeld(off1).
 APPEND tbl_objtxt.
 ENDIF.
 ENDIF.
ENDLOOP.
ENDFORM. " format_pdf
ANy Suggestion or help will be appreciated!
Regards,
Kittu
Edited by: Kittu on Jun 30, 2008 12:32 PM

Hello Julie Waller,
Very Good evening!
Thank you very much for your response!
Sometimes...I miss the basic things and start concentarcting on typical ways to fix the issue. ....which will only make my issue critical.
Hello Sathya,
Thank you for your response!
POints are rewarded..
Have a great day ahead!
Regards,
Kittu

Output type Requirement triggering

Hi,
In my project I have a requirement to stop triggering of an output type if all the items in the sales order have reason for rejection set.
I have done the condition check in a output requirement routine and if the condition fails then I set SY-SUBRC = 4.
Problem 1:
But when I am creating the sales order, the komkbv1 structure does not have the sales order no. (it has other fields) and kompbv1structure is not filled. Then how do I check if all the items have Reason for rejection set or not.
Problem 2:
For an existing sales order, I trigger the output type in Header-->Output... , this code is getting executed and sy-subrc is set to 4. But still the output is triggered.
Please let me know how do I proceed.
Code:
w_vbeln = komkbv1-vbeln.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
    INPUT         = w_vbeln
IMPORTING
   OUTPUT        = w_vbeln .
Atleast one item of the Sales Order does not have
reason for rejection set.
select single * from VBAP
where vbeln = w_vbeln and
      ABGRU eq space.
if sy-subrc ne 0.
   sy-subrc = 4.
   EXIT.
endif.
Thanks in advance,
Vishnu Priya

Hi,
For the first problem,
Check the standard structures available, but not sure.
For the Second one,
You routine include should be included in the standard include RV61BNNN
for it to get triggered.
Your routine will not get executed if your routine is not included in this standard include.
Hope this helps.

Output type for intercompany credit and debit memo

Dear SD Gurus,
I am working for the IDOC Credit and debit memo process. I have listed below the steps which I have done to get the process to be done.
1) Intercompany sales order created.
2) Delivery.
3) Invoice.(Accounting document generated)
4) Intercompany billing.(Accounting document generated)
5) Intercompany credit memo request.
6) Intercompany credit memo.(Accounting document generated).
My client requirement is "IDOC posting for intercompany credit and debit memo".
Once I have completed all the above process, I used the transaction code : "VF31"(Output for billing) to execute it. But If I have given the billing document number which is intercompany credit memo that it is not getting accepted for the output type :"RD04"(Invoice receipt-MM) in VF31. The thing is client suggested me to use the output type :RD04 for this process. But the output type RD04 is getting accepted for the intercompany billing in VF31, which means the output type RD04 is wrong?
Gurus please let me know whether IDOC for intercompany credit and debit memo is possible. If it is possible, Please let me know the correct output type should be used to execute it correctly in VF31, so that I can able to run the transaction code :WE02 for IDOC successfully.
Inputs would be highly appreciated and helpful.
Regards
Mani.

Gurus,
When I have clicked the error "G/l account 100000 1007 does not exist"
Diagnosis.
A line item is to be posted to the non existant G/l account 100000 in company code 1007.
System response.
The invalid account number is rejected.
Procedure:
If you have entered the account number, correct your entry. If the account number was rejected when the system created automatic postings , check which postings it may concern by means of the business transaction. contact the system administrator to correct the account determination for the affected transaction.
Regards
Mani.

Problen in output type ABSA(ME22)

I am modifing purchase order smartforms.I can print RFQ using output type NEU,same form I count print Rejection of RFQ using ABSA output type.
I chked in NACE output type and forms everything is correct.but in ME42 if I select ABSA its not wrking( its with Red color marking).guide me pls

Check that the condition record maintained for the Output type 'ABSA'.
Also, check the setting for output determination at the following path:
IMG-Material Management-Purchasing-Messages-Output control:
Mantain message Schema for Request for Quotation.
Also, check if the partner role has been set for Quotation at the following path:
IMG-Material Management-Purchasing-Messages-Output control:
Partner Role per message type.
Next, check as already ,mentioned for the condition record via transaction 'MN01/02'
Regards,
Gauravjit.
Reward points if the solution is helpful.
Message was edited by:
Gauravjit

Problen in output type ABSA(ME42)

I am modifing purchase order smartforms.I can print RFQ using output type NEU,same form I count print Rejection of RFQ using ABSA output type.
I chked in NACE output type and forms everything is correct.but in ME42 if I select ABSA its not wrking( its with Red color marking).guide me pls

Hi
If you are rejection the Quotation by ME42 then Rejection indicator must be set for item. This change only allows triggering and making out put ABSA as green.
Check and suggest if works fine.
Thanks,
Yogi

BAPI_SALESORDER_CHANGE add output type

Hi Experts,
Generally when i change delivery date, rejection or unrejection of line item,delivery address and order/delivery qty of line item in the Sales order( VA02) ,system automatically one output type( ZUG1) added to output control. how it is possiable? One more if possiable let me know. let me know how i can achieve above functonality when i change sales order through BAPI_SALESORDER_CHANGE Bapi F.M.
waiting your valuable inputs.
Regards
Jaya Reddy

If I remember well, there is customizing in SPRO, you may choose how output types are automatically generated or not according to some conditions (look for activities with "condition" word, and also check [sap library|http://help.sap.com/saphelp_nw70/helpdata/en/c8/19887b43b111d1896f0000e8322d00/frameset.htm]).

Output Types Replacement of text symbols: program, FORM routine needed

Hello,
I'm searching for a program and/or FORM routine that will replace &EKKO-EBELN& and &EKKO-LIFNR& (from Mail title and texts) .
Example: Hochland Rahmenvertrag &EKKO-EBELN& / &EKKO-LIFNR&
Replaced with: Hochland Rahmenvertrag 4600012345 / 712888
I have problems filling the eMail subject when creating a Outline agreement (Apllication EV)...
For purchase orders it's working without FORM routine (Apll. EF) !!!
SAP provides this (empty) fields in transaction NACE (or NACT).
Output type > Detail
General Data > Replacement of text symbols
appreciating any hints in this topic
regards
Jörg
from SAP F1 context help:
Program for creating or changing an output text
Use
In order to analyse parameters in titles of e-mails or faxes, you have to store a special program and a form routine in the field FORM routine. System fields like SY-UNAME or SY-DATUM are are excluded from this: They will be automatically analysed by the system.
Example
On New Year's Day 2000, you send the purchase order 4711 by fax. The title of the corresponding output type is "Purchase order no. VBAK-VBELN on SY-DATUM" (put a "&" before and after the fields). In the outbound message you therefore have the output "Purchase order no. 4711 on 01/01/2000". The field VBAK-VBELN has been filled with global data by a form routine.

shital phadake wrote:
> here are some hints
> PR - SAPMM06B - Include MM06BFTE_TEXT_EDITIEREN - ?????
> PO - SAPMM06E - Include MM06EFTE_TEXT_EDITIEREN - Form text_symbol_replace
Great - these where the hints i was searching for
NACE ...
program = SAPMM06E
form routine = TEXT_SYMBOL_REPLACE
...now the eMail subject is filled with PO-number and supplier-number as demanded ... and all just using SAP standard
thx to you guys assisting me
special thx to shital phadake
Jörg

IDoc output type not getting configured in IDoc-File scenario

Hello
I am having IDoc to file scenario where I want to post Delivery Document to legacy system. For this I have configured following EDI configuration for Delivery through NACE transaction
1] Created output type
2] Created partner function as EDI LS for this output type
3] Configured RSNASTED as Processing Routines for output type
4] Included this output type in the Header output procedure
5] Configured XI system as the partner in partner profile with appropriate Message control
Still when I attempt to include this output type in the Delivery it gives me "Output for partner could not be configured". The detail message says "In Customizing, the 'CannotBeChanged' indicator has been set for output type".
I checked in SPRO but could not find such flag.
Does anyone had came across such output type configuration.
Thanks in advance.
I know this question might be not appropriate in XI forum as it comes under EDI but it has become necessary for XI profs -:)
Regards
Rajeev

Hi,
Please check the following
1. Condition Table
SPRO > Material Management> Purchasing -> Message -> Output Control->Condition Tables->Define Condition Table for Purchase Order
Select:
Purchasing Doc. Type,
Purch. Organization,
Vendor
2. Access Sequences
SPRO -> Material Management-> Purchasing -> Message -> Output Control->Access Sequences->Define Condition Table for Purchase Order
3. Message Type
SPRO -> Material Management-> Purchasing -> Message -> Output Control->Message Types->Define Message Type for Purchase Order
Copy NEU to ZNEU or YNEU
4. Message Determination Schemas
4.1. Message Determination Schemas
SPRO -> Material Management-> Purchasing -> Message -> Output Control->Message Schema->Define Message Schema for Purchase Order-> Maintain Message Determination Schema
4.2. Assign Schema to Purchase Order
SPRO -> Material Management-> Purchasing -> Message -> Output Control->Message Schema->Define Message Schema for Purchase Order-> Assign Schema to Purchase Order
5. Partner Roles per Message Type
SPRO -> Material Management-> Purchasing -> Message -> Output Control-> Partner Roles per Message Type ->Define Partner Role for Purchase Order
6. Condition Record
Navigation Path: SAP Menu-> Logistics -> Material Management -> Purchasing-> Master data->Messages-> Purchase Order-> MN04-> Create
Now you create PO (ME21N) and save it. Go to ME22N and print the PO by giving output type ZNEU or YNEU.
G.Ganesh Kumar

Output type selection is missing for report S_ALR_87013558

Hi,
In report S_ALR_87013558 output type selection is not seen in production. whereas it was there before, and its there in quality. Please help how should i bring it back.
Points are awarded in full for correct answer.
Thanks

Hi Krishna
Just check whether you the authorization to display the report in Production. You might have the authorisation if the development and quality, but some times not in Production.
Regards
Sridhar

Output types are not getting displayed in Outbound Delivery in Display mode

Hello,
The actual requirement is that output types should get attched to the outbound delivery when we do GI(Good Issue) on the outbound delivery.
So, I have created an outbound delivery and did GI on it through IDoc. But, I can not see output types on the delivery (To see output types, go to Extra -> Output -> Header in VL03N) in the display mode. However, I can see in change mode (VL02N).
Could you please suggest the solution for this?

Hi sreeram,
go to crm -> transactions -> basic settings -> define transaction types
copy default email cx03 and create new zemail.
assign that zemail to bus2000126 business activity.select the business activity and click on customizing header.assign the category email. click on channel. maintain the channels 1)GUI crm webclient UI, 2)ICW Interaction center webclient.
save the changes.
go to crm -> transactions -> basic settings -> settings for activities -> maintain categories, goals, priorities -> click on assign categories to transaction types.
assign the category email(which you have assigned above) to the transaction type zemail.
even check maintain categories as well
click on maintain categories -> check 401 email assigned to class G email.
Regards
Krishna

Output type not getting saved in the PO

Hello Team
we are facing one issue where output type is not getting saved in the PO.
we give one output type and than save it , after going back to the PO we see that it is not there.and no output issued
the PO is released properly and there is no issue , any idea what could be the reason for it

Hi,
Check in SU3 t.code, did check box selected u201CDelete After Outputu201D in Spool Control segment in Default TAB
Also check Partner Function VN maintained in Default values TAB in NACR--- > EF Application for your output type
Cross check partners {VN, PI, GS) are assigned to your PO output type in Partner Roles per Message Type
Regards,
Biju K

COPA line item report, Number format -output type - object list(ALV).

Hi,
I am preparing COPA line item report. I want to change number format (two decimal place). I did the changes in form level then I did the changes in drill down report as well and saved as save definition.
But changes are not reflecting in- output type - object list(ALV).
Please provide help in this.
Regards

HI
What t-code you are using to write this line item report ?

Custom Report to list Output type to Print Program link

Has anyone achieved this? Can anyone give hints as to the tables where I would find this information?

Hi ,
table TNAPN contains the Output Control: Output By Partner Function information..
select KSCHL '' output type
from tnapn
into table itab
where KAPPL = 'EF' " application Purchase Order
and NACHA = 1 . " transmission medium for print output
gives the list of 'Output Types' for application Purchase Order and for transmission medium -print output.
hope it helps.....
Regards.

Error while trying to assign an output type to medium external send in smar

Hi,
My requirement is to send a smartform through e-mail as PDF attachment.I have made the changes in the print program of the smart form.When I try to assign the output type to the medium external send in vt02n transaction,it is being saved but it is showing the status as 'not processed'.When I check the processing log it is showing 'Please maintain a output device in your user master data'.But I am able to send the mail and open the attachment.When I try to assign the same o/p type to medium special function,this is being successfully processed .Why am I getting error when I try to assign theo/p type to external send?
Regards,
Hema

Check the logic in the entity adapter ENT_Prov_Permitted_Resources.
This adapter is causing problems when you are trying to assign the resource.

Exclude Output Type of Rejected SO

Similar Messages

Maybe you are looking for