Erzeugen von Adobe PDF Formularen im WebUI des SAP CRM

Das SAP CRM System ist im Formulardruck im Gegensatz zu anderen SAP Systemen, wie z.B. SAP EWM, z.Zt. ausschließlich auf den Druck von Formularen mit Smart Forms ausgerichtet. Im Customizing kann man im SAP CRM Standard auch nur Formulare und Methoden für den Druck von Smart Forms hinterlegen.

Problemstellung

Will man auch in SAP Adobe Formulare anstatt von Smart Forms verwenden, dann sind folgende Aufgaben zu meistern

  • Anstatt eines Smart Forms muss in der im Customizing hinterlegten Methode ein Adobe Form erzeugt werden.
  • Zur Anzeige des Formulars im WebUI ist das erzeugte Formular im OTF-Format an die Methode zur Druckbildansicht weiterzureichen.

Im folgenden Tutorial wird erklärt, wie man im SAP CRM Formulare mit einem Adobe Form erzeugen kann.

Im SAP CRM wird ein Servicevorgang als Ticket erfasst. Ist das Ticket abgeschlossen, wird dem Kunden ein Abschlussbericht übermittelt. Der Abschlussbericht soll als PDF Formular mit den Werkzeugen der SAP Adobe Forms erzeugt werden. Sowohl Druck als auch eine Druckbildansicht des Formulars im SAP CRM WebUI sollen möglich sein.


Im Customizing sucht man in den Aktionen zum Vorgang die Klasse, die den Formulardruck abbildet. In unserem Fall war dies die Klasse CL_DOC_PROCESSING_CRM_ORDER mit Methode CRM_SRVORDER_EXEC_SMART_FORM.

Nun kopiert man die Klasse CL_DOC_PROCESSING_CRM_ORDER in eine Z-Klasse bzw. leitet eine eigene Z-Klasse als Unterklasse zur Oberklasse CL_DOC_PROCESSING_CRM_ORDER ab. Anschließend kopiert man Methode CRM_SRVORDER_EXEC_SMART_FORM in Methode CRM_SRVORDER_EXEC_PDF_FORM.


Im Funktionsbaustein Z_FRM_PRINT_FINAL_REPORT wird nun das Coding untergebracht, um das Adobe Form (PDF Formular) zu erzeugen. Die Schnittstelle wird 1 : 1 aus der Schnittstelle zum Smart Form aus der Methode CRM_SRVORDER_EXEC_SMART_FORM übernommen.

