QM notification RAISE_EXCEPTION error

former_member362357 · ‎12-29-2014

While notification creation I am getting a dump when I click on the save button.

The error is :

RAISE_EXCEPTION

Exception condition "OTHERS" raised.

Program SAPLIQS1

Include LIQS1F10

Row 306

Module type (FORM)

Module name MSG_STORE

In this the function module ISQ1_MSG_STORE returns sy-subrc = 4 which raises the Exception.

archanapawar · ‎12-30-2014

Contact you QM consultant for the same. Program is standard.

former_member362357 · ‎12-31-2014

method IF_EX_NOTIF_EVENT_SAVE~CHANGE_DATA_AT_SAVE.

IF SY-TCODE = 'QM01' OR SY-TCODE = 'QM02' OR SY-TCODE = 'QE01'.

DATA : MATTEXT TYPE MAKTX,

CHALLAN TYPE XBLNR,

NAME1 TYPE NAME1_GP,

NAME3 TYPE NAME3_GP,

ORT01 TYPE ORT01_GP,

PSTLZ TYPE PSTLZ,

STRAS TYPE STRAS_GP,

SNO(5) TYPE C,

G_ANZAHL TYPE I.

DATA : TABLE1 TYPE STANDARD TABLE OF TAB_WQMFE,

WA1 TYPE WQMFE,

WA2 TYPE WQMFE.

DATA : I_FINAL TYPE STANDARD TABLE OF WQMFE.

DATA : W_FINAL TYPE WQMFE.

DATA : ITAB_QALS TYPE STANDARD TABLE OF QALS,

WA_QALS TYPE QALS.

DATA : IT_QASE TYPE STANDARD TABLE OF QASE,

WA_QASE TYPE QASE.

DATA : W_QAMV TYPE QAMV.

DATA : TOLERAN TYPE CHAR20.

DATA : TOLEZUB TYPE CHAR20.

DATA : WA_LFA1 TYPE LFA1.

DATA : WA_QAVE TYPE QAVE.

DATA : WA_QPCT TYPE QPCT.

DATA: OUTPUT type ssfcompop.

DATA: CONTROL type SSFCTRLOP.

DATA : v_form_name TYPE rs38l_fnam.

DATA : st_document_output_info TYPE ssfcrespd.

DATA : DECISION TYPE CHAR50.

DATA : JOB_OUTPUT_INFO type ssfcrescl.

DATA : JOB_OUTPUT_OPTIONS type SSFCRESOP.

DATA : v_bin_filesize TYPE i.

DATA : it_otf TYPE STANDARD TABLE OF itcoo,

it_docs TYPE STANDARD TABLE OF docs,

it_lines TYPE STANDARD TABLE OF tline.

DATA : WA_LINES TYPE TLINE.

DATA : bin_filesize TYPE i.

DATA : i_tline TYPE TABLE OF tline.

DATA : P_MAIL type string.

DATA : ITAB_QAMKR TYPE STANDARD TABLE OF QAMKR.

DATA : WA_QAMKR TYPE QAMKR.

DATA : MGEIN TYPE MGEIN.

DATA : W_SENT_ALL(1) TYPE C.

data : dec2 type p decimals 2.

data : adrnr1 type string.

DATA: T_PACKING_LIST TYPE TABLE OF SOPCKLSTI1,

LD_ATTFILENAME TYPE SO_OBJ_DES.

DATA: IT_MESS_ATT TYPE TABLE OF SOLISTI1,

T_ATTACHMENT TYPE TABLE OF SOLISTI1.

DATA : W_ATT2 TYPE SOLISTI1.

DATA : T_RECEIVERS TYPE TABLE OF SOMLRECI1,

IT_MESS TYPE STRING,

W_DOC_DATA TYPE SODOCCHGI1,

W_CNT TYPE I.

DATA: TB_PDF255 TYPE SO_TEXT255 ,

GD_SUBJECT TYPE SODOCCHGI1-OBJ_DESCR.

DATA :T_BUFFER TYPE STRING.

DATA: T_OTFDATA TYPE SSFCRESCL.

DATA: T_OTF TYPE ITCOO ,

