Program to Print Preview from Spool

Hello gurus,
I hope you guys could help me out...my requirement is to write an ABAP program that receives a spool number and displays its print preview to the user from there user can choose to print or delete the spool number
Any advices ?:)

Hi ..
Call this FM to generate the Print preview from SPOOL
    CALL FUNCTION 'RSPO_OUTPUT_SPOOL_REQUEST'
      EXPORTING
        spool_request_id = hrqident
      EXCEPTIONS
        OTHERS           = 0.
<b>REWARD IF HELPFUL</b>

Similar Messages

Convert OTF to PDF and print PDF from Spool

Hi,
I have searched all the forums and service market place but could not find solution to my problem.
I am using Function module
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid              = p_spool
      no_dialog                = 'X'
      dst_device               = 'ISJB'
      pdf_destination          = 'S'
    IMPORTING
      pdf_bytecount            = lv_bytecount
      pdf_spoolid              = lv_spoolid
      otf_pagecount            = lv_pagecount
      btc_jobname              = lv_jobname
      btc_jobcount             = lv_jobcount
    TABLES
      pdf                      = gt_pdf
    EXCEPTIONS
      err_no_otf_spooljob      = 1
      err_no_spooljob          = 2
      err_no_permission        = 3
      err_conv_not_possible    = 4
      err_bad_dstdevice        = 5
      user_cancelled           = 6
      err_spoolerror           = 7
      err_temseerror           = 8
      err_btcjob_open_failed   = 9
      err_btcjob_submit_failed = 10
      err_btcjob_close_failed = 11
      OTHERS                   = 12.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
this generates spool in SP01. Ideally it should generate a PDF spool file but it generates a BIN file of Format G_RAW. When I display the spool it displays all kinds of japanese characters which does not make sense,.
I setup printer ISJB with device type JPPDF (PDF converted for Japanese characters). Does any one know where the problem could be? Why I could not print the Spool in PDF?
Thank you,
Jagadish

Hi,
check out this program which will convert spool to pdf
REPORT zsmartform_spool_g.
*************Types Declaration ****************************
TYPES : BEGIN OF gty_tab,                          " Spool Requests
        rqident   TYPE tsp01-rqident,              " Spool request number
        rqdoctype TYPE tsp01-rqdoctype,            " Spool: document type
        rqo1name TYPE tsp01-rqo1name,             " TemSe object name
       END OF gty_tab.
*********Work Area ****************************************
DATA: form_name TYPE rs38l_fnam,      " Used to get the function module of Smartform
      wa_outopt TYPE ssfcompop,       " SAP Smart Forms: Smart Composer (transfer) options
      gs_tab    TYPE gty_tab.         " Spool Requests
*******Internal Table Declarations ************************
DATA: gt_tab TYPE STANDARD TABLE OF gty_tab,       " Spool Requests
      gt_pdf TYPE STANDARD TABLE OF tline,         " SAPscript: Text Lines
      gt_spoolid TYPE tsfspoolid,                  " Table with Spool IDs
      gt_otfdata TYPE ssfcrescl.                 " Smart Forms: Return value at end of form prnt
*********Variable Declarations ****************************
DATA: gv_bytecount   TYPE i,               "#EC NEEDED " PDF Byte Count
      gv_file_name   TYPE string,                    " File name
      gv_file_path   TYPE string,                    " File Path
      gv_full_path   TYPE string,                    " Path
      gv_binfilesize TYPE i,                         " Bin File size
      gv_rqident   TYPE tsp01-rqident,               " Spool request number
      gv_name TYPE tst01-dname,                      " TemSe object name
      gv_objtype TYPE rststype-type,                 " TemSe: Object type name
      gv_type TYPE rststype-type.                    " TemSe: Object type name
START-OF-SELECTION.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = 'ZPDF_G'
    IMPORTING
      fm_name            = form_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 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.
*Get Spool IDs
wa_outopt-tdnewid = 'X'.
wa_outopt-tddest = 'LP01'.
CALL FUNCTION form_name
    EXPORTING
      output_options   = wa_outopt
      user_settings    = 'X'
    IMPORTING
      job_output_info = gt_otfdata
    EXCEPTIONS
      formatting_error = 1
      internal_error   = 2
      send_error       = 3
      user_canceled    = 4
      OTHERS           = 5.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*Assign the spool id
gt_spoolid = gt_otfdata-spoolids.
Generate spool and pdf for the output of the form
PERFORM sub_generate_spool_pdf.
END-OF-SELECTION.
*&      Form sub_generate_spool_pdf
      Generate Spool and PDF output
FORM sub_generate_spool_pdf .
DATA: ls_spoolid LIKE LINE OF gt_spoolid.
*----Get the Spool Number
CLEAR ls_spoolid.
READ TABLE gt_spoolid INTO ls_spoolid INDEX 1.
IF sy-subrc = 0.
    gv_rqident = ls_spoolid.
ENDIF.
CLEAR gt_tab.
SELECT rqident rqdoctype rqo1name INTO TABLE gt_tab
           FROM tsp01 WHERE rqident = gv_rqident.