FUNCTION z_frm_print_final_report.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(PV_FONAM) TYPE  FPNAME OPTIONAL
*"     VALUE(IS_OUTPUT_OPTIONS) TYPE  SSFCOMPOP OPTIONAL
*"     VALUE(IS_CONTROL_PARAMS) TYPE  SSFCTRLOP OPTIONAL
*"     VALUE(ORDERADM_H) TYPE  CRMT_OUTPUT_ORDERADM_H_COM OPTIONAL
*"     VALUE(ACTIVITY_H) TYPE  CRMT_OUTPUT_ACTIVITY_H_COM OPTIONAL
*"     VALUE(OPPORT_H) TYPE  CRMT_OUTPUT_OPPORT_H_COM OPTIONAL
*"     VALUE(ORGMAN_H) TYPE  CRMT_OUTPUT_ORGMAN_H_COM OPTIONAL
*"     VALUE(PARTNER_H) TYPE  CRMT_OUTPUT_PARTNER_H_COMT OPTIONAL
*"     VALUE(PRICINGDATA_H) TYPE  CRMT_OUTPUT_PRICINGDATA_H_COM
*"       OPTIONAL
*"     VALUE(SALES_H) TYPE  CRMT_OUTPUT_SALES_H_COM OPTIONAL
*"     VALUE(SHIPPING_H) TYPE  CRMT_OUTPUT_SHIPPING_H_COM OPTIONAL
*"     VALUE(PAYPLAN_D_H) TYPE  CRMT_OUTPUT_PAYPLAN_D_H_COMT OPTIONAL
*"     VALUE(CUMULAT_H) TYPE  CRMT_OUTPUT_CUMULAT_H_COM OPTIONAL
*"     VALUE(CUSTOMER_H) TYPE  CRMT_OUTPUT_CUSTOMER_H_COM OPTIONAL
*"     VALUE(ACS_H) TYPE  CRMT_ACS_H_COM OPTIONAL
*"     VALUE(BILLING_H) TYPE  CRMT_OUTPUT_BILLING_H_COMT OPTIONAL
*"     VALUE(CANCEL_H) TYPE  CRMT_OUTPUT_CANCEL_H_COMT OPTIONAL
*"     VALUE(APPOINTMENT_H) TYPE  CRMT_OUTPUT_APPOINTMENT_H_COMT
*"       OPTIONAL
*"     VALUE(BILLPLAN_D_H) TYPE  CRMT_OUTPUT_BILLPLAN_D_H_COMT OPTIONAL
*"     VALUE(BILLPLAN_H) TYPE  CRMT_OUTPUT_BILLPLAN_H_COMT OPTIONAL
*"     VALUE(STATUS_D_H) TYPE  CRMT_OUTPUT_STATUS_D_H_COMT OPTIONAL
*"     VALUE(STATUS_H) TYPE  CRMT_OUTPUT_STATUS_H_COMT OPTIONAL
*"     VALUE(SRV_SUBJECT_H) TYPE  CRMT_OUTPUT_SRV_SUBJECT_H_COMT
*"       OPTIONAL
*"     VALUE(SRV_SUBJECT_I) TYPE  CRMT_OUTPUT_SRV_SUBJECT_H_COMT
*"       OPTIONAL
*"     VALUE(SRV_REASON_H) TYPE  CRMT_OUTPUT_SRV_REASON_H_COMT OPTIONAL
*"     VALUE(SRV_RESULT_H) TYPE  CRMT_OUTPUT_SRV_RESULT_H_COMT OPTIONAL
*"     VALUE(SRV_REFOBJ_H) TYPE  CRMT_OUTPUT_SRV_REFOBJ_H_COMT OPTIONAL
*"     VALUE(SRV_REFOBJ_I) TYPE  CRMT_OUTPUT_SRV_REFOBJ_H_COMT OPTIONAL
*"     VALUE(ORDERADM_I) TYPE  CRMT_OUTPUT_ORDERADM_I_COMT OPTIONAL
*"     VALUE(ORDERADM_I_IN) TYPE  CRMT_OUTPUT_ORDERADM_I_IN_COMT
*"       OPTIONAL
*"     VALUE(ORDERADM_I_QT) TYPE  CRMT_OUTPUT_ORDERADM_I_QT_COMT
*"       OPTIONAL
*"     VALUE(ORGMAN_I) TYPE  CRMT_OUTPUT_ORGMAN_I_COMT OPTIONAL
*"     VALUE(PRICINGDATA_I) TYPE  CRMT_OUTPUT_PRICINGDATA_I_COMT
*"       OPTIONAL
*"     VALUE(PRICING_I) TYPE  CRMT_OUTPUT_PRICING_I_COMT OPTIONAL
*"     VALUE(PRODUCT_I) TYPE  CRMT_OUTPUT_PRODUCT_I_COMT OPTIONAL
*"     VALUE(SALES_I) TYPE  CRMT_OUTPUT_SALES_I_COMT OPTIONAL
*"     VALUE(SERVICE_I) TYPE  CRMT_OUTPUT_SERVICE_I_COMT OPTIONAL
*"     VALUE(SCHEDLIN_I) TYPE  CRMT_OUTPUT_SCHEDLIN_I_COMT OPTIONAL
*"     VALUE(SCHEDLIN_I_CF) TYPE  CRMT_OUTPUT_SCHEDLIN_I_CF_COMT
*"       OPTIONAL
*"     VALUE(SHIPPING_I) TYPE  CRMT_OUTPUT_SHIPPING_I_COMT OPTIONAL
*"     VALUE(PARTNER_I) TYPE  CRMT_OUTPUT_PARTNER_I_COMT OPTIONAL
*"     VALUE(ITEM_CSTICS_I) TYPE  CRMT_ITEM_CSTICS_TAB OPTIONAL
*"     VALUE(CUSTOMER_I) TYPE  CRMT_OUTPUT_CUSTOMER_I_COMT OPTIONAL
*"     VALUE(BILLING_I) TYPE  CRMT_OUTPUT_BILLING_I_COMT OPTIONAL
*"     VALUE(CANCEL_I) TYPE  CRMT_OUTPUT_CANCEL_I_COMT OPTIONAL
*"     VALUE(FINPROD_I) TYPE  CRMT_OUTPUT_FINPROD_I_COMT OPTIONAL
*"     VALUE(ORDPRP_I) TYPE  CRMT_OUTPUT_ORDPRP_I_COMT OPTIONAL
*"     VALUE(APPOINTMENT_I) TYPE  CRMT_OUTPUT_APPOINTMENT_I_COMT
*"       OPTIONAL
*"     VALUE(BILLPLAN_D_I) TYPE  CRMT_OUTPUT_BILLPLAN_D_I_COMT OPTIONAL
*"     VALUE(BILLPLAN_I) TYPE  CRMT_OUTPUT_BILLPLAN_I_COMT OPTIONAL
*"     VALUE(STATUS_I) TYPE  CRMT_OUTPUT_STATUS_I_COMT OPTIONAL
*"     VALUE(WORKING_SET_E_S_BBP) TYPE  /1CN/WORKING_SET_E_S_BBP_T
*"       OPTIONAL
*"     VALUE(LANGUAGE) TYPE  SY-LANGU OPTIONAL
*"     VALUE(SERVICE_I_ASSI) TYPE  CRMT_OUTPUT_SERVICE_I_ASS_COMT
*"       OPTIONAL
*"  EXPORTING
*"     VALUE(ES_RESULT) TYPE  SFPJOBOUTPUT
*"     VALUE(ES_OUTPUT) TYPE  FPFORMOUTPUT
*"     VALUE(ET_OTFDATA) TYPE  TT_ITCOO
*"----------------------------------------------------------------------

  IF pv_fonam IS INITIAL.
    pv_fonam = 'ZFRM_SRV_ORD_FINAL_REPORT'.
  ENDIF.

