SAPScript form coding changed automatically during transport

Hi,
I have developped a SAPScript form in dev. and worked well.
After I had transport it to testing environnment to test it there, I found out that my SAPScript coding
was modified: some new lines code have been added replacing the original code while others have been just deleted.
When I checked the attribute of the SAPScript, I notice that these modifications have been added automatically by user DDIC!
I really do not understand how this could be.
Any idea is welcome.
Thanks,
Charas

Hi Charas,
Note that SAPScripts are client specific, so make sure you import your script to each and every QA client. Inform your basis that the transport is not a cross client object. So, he will import to all the QA client.
Or check with your Basis, to which QA client the transport has been imported to, go to SCC1 transcation code and copy it over to required QA client.
I guess, above information will help you to close the thread.
Regards,
SaiRam

Similar Messages

How to change the Development Class of the SAPSCRIPT FORM

Hi All,
      I have transported the old form which needs to be deleted in Test System. Is that possible to create a TR for deletion and send it to Test enivronment?..
     Also is it possible to change the development class for a form?
     Please help me on this. Urgent!...
Regards,
Ramkumar.

Yes, it is possible to change the development class for forms..
Use SE03, transport organiser tools
goto node OBJECT DIRECTORY ENTRY
select node "Change object directory entries"
Execute
goto the next text box after data element, type FORM, give your SAPSCRIPT form name and tick the check box execute... now rightclick on your form and chenge development class..
Now coming to your second question is is not possible to delete a FORM that it is already transported to QA and Production, only way to do this is by doing client copy.. basis will do it for you..
Close the thread once your question is answered.
Regards,
SaiRam

Transport Sapscript form issue

Hi friends, I trying to transport a Sapscript form from DEV100 to QAS400. I changed it and save on a request, so I went to stms and made a import but the form don't update inn QAS. I tried use RSWBO052 too, but without sucess. Whats I doing wrong?
Thanks!

Hi,
From the development and staging servers mentioned, it looks like developmet has client 100 and staging has client 400. Usually, the same client is used in SAP Landscape from dev to stag to prod.
Confirm from BASIS that your path for transport is configured from DEV client 100 to QAS client 400. If not, it may be the case that transports are happening on one of the same clients, either 100 or 400.
Since SAPScripts are client dependent, in such a scenario, you will have to get the SAPScript transported to the needed client in dev itself first. You can use transaction SCC1 for this.
Regards,
Shiva

Long DDIC Activation for Master Data Change During Transport

Good Morning Folks,
During transport of a change to a custom master data object to production, the data dictionary activation is taking a very long time and using a very large amount of space.
The change to the master data object was adding three additional navigational attributes. This master data is not time-dependant. The master data contains about 1.2 million records and has 49 active navigational attributes u2013 including the three new ones. The Data Dictionary activation is executing report SAPLRSDU for more than 8 hours and is using upwards of 52GB of temp filespace (of 92GB allocated) during this time. To the best of our knowledge, it looks as if it is trying to recreate or repopulate the /BIC/Pxxxx table of the master data. It looks like it's reading billions of records (probably the same 1.2 m records over and over.)
There are no errors in any logs that we can see.
Previous changes to this master data object have been successful, and reasonably fast. And the transport of this change from Dev to our QA environment was very fast.
We still need to get this change in, as well as additional changes that are dependant. Why would this take so long, and is there anything we can do to get this to run faster?
BTW: We are on 3.5 (but looking forward to NW7.)
Thanks, Brian

Brian,
Usually adding nav attributes would mean that the X and y tables get regenerated...
Also do you notice reads only on the P-Table or other tables which have this object as well..?
If it is only the P Table - try refreshing the stats for the same...

Dynamic change of Adapter Engine during transport

Hello All,
I am trying to understand the following, can some one explain me how and what changes are done to get this working.
so if you check both the images, in the Dev box (first image), we use central adapter engine and after transport to Quality box the adapter engine is automatically changed to af.qpp.qppdb1.
I want to understand how and what config changes are done in order to get the new adapter engine name changed automatically. I tried to search some forums but all in vain.
Answers will be rewarded for sure.
Thanks in anticipation