IF sy-subrc = 0.
    CLEAR gs_tab.
Get the TemSe: Object name into variable gv_name
    READ TABLE gt_tab INTO gs_tab INDEX 1.
    IF sy-subrc = 0.
      gv_name = gs_tab-rqo1name.
    ENDIF.
ENDIF.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
    EXPORTING
      authority     = 'SP01'
      client        = sy-mandt
      name          = gv_name
      part          = 1
    IMPORTING
      type          = gv_type
      objtype       = gv_objtype
    EXCEPTIONS
      fb_error      = 1
      fb_rsts_other = 2
      no_object     = 3
      no_permission = 4
      OTHERS        = 5.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Check if temse object name type is 'OTF' or 'LIST'
IF gv_objtype(3) = 'OTF'.
    PERFORM get_otf_spool_in_pdf.
ELSE.
    PERFORM get_abap_spool_in_pdf.
ENDIF.
Generate F4 functionality from spool to pdf
PERFORM write_pdf_spool_to_pc.
ENDFORM.                    " sub_generate_spool_pdf
*&      Form get_abap_spool_in_pdf
      Generate the Spool number
FORM get_abap_spool_in_pdf .
REFRESH gt_pdf.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid              = gv_rqident
    IMPORTING
      pdf_bytecount            = gv_bytecount
    TABLES
      pdf                      = gt_pdf
    EXCEPTIONS
      err_no_abap_spooljob     = 1
      err_no_spooljob          = 2
      err_no_permission        = 3
      err_conv_not_possible    = 4
      err_bad_destdevice       = 5
      user_cancelled           = 6
      err_spoolerror           = 7
      err_temseerror           = 8
      err_btcjob_open_failed   = 9
      err_btcjob_submit_failed = 10
      err_btcjob_close_failed = 11
      OTHERS                   = 12.
IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " get_abap_spool_in_pdf
*&      Form get_otf_spool_in_pdf
      Generate OTF data from the Spool Number
FORM get_otf_spool_in_pdf .
REFRESH gt_pdf.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid              = gv_rqident
    IMPORTING
      pdf_bytecount            = gv_bytecount
    TABLES
      pdf                      = gt_pdf
    EXCEPTIONS
      err_no_otf_spooljob      = 1
      err_no_spooljob          = 2
      err_no_permission        = 3
      err_conv_not_possible    = 4
      err_bad_dstdevice        = 5
      user_cancelled           = 6
      err_spoolerror           = 7
      err_temseerror           = 8
      err_btcjob_open_failed   = 9
      err_btcjob_submit_failed = 10
      err_btcjob_close_failed = 11
      OTHERS                   = 12.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " get_otf_spool_in_pdf
*&      Form write_pdf_spool_to_pc
      Generate PDF format
FORM write_pdf_spool_to_pc .
CALL METHOD cl_gui_frontend_services=>file_save_dialog
    CHANGING
      filename             = gv_file_name
      path                 = gv_file_path
      fullpath             = gv_full_path
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
----DOWNLOADING THE PDF DATA***
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      bin_filesize            = gv_binfilesize
      filename                = gv_full_path
      filetype                = 'BIN'
    TABLES
      data_tab                = gt_pdf
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception = 20
      control_flush_error     = 21
      OTHERS                  = 22.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " write_pdf_spool_to_pc

Since latest upgrade I cannot "print" or show "print preview" from any web page. This is true of both of my printers and I have followed directions on plug-ins and have reinstalled Firefox etc. I am about ready to switch to Internet Explorer! w

Since upgrading Firefox, it doesn't respond when I click on print and/or print preview while displaying web pages.. No error message, just no response. I tried using both my printers..a HP and a Canon and get no results with either. I have no problem printing from any other place (including "Print" instructions within web pages, usually). I have recently upgraded my desktop (Dell Vostro 220) to Windows 7 and it went smoothly. The Firefox upgrade came at about the same time, so I don't know if Windows 7 is part of the problem. I need be able to print from the screen of web pages!

Hi jjoyceeric,
Have you looked at the Knowledge Base article [[Firefox prints incorrectly]]? There is some good troubleshooting information in there. I would suggest that you try resetting your print settings.
Hopefully this helps!

Data missing when Exporting or print preview from ALV report

Hi
I have a alv report which is showing fine but when i try to export it to say excel sheet or do print preview some of the data is missing. Can anyone tell me how to fix this. or at least point to some document that discuss this problem.
Here is my ALV CODE
* CALL_ALV
form call_alv.
* v_repid = sy-repid.
perform build_field_catalog using field_tab[].
perform build_eventtab      using events[].
perform comment_build       using header_alv[].
perform build_sorttab       using gt_sort[].
* perform build_layout.
* v_variant-variant = '/TEST3'.
* Call ABAP List Viewer
call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program      = v_repid
      i_callback_user_command = ''
      i_structure_name        = 'REC'
      it_fieldcat             = field_tab[]
      it_special_groups       = gt_sp_group[]
      it_sort                 = gt_sort[]
      i_save                  = v_save
      is_variant              = v_variant
      it_events               = events[]