* Get function module ------------------------------------------------ *
  PERFORM get_fm_name USING    pv_fonam
                      CHANGING gv_fm_name
                               gv_if_type.

* JOP_OPEN ----------------------------------------------------------- *
  PERFORM job_open USING is_output_options.

* Print form --------------------------------------------------------- *
  PERFORM print_form USING  gv_fm_name
                            pv_fonam
                            is_output_options
                            is_control_params
                            orderadm_h
                            activity_h
                            opport_h
                            orgman_h
                            partner_h
                            pricingdata_h
                            sales_h
                            shipping_h
                            payplan_d_h
                            cumulat_h
                            customer_h
                            acs_h
                            billing_h
                            cancel_h
                            appointment_h
                            billplan_d_h
                            billplan_h
                            status_d_h
                            status_h
                            srv_subject_h
                            srv_subject_i
                            srv_reason_h
                            srv_result_h
                            srv_refobj_h
                            srv_refobj_i
                            orderadm_i
                            orderadm_i_in
                            orderadm_i_qt
                            orgman_i
                            pricingdata_i
                            pricing_i
                            product_i
                            sales_i
                            service_i
                            schedlin_i
                            schedlin_i_cf
                            shipping_i
                            partner_i
                            item_cstics_i
                            customer_i
                            billing_i
                            cancel_i
                            finprod_i
                            ordprp_i
                            appointment_i
                            billplan_d_i
                            billplan_i
                            status_i
                            working_set_e_s_bbp
                            language
                            service_i_assi
                   CHANGING es_output.