hi karim,
As liad said ...
<b><i>In fact the adapter engine linked to the integration engine in our configuration is wrong.
Whetever we are trying to do through sxmb_adm it remain the same.</i></b>
If you are going to vhange the IE configuration ...It will not remain the same....
Execute the TCode SXMB_ADM goto Integration Engine Configuration
you can modify your Configuration as per Requirement..
regards,
vasanth.

Change Page in Sapscript form

Hi,
I have a custom report with a sapscript form that contains a list of records from KNA1 table. I would like to have a different page for every different KNA1-KUNNR (change page at new kunnr). Is this possible and how?
Thanks

Hi,
Kindly follow the below steps::
1.declare first field in ur internal table as 'KUNNR'.
2.once u get the required data into ur internal table to print, SORT the internal table with KUNNR.
3.LOOP the internal table to print and use CONTROL BREAK event (AT END OF KUNNR) to trigger new page for every new KUNNR.
4.In Control Break event (AT END OF KUNNR) call the Function Module 'CONTROL_FORM', which will trigger a new page in the output.
eg:
call function 'OPEN_FORM'      --> to Open the Form
LOOP AT itab.
     call function 'WRITE_FORM'
       exporting
          element = 'ITEM_DET'.
    AT END OF KUNNR.
       CALL FUNCTION 'CONTROL_FORM'
            EXPORTING
               COMMAND = 'NEW-PAGE'.
    ENDAT.
endloop.
Hope it helps!!
Rgds,
Pavan

How to create a transport for SAPscript form

Hi Gurus,
Good day!
I would like seek an expertise from you guys on how i'll be able to create a transport for the SAPscript form. The form has already been copied from the other boxes by running the program RSTXSCRP.
Appreciate your help. Thanks in advance!
Cheers,
Virgilio

hi,
First u create the driver program of the sapscript...ok..
then go to the SE93 and create the T_code of that driver program..
Hope This helps
Regards
RItesh J

Change in SAPScript form not reflect in old orders

Hi Expert,
I have modified the layout of a sales order SAPScript form. For newly created one, I can get the new sales order printed with new layout. But for those who already exists, even though I go to the sales order, Extra -> Output -> Header to delete the original output, and manually add the output type again, the printout are always shown with old layout. I just wonder how can I have my old sales order printed with the new layout, thanks!

Kumar,
Remove and add the query into the workbook again, save the work, close and reopen. You should get it working again.
Workbook also saves the format details and does not work well sometimes. So every time you do any format changes to the query, it is advisable to remove and add back the query into the workbook.
Hope it helps
_RJA

TX F110 change sapscript form

Hi.
I have development a Z sapscript form, it´s a copy from F110_PRENUM_CHCK. How I can to do for change it to my new sapcript form, for TX F110?.
Thanks in advance.
Regards.

Hello,
1. Goto trxn FBZP.
2. Click on "Pymt Methods in Company Codes".
3. Select the company code & payment method for which you want to configure the Form. (Generally it will be C)
4. Double click on the entry, expand the "Form Data" section. Here you will be able to add the Z-Form name.
Please contact a functional guy in case of any doubts.
BR,
Suhas

Query on view cluster event trigger during transport

Hi SAP Gurus,
I would just like to ask if the subroutines set in events for view clusters would also get triggered upon transport.
We had created a function module which is meant to regenerate a dynamic program when changes are made to a particular table. We're planning to call this function module in a subroutine that is called during an event in the view cluster (set to "before saving the data to database"). However, we would also like for this dynamic program to be regenerated automatically once the table changes are transported to the test/prod systems. Thus, I wondered if setting up the event is sufficient, and that it would also be triggered automatically prior to saving the changes to the database during transport, or if we still need to set up XPRA for this.
Thanks!

Some events are triggered when exportingthe changed data,
- 10 After creating the change request header entries (E071)
- 11 After changing a key entry in the change request (E071K)
- 12 After changing the key entries in the change request (E071K)
which are suitable to add a XPRA entry in the request
But many events (AFAIK those without dialog) are triggered during import (and we can check if the program is called via transaction or import via flag VIM_IMPORT_MODE_ACTIVE, eg. do not execute a form which fill hidden fields like created by and created at.)
Regards,
Raymond