*      is_layout               = gd_layout
    tables
      t_outtab                 = REC
    exceptions
      program_error            = 1
      others                   = 2.
endform.
From my Catalog this data is missing
* BUILD_FIELD_CATALOG
form build_field_catalog USING pt_fieldcat type
                               slis_t_fieldcat_alv.
data: ls_fieldcat type slis_fieldcat_alv.
clear: fieldcat, pt_fieldcat[].
ls_fieldcat-tabname        =                'REC'.
ls_fieldcat-edit           =                ' '.
    ls_fieldcat-fieldname      =                'PERNR'.
    ls_fieldcat-seltext_s      =                'Employee #     '.
    ls_fieldcat-seltext_m      =                'Employee #           '.
    ls_fieldcat-seltext_l      =                'Employee #           '.
    ls_fieldcat-datatype       =                'C'.
    append ls_fieldcat to pt_fieldcat.
There r coupole that's missing
But there couple that show's up like this one
    ls_fieldcat-fieldname      =                'STIME'.
    ls_fieldcat-seltext_s      =                'ST   '.
    ls_fieldcat-seltext_m      =                'St Tm     '.
    ls_fieldcat-seltext_l      =                'Start Time          '.
    ls_fieldcat-datatype       =                'C'.
    append ls_fieldcat to pt_fieldcat.
    ls_fieldcat-fieldname      =                'ETIME'.
    ls_fieldcat-seltext_s      =                'ET      '.
    ls_fieldcat-seltext_m      =                'Et Tm           '.
    ls_fieldcat-seltext_l      =                'End Time             '.
    append ls_fieldcat to pt_fieldcat.
I always reward points.
Thanks

hi Anwarul,
Try the following code:
* CALL_ALV
form call_alv.
* v_repid = sy-repid.
perform build_field_catalog using field_tab[].
perform build_eventtab      using events[].
perform comment_build       using header_alv[].
perform build_sorttab       using gt_sort[].
* perform build_layout.
* v_variant-variant = '/TEST3'.
* Call ABAP List Viewer
call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program      = v_repid
      i_callback_user_command = ''
      i_structure_name        = 'REC'
      it_fieldcat             = field_tab[]
      it_special_groups       = gt_sp_group[]
      it_sort                 = gt_sort[]
      i_save                  = v_save
      is_variant              = v_variant
      it_events               = events[]
*      is_layout               = gd_layout
    tables
      t_outtab                 = REC
    exceptions
      program_error            = 1
      others                   = 2.
endform.
form build_field_catalog USING pt_fieldcat type
                               slis_t_fieldcat_alv.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
I_PROGRAM_NAME = sy-repid
I_STRUCTURE_NAME = 'REC'
changing
CT_FIELDCAT          = pt_fieldcat.
When you export to excel, the character fields and numeric columns gets re-arranged, but all the fields will be displayed in this case.
hope this helps.

Ho to find script and the related print program for print preview of PO

Hi All,
We are getting some text output on the print preview of a purchase order.
How can we determine the driver script and the corresponding print program for this.
Can you please guide on this.
Thanks in advance.
Regards,
Sanjeet

U Can check Driver program and form related to that program table is TNAPPR
Goto NACE t.code
Selct Application ---> click on output types
then u wil get one window there select proper output type and
double click on processing routines u wil get form name and related driver program name also
Plz try this....
Edited by: Upender Verma on Feb 9, 2009 1:33 PM
Edited by: Upender Verma on Feb 9, 2009 1:37 PM

Error IN ABAP PROGRAM AT PRINT PREVIEW

Dear All experts.
i got an error at gone to print preview of sales order delivery ALV reports. it gives an error follwing.
GETWA_NOT_ASSIGNED.
FIELD SYMBOL HAS BEEN NOT ASSIGNED.
BHAVESH PANCHAL

Dear Expert.
thnks for reply.
Just check my code. Also check my output.
thnks
*& Report Z_SALES_EXP_BHAVESH
REPORT Z_SALES_EXP_BHAVESH.
TYPE-POOLS:slis.
TABLES
TABLES: vbep,
        vbap,
        vbpa,
        vbkd,
        vbak,
        likp,
        lips,
        vbup,
        vbbe,
        konv,
        kna1.