* JOB_CLOSE ---------------------------------------------------------- *
  PERFORM job_close CHANGING es_result.

* Pdf-Daten noch in OTF für Druckansicht konvertieren ---------------- *
  PERFORM convert_pdf_2_otf USING    es_output
                            CHANGING et_otfdata.

ENDFUNCTION.
***INCLUDE LZFRM_PRINT_FINAL_REPORTF01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  GET_FM_NAME
*&---------------------------------------------------------------------*
FORM get_fm_name  USING    pv_fonam   TYPE fpname
                  CHANGING gv_fm_name TYPE funcname
                           gv_if_type TYPE fpinterfacetype.

  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
    EXPORTING
      i_name           = pv_fonam
    IMPORTING
      e_funcname       = gv_fm_name
      e_interface_type = gv_if_type.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  JOB_OPEN
*&---------------------------------------------------------------------*
FORM job_open USING ps_output_options TYPE ssfcompop.

  gs_outparam-preview  = ''.
  gs_outparam-nodialog = 'X'.
  gs_outparam-reqnew   = 'X'.
  gs_outparam-getpdf   = 'X'.
  gs_outparam-dest     = 'LOCA'.

  CALL FUNCTION 'FP_JOB_OPEN'
    CHANGING
      ie_outputparams = gs_outparam
    EXCEPTIONS
      cancel          = 1
      usage_error     = 2
      system_error    = 3
      internal_error  = 4
      OTHERS          = 5.
  IF sy-subrc <> 0.
  ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  PRINT_FORM
*&---------------------------------------------------------------------*
FORM print_form  USING  gv_fm_name            TYPE funcname
                        pv_fonam TYPE fpname
                        is_output_options TYPE  ssfcompop
                        is_control_params TYPE  ssfctrlop
                        orderadm_h  TYPE  crmt_output_orderadm_h_com
                        activity_h  TYPE  crmt_output_activity_h_com
                        opport_h  TYPE  crmt_output_opport_h_com
                        orgman_h  TYPE  crmt_output_orgman_h_com
                        partner_h TYPE  crmt_output_partner_h_comt
                        pricingdata_h TYPE  crmt_output_pricingdata_h_com
                        sales_h TYPE  crmt_output_sales_h_com
                        shipping_h  TYPE  crmt_output_shipping_h_com
                        payplan_d_h TYPE  crmt_output_payplan_d_h_comt
                        cumulat_h TYPE  crmt_output_cumulat_h_com
                        customer_h  TYPE  crmt_output_customer_h_com
                        acs_h TYPE  crmt_acs_h_com
                        billing_h TYPE  crmt_output_billing_h_comt
                        cancel_h  TYPE  crmt_output_cancel_h_comt
                        appointment_h TYPE  crmt_output_appointment_h_comt
                        billplan_d_h  TYPE  crmt_output_billplan_d_h_comt
                        billplan_h  TYPE  crmt_output_billplan_h_comt
                        status_d_h  TYPE  crmt_output_status_d_h_comt
                        status_h  TYPE  crmt_output_status_h_comt
                        srv_subject_h TYPE  crmt_output_srv_subject_h_comt
                        srv_subject_i TYPE  crmt_output_srv_subject_h_comt
                        srv_reason_h  TYPE  crmt_output_srv_reason_h_comt
                        srv_result_h  TYPE  crmt_output_srv_result_h_comt
                        srv_refobj_h  TYPE  crmt_output_srv_refobj_h_comt
                        srv_refobj_i  TYPE  crmt_output_srv_refobj_h_comt
                        orderadm_i  TYPE  crmt_output_orderadm_i_comt
                        orderadm_i_in TYPE  crmt_output_orderadm_i_in_comt
                        orderadm_i_qt TYPE  crmt_output_orderadm_i_qt_comt
                        orgman_i  TYPE  crmt_output_orgman_i_comt
                        pricingdata_i TYPE  crmt_output_pricingdata_i_comt
                        pricing_i TYPE  crmt_output_pricing_i_comt
                        product_i TYPE  crmt_output_product_i_comt
                        sales_i TYPE  crmt_output_sales_i_comt
                        service_i TYPE  crmt_output_service_i_comt
                        schedlin_i  TYPE  crmt_output_schedlin_i_comt
                        schedlin_i_cf TYPE  crmt_output_schedlin_i_cf_comt
                        shipping_i  TYPE  crmt_output_shipping_i_comt
                        partner_i TYPE  crmt_output_partner_i_comt
                        item_cstics_i TYPE  crmt_item_cstics_tab
                        customer_i  TYPE  crmt_output_customer_i_comt
                        billing_i TYPE  crmt_output_billing_i_comt
                        cancel_i  TYPE  crmt_output_cancel_i_comt
                        finprod_i TYPE  crmt_output_finprod_i_comt
                        ordprp_i  TYPE  crmt_output_ordprp_i_comt
                        appointment_i TYPE  crmt_output_appointment_i_comt
                        billplan_d_i  TYPE  crmt_output_billplan_d_i_comt
                        billplan_i  TYPE  crmt_output_billplan_i_comt
                        status_i  TYPE  crmt_output_status_i_comt
                        working_set_e_s_bbp TYPE  /1cn/working_set_e_s_bbp_t
                        language  TYPE  sy-langu
                        service_i_assi  TYPE  crmt_output_service_i_ass_comt
              CHANGING  gs_output TYPE fpformoutput.

