HPOMSAP 6.1 Delivering documents to SAPconnect nodes in SAP R/3

ManualsBrandsHP ManualsSoftwareHP Output Management Services Software

Technical Note

Delivering documents to SAPconnect

nodes in SAP R/3 Enterprise

This technical note provides the following information:

• Examples of how to deliver SAP R/3 application-generated documents intended for fax and e-mail destinations

to a SAPconnect node in an SAP R/3 Enterprise system. The examples use sample SAPscript programs, sample

layout sets, and a sample ABAP report program that are described in Table 1-1. The sample code for these

programs are included in “Sample Programs” on page 15.

• Instructions for uploading and testing the execution of these programs in a test environment of an SAP R/3

Enterprise system.

• Instructions for using the Job Wizard in an SAP R/3 Enterprise system to schedule a background job to deliver

documents waiting in a queue at a SAPconnect node to the Dazel SAPconnect server.

NOTE: The screen images in this technical note are from the SAP R/3 GUI version 6.20.

Prerequisites

The information in this technical note is intended for SAPscript and ABAP developers. It assumes that you know how

to develop SAPscript and ABAP programs for use in an SAP R/3 Enterprise system. It also assumes that your SAP

R/3 Enterprise test environment includes an installation of HP Output Server 3.3 and HP Output Manager for R/3 6.1

at the appropriate service pack levels for use with an SAP R/3 Enterprise system. For more information about using

HP Output Server 3.3 and HP Output Manager for R/3 6.1 with an SAP R/3 Enterprise system, see the release notes

for Service Pack 03.4 for HP Output Manager for R/3 6.1. The information in this technical note also assumes that

you know how to configure the following:

• anRFCdestinationinanSAPR/3Enterprisesystem

• a SAPconnect node in an SAP R/3 Enterprise system

• a Dazel SAPconnect Server in HP Output Manager for R/3 6.1

Background

SAP R/3 Enterprise does not support the SAPcomm communication connection for faxing. The SAPcomm

communication connection enables SAP application-generated documents to be sent through the the R/3 host spool

system and enables the automatic lookup of customer fax numbers and routing of documents to the correct

destination based on various parameters, such as customer or vendor name. The SAP-recommended alternative for

faxing SAP R/3 application-generated documents in an SAP R/3 Enterprise system is the SAPconnect

communication connection.

Summary of content (86 pages)