DATA :BEGIN OF itab OCCURS 0,
vbeln LIKE vbak-vbeln,
posnr LIKE vbap-posnr,
edatu LIKE vbep-edatu,
knumv LIKE vbak-knumv,
wmeng LIKE vbep-wmeng,
bmeng LIKE vbep-bmeng,
lfimg LIKE lips-lfimg,
omeng LIKE vbbe-omeng,
posar LIKE vbap-posar,
netwr LIKE vbap-netwr,
ntgew LIKE vbap-ntgew,
kbetr LIKE konv-kbetr,
kwert LIKE konv-kwert, " CONDITION VALUE.
kunnr LIKE vbak-kunnr,
name1 LIKE kna1-name1,
*BRGEW LIKE VBAP-BRGEW,
bstkd LIKE vbkd-bstkd,
bstdk LIKE vbkd-bstdk,
lfsta LIKE vbup-lfsta,
*KNUMV LIKE VBAK-KNUMV,
*posnr LIKE LIPS-POSNR,
*NETWR LIKE VBAK-NETWR,
brgew LIKE vbap-brgew,
LFMNG like vbap-LFMNG,
lfdat LIKE likp-lfdat,
*NTGEW LIKE LIKP-NTGEW,
delivery LIKE lips-vbeln,
*LFIMG LIKE LIPS-LFIMG,
KWMENG like VBAP-KWMENG,
op_qty like VBAP-KWMENG,
weight LIKE vbap-ntgew,
pending_val LIKE vbap-netwr,
END OF itab.
*variable for Report ID
DATA: v_repid LIKE sy-repid .
*declaration for fieldcatalog
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv.
DATA: it_listheader TYPE slis_t_listheader.
declartion for layout
DATA: alv_layout TYPE slis_layout_alv.
*Title displayed when the alv list is displayed
*DATA: i_title_main TYPE lvc_title VALUE 'FIRST LIST DISPLAYED'.
DATA: i_title_main TYPE lvc_title VALUE 'Reports : Bhavesh Panchal'.
DATA : it_vbak TYPE vbak OCCURS 0 WITH HEADER LINE,
       it_vbap TYPE vbap OCCURS 0 WITH HEADER LINE,
       it_vbrk TYPE vbrk OCCURS 0 WITH HEADER LINE,
       it_vbrp TYPE vbrp OCCURS 0 WITH HEADER LINE,
       it_vbep TYPE vbep OCCURS 0 WITH HEADER LINE,
       it_vbpa TYPE vbpa OCCURS 0 WITH HEADER LINE,
       it_lips TYPE lips OCCURS 0 WITH HEADER LINE ,
       it_likp TYPE likp OCCURS 0 WITH HEADER LINE,
       it_konv TYPE konv OCCURS 0 WITH HEADER LINE,
       it_kna1 TYPE kna1 OCCURS 0 WITH HEADER LINE,
       it_adrc TYPE adrc OCCURS 0 WITH HEADER LINE,
       it_makt TYPE makt OCCURS 0 WITH HEADER LINE,
       it_mara TYPE mara OCCURS 0 WITH HEADER LINE,
       it_vbkd TYPE vbkd OCCURS 0 WITH HEADER LINE,
       it_vbbe TYPE vbbe OCCURS 0 WITH HEADER LINE,
       it_vbup TYPE vbup OCCURS 0 WITH HEADER LINE,
       it_itob TYPE itob OCCURS 0 WITH HEADER LINE.
INITIALIZATION.
v_repid = sy-repid.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : so_vbeln FOR vbak-vbeln ,
so_kunnr FOR vbpa-kunnr,
so_edatu FOR itab-edatu.
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
get the details required to be displayed in the report
PERFORM fetch_data.
*& End-of-Selection
END-OF-SELECTION.
IF itab[] IS NOT INITIAL.
initialize the fieldcatlog to be used for alv grid display
    PERFORM field_catalog.
display actual data in the alv grid
    PERFORM display.
ELSE.
initialize the fieldcatlog to be used for alv grid display
    PERFORM field_catalog.
display actual data in the alv grid
    PERFORM display.
ENDIF.
*&      Form build_fieldcatlog
      text
FORM field_catalog.
*- Show quoted text -
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'VBELN'.
wa_fieldcat-seltext_m = 'SalesOrderNo'.
wa_fieldcat-outputlen = '12'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field for Customer Name.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-seltext_m = 'Customer Name'.
wa_fieldcat-outputlen = '30'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For Po Number.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'BSTKD'.
wa_fieldcat-seltext_m = 'PO No'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For Order Value
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'NETWR'.
wa_fieldcat-seltext_m = 'Order Value '.
wa_fieldcat-outputlen = '12'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For Po Date.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'BSTDK'.
wa_fieldcat-seltext_m = 'PO Date'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'EDATU'.
wa_fieldcat-seltext_m = 'Delivery Date'.
wa_fieldcat-outputlen = '12'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For Order Qty.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'KWMENG'.
wa_fieldcat-seltext_m = 'Ord.QTY'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
field For Delivery Qty.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'op_qty'.
wa_fieldcat-seltext_m = 'DEL QTY.'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For Open Qty from ITAB.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'OMENG'.
wa_fieldcat-seltext_m = 'OPEN QTY.'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For Pending Weight from ITAB.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'BRGEW'.
wa_fieldcat-seltext_m = 'Pending Weight'.
wa_fieldcat-outputlen = '12'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For netweight.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'NTGEW'.
wa_fieldcat-seltext_m = 'Net Weight'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For Actual Delivery.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'LFDAT'.
wa_fieldcat-seltext_m = 'Actual Delivery'.
wa_fieldcat-outputlen = '12'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'KBETR'.
wa_fieldcat-seltext_m = 'RATE'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-tabname = 'VBUP'.
wa_fieldcat-fieldname = 'LFSTA'.
wa_fieldcat-seltext_m = 'Delivery Status'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Field For pending weight.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-fieldname = 'PENDING_VAL'.
wa_fieldcat-seltext_m = 'Pending VALUE'.
wa_fieldcat-outputlen = '20'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. "BUILD_FIELDCATLOG
*&      Form fetch_data
      text