Include PDF file in a SAPscript Form

Here is a good one. Anyone ever heard of this. I need to somehow import a PDF file into an ABAP program and include it in a sapscript form.
Requirment:
Customer sends a PDF file to our system. We need to take this PDF file and include into a "quote" sapscript form and fax it back to the customer.
If anyone has any other ideas of how I can accomplish this task........PLEASE let me know. Thanks.
Regards,
Rich Heilman

i solved a similiar problem by following:
- catch the sapsript-data in otf-format by setting
itcpo-tdgetotf = 'X' at CALL FUNCTION 'OPEN_FORM'
- read the pdf-file from it's source
(i.e. content server)in an internal table
- send the fax with function-module SO_DOCUMENT_SEND_API1.
at least in 4.6c you can add attachements to the fax.
the fax-body is the otf, the attachements are
the pdf-files.
i suppose that your fax-software is able to send the pdf-attachements.
here is some coding i copied from my program. i simplified it to show the main steps, so it won't run immediatly. the form assumes that the otf is filled in table ZT_OTFDATE, the pdf in ZT_PDFDATA and the PDF-filesize is in Z_PDFSIZE.
*&      Form FAX
FORM fax CHANGING pe_subrc.
DATA
: ls_docdata TYPE sodocchgi1
, ls_sadrfd TYPE sadrfd
, l_len TYPE i
, lt_packlist TYPE TABLE OF sopcklsti1 WITH HEADER LINE
, lt_head TYPE TABLE OF solisti1 WITH HEADER LINE
, lt_text TYPE TABLE OF solisti1 WITH HEADER LINE
, lt_bin TYPE TABLE OF solisti1 WITH HEADER LINE
, lt_recv TYPE TABLE OF somlreci1 WITH HEADER LINE
, l_lines TYPE i
OTF-Body
CLEAR lt_packlist.
DESCRIBE TABLE zt_otfdata LINES l_lines.
lt_packlist-transf_bin = 'X'.
lt_packlist-head_start = 1.
lt_packlist-head_num   = 1.
lt_packlist-doc_type   = 'OTF'.
lt_packlist-obj_name   = 'Letter'.
lt_packlist-obj_descr = 'Letter'.
lt_packlist-body_start = 1.
lt_packlist-body_num   = l_lines.
lt_packlist-doc_size   = lt_packlist-body_num * 255.
APPEND lt_packlist.
APPEND tnapr-fonam TO lt_head.
APPEND LINES OF zt_otfdata TO lt_bin.
Attachement
CLEAR lt_packlist.
lt_packlist-transf_bin = 'X'.
lt_packlist-doc_type   = 'PDF'.
lt_packlist-obj_name   = 'filename'.
lt_packlist-obj_descr = 'a filedescription'.
lt_packlist-head_start = 2.
lt_packlist-head_num   = 1.
DESCRIBE TABLE lt_bin LINES l_lines.
lt_packlist-body_start = l_lines + 1.
DESCRIBE TABLE zt_PDFDATA LINES l_lines.
lt_packlist-body_num   = l_lines.
lt_packlist-doc_size   = Z_PDFSIZE.
APPEND lt_packlist.
APPEND 'filename' TO lt_head.
APPEND LINES OF zt_pdfdata TO lt_bin.
Receiver
ls_sadrfd-rec_state = itcpo-tdteleland.
ls_sadrfd-rec_fax   = itcpo-tdtelenum.
lt_recv-receiver     = ls_sadrfd.
lt_recv-rec_type     = 'F'.     " F=FAX U=Email
APPEND lt_recv.
DOCUMENT HEADER
CLEAR ls_docdata.
ls_docdata-obj_name    = 'fax name'
ls_docdata-obj_descr   = 'fax description'.
ls_docdata-obj_langu   = sy-langu.
ls_docdata-obj_sort    = sy-datum.
ls_docdata-obj_expdat = sy-datum + 7.
ls_docdata-sensitivty = 'O'.
ls_docdata-obj_prio    = '1'.
ls_docdata-NO_CHANGE   = ''.
ls_docdata-priority    = ls_docdata-obj_prio.
ls_docdata-expiry_dat = ls_docdata-obj_expdat.
ls_docdata-PROC_TYPE   = ''.
ls_docdata-PROC_NAME   = ''.
ls_docdata-PROC_SYST   = ''.
ls_docdata-PROC_CLINT = ''.
ls_docdata-SKIP_SCREN = ''.
ls_docdata-TO_DO_OUT   = ''.
ls_docdata-FREE_DEL    = ''.
ls_docdata-doc_size    = l_len.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data                    = ls_docdata
    PUT_IN_OUTBOX                    = ' '
    SENDER_ADDRESS                   = SY-UNAME
    SENDER_ADDRESS_TYPE              = 'B'