*  gs_docparms-country = ps_control_parameters-country.
  gs_docparms-langu   = is_control_params-langu.

  CALL FUNCTION gv_fm_name
    EXPORTING
      /1bcdwb/docparams   = gs_docparms
      iv_fonam            = pv_fonam
      is_output_options   = is_output_options
      is_control_params   = is_control_params
      orderadm_h          = orderadm_h
      activity_h          = activity_h
      opport_h            = opport_h
      orgman_h            = orgman_h
      partner_h           = partner_h
      pricingdata_h       = pricingdata_h
      sales_h             = sales_h
      shipping_h          = shipping_h
      payplan_d_h         = payplan_d_h
      cumulat_h           = cumulat_h
      customer_h          = customer_h
      acs_h               = acs_h
      billing_h           = billing_h
      cancel_h            = cancel_h
      appointment_h       = appointment_h
      billplan_d_h        = billplan_d_h
      billplan_h          = billplan_h
      status_d_h          = status_d_h
      status_h            = status_h
      srv_subject_h       = srv_subject_h
      srv_reason_h        = srv_reason_h
      srv_result_h        = srv_result_h
      srv_subject_i       = srv_subject_i
      srv_refobj_h        = srv_refobj_h
      srv_refobj_i        = srv_refobj_i
      orderadm_i          = orderadm_i
      orderadm_i_qt       = orderadm_i_qt
      orderadm_i_in       = orderadm_i_in
      orgman_i            = orgman_i
      pricingdata_i       = pricingdata_i
      pricing_i           = pricing_i
      product_i           = product_i
      sales_i             = sales_i
      service_i           = service_i
      schedlin_i          = schedlin_i
      schedlin_i_cf       = schedlin_i_cf
      shipping_i          = shipping_i
      partner_i           = partner_i
      item_cstics_i       = item_cstics_i
      customer_i          = customer_i
      billing_i           = billing_i
      cancel_i            = cancel_i
      finprod_i           = finprod_i
      ordprp_i            = ordprp_i
      appointment_i       = appointment_i
      billplan_d_i        = billplan_d_i
      billplan_i          = billplan_i
      status_i            = status_i
      working_set_e_s_bbp = working_set_e_s_bbp
      language            = language
      service_i_assi      = service_i_assi
    IMPORTING
      /1bcdwb/formoutput  = gs_output
    EXCEPTIONS
      usage_error         = 1
      system_error        = 2
      internal_error      = 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.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  JOB_CLOSE