FORM fetch_data.
break mtabap.
SELECT *
          FROM vbep
          INTO TABLE it_vbep
          WHERE edatu IN so_edatu
          AND vbeln IN so_vbeln.
IF NOT it_vbep[] IS INITIAL.
    SELECT *
                   FROM vbak
                   INTO TABLE it_vbak
                   FOR ALL ENTRIES IN it_vbep
                   WHERE vbeln = it_vbep-vbeln
                   AND kunnr IN so_kunnr.
ENDIF.
IF NOT it_vbak[] IS INITIAL.
    SELECT *
            FROM vbpa
            INTO TABLE it_vbpa
            FOR ALL ENTRIES IN it_vbak
            WHERE vbeln = it_vbak-vbeln
            AND   posnr = space.
    SELECT *
             FROM vbap
             INTO TABLE it_vbap
             FOR ALL ENTRIES IN it_vbak
             WHERE vbeln = it_vbak-vbeln.
Select all Customer Data
    SELECT * FROM kna1 INTO TABLE it_kna1
    FOR ALL ENTRIES IN it_vbak
    WHERE kunnr = it_vbak-kunnr .
    SELECT *
             FROM vbkd
             INTO TABLE it_vbkd
             FOR ALL ENTRIES IN it_vbap
             WHERE vbeln = it_vbap-vbeln.
           and posnr = IT_VBAP-POSNR.
    SELECT *
             FROM vbbe
             INTO TABLE it_vbbe
             FOR ALL ENTRIES IN it_vbap
             WHERE vbeln = it_vbap-vbeln
             AND posnr = it_vbap-posnr.
    SELECT *
             FROM vbup
             INTO TABLE it_vbup
             FOR ALL ENTRIES IN it_vbap
             WHERE vbeln = it_vbap-vbeln
             AND posnr = it_vbap-posnr.
    SELECT *
             FROM konv
             INTO TABLE it_konv
             FOR ALL ENTRIES IN it_vbak
             WHERE knumv = it_vbak-knumv
             AND kinak = space .
    SELECT *
          FROM vbrp
          INTO TABLE it_vbrp
          FOR ALL ENTRIES IN it_vbak
          WHERE aubel = it_vbak-vbeln.
    IF NOT it_vbrp[] IS INITIAL.
      SELECT * FROM likp
                        INTO TABLE it_likp
                        FOR ALL ENTRIES IN it_vbrp
                        WHERE vbeln = it_vbrp-vgbel.
      SELECT * FROM lips
                        INTO TABLE it_lips
                        FOR ALL ENTRIES IN it_vbrp
                        WHERE vbeln = it_vbrp-vgbel
                        AND posnr = it_vbrp-vgpos.
                       itab-lfimg = it_lips-lfimg.
ENDIF. ENDIF.
LOOP AT it_vbap.
    itab-posnr = it_vbap-posnr.
    itab-posar = it_vbap-posar.
    itab-brgew = it_vbap-brgew.
    itab-ntgew = it_vbap-ntgew.
    itab-KWMENG = it_vbap-kwmeng.
    itab-LFMNG = it_vbap-LFMNG.
    itab-LFIMG = it_lips-LFIMG.
    itab-op_qty = it_vbap-kwmeng - it_lips-LFIMG.
    READ TABLE it_vbak WITH KEY vbeln = it_vbap-vbeln.
    itab-vbeln = it_vbak-vbeln.
    itab-netwr = it_vbak-netwr.
    itab-kunnr = it_vbak-kunnr.
    READ TABLE it_vbep WITH KEY vbeln = it_vbap-vbeln.
    itab-edatu = it_vbep-edatu.
    READ TABLE it_kna1 WITH KEY kunnr = it_vbak-kunnr.
    itab-name1 = it_kna1-name1.
    READ TABLE it_vbkd WITH KEY vbeln = it_vbap-vbeln .
    itab-bstdk = it_vbkd-bstdk.
    itab-bstkd = it_vbkd-bstkd.
    READ TABLE it_vbrp WITH KEY aubel = it_vbap-vbeln aupos = it_vbap-posnr.
    READ TABLE it_lips WITH KEY vbeln = it_vbrp-aubel posnr = it_vbrp-aupos.
    itab-delivery = it_lips-vbeln.
   itab-del_qty = it_lips-lfimg.
   itab-del_qty = LIPS-LFIMG.
    READ TABLE it_likp WITH KEY vbeln = it_vbrp-aubel   .
    itab-lfdat = it_likp-lfdat.
   itab-ntgew = it_likp-ntgew.
    break mtabap.
    READ TABLE it_vbup WITH KEY vbeln = it_vbap-vbeln posnr = it_vbap-posnr.
    itab-lfsta = it_vbup-lfsta.
    READ TABLE it_vbep WITH KEY vbeln = it_vbap-vbeln posnr = it_vbap-posnr.
    itab-wmeng = it_vbap-kwmeng .
    itab-bmeng = it_vbep-bmeng.
    READ TABLE it_vbbe WITH KEY vbeln = it_vbap-vbeln posnr = it_vbap-posnr.
    itab-omeng = it_vbbe-omeng .
    READ TABLE it_konv WITH KEY knumv = it_vbak-knumv
                                kposn = it_vbap-posnr
                                kschl = 'PR00'.
   ITAB-KBETR = IT_KONV-KBETR / 10. " CONDITION RATE
    itab-kbetr = it_konv-kbetr.
    itab-kwert = it_konv-kwert . "CONDITION VALUE
   itab-pending_val = ITAB-OMENG * ITAB-KWERT .
    itab-pending_val = itab-omeng * itab-kbetr .
    APPEND itab.