IMPORTING
    SENT_TO_ALL                      =
    NEW_OBJECT_ID                    =
    SENDER_ID                        =
    TABLES
      packing_list                     = lt_packlist
      object_header                    = lt_head
      contents_bin                     = lt_bin
      contents_txt                     = lt_text
    CONTENTS_HEX                     =
    OBJECT_PARA                      =
    OBJECT_PARB                      =
      receivers                        = lt_recv
    EXCEPTIONS
      too_many_receivers               = 1
      document_not_sent                = 2
      document_type_not_exist          = 3
      operation_no_authorization       = 4
      parameter_error                  = 5
      x_error                          = 6
      enqueue_error                    = 7
      OTHERS                           = 8
IF sy-subrc <> 0.
    pe_subrc = sy-subrc.
    PERFORM protocol_update.
ENDIF.
ENDFORM.

How Sapscript form can be send by mail

Hello all,
I want to send a Sapscript form by mail.
I think it should first be converted to PDF form and than need to be send by mail.
I have created a z form which is a copy of standard for medruck and also have changed the standard program SAPFM06P. So I need to add functionality in z program so that i can send the sapscript form by mail.
Can any body let me know the complete process how can i do it?
Thanks

Hi,
Just follow the below code . I am giving the code which starts from OPEN_FORM. After that one submit program is there u can see the code.
*&      Form display_layout
      text
--> p1        text
<-- p2        text
FORM display_layout.
CALL FUNCTION 'OPEN_FORM'
   EXPORTING
APPLICATION                       = 'TX'
ARCHIVE_INDEX                     =
ARCHIVE_PARAMS                    =
     device                            = 'PRINTER'
DIALOG                            = 'X'
     form                              = 'YFIL_DUNN_01'
LANGUAGE                          = SY-LANGU
   options                           = itcpo
MAIL_SENDER                       =
MAIL_RECIPIENT                    =
MAIL_APPL_OBJECT                  =
RAW_DATA_INTERFACE                = '*'
IMPORTING
LANGUAGE                          =
NEW_ARCHIVE_PARAMS                =
RESULT                            =
   EXCEPTIONS
     canceled                          = 1
     device                            = 2
     form                              = 3
     options                           = 4
     unclosed                          = 5
     mail_options                      = 6
     archive_error                     = 7
     invalid_fax_number                = 8
     more_params_needed_in_batch       = 9
     spool_error                       = 10
     OTHERS                            = 11
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT i_tab INTO wa_tab.
    CALL FUNCTION 'WRITE_FORM'
     EXPORTING
       element                     = '531'
FUNCTION                       = 'SET'
TYPE                           = 'BODY'
       window                      = 'MAIN'
IMPORTING
   pending_lines                  = wa_tab.
    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.
CALL FUNCTION 'CLOSE_FORM'
   IMPORTING
     result                         = itcpp
    RDI_RESULT                     =
TABLES
    OTFDATA                        =
     EXCEPTIONS
       unopened                       = 1
       bad_pageformat_for_print       = 2
       send_error                     = 3
       spool_error                    = 4
       OTHERS                         = 5.
IF sy-subrc = 0.
    IF ( itcpp-userexit IS INITIAL AND
        NOT itcpp-tdspoolid IS INITIAL ).
      p_spool = itcpp-tdspoolid.
      SUBMIT yfir_mailsend_pdf_attachment WITH p_spool = p_spool
                                          WITH p_kunnr = p_kunnr.
    ENDIF.