GD_BUFFER TYPE STRING,

time1(8),

subdat(10),

currdate(10),

IT_MESS_BOD TYPE TABLE OF SOLISTI1 .

DATA : CUST_MAIL TYPE STRING.

DATA : CC_MAIL TYPE STRING.

DATA : CC_MAIL2 TYPE STRING.

DATA : CC_MAIL3 TYPE STRING.

DATA : W_PACKING_LIST TYPE SOPCKLSTI1.

DATA : W_MESS_ATT TYPE SOLISTI1.

DATA : W_ATTACHMENT TYPE SOLISTI1.

DATA : W_RECEIVERS TYPE SOMLRECI1.

DATA : W_MESS_BOD TYPE SOLISTI1.

data : obid type SOFOLENTI1-OBJECT_ID.

DATA : M_NO TYPE string,

OBJECT_TYP TYPE STRING,

OBJECT_YEAR(2),

OBJECT_ID TYPE STRING,

FLAG,

lcam type string.

DATA : SOST TYPE STANDARD TABLE OF SOST, WA_SOST TYPE SOST.

DATA : ADRNR TYPE KNA1-ADRNR.

DATA : PERSNO TYPE USR21-PERSNUMBER.

DATA : ADRNR2 TYPE KNA1-ADRNR.

DATA : FULL_PATH TYPE STRING.

DATA : file_size TYPE i.

DATA : REMARKS TYPE STRING.

DATA : CHAR_REQUIREMENTS TYPE STANDARD TABLE OF BAPI2045D1,

WA_REQUIREMENTS TYPE BAPI2045D1.

DATA : CHAR_RESULTS TYPE STANDARD TABLE OF BAPI2045D2,

WA_CRESULTS TYPE BAPI2045D2.

DATA : SINGLE_RESULTS TYPE STANDARD TABLE OF BAPI2045D4,

WA_SRESULTS TYPE BAPI2045D4.

DATA : QM_LINES TYPE TABLE OF TLINE,

WAQM_LN TYPE TLINE.

DATA : QMNUM TYPE THEAD-TDNAME.

DATA : P_SENDER TYPE SOMLRECI1-RECEIVER VALUE 'd.raval@texspin.com'.

DATA : LOG1 TYPE STANDARD TABLE OF ZLOG, WA_LOG1 TYPE ZLOG.

DATA : GT_PDF TYPE TABLE OF SOLISTI1.

data: LT_CONTENTS_BIN TYPE TABLE OF SOLISTI1.

DATA : v_lines_txt TYPE I.

*---------------------------------------------------------------------------------------------------------------------------------------------------------

**********************************************************************************************************************************************************

CLEAR SNO.

SELECT SINGLE MAKTX FROM MAKT INTO MATTEXT WHERE MATNR = CS_VIQMEL-MATNR.

SELECT SINGLE XBLNR FROM MKPF INTO CHALLAN WHERE MBLNR = CS_VIQMEL-MBLNR.

SELECT SINGLE NAME1 NAME3 ORT01 PSTLZ STRAS FROM LFA1 INTO (NAME1,NAME3,ORT01,PSTLZ,STRAS) WHERE LIFNR = CS_VIQMEL-LIFNUM.