ENDLOOP.
ENDFORM. "data_retrieval
*&      Form build_listheader
      text
     -->IT_LISTHEADER text
Show quoted text -
FORM build_listheader USING it_listheader TYPE slis_t_listheader.
DATA HLINE TYPE SLIS_LISTHEADER.
DATA: ls_line TYPE slis_listheader.
bhavesh
HLINE-INFO = 'report Developed by Bhavesh'.
HLINE-TYP = 'H'.
Header
Bhavesh
CLEAR ls_line.
ls_line-typ = 'H'.
LS_LINE-KEY: not used for this type
ls_line-info = 'Sales ORDER Report'.
APPEND ls_line TO it_listheader.
bhavesh
***Selection
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = 'Key 1'.
ls_line-info = 'SFEL'.
APPEND ls_line TO it_listheader.
ls_line-key = 'Key 2'.
ls_line-info = 'SFEL'.
APPEND ls_line TO it_listheader.
***Action
CLEAR ls_line.
ls_line-typ = 'A'.
LS_LINE-KEY: not used for this type
ls_line-info = 'Status list'.
APPEND ls_line TO it_listheader.
ENDFORM. "BUILD_LISTHEADER
*ENDFORM. "build_listheader
*&      Form display
*&       text
FORM display.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = sy-repid
        i_callback_top_of_page = 'TOP_OF_PAGE'
          is_layout               = alv_layout
          it_fieldcat             = i_fieldcat
        it_events               = gt_events[]
          i_callback_user_command = 'USER_COMMAND'
          i_grid_title            = 'BHAVESH REPORT'
          TABLES
          t_outtab                = itab[].
CLEAR : itab .
ENDFORM.                    "display
*&      Form top_of_page
      text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader[].
i_logo = 'ENJOYSAP_LOGO'.
I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE

Chinese Fonts are coming ZUNK when i do print preview from web UI

Hello All,
I have a smartform which includes a standard text which is maintained in Chinese language. This smartform would be called from web UI -> activities -> Fax -> print preview.
when i do print preview of any activity, everything is coming correct except chinese text, it is coming as zunk characters.
i have created a standard text ( through Tcode - SO10 ) in CHINESE When i call it in my Smartforms it is displaying like boxes ( garbage ) .
But when seen in SO10 in Chinese login language the text is maintained properly in Chinese
Please let me know wat is missed out or is there any settings which should be enabled.
how would i do Character set enabled for chinese language?
Thank You...
seema
Edited by: seema rajjot on Sep 21, 2011 5:04 PM

Hi Sagar,
Yes that's a problem for Cyrillic fonts , I suppose you are using two action definitions : one for ES and one for EN print.
For Spanish you have to use a smart style which supports the ISO Cyrillic characters and that will then open up correctly for Spanish users.
Regards,
Hasan Rafiq

How can I stop Firefox 4 from displaying "The document cannot change while Printing or in Print Preview" from appearing every time I click on File/Page Preview?

Clicking on File/Page Preview in Firefox 4 brings up a warning dialog "The document cannot change while Printing or in Print Preview" every time. How can I stop this from happening? It is very annoying, and it is necessary to click "OK" on this dialog twice before it will go away. Thank you.

Does it behave that way in [[Safe Mode]] ?
If it doesn't, then one of your add-ons in the culprit.

How to activate print preview from BP master data

Hello,
Is there a way to activate the print preview function in Business One 8.8 from the Business Partner Master data in order to launch a crystal report.
Today, in the Business Partner master data, the Pen icon (print layout designer) is greyed and the new 'Report and Layout Manager' does not show any option for the business partner'
Thanks for your help
Marc

Hi Marc,
it is not possible in SAPB1.
which SAPB1 Version & Patch Level(PL) did you see the Business Parter Master Data PLD.
Print Layout Designer not have on Business Partner Master Data and Item Master Data.
both Master Data having only Window Print Preference.
Regards,
Madhan.