ENDIF.
ENDFORM.                    " display_layout
*&      Form modify_duedate
      text
--> p1        text
<-- p2        text
FORM modify_duedate.
SELECT SINGLE mat_rec_no
                mat_rec_date FROM yfi_matno
                INTO (v_mat_rec_no, v_mat_rec_date)
                WHERE vbeln = wa_tab-vbeln.
CHECK sy-subrc EQ 0.
SELECT SINGLE zterm
                FROM vbrk INTO v_zterm
                WHERE vbeln EQ wa_tab-vbeln.
CHECK sy-subrc EQ 0.
SELECT SINGLE zdays
                FROM yfi_payment INTO v_zdays
                WHERE zterm EQ v_zterm.
IF sy-subrc EQ 0.
    wa_tab-zfbdt_due = ( v_mat_rec_date + v_zdays ).
    wa_tab-due_days = ( sy-datum - wa_tab-zfbdt_due ).
   IF wa_tab-due_days LE 0.
     wa_tab-due_days = 'N/A'.
   ENDIF.
    IF ( wa_tab-umskz = 'A' AND wa_tab-shkzg = 'H' ).
      wa_tab-zfbdt = ' '.
      wa_tab-zfbdt_due = ''.
      wa_tab-due_days = ''.
    ENDIF.
    MODIFY i_tab FROM wa_tab INDEX sy-tabix.
    CLEAR: v_mat_rec_no, v_mat_rec_date, v_zterm, v_zdays.
ENDIF.
ENDFORM.                    " modify_duedate
SUBMIT PROGRAM :
REPORT yfir_mailsend_pdf_attachment MESSAGE-ID yf.
*& Program Name   : *
& Author         :
*& Creation Date : *
*& Program Type   :                                                   *
*& SAP Release    : *
*& Description    :     *
*& Transport No   :                                                   *
*& Transaction    :                                                   *
*& Send document with OTF/ALI attachment from spool to externalreci-
*& pient. OTF/ALI document is converted to PDF/HTML format duringthe
*& SAPconnect send process.
*& This report serves as example documentation for the function
*& modules SO_NEW_DOCUMENT_ATT_SEND_API1 and SO_DOCUMENT_SEND_API1.
*& Following this example you should be able to develop your own
*& report to send documents with all kinds of attachments.
Creation of the entry for the compressed document
*& TABLES:
TABLES : kna1,
        adr6.
*& INTERNAL TABLES:
***********PDF Declaration*******
DATA: BEGIN OF i_spool OCCURS 0,
        rqident LIKE tsp01-rqident,
        rqo1name LIKE tsp01-rqo1name,
        rqclient LIKE tsp01-rqclient,
      END   OF i_spool.
*& VARIABLES :
DATA: client LIKE tst01-dclient,
      name LIKE tst01-dname,
      objtype LIKE rststype-type,
      type LIKE rststype-type.
DATA: spoolno LIKE tsp01-rqident,
     download TYPE c VALUE 'X', "AS CHECKBOX DEFAULT 'X',
     p_file LIKE rlgrap-filename
                     VALUE 'C:\Invoice.pdf',               "#EC NOTEXT
      otf LIKE itcoo OCCURS 100 WITH HEADER LINE,
     cancel,
      pdf LIKE tline OCCURS 100 WITH HEADER LINE,
      doctab LIKE docs OCCURS 1 WITH HEADER LINE,
      numbytes TYPE i,
      arc_idx LIKE toa_dara,
      pdfspoolid LIKE tsp01-rqident,
      jobname LIKE tbtcjob-jobname,
      jobcount LIKE tbtcjob-jobcount,
      is_otf.
Data Declaration
DATA: docdata    LIKE sodocchgi1,
      objpack    LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
      objhead    LIKE solisti1   OCCURS 1 WITH HEADER LINE,
      objtxt     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
      objbin     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
      objhex     LIKE solix      OCCURS 10 WITH HEADER LINE,
      reclist    LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
*objpack-head_start = 1.
*objbin = ' | '. APPEND objbin.
*DATA: listobject LIKE abaplist   OCCURS 1 WITH HEADER LINE.
DATA: tab_lines TYPE i,
      doc_size   TYPE i,
      att_type   LIKE soodk-objtp.