*&---------------------------------------------------------------------*
FORM job_close CHANGING es_result TYPE sfpjoboutput.

  CALL FUNCTION 'FP_JOB_CLOSE'
    IMPORTING
      e_result       = es_result
    EXCEPTIONS
      usage_error    = 1
      system_error   = 2
      internal_error = 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.

ENDFORM.

Wichtig ist, dass beim Erzeugen der Druckbildansicht wird vor JOB_OPEN der Parameter GETPDF = X gesetzt wird.

Der Funktionsbaustein wird in Methode CRM_SRVORDER_EXEC_PDF_FORM dort eingebaut, wo sonst das Erzeugen des Smart Forms angestoßen wird. Das Coding für das Erzeugen des Smart Forms wird entfernt bzw. auskommentiert.

Zum Anzeigen des Adobe Forms im SAP CRM WebUI wird der Funktionsbaustein CONVERT_PDF verwendet, wo das Formular im OTF-Format in das Format PDF gewandelt wird. Da wir jedoch das Adobe Form bereits als fertige PDF-Datei bekommen, muss die PDF-Datei so aufbereitet werden, dass der Funktionsbaustein CONVERT_PDF die Datei bereits als fertige PDF-Datei erkennt und nicht weiter konvertiert. Geschieht dies nicht, bekommt man im SAP CRM WebUI eine Fehlermeldung.

In Routine CONVERT_PDF_2_OTF wird die PDF-Datei als binäres Objekt in eine interne Tabelle vom Format ITCOO überführt.

*&---------------------------------------------------------------------*
*&      Form  CONVERT_PDF_2_OTF
*&---------------------------------------------------------------------*
FORM convert_pdf_2_otf  USING    es_output  TYPE fpformoutput
                        CHANGING et_otfdata TYPE tt_itcoo.

  types: begin of ty_tab,
           line(72) type c,
         end of ty_tab.
  DATA: lt_lines    TYPE TABLE OF tline,
        ls_lines    TYPE tline,
        ls_otfdata  TYPE itcoo,
        lv_filesize TYPE i,
        ls_tab      type ty_tab,
        lt_tab      type table of ty_tab.

  DATA: xcontent TYPE xstring .
  DATA: content TYPE string .
  DATA: rows    TYPE STANDARD TABLE OF string,
        wa_rows TYPE string.
  DATA: conv   TYPE REF TO cl_abap_conv_in_ce.
  DATA: lt_content TYPE string_table .

  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer                = es_output-pdf
*     APPEND_TO_TABLE       = ' '
    IMPORTING
      OUTPUT_LENGTH         = lv_filesize
    tables
      binary_tab            = lt_tab.

   loop at lt_tab into ls_tab.
     move ls_tab to ls_otfdata.
     append ls_otfdata to et_otfdata.
   endloop.

  exit.

  REFRESH lt_lines.

  CALL FUNCTION 'CONVERT_OTF'
    EXPORTING
      format                = 'PDF'
*     MAX_LINEWIDTH         = 132
*     ARCHIVE_INDEX         = ' '
*     COPYNUMBER            = 0
*     ASCII_BIDI_VIS2LOG    = ' '
*     PDF_DELETE_OTFTAB     = ' '
*     PDF_USERNAME          = ' '
*     PDF_PREVIEW           = ' '
*     USE_CASCADING         = ' '
*     MODIFIED_PARAM_TABLE  =
    IMPORTING
      bin_filesize          = lv_filesize
*     bin_file              = es_output-pdf
    TABLES
      otf                   = et_otfdata
      lines                 = lt_lines
    EXCEPTIONS
      err_max_linewidth     = 1
      err_format            = 2
      err_conv_not_possible = 3
      err_bad_otf           = 4
      OTHERS                = 5.

  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

ENDFORM.

Das Adobe Formular wird jetzt im SAP CRM WebUI in der Druckbildansicht korrekt angezeigt.

 

Weitere Informationen

SAP Formulare zum Festpreis

SAP Formularentwicklung

Spezialthemen zu SAP Formularen

0 Kommentare

Dein Kommentar

Want to join the discussion?
Feel free to contribute!

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.