Incomplete print preview from certain websites

When printing from websites, the print preview is only a few lines of text with the title cut off, and a blue line in the margins. This does not happen with all websites, but is consistent with the site on which it occurs.

Thanks for your efforts. I changed scale and portrait/landscape without success. It is interesting that the login page will print completely, but after logging in none of the content will print more than 4-5 lines. I contacted the website and they said they were able to access the site using my information and it printed well for them. The printer has been disabled and restarted twice without changing the results (the websites suggestion). I used another computer, server, and printer at home and had the same problem.

Query on SRM Authorization for PO Print Preview from Web Browser

Hi All,
I would like to restrict PO Preview option in Web browser for users who has SAP_EC_BBP_EMPLOYEE Role only. Kindly let me know that how I can restrict the PO Preview option with popup message like 'Authorization is not given to see the PO Print Preview'.
Thanks a lot in advance.
Thanks,
Sudarsan

You can just revoke the authorization. This would remove the prining option for the user, rather than providing a message.
I guess this should be
Authorization Object - BBP_PD_PO
Activity (ACTVT) - 04
Note: The necesary object in the Object Class - BBP.
Regards
Kathirvel

How to Print preview from Form9i

I using forms & Report 9i i want to know that it is possible to print or print priview from form9i how, please help me

Thanks jeet
I received following error when i try to run report from form9i
FRM-41213 : Unable to connect to the Report server repserve
after starting report server by entering following command from Dos
rwserver server=repserver
report server repserver start
after i try to run report from form9i i received following
FRM-41214 : unable to run report
following code i enter in when button press trigger
DECLARE
Report_Id report_object;
hTimer timer;
vcFile varchar2(255);
vcResult varchar2(30);
BEGIN
/* Generate a pseudo-unique filename */
vcFile := get_application_property(USERNAME)||TO_CHAR(SYSDATE,'YYYYMMDDHHMISS');
/* We will be producing Postscript output in this case so add a .rrpp extension */
vcFile := vcFile||'.rrpp';
/* Find an existing Report Object and set parameters */
report_id:=FIND_REPORT_OBJECT('JUMREP');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE,BATCH);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,FILE);
/* Format to Postscript */
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,'ps');
/*Desname to our generated filename
Note: <PhysicalDir> refers to a location on the
Webserver which we read from with SHOW_DOCUMENT() */
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESNAME,'D:'||vcFile);
/*Set the name of the Reports Server, again this would be softcoded */
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,'repserver');
/* Save the Report Handle to a global as well */
:GLOBAL.ReportHandle := RUN_REPORT_OBJECT(report_id);
/* Save the generated Filename away for use in the When-Timer-Expired */
:GLOBAL.PrintOutPut := vcFile;
/* Create a timer to monitor the Report,
This one is set to check 4 times a minute */
hTimer := CREATE_TIMER('PRINTER_QUEUE','15000',REPEAT);
END;

Printing Issue from Spool

Hi All,
I have created a Invoice Form (ADOBE) which generates multiple documents in single output. I have done this by calling the generated FM inside a loop. The users scheduled the Invoice form as a background job and Now it has an output of one spool with 2500 Invoice forms.
I tried to print all the forms together from the spool, but it only prints the first one. Is there any way we can print all the documents in the spool in single shot...
Regards,
Mohammed Shukoor.
Edited by: Mohammed Abdul Shukoor on Jun 30, 2011 4:50 AM

Hi,
You can split the spool request by number of pages, for example some times printer will not have the buffer to print all at a time, so we can print 500 (As per your requirement) initially then next 500 pages and so on. In order to do this first find out number of pages in the spool by using the FM RSPO_GET_PAGES_SPOOLJOB, then as per the pages obtained, pass the first page (for Example 1) and last page numbers(for example 500) to the FM RSPO_OUTPUT_SPOOL_REQUEST. Then check the status of the pages means whether printing is completed or not by using the FM EFG_SPOOL_OUTPUT_STATUS_CHECK. If the printing is completed then again pass the first page and last page parametes as ( for example 501) and last page number as (for example 1000). Else in the above function module you have wait time you can reduce the wait time till all the pages are printed.
Thanks,
M Ramana Murthy.

PO email output type program causes unable to print preview

Hi Guys,
i am customising a program for print preview email for PO output type, but the preview does not come out , here is the code:
form entry_neu using ent_retco ent_screen.
data: dtext like tline.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
if nast-aende eq space.
    l_druvo = '1'.
else.
    l_druvo = '2'.
endif.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
concatenate l_nast-kschl 'for ' l_doc-xekko-ebeln into
l_nast-TDCOVTITLE separated by space.
ekko = l_doc-xekko.
perform set_textsymbol using '&EKKO-WAERS&' EKKO-WAERS.
select adrc~name1 into rm06b-ltex1
    from t001
    join adrc
    on   adrcaddrnumber eq t001adrnr and
         adrc~date_from le sy-datum   and
         adrc~nation     eq space
   where t001~bukrs = ekko-bukrs.