SELECT * FROM QASE INTO TABLE IT_QASE WHERE PRUEFLOS = CS_VIQMEL-PRUEFLOS AND MBEWERTG = 'R'. """ Inspection Lot Characteristics Results for Sample

"Fetch customer Data

SELECT SINGLE * FROM LFA1 INTO WA_LFA1 WHERE LIFNR = CS_VIQMEL-LIFNUM.

" Fetch Decision Data

SELECT SINGLE * FROM QAVE INTO WA_QAVE WHERE PRUEFLOS = CS_VIQMEL-PRUEFLOS.

IF SY-SUBRC = 0.

SELECT SINGLE * FROM QPCT INTO WA_QPCT WHERE CODE = WA_QAVE-VCODE

AND SPRACHE = 'EN'.

ENDIF.

CS_VIQMEL-RGMNG = CS_VIQMEL-BZMNG - CS_VIQMEL-RKMNG.

MGEIN = CS_VIQMEL-MGEIN.

IF NOT WA_QPCT-KURZTEXT IS INITIAL.

CONCATENATE WA_QPCT-CODE WA_QPCT-KURZTEXT INTO DECISION separated by space.

ENDIF.

QMNUM = CS_VIQMEL-QMNUM.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = 'LTQM'

LANGUAGE = SY-LANGU

NAME = QMNUM

OBJECT = 'QMEL'

* ARCHIVE_HANDLE = 0

* LOCAL_CAT = ' '

* IMPORTING

* HEADER =

* OLD_LINE_COUNTER =

TABLES

LINES = QM_LINES

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8

.

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT QM_LINES INTO WAQM_LN.

CONCATENATE REMARKS WAQM_LN-TDLINE INTO REMARKS.

ENDLOOP.

CALL FUNCTION 'BAPI_INSPOPER_GETDETAIL'

EXPORTING

INSPLOT = CS_VIQMEL-PRUEFLOS

INSPOPER = '0010'

* READ_INSPPOINTS = ' '

READ_CHAR_REQUIREMENTS = 'X'

READ_CHAR_RESULTS = 'X'

* READ_SAMPLE_RESULTS = ' '

READ_SINGLE_RESULTS = 'X'

* READ_CHARS_WITH_CLASSES = ' '

* READ_CHARS_WITHOUT_RECORDING = ' '

* RES_ORG = ' '

* CHAR_FILTER_NO = '1 '

* CHAR_FILTER_TCODE = 'QE11'

* MAX_INSPPOINTS = 100

* INSPPOINT_FROM = 0

* HANDHELD_APPLICATION = ' '

* IMPORTING

* OPERATION =

* INSPPOINT_REQUIREMENTS =

* RETURN =

TABLES

* INSPPOINTS =

CHAR_REQUIREMENTS = CHAR_REQUIREMENTS

CHAR_RESULTS = CHAR_RESULTS

* SAMPLE_RESULTS =

SINGLE_RESULTS = SINGLE_RESULTS

.

DESCRIBE TABLE CT_IWQMFE LINES G_ANZAHL.

IF G_ANZAHL GT 0.

LOOP AT CT_IWQMFE INTO WA1 WHERE KZLOESCH = SPACE.

MOVE-CORRESPONDING WA1 TO WA2.

* IF SY-TABIX > 1.

** PERFORM SKIP_AUSFUEHREN.

* ENDIF.

CALL FUNCTION 'QPK1_CODE_TEXT'

EXPORTING

I_KATALOGART = IS_TQ80-FEKAT

I_CODEGRUPPE = WA2-FEGRP

I_CODE = WA2-FECOD

I_SPRACHE = SY-LANGU

IMPORTING

E_TEXT = WA2-TXTCDGR

* E_GROUPTEXT =

EXCEPTIONS

NO_MATCH_IN_RANGE = 1

OTHERS = 2

.

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 WA2-MERKNR IS NOT INITIAL.

SNO = SNO + 1.

W_FINAL-FENUM = SNO. " Serial number

W_FINAL-TXTCD = WA2-TXTCD. " Name of defects

READ TABLE CHAR_REQUIREMENTS INTO WA_REQUIREMENTS WITH KEY INSPOPER = '0010'

INSPCHAR = WA2-MERKNR.

CONCATENATE WA_REQUIREMENTS-CHAR_DESCR W_FINAL-TXTCD INTO W_FINAL-TXTCDGROT separated by '/'.

CONDENSE : WA_REQUIREMENTS-LW_TOL_LMT, WA_REQUIREMENTS-UP_TOL_LMT.

CONCATENATE WA_REQUIREMENTS-LW_TOL_LMT WA_REQUIREMENTS-UP_TOL_LMT INTO W_FINAL-EBORT separated by '-'. " Specs of characteristics

*CLEAR WA_REQUIREMENTS.

READ TABLE CHAR_RESULTS INTO WA_CRESULTS WITH KEY INSPOPER = '0010'

INSPCHAR = WA2-MERKNR.

W_FINAL-FETXT = WA_CRESULTS-MEAN_VALUE. " Result for characteristics

W_FINAL-ANZFEHLER = WA2-ANZFEHLER. " Number of defects

APPEND W_FINAL TO I_FINAL.

CLEAR : W_FINAL, WA_REQUIREMENTS.

ELSE.

SNO = SNO + 1.

W_FINAL-FENUM = SNO.

W_FINAL-TXTCDGROT = WA2-TXTCD.

* WA-FETXT = WQMFE-FETXT.

W_FINAL-ANZFEHLER = WA2-ANZFEHLER.

APPEND W_FINAL TO I_FINAL.

CLEAR W_FINAL.

ENDIF.

ENDLOOP.

ENDIF.

output-tddest = 'LP01'. "Spool: Output device

output-tdimmed = 'X'. "Print Immediately

output-tddelete = space. "Delete After Printing

output-tdnewid = 'X'. "New Spool Request

control-device = 'PRINTER'.

control-GETOTF = 'X'.

control-no_dialog = 'X'.

control-langu = sy-langu.

control-preview = 'X'.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' "commented by gaurav

EXPORTING

FORMNAME = 'ZNOTIF_EMAIL'

* VARIANT = ' '

* DIRECT_CALL = ' '

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.

SELECT SINGLE * FROM QALS INTO WA_QALS WHERE PRUEFLOS = CS_VIQMEL-PRUEFLOS.

CALL FUNCTION v_form_name "Commented by gaurav

EXPORTING

CONTROL_PARAMETERS = CONTROL

output_options = OUTPUT

SUP_CODE = CS_VIQMEL-LIFNUM

NAME1 = WA_LFA1-NAME1"

NAME3 = WA_LFA1-NAME3

ORT01 = WA_LFA1-ORT01

STRAS = WA_LFA1-STRAS

PSTLZ = WA_LFA1-PSTLZ

QMNUM = CS_VIQMEL-QMNUM

ERDAT = CS_VIQMEL-ERDAT

MATNR = CS_VIQMEL-MATNR

MATTEXT = MATTEXT

CHALLAN = CHALLAN

GRRNO = CS_VIQMEL-MBLNR

INSLOT = CS_VIQMEL-PRUEFLOS

DECISION = DECISION

RECIEVED = CS_VIQMEL-BZMNG

ACCEPTED = CS_VIQMEL-RGMNG

REJECTED = CS_VIQMEL-RKMNG

MGEIN = MGEIN

REMARKS = REMARKS

USER_SETTINGS = ' '

IMPORTING

DOCUMENT_OUTPUT_INFO = st_document_output_info

JOB_OUTPUT_INFO = JOB_OUTPUT_INFO

JOB_OUTPUT_OPTIONS = JOB_OUTPUT_OPTIONS

TABLES

I_FINAL = I_FINAL

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.

*ELSEIF SY-SUBRC = 0.

* SUPP = 2.

ENDIF.

IT_OTF[] = JOB_OUTPUT_INFO-otfdata[].

data : pdf_bin TYPE xstring ,

pdf_content TYPE solix_tab .

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

format = 'PDF'

max_linewidth = 132

IMPORTING

bin_filesize = BIN_filesize

bin_file = pdf_bin

TABLES

otf = IT_otf

lines = it_lines

EXCEPTIONS

err_max_linewidth = 1

err_format = 2

err_conv_not_possible = 3

OTHERS = 4.

pdf_content = cl_document_bcs=>xstring_to_solix( pdf_bin ).

DATA : WA_BUFFER TYPE STRING.

LOOP AT IT_LINES INTO WA_LINES.

TRANSLATE WA_LINES USING '~'.

CONCATENATE WA_BUFFER WA_LINES INTO WA_BUFFER.

ENDLOOP.

TRANSLATE WA_BUFFER USING '~'.

DO.

W_ATTACHMENT = WA_BUFFER.

APPEND W_ATTACHMENT TO LT_CONTENTS_BIN.

CLEAR W_ATTACHMENT.

SHIFT WA_BUFFER LEFT BY 255 PLACES.

IF WA_BUFFER IS INITIAL.

EXIT.

ENDIF.

ENDDO. "" commented conversion of file to binary.

W_MESS_BOD = 'Dear Sir,'.