Performance tuning in Smart form
Hi,
How to performance tuning in Smart form level
Any tips available kindly send me any one .
Thanks&Regards,
Maya
Hi,
If you are using a customized print program to call the Smart Form...it is better to fetch most of the data as much as possible within it and pass it useing form interface/functional module interface.
Then in the ABAP code where ever used, fallowing the ABAP coding performance tuning options like avoiding the MOVE-CORRESPONDING, INTO CORRESPONDING, using binary search for READ statement...etc...
Regards,
Bharat.
Similar Messages
-
Smart Form: Performance Improvement
Hi Gurus,
I am using smart form in loop for processing ,What the performance might be.Is we can improve the performance.
If i am processing for 1000 records it almost taking 2 hours to process ,Please provide the solution for improvement .
Smart form itself a huge Function module i hope it takes the time,But any case any possible solution on improvement. Or buffer clearing sort of thing available.
Is smart form can be used under LOOP ENDLOOP?
Thanks in advance.Hi there.
You can always pass the internal table into the smartform and then call 1000 pages inside, i.e, call 1 smartform with 1000 pages, instead of 1000 smartforms of 1 page.
Regards.
Valter Oliveira. -
Performance issue with Adobe forms
Dear SAP Experts,
We have the following issue/requirement from our client. The client is on SAP ECC 6.0 - production environment.
The client is highlighting performance issue while accessing the adobe forms for HR and FI business process ( both static and interactive ).
Examples are
FI – Invoice Approvals
HR – Job Salary Change
The client is asking us to provide best practices surrounding:
1. How to improve the performance of the adobe forms while accessing in SAP.
2. Is there any other technology which we can use in SAP to replace the adobe forms which has better performance factor.
3. Are there solutions such as webdynpro floor plan manager, UI Fiori which can be alternately used?
Regards,
SakthiHello Priya,
Adobe forms are easy to develop and much more comfortable than SAP Scripts and Smartforms. Initially they are a bit difficult but once you have your hands on, they are the most simplest things in ABAP.
Performance in Adobe forms is a mix of both fine tuning the Layout as well as back end coding.
Performance in Adobe forms cannot be done overnight. A lot of care has to be taken during the initial stage of development.
As far as my experience is concerned, please consider the below points while developing SAP Adobe forms.
1) Avoid Scripting (Javascript/Formcalc) as much as possible inside the form. It drastically reduces the performance and makes the form to execute slower. If you still want to use scripting(which cannot be avoided for some requirements), use Formcalc since it is comparatively faster than JavaScript.
2) Try to avoid the coding inside the Form Interface. You can always handle the maximum coding in the Driver program and pass it to the form.
3) Use Form Caching.
For forms that have fixed layout, its a good way to increase the performance of form rendering. In the layout, go to Form Properties. Then Click on Defaults tab and select Allow Form Rendering To Be Cached On Server. Then Click OK.
For forms that have flowable or dynamic layout, render the forms on the client side because it improves performance.
Last but not the least, please go through the below post by Otto Gold which is worth a read at least once.
How to write a messy form -
i have copied a driver programe of outbound delivery and modified in such a way the layout will convert to pdf and then download to pc, but the driver program is not executing online, so do i need to attache the driver program name and form name in nace t.code or how would i execute the program, when i am placing a break point in driver program and execute form its not stopping at break point, i am new to forms, help me out in this.
i have placed the code below plz verify it and say if any thing is wrong in the code, u will be shurely rewareded.
Print of a delivery note by SAPscript SMART FORMS *
REPORT Z_RLE_DELNOTE1.
declaration of data
INCLUDE Z_RLE_DELNOTE_DATA_DECLARE1.
*INCLUDE RLE_DELNOTE_DATA_DECLARE.
definition of forms
INCLUDE Z_RLE_DELNOTE_FORMS1.
*INCLUDE RLE_DELNOTE_FORMS.
INCLUDE Z_RLE_PRINT_FORMS1.
*INCLUDE RLE_PRINT_FORMS.
FORM ENTRY
FORM ENTRY USING RETURN_CODE US_SCREEN.
DATA: LF_RETCODE TYPE SY-SUBRC.
XSCREEN = US_SCREEN.
PERFORM PROCESSING USING US_SCREEN
CHANGING LF_RETCODE.
IF LF_RETCODE NE 0.
RETURN_CODE = 1.
ELSE.
RETURN_CODE = 0.
ENDIF.
ENDFORM.
FORM PROCESSING *
FORM PROCESSING USING PROC_SCREEN
CHANGING CF_RETCODE.
DATA: LS_PRINT_DATA_TO_READ TYPE LEDLV_PRINT_DATA_TO_READ.
DATA: LS_DLV_DELNOTE TYPE LEDLV_DELNOTE.
DATA: LF_FM_NAME TYPE RS38L_FNAM.
DATA: LS_CONTROL_PARAM TYPE SSFCTRLOP.
DATA: LS_COMPOSER_PARAM TYPE SSFCOMPOP.
DATA: LS_RECIPIENT TYPE SWOTOBJID.
DATA: LS_SENDER TYPE SWOTOBJID.
DATA: LF_FORMNAME TYPE TDSFNAME.
DATA: LS_ADDR_KEY LIKE ADDR_KEY.
*Begin of changes by 67.
DATA: ls_document_output_info TYPE ssfcrespd,
ls_job_output_options TYPE ssfcresop.
*End of changes by 67.
SmartForm from customizing table TNAPR
LF_FORMNAME = TNAPR-SFORM.
determine print data
PERFORM SET_PRINT_DATA_TO_READ USING LF_FORMNAME
CHANGING LS_PRINT_DATA_TO_READ
CF_RETCODE.
IF CF_RETCODE = 0.
select print data
PERFORM GET_DATA USING LS_PRINT_DATA_TO_READ
CHANGING LS_ADDR_KEY
LS_DLV_DELNOTE
CF_RETCODE.
ENDIF.
IF CF_RETCODE = 0.
PERFORM SET_PRINT_PARAM USING LS_ADDR_KEY
CHANGING LS_CONTROL_PARAM
LS_COMPOSER_PARAM
LS_RECIPIENT
LS_SENDER
CF_RETCODE.
ENDIF.
*Begin of changes by 67.
CALL FUNCTION 'SSF_GET_DEVICE_TYPE'
EXPORTING
i_language = v_language
I_APPLICATION = 'SAPDEFAULT'
IMPORTING
E_DEVTYPE = v_e_devtype
st_output_options-tdprinter = v_e_devtype.
*st_output_options-tdprinter = 'locl'.
LS_CONTROL_PARAM-no_dialog = 'X'.
LS_CONTROL_PARAM-getotf = 'X'.
*End of changes by 67.
IF CF_RETCODE = 0.
determine smartform function module for delivery note
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = LF_FORMNAME
variant = ' '
direct_call = ' '
IMPORTING
FM_NAME = LF_FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
error handling
CF_RETCODE = SY-SUBRC.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
IF CF_RETCODE = 0.
call smartform delivery note
CALL FUNCTION LF_FM_NAME
EXPORTING
ARCHIVE_INDEX = TOA_DARA
ARCHIVE_PARAMETERS = ARC_PARAMS
CONTROL_PARAMETERS = LS_CONTROL_PARAM
mail_appl_obj =
MAIL_RECIPIENT = LS_RECIPIENT
MAIL_SENDER = LS_SENDER
OUTPUT_OPTIONS = LS_COMPOSER_PARAM
USER_SETTINGS = ' '
IS_DLV_DELNOTE = LS_DLV_DELNOTE
IS_NAST = NAST
*Begin of changes by 67.
importing
document_output_info = ls_document_output_info "67
job_output_info = tab_otf_data
job_output_options = ls_job_output_options "67
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
*End of changes by 67.
IF SY-SUBRC <> 0.
error handling
CF_RETCODE = SY-SUBRC.
PERFORM PROTOCOL_UPDATE.
get SmartForm protocoll and store it in the NAST protocoll
PERFORM ADD_SMFRM_PROT. "INS_HP_335958
ENDIF.
ENDIF.
get SmartForm protocoll and store it in the NAST protocoll
PERFORM ADD_SMFRM_PROT. DEL_HP_335958
--Function modules conversts from otf to pdf format.--
*Begin of chanes by 67.
CALL FUNCTION 'CONVERT_OTF_2_PDF'
EXPORTING
USE_OTF_MC_CMD = 'X'
ARCHIVE_INDEX =
IMPORTING
BIN_FILESIZE = v_bin_filesize
TABLES
otf = v_tab_otf_final
doctab_archive = v_it_docs
lines = v_it_lines
EXCEPTIONS
ERR_CONV_NOT_POSSIBLE = 1
ERR_OTF_MC_NOENDMARKER = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = v_bin_filesize
filename = 'D:\67.PDF'
FILETYPE = 'BIN'
APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
IMPORTING
FILELENGTH = v_file_size
tables
data_tab = v_pdf_tab
FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF sy-subrc <> 0.
MESSAGE i001(z00) WITH 'File not downloaded succesfully'.
else.
MESSAGE i002(z00) WITH 'File 67.PDF downloaded succesfully under D: drive'.
ENDIF.
*End of changes by 67.
ENDFORM.Hi,
Make sure that the output type you are using is configured for your custom-copied program name, form routine, and the form you are using. The output types can be found in transaction NACE.
Award points if found helpful.
Thanks,
Leo -
Email PDF smart form Support Desk
Hi SDN,
I'm working on support desk - solution manager, and i need to send the solution of the support message by email to the final user.
There is an standard action (SLF1 -SMSD_SERVICE_ORDER_DNO_OUTPUT) that sends the solution in pdf format by email, but we couldn't set the receivers online.
So, I'm using an "z" action that executes an smart form, and i would like to send the smart form in pdf format by the internet.
I'd like to use fm SO_DYNP_OBJECT_SEND, because the user must fill the receivers on-line
So far i have de OTF, and i know that i can make a conversion to pdf format, but i've the following problem
- the pdf in attach is empty, it may be because of the format, or may be i'm not using correctly this function.
Thanks in advance,
Maria João Rocha
call function 'CONVERT_OTF'
exporting
format = 'PDF'
importing
bin_filesize = w_pdf_size
tables
otf = es_job_output_info-otfdata[]
lines = t_pdf[]
exceptions
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
others = 5.
* header
wa_head-objnam = 'EMAIL'.
wa_head-objdes = ls_output_options-tdtitle.
wa_head-objnam = ls_output_options-tdtitle.
wa_head-objla = sy-langu.
wa_head-objsns = 'O'.
wa_head-file_ext = 'TXT'.
append wa_head to t_head.
wa_packing_list-transf_bin = 'X'.
wa_packing_list-head_start = 1.
wa_packing_list-head_num = 0.
wa_packing_list-body_start = 1.
wa_packing_list-objtp = 'RAW'.
* wa_packing_list-objtp = 'EXT'.
wa_packing_list-objdes = ls_output_options-tdtitle.
wa_packing_list-objla = sy-langu.
wa_packing_list-objlen = w_pdf_size.
wa_packing_list-file_ext = 'PDF'.
append wa_packing_list to t_packing_list.
*---------- enviar o mail
call function 'SO_DYNP_OBJECT_SEND'
exporting
* object_hd_change = ls_output_options-tdtitle
object_type = 'RAW'
* originator_type = 'B'
* originator = sy-uname
outbox_flag = 'S'
tables
* objcont = t_text
* receivers = t_receivers
packing_list = t_packing_list
att_cont = t_cont
att_head = t_head
exceptions
active_user_not_exist = 1
communication_failure = 2
component_not_available = 3
folder_not_exist = 4
folder_no_authorization = 5
forwarder_not_exist = 6
note_not_exist = 7
object_not_exist = 8
object_not_sent = 9
object_no_authorization = 10
object_type_not_exist = 11
operation_no_authorization = 12
owner_not_exist = 13
parameter_error = 14
substitute_not_active = 15
substitute_not_defined = 16
system_failure = 17
too_much_receivers = 18
user_not_exist = 19
x_error = 20
others = 21.
endif.Thanks for your reply.
I'm working on it, and Ive seen the SCOT documentation, so I've change my strategy.
Right now I'm using some of the methods of the BOR.
I think I've to code because I want a popup to introduce the list of the receivers and the mail body, and of course I want to attach a smart form on pdf format.
But I cant send the mail because of the error: Erro interno: SO_OBJECT_MIME_GET Exceção: 2
Can you help me on this? What Im doing wrong? What document class I need to use on the AttachmentType?
Thanks in advance.
Best regards,
Maria João Rocha
FUNCTION Z_MAIL_DIALOGO.
*"*"Interface local:
*" IMPORTING
*" REFERENCE(TITULO) TYPE SOOD1-OBJDES OPTIONAL
*" REFERENCE(FILE_SIZE) TYPE SOOD1-OBJLEN OPTIONAL
*" TABLES
*" OTF TYPE TSFOTF OPTIONAL
*" PDF STRUCTURE TLINE OPTIONAL
*" CONTEXT TYPE SOLI_TAB OPTIONAL
* Makros für Zugriff aufs BOR
include <cntn01>.
*parameters: dialog like sonv-flag.
data: dialog like sonv-flag.
* Datendeklaration
data: message type swc_object.
data: recipient type swc_object.
data: recip_tab type swc_object occurs 1 with header line.
data: objkey like swotobjid-objkey.
data: content like soli-line occurs 0 with header line.
data: title(80).
data: persnumber like adcp-persnumber.
data: sent_to_all like sonv-flag,
object_list like sosndinf occurs 1 with header line.
data: t_otf type standard table of ITCOO.
data: itab like soli occurs 0.
* Deklaration eines Containers
swc_container container.
* Message-Objekt anlegen
* * Neues Message-Objekt generieren
swc_create_object message 'Message' space.
swc_clear_container container.
if dialog = space.
* * Create w/o dialog
concatenate 'Mensagem Support Desk' sy-datum sy-uzeit into title
separated by '/'.
swc_set_element container 'DOCUMENTTITLE' title.
swc_set_element container 'DOCUMENTNAME' 'Support Desk'.
* swc_set_element container 'DOCUMENTTYPE' 'INT'.
* swc_set_element container 'DOCUMENTTYPE' 'SCR'.
swc_set_element container 'DOCUMENTTYPE' 'OTF'.
swc_set_element container 'NO_DIALOG' 'X'.
else.
* * Create with dialog
swc_set_element container 'NO_DIALOG' ' '.
endif.
swc_call_method message 'Create' container.
perform error_handling(rssobcitest11).
* Create attachment (RAW document from internal table)
SWC_CLEAR_CONTAINER CONTAINER.
*att_bor_obj-objtype = 'MESSAGE'.
*swc_set_element container 'ATTACHMENT' pdf.
*swc_set_element container 'ATTACHMENT' otf.
swc_set_element container 'ATTACHMENT' context.
swc_set_element container 'ATTACHMENTTITLE' 'Anexo'.
swc_set_element container 'AttachmentType' 'OTF'.
*swc_set_element container 'DocumentSize' 0.
swc_set_element container 'DocumentSize' file_size.
*swc_set_table container 'DocumentContent' itab.
SWC_CALL_METHOD MESSAGE 'Attach' CONTAINER.
PERFORM ERROR_HANDLING(RSSOBCITEST11).
*SWC_CLEAR_CONTAINER CONTAINER.
*SWC_SET_ELEMENT CONTAINER 'EditorSettings' 'D'.
*SWC_SET_ELEMENT CONTAINER 'STARTING_AT_X' '5'.
*SWC_SET_ELEMENT CONTAINER 'STARTING_AT_Y' '5'.
*SWC_SET_ELEMENT CONTAINER 'EnableApplObjAttachments' 'X'.
*SWC_CALL_METHOD MESSAGE 'EditRecipientList' CONTAINER.
*PERFORM ERROR_HANDLING(RSSOBCITEST11).
* Einen Empfänger (interner Benutzer) automatisch hinzufügen
* Recipient-Objekt anlegen
swc_clear_container container.
swc_create_object recipient 'Recipient' space.
swc_set_element container 'AddressString' sy-uname.
swc_set_element container 'TypeId' 'B'.
swc_call_method recipient 'CreateAddress' container.
perform error_handling(rssobcitest11).
* Kopie des Recipient-Objekts anfügen
swc_clear_container container.
swc_set_element container 'NewRecipient' recipient.
swc_call_method message 'AddCopyOfRecipient' container.
perform error_handling(rssobcitest11).
* Outbox-Flag setzen
swc_clear_container container.
swc_set_element container 'OutboxFlag' 'X'.
swc_call_method message 'SetOutboxFlag' container.
perform error_handling(rssobcitest11).
* Empfängerliste editieren
swc_clear_container container.
swc_call_method message 'EditRecipientList' container.
perform error_handling(rssobcitest11).
swc_get_table container 'RecipientsInfo' object_list.
if sy-subrc = 8.
* Kopiertes Message-Objekt versenden
swc_clear_container container.
swc_call_method message 'Submit' container.
perform error_handling(rssobcitest11).
swc_get_table container 'RecipientsInfo' object_list.
endif.
swc_get_element container 'SentToAll' sent_to_all.
* Kopiertes Message-Objekt sichern
swc_clear_container container.
swc_call_method message 'Save' container.
perform error_handling(rssobcitest11).
* Protokollausgabe:
* Key des Message-Objekts ermitteln
*SWC_GET_OBJECT_KEY MESSAGE OBJKEY.
*WRITE: / 'Key des Messageobjekts', OBJKEY.
* Protokollausgabe:
perform write_recipient_info(rssobcitest11) tables object_list
using sent_to_all.
* Freigeben der Referenzen
* MESSAGE-Objekt
swc_free_object message.
* RECIPIENT-Objekt
swc_free_object recipient.
commit work.
ENDFUNCTION. -
Function module of smart form delivered an error
Hi All,
I am getting an error like this
"Function module /1BCDWB/SF00000007 of smart form delivered an error"
FUNCTION /1BCDWB/SF00000007.
""Global interface:
*" IMPORTING
*" VALUE(ARCHIVE_INDEX) TYPE TOA_DARA OPTIONAL
*" VALUE(ARCHIVE_PARAMETERS) TYPE ARC_PARAMS OPTIONAL
*" VALUE(CONTROL_PARAMETERS) TYPE SSFCTRLOP OPTIONAL
*" VALUE(MAIL_APPL_OBJ) TYPE SWOTOBJID OPTIONAL
*" VALUE(MAIL_RECIPIENT) TYPE SWOTOBJID OPTIONAL
*" VALUE(MAIL_SENDER) TYPE SWOTOBJID OPTIONAL
*" VALUE(OUTPUT_OPTIONS) TYPE SSFCOMPOP OPTIONAL
*" VALUE(USER_SETTINGS) TYPE TDBOOL DEFAULT 'X'
*" VALUE(ARCHIVE_INDEX_TAB) TYPE TSFDARA OPTIONAL
*" REFERENCE(ORDERADM_H) TYPE CRMT_OUTPUT_ORDERADM_H_COM
*" REFERENCE(ACTIVITY_H) TYPE CRMT_OUTPUT_ACTIVITY_H_COM
*" REFERENCE(OPPORT_H) TYPE CRMT_OUTPUT_OPPORT_H_COM
*" REFERENCE(ORGMAN_H) TYPE CRMT_OUTPUT_ORGMAN_H_COM
*" REFERENCE(PARTNER_H) TYPE CRMT_OUTPUT_PARTNER_H_COMT
*" REFERENCE(PRICINGDATA_H) TYPE
*" CRMT_OUTPUT_PRICINGDATA_H_COM
*" REFERENCE(SALES_H) TYPE CRMT_OUTPUT_SALES_H_COM
*" REFERENCE(SHIPPING_H) TYPE CRMT_OUTPUT_SHIPPING_H_COM
*" REFERENCE(PAYPLAN_D_H) TYPE
*" CRMT_OUTPUT_PAYPLAN_D_H_COMT
*" REFERENCE(CUMULAT_H) TYPE CRMT_OUTPUT_CUMULAT_H_COM
*" REFERENCE(CUSTOMER_H) TYPE CRMT_OUTPUT_CUSTOMER_H_COM
*" REFERENCE(ACS_H) TYPE CRMT_ACS_H_COM
*" REFERENCE(BILLING_H) TYPE CRMT_OUTPUT_BILLING_H_COMT
*" REFERENCE(CANCEL_H) TYPE CRMT_OUTPUT_CANCEL_H_COMT
*" REFERENCE(APPOINTMENT_H) TYPE
*" CRMT_OUTPUT_APPOINTMENT_H_COMT
*" REFERENCE(BILLPLAN_D_H) TYPE
*" CRMT_OUTPUT_BILLPLAN_D_H_COMT
*" REFERENCE(BILLPLAN_H) TYPE CRMT_OUTPUT_BILLPLAN_H_COMT
*" REFERENCE(STATUS_D_H) TYPE CRMT_OUTPUT_STATUS_D_H_COMT
*" REFERENCE(STATUS_H) TYPE CRMT_OUTPUT_STATUS_H_COMT
*" REFERENCE(SRV_SUBJECT_H) TYPE
*" CRMT_OUTPUT_SRV_SUBJECT_H_COMT
*" REFERENCE(SRV_SUBJECT_I) TYPE
*" CRMT_OUTPUT_SRV_SUBJECT_H_COMT
*" REFERENCE(SRV_REASON_H) TYPE
*" CRMT_OUTPUT_SRV_REASON_H_COMT
*" REFERENCE(SRV_RESULT_H) TYPE
*" CRMT_OUTPUT_SRV_RESULT_H_COMT
*" REFERENCE(SRV_REFOBJ_H) TYPE
*" CRMT_OUTPUT_SRV_REFOBJ_H_COMT
*" REFERENCE(SRV_REFOBJ_I) TYPE
*" CRMT_OUTPUT_SRV_REFOBJ_H_COMT
*" REFERENCE(ORDERADM_I) TYPE CRMT_OUTPUT_ORDERADM_I_COMT
*" REFERENCE(ORDERADM_I_IN) TYPE
*" CRMT_OUTPUT_ORDERADM_I_IN_COMT
*" REFERENCE(ORDERADM_I_QT) TYPE
*" CRMT_OUTPUT_ORDERADM_I_QT_COMT
*" REFERENCE(ORGMAN_I) TYPE CRMT_OUTPUT_ORGMAN_I_COMT
*" REFERENCE(PRICINGDATA_I) TYPE
*" CRMT_OUTPUT_PRICINGDATA_I_COMT
*" REFERENCE(PRICING_I) TYPE CRMT_OUTPUT_PRICING_I_COMT
*" REFERENCE(PRODUCT_I) TYPE CRMT_OUTPUT_PRODUCT_I_COMT
*" REFERENCE(SALES_I) TYPE CRMT_OUTPUT_SALES_I_COMT
*" REFERENCE(SERVICE_I) TYPE CRMT_OUTPUT_SERVICE_I_COMT
*" REFERENCE(SCHEDLIN_I) TYPE CRMT_OUTPUT_SCHEDLIN_I_COMT
*" REFERENCE(SCHEDLIN_I_CF) TYPE
*" CRMT_OUTPUT_SCHEDLIN_I_CF_COMT
*" REFERENCE(SHIPPING_I) TYPE CRMT_OUTPUT_SHIPPING_I_COMT
*" REFERENCE(PARTNER_I) TYPE CRMT_OUTPUT_PARTNER_I_COMT
*" REFERENCE(ITEM_CSTICS_I) TYPE CRMT_ITEM_CSTICS_TAB
*" REFERENCE(CUSTOMER_I) TYPE CRMT_OUTPUT_CUSTOMER_I_COMT
*" REFERENCE(BILLING_I) TYPE CRMT_OUTPUT_BILLING_I_COMT
*" REFERENCE(CANCEL_I) TYPE CRMT_OUTPUT_CANCEL_I_COMT
*" REFERENCE(FINPROD_I) TYPE CRMT_OUTPUT_FINPROD_I_COMT
*" REFERENCE(ORDPRP_I) TYPE CRMT_OUTPUT_ORDPRP_I_COMT
*" REFERENCE(APPOINTMENT_I) TYPE
*" CRMT_OUTPUT_APPOINTMENT_I_COMT
*" REFERENCE(BILLPLAN_D_I) TYPE
*" CRMT_OUTPUT_BILLPLAN_D_I_COMT
*" REFERENCE(BILLPLAN_I) TYPE CRMT_OUTPUT_BILLPLAN_I_COMT
*" REFERENCE(STATUS_I) TYPE CRMT_OUTPUT_STATUS_I_COMT
*" REFERENCE(WORKING_SET_E_S_BBP) TYPE
*" /1CN/WORKING_SET_E_S_BBP_T
*" REFERENCE(LANGUAGE) TYPE SY-LANGU
*" REFERENCE(SERVICE_I_ASSI) TYPE
*" CRMT_OUTPUT_SERVICE_I_***_COMT
*" VALUE(FORM_TYPE) TYPE C OPTIONAL
*" REFERENCE(Y_V_PARTNER_FLAG) TYPE C OPTIONAL
*" EXPORTING
*" VALUE(DOCUMENT_OUTPUT_INFO) TYPE SSFCRESPD
*" VALUE(JOB_OUTPUT_INFO) TYPE SSFCRESCL
*" VALUE(JOB_OUTPUT_OPTIONS) TYPE SSFCRESOP
*" EXCEPTIONS
*" FORMATTING_ERROR
*" INTERNAL_ERROR
*" SEND_ERROR
*" USER_CANCELED
DATA: %INPUT TYPE SSFCOMPIN,
%RESULT_OP TYPE SSFCRESOP,
%RESULT_PD TYPE SSFCRESPD,
%RESULT_CL TYPE SSFCRESCL,
%TABDEF LIKE LINE OF %TABDEFS,
%ARCTAB TYPE TSFDARA,
BEGIN OF %FULLNAME,
FORM TYPE TDSFNAME VALUE 'YCRM_ORDER_SERVICE_RMA',
VARI TYPE TDVARIANT,
ACTV TYPE TDBOOL VALUE 'X',
END OF %FULLNAME.
TYPES: T_XDF_ELEM(255) TYPE C,
T_XDF_ATTR(255) TYPE C.
DATA: IMPORT_PARAMETER TYPE TABLE OF RSIMP WITH HEADER LINE,
CHANGING_PARAMETER TYPE TABLE OF RSCHA WITH HEADER LINE,
TABLES_PARAMETER TYPE TABLE OF RSTBL WITH HEADER LINE,
EXPORT_PARAMETER TYPE TABLE OF RSEXP WITH HEADER LINE,
EXCEPTION_LIST TYPE TABLE OF RSEXC WITH HEADER LINE.
DATA: XDF_TABLE TYPE TSFIXML,
XDF_LENGTH TYPE I.
DATA: XDF_DOCUMENT TYPE REF TO IF_IXML_DOCUMENT,
XDF_PARAMETER TYPE REF TO IF_IXML_ELEMENT,
L_NAME TYPE STRING,
L_VALUE TYPE STRING,
L_OBJECT TYPE STRING,
L_DATE TYPE STRING,
L_TIME TYPE STRING,
RC TYPE SY-SUBRC.
FIELD-SYMBOLS: <DATA_OBJECT> TYPE ANY.
CLASS CL_IXML DEFINITION LOAD.
CONSTANTS: C_XDF_ROOT_ELEMENT TYPE T_XDF_ELEM VALUE 'XDF',
C_XDF_ATTR_TYPE TYPE T_XDF_ATTR VALUE 'TYPE',
C_XDF_ATTR_TIMESTAMP TYPE T_XDF_ATTR VALUE 'TIMESTAMP',
C_XDF_ATTR_OBJ TYPE T_XDF_ATTR VALUE 'OBJECT'.
DATA: XDF_FACTORY TYPE REF TO IF_IXML,
XDF_ROOT_ELEMENT TYPE REF TO IF_IXML_ELEMENT.
DATA: L_GETSTATE TYPE DDTYPEGET,
L_TYPE TYPE DDTYPEKIND,
L_TYPE_NAME TYPE TYPENAME,
L_DDIC_OBJ TYPE DDTYPES OCCURS 0 WITH HEADER LINE,
L_DD02L_STATE TYPE DD02L OCCURS 0 WITH HEADER LINE,
L_DD04L_STATE TYPE DD04L OCCURS 0 WITH HEADER LINE,
L_DD40L_STATE TYPE DD40L OCCURS 0 WITH HEADER LINE,
L_XMLOUTPUT TYPE SSFXMLOUT,
L_SFSY TYPE SFSY.
TYPE-POOLS: ABAP.
DATA: XDF2_IXML TYPE REF TO IF_IXML,
XDF2_DOCUMENT TYPE REF TO IF_IXML_DOCUMENT,
XDF2_SRC_OBJECTS TYPE ABAP_TRANS_SRCBIND_TAB,
XDF2_SRC_OBJECT LIKE LINE OF XDF2_SRC_OBJECTS.
DEFINE XDF2_APPEND_SRC_OBJECT.
XDF2_SRC_OBJECT-NAME = '&1'.
TRANSLATE XDF2_SRC_OBJECT-NAME TO UPPER CASE.
GET REFERENCE OF &2 INTO XDF2_SRC_OBJECT-VALUE.
APPEND XDF2_SRC_OBJECT TO XDF2_SRC_OBJECTS.
END-OF-DEFINITION.
DEFINE XDF_GET_DDIC_INFO.
CLEAR L_DDIC_OBJ.
IF NOT &2 IS INITIAL.
L_TYPE_NAME = &2.
ELSEIF NOT &1-TYP IS INITIAL.
L_TYPE_NAME = &1-TYP.
ELSEIF NOT &1-LINE_OF IS INITIAL.
L_TYPE_NAME = &1-LINE_OF.
ELSEIF NOT &1-TABLE_OF IS INITIAL.
L_TYPE_NAME = &1-TABLE_OF.
ELSE.
CLEAR L_TYPE_NAME.
ENDIF.
CALL FUNCTION 'DDIF_TYPEINFO_GET'
EXPORTING TYPENAME = L_TYPE_NAME
IMPORTING TYPEKIND = L_TYPE.
L_DDIC_OBJ-TYPENAME = L_TYPE_NAME.
L_DDIC_OBJ-TYPEKIND = L_TYPE.
IF NOT L_DDIC_OBJ IS INITIAL.
COLLECT L_DDIC_OBJ.
ENDIF.
END-OF-DEFINITION.
DEFINE XDF_CREATE_DATA_STREAM.
CLEAR: L_OBJECT, L_DATE, L_TIME, L_NAME, L_TYPE_NAME, L_VALUE.
IF &3 = 'T'.
CONCATENATE &1-PARAMETER '[]' INTO L_NAME.
ELSE.
L_NAME = &1-PARAMETER.
ENDIF.
IF NOT &2 IS INITIAL.
ASSIGN (L_NAME) TO <DATA_OBJECT>
CASTING TYPE (&2).
L_TYPE_NAME = &2.
ELSEIF NOT &1-TYP IS INITIAL.
ASSIGN (L_NAME) TO <DATA_OBJECT>
CASTING TYPE (&1-TYP).
L_TYPE_NAME = &1-TYP.
ELSEIF NOT &1-LINE_OF IS INITIAL.
ASSIGN (L_NAME) TO <DATA_OBJECT>.
L_TYPE_NAME = &1-LINE_OF.
ELSEIF NOT &1-TABLE_OF IS INITIAL.
ASSIGN (L_NAME) TO <DATA_OBJECT>.
L_TYPE_NAME = &1-TABLE_OF.
ELSE.
ASSIGN (L_NAME) TO <DATA_OBJECT>.
CLEAR L_TYPE_NAME.
ENDIF.
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
NAME = L_NAME
DATAOBJECT = <DATA_OBJECT>
IMPORTING
DATA_AS_DOM = XDF_PARAMETER
CHANGING
DOCUMENT = XDF_DOCUMENT
EXCEPTIONS
OTHERS = 1.
L_NAME = C_XDF_ATTR_TYPE.
L_VALUE = L_TYPE_NAME.
CALL METHOD XDF_PARAMETER->SET_ATTRIBUTE
EXPORTING NAME = L_NAME
VALUE = L_VALUE
RECEIVING RVAL = RC.
CLEAR L_DDIC_OBJ.
READ TABLE L_DDIC_OBJ WITH KEY TYPENAME = L_TYPE_NAME.
CASE L_DDIC_OBJ-TYPEKIND.
WHEN 'S'.
READ TABLE L_DD02L_STATE WITH KEY TABNAME = &1-TYP.
L_DATE = L_DD02L_STATE-AS4DATE.
L_TIME = L_DD02L_STATE-AS4TIME.
L_OBJECT = 'TABL'.
WHEN 'E'. " data elements
READ TABLE L_DD04L_STATE WITH KEY ROLLNAME = &1-TYP.
L_DATE = L_DD04L_STATE-AS4DATE.
L_TIME = L_DD04L_STATE-AS4TIME.
L_OBJECT = 'DTEL'.
WHEN 'L'. " table types
READ TABLE L_DD40L_STATE WITH KEY TYPENAME = &1-TYP.
L_DATE = L_DD40L_STATE-AS4DATE.
L_TIME = L_DD40L_STATE-AS4TIME.
L_OBJECT = 'TTYP'.
WHEN OTHERS.
CLEAR: L_DATE, L_TIME, L_OBJECT.
ENDCASE.
L_NAME = C_XDF_ATTR_OBJ.
CALL METHOD XDF_PARAMETER->SET_ATTRIBUTE
EXPORTING NAME = L_NAME
VALUE = L_OBJECT
RECEIVING RVAL = RC.
L_NAME = C_XDF_ATTR_TIMESTAMP.
CONCATENATE L_DATE L_TIME INTO L_VALUE.
CALL METHOD XDF_PARAMETER->SET_ATTRIBUTE
EXPORTING NAME = L_NAME
VALUE = L_VALUE
RECEIVING RVAL = RC.
CALL METHOD XDF_ROOT_ELEMENT->APPEND_CHILD
EXPORTING NEW_CHILD = XDF_PARAMETER
RECEIVING RVAL = RC.
CHECK RC = 0.
END-OF-DEFINITION.
CLEAR DOCUMENT_OUTPUT_INFO.
CLEAR JOB_OUTPUT_INFO.
CLEAR JOB_OUTPUT_OPTIONS.
L_SFSY = SFSY.
CLEAR SFSY.
SFSY-PAGE = L_SFSY-PAGE.
SFSY-FORMPAGES = L_SFSY-FORMPAGES.
SFSY-JOBPAGES = L_SFSY-JOBPAGES.
SFSY-XDF = L_SFSY-XDF.
SFSY-XDF2 = L_SFSY-XDF2.
CLEAR INTSFSY.
IF CONTROL_PARAMETERS-NO_OPEN = SPACE.
CALL FUNCTION 'SSF_CREATE_COMPOSER_INPUT'
EXPORTING
ARCHIVE_PARAMETERS = ARCHIVE_PARAMETERS
USER_SETTINGS = USER_SETTINGS
MAIL_SENDER = MAIL_SENDER
MAIL_RECIPIENT = MAIL_RECIPIENT
MAIL_APPL_OBJ = MAIL_APPL_OBJ
OUTPUT_OPTIONS = OUTPUT_OPTIONS
CONTROL_PARAMETERS = CONTROL_PARAMETERS
IMPORTING
INPUT = %INPUT.
IF OUTPUT_OPTIONS-XSFCMODE = SPACE.
%INPUT-XSF = ' '.
%INPUT-XSFOUTMODE = ' '.
%INPUT-XSFOUTDEV = ' '.
%INPUT-XSFACTION = ' '.
%INPUT-XSFFORMAT = ' '.
ENDIF.
CALL FUNCTION 'SSFCOMP_OPEN'
EXPORTING INPUT = %INPUT
IMPORTING RESULT = %RESULT_OP
EXCEPTIONS OTHERS = 1.
IF SY-SUBRC <> 0.
%VARIANT = SPACE.
PERFORM %RAISE.
ENDIF.
JOB_OUTPUT_OPTIONS = %RESULT_OP.
ENDIF.
IF SFSY-XDF = 'X'.
CALL FUNCTION 'FUNCTION_IMPORT_INTERFACE'
EXPORTING
FUNCNAME = '/1BCDWB/SF00000007'
INACTIVE_VERSION = SPACE
TABLES
IMPORT_PARAMETER = IMPORT_PARAMETER
CHANGING_PARAMETER = CHANGING_PARAMETER
TABLES_PARAMETER = TABLES_PARAMETER
EXPORT_PARAMETER = EXPORT_PARAMETER
EXCEPTION_LIST = EXCEPTION_LIST
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
L_GETSTATE-TBHD = L_GETSTATE-TBFD = L_GETSTATE-DTEL = 'X'.
L_GETSTATE-TTHD = L_GETSTATE-TTFD = 'X'.
LOOP AT IMPORT_PARAMETER.
XDF_GET_DDIC_INFO IMPORT_PARAMETER IMPORT_PARAMETER-DBFIELD.
ENDLOOP.
LOOP AT CHANGING_PARAMETER.
XDF_GET_DDIC_INFO CHANGING_PARAMETER
CHANGING_PARAMETER-DBFIELD.
ENDLOOP.
LOOP AT TABLES_PARAMETER.
XDF_GET_DDIC_INFO TABLES_PARAMETER TABLES_PARAMETER-DBSTRUCT.
ENDLOOP.
CALL FUNCTION 'DD_TYPEINFO_GET'
EXPORTING GETSTATE = L_GETSTATE
TABLES DDTYPES_TAB = L_DDIC_OBJ[]
DD02L_TAB = L_DD02L_STATE[]
DD04L_TAB = L_DD04L_STATE[]
DD40L_TAB = L_DD40L_STATE[].
XDF_FACTORY = CL_IXML=>CREATE( ).
XDF_DOCUMENT = XDF_FACTORY->CREATE_DOCUMENT( ).
L_NAME = C_XDF_ROOT_ELEMENT.
XDF_ROOT_ELEMENT
= XDF_DOCUMENT->CREATE_ELEMENT( NAME = L_NAME ).
CALL METHOD XDF_DOCUMENT->APPEND_CHILD
EXPORTING NEW_CHILD = XDF_ROOT_ELEMENT
RECEIVING RVAL = RC.
CHECK RC = 0.
LOOP AT IMPORT_PARAMETER.
XDF_CREATE_DATA_STREAM IMPORT_PARAMETER
IMPORT_PARAMETER-DBFIELD 'I'.
ENDLOOP.
LOOP AT CHANGING_PARAMETER.
XDF_CREATE_DATA_STREAM CHANGING_PARAMETER
CHANGING_PARAMETER-DBFIELD 'C'.
ENDLOOP.
LOOP AT TABLES_PARAMETER.
XDF_CREATE_DATA_STREAM TABLES_PARAMETER
TABLES_PARAMETER-DBSTRUCT 'T'.
ENDLOOP.
CALL FUNCTION 'SSFCOMP_XDF_OUTPUT'
EXPORTING DOCUMENT = XDF_DOCUMENT
EXCEPTIONS OTHERS = 1.
ELSEIF SFSY-XDF2 = 'X'.
XDF2_IXML = CL_IXML=>CREATE( ).
XDF2_DOCUMENT = XDF2_IXML->CREATE_DOCUMENT( ).
XDF2_APPEND_SRC_OBJECT ARCHIVE_INDEX ARCHIVE_INDEX.
XDF2_APPEND_SRC_OBJECT ARCHIVE_PARAMETERS ARCHIVE_PARAMETERS.
XDF2_APPEND_SRC_OBJECT CONTROL_PARAMETERS CONTROL_PARAMETERS.
XDF2_APPEND_SRC_OBJECT MAIL_APPL_OBJ MAIL_APPL_OBJ.
XDF2_APPEND_SRC_OBJECT MAIL_RECIPIENT MAIL_RECIPIENT.
XDF2_APPEND_SRC_OBJECT MAIL_SENDER MAIL_SENDER.
XDF2_APPEND_SRC_OBJECT OUTPUT_OPTIONS OUTPUT_OPTIONS.
XDF2_APPEND_SRC_OBJECT USER_SETTINGS USER_SETTINGS.
XDF2_APPEND_SRC_OBJECT ARCHIVE_INDEX_TAB ARCHIVE_INDEX_TAB.
XDF2_APPEND_SRC_OBJECT ORDERADM_H ORDERADM_H.
XDF2_APPEND_SRC_OBJECT ACTIVITY_H ACTIVITY_H.
XDF2_APPEND_SRC_OBJECT OPPORT_H OPPORT_H.
XDF2_APPEND_SRC_OBJECT ORGMAN_H ORGMAN_H.
XDF2_APPEND_SRC_OBJECT PARTNER_H PARTNER_H.
XDF2_APPEND_SRC_OBJECT PRICINGDATA_H PRICINGDATA_H.
XDF2_APPEND_SRC_OBJECT SALES_H SALES_H.
XDF2_APPEND_SRC_OBJECT SHIPPING_H SHIPPING_H.
XDF2_APPEND_SRC_OBJECT PAYPLAN_D_H PAYPLAN_D_H.
XDF2_APPEND_SRC_OBJECT CUMULAT_H CUMULAT_H.
XDF2_APPEND_SRC_OBJECT CUSTOMER_H CUSTOMER_H.
XDF2_APPEND_SRC_OBJECT ACS_H ACS_H.
XDF2_APPEND_SRC_OBJECT BILLING_H BILLING_H.
XDF2_APPEND_SRC_OBJECT CANCEL_H CANCEL_H.
XDF2_APPEND_SRC_OBJECT APPOINTMENT_H APPOINTMENT_H.
XDF2_APPEND_SRC_OBJECT BILLPLAN_D_H BILLPLAN_D_H.
XDF2_APPEND_SRC_OBJECT BILLPLAN_H BILLPLAN_H.
XDF2_APPEND_SRC_OBJECT STATUS_D_H STATUS_D_H.
XDF2_APPEND_SRC_OBJECT STATUS_H STATUS_H.
XDF2_APPEND_SRC_OBJECT SRV_SUBJECT_H SRV_SUBJECT_H.
XDF2_APPEND_SRC_OBJECT SRV_SUBJECT_I SRV_SUBJECT_I.
XDF2_APPEND_SRC_OBJECT SRV_REASON_H SRV_REASON_H.
XDF2_APPEND_SRC_OBJECT SRV_RESULT_H SRV_RESULT_H.
XDF2_APPEND_SRC_OBJECT SRV_REFOBJ_H SRV_REFOBJ_H.
XDF2_APPEND_SRC_OBJECT SRV_REFOBJ_I SRV_REFOBJ_I.
XDF2_APPEND_SRC_OBJECT ORDERADM_I ORDERADM_I.
XDF2_APPEND_SRC_OBJECT ORDERADM_I_IN ORDERADM_I_IN.
XDF2_APPEND_SRC_OBJECT ORDERADM_I_QT ORDERADM_I_QT.
XDF2_APPEND_SRC_OBJECT ORGMAN_I ORGMAN_I.
XDF2_APPEND_SRC_OBJECT PRICINGDATA_I PRICINGDATA_I.
XDF2_APPEND_SRC_OBJECT PRICING_I PRICING_I.
XDF2_APPEND_SRC_OBJECT PRODUCT_I PRODUCT_I.
XDF2_APPEND_SRC_OBJECT SALES_I SALES_I.
XDF2_APPEND_SRC_OBJECT SERVICE_I SERVICE_I.
XDF2_APPEND_SRC_OBJECT SCHEDLIN_I SCHEDLIN_I.
XDF2_APPEND_SRC_OBJECT SCHEDLIN_I_CF SCHEDLIN_I_CF.
XDF2_APPEND_SRC_OBJECT SHIPPING_I SHIPPING_I.
XDF2_APPEND_SRC_OBJECT PARTNER_I PARTNER_I.
XDF2_APPEND_SRC_OBJECT ITEM_CSTICS_I ITEM_CSTICS_I.
XDF2_APPEND_SRC_OBJECT CUSTOMER_I CUSTOMER_I.
XDF2_APPEND_SRC_OBJECT BILLING_I BILLING_I.
XDF2_APPEND_SRC_OBJECT CANCEL_I CANCEL_I.
XDF2_APPEND_SRC_OBJECT FINPROD_I FINPROD_I.
XDF2_APPEND_SRC_OBJECT ORDPRP_I ORDPRP_I.
XDF2_APPEND_SRC_OBJECT APPOINTMENT_I APPOINTMENT_I.
XDF2_APPEND_SRC_OBJECT BILLPLAN_D_I BILLPLAN_D_I.
XDF2_APPEND_SRC_OBJECT BILLPLAN_I BILLPLAN_I.
XDF2_APPEND_SRC_OBJECT STATUS_I STATUS_I.
XDF2_APPEND_SRC_OBJECT WORKING_SET_E_S_BBP WORKING_SET_E_S_BBP.
XDF2_APPEND_SRC_OBJECT LANGUAGE LANGUAGE.
XDF2_APPEND_SRC_OBJECT SERVICE_I_ASSI SERVICE_I_ASSI.
XDF2_APPEND_SRC_OBJECT FORM_TYPE FORM_TYPE.
XDF2_APPEND_SRC_OBJECT Y_V_PARTNER_FLAG Y_V_PARTNER_FLAG.
XDF2_APPEND_SRC_OBJECT JOB_OUTPUT_INFO JOB_OUTPUT_INFO.
CALL TRANSFORMATION ID
SOURCE (XDF2_SRC_OBJECTS)
RESULT XML XDF2_DOCUMENT.
CALL FUNCTION 'SSFCOMP_XDF2_OUTPUT'
EXPORTING
DOCUMENT = XDF2_DOCUMENT
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC <> 0. RAISE ERROR. ENDIF.
ELSE.
%FULLNAME-VARI = %VARIANT.
%VARIANT = SPACE.
IF %HEADER IS INITIAL.
IMPORT HEADER TO %HEADER
REFTAB TO %REFTAB
DOCSTRUC TO %DOCSTRUC
TABDEF TO %TABDEFS
FROM DATABASE STXFCONTR(SF) ID %FULLNAME.
IF SY-SUBRC <> 0.
CALL FUNCTION 'SSFRT_SET_ERROR_PARAMETERS'
EXPORTING I_FORM = 'YCRM_ORDER_SERVICE_RMA'.
CALL FUNCTION 'SSFRT_WRITE_ERROR'
EXPORTING I_ERRNUMBER = SSF_ERR_NO_RUNTIME_OBJECT
I_MSGID = 'SSFCOMPOSER'
I_MSGNO = '002'
I_MSGV1 = 'YCRM_ORDER_SERVICE_RMA'.
PERFORM %RAISE.
ENDIF.
SELECT SINGLE SDATE STIME FROM D010SINF
INTO (%HEADER-SDATE, %HEADER-STIME)
WHERE PROG = '/1BCDWB/SAPLSF00000007'
AND R3STATE = 'A'.
IF SY-SUBRC <> 0.
CLEAR: %HEADER-SDATE,
%HEADER-STIME.
ENDIF.
ENDIF.
LOOP AT %TABDEFS INTO %TABDEF.
CALL FUNCTION 'SSFCOMP_TABLE_DEFINITION'
EXPORTING CPI = %HEADER-CPI
LPI = %HEADER-LPI
CHANGING TABDEF = %TABDEF
EXCEPTIONS OTHERS = 1.
IF SY-SUBRC <> 0. PERFORM %RAISE. ENDIF.
ENDLOOP.
CALL FUNCTION 'SSFRT_SET_REFERENCES'
EXPORTING I_REFTAB = %REFTAB .
CALL FUNCTION 'SSFRT_SET_LANGUAGES'
EXPORTING I_CONTROL_PARAMETERS = CONTROL_PARAMETERS
I_MASTERLANGUAGE = 'E'
I_THRULANG = ' '
I_INSTALL_LANG = ' '
IMPORTING O_LANGUAGES = %LANGUAGES.
%HEADER-LANGU = %LANGUAGES-LANGU1.
%WEXIT = SPACE.
PERFORM %GLOBAL_CLEAR.
PERFORM %GLOBAL_INIT.
CLEAR %ARCTAB.
IF ARCHIVE_INDEX_TAB[] IS INITIAL.
APPEND ARCHIVE_INDEX TO %ARCTAB.
ELSE.
%ARCTAB = ARCHIVE_INDEX_TAB.
ENDIF.
> CALL FUNCTION 'SSFCOMP_PROCESS_DOCUMENT'
EXPORTING HEADER = %HEADER
DOCSTRUC = %DOCSTRUC
STARTPAGE = CONTROL_PARAMETERS-STARTPAGE
ARCHIV_INDEX_TAB = %ARCTAB
MAIL_APPL_OBJECT = MAIL_APPL_OBJ
IMPORTING RESULT = %RESULT_PD
EXCEPTIONS OTHERS = 1.
IF SY-SUBRC <> 0. PERFORM %RAISE. ENDIF.
DOCUMENT_OUTPUT_INFO = %RESULT_PD.
ENDIF.
The function module 'SSFCOMP_PROCESS_DOCUMENT' is returning sy-subrc value 1.
Could you please tell me how to rectify this error
Thanks and Regards,
Soumya.The error I am getting is a formatting error as shown below:
L_ERROR-MSGTY E
L_ERROR-MSGID SSFCOMPOSER
L_ERROR-MSGV1 YTI_FCR004_RETREP_TYPE -
Performance tuning of this report
Hello friends iam attaching my report give the performance tuning for this report to avoid nested endloops. how to do without using nested endloops.
give me the reply urgent.
REPORT ZDEMO9 NO STANDARD PAGE HEADING
LINE-SIZE 250
LINE-COUNT 22(3). .
TABLES DECLARATION *
TABLES : MARA, "general material data
MAKT, "material description
MARC, "plant data for material
VBAP, "sales document for item data
EKKO, "purchasing document header
EKPO, "purchasing document item
KNA1. "customer master details
INTERNAL TABLE DECLARATION *
DATA : BEGIN OF T_MARA OCCURS 0,
MATNR LIKE MARA-MATNR,
MTART LIKE MARA-MTART,
MEINS LIKE MARA-MEINS,
END OF T_MARA.
DATA : BEGIN OF T_MAKT OCCURS 0,
MATNR LIKE MAKT-MATNR,
MAKTX LIKE MAKT-MAKTX,
SPRAS LIKE MAKT-SPRAS,
END OF T_MAKT.
DATA : BEGIN OF T_MARC OCCURS 0,
MATNR LIKE MARC-MATNR,
WERKS LIKE MARC-WERKS,
END OF T_MARC.
DATA : BEGIN OF T_KNA1 OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
NAME1 LIKE KNA1-NAME1,
LAND1 LIKE KNA1-LAND1,
END OF T_KNA1.
DATA : BEGIN OF T_VBAP OCCURS 0,
MATNR LIKE VBAP-MATNR,
POSNR LIKE VBAP-POSNR,
MATKL LIKE VBAP-MATKL,
VBELN LIKE VBAP-VBELN,
END OF T_VBAP.
DATA : BEGIN OF T_EKPO OCCURS 0,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
BUKRS LIKE EKPO-BUKRS,
WERKS LIKE EKPO-WERKS,
LGORT LIKE EKPO-LGORT,
MATNR LIKE EKPO-MATNR,
MANDT LIKE EKPO-MANDT,
END OF T_EKPO.
FINAL INTERNAL TABLE *
DATA : BEGIN OF T_FINAL OCCURS 0,
MATNR LIKE MARA-MATNR,
MTART LIKE MARA-MTART,
MEINS LIKE MARA-MEINS,
WERKS LIKE MARC-WERKS,
MAKTX LIKE MAKT-MAKTX,
SPRAS LIKE MAKT-SPRAS,
VBELN LIKE VBAP-VBELN,
POSNR LIKE VBAP-POSNR,
MATKL LIKE VBAP-MATKL,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
BUKRS LIKE EKPO-BUKRS,
KUNNR LIKE KNA1-KUNNR,
LAND1 LIKE KNA1-LAND1,
NAME1 LIKE KNA1-NAME1,
LGORT LIKE EKPO-LGORT,
END OF T_FINAL.
*DATA: BEGIN OF V_matnr OCCURS 0,
matnr LIKE mara-matnr,
END OF t_matnr.
data:
a(32) type c.
a = 'IBT000000000000000001000000000000000050'.
SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_BUKRS FOR EKPO-BUKRS,
S_KUNNR FOR KNA1-KUNNR,
S_WERKS FOR MARC-WERKS,
S_MATNR FOR MARA-MATNR obligatory.
SELECTION-SCREEN END OF BLOCK B1.
START OF SELECTION *
START-OF-SELECTION.
SELECT MATNR mtart meins
FROM MARA
INTO CORRESPONDING FIELDS OF TABLE T_MARA
WHERE MATNR IN S_MATNR.
SELECT MATNR WERKS
FROM MARC
INTO CORRESPONDING FIELDS OF TABLE T_MARC
FOR ALL ENTRIES IN T_MARA
WHERE MATNR = T_MARA-MATNR
and werks in s_werks.
select matnr maktx spras
from makt
into corresponding fields of table t_makt
for all entries in t_mara
where matnr = t_mara-matnr
and spras = sy-langu.
select matnr posnr matkl vbeln
from vbap
into corresponding fields of table t_vbap
for all entries in t_mara
where matnr = t_mara-matnr.
select matnr werks bukrs ebeln ebelp lgort
from ekpo
into corresponding fields of table t_ekpo
for all entries in t_mara
where matnr = t_mara-matnr
and werks in s_werks.
LOOP AT T_MARA.
MOVE T_MARA-matnr TO T_FINAL-matnr.
move t_mara-mtart to t_final-mtart.
move t_mara-meins to t_final-meins.
loop at t_marc where matnr eq t_mara-matnr.
move t_marc-werks to t_final-werks.
loop at t_makt.
move t_makt-maktx to t_final-maktx.
move t_makt-spras to t_final-spras.
loop at t_vbap.
move t_vbap-posnr to t_final-posnr.
move t_vbap-matkl to t_final-matkl.
move t_vbap-vbeln to t_final-vbeln.
loop at t_ekpo.
move t_ekpo-bukrs to t_final-bukrs.
move t_ekpo-ebeln to t_final-ebeln.
move t_ekpo-ebelp to t_final-ebelp.
move t_ekpo-lgort to t_final-lgort.
append t_final.
endloop.
endloop.
endloop.
endloop.
endloop.
SELECT werks KUNNR LAND1 NAME1
INTO CORRESPONDING FIELDS OF TABLE T_KNA1
FROM KNA1.
WHERE WERKS in s_werks.
loop at t_kna1.
move t_kna1-kunnr to t_final-kunnr.
move t_kna1-name1 to t_final-name1.
move t_kna1-land1 to t_final-land1.
append t_final.
endloop.
"endloop.
loop at t_final.
write : 4 t_final-matnr,
20 t_final-mtart,
28 t_final-meins,
46 t_final-werks,
58 t_final-maktx,
71 t_final-spras,
78 t_final-posnr,
100 t_final-matkl,
115 t_final-vbeln,
130 t_final-kunnr,
142 t_final-name1,
156 t_final-land1,
168 t_final-bukrs,
190 t_final-ebeln,
205 t_final-ebelp,
208 t_final-lgort.
endloop.
TOP-OF-PAGE *
top-of-page.
uline.
write : /60 'G E N E R A L D E T A I L S' COLOR 2 INVERSE OFF.
ULINE.
write :/ SY-VLINE, 'MATERIAL' COLOR 4, "12 SY-VLINE,
13 SY-VLINE, 'IND SECTOR',
28 SY-VLINE, 'UNITS',
43 SY-VLINE, 'PLANT',
55 SY-VLINE, 'MAT DESC',
68 SY-VLINE, 'LANGU',
70 SY-VLINE, 'SALES DOC ITEM',
95 SY-VLINE, 'MAT GROUP',
110 SY-VLINE, 'SALES DOC',
125 SY-VLINE, 'CUST ID',
140 SY-VLINE, 'NAME',
155 SY-VLINE, 'COUNTRY',
165 sy-vline, 'company code',
205 sy-vline, 'storge loc'.*& Report YTESTCHA *
REPORT ytestcha NO STANDARD PAGE HEADING
LINE-SIZE 250
LINE-COUNT 22(3). .
TABLES DECLARATION *
TABLES : mara, "general material data
makt, "material description
marc, "plant data for material
vbap, "sales document for item data
ekko, "purchasing document header
ekpo, "purchasing document item
kna1. "customer master details
INTERNAL TABLE DECLARATION *
*DECLARE TYPES FIRST AND THE INTERNAL TABLES
*DONT USE MATNR LIKE MARA-MATNR ,INSTEAD USE MARA TYPE MATNR WHERE MATNR
*IS THE DATA ELEMENT FOR FIELD MATNR.
TYPES: BEGIN OF ty_mara,
matnr TYPE matnr,
mtart TYPE mtart,
meins TYPE meins,
kunnr TYPE wettb,
END OF ty_mara.
TYPES: BEGIN OF ty_makt,
matnr TYPE matnr,
maktx TYPE maktx,
spras TYPE spras,
END OF ty_makt.
TYPES: BEGIN OF ty_marc,
matnr TYPE matnr,
werks TYPE werks_d,
END OF ty_marc.
TYPES : BEGIN OF ty_kna1,
kunnr TYPE kunnr,
name1 TYPE name1_gp,
land1 TYPE land1_gp,
END OF ty_kna1.
TYPES: BEGIN OF ty_vbap,
matnr TYPE matnr,
posnr TYPE posnr_va,
matkl TYPE matkl,
vbeln TYPE vbeln_va,
END OF ty_vbap.
TYPES: BEGIN OF ty_ekpo,
ebeln TYPE ebeln,
ebelp TYPE ebelp,
bukrs TYPE bukrs,
werks TYPE werks_d,
lgort TYPE lgort_d,
matnr TYPE matnr,
mandt TYPE mandt,
END OF ty_ekpo.
DATA:t_mara TYPE TABLE OF ty_mara WITH HEADER LINE,
t_makt TYPE TABLE OF ty_makt WITH HEADER LINE,
t_marc TYPE TABLE OF ty_marc WITH HEADER LINE,
t_kna1 TYPE TABLE OF ty_kna1 WITH HEADER LINE,
t_vbap TYPE TABLE OF ty_vbap WITH HEADER LINE,
t_ekpo TYPE TABLE OF ty_ekpo WITH HEADER LINE.
FINAL INTERNAL TABLE *
TYPES: BEGIN OF ty_final,
matnr TYPE matnr,
mtart TYPE mtart,
meins TYPE meins,
werks TYPE werks_d,
maktx TYPE maktx,
spras TYPE spras,
vbeln TYPE vbeln_va,
posnr TYPE posnr_va,
matkl TYPE matkl,
ebeln TYPE ebeln,
ebelp TYPE ebelp,
bukrs TYPE bukrs,
kunnr TYPE kunnr,
land1 TYPE land1_gp,
name1 TYPE name1_gp,
lgort TYPE lgort_d,
END OF ty_final.
DATA : t_final TYPE TABLE OF ty_final WITH HEADER LINE.
*DATA: BEGIN OF V_matnr OCCURS 0,
matnr LIKE mara-matnr,
END OF t_matnr.
DATA:
a(32) TYPE c.
a = 'IBT000000000000000001000000000000000050'.
SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_bukrs FOR ekpo-bukrs,
s_kunnr FOR kna1-kunnr,
s_werks FOR marc-werks,
s_matnr FOR mara-matnr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
START OF SELECTION *
START-OF-SELECTION.
*USE SUBROUTINES
*get data
PERFORM get_data.
*populate final table
PERFORM populate_final_table.
END-OF-SELECTION.
*display output
PERFORM display_output.
TOP-OF-PAGE *
TOP-OF-PAGE.
ULINE.
WRITE : /60 'G E N E R A L D E T A I L S' COLOR 2 INVERSE OFF.
ULINE.
WRITE :/ sy-vline, 'MATERIAL' COLOR 4, "12 SY-VLINE,
13 sy-vline, 'IND SECTOR',
28 sy-vline, 'UNITS',
43 sy-vline, 'PLANT',
55 sy-vline, 'MAT DESC',
68 sy-vline, 'LANGU',
70 sy-vline, 'SALES DOC ITEM',
95 sy-vline, 'MAT GROUP',
110 sy-vline, 'SALES DOC',
125 sy-vline, 'CUST ID',
140 sy-vline, 'NAME',
155 sy-vline, 'COUNTRY',
165 sy-vline, 'company code',
205 sy-vline, 'storge loc'.
*& Form GET_DATA
text
--> p1 text
<-- p2 text
*TRY TO CLEAR AND REFRESH TABLES BEFORE SELECT
FORM get_data .
CLEAR t_mara.
REFRESH t_mara.
SELECT matnr
mtart
meins
kunnr
FROM mara
INTO TABLE t_mara
WHERE matnr IN s_matnr.
IF NOT t_mara[] IS INITIAL.
CLEAR t_marc.
REFRESH t_marc.
SELECT matnr
werks
FROM marc
INTO TABLE t_marc
FOR ALL ENTRIES IN t_mara
WHERE matnr = t_mara-matnr
AND werks IN s_werks.
CLEAR t_makt.
REFRESH t_makt.
SELECT matnr
maktx
spras
FROM makt
INTO TABLE t_makt
FOR ALL ENTRIES IN t_mara
WHERE matnr = t_mara-matnr
AND spras = sy-langu.
CLEAR t_vbap.
REFRESH t_vbap.
SELECT matnr
posnr
matkl
vbeln
FROM vbap
INTO TABLE t_vbap
FOR ALL ENTRIES IN t_mara
WHERE matnr = t_mara-matnr.
CLEAR t_ekpo.
REFRESH t_ekpo.
SELECT ebeln
ebelp
bukrs
werks
lgort
matnr
mandt
FROM ekpo
INTO TABLE t_ekpo
FOR ALL ENTRIES IN t_mara
WHERE matnr = t_mara-matnr
AND werks IN s_werks.
ENDIF.
CLEAR t_kna1.
REFRESH t_kna1.
SELECT kunnr
land1
name1
INTO TABLE t_kna1
FROM kna1.
WHERE WERKS in s_werks.
ENDFORM. " GET_DATA
*& Form POPULATE_FINAL_TABLE
text
--> p1 text
<-- p2 text
FORM populate_final_table .
*AVOID LOOPS AND TRY TO USE READ
CLEAR t_final.
REFRESH t_final.
LOOP AT t_mara.
MOVE t_mara-matnr TO t_final-matnr.
MOVE t_mara-mtart TO t_final-mtart.
MOVE t_mara-meins TO t_final-meins.
READ TABLE t_marc WITH KEY matnr = t_mara-matnr.
MOVE t_marc-werks TO t_final-werks.
READ TABLE t_makt WITH KEY matnr = t_mara-matnr.
MOVE t_makt-maktx TO t_final-maktx.
MOVE t_makt-spras TO t_final-spras.
READ TABLE t_vbap WITH KEY matnr = t_mara-matnr.
MOVE t_vbap-posnr TO t_final-posnr.
MOVE t_vbap-matkl TO t_final-matkl.
MOVE t_vbap-vbeln TO t_final-vbeln.
READ TABLE t_ekpo WITH KEY matnr = t_mara-matnr.
MOVE t_ekpo-bukrs TO t_final-bukrs.
MOVE t_ekpo-ebeln TO t_final-ebeln.
MOVE t_ekpo-ebelp TO t_final-ebelp.
MOVE t_ekpo-lgort TO t_final-lgort.
READ TABLE t_kna1 WITH KEY kunnr = t_mara-kunnr.
MOVE t_kna1-kunnr TO t_final-kunnr.
MOVE t_kna1-name1 TO t_final-name1.
MOVE t_kna1-land1 TO t_final-land1.
APPEND t_final.
CLEAR :t_final,t_mara,t_marc,t_makt,t_ekpo,t_vbap.
ENDLOOP.
ENDFORM. " POPULATE_FINAL_TABLE
*& Form DISPLAY_OUTPUT
text
--> p1 text
<-- p2 text
FORM display_output .
LOOP AT t_final.
WRITE : 4 t_final-matnr,
20 t_final-mtart,
28 t_final-meins,
46 t_final-werks,
58 t_final-maktx,
71 t_final-spras,
78 t_final-posnr,
100 t_final-matkl,
115 t_final-vbeln,
130 t_final-kunnr,
142 t_final-name1,
156 t_final-land1,
168 t_final-bukrs,
190 t_final-ebeln,
205 t_final-ebelp,
208 t_final-lgort.
ENDLOOP.
ENDFORM. " DISPLAY_OUTPUT -
Hi all,
I have created a smart form , and I can down load it to the local drive in PDF format.
But I want to display my smart form in PDF first , then if the user want to save , he should be able to do so. How can i do thtat.
Many thanks ,
Sandeep.hi friend,
pls go through the code
rewards are expecting .
vivek
*& Report Y_SD_PRE_SHIPMENT
REPORT y_sd_pre_shipment.
**************DATA DECLARATION****************************************
DATA : BEGIN OF i_vbrk OCCURS 0,
vbeln TYPE vbrp-vbeln,
END OF i_vbrk.
DATA: prog TYPE sy-repid,
dynnr TYPE sy-dynnr,
FNAM TYPE RS38L_FNAM,
v_vbeln type ZSDTANNXINV-vbeln,
idx type i,
cnt type i.
DATA: I_FINAL TYPE TABLE OF YPSHIP,
W_FINAL TYPE YPSHIP.
DATA: I_HEAD TYPE TABLE OF YPSHIP1,
W_HEAD TYPE YPSHIP1.
DATA: it_otf TYPE STANDARD TABLE OF itcoo,
it_docs TYPE STANDARD TABLE OF docs,
it_lines TYPE STANDARD TABLE OF tline,
st_job_output_info TYPE ssfcrescl,
st_document_output_info TYPE ssfcrespd,
st_job_output_options TYPE ssfcresop,
st_output_options TYPE ssfcompop,
st_control_parameters TYPE ssfctrlop,
v_len_in TYPE so_obj_len,
v_language TYPE sflangu VALUE 'E',
v_e_devtype TYPE rspoptype,
v_bin_filesize TYPE i,
v_name TYPE string,
v_path TYPE string,
v_fullpath TYPE string,
v_filter TYPE string,
v_uact TYPE i,
v_guiobj TYPE REF TO cl_gui_frontend_services,
v_filename TYPE string.
******USER INTERACTION OPTION FOR THE INVOICE NO
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE r.
PARAMETERS: invoice LIKE ZSDTANNXINV-vbeln obligatory .
SELECTION-SCREEN : END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR invoice.
REFRESH i_vbrk.
SELECT vbeln FROM vbrk INTO TABLE i_vbrk.
IF sy-subrc IS INITIAL.
prog = sy-repid.
dynnr = sy-dynnr.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = ' '
retfield = 'VBELN'
dynpprog = prog
dynpnr = dynnr
dynprofield = 'INVOICE'
value_org = 'S'
TABLES
value_tab = i_vbrk.
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
exceptions
parameter_error = 1
no_values_found = 2
others = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
at selection-screen on invoice.
if invoice is not initial.
clear v_vbeln.
select single vbeln from ZSDTANNXINV into v_vbeln where vbeln = invoice.
if sy-subrc is not initial.
message 'Enter Valid Document No' type 'E'.
endif.
endif.
START-OF-SELECTION.
perform get_data.
perform process_data.
*& Form get_data
text
--> p1 text
<-- p2 text
form get_data .
IF INVOICE IS NOT INITIAL.
SELECT VBELN
VTEXT
NETWT
GROSSWT
vsslname
kindofpack
INCO1
INCO2
REMDATE
DESTINATION
SHPNGLIN1
CNTRNO
TRAILERNO1
ETDDATE
ETADATE
baanr
FROM ZSDTANNXINV
INTO TABLE I_HEAD
WHERE VBELN = INVOICE.
ENDIF.
IF I_HEAD[] IS NOT INITIAL.
select vbeln
POSNR
MATNR
MAKTX
meins
RATE
VALUE
WAERK
PRPOSNR
from zsafii
into corresponding fields of table i_final
for all entries in i_head
where vbeln = i_head-vbeln.
ENDIF.
describe table i_final lines cnt.
idx = 1.
loop at i_final into w_final.
if idx le cnt.
read table i_head into w_head with key vbeln = w_final-vbeln.
if sy-subrc is initial.
move-corresponding w_head to w_final.
modify i_final from w_final index idx.
idx = idx + 1.
endif.
endif.
endloop.
endform. " get_data
*& Form process_data
text
--> p1 text
<-- p2 text
form process_data .
CALL FUNCTION 'SSF_GET_DEVICE_TYPE'
EXPORTING
i_language = v_language
i_application = 'SAPDEFAULT'
IMPORTING
e_devtype = v_e_devtype.
st_output_options-tdprinter = v_e_devtype.
*st_output_options-tdprinter = 'locl'.
st_control_parameters-no_dialog = 'X'.
st_control_parameters-getotf = 'X'.
sort i_final by vbeln.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'Y_SSF_PRESHIPMENT'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
FM_NAME = FNAM
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
if fnam is not initial.
CALL FUNCTION FNAM
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS = st_control_parameters
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS = st_output_options
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO = st_document_output_info
JOB_OUTPUT_INFO = st_job_output_info
JOB_OUTPUT_OPTIONS = st_job_output_options
TABLES
itab = I_FINAL
i_head = I_HEAD
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
.........................CONVERT TO OTF TO PDF.......................
CALL FUNCTION 'CONVERT_OTF_2_PDF'
IMPORTING
bin_filesize = v_bin_filesize
TABLES
otf = st_job_output_info-otfdata
doctab_archive = it_docs
lines = it_lines
EXCEPTIONS
err_conv_not_possible = 1
err_otf_mc_noendmarker = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
........................GET THE FILE NAME TO STORE....................
CONCATENATE 'smrt' '.pdf' INTO v_name.
CREATE OBJECT v_guiobj.
CALL METHOD v_guiobj->file_save_dialog
EXPORTING
default_extension = 'pdf'
default_file_name = v_name
file_filter = v_filter
CHANGING
filename = v_name
path = v_path
fullpath = v_fullpath
user_action = v_uact.
IF v_uact = v_guiobj->action_cancel.
EXIT.
ENDIF.
..................................DOWNLOAD AS FILE....................
MOVE v_fullpath TO v_filename.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = v_bin_filesize
filename = v_filename
filetype = 'BIN'
TABLES
data_tab = it_lines
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
********************************************************************8
endform. " process_data -
Hi All,
We are implementing iprocurement for new operating unit.
We have many expense account rules and approximately 450 smart forms to be setup for new OU. But as part of R12, the setups are to be done through HTML pages.
Currently I do not see any option to upload these 2 items, as doing them manually will take lot of manual effort.
Are there any APIs available to load these 2 items? OR any workaround like using dataloader or isetup?
I am sure many clients are using R12 for very long time and not sure if there are any issues raised on this?
Could you please let us know if there are any options avialble to upload them?
Thanks
sreenivasHow to Setup a Valid Vacation Rule for Purchasing Notifications (Doc ID 378023.1)
Goal
What steps are required for proper setup of a Vacation Rule for routing of Purchasing Notifications?
Fix
1. Enter the Notification Summary or Worklist for a user
2. Select the "Vacation Rule" link
3. Select the "Create New Rule" link
4. For Item Type select "All" for all Notifications or select the desired Notification Type from List of Values
5. Select the "Next" link to proceed to the next setup page for the rule
6. Enter both a a valid Start and End Date for the new rule
7. Ensure the "Reassign" radio button is selected
8. Keep "All Employees and Users" in the menu box
9. Select the "Delegate" radio button - Assign/Reassign action is prohibited for Purchasing Notifications
10. Select the Flashlight icon next to the blank menu box for selecting a user
11. A new sub-screen should pop-up to perform the user search
12. For "Search By" select "Username" - (DO NOT search by Name)
13. Perform the needed wildcard (%) search at the top of the page to locate the desired username
14. Click the radio button next to the desired name of the user to have the notifications sent to
15. Press the "Select" button followed by the "Apply" button
16. Continue on with the saving of the Vacation Rule for latter use
Note:
The key to setting-up a valid Vacation Rule is to ensure the rule is tied to a Username rather then the Full Name of the desired user. The reason for this is that the Worklist and Notification Summary for the user is linked to their username and not full name record.
Reference:
Oracle Workflow User's Guide - Release 2.6.3.5
Part Number : B12162-02 -
i have copied the purchase order smart form and activated it and know i have the function moudule which need to be used in program but i am not shure how to do that can any one tell me how i need to write the coding for simple purchae order and then pass on the data to the smart form so that it displays the output.
What you do for inserting lines is to select line one of the screen table and then click the insert button.
Do this for each line in your BDC and then you only have to worry about line one of the table:
Code:
Form Add_Item_Line Tables t_Item_Data
using pu_program type Program_Name
pu_screen like sy-dynnr
pu_insert_line like sy-ucomm
pu_insert_at like sy-tabix
pu_werks like Zorder_Header-Dwerk.
Data: t_characteristics type Order_Lines,
w_Characteristic like Zorder_Line.
Perform Zbdc_Screen using pu_Program pu_Screen.
Perform Zbdc_Field using c_OkCode pu_insert_line. <----
Perform Zbdc_Screen using pu_Program pu_Screen.
Loop at t_Item_Data into w_Characteristic.
Is this actually part of the item line or is it a
Characteristic ?
Translate w_Characteristic-AtNam to Upper Case.
Case w_Characteristic-AtNam.
When 'MATNR'. " Material
Perform Zbdc_Subscript using 'VBAP-MATNR'
pu_insert_at
W_Characteristic-AtWrt.
Perform Zbdc_Subscript using 'VBAP-WERKS'
Looking at it from a modification point of view, the aim will be always to bring the line of the table that you're interested in to line one of the table
so again you only need to handle line one of the screen table. Some of the codes for this are 'POPO' in Purchase order processing, and 'SORT' in CO02:
Code:
Now loop round the P/O and delete all of those that we don't want
Loop at t_ekpo.
Keep this P/O Line item ?
MOVE SY-TABIX TO W_POPO.
PERFORM ZBDC_SCREEN USING 'SAPMV50A' '0270'.
PERFORM ZBDC_FIELD USING 'BDC_OKCODE' '=POPO'.
PERFORM ZBDC_SCREEN USING 'SAPMV50A' '0111'.
PERFORM ZBDC_FIELD USING 'RV50A-POSNR' W_POPO.
PERFORM ZBDC_FIELD USING 'BDC_OKCODE' '/00'.
Read Table t_vl31_asn with key ebeln = t_ekpo-ebeln
ebelp = t_ekpo-ebelp.
If sy-subrc <> 0.
Not found - discard this one.
PERFORM ZBDC_SCREEN USING 'SAPMV50A' '0270'.
PERFORM ZBDC_FIELD USING 'RV50A-LIPS_SELKZ(01)' 'X'.
ELSE.
Change the quantity....
WRITE T_VL31_ASN-MENGE TO W_MENGE UNIT T_VL31_ASN-LMEIN.
CONDENSE W_MENGE NO-GAPS.
PERFORM ZBDC_SCREEN USING 'SAPMV50A' '0270'.
PERFORM ZBDC_FIELD USING 'LIPS-LFIMG(01)' W_MENGE.
EndIf.
EndLoop.
Hope this helps.
Award points if found usefull.
Cheers,
Chandra Sekhar. -
Performance tuning: lite sessions and local ServletContext
I have been doing some research on iPlanet performance tuning. In our
current production environment (iAS6.0 SP1B, iWS4.1 SP2 on Solaris), since
we don't use clustering there should be a couple of performance improvements
we can make immediately:
1. Use lite sessions (<session-impl>lite</session-impl> in ias-web.xml) - I
believe that if you use lite sessions, the session data is stored in the kjs
process space as opposed to the kxs process space. This, of course, means
that if a kjs dies the user's on it will lose their session information but
it will provide a performance improvement by reducing kxs/kjs communication.
2. Use local ServletContexts (<distributable>false</distributable> in
web.xml) - This should cause the ServletContext to only be stored in the
originating JVM. So again, if a kjs dies, the user will lose their
ServletContext but again we will get a performance improvement by reducing
kxs/kjs communcation.
What I want to understand is how our load balancing configuration will
effect our production environment if we use this configuration. Right now
we use sticky load balancing on all our servlets but we don't have our JSPs
registered and therefore sticky load balancing cannot always be trusted to
return users to the iAS they came from. We make up for this by using
hardware load balancing that keeps the majority of our users sticky.
However, using lite sessions and local ServletContexts will require that a
user not only stick to an iAS, but to a specific kjs as well. Using sticky
load balancing would ensure that, but since we also rely on our hardware
load balancers, could they create a problem? If a user gets sent back to
the iAS they came from by our hardware load balancers, will the kxs process
be smart enough to return them to the kjs they came from? If so, then I
think that means that we can safely switch to lite sessions and local
ServletContexts, but if not, I think many users will lose their sessions.
Thanks,
LincPlease follow thru this link for your answers
http://developer.iplanet.com/viewsource/char_tuningias/index.jsp
Thanks
Shital Patel
Lincoln wrote:
I have been doing some research on iPlanet performance tuning. In our
current production environment (iAS6.0 SP1B, iWS4.1 SP2 on Solaris), since
we don't use clustering there should be a couple of performance improvements
we can make immediately:
1. Use lite sessions (<session-impl>lite</session-impl> in ias-web.xml) - I
believe that if you use lite sessions, the session data is stored in the kjs
process space as opposed to the kxs process space. This, of course, means
that if a kjs dies the user's on it will lose their session information but
it will provide a performance improvement by reducing kxs/kjs communication.
2. Use local ServletContexts (<distributable>false</distributable> in
web.xml) - This should cause the ServletContext to only be stored in the
originating JVM. So again, if a kjs dies, the user will lose their
ServletContext but again we will get a performance improvement by reducing
kxs/kjs communcation.
What I want to understand is how our load balancing configuration will
effect our production environment if we use this configuration. Right now
we use sticky load balancing on all our servlets but we don't have our JSPs
registered and therefore sticky load balancing cannot always be trusted to
return users to the iAS they came from. We make up for this by using
hardware load balancing that keeps the majority of our users sticky.
However, using lite sessions and local ServletContexts will require that a
user not only stick to an iAS, but to a specific kjs as well. Using sticky
load balancing would ensure that, but since we also rely on our hardware
load balancers, could they create a problem? If a user gets sent back to
the iAS they came from by our hardware load balancers, will the kxs process
be smart enough to return them to the kjs they came from? If so, then I
think that means that we can safely switch to lite sessions and local
ServletContexts, but if not, I think many users will lose their sessions.
Thanks,
Linc -
Smart forms and print program needed
Can anyone provide me with the following print programs and smart forms? I can't find it in my SAP. Thanks.
Print Program:
/SMB40/M07DR
Smart Forms:
/SMB40/MMGR1_A
/SMB40/MMGR3_A
/SMB40/MMGI1_A
Please kindly email me at [email protected]Hi
I appreciate for your sincierty i cant send through mail but i'm sending directly plz copy all the programs
INCLUDE /SMB40/M07DRTOP.
PROGRAM /BPR3PF/m07dr MESSAGE-ID m7.
DATA lgortsplit LIKE am07m-xselk.
DATA ladr LIKE sadr.
DATA *ladr LIKE sadr.
CONSTANTS: a TYPE c VALUE 'A',
b TYPE c VALUE 'B',
c TYPE c VALUE 'C',
d TYPE c VALUE 'D',
e TYPE c VALUE 'E',
f TYPE c VALUE 'F',
g TYPE c VALUE 'G',
h TYPE c VALUE 'H',
i TYPE c VALUE 'I',
j TYPE c VALUE 'J',
k TYPE c VALUE 'K',
l TYPE c VALUE 'L',
m TYPE c VALUE 'M',
n TYPE c VALUE 'N',
o TYPE c VALUE 'O',
p TYPE c VALUE 'P',
q TYPE c VALUE 'Q',
r TYPE c VALUE 'R',
s TYPE c VALUE 'S',
t TYPE c VALUE 'T',
u TYPE c VALUE 'U',
v TYPE c VALUE 'V',
w TYPE c VALUE 'W',
x TYPE c VALUE 'X',
y TYPE c VALUE 'Y',
z TYPE c VALUE 'Z'.
CONSTANTS: plus TYPE c VALUE '+',
minus TYPE c VALUE '-',
punkt TYPE c VALUE '.',
null TYPE c VALUE '0',
eins TYPE c VALUE '1',
zwei TYPE c VALUE '2',
drei TYPE c VALUE '3',
vier TYPE c VALUE '4',
fuenf TYPE c VALUE '5',
sechs TYPE c VALUE '6',
sieben TYPE c VALUE '7',
acht TYPE c VALUE '8',
neun TYPE c VALUE '9',
einsi TYPE i VALUE '1',
zweii TYPE i VALUE '2',
dreii TYPE i VALUE '3',
vieri TYPE i VALUE '4',
nzwei TYPE i VALUE '02',
ndrei TYPE i VALUE '03'.
CONSTANTS: actvt01 LIKE tact-actvt VALUE '01',
actvt02 LIKE tact-actvt VALUE '02',
actvt03 LIKE tact-actvt VALUE '03',
actvt04 LIKE tact-actvt VALUE '04',
actvt06 LIKE tact-actvt VALUE '06',
actvt65 LIKE tact-actvt VALUE '65',
actvt70 LIKE tact-actvt VALUE '70'.
CONSTANTS: maximum TYPE f VALUE 9999999999999,
minimum TYPE f VALUE -9999999999999,
maximum_gld TYPE f VALUE 99999999999,
minimum_gld TYPE f VALUE -99999999999,
maxvalue LIKE am07m-maxvalue VALUE 9999999999999,
minvalue LIKE am07m-maxvalue VALUE -9999999999999,
cnull(18) TYPE c VALUE '000000000000000000',
pf02(4) TYPE c VALUE 'PF02',
pf15(4) TYPE c VALUE 'PF15',
stern TYPE c VALUE '*',
doublestar(2) TYPE c VALUE '**',
underscore TYPE c VALUE '_',
slasch TYPE c VALUE '/',
dpunkt TYPE c VALUE ':',
curtp00 LIKE smbew-curtp VALUE '00', "Transaktionswährung
curtp10 LIKE smbew-curtp VALUE '10', "ML in Hauswährung
auto_best LIKE mseg-ebeln VALUE '9999999999',
modulpool LIKE sy-repid VALUE 'SAPMM07M'.
CONSTANTS: BEGIN OF hlp,
b(4) TYPE c VALUE 'HLPB',
f(4) TYPE c VALUE 'HLPF',
g(4) TYPE c VALUE 'HLPG',
m(4) TYPE c VALUE 'HLPM',
r(4) TYPE c VALUE 'HLPR',
v(4) TYPE c VALUE 'HLPV',
END OF hlp.
"Equates für Alphabet
TABLES:
afko,
aufk,
itcpo,
mkpf,
*mkpf,
mseg,
*mseg,
ekko,
ekkn,
*ekko,
arc_params,
ekpo,
ekbe,
lfa1,
*lfa1,
thead,
toa_dara,
am07m,
*am07m,
t001,
t001w,
*t001w,
t027b,
t027c,
t027d,
t156,
t156t,
t157e,
*t157e,
t159m,
t159n,
t159o,
t159p,
t159s,
t159e,
t024,
t024d,
*t024,
t064b,
nast,
*nast,
tnapr.
TABLES: mabdr,
mtcom,
mtcor,
twlad.
* Reportinterne Daten *
*--- Strukturen ------------------------------------------------------*
DATA: x_protab TYPE c,
x_bwart TYPE c,
bwart LIKE mseg-bwart,
eintraege LIKE sy-tfill,
anzahl LIKE mseg-weanz,
anzahl1(7) TYPE n,
x_kont TYPE c, "Mehrfachkontierung
x_kont1 TYPE c, "Einfache Kontierung (WE unbewertet)
x_form TYPE c,
x_open TYPE c.
DATA: BEGIN OF jahr,
jahr(4) TYPE n,
monat(2) TYPE n,
tag(2) TYPE n,
END OF jahr.
DATA:
BEGIN OF we,
version1 VALUE '1', "Standardversion
version2 VALUE '2', "Version mit Prüftext
version3 VALUE '3', "WE-Sammelschein
END OF we,
BEGIN OF alt,
matnr LIKE mseg-matnr,
bwart LIKE mseg-bwart,
ebeln LIKE mseg-ebeln,
usnam LIKE mkpf-usnam,
END OF alt,
BEGIN OF kunde,
kdauf LIKE mseg-kdauf,
kdpos LIKE mseg-kdpos,
kdein LIKE mseg-kdein,
END OF kunde,
BEGIN OF anlage,
anln1 LIKE mseg-anln1,
anln2 LIKE mseg-anln2,
END OF anlage,
BEGIN OF belpos,
mblnr LIKE mseg-mblnr,
zeile LIKE mseg-zeile,
END OF belpos,
xskkz,
xpsty,
xkdanr VALUE 'C',
xkde VALUE 'E',
xfert VALUE 'F',
xrvkdanr VALUE 'A',
xanlage VALUE 'A',
xanln1 VALUE 'I',
xkostl VALUE 'K',
xprojn VALUE 'P',
xmunbw VALUE 'M',
xumlag VALUE 'U',
xvbelg VALUE 'V',
xnplan VALUE 'N',
xkonsi(2) VALUE 'KB',
xwabel(2) VALUE 'WA',
xwibel(2) VALUE 'WI',
xwebel(2) VALUE 'WE',
xsele, "Position selektiert
xkont, "Kontierungswechsel
xsamm, "Sammel-WE-Schein
xanha. "Mehrfachkontierung
DATA BEGIN OF theader.
INCLUDE STRUCTURE thead.
DATA END OF theader.
*--- Interne Tabellen -------------------------------------------------*
DATA:
BEGIN OF dummy OCCURS 0,
dummy,
END OF dummy.
DATA:
BEGIN OF ausgabe OCCURS 20,
mblnr LIKE mseg-mblnr,
END OF ausgabe.
DATA: BEGIN OF xekkn OCCURS 50.
INCLUDE STRUCTURE ekkn.
DATA: END OF xekkn.
DATA: BEGIN OF xmseg OCCURS 50.
INCLUDE STRUCTURE mseg.
DATA: END OF xmseg.
DATA: BEGIN OF dtext OCCURS 1.
INCLUDE STRUCTURE tline.
DATA: END OF dtext.
DATA: BEGIN OF dktext OCCURS 1.
INCLUDE STRUCTURE tline.
DATA: END OF dktext.
DATA: BEGIN OF dptext OCCURS 1.
INCLUDE STRUCTURE thead.
DATA: END OF dptext.
DATA: BEGIN OF nast_key,
mblnr LIKE mkpf-mblnr,
mjahr LIKE mkpf-mjahr,
zeile LIKE mseg-zeile,
END OF nast_key.
DATA: BEGIN OF beltab OCCURS 20.
INCLUDE STRUCTURE mseg.
DATA: vgart LIKE mkpf-vgart,
blart LIKE mkpf-blart,
blaum LIKE mkpf-blaum,
bldat LIKE mkpf-bldat,
budat LIKE mkpf-budat,
cpudt LIKE mkpf-cpudt,
cputm LIKE mkpf-cputm,
aedat LIKE mkpf-aedat,
usnam LIKE mkpf-usnam,
tcode LIKE mkpf-tcode,
xblnr LIKE mkpf-xblnr,
bktxt LIKE mkpf-bktxt,
frath LIKE mkpf-frath,
frbnr LIKE mkpf-frbnr,
wever LIKE mkpf-wever,
kzdru LIKE t156-kzdru,
END OF beltab.
DATA: BEGIN OF traptab OCCURS 50.
INCLUDE STRUCTURE mseg.
DATA: vgart LIKE mkpf-vgart,
blart LIKE mkpf-blart,
blaum LIKE mkpf-blaum,
bldat LIKE mkpf-bldat,
budat LIKE mkpf-budat,
cpudt LIKE mkpf-cpudt,
cputm LIKE mkpf-cputm,
aedat LIKE mkpf-aedat,
usnam LIKE mkpf-usnam,
tcode LIKE mkpf-tcode,
xblnr LIKE mkpf-xblnr,
bktxt LIKE mkpf-bktxt,
frath LIKE mkpf-frath,
frbnr LIKE mkpf-frbnr,
wever LIKE mkpf-wever,
END OF traptab.
DATA: BEGIN OF inthead OCCURS 50.
INCLUDE STRUCTURE thead.
DATA: END OF inthead.
DATA: BEGIN OF intline OCCURS 50.
INCLUDE STRUCTURE tline.
DATA: END OF intline.
DATA: BEGIN OF intline1 OCCURS 50.
INCLUDE STRUCTURE tline.
DATA: END OF intline1.
*-------- Hilfsfelder -------------------------------------------------*
DATA: index_z LIKE sy-tabix,
drucker LIKE rm07m-ldest,
old_tdform LIKE t159o-tdform,
r_werks LIKE t001w-werks,
r_name1 LIKE t001w-name1,
x_form3 TYPE c,
x_nopdest TYPE c,
language LIKE t001w-spras,
zaehler_m LIKE sy-tabix,
edruck TYPE c.
DATA: old_mkpf LIKE mkpf-usnam,
old_budat LIKE mkpf-budat,
old_cpudt LIKE mkpf-cpudt,
old_werks LIKE t001w-werks,
old_name1 LIKE t001w-name1,
old_mblnr LIKE mkpf-mblnr,
old_lifnr LIKE ekko-lifnr,
old_ebeln LIKE ekko-ebeln,
old_ekgrp LIKE ekko-ekgrp,
old_reswk LIKE ekko-reswk,
old_linam LIKE am07m-name1,
old_lina2 LIKE am07m-name2,
old_eknam LIKE t024-eknam,
old_ektel LIKE t024-ektel,
old_ematn LIKE mseg-ematn,
old_lfa1 LIKE lfa1,
old_lgort LIKE mseg-lgort,
old_ladr LIKE ladr,
save_mkpf LIKE mkpf-usnam,
save_budat LIKE mkpf-budat,
save_cpudt LIKE mkpf-cpudt,
save_werks LIKE t001w-werks,
save_name1 LIKE t001w-name1,
save_mblnr LIKE mkpf-mblnr,
save_lifnr LIKE ekko-lifnr,
save_reswk LIKE ekko-reswk,
save_ebeln LIKE ekko-ebeln,
save_ekgrp LIKE ekko-ekgrp,
save_linam LIKE am07m-name1,
save_lina2 LIKE am07m-name2,
save_eknam LIKE t024-eknam,
save_ektel LIKE t024-ektel,
save_ematn LIKE mseg-ematn,
save_lfa1 LIKE lfa1,
save_lgort LIKE mseg-lgort,
save_ladr LIKE ladr,
offwhile TYPE c,
& TYPE c VALUE '&',
blank TYPE c VALUE ' ',
fenster(5) TYPE c VALUE 'WIN ',
fcount(2) TYPE c,
text1(21) TYPE c VALUE 'INTLINE-TDLINE+ ( )',
text2(22) TYPE c VALUE 'INTLINE1-TDLINE+ ( )',
text5(22) TYPE c VALUE 'INTLINE1-TDLINE+ ( )',
hifeld1(21) TYPE c VALUE 'INTLINE-TDLINE+ (10)',
shift(2) TYPE n,
fpage LIKE sy-pagno,
xscreen(1) TYPE c,
retco LIKE sy-subrc,
mblnr LIKE mkpf-mblnr,
zeile LIKE mseg-zeile,
new_page,
xkopfdr, "Kopf bereits gedruckt
n_vornr LIKE resb-vornr. "Netzplanvorgang
INCLUDE /SMB40/M07DRMTA.
*------Lesen Tabelle T001----------------------------------------------*
FORM TAB001_LESEN.
IF NOT T001-BUKRS = MSEG-BUKRS.
SELECT SINGLE * FROM T001 WHERE BUKRS = MSEG-BUKRS.
ENDIF.
ENDFORM.
*-------Lesen Tabelle T001w--------------------------------------------*
FORM TAB001W_LESEN.
IF NOT T001W-WERKS = MSEG-WERKS.
SELECT SINGLE * FROM T001W WHERE WERKS = MSEG-WERKS.
ENDIF.
R_WERKS = T001W-WERKS.
R_NAME1 = T001W-NAME1.
* Sprache für Formular aus Kondition, sonst aus Werk
IF NOT NAST-SPRAS IS INITIAL.
LANGUAGE = NAST-SPRAS.
ELSE.
LANGUAGE = T001W-SPRAS.
ENDIF.
SET LANGUAGE LANGUAGE.
ENDFORM.
*-------Lesen Tabelle T001w bei Werkswechsel --------------------------*
FORM TAB001W_LESEN_2.
IF NOT MSEG-WERKS = T001W-WERKS.
SELECT SINGLE * FROM T001W WHERE WERKS = MSEG-WERKS.
ENDIF.
ENDFORM.
*--------Lesen Tabelle T156--------------------------------------------*
FORM TAB156_LESEN.
IF NOT T156-BWART = MSEG-BWART.
SELECT SINGLE * FROM T156 WHERE BWART = MSEG-BWART.
ENDIF.
ENDFORM.
*-------Lesen Tabelle T156t--------------------------------------------*
FORM TAB156T_LESEN.
SELECT SINGLE * FROM T156T WHERE SPRAS = LANGUAGE
AND BWART = MSEG-BWART
AND SOBKZ = MSEG-SOBKZ
AND KZBEW = MSEG-KZBEW
AND KZZUG = MSEG-KZZUG
AND KZVBR = MSEG-KZVBR.
ENDFORM.
*------Lesen Tabelle T024----------------------------------------------*
FORM TAB024_LESEN.
IF NOT T024-EKGRP = EKKO-EKGRP.
SELECT SINGLE * FROM T024 WHERE EKGRP = EKKO-EKGRP.
ENDIF.
ENDFORM.
*------Lesen Tabelle T024D---------------------------------------------*
FORM TAB024D_LESEN.
SELECT SINGLE * FROM T024D WHERE WERKS = MSEG-WERKS
AND DISPO = AFKO-DISPO.
ENDFORM.
*---------------------- T027B,C lesen ---------------------------------*
FORM T027_LESEN.
SELECT SINGLE * FROM T027B WHERE SPRAS = LANGUAGE
AND EVERS = MSEG-EVERS.
CHECK NOT MSEG-EVERE IS INITIAL.
SELECT SINGLE * FROM T027C WHERE EVERS = MSEG-EVERS
AND EVERE = MSEG-EVERE.
IF NOT T027C-EVDRK IS INITIAL.
SELECT SINGLE * FROM T027D WHERE SPRAS = LANGUAGE
AND EVERS = MSEG-EVERS
AND EVERE = MSEG-EVERE.
ENDIF.
ENDFORM.
*------------ Lesen der Tabelle T159P Barcode oder Mehrfachdruck ------*
*----------------------- gewünscht ? ----------------------------------*
FORM LESEN_T159P.
IF NOT T159P-TDDEST = NAST-LDEST.
SELECT SINGLE * FROM T159P WHERE TDDEST = NAST-LDEST.
ENDIF.
ENDFORM.
*& Form T064B_LESEN
* Lesen Text zur Bestandsart Qualität/Gesperrt bei WE
FORM T064B_LESEN.
DATA: BSTAR LIKE T064B-BSTAR.
CASE MSEG-INSMK.
WHEN SPACE.
CLEAR T064B.
EXIT.
WHEN F.
CLEAR T064B.
EXIT.
WHEN X.
BSTAR = ZWEI.
WHEN ZWEI.
BSTAR = ZWEI.
WHEN S.
BSTAR = VIER.
WHEN DREI.
BSTAR = VIER.
ENDCASE.
IF NOT T064B-BSTAR = BSTAR.
SELECT SINGLE * FROM T064B WHERE SPRAS = LANGUAGE
AND BSTAR = BSTAR.
ENDIF.
ENDFORM. " T064B_LESEN
INCLUDE /SMB40/M07DRMMA.
*---------Material lesen-----------------------------------------------*
FORM MATERIAL_LESEN.
CLEAR MTCOM.
MTCOM-KENNG = 'MABDR'.
MTCOM-MATNR = MSEG-MATNR.
MTCOM-WERKS = MSEG-WERKS.
MTCOM-LGORT = MSEG-LGORT.
MTCOM-SPRAS = LANGUAGE.
MTCOM-NOMUS = 'X'.
CALL FUNCTION 'MATERIAL_LESEN'
EXPORTING
SCHLUESSEL = MTCOM
IMPORTING
MATDATEN = MABDR
RETURN = MTCOR
TABLES
SEQMAT01 = DUMMY.
IF NOT T156-KZMHD IS INITIAL.
IF NOT MABDR-MHDLP IS INITIAL.
IF T001W-VLFKZ = B. "Zentrale ?
PERFORM MHD_BERECHNEN.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*----------------- Mindesthaltbarkeit berechnen ---------------------*
FORM MHD_BERECHNEN.
IF NOT EKPO-MHDRZ IS INITIAL.
AM07M-MHDAT = MSEG-VFDAT - ( EKPO-MHDRZ * MABDR-MHDLP / 100 ).
ELSEIF NOT MABDR-MHDRZ IS INITIAL.
AM07M-MHDAT = MSEG-VFDAT - ( MABDR-MHDRZ * MABDR-MHDLP / 100 ).
ENDIF.
ENDFORM.
*----------------- Prueftext lesen-------------------------------------*
FORM PRUEFTEXT_LESEN.
CLEAR DPTEXT.
CLEAR THEADER.
REFRESH DPTEXT.
THEADER-TDID = 'PRUE'.
THEADER-TDSPRAS = LANGUAGE.
THEADER-TDNAME = MSEG-MATNR.
THEADER-TDOBJECT = 'MATERIAL '.
CALL FUNCTION 'SELECT_TEXT'
EXPORTING
ID = THEADER-TDID
LANGUAGE = THEADER-TDSPRAS
NAME = THEADER-TDNAME
OBJECT = THEADER-TDOBJECT
IMPORTING
ENTRIES = EINTRAEGE
TABLES
SELECTIONS = DPTEXT.
ENDFORM.
* Lesen der Herstellerteilenummer *
FORM LESEN_HTN.
SELECT SINGLE MFRPN FROM MARA
INTO (AM07M-MFRPN) WHERE MATNR = MSEG-EMATN.
ENDFORM.
INCLUDE /SMB40/M07DRMBE.
*-------------Bestellung lesen-----------------------------------------*
FORM BESTELLUNG_LESEN."ORDER READING
DATA: NAME1 LIKE ADDR1_VAL-NAME1.
DATA: OLD_LIFNR LIKE EKKO-LIFNR.
CLEAR AM07M-NAME1.
CLEAR AM07M-NAME2.
IF EKKO-EBELN NE MSEG-EBELN.
SELECT SINGLE * FROM EKKO WHERE EBELN = MSEG-EBELN.
ENDIF.
SELECT SINGLE * FROM EKPO WHERE EBELN = MSEG-EBELN
AND EBELP = MSEG-EBELP.
* Purchase order history because of XBLNR read, since from MKPF can
*deviate
SELECT SINGLE * FROM EKBE WHERE EBELN = MSEG-EBELN
AND EBELP = MSEG-EBELP
AND VGABE = '1'
AND GJAHR = MSEG-MJAHR
AND BELNR = MSEG-MBLNR
AND BUZEI = MSEG-ZEILE.
IF NOT SY-SUBRC IS INITIAL.
CLEAR EKBE.
ELSE.
IF NOT EKBE-XBLNR IS INITIAL.
MKPF-XBLNR = EKBE-XBLNR.
ENDIF.
ENDIF.
CALL FUNCTION 'MM_ADDRESS_GET'
EXPORTING I_EKKO = EKKO
IMPORTING E_NAME1 = NAME1
EXCEPTIONS OTHERS = 1.
AM07M-NAME1 = NAME1.
IF NOT EKKO-LLIEF IS INITIAL.
OLD_LIFNR = EKKO-LIFNR.
EKKO-LIFNR = EKKO-LLIEF.
CALL FUNCTION 'MM_ADDRESS_GET'
EXPORTING I_EKKO = EKKO
IMPORTING E_NAME1 = NAME1
EXCEPTIONS OTHERS = 1.
AM07M-NAME2 = NAME1.
EKKO-LIFNR = OLD_LIFNR.
ENDIF.
XPSTY = EKPO-KNTTP.
CASE XPSTY.
WHEN B.
XPSTY = XKDE.
WHEN D.
XPSTY = XKDE.
WHEN G.
XPSTY = XPROJN.
WHEN O.
XPSTY = XPROJN.
WHEN Q.
XPSTY = XPROJN.
ENDCASE.
ENDFORM.
*----------Bestelltext lesen, wenn Matnr. = 0--------------------------*
FORM BESTELLTEXT_LESEN.
CLEAR: THEADER,
THEAD,
DTEXT.
REFRESH
DTEXT.
THEADER-TDID = 'F01 '.
THEADER-TDSPRAS = EKKO-SPRAS.
THEADER-TDNAME(10) = MSEG-EBELN.
THEADER-TDNAME+10(5) = MSEG-EBELP.
THEADER-TDOBJECT = 'EKPO '.
CALL FUNCTION 'READ_TEXT'
EXPORTING ID = THEADER-TDID
LANGUAGE = THEADER-TDSPRAS
NAME = THEADER-TDNAME
OBJECT = THEADER-TDOBJECT
IMPORTING HEADER = THEAD
TABLES LINES = DTEXT
EXCEPTIONS ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5.
ENDFORM.
*------------Bestellkopf lesen für WE-Version 2.-----------------------*
FORM BESTELLKOPF_LESEN.
CLEAR: THEADER,
THEAD,
DKTEXT.
REFRESH:
DKTEXT.
THEADER-TDID = 'F01 '.
THEADER-TDSPRAS = EKKO-SPRAS.
THEADER-TDNAME(10) = MSEG-EBELN.
THEADER-TDOBJECT = 'EKKO '.
CALL FUNCTION 'READ_TEXT'
EXPORTING ID = THEADER-TDID
LANGUAGE = THEADER-TDSPRAS
NAME = THEADER-TDNAME
OBJECT = THEADER-TDOBJECT
IMPORTING HEADER = THEAD
TABLES LINES = DKTEXT
EXCEPTIONS ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5.
ENDFORM.
INCLUDE /SMB40/M07DRMFA.
*------ Auftragskopf lesen --------------------------------------------*
FORM AUFTRAG_LESEN.
SELECT SINGLE * FROM AFKO WHERE AUFNR = MSEG-AUFNR.
IF MSEG-MATNR IS INITIAL.
SELECT SINGLE * FROM AUFK WHERE AUFNR = MSEG-AUFNR.
IF NOT SY-SUBRC IS INITIAL.
MESSAGE E001 WITH 'AUFK' MSEG-AUFNR.
ELSE.
MABDR-MAKTX = AUFK-KTEXT.
ENDIF.
ENDIF.
ENDFORM.
INCLUDE /SMB40/M07DRKON.
FORM KONTIERUNG_LESEN.
REFRESH XEKKN. CLEAR XEKKN.
SELECT * FROM EKKN WHERE EBELN = EKPO-EBELN
AND EBELP = EKPO-EBELP.
MOVE-CORRESPONDING EKKN TO XEKKN.
APPEND XEKKN.
* x_kont = x.
ENDSELECT.
DESCRIBE TABLE XEKKN LINES INDEX_Z.
IF INDEX_Z GT 1.
X_KONT = X.
ELSE.
X_KONT1 = X.
ENDIF.
ENDFORM.
* Network plan process determine.
FORM NW_VORGANG_LESEN USING F_AUFPL F_APLZL.
CALL FUNCTION 'READ_NETWORK_NPLNR_VORNR'
EXPORTING
APLZL = F_APLZL
AUFPL = F_AUFPL
IMPORTING
VORNR = N_VORNR
EXCEPTIONS
NOT_FOUND = 01.
ENDFORM.
* FORM PSP_CONVERT *
* Konvertierung des internen Felds PS_PSP_PNR zur Ausgabe *
FORM PSP_CONVERT USING PSPNR LIKE MSEG-PS_PSP_PNR.
CALL FUNCTION 'CJPN_INTERN_TO_EXTERN_CONV'
EXPORTING
INT_NUM = PSPNR
IMPORTING
EXT_NUM = AM07M-KONTIERUNG.
ENDFORM.
INCLUDE /SMB40/M07DRF01.
FORM WF01_DRUCK.
CALL FUNCTION 'START_FORM'
EXPORTING FORM = TNAPR-FONAM
LANGUAGE = LANGUAGE.
BELPOS-MBLNR = MKPF-MBLNR.
BELPOS-ZEILE = MSEG-ZEILE.
CONDENSE BELPOS NO-GAPS.
AM07M-BELPOS = BELPOS.
IF T156-SHKZG = H.
AM07M-HDLNE = TEXT-020.
ELSE.
AM07M-HDLNE = TEXT-010.
ENDIF.
IF NOT T159P-BACOD IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1BACOKOPF'.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1KOPF'.
ENDIF.
IF XPSTY IS INITIAL.
IF MSEG-XBLVS IS INITIAL.
PERFORM WF1_LAGERMATERIAL. "Lagermaterial
ELSE.
PERFORM WF1_LVSMATERIAL. "LVS-Material
ENDIF.
ELSE.
PERFORM WF1_VERBRAUCHSMATERIAL.
ENDIF.
CALL FUNCTION 'END_FORM'.
PERFORM MKTO_DRUCK.
ENDFORM.
*------------ Drucken Lagermaterial ---------------------------------*
FORM WF1_LAGERMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1LGMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUELGGRUND'.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'LGAUSST'.
ENDFORM.
FORM WF1_LVSMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1LVSMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUELVSGRUND'.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'LVSAUSST'.
ENDFORM.
*-------------Drucken Verbrauchsmaterial------------------------------*
FORM WF1_VERBRAUCHSMATERIAL.
CASE XPSTY.
WHEN XKDANR. "Kundenauftrag
MOVE SPACE TO KUNDE.
CLEAR AM07M-KOTXT.
AM07M-KOTXT = TEXT-030.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
KUNDE-KDEIN = MSEG-KDEIN.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XANLAGE. "Anlage
MOVE SPACE TO ANLAGE.
CLEAR AM07M-KOTXT.
AM07M-KOTXT = TEXT-040.
ANLAGE-ANLN1 = MSEG-ANLN1.
ANLAGE-ANLN2 = MSEG-ANLN2.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE ANLAGE NO-GAPS.
AM07M-KONTIERUNG = ANLAGE.
WHEN XKOSTL. "Kostenstelle
CLEAR AM07M-KOTXT.
AM07M-KOTXT = TEXT-050.
AM07M-KONTIERUNG = MSEG-KOSTL.
WHEN XPROJN. "Projekt/Netzplan
CLEAR AM07M-KOTXT.
IF MSEG-NPLNR IS INITIAL.
AM07M-KOTXT = TEXT-060.
PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
ELSE.
AM07M-KOTXT = TEXT-061.
AM07M-KONTIERUNG = MSEG-NPLNR.
PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
IF NOT N_VORNR IS INITIAL.
MOVE '/' TO AM07M-KONTIERUNG+12.
MOVE N_VORNR TO AM07M-KONTIERUNG+13.
ENDIF.
ENDIF.
ENDCASE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1VERBRMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUELVERBRGRUND'.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'VERBRAUSST'.
ENDFORM.
INCLUDE /SMB40/M07DRF02.
FORM WF02_DRUCK.
T001W-WERKS = R_WERKS.
T001W-NAME1 = R_NAME1.
CALL FUNCTION 'START_FORM'
EXPORTING FORM = TNAPR-FONAM
LANGUAGE = LANGUAGE.
PERFORM PRUEFTEXT_LESEN.
IF T156-SHKZG = 'H'. "Kennzeichen Haben ?
AM07M-HDLNE = TEXT-020.
ELSE.
AM07M-HDLNE = TEXT-010.
ENDIF.
IF NOT T159P-BACOD IS INITIAL.
BELPOS-MBLNR = MKPF-MBLNR.
BELPOS-ZEILE = MSEG-ZEILE.
CONDENSE BELPOS NO-GAPS.
AM07M-BELPOS = BELPOS.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'WE2BACOKOPF'.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'WE2KOPF'.
ENDIF.
IF XPSTY IS INITIAL. "Lagermaterial ?
PERFORM W2_LAGERMATERIAL.
ELSE.
PERFORM W2_VERBRAUCHSMATERIAL.
ENDIF.
CALL FUNCTION 'END_FORM'.
PERFORM MKTO_DRUCK.
ENDFORM.
*-------------- Lagermaterial WE-Version 2 ---------------------------*
FORM WF2_LAGERMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'WE2LGMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUELGGRUND'.
ENDIF.
THEAD-TDID = THEADER-TDID.
THEAD-TDNAME = THEADER-TDNAME.
THEAD-TDOBJECT = THEADER-TDOBJECT.
THEAD-TDSPRAS = THEADER-TDSPRAS.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'PRTXTLGMAT'.
ENDFORM.
*------------ Verbrauchsmaterial WE-Version 2 ----------------------*
FORM WF2_VERBRAUCHSMATERIAL.
CASE XPSTY.
WHEN XKDANR.
MOVE SPACE TO KUNDE.
CLEAR AM07M-KOTXT.
AM07M-KOTXT = TEXT-030.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
KUNDE-KDEIN = MSEG-KDEIN.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XANLAGE.
MOVE SPACE TO ANLAGE.
CLEAR AM07M-KOTXT.
AM07M-KOTXT = TEXT-040.
ANLAGE-ANLN1 = MSEG-ANLN1.
ANLAGE-ANLN2 = MSEG-ANLN2.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE ANLAGE NO-GAPS.
AM07M-KONTIERUNG = ANLAGE.
WHEN XKOSTL.
CLEAR AM07M-KOTXT.
AM07M-KOTXT = TEXT-050.
AM07M-KONTIERUNG = MSEG-KOSTL.
WHEN XPROJN.
CLEAR AM07M-KOTXT.
IF MSEG-NPLNR IS INITIAL.
AM07M-KOTXT = TEXT-060.
PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
ELSE.
AM07M-KOTXT = TEXT-061.
AM07M-KONTIERUNG = MSEG-NPLNR.
PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
IF NOT N_VORNR IS INITIAL.
MOVE '/' TO AM07M-KONTIERUNG+12.
MOVE N_VORNR TO AM07M-KONTIERUNG+13.
ENDIF.
ENDIF.
ENDCASE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'WE2VERBRMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUEVERBRGRUND'.
ENDIF.
THEAD-TDID = THEADER-TDID.
THEAD-TDNAME = THEADER-TDNAME.
THEAD-TDOBJECT = THEADER-TDOBJECT.
THEAD-TDSPRAS = THEADER-TDSPRAS.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'PRTXTVERBRMAT'.
ENDFORM.
INCLUDE /SMB40/M07DRE01.
FORM WE01_DRUCK.
T001W-WERKS = R_WERKS.
T001W-NAME1 = R_NAME1.
ENDFORM.
*------------ Drucken Lagermaterial ---------------------------------*
FORM W1_LAGERMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1LGMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUELGGRUND'.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'LGAUSST'.
ENDFORM.
FORM W1_LVSMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1LVSMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUELVSGRUND'.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'LVSAUSST'.
ENDFORM.
*-------------Drucken Verbrauchsmaterial------------------------------*
FORM W1_VERBRAUCHSMATERIAL.
CLEAR: AM07M-KOTXT, AM07M-KONTIERUNG.
CASE XPSTY.
WHEN XFERT. "Fertigungsauftrag
AM07M-KOTXT = TEXT-062.
IF X_KONT1 IS INITIAL.
AM07M-KONTIERUNG = MSEG-AUFNR.
ELSE.
AM07M-KONTIERUNG = EKKN-AUFNR.
ENDIF.
WHEN XKDE. "Kundeneinzelbest.
MOVE SPACE TO KUNDE.
AM07M-KOTXT = TEXT-030.
IF X_KONT1 IS INITIAL.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
ELSE.
KUNDE-KDAUF = EKKN-VBELN.
KUNDE-KDPOS = EKKN-VBELP.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XKDANR. "Kundenauftrag
MOVE SPACE TO KUNDE.
AM07M-KOTXT = TEXT-030.
IF X_KONT1 IS INITIAL.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
KUNDE-KDEIN = MSEG-KDEIN.
ELSE.
KUNDE-KDAUF = EKKN-VBELN.
KUNDE-KDPOS = EKKN-VBELP.
KUNDE-KDEIN = EKKN-VETEN.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XANLAGE. "Anlage
MOVE SPACE TO ANLAGE.
AM07M-KOTXT = TEXT-040.
IF X_KONT1 IS INITIAL.
ANLAGE-ANLN1 = MSEG-ANLN1.
ANLAGE-ANLN2 = MSEG-ANLN2.
ELSE.
ANLAGE-ANLN1 = EKKN-ANLN1.
ANLAGE-ANLN2 = EKKN-ANLN2.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE ANLAGE NO-GAPS.
AM07M-KONTIERUNG = ANLAGE.
WHEN XKOSTL. "Kostenstelle
AM07M-KOTXT = TEXT-050.
IF X_KONT1 IS INITIAL.
AM07M-KONTIERUNG = MSEG-KOSTL.
ELSE.
AM07M-KONTIERUNG = EKKN-KOSTL.
ENDIF.
WHEN XPROJN. "Projekt/Netzplan
IF X_KONT1 IS INITIAL.
IF MSEG-NPLNR IS INITIAL.
AM07M-KOTXT = TEXT-060.
PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
ELSE.
AM07M-KOTXT = TEXT-061.
AM07M-KONTIERUNG = MSEG-NPLNR.
PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
IF NOT N_VORNR IS INITIAL.
MOVE '/' TO AM07M-KONTIERUNG+12.
MOVE N_VORNR TO AM07M-KONTIERUNG+13.
ENDIF.
ENDIF.
ELSE.
IF EKKN-NPLNR IS INITIAL.
AM07M-KOTXT = TEXT-060.
PERFORM PSP_CONVERT USING EKKN-PS_PSP_PNR.
ELSE.
AM07M-KOTXT = TEXT-061.
AM07M-KONTIERUNG = EKKN-NPLNR.
PERFORM NW_VORGANG_LESEN USING EKKN-AUFPL EKKN-APLZL.
IF NOT N_VORNR IS INITIAL.
MOVE '/' TO AM07M-KONTIERUNG+12.
MOVE N_VORNR TO AM07M-KONTIERUNG+13.
ENDIF.
ENDIF.
ENDIF.
ENDCASE.
CLEAR X_KONT1.
* User-Exit über Erweiterung MBCF0005
CALL CUSTOMER-FUNCTION '001'
EXPORTING
I_MKPF = MKPF
I_MSEG = MSEG
I_EKKO = EKKO
I_EKPO = EKPO
I_NAST = NAST
I_TNAPR = TNAPR
TABLES
I_EKKN = XEKKN
CHANGING
C_AM07M = AM07M
EXCEPTIONS
OTHERS = 0.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'W1VERBRMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'RUELVERBRGRUND'.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING ELEMENT = 'VERBRAUSST'.
ENDFORM.
INCLUDE /SMB40/M07DRE02.
* FORM WE02_DRUCK *
FORM WE02_DRUCK.
T001W-WERKS = R_WERKS.
T001W-NAME1 = R_NAME1.
CALL FUNCTION 'START_FORM'
EXPORTING
FORM = TNAPR-FONAM
LANGUAGE = LANGUAGE.
PERFORM PRUEFTEXT_LESEN.
IF NOT MSEG-VFDAT IS INITIAL.
AM07M-MHTXT = TEXT-105.
ENDIF.
IF NOT AM07M-MHDAT IS INITIAL.
AM07M-MHZTX = TEXT-106.
ENDIF.
IF EKKO-BSART = 'UB'.
AM07M-LITXT = TEXT-101.
AM07M-LIBZG = EKKO-RESWK.
ELSE.
AM07M-LITXT = TEXT-100.
AM07M-LIBZG = EKKO-LIFNR.
IF NOT EKKO-LLIEF IS INITIAL.
AM07M-LIBZ2 = EKKO-LLIEF.
ELSE.
AM07M-LIBZ2 = EKKO-LIFNR.
ENDIF.
ENDIF.
IF T156-SHKZG = 'H'. "Kennzeichen Haben ?
AM07M-HDLNE = TEXT-020.
ELSE.
AM07M-HDLNE = TEXT-010.
ENDIF.
IF NOT T159P-BACOD IS INITIAL.
BELPOS-MBLNR = MKPF-MBLNR.
BELPOS-ZEILE = MSEG-ZEILE.
CONDENSE BELPOS NO-GAPS.
AM07M-BELPOS = BELPOS.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE2BACOKOPF'.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE2KOPF'.
ENDIF.
IF XPSTY IS INITIAL. "Lagermaterial ?
* User-Exit über Erweiterung MBCF0005
CALL CUSTOMER-FUNCTION '001'
EXPORTING
I_MKPF = MKPF
I_MSEG = MSEG
I_EKKO = EKKO
I_EKPO = EKPO
I_NAST = NAST
I_TNAPR = TNAPR
TABLES
I_EKKN = XEKKN
CHANGING
C_AM07M = AM07M
EXCEPTIONS
OTHERS = 0.
IF MSEG-XBLVS IS INITIAL.
PERFORM W2_LAGERMATERIAL. "Lagermaterial
ELSE.
PERFORM W2_LVSMATERIAL. "LVS-Material
ENDIF.
ELSE.
PERFORM W2_VERBRAUCHSMATERIAL.
ENDIF.
CALL FUNCTION 'END_FORM'.
PERFORM MKTO_DRUCK.
ENDFORM.
*-------------- Lagermaterial WE-Version 2 ---------------------------*
FORM W2_LAGERMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE2LGMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'RUELGGRUND'.
ENDIF.
THEAD-TDID = THEADER-TDID.
THEAD-TDNAME = THEADER-TDNAME.
THEAD-TDOBJECT = THEADER-TDOBJECT.
THEAD-TDSPRAS = THEADER-TDSPRAS.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'PRTXTLGMAT'.
ENDFORM.
*-------------- LVS-Daten WE-Version 2 ---------------------------*
FORM W2_LVSMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'W1LVSMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'RUELVSGRUND'.
ENDIF.
THEAD-TDID = THEADER-TDID.
THEAD-TDNAME = THEADER-TDNAME.
THEAD-TDOBJECT = THEADER-TDOBJECT.
THEAD-TDSPRAS = THEADER-TDSPRAS.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'PRTXTLVSMAT'.
ENDFORM.
*------------ Verbrauchsmaterial WE-Version 2 ----------------------*
FORM W2_VERBRAUCHSMATERIAL.
CLEAR: AM07M-KOTXT, AM07M-KONTIERUNG.
CASE XPSTY.
WHEN XFERT. "Fertigungsauftrag
AM07M-KOTXT = TEXT-062.
IF X_KONT1 IS INITIAL.
AM07M-KONTIERUNG = MSEG-AUFNR.
ELSE.
AM07M-KONTIERUNG = EKKN-AUFNR.
ENDIF.
WHEN XKDE.
MOVE SPACE TO KUNDE.
AM07M-KOTXT = TEXT-030.
IF X_KONT1 IS INITIAL.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
ELSE.
KUNDE-KDAUF = EKKN-VBELN.
KUNDE-KDPOS = EKKN-VBELP.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XKDANR.
MOVE SPACE TO KUNDE.
AM07M-KOTXT = TEXT-030.
IF X_KONT1 IS INITIAL.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
KUNDE-KDEIN = MSEG-KDEIN.
ELSE.
KUNDE-KDAUF = EKKN-VBELN.
KUNDE-KDPOS = EKKN-VBELP.
KUNDE-KDEIN = EKKN-VETEN.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XANLAGE.
MOVE SPACE TO ANLAGE.
AM07M-KOTXT = TEXT-040.
IF X_KONT1 IS INITIAL.
ANLAGE-ANLN1 = MSEG-ANLN1.
ANLAGE-ANLN2 = MSEG-ANLN2.
ELSE.
ANLAGE-ANLN1 = EKKN-ANLN1.
ANLAGE-ANLN2 = EKKN-ANLN2.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE ANLAGE NO-GAPS.
AM07M-KONTIERUNG = ANLAGE.
WHEN XKOSTL.
AM07M-KOTXT = TEXT-050.
IF X_KONT1 IS INITIAL.
AM07M-KONTIERUNG = MSEG-KOSTL.
ELSE.
AM07M-KONTIERUNG = EKKN-KOSTL.
ENDIF.
WHEN XPROJN.
IF X_KONT1 IS INITIAL.
IF MSEG-NPLNR IS INITIAL.
AM07M-KOTXT = TEXT-060.
PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
ELSE.
AM07M-KOTXT = TEXT-061.
AM07M-KONTIERUNG = MSEG-NPLNR.
PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
IF NOT N_VORNR IS INITIAL.
MOVE '/' TO AM07M-KONTIERUNG+12.
MOVE N_VORNR TO AM07M-KONTIERUNG+13.
ENDIF.
ENDIF.
ELSE.
IF EKKN-NPLNR IS INITIAL.
AM07M-KOTXT = TEXT-060.
PERFORM PSP_CONVERT USING EKKN-PS_PSP_PNR.
ELSE.
AM07M-KOTXT = TEXT-061.
AM07M-KONTIERUNG = EKKN-NPLNR.
PERFORM NW_VORGANG_LESEN USING EKKN-AUFPL EKKN-APLZL.
IF NOT N_VORNR IS INITIAL.
MOVE '/' TO AM07M-KONTIERUNG+12.
MOVE N_VORNR TO AM07M-KONTIERUNG+13.
ENDIF.
ENDIF.
ENDIF.
ENDCASE.
CLEAR X_KONT1.
* User-Exit über Erweiterung MBCF0005
CALL CUSTOMER-FUNCTION '001'
EXPORTING
I_MKPF = MKPF
I_MSEG = MSEG
I_EKKO = EKKO
I_EKPO = EKPO
I_NAST = NAST
I_TNAPR = TNAPR
TABLES
I_EKKN = XEKKN
CHANGING
C_AM07M = AM07M
EXCEPTIONS
OTHERS = 0.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE2VERBRMAT'.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'RUEVERBRGRUND'.
ENDIF.
THEAD-TDID = THEADER-TDID.
THEAD-TDNAME = THEADER-TDNAME.
THEAD-TDOBJECT = THEADER-TDOBJECT.
THEAD-TDSPRAS = THEADER-TDSPRAS.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'PRTXTVERBRMAT'.
ENDFORM.
INCLUDE /SMB40/M07DRE03.
* FORM WE03_AUSGABE *
FORM WE03_AUSGABE using lgortsplit.
*----------------Drucken WE-Version 3 Überschrift---------------------*
if lgortsplit is initial.
ON CHANGE OF MKPF-MBLNR OR MSEG-EBELN OR MSEG-BWART
OR NAST-KSCHL OR MSEG-WERKS.
CLEAR XKOPFDR.
endon.
else.
ON CHANGE OF MKPF-MBLNR OR MSEG-EBELN OR MSEG-BWART
OR NAST-KSCHL OR MSEG-WERKS
OR MSEG-LGORT.
CLEAR XKOPFDR.
endon.
endif.
IF XKOPFDR IS INITIAL.
XKOPFDR = X.
IF NEW_PAGE = X.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = 'NEW-PAGE'.
ENDIF.
IF EKKO-BSART = 'UB'.
AM07M-LITXT = TEXT-101.
AM07M-LIBZG = EKKO-RESWK.
ELSE.
AM07M-LITXT = TEXT-100.
AM07M-LIBZG = EKKO-LIFNR.
IF NOT EKKO-LLIEF IS INITIAL.
AM07M-LIBZ2 = EKKO-LLIEF.
ELSE.
AM07M-LIBZ2 = EKKO-LIFNR.
ENDIF.
ENDIF.
IF T156-SHKZG = H.
AM07M-HDLNE = TEXT-020.
ELSE.
AM07M-HDLNE = TEXT-010.
ENDIF.
IF XPSTY IS INITIAL. "Lagermaterial ?
IF MSEG-XBLVS IS INITIAL.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
IF NOT T159P-BACOD IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3BACOKOPF'
WINDOW = 'RÜKOPF'.
NEW_PAGE = X.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3KOPF'
WINDOW = 'RÜKOPF'.
NEW_PAGE = X.
ENDIF.
ELSE.
IF NOT T159P-BACOD IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3BACOKOPF'
WINDOW = 'KOPF'.
NEW_PAGE = X.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3KOPF'
WINDOW = 'KOPF'.
NEW_PAGE = X.
ENDIF.
ENDIF.
ELSE.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
IF NOT T159P-BACOD IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3BACOLVSKOPF'
WINDOW = 'RÜKOPF'.
NEW_PAGE = X.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3LVSKOPF' "RL-Material
WINDOW = 'RÜKOPF'.
NEW_PAGE = X.
ENDIF.
ELSE.
IF NOT T159P-BACOD IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3BACOLVSKOPF'
WINDOW = 'KOPF'.
NEW_PAGE = X.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3LVSKOPF' "RL-Material
WINDOW = 'KOPF'.
NEW_PAGE = X.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
IF NOT T159P-BACOD IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3BACOKOPF1'
WINDOW = 'RÜKOPF'.
NEW_PAGE = X.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3KOPF1'
WINDOW = 'RÜKOPF'.
NEW_PAGE = X.
ENDIF.
ELSE.
IF NOT T159P-BACOD IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3BACOKOPF1'
WINDOW = 'KOPF'.
NEW_PAGE = X.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3KOPF1'
WINDOW = 'KOPF'.
NEW_PAGE = X.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
*------------- Drucken WE-Version 3 Position --------------------------*
**perform w3_lieferplan. "Routine Lieferplan
CLEAR T157E.
IF T156-SHKZG = H AND
NOT MSEG-GRUND IS INITIAL.
SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
AND GRUND = MSEG-GRUND
AND SPRAS = LANGUAGE.
ENDIF.
IF MSEG-EBELN IS INITIAL.
IF NOT MABDR-MAKTX IS INITIAL.
EKPO-TXZ01 = MABDR-MAKTX.
ENDIF.
ENDIF.
IF MABDR-WERTU IS INITIAL AND
MABDR-MENGU = X OR "Bestandsfuehrung = UNBW oder
XPSTY IS INITIAL. "Lagermaterial ?
* User-Exit über Erweiterung MBCF0005
CALL CUSTOMER-FUNCTION '001'
EXPORTING
I_MKPF = MKPF
I_MSEG = MSEG
I_EKKO = EKKO
I_EKPO = EKPO
I_NAST = NAST
I_TNAPR = TNAPR
TABLES
I_EKKN = XEKKN
CHANGING
C_AM07M = AM07M
EXCEPTIONS
OTHERS = 0.
IF MSEG-XBLVS IS INITIAL.
PERFORM W3_LAGERMATERIAL. "Routine Lagermaterial
ELSE.
PERFORM W3_LVSMATERIAL. "Routine RL-Material
ENDIF.
ELSE.
PERFORM W3_VERBRAUCHSMATERIAL. "Routine Verbrauchsmaterial
ENDIF.
*-------------- Drucken WE-Version 3 Seitenfuss ----------------------*
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3FUSS'
WINDOW = 'FUSS'
FUNCTION = 'APPEND'.
ENDFORM.
*--------------Unteroutinen für Positionsdruck -----------------------*
FORM W3_LAGERMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3LGMAT'.
ENDFORM.
* FORM W3_LVSMATERIAL *
FORM W3_LVSMATERIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'WE3LVSMAT'.
ENDFORM.
* FORM W3_VERBRAUCHSMATERIAL *
FORM W3_VERBRAUCHSMATERIAL.
CLEAR: AM07M-KONTIERUNG.
AM07M-RSTYP = XPSTY.
CASE XPSTY.
WHEN XFERT. "Fertigungsauftrag
IF X_KONT1 IS INITIAL.
AM07M-KONTIERUNG = MSEG-AUFNR.
ELSE.
AM07M-KONTIERUNG = EKKN-AUFNR.
ENDIF.
WHEN XANLAGE.
MOVE SPACE TO ANLAGE.
IF X_KONT1 IS INITIAL.
ANLAGE-ANLN1 = MSEG-ANLN1.
ANLAGE-ANLN2 = MSEG-ANLN2.
ELSE.
ANLAGE-ANLN1 = EKKN-ANLN1.
ANLAGE-ANLN2 = EKKN-ANLN2.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE ANLAGE NO-GAPS.
AM07M-KONTIERUNG = ANLAGE.
WHEN XKDE. "Kundeneinzelbestand?
MOVE SPACE TO KUNDE.
IF X_KONT1 IS INITIAL.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
ELSE.
KUNDE-KDAUF = EKKN-VBELN.
KUNDE-KDPOS = EKKN-VBELP.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XKDANR. "Kundenauftrag ?
MOVE SPACE TO KUNDE.
IF X_KONT1 IS INITIAL.
KUNDE-KDAUF = MSEG-KDAUF.
KUNDE-KDPOS = MSEG-KDPOS.
KUNDE-KDEIN = MSEG-KDEIN.
ELSE.
KUNDE-KDAUF = EKKN-VBELN.
KUNDE-KDPOS = EKKN-VBELP.
KUNDE-KDEIN = EKKN-VETEN.
ENDIF.
MOVE SPACE TO AM07M-KONTIERUNG.
CONDENSE KUNDE NO-GAPS.
AM07M-KONTIERUNG = KUNDE.
WHEN XKOSTL. "auf Kostenstelle kontiert
IF X_KONT1 IS INITIAL.
AM07M-KONTIERUNG = MSEG-KOSTL.
ELSE.
AM07M-KONTIERUNG = EKKN-KOSTL.
ENDIF.
WHEN XPROJN. "auf Projekt/Netzplan
IF X_KONT1 IS INITIAL.
IF MSEG-NPLNR IS INITIAL.
PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
ELSE.
AM07M-KONTIERUNG = MSEG-NPLNR.
PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
IF NOT N_VORNR IS INITIAL.
MOVE '/' TO AM07M-KONTIERUNG+12.
MOVE N_VORNR TO AM07M-KONTIERUNG+13.
ENDIF.
ENDIF.
ELSE.
IF EKKN-NPLNR IS INITIAL.
PERFORM PSP_CONVERT USING EKKN-PS_PSP_PNR.
ELSE.
AM07M-KONTIERUNG = EKKN-NPLNR.
PERFORM NW_VORGANG_LESEN USING EKKN-AUFPL EKKN-APLZL.
IF NOT N_VORNR IS INITIAL.
-
are parameters defined in global data in smart forms unavailable in form routines to be used
I am working on lbbil_invoice std smart form for invoices and trying to use gs_it_gen type lbbil_it_gen that is been defined in global data. Will I have to define another wa of the same type in my sub routine ?I am working on a smart form right now
I define in global data
gv_fabrictext type char64
gv_fabriccode type mara-j3afcc
then in my form routines i create a sub routine
FORM fcc_values USING gv_fabrictext.
and making computations to calculate gv_fabrictext
then i use a program code and call perform fcc_values using gv_fabrictext with gv_fabrictext as input and output parameters
Is this correct? Why do I have to define gv_fabriccode type mara-j3afcc in the form routine even though its been defined in global data -
Calling Smart Form using Driver Program
Hi, I'm a new ABAP developer. I've recently been studied about Smart Forms and I didn't understand what are the benefits to call a smart form using driver program.
Could anyone help me, please?Bruno, it works like this.
Lets says you attach a Z output to a sales order which sends the details of the SO to the customer in a PDF format. For this purpose you have developer the o/p using smartforms or scripts. Now there are few configs that you will perform in order to send the PDF to the customer AUTOMATICALLY once the SO is saved. This is done thru the transaction NACE where you will attach the smartform, the o/p, partner function and driver program.
This driver program will get kicked in when the order is saved and will perform the logic and then call the smartform.
Hope this give a little bit better picture.
Vikram.M -
Hi all,
Please clarify this query of Mine .
An e mail would be sent with a smart form as attachemnt . The sending of email has been configured through spro . But the name of the smart form goes in the subject of the email .(For example if the name of the smart form is ZTEST then the subject of the email is ZTEST . ) The requirement is that the name of the smart form should not appear in the subject of the Email . Can anyone please tell me how to achieve the above (that is, smart form name should not appear in the subject of the Email).
Regards,
VijayHi
check the links and the sample code
check...
/people/pavan.bayyapu/blog/2005/08/30/sending-html-email-from-sap-crmerp
REPORT Ztest_SEND_SMARTFORMS .
Internal Table declarations
DATA: i_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
i_tline TYPE TABLE OF tline WITH HEADER LINE,
i_receivers TYPE TABLE OF somlreci1 WITH HEADER LINE,
i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE,
Objects to send mail.
i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,
i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
Work Area declarations
wa_objhead TYPE soli_tab,
w_ctrlop TYPE ssfctrlop,
w_compop TYPE ssfcompop,
w_return TYPE ssfcrescl,
wa_doc_chng typE sodocchgi1,
w_data TYPE sodocchgi1,
wa_buffer TYPE string,"To convert from 132 to 255
Variables declarations
v_form_name TYPE rs38l_fnam,
v_len_in LIKE sood-objlen,
v_len_out LIKE sood-objlen,
v_len_outn TYPE i,
v_lines_txt TYPE i,
v_lines_bin TYPE i.
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZZZ_TEST1'
importing
fm_name = v_form_name
exceptions
no_form = 1
no_function_module = 2
others = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
w_ctrlop-getotf = 'X'.
w_ctrlop-no_dialog = 'X'.
w_compop-tdnoprev = 'X'.
CALL FUNCTION v_form_name
EXPORTING
control_parameters = w_ctrlop
output_options = w_compop
user_settings = 'X'
IMPORTING
job_output_info = w_return
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
i_otf[] = w_return-otfdata[].
call function 'CONVERT_OTF'
EXPORTING
format = 'PDF'
max_linewidth = 132
IMPORTING
bin_filesize = v_len_in
TABLES
otf = i_otf
lines = i_tline
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
others = 4.
Fehlerhandling
if sy-subrc <> 0.
endif.
loop at i_tline.
translate i_tline using '~'.
concatenate wa_buffer i_tline into wa_buffer.
endloop.
translate wa_buffer using '~'.
do.
i_record = wa_buffer.
append i_record.
shift wa_buffer left by 255 places.
if wa_buffer is initial.
exit.
endif.
enddo.
Attachment
refresh:
i_reclist,
i_objtxt,
i_objbin,
i_objpack.
clear wa_objhead.
i_objbin[] = i_record[].
Create Message Body
Title and Description
i_objtxt = 'test with pdf-Attachment!'.
append i_objtxt.
describe table i_objtxt lines v_lines_txt.
read table i_objtxt index v_lines_txt.
wa_doc_chng-obj_name = 'smartform'.
wa_doc_chng-expiry_dat = sy-datum + 10.
wa_doc_chng-obj_descr = 'smartform'.
wa_doc_chng-sensitivty = 'F'.
wa_doc_chng-doc_size = v_lines_txt * 255.
Main Text
wa_doc_chng-doc_size = ( v_lines_txt - 1 ) * 255 + strlen( i_objtxt )
clear i_objpack-transf_bin.
i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_txt.
i_objpack-doc_type = 'RAW'.
append i_objpack.
Attachment
(pdf-Attachment)
i_objpack-transf_bin = 'X'.
i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
Länge des Attachment ermitteln
describe table i_objbin lines v_lines_bin.
read table i_objbin index v_lines_bin.
i_objpack-doc_size = v_lines_bin * 255 .
i_objpack-body_num = v_lines_bin.
i_objpack-doc_type = 'PDF'.
i_objpack-obj_name = 'smart'.
i_objpack-obj_descr = 'test'.
append i_objpack.
clear i_reclist.
i_reclist-receiver = [email protected].
i_reclist-rec_type = 'U'.
append i_reclist.
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = wa_doc_chng
put_in_outbox = 'X'
TABLES
packing_list = i_objpack
object_header = wa_objhead
CONTENTS_BIN = i_objbin
contents_txt = i_objtxt
receivers = i_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.
The user is provided with
a) file name
b) email address to send mail
and it sends ANY FILE (.xls,.pdf .xyz..)
Instantaneously !
4. Make two things first :
1. Include with the name : ZAMI_INCLFOR_MAIL
2. Report with the name : ZAM_TEMP147 (any name will do)
3. Activate both and execute (2)
4. After providing filename, email adress
5. Code for Include :
Data
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.
DATA: tab_lines TYPE i,
doc_size TYPE i,
att_type LIKE soodk-objtp.
DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.
FORM
FORM ml_customize USING objname objdesc.
Clear Variables
CLEAR docdata.
REFRESH objpack.
CLEAR objpack.
REFRESH objhead.
REFRESH objtxt.
CLEAR objtxt.
REFRESH objbin.
CLEAR objbin.
REFRESH objhex.
CLEAR objhex.
REFRESH reclist.
CLEAR reclist.
REFRESH listobject.
CLEAR listobject.
CLEAR tab_lines.
CLEAR doc_size.
CLEAR att_type.
Set Variables
docdata-obj_name = objname.
docdata-obj_descr = objdesc.
ENDFORM. "ml_customize
FORM
FORM ml_addrecp USING preceiver prec_type.
CLEAR reclist.
reclist-receiver = preceiver.
reclist-rec_type = prec_type.
APPEND reclist.
ENDFORM. "ml_customize
FORM
FORM ml_addtxt USING ptxt.
CLEAR objtxt.
objtxt = ptxt.
APPEND objtxt.
ENDFORM. "ml_customize
FORM
FORM ml_prepare USING bypassmemory whatatt_type whatname.
IF bypassmemory = ''.
Fetch List From Memory
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = listobject
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'LIST_FROM_MEMORY'.
ENDIF.
CALL FUNCTION 'TABLE_COMPRESS'
IMPORTING
COMPRESSED_SIZE =
TABLES
in = listobject
out = objbin
EXCEPTIONS
OTHERS = 1
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'TABLE_COMPRESS'.
ENDIF.
ENDIF.
Header Data
Already Done Thru FM
Main Text
Already Done Thru FM
Packing Info For Text Data
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 = 'TXT'.
APPEND objpack.
Packing Info Attachment
att_type = whatatt_type..
DESCRIBE TABLE objbin LINES tab_lines.
READ TABLE objbin INDEX tab_lines.
objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = att_type.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = whatname.
APPEND objpack.
Receiver List
Already done thru fm
ENDFORM. "ml_prepare
FORM
FORM ml_dosend.
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.
ENDIF.
ENDFORM. "ml_customize
FORM
FORM ml_spooltopdf USING whatspoolid.
DATA : pdf LIKE tline OCCURS 0 WITH HEADER LINE.
Call Function
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = whatspoolid
TABLES
pdf = pdf
EXCEPTIONS
err_no_otf_spooljob = 1
OTHERS = 12.
Convert
PERFORM doconv TABLES pdf objbin.
ENDFORM. "ml_spooltopdf
FORM
FORM doconv TABLES
mypdf STRUCTURE tline
outbin STRUCTURE solisti1.
Data
DATA : pos TYPE i.
DATA : len TYPE i.
Loop And Put Data
LOOP AT mypdf.
pos = 255 - len.
IF pos > 134. "length of pdf_table
pos = 134.
ENDIF.
outbin+len = mypdf(pos).
len = len + pos.
IF len = 255. "length of out (contents_bin)
APPEND outbin.
CLEAR: outbin, len.
IF pos < 134.
outbin = mypdf+pos.
len = 134 - pos.
ENDIF.
ENDIF.
ENDLOOP.
IF len > 0.
APPEND outbin.
ENDIF.
ENDFORM. "doconv
*---- CODE FOR PROGRAM
REPORT zam_temp147 .
INCLUDE zami_inclfor_mail.
DATA
DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.
DATA : file_name TYPE string.
data : path like PCFILE-PATH.
data : extension(5) type c.
data : name(100) type c.
SELECTION SCREEN
PARAMETERS : receiver TYPE somlreci1-receiver lower case.
PARAMETERS : p_file LIKE rlgrap-filename
OBLIGATORY.
AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CLEAR p_file.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = p_file.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM ml_customize USING 'Tst' 'Testing'.
PERFORM ml_addrecp USING receiver 'U'.
PERFORM upl.
PERFORM doconv TABLES itab objbin.
PERFORM ml_prepare USING 'X' extension name.
PERFORM ml_dosend.
SUBMIT rsconn01
WITH mode EQ 'INT'
AND RETURN.
FORM
FORM upl.
file_name = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = file_name
filetype = 'BIN'
TABLES
data_tab = itab
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
path = file_name.
CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'
EXPORTING
complete_filename = path
CHECK_DOS_FORMAT =
IMPORTING
DRIVE =
EXTENSION = extension
NAME = name
NAME_WITH_EXT =
PATH =
EXCEPTIONS
INVALID_DRIVE = 1
INVALID_EXTENSION = 2
INVALID_NAME = 3
INVALID_PATH = 4
OTHERS = 5
ENDFORM. "upl
Reward points for useful Answers
Regards
Anji
Maybe you are looking for
-
Mix of Parameters & Select Options in a Selection screen in WD4A
Hi All. I just created my first selection screen in WD4A couple of days back. Now, we have to mix up some parameters and select-options just like in normal ABAP. But I could only find a way to insert a "Range" into the WD4A screens via "Create_Range_
-
Not enough memory on adobe acrobat 9 for web page capture
I use adobe acrobat 9 pro for creating a pdf with web page capture function. After a while (about more of 500 pages) the free ram became insufisant and the program stop. I am running on windows 7 with 4 Go ram. When i take a look on memory utilisatio
-
Adding Canvas3D image to a JPanel or JFrame
My team has developed a 3D game board and we want to add it to a JPanel. The test code below works fine but we want to add this to a JPanel. Can you put a Canvas3D in a JPanel? import java.applet.Applet; import java.awt.BorderLayout; import java.awt.
-
ITunes 2 double-clicks to play a song...
Since I've downloaded recent version of iTunes (10), I have to double click a song twice before it will play. One double click will only select the song, it won't start playing. It's very annoying, is this just a change to iTunes that I'm stuck with
-
Reports 2.5 / Multi Org?
A Partner asked the following question: "I have been designing custom reports for a client using Reports 2.5 which are then implemented in Oracle Financials. The client has now moved to a Multi Org environment. What do I need to do to my reports to g