endselect.
select single regno into t9s01-regno
    from t9s01
    where bukrs = ekko-bukrs.
if sy-subrc eq 0.
     T9S01-BUKRS = EKKO-BUKRS.
endif.
perform set_textsymbol using '&RM06B-LTEX1&' RM06B-LTEX1.
perform set_textsymbol using '&T9S01-REGNO&' t9s01-regno.
perform set_textsymbol using '&T9S01-BUKRS&' T9S01-BUKRS.
lfa1-lifnr = ekko-lifnr.
select single adrc~str_suppl3 into lfa1-name4
    from lfa1
    join adrc
    on   adrcaddrnumber = lfa1adrnr
    where lfa1~lifnr = ekko-lifnr.
perform set_textsymbol using '&LFA1-LIFNR&' LFA1-LIFNR.
perform set_textsymbol using '&LFA1-NAME4&' LFA1-NAME4.
perform set_textsymbol using '&EKKO-WAERS&' EKKO-WAERS.
perform read_text using 'F15' DTEXT-TDLINE.
if dtext-tdline is initial.
        if ekko-ekgrp eq 'CP1' or ekko-ekgrp eq 'C03' or
           ekko-ekgrp eq 'P01' or ekko-ekgrp eq 'P02' or
           ekko-ekgrp eq 'P03' or ekko-ekgrp eq 'P04' or
           ekko-ekgrp eq 'P08'.
          move 'Requisitioner.' to DTEXT-TDLINE.
        elseif ekko-ekgrp eq 'CP2' or ekko-ekgrp eq 'C01' or"B0691
           ekko-ekgrp eq 'C04' or ekko-ekgrp eq 'P05' or
           ekko-ekgrp eq 'P06' or ekko-ekgrp eq 'P07' or
           ekko-ekgrp eq 'P09' or
           ekko-ekgrp eq 'C05'.                             "B0691
          move 'Accounts Payable.' to DTEXT-TDLINE.
        else.                                               "B0691
          move 'Accounts Payable.' to DTEXT-TDLINE.             "B0691
        endif.
   endif.
   t9s02-text4 = DTEXT-TDLINE(17).
   perform set_textsymbol using '&T9S02-TEXT4&' T9S02-TEXT4.
    CLEAR GV_NO_CONTRACT.
   perform read_text using 'F13' T9S02-TEXT7.
   IF T9S02-TEXT7 IS INITIAL. "Buyer did not type anything
       MOVE 'stipulated at the end of this PO.' TO T9S02-TEXT7.
       MOVE 'X' TO GV_NO_CONTRACT.
    ENDIF.
   perform set_textsymbol using '&T9S02-TEXT7&' T9S02-TEXT7 .
   SELECT SINGLE VERKF into LFM1-VERKF
       FROM LFM1
       WHERE LIFNR = EKKO-LIFNR
         AND EKORG = EKKO-EKORG.
   perform set_textsymbol using '&LFM1-VERKF&' LFM1-VERKF .
     loop at l_doc-XEKPO into ekpo where zwert = 0.
       if ekpo-peinh ne 0.
         ekpo-zwert = ( EKPO-MENGE * EKPO-NETPR ) /
                       ( EKPO-PEINH * 1000 ).
       else.
         ekpo-zwert = ( EKPO-MENGE * EKPO-NETPR ) / 1000 .
       endif.
       modify l_doc-XEKPO from ekpo.
     endloop.
clear: gv_print, gv_terms, gv_tcode.
      gv_print = tnapr-FUNCNAME.
      gv_terms = tnapr-sform.
      gv_tcode = tnapr-FONAM5.
      call function 'Z_ME_PRINT_PO'
           exporting
                ix_nast        = l_nast
                ix_druvo       = l_druvo
                doc            = l_doc
                ix_screen      = ent_screen
                ix_from_memory = l_from_memory
                ix_toa_dara    = toa_dara
                ix_arc_params = arc_params
                ix_fonam       = tnapr-fonam                "HW 214570
                gv_no_contract = gv_no_contract
                gv_print       = gv_print
                gv_terms       = gv_terms
                gv_tcode       = gv_tcode
end of additions
           importing
                ex_retco       = ent_retco.
    endform.
did i miss anything in the coding? pls advice

hi,
There are two options.
1. Change the output medium of the output type to Print putput 1(No 1).
2. For the sender customer go to transaction XD02 and give your mail ID instead of the customers and check. You will get the output in PDF format.
Thanks,
Kasiraman R

Returning to Print dialog from Print preview?

If, after selecting Print preview from the Print dialog, I want to go back and change something in the Print dialog like Layout, is it possible to return to the Print dialog? What I've been doing is quitting the Preview and then going back to what I wanted to print and selecting Print again, which seems inefficient.

Hi Christopher,
Unfortunately it's not possible. This is one of the limitations of the preview function of OSX printing. Perhaps this will be addressed in Leopard. It's pretty frustrating, I totally agree.

Program to Print Preview from Spool

Similar Messages

Maybe you are looking for