objpack-head_start = 1.
*& PARAMETERS:
PARAMETERS : p_spool LIKE tsp01-rqident NO-DISPLAY,
             p_kunnr LIKE kna1-kunnr NO-DISPLAY.
*& M A I N   P R O C E S S
*& START OF SELECTION.
START-OF-SELECTION.
SELECT SINGLE
adr6~addrnumber
adr6~smtp_addr
FROM adr6
INNER JOIN kna1
ON kna1~adrnr = adr6~addrnumber
INTO CORRESPONDING FIELDS OF adr6
WHERE kna1~kunnr = p_kunnr.
IF sy-subrc = 0.
Create receiver list
    reclist-receiver = adr6-smtp_addr. "<-- customer address
    reclist-rec_type = 'U'.
    APPEND reclist.
ENDIF.
***Convert Spool request to PDF
PERFORM pdf_convert.
docdata-obj_name = 'MAIL_AEIW'.
docdata-obj_descr = 'Dunning'.
Main Text
objtxt = 'Hi,'.
APPEND objtxt.
objtxt = 'Dunning'.
APPEND objtxt.
objtxt = 'Regards'.
APPEND objtxt.
Write Packing List (Main)
DESCRIBE TABLE objtxt LINES tab_lines.
READ     TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'RAW'.
APPEND objpack.
Create Message Attachment
Write Packing List (Attachment)
att_type = 'PDF'.
DESCRIBE TABLE objbin LINES tab_lines.
READ     TABLE objbin INDEX tab_lines.
*objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
objpack-doc_size = tab_lines * 255.
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 1.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = att_type.
objpack-obj_name   = 'ATTACHMENT'.
objpack-obj_descr = 'Attached Document'.
APPEND objpack.
*check for not maintaining customer address
IF reclist IS INITIAL.
    MESSAGE e000 WITH 'Please Maintain Customer e-Mail ID'.
    LEAVE LIST-PROCESSING.
ELSE.
Send Message
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data                     = docdata
         put_in_outbox                     = 'X'
    commit_work                       = 'X'     "used from rel.6.10
IMPORTING
    SENT_TO_ALL                        =
    NEW_OBJECT_ID                     =
      TABLES
        packing_list                      = objpack
        object_header                     = objhead
        contents_bin                      = objbin
        contents_txt                      = objtxt
    CONTENTS_HEX                      = objhex
    OBJECT_PARA                        =
    OBJECT_PARB                        =
        receivers                         = reclist
EXCEPTIONS
    TOO_MANY_RECEIVERS               = 1
    DOCUMENT_NOT_SENT                = 2
    DOCUMENT_TYPE_NOT_EXIST          = 3
    OPERATION_NO_AUTHORIZATION       = 4
    PARAMETER_ERROR                  = 5
    X_ERROR                           = 6
    ENQUEUE_ERROR                     = 7
    OTHERS                            = 8
    IF sy-subrc <> 0.
      MESSAGE ID 'SO' TYPE 'S' NUMBER '023'
              WITH docdata-obj_name.
    ELSE.
      WRITE 'Mail sent successfully'.
    ENDIF.
ENDIF.
WRITE: / 'End of Program'.
*&      Form pdf_convert
      text
--> p1        text
<-- p2        text
FORM pdf_convert.
DATA: date1   LIKE sy-datum,
        time1   LIKE sy-uzeit,
        period1 LIKE tsp01-rqcretime.
date1 = sy-datum.
time1 = sy-uzeit.
date1 = date1 - 1.
CONCATENATE date1 time1 INTO period1.
SELECT rqident
         rqo1name
         rqclient FROM tsp01 INTO TABLE i_spool
                        WHERE rqowner   = sy-uname AND
                              rqclient = sy-mandt AND
                              rqident   = p_spool.
IF sy-subrc <> 0.
    WRITE: / 'No Spool Request created today'(003)
            COLOR COL_NEGATIVE.
    EXIT.
ENDIF.
SORT i_spool DESCENDING BY rqident.
READ TABLE i_spool INDEX 1.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
         EXPORTING
            authority     = 'SP01'
            client        = i_spool-rqclient
            name          = i_spool-rqo1name
            part          = 1
         IMPORTING
          CHARCO        =
          CREATER       =
          CREDATE       =
          DELDATE       =
          MAX_CREDATE   =
          MAX_DELDATE   =
          NON_UNIQ      =
          NOOF_PARTS    =
          RECTYP        =
          SIZE          =
          STOTYP        =
              type          = type
              objtype       = objtype
         EXCEPTIONS
              fb_error      = 1
              fb_rsts_other = 2
              no_object     = 3
              no_permission = 4.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
      EXPORTING
        src_spoolid                    = i_spool-rqident
        no_dialog                      = ' '
      DST_DEVICE                     =
      PDF_DESTINATION                =
      IMPORTING
        pdf_bytecount                  = numbytes
        pdf_spoolid                    = pdfspoolid
      OTF_PAGECOUNT                  =
        btc_jobname                    = jobname
        btc_jobcount                   = jobcount
      TABLES
        pdf                            = 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.
CASE sy-subrc.
    WHEN 0.
    WHEN 1.
      WRITE: / 'Error On Spool Job'(002)
            COLOR COL_NEGATIVE.
      EXIT.
    WHEN 2.
      WRITE: / 'No Permission'(003)
            COLOR COL_NEGATIVE.
      EXIT.
    WHEN 3.
      WRITE: / 'Conversion Not Possible'(004)
            COLOR COL_NEGATIVE.
      EXIT.
    WHEN OTHERS.
      WRITE: / 'Incorrect Destination Device'(005)
                COLOR COL_NEGATIVE.
      EXIT.
ENDCASE.
CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'
       EXPORTING
            line_width_src              = 134
            line_width_dst              = 255
       TABLES
            content_in                  = pdf
            content_out                 = objbin
       EXCEPTIONS
            err_line_width_src_too_long = 1
            err_line_width_dst_too_long = 2
            err_conv_failed             = 3
            OTHERS                      = 4.
ENDFORM.                    " pdf_convert

Urgent! Graphic-logo in Sapscript form!!!

How to insert Graphic in SapScript form???
i tried many ways. it doesnt work!!!

Hi
These are the steps to be followed for uploading graphics in R/3 system
1. First save the file as BMP
2. Open the BMP file in IMaging (Goto -> Programs -> Accessories -> Imaging) and
make it Zoom as 100% and save as *.TIFF
3. Open SE38 and execute program RSTXLDMC
4. Give your TIFF file path name
5. Select Bcol (for Color)
6. TEXT ID will be ZHEX-MACRO-*.
7. Inplace of * write your own logo name (ZCOMPANYLOGO)
8. Execute the program
9. Now Goto SE71 create your ZFORM
10. Create logo window
11. Goto text element of logo window
or
In 4.6x :-
1. Goto SE71 Change the mode to GRAPHICAL
2. Choose the Graph Tabstrips
3. Now type in some name for the LOGO WINDOW
4. Press the IMPORT BUTTON and then IMPORT the BMP file from your DESKTOP
5. The code will be written automatically. You just need to drag and drop wherever you want
the graphics to be.
Please note that in 4.6c onwards, you can also used Windows Bitmap file ( .BMP).
Refer this thread:
How to change SAP SCRIPT logos at runtime

SAPSCRIPT form - Text is not porperly displayed

hi all,
in my SAPSCRIPT form, I am getting a text from PERFORM stmt. in the PERFORM , the text is coming correct, but in the form , it is showing only half of the text.
the code
FORM get_text TABLES ts_intab STRUCTURE itcsy
                     ts_outtab STRUCTURE itcsy.
DATA: l_haul_text(500) TYPE c,
           l_haul_long(250) TYPE c.
l_haul_long = l_haul_text+0(250).
    LOOP AT ts_outtab.
      CASE ts_outtab-name.
        WHEN 'L_HAUL_LONG'.
          ts_outtab-value = l_haul_long.
          MODIFY ts_outtab.
      ENDCASE.
    ENDLOOP.