PAGE 1
Technical Note Delivering documents to SAPconnect nodes in SAP R/3 Enterprise This technical note provides the following information: • Examples of how to deliver SAP R/3 application-generated documents intended for fax and e-mail destinations to a SAPconnect node in an SAP R/3 Enterprise system. The examples use sample SAPscript programs, sample layout sets, and a sample ABAP report program that are described in Table 1-1. The sample code for these programs are included in “Sample Programs” on page 15.
PAGE 2
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise Obtaining the sample programs and layout sets HP Output Manager for R/3 is a set of interfaces that integrates SAP R/3 applications with HP Output Server. The Dazel SAPconnect Server component of HP Output Manager for R/3 is an R/3 communications server that provides SAP R/3 users a fax interface and job-status reporting.
PAGE 3
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise Uploading the sample files To upload a sample SAPscript program or the ABAP report identified in Table 1-1 into your SAP R/3 test environment, follow these steps: 1. Log on to the test environment installation of your SAP R/3 Enterprise system. 2. In the command field, type /nse38 and press ENTER. The ABAP Editor: Initial Screen appears. 3. In the Program field, type the name of the sample program (for example, YRVADOR01). 4.
PAGE 4
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise Uploading the sample files 9. Click Save. The Create Object Directory Entry screen appears. 10. Do not enter any information in this screen. Hewlett-Packard recommends that you treat each sample program as a local object. 11. Click Local Object. The ABAP Editor: Change Report screen appears. 12. From the Utilities menu, point to More Utilities. 13. Point to Upload/Download, and then click Upload. 14.
PAGE 5
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise SAPscripts, Smart Forms, and Reports 8. Leave the Dataset name field blank. 9. Click Execute. 10. In the File name field, enter the path and file name of the sample layout set to upload. 11. Click Open. The SAP R/3 system uploads the sample layout set. SAPscripts, Smart Forms, and Reports SAPscript and Smart Forms are programmatic methods for creating documents; reports is an ABAP programming method for creating documents.
PAGE 6
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise SAPscripts, Smart Forms, and Reports The Change Customer: General data screen appears. 4. 6 Under the Address tab, verify that data exists in the Fax and E-mail fields.
PAGE 7
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise SAPscripts, Smart Forms, and Reports Example 1: Custom SAPscript documents The following example shows how to deliver a custom SAPscript sales order from the S & D module to a SAPconnect node using the sample print program YRVADOR01 and the sample custom layout set YRVORDER01. The sales order number used in the example is based on sales order numbers available in the test environment of your SAP R/3 system.
PAGE 8
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise SAPscripts, Smart Forms, and Reports 3. Locate Maintain Output Types by clicking Sales and Distribution -> Basic Functions -> Output Control -> Output Determination -> Output Determination Using the Condition Technique -> Maintain Output Determination for Sales Documents. 4. Click the Execute icon next to Maintain Output Types. The Display View “Output Types”: Overview screen appears. 5.
PAGE 9
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise SAPscripts, Smart Forms, and Reports 8. Select the output type BA00 and then double-click the Processing routines folder under the Dialog Structure pane. The Display View “Processing routines”: Overview screen appears. 9. Click Display->Change. 10. Under the Short text column, make sure that entries for Fax and External send exist. Under the Program column for these entries, specify YRVADOR01 to use the sample program.
PAGE 10
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise SAPscripts, Smart Forms, and Reports The Change Standard Order: Output screen appears. 4. Select the record with the medium Fax (or External send, if output generation is for e-mail), and click Repeat output . 5. Click Save. 6. In the command field, type /nscot and then press ENTER. 7. Verify that a new job is placed in the waiting queue for fax (or for e-mail) for the appropriate SAPconnect node.
PAGE 11
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise SAPscripts, Smart Forms, and Reports Example 3: Using a standalone SAPscript print (driver) program The following example uses the sample SAPscript print program YHP_POFORM and the sample layout set ZHP_POFORM to generate a purchase order and send it to a SAPconnect node. The print program references the layout set. The print program is not dependent upon a particular module or another program that must be supplied within a particular module.
PAGE 12
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise Automating delivery of jobs from a SAPconnect node 5. Type or select a purchase order number in the PONUMBER field. 6. Select FAX (or INTERNET for e-mail). 7. Click Execute. 8. In the command field, type /nscot and press ENTER. 9. Verify that a new job is placed in the waiting queue for the appropriate SAPconnect node.
PAGE 13
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise Automating delivery of jobs from a SAPconnect node The Define Background Job screen appears. 2. Click Job Wizard. The Job Wizard prompts you for information about the job, including: - the job name and priority - whether the job should run on a particular server 3. After supplying the requested information, click Continue. 4. Select ABAP program step and click Continue.
PAGE 14
Delivering documents to SAPconnect nodes in SAP R/3 Enterprise Automating delivery of jobs from a SAPconnect node The next screen that appears prompts you for an ABAP program name and variant. 5. In the ABAP program name field, type RSCONN01 6. In the Variant field, select FAX (or INT for e-mail). 7. Click Continue. 8. Follow the instructions on the remaining screens that appear.
PAGE 15
Sample Programs Automating delivery of jobs from a SAPconnect node Appendix Sample Programs This appendix contains the text of the sample programs that are described in Table 1-1 and Examples 1, 3, and 4 in this technical note. THE SOFTWARE INCLUDED HEREIN IS PROVIDED AS AN EXAMPLE ONLY. MODIFICATIONS MAY BE NECESSARY TO UTILIZE THIS SOFTWARE PROPERLY IN YOUR ENVIRONMENT. NOTICE TO USER: PLEASE READ THIS CAREFULLY.
PAGE 16
Sample Programs Sample Program YRVADOR01 (Example 1) Sample Program YRVADOR01 (Example 1) *----------------------------------------------------------------------* * Print of an order confirmation by SAPscript *----------------------------------------------------------------------* REPORT RVADOR01 LINE-COUNT 100 MESSAGE-ID VN.
PAGE 17
Sample Programs Sample Program YRVADOR01 (Example 1) 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.
PAGE 18
Sample Programs Sample Program YRVADOR01 (Example 1) FORM ENTRY USING RETURN_CODE US_SCREEN. CLEAR RETCODE. XSCREEN = US_SCREEN. PERFORM PROCESSING. IF RETCODE NE 0. RETURN_CODE = 1. ELSE. RETURN_CODE = 0. ENDIF. ENDFORM. *---------------------------------------------------------------------* * FORM PROCESSING * *---------------------------------------------------------------------* * ........ * *---------------------------------------------------------------------* FORM PROCESSING. PERFORM GET_DATA.
PAGE 19
Sample Programs Sample Program YRVADOR01 (Example 1) * A text is printed, if the item is an alternative item. * *---------------------------------------------------------------------* FORM ALTERNATIVE_ITEM. CHECK VBDPA-GRPOS CN '0'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ALTERNATIVE_ITEM' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDFORM.
PAGE 20
Sample Programs Sample Program YRVADOR01 (Example 1) CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_DELIVERY_DATE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ENDFORM. *---------------------------------------------------------------------* * FORM DIFFERENT_CONSIGNEE * *---------------------------------------------------------------------* * If the consignee in the item is different to the header con- * * signee, it is printed by this routine.
PAGE 21
Sample Programs Sample Program YRVADOR01 (Example 1) EXPORTING ELEMENT = 'ITEM_REFERENCE_NO' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDFORM. *---------------------------------------------------------------------* * FORM DIFFERENT_TERMS * *---------------------------------------------------------------------* * If the terms in the item are different to the header terms, * * they are printed by this routine.
PAGE 22
Sample Programs Sample Program YRVADOR01 (Example 1) VEDPA-VENDDAT NE SPACE AND NOT VEDPA-VBEGDAT IS INITIAL AND NOT VEDPA-VENDDAT IS INITIAL. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_TERMS_OF_SERV1' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ELSEIF VEDPA-VBEGDAT NE SPACE AND NOT VEDPA-VBEGDAT IS INITIAL. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_TERMS_OF_SERV2' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE.
PAGE 23
Sample Programs Sample Program YRVADOR01 (Example 1) EXPORTING ELEMENT = 'ITEM_TERMS_OF_NOTICE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDLOOP. IF NOT US_TEXT IS INITIAL. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'EMPTY_LINE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ENDFORM.
PAGE 24
Sample Programs Sample Program YRVADOR01 (Example 1) EXPORTING COMMAND = 'ENDPROTECT'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'SUPPLEMENT_TEXT' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDFORM.
PAGE 25
Sample Programs Sample Program YRVADOR01 (Example 1) * 'X' = screen * * --> US_COUNTRY County for telecommunication and SET COUNTRY * *---------------------------------------------------------------------* FORM FORM_OPEN USING US_SCREEN US_COUNTRY. INCLUDE RVADOPFO. ENDFORM.
PAGE 26
Sample Programs Sample Program YRVADOR01 (Example 1) EXPORTING ELEMENT = 'TITLE_E' WINDOW = 'TITLE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. WHEN 'F'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'TITLE_F' WINDOW = 'TITLE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. WHEN 'G'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'TITLE_F' WINDOW = 'TITLE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0.
PAGE 27
Sample Programs Sample Program YRVADOR01 (Example 1) CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'TITLE_L' WINDOW = 'TITLE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. WHEN OTHERS. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'TITLE_OTHERS' WINDOW = 'TITLE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDCASE. IF REPEAT NE SPACE.
PAGE 28
Sample Programs Sample Program YRVADOR01 (Example 1) IF PRICE_PRINT_MODE EQ CHARA. CALL FUNCTION 'RV_PRICE_PRINT_REFRESH' TABLES TKOMV = TKOMV. ENDIF. CLEAR KOMK. CLEAR KOMP. VBCO3-MANDT VBCO3-SPRAS VBCO3-VBELN VBCO3-KUNDE VBCO3-PARVW = = = = = SY-MANDT. NAST-SPRAS. NAST-OBJKY. NAST-PARNR. NAST-PARVW. CALL FUNCTION 'RV_DOCUMENT_PRINT_VIEW' EXPORTING COMWA = IMPORTING KOPF = TABLES POS = MESS = EXCEPTIONS FEHLER_BEI_DATENBESCHAFFUNG = IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. RETCODE = 1. EXIT. ELSE.
PAGE 29
Sample Programs Sample Program YRVADOR01 (Example 1) I_POSNR_LOW TABLES PRINT_DATA_POS PRINT_DATA_HEAD PRINT_NOTICE_POS PRINT_NOTICE_HEAD = US_VEDA_POSNR_LOW = = = = TKOMSERVP TKOMSERVH TKOMSERVPN TKOMSERVHN. PERFORM GET_CONTROLL_DATA. PERFORM SENDER. PERFORM CHECK_REPEAT. PERFORM TVBDPAU_CREATE. ENDFORM.
PAGE 30
Sample Programs Sample Program YRVADOR01 (Example 1) * * * 30 EXPORTING ELEMENT = 'ITEM_BILLING_SCHEDULE_PERIODIC' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. bei periodischen nur eine Zeile EXIT. ELSEIF FPLTDR-FAREG CA '14'. prozentuale Teilfakturierung IF NOT FIRST_LINE IS INITIAL. CLEAR FIRST_LINE. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_BILLING_SCHEDULE_PERCENT_HEADER' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE.
PAGE 31
Sample Programs Sample Program YRVADOR01 (Example 1) IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ELSEIF FPLTDR-FAREG CA '3'. * Schlußrechnung ENDIF. ENDLOOP. ENDFORM. *eject *&---------------------------------------------------------------------* *& FORM GET_ITEM_ADDIS *&---------------------------------------------------------------------* * Additionals data are fetched from database *----------------------------------------------------------------------* FORM GET_ITEM_ADDIS.
PAGE 32
Sample Programs Sample Program YRVADOR01 (Example 1) EXPORTING INSTANCE LANGUAGE PRINT_SALES TABLES CONFIGURATION EXCEPTIONS OTHERS = VBDPA-CUOBJ = NAST-SPRAS = CHARX = TKOMCON = 4. RANGES : DA_IN_CABN FOR DA_T_CABN-ATINN. * Beschreibung der Merkmale wegen Objektmerkmalen auf sdcom-vkond holen CLEAR DA_IN_CABN. REFRESH DA_IN_CABN. LOOP AT TKOMCON. DA_IN_CABN-OPTION = 'EQ'. DA_IN_CABN-SIGN = 'I'. DA_IN_CABN-LOW = TKOMCON-ATINN. APPEND DA_IN_CABN. ENDLOOP. * * * * * * * CLEAR DA_T_CABN.
PAGE 33
Sample Programs Sample Program YRVADOR01 (Example 1) * In this routine the price data for the item is fetched from * * the database. * *---------------------------------------------------------------------* FORM GET_ITEM_PRICES. CLEAR: KOMP, TKOMV. IF KOMK-KNUMV NE VBDKA-KNUMV OR KOMK-KNUMV IS INITIAL. CLEAR KOMK. KOMK-MANDT = SY-MANDT. KOMK-KALSM = VBDKA-KALSM. KOMK-KAPPL = PR_KAPPL. KOMK-WAERK = VBDKA-WAERK. KOMK-KNUMV = VBDKA-KNUMV. KOMK-VBTYP = VBDKA-VBTYP. KOMK-LAND1 = VBDKA-LAND1.
PAGE 34
Sample Programs Sample Program YRVADOR01 (Example 1) TABLES TKOMV TKOMVD = TKOMV = TKOMVD. ENDIF. ENDFORM. *---------------------------------------------------------------------* * FORM GET_HEADER_PRICES * *---------------------------------------------------------------------* * In this routine the price data for the header is fetched from * * the database. * *---------------------------------------------------------------------* FORM GET_HEADER_PRICES. LOOP AT TVBDPA.
PAGE 35
Sample Programs Sample Program YRVADOR01 (Example 1) *&---------------------------------------------------------------------* *& Form HEADER_DATA_PRINT *&---------------------------------------------------------------------* * Printing of header data like terms, weights .... * *----------------------------------------------------------------------* FORM HEADER_DATA_PRINT. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'HEADER_DATA' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0.
PAGE 36
Sample Programs Sample Program YRVADOR01 (Example 1) IF NOT KOMVD-KNTYP EQ 'f'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'SUM_LINE'. ENDIF. ENDIF. ENDLOOP. DESCRIBE TABLE TKOMVD LINES SY-TFILL. IF SY-TFILL = 0. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'UNDER_LINE' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ENDFORM.
PAGE 37
Sample Programs Sample Program YRVADOR01 (Example 1) * IF VBDKA-VBTYP = VBTYP_GANF. Gutschriftsanforderung IF VBDPA-SHKZG = CHARX. IF US_GANF IS INITIAL. MOVE CHARX TO US_GANF. MOVE SPACE TO US_LANF. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'CORRECTION_TEXT_K' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ELSE. IF US_LANF IS INITIAL. MOVE CHARX TO US_LANF. MOVE SPACE TO US_GANF.
PAGE 38
Sample Programs Sample Program YRVADOR01 (Example 1) MOVE CHARX TO US_GANF. MOVE SPACE TO US_LANF. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'CORRECTION_TEXT_K' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ENDIF. ENDIF. ENDFORM.
PAGE 39
Sample Programs Sample Program YRVADOR01 (Example 1) ELEMENT = 'ITEM_LINE_CONFIGURATION_HEADER' EXCEPTIONS OTHERS = 1. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ELSE. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_LINE_CONFIGURATION' EXCEPTIONS OTHERS = 1. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ENDLOOP. ENDFORM.
PAGE 40
Sample Programs Sample Program YRVADOR01 (Example 1) KOMVD-KSCHL = SPACE ). CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_LINE_PRICE_QUANTITY'. ELSE. IF KOMVD-KNTYP NE 'f'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_LINE_PRICE_TEXT'. ELSE. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_LINE_REBATE_IN_KIND'. ENDIF. ENDIF. ENDLOOP. ENDFORM.
PAGE 41
Sample Programs Sample Program YRVADOR01 (Example 1) PERFORM GET_ITEM_BILLING_SCHEDULES. PERFORM GET_ITEM_PRICES. PERFORM GET_ITEM_ADDIS. CALL FUNCTION 'CONTROL_FORM' EXPORTING COMMAND = 'ENDPROTECT'. CALL FUNCTION 'CONTROL_FORM' EXPORTING COMMAND = 'PROTECT'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_LINE'. PERFORM ITEM_REJECTED. PERFORM ITEM_PRICE_PRINT. CALL FUNCTION 'CONTROL_FORM' EXPORTING COMMAND = 'ENDPROTECT'. PERFORM ITEM_TEXT_PRINT. PERFORM ITEM_SERIALS_PRINT.
PAGE 42
Sample Programs Sample Program YRVADOR01 (Example 1) FORM ITEM_REFERENCE_BILLING. CHECK VBDKA-VBKLT EQ VBKLT_RECH_KORR. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_REFERENCE_BILLING' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDFORM.
PAGE 43
Sample Programs Sample Program YRVADOR01 (Example 1) WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ELSE. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'SEVERAL_SUBITEMS' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ENDFORM.
PAGE 44
Sample Programs Sample Program YRVADOR01 (Example 1) MSG_V3 MSG_V4 EXCEPTIONS OTHERS = SYST-MSGV3 = SYST-MSGV4 = 1. ENDFORM. *---------------------------------------------------------------------* * FORM SCHEDULE_HEADER * *---------------------------------------------------------------------* * If there are schedules in the item, then here is printed the * * header for the schedules. * *---------------------------------------------------------------------* FORM SCHEDULE_HEADER.
PAGE 45
Sample Programs Sample Program YRVADOR01 (Example 1) *---------------------------------------------------------------------* * This routine determines the address of the sender (Table VKO) * *---------------------------------------------------------------------* FORM SENDER. SELECT SINGLE * FROM TVKO WHERE VKORG = VBDKA-VKORG. IF SY-SUBRC NE 0. SYST-MSGID = 'VN'. SYST-MSGNO = '203'. SYST-MSGTY = 'E'. SYST-MSGV1 = 'TVKO'. SYST-MSGV2 = SYST-SUBRC. PERFORM PROTOCOL_UPDATE. EXIT. ENDIF.
PAGE 46
Sample Programs Sample Program YRVADOR01 (Example 1) * This routine is creating a table which includes the subitem- * * numbers * *---------------------------------------------------------------------* FORM TVBDPAU_CREATE. CLEAR TVBDPAU. REFRESH TVBDPAU. LOOP AT TVBDPA. IF TVBDPA-UEPOS IS INITIAL. * Eintrag der letzten Positon merken IF TVBDPAU-UPOSV > 0. APPEND TVBDPAU. CLEAR TVBDPAU. ENDIF. * Neuen Eintrag anfangen TVBDPAU-POSNR = TVBDPA-POSNR. ELSE.
PAGE 47
Sample Programs Sample Program YRVADOR01 (Example 1) EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. WHEN 'E'. IF VBDKA-GUEBG CN '0' OR VBDKA-GUEEN CN '0'. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'VALIDITY_CONTRACT' WINDOW = 'VALIDITY' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. WHEN 'F'. IF VBDKA-GUEBG CN '0' OR VBDKA-GUEEN CN '0'.
PAGE 48
Sample Programs Sample Program YRVADOR01 (Example 1) *& Form HEADER_NOTICE_PRINT *&---------------------------------------------------------------------* * This routine prints the notice-rules of the contract-header. * *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM HEADER_NOTICE_PRINT. DATA: US_TEXT(1) TYPE C. "Kz. falls Text für Kündigungsbed.
PAGE 49
Sample Programs Sample Program YRVADOR01 (Example 1) *&---------------------------------------------------------------------* *& Form GET_ITEM_SERIALS *&---------------------------------------------------------------------* * This routine give back the serialnumbers of salesdocument * * position. The numbers are processed as print-lines in the * * table KOMSER_PRINT.
PAGE 50
Sample Programs Sample Program YRVADOR01 (Example 1) I_BOUNDARY_LEFT I_BOUNDARY_RIGHT I_SEP_CHAR_STRINGS I_SEP_CHAR_INTERVAL I_USE_INTERVAL I_BOUNDARY_METHOD I_LINE_LENGTH I_NO_ZERO I_ALPHABET I_DIGITS I_SPECIAL_CHARS I_WITH_SECOND_DIGIT TABLES SERIALS SERIALS_PRINT EXCEPTIONS BOUNDARY_MISSING INTERVAL_SEPARATION_MISSING LENGTH_TO_SMALL INTERNAL_ERROR WRONG_METHOD WRONG_SERIAL TWO_EQUAL_SERIALS SERIAL_WITH_WRONG_CHAR SERIAL_SEPARATION_MISSING IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDFORM.
PAGE 51
Sample Programs Sample Program YRVADOR01 (Example 1) WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. CLEAR FIRST_LINE. ELSE. * Output of the following printlines CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM_LINE_SERIAL' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ENDIF. ENDLOOP. * If serialnumbers exists a empty line is printed. IF FIRST_LINE IS INITIAL.
PAGE 52
Sample Programs Sample Program YRVADOR01 (Example 1) PERFORM PROTOCOL_UPDATE. ENDIF. ENDFORM. " HEADER_INTER_PRINT *&---------------------------------------------------------------------* *& Form GET_CONTROLL_DATA *&---------------------------------------------------------------------* * Checks if servicedata for the header exists. * * Checks if servicedata for the position exists. * * Checks if noticedata for the header exists. * * Checks if noticedata for the position exists.
PAGE 53
Sample Programs Sample Program YRVADOR01 (Example 1) MOVE TKOMSERVH TO VEDKA. * Output of the validity. IF NOT VEDKA-VENDDAT IS INITIAL OR VEDKA-VENDDAT EQ SPACE. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'HEADER_TERMS_OF_SERV1' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0. PERFORM PROTOCOL_UPDATE. ENDIF. ELSEIF VEDKA-VBEGDAT NE SPACE AND NOT VEDKA-VBEGDAT IS INITIAL. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'HEADER_TERMS_OF_SERV2' EXCEPTIONS ELEMENT = 1 WINDOW = 2. IF SY-SUBRC NE 0.
PAGE 54
Sample Programs Sample layout set YRVORDER01 (Example 1) Sample layout set YRVORDER01 (Example 1) 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 54 SFORMYRVORDER01 HFORMYRVORDER01 OLANE HEADFORM YRVORDER01 SAP DEF ETEST YRVORDER01 00046DEVELOP 46C 20030624165312DEVELOPER 620 2003070107335313200064 E0 800 LINE/:FORM CPI 10; LPI 6; TAB-STOP 1 CM; START-PAGE FIRST; PARAGRAPH AS; RDI; LINE/:FO
PAGE 55
Sample Programs Sample layout set YRVORDER01 (Example 1) 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: LINE/:WINDOW GRAPH2 TYPE GRAPH; LINE/:WINDOW HEADER TYPE VAR; LINE/:WINDOW INFO TYPE CONST; LINE/:WINDOW INFO1 TYPE VAR; LINE/:WINDOW INFO2 TYPE VAR; LINE/:WINDOW MAIN LINE/:WINDOW PAGE TYPE VAR; LINE/:WINDOW REPEAT TYPE CONST; LINE/:PAGE FIRST NEXT NE
PAGE 56
Sample Programs Sample layout set YRVORDER01 (Example 1) 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 56 LINE/:WINDOW INFO TEXT 'Information (General data)'; LINE/:WINDOW INFO1 TEXT 'Additional data window'; LINE/:WINDOW INFO2 TEXT 'Info window - Next page'; LINE/:WINDOW MAIN TEXT 'Main window'; LIN
PAGE 57
Sample Programs Sample layout set YRVORDER01 (Example 1) 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: LINE/:IF &VBDKA-VBELN_VANG& NE &SPACE&. LINE/ Contract no./Date LINE/ &VBDKA-VBELN_VANG&&' / 'VBDKA-AUDAT_VANG& LINE/:ENDIF. LINE/:ENDIF.
PAGE 58
Sample Programs Sample layout set YRVORDER01 (Example 1) 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 58 LINE* LINE* LINE/WMAIN LINE/*POSITION XORIGIN '-0.
PAGE 59
Sample Programs Sample layout set YRVORDER01 (Example 1) 252: 253: 254: 255: 256: 257: 258: 259: 260: 261: 262: 263: 264: 265: 266: 267: 268: 269: 270: 271: 272: 273: 274: 275: 276: 277: 278: 279: 280: 281: 282: 283: 284: 285: 286: 287: 288: 289: 290: 291: 292: 293: 294: 295: 296: 297: 298: 299: 300: 301: 302: 303: 304: LINE/:PROTECT LINE/:IF &VBDPA-ZTERM_TX1& NE &SPACE& OR &VBDPA-ZTERM_TX2& NE &SPACE& OR &VBDP LINEID&'Terms of payment 'VBDPA-ZTERM_TX1& LINE/ &' 'VBDPA-ZTERM_TX2& LINE/ &' 'VBDPA-ZTERM_TX3
PAGE 60
Sample Programs Sample layout set YRVORDER01 (Example 1) 305: 306: 307: 308: 309: 310: 311: 312: 313: 314: 315: 316: 317: 318: 319: 320: 321: 322: 323: 324: 325: 326: 327: 328: 329: 330: 331: 332: 333: 334: 335: 336: 337: 338: 339: 340: 341: 342: 343: 344: 345: 346: 347: 348: 349: 350: 351: 352: 353: 354: 355: 356: 60 LINE/EITEM_LINE_CONFIGURATION LINEIC,,&CONF_OUT-ATBEZ&,,&CONF_OUT-ATWTB& LINE/EITEM_REJECTED LINEID*** The item has been rejected *** LINE/EITEM_CONSIGNEE LINEIDShip-to party LINE/:ADDRESS
PAGE 61
Sample Programs Sample layout set YRVORDER01 (Example 1) 357: 358: 359: 360: 361: 362: 363: 364: 365: 366: 367: 368: 369: 370: 371: 372: 373: 374: 375: 376: 377: 378: 379: 380: 381: 382: 383: 384: 385: 386: 387: 388: 389: 390: 391: 392: 393: 394: 395: 396: 397: 398: 399: 400: 401: 402: 403: 404: 405: 406: 407: 408: 409: 410: LINE/EEMPTY_LINE LINE/ LINE/EITEM_LINE_SERIAL_HEADER LINEIM,,Serial no.
PAGE 62
Sample Programs Sample layout set YRVORDER01 (Example 1) 411: 412: 413: 414: 415: 416: 417: 418: 419: 420: 421: 422: 423: 424: 425: 426: 427: 428: 429: 430: 431: 432: 433: 444: 445: 446: 447: 448: 449: 450: 451: 452: 453: 454: 455: 456: 457: 458: 459: 460: 461: 462: 463: 464: 465: 466: 467: 468: 469: 62 LINE* LINE* LINE* LINE* LINE/WINFO1 LINE/:IF &VBDKA-LAND1_WE& NE &SPACE&. LINE/ ~~Ship-to address LINE/:ENDIF.~~
~~PAGE 63~~
Sample Programs Sample layout set YRVORDER01 (Example 1) 470: 471: 472: 473: 474: 475: 476: 477: 478: 479: 480: 481: 482: 483: 484: 485: 486: 487: 488: 489: 490: 491: 492: 493: 494: 495: 496: 497: 498: 499: 500: 501: 502: 503: 504: 505: 506: 507: 508: 509: 510: 511: 512: 513: 514: 515: 516: 517: 518: 519: 520: 521: 522: LINE/:STRING B TEXT 'Bold'; LINE/:STRING I TEXT 'Italics'; LINE/:STRING K TEXT 'Key word'; LINE/:STRING PR TEXT 'Character string protected'; LINE/:STRING S TEXT 'Short key word'; LINE/:ST
~~PAGE 64~~
Sample Programs Sample layout set YRVORDER01 (Example 1) 523: 524: 525: 526: 527: 528: 529: 530: 531: 532: 533: 534: 535: 536: 537: 538: 539: 540: 541: 542: 543: 544: 545: 546: 547: 548: 549: 550: 551: 552: 553: 554: 555: 556: 557: 558: 559: 560: 561: 562: 563: 564: 565: 566: 567: 568: 569: 570: 571: 572: 573: 574: 575: 576: 64 LINE/ &VBDKA-BSTKD&&' /'VBDKA-BSTDK& LINE/:IF &VBDKA-VBTYP_VANG& = 'B'. LINE/:IF &VBDKA-VBELN_VANG& NE &SPACE&. LINE/ Quotation no.
~~PAGE 65~~
Sample Programs Sample layout set YRVORDER01 (Example 1) 577: 578: 579: 580: 581: 582: 583: 584: 585: 586: 587: 588: 589: 590: 591: 592: 593: 594: 595: 596: 597: 598: 599: 600: 601: 602: 603: 604: 605: 606: 607: 608: 609: 610: 611: 612: 613: 614: 615: 616: 617: 618: 619: 620: 621: 622: 623: 624: 625: 626: 627: 628: LINE/WPAGE LINEAS~~Page LINE/ &PAGE& LINE/*You can also print out the page number as "x of y": LINE/*&PAGE& / &SAPSCRIPT-FORMPAGES& LINE* LINE* LINE* LINE* LINE* LINE/WINFO1 LINE/:IF &VBDKA~~
~~PAGE 66~~
Sample Programs Sample layout set YRVORDER01 (Example 1) 629: 630: 631: 632: 633: 634: 635: 636: 637: 638: 639: 640: 641: 642: 643: 644: 645: 646: 647: 648: 649: 650: 651: 652: 653: 654: 655: 666: 667: 668: 669: 670: 671: 672: 673: 674: 675: 676: 677: 678: 679: 680: 681: 682: 683: 684: 685: 686: 687: 688: 689: 690: 66 LINEAS&'Terms of payment 'VBDKA-ZTERM_TX1& LINE/ &' 'VBDKA-ZTERM_TX2& LINE/ &' 'VBDKA-ZTERM_TX3& LINE/:ELSE LINE/:INCLUDE &VBDKA-ZTERM& OBJECT TEXT ID SDTP PARAGRAPH L LINE/:ENDIF LINEAS&'T
~~PAGE 67~~
Sample Programs Sample layout set YRVORDER01 (Example 1) 691: 692: 693: 694: 695: 696: 697: 698: 699: 700: 701: 702: 703: 704: 705: 706: 707: 708: 709: 710: 711: 712: 713: 714: 715: 716: 717: 718: 719: 720: 721: 722: 723: 724: 725: 726: 727: 728: 729: 730: 731: 732: 733: 734: 735: 736: 737: 738: 739: 740: 741: 742: 743: LINE/:ENDIF LINE/:ENDIF LINE/:IF &VBDKA-VBTYP_VANG& = 'F' OR &VBDKA-VBTYP_VANG& = 'G' LINE/:IF &VBDKA-VBELN_VANG& NE &SPACE& LINEIL,,Contract &VBDPA-VBELN_VANG&&'from 'VBDPA-AUDAT_VANG& LI
~~PAGE 68~~
Sample Programs Sample layout set YRVORDER01 (Example 1) 744: 745: 746: 747: 748: 749: 750: 751: 752: 753: 754: 755: 756: 757: 758: 759: 760: 761: 762: 763: 764: 765: 766: 767: 768: 769: 770: 771: 772: 773: 774: 775: 776: 777: 778: 779: 780: 781: 782: 783: 784: 785: 786: 787: 788: 789: 790: 791: 792: 793: 794: 795: 796: 68 LINE/EITEM_SUM LINEUL&ULINE(71)& LINESUItems total,,,,,,,,,,,,,,,,&KOMK-SUPOS(I13)& LINE/ESUM_LINE LINESU&KOMVD-VTEXT(15)&,,,,,,&KOMVD-KBETR(I12)&,,&KOMVD-KOEIN& ,, LINE= &KOMVD-KPEIN(
~~PAGE 69~~
~~Sample Programs Sample layout set YRVORDER01 (Example 1) 797: LINE/EHEADER_TERMS_OF_SERV3 798: LINEINValidity start date: &vedka-bezei_beg&.~~
~~PAGE 70~~
Sample Programs Sample program YHP_POFORM (Example 3) Sample program YHP_POFORM (Example 3) REPORT YHP_POFORM no standard page heading line-size 70 message-id m1. *********************************************************************** * This program will generate the SAPScript Document and will sent to * * the SAPConnect through Business Communication Interface (BCI) * * * * Created By : RBABU * * Dated : 03.07.
~~PAGE 71~~
Sample Programs Sample program YHP_POFORM (Example 3) DATA: BEGIN OF potab OCCURS 0, ebelp TYPE ekpo-ebelp, matnr TYPE ekpo-matnr, menge TYPE ekpo-menge, netpr TYPE ekpo-netpr, netwr TYPE ekpo-netwr, maktx TYPE makt-maktx, END OF potab. data: begin of wa, ebeln type ekKo-ebeln, lifnr type ekKo-lifnr, aedat type ekko-aedat, end of wa. Data: LAND LIKE SOXFX-REC_STATE, NUMBER LIKE SOXFX-REC_FAX. * Selection-parameters selection-screen begin of block b1 with frame. parameter: PONumber type ekko-ebeln.
~~PAGE 72~~
Sample Programs Sample program YHP_POFORM (Example 3) endif. Land = lfa1-land1. number = lfa1-telfx. ************************************************************************ * Sender (BOR-Objekt-ID) * ************************************************************************ * Creation of Receipent SWC_CREATE_OBJECT SENDER 'RECIPIENT' SPACE. * clear Container SWC_CLEAR_CONTAINER CONTAINER. * Address String SWC_SET_ELEMENT CONTAINER 'AddressString' SY-UNAME.
~~PAGE 73~~
Sample Programs Sample program YHP_POFORM (Example 3) * Container leeren SWC_CLEAR_CONTAINER CONTAINER. * Type Fax SWC_SET_ELEMENT CONTAINER 'TypeId' 'U'. * importing: Internet-Nummer MOVE: adr6-smtp_addr TO ADDRESS_STRING. SWC_SET_ELEMENT CONTAINER 'AddressString' ADDRESS_STRING. * Using recipient.CreateAddress SWC_CALL_METHOD RECIPIENT 'CreateAddress' CONTAINER. IF SY-SUBRC NE 0. MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO. ENDIF. Endif. SWC_OBJECT_TO_PERSISTENT RECIPIENT RECIPIENT_ID.
~~PAGE 74~~
Sample Programs Sample program YHP_POFORM (Example 3) IF SY-SUBRC NE 0. CLEAR APPL_OBJECT_ID. ENDIF. ENDIF. ELSE. CLEAR APPL_OBJECT_ID. ENDIF. ************************************************************************ * Declaring the SAPSCript * ************************************************************************ * Füllen des Text-Headers für SAPscript CLEAR HEADER. HEADER-TDOBJECT = 'FORM'. If FAX = 'X'. HEADER-TDNAME = 'TestFax'. endif. IF INTERNET = 'X'. HEADER-TDNAME = 'TestMail'. endif.
~~PAGE 75~~
Sample Programs Sample program YHP_POFORM (Example 3) FORM = HEADER-TDFORM LANGUAGE = HEADER-TDSPRAS OPTIONS = OPTIONS MAIL_SENDER = SENDER_ID MAIL_RECIPIENT = RECIPIENT_ID MAIL_APPL_OBJECT = APPL_OBJECT_ID EXCEPTIONS CANCELED = 1 DEVICE = 2 FORM = 3 OPTIONS = 4 UNCLOSED = 5 MAIL_OPTIONS = 6 OTHERS = 7. IF SY-SUBRC NE 0. MESSAGE A634(SO) WITH 'OPEN_FORM' SY-SUBRC. ENDIF.
~~PAGE 76~~
Sample Programs Sample program YHP_POFORM (Example 3) LOOP AT potab. select single * from makt where matnr = potab-matnr. potab-maktx = makt-maktx. CALL FUNCTION 'WRITE_FORM' EXPORTING ELEMENT = 'ITEM' WINDOW = 'MAIN' EXCEPTIONS ELEMENT = 1 FUNCTION = 2 TYPE = 3 UNOPENED = 4 UNSTARTED = 5 WINDOW = 6 BAD_PAGEFORMAT_FOR_PRINT = 7 SPOOL_ERROR = 8 OTHERS = 9. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. endloop.
~~PAGE 77~~
Sample Programs Sample layout set ZHP_POFORM (Example 3) Sample layout set ZHP_POFORM (Example 3) 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: SFORMZHP_POFORM HFORMZHP_POFORM OLANE HEADFORM ZHP_POFORM SAP DEF EFor Demo Purpose ZHP_POFORM 00105DEVELOP 46C 20030627153956DEVELOPER 620 2003070703470713200026 E0 800 LINE/:FORM CPI 10; LPI 6; TAB-STOP 1 CM; START-PAGE PAGE1; PARAGRAPH P1; RDI; LINE/:FORM
~~PAGE 78~~
Sample Programs Sample layout set ZHP_POFORM (Example 3) 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 78 LINE/:WINDOW BASE1 TEXT 'for Footer'; LINE/:WINDOW GRAPH1 TEXT 'New Graphic'; LINE/:WINDOW GRAPH2 TEXT 'DIGITAL LOGO'; LINE/:WINDOW MAIN TEXT 'Main window'; LINE/:WINDOW SEC1 TEXT 'For Header Info'; LINE/:PAGE PAGE1 TEXT 'Page for Display'; LINE/WGRAPH2 LINE/:BITMAP 'ZDIGITAL' OBJECT GRAPHICS ID
~~PAGE 79~~
Sample Programs Sample report program YSALES_SC (Example 4) Sample report program YSALES_SC (Example 4) report Ysales_sc no standard page heading line-size 120 line-count 80(2) message-id s1. ************************************************************************ * Title : Sales order list to test Fax and Internet. * * Created by : Ravindra Babu.I * * Changed on : 07.07.
~~PAGE 80~~
Sample Programs Sample report program YSALES_SC (Example 4) endif. * It will send only fax or internet without display if p2 = 'X'. perform print_spool. endif. end-of-page. write:/2 sy-uline(120). top-of-page. write:/2 sy-uline(120). write:/2 sy-vline, 5 'Digital Gloabl Soft Limited' color col_positive, 70 'Date:', sy-datum,'Time:',sy-uzeit, 120 sy-vline. write:/2 sy-vline, 120 sy-vline . write:/2 sy-vline, 5 'Title: Sales Order Item Details List',120 sy-vline. write:/2 sy-vline, 120 sy-vline .
~~PAGE 81~~
Sample Programs Sample report program YSALES_SC (Example 4) send_time type so_fx_stim, send_night type so_fx_snit, send_immi type so_fx_simm, rec_state type so_fx_sate, rec_pers type so_fx_co, rec_adrnr type adrnr, send_sched type so_sched, fax_form type so_faxform, form_langu type so_formlan, send_titel type so_fx_stit, send_comp type so_fx_scom, send_comp2 type so_fx_sco2, send_anred type so_fx_sanr, send_stret type so_fx_sstr, send_pstl type so_fx_spst, send_ort type so_fx_stwn, send_c_tel type so_fx_sc
~~PAGE 82~~
Sample Programs Sample report program YSALES_SC (Example 4) buffer exceptions no_such_job job_contains_no_data selection_empty no_permission can_not_access read_error type_no_match others = compressed_list = = = = = = = = 1 2 3 4 5 6 7 8. check not compressed_list[] is initial. move compressed_list[] to objbin[]. *** Delete Spool after read. clear spool_rec. move p_spool to spool_rec-rqident. call function 'RSPO_IDELETE_SPOOLREQ' exporting spoolreq = spool_rec importing status = spool_stat.
~~PAGE 83~~
Sample Programs Sample report program YSALES_SC (Example 4) ** we need no header objpack-head_start = 1. objpack-head_num = 0. ** but a body objpack-body_start = 1. objpack-body_num = tab_lines. ** of type ALI objpack-doc_type = 'ALI'. objpack-obj_name = 'Attachment'. objpack-obj_descr = 'Sales Order Item Details '. write : sy-datum to objpack-obj_descr+33. objpack-doc_size = tab_lines * 255. append objpack. refresh : reclist. if p2 = 'X' and mailtype = 'U'. loop at receiver. recipient_int = receiver-low.
~~PAGE 84~~
Sample Programs Sample report program YSALES_SC (Example 4) put_in_outbox = 'X' commit_work = 'X' tables packing_list = objpack object_header = objhead contents_bin = objbin contents_txt = objtxt receivers = reclist exceptions too_many_receivers = 1 document_not_sent = 2 operation_no_authorization = 4 others = 99. endform.
~~PAGE 85~~
Sample Programs Sample report program YSALES_SC (Example 4) release = 'X' new_list_id = 'X' line_size = 120 line_count = 80 layout = 'X_90_120' no_dialog = 'X' importing out_parameters = params valid = valid. if valid <> space and p2 = 'X'. new-page print on parameters params no dialog. loop at i_vbap. on change of i_vbap-vbeln.
~~PAGE 86~~
~~Sample Programs Sample report program YSALES_SC (Example 4) 86 Technical Note~~