Then in the form, just display
/: PERFORM GET_TEXT IN PROGRAM
/:   USING &VBDKL-VBELN&
/:   CHANGING &L_HAUL_LONG&
/: ENDPERFORM
&L_HAUL_LONG&
while debugging, the text is correct till TS_OUTTAB but when it comes to the form L_HAUL_LONG, it is truncated.......what should i do..
Kindly help.
THnaks

answered

Addint new field to the standard sapscript form.

FOR SALES INVOICE DOCUMENT FORM PRINTING
TRANSACTION CODE: VF01
OUTPUT TYPE : FJCI
PROGRAM NAME: RVADAUS1
SAPSCRIPT FORM NAME: SD_EXPORT_FJCI
ENTRY ROUTINE: ENTRY_FJCI.
STRUCTURE USED FOR THIS OUTPUT TYPE = V55EFJCI
THE QUERY IS AS FOLLOWS:
I WANT TO ADD DATA MODE OF TRANSPORT FROM THE INVOICE DOCUMENT. THE TABLE AND FIELD IS T618-BEZEI.
SO I COPIED THE STANDARD FORM TO ZSD_EXPORT_FJCI AND THE STANDARD PROGRAM TO ZRVADAUS1.
I SUCCESSFULLY FETCHED THAT FIELD DATA.
I APPEND THE STRUCTURE 'ZAV55EFJCI' TO ADD THE ADDITIONAL T618-BEZEI FIELD.
AND WRITE MY SELECT QUERY IN THE ENTRY_FJCI FORM ROUTINE.
THE CODE IS AS FOLLOWS:
data: begin of it_mode_of_tp occurs 1,
      bezei type t618t-bezei,
      end of it_mode_of_tp.
select a~bezei as zzbezei into table it_mode_of_tp from t618t as a
inner join
eikp as b on aexpvz = bexpvz and aland1 = baland inner join vbrk as
c on bexnum = cexnum
where cvbeln = nast-objky and aspras = nast-spras .
loop at it_mode_of_tp.
   v55efjci-zzbezei = it_mode_of_tp-bezei.
endloop.
BUT THE DATA FOR THAT IS NOT GETTING DISPLAYED.
THIS WAS THE FIRST METHOD I FOLLOWD.
THE SECOND METHOD I DID WAS AS FOLLOWS:
FORM ENTRY_FJCI.
     PERFORM PROCESSING.
ENDFORM
FORM PROCESSING.
     PERFORM PRINT_DOCUMENT.
ENDFORM.
FORM PRINT_DOCUMENT.
       CALL FUNCTION 'RV_EXPORT_DOCUMENT_PRINT'
ENDFORM.
IN THIS FUNCTION THE DATA IS GETTING FETCHED FROM THE DATABASE TABLES AND STORED IN THE STRUCURE V55EFJCI.
SO I COPIED THAT FUNCTION.
IN THIS FUNCTION , THEIR IS A INCLUDE PROGRAM 'LV55EF11' FOR FETCHING DATA FOR ENTRY_FJCI FORM ROUTINE.
I COPIED THAT PROGRAM CODE , AND CREATED MY OWN INCLUDE PROGRAM (WHICH I AM STORING IT IN ANOTHER Z PACKAGE.)
AND WRITTEN MY ABOVE CODE IN THAT PROGRAM. BUT WHEN I DO THIS, NOITHING GETS DISPLAYED , EVEN THE PREVIOUSLY COMING DATA ALSO NOT GETTING DISPLAYED.
HOW SHOULD I PROCEED.

you said you copied layout(form) SD_EXPORT_FJCI to ZSD_EXPORT_FJCI,
you updated program to fetch datat & populate v55efjci-zzbezei field.
Now
- you need to modify layout(form) ZSD_EXPORT_FJCI via SE71 to insert your field in one of the windows where it has to be printed (sap script knowledge is required here).
- you need to either modify SAP output type FJCI to use your program/layout(form) or you need to create your own output type and assign your form/program to it, and in addition to that if you define your own output type - yo have to add it to output determination procedure, to access sequences, add condition records to condition table... so it's picked up by the invoice.

SAPScript form coding changed automatically during transport

Similar Messages

Maybe you are looking for