Subject: SMARTFORM : QM MODULE : PLZ HELP
hi,
here my task that, this is INCOMING INSPECTION LOT .
by giving inspection lot no. in selection screen i have to display any two tests i.e like chemical analysis ,metalargical anyalysis.for this i have one program which display only one test but i have to display two test.plz tell me how database tables flow is thier.plz tell me its urgent. i am sending prg which display one test below
TABLES: plmk,qamr.
*****Internal Table Declaration*****
********Header Table********
DATA : BEGIN OF itab_qals OCCURS 0,
merknr LIKE qamr-merknr,
END OF itab_qals.
DATA : BEGIN OF itab_qals1 OCCURS 0 ,
prueflos LIKE qals-prueflos,
paendterm LIKE qals-paendterm,
ematnr LIKE qals-ematnr,
matnr LIKE qals-matnr,
kunnr LIKE qals-kunnr,
plnnr LIKE qals-plnnr,
plnal LIKE qals-plnal,
werk LIKE qals-werk,
zaehl LIKE qals-zaehl,
END OF itab_qals1.
DATA : BEGIN OF itab_qals3 OCCURS 0,
merknr LIKE qamr-merknr,
kurztext LIKE plmk-kurztext,
sollwert LIKE plmk-sollwert,
toleranzob LIKE plmk-toleranzob,
toleranzun LIKE plmk-toleranzun,
END OF itab_qals3.
DATA : BEGIN OF itab_plmk OCCURS 0,
serno TYPE f,
prueflos LIKE qals-prueflos,
kurztext LIKE plmk-kurztext,
sollwert LIKE plmk-sollwert,
toleranzob LIKE plmk-toleranzob,
toleranzun LIKE plmk-toleranzun,
END OF itab_plmk.
*DATA : BEGIN OF itab_final OCCURS 0,
serno type i,
merknr LIKE qamr-merknr,
kurztext LIKE plmk-kurztext,
sollwert type CHA_CLASS_VIEW-SOLLWERT, " LIKE plmk-sollwert,
toleranzob type CHA_CLASS_VIEW-SOLLWERT,"LIKE plmk-toleranzob,
toleranzun type CHA_CLASS_VIEW-SOLLWERT,"LIKE plmk-toleranzun,
messwert1 type CHA_CLASS_VIEW-SOLLWERT," LIKE qase-messwert,
messwert2 type CHA_CLASS_VIEW-SOLLWERT," LIKE qase-messwert,
messwert3 type CHA_CLASS_VIEW-SOLLWERT," LIKE qase-messwert,
messwert4 type CHA_CLASS_VIEW-SOLLWERT,"LIKE qase-messwert,
messwert5 type CHA_CLASS_VIEW-SOLLWERT," LIKE qase-messwert,
messwert6 type CHA_CLASS_VIEW-SOLLWERT," LIKE qase-messwert,
messwert7 type CHA_CLASS_VIEW-SOLLWERT," LIKE qase-messwert,
messwert8 type CHA_CLASS_VIEW-SOLLWERT,"LIKE qase-messwert,
messwert9 type CHA_CLASS_VIEW-SOLLWERT,"LIKE qase-messwert,
messwert10 type CHA_CLASS_VIEW-SOLLWERT,"LIKE qase-messwert,
END OF itab_final.
DATA : itab_final TYPE zqmitem OCCURS 0 WITH HEADER LINE,
p_form TYPE tdsfname VALUE 'Z_PRED_INSP_SF_NS_3',
fm_name TYPE rs38l_fnam.
DATA : begin of itab_header OCCURS 0 .
include structure zqmheader1 .
*DATA : drwno LIKE MARA-ZEINR,
MATNO LIKE mara-MATNR,
REVNO LIKE MARA-AESZN.
DATA END OF ITAB_HEADER.
DATA : drwno LIKE MARA-ZEINR,
MATNO LIKE mara-MATNR,
REVNO LIKE MARA-AESZN.
DATA : BEGIN OF itab_qamr OCCURS 0,
prueflos LIKE qamr-prueflos,
merknr LIKE qamr-merknr ,
END OF itab_qamr.
DATA : BEGIN OF itab_qase OCCURS 0,
prueflos LIKE qase-prueflos,
merknr LIKE qase-merknr,
messwert LIKE qase-messwert,
vorglfnr LIKE qase-vorglfnr,
detailerg LIKE qase-detailerg,
gruppe1 LIKE qase-gruppe1,
code1 LIKE qase-code1,
END OF itab_qase.
DATA : matdes LIKE makt-maktx.
DATA : oldmat LIKE mara-bismt.
DATA : chlndate LIKE j_1iexchdr-exdat.
DATA : custo LIKE j_1iexchdr-kunag.
DATA : itab_ddshretval TYPE ddshretval OCCURS 0 WITH HEADER LINE.
DATA : custname(40).
DATA : varmenge LIKE j_1iexcdtl-menge.
DATA : varmeins LIKE j_1iexcdtl-meins.
DATA : varmenge1 TYPE i.
DATA : varmeins1(3).
data : text(40) type c.
DATA : grp(3).
data : no_of_record type i .
DATA : plant(10).
SELECTION-SCREEN BEGIN OF BLOCK b0 WITH FRAME TITLE text-000.
PARAMETERS : insplot LIKE qals-prueflos OBLIGATORY.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-005.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: r_ap1 RADIOBUTTON GROUP grp1 DEFAULT 'X'.
SELECTION-SCREEN COMMENT (15) text-002 FOR FIELD r_ap1.
PARAMETERS : challan LIKE j_1iexchdr-exnum.
PARAMETERS: r_ap2 RADIOBUTTON GROUP grp1.
SELECTION-SCREEN COMMENT (15) text-004 FOR FIELD r_ap2.
PARAMETERS : billing LIKE vbrk-vbeln.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK 1.
*SELECTION-SCREEN SKIP 1.
*SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-003.
*SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN POSITION 01.
*PARAMETERS: R_AP2 RADIOBUTTON GROUP GRP1.
**SELECTION-SCREEN COMMENT (15) TEXT-002 for field r_ap2.
*PARAMETERS : billing LIKE vbrk-vbeln.
*SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN END OF BLOCK 2.
*PARAMETERS : challan LIKE j_1iexchdr-exnum , billing LIKE vbrk-vbeln.
PARAMETERS : date LIKE j_1iexchdr-rtdat DEFAULT sy-datum.
PARAMETERS : raw_sup(30).
PARAMETERS : heat_no(30).
*PARAMETERS : matspec(30).
*PARAMETERS : drawing(30).
**PARAMETERS : modstat(30).
**PARAMETERS : prodbtno(30).
SELECTION-SCREEN END OF BLOCK b0.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR challan.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'J_1IEXCDTL'
fieldname = 'EXNUM'
searchhelp = 'ZCHALLAN'
TABLES
return_tab = itab_ddshretval.
READ TABLE itab_ddshretval INDEX 1.
IF sy-subrc = 0 .
challan = itab_ddshretval-fieldval .
ENDIF.
CLEAR : itab_ddshretval.
REFRESH : itab_ddshretval.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR billing.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'VBRK'
fieldname = 'VBELN'
searchhelp = 'ZBILLING'
TABLES
return_tab = itab_ddshretval.
READ TABLE itab_ddshretval INDEX 1.
IF sy-subrc = 0 .
billing = itab_ddshretval-fieldval .
ENDIF.
START-OF-SELECTION.
SELECT SINGLE prueflos paendterm ematnr matnr kunnr
plnnr plnal werk zaehl FROM qals INTO CORRESPONDING FIELDS OF itab_qals1
WHERE prueflos = insplot ."AND paendterm = date.
IF sy-subrc = 0.
APPEND itab_qals1.
ENDIF.
*data : begin of it_text_op occurs 0.
*data : ltxa1 like plpo-ltxa1.
*data : end of it_text_op.
data : it_text_op type plpo occurs 0 with header line.
select ltxa1 from plpo into corresponding fields of table it_text_op
where plnnr = itab_qals1-plnnr and plnty eq 'Q'.
*select ltxa1 from plpo into text
*where plnnr = itab_qals1-plnnr and plnty eq 'Q'.
*endselect.
*itab_header-ltxa1 = text.
no_of_record = sy-dbcnt.
DO 2 TIMES .
SELECT SINGLE name2 FROM t001w INTO plant WHERE werks = itab_qals1-werk.
*SELECT SINGLE bismt INTO oldmat FROM mara WHERE matnr = itab_qals1-matnr.
*itab_header-matnr = oldmat.
ITAB_HEADER-MATNR = ITAB_QALS1-MATNR.
SELECT maktx FROM makt INTO matdes WHERE matnr = itab_qals1-matnr.
ENDSELECT.
itab_header-maktx = matdes.
*itab_header-matspec = matspec.
*itab_header-drawing = drawing.
*itab_header-modstat = modstat.
For excisable material
IF r_ap1 = 'X'.
itab_header-challan = challan.
SELECT SINGLE exdat FROM j_1iexcdtl INTO chlndate WHERE exnum = challan AND exyear = sy-datum(4) AND matnr = itab_qals1-matnr.
SELECT SINGLE exgrp FROM j_1iexcdtl INTO grp WHERE exnum = challan AND exyear = sy-datum(4) AND matnr = itab_qals1-matnr.
SELECT SINGLE kunag FROM j_1iexchdr INTO custo WHERE exnum = challan AND exyear = sy-datum(4) AND exgrp = grp.
SELECT SINGLE menge FROM j_1iexcdtl INTO varmenge WHERE exnum = challan AND exyear = sy-datum(4) AND matnr = itab_qals1-matnr.
SELECT SINGLE meins FROM j_1iexcdtl INTO varmeins WHERE exnum = challan AND exyear = sy-datum(4) AND matnr = itab_qals1-matnr.
SELECT SINGLE name1 FROM kna1 INTO custname WHERE kunnr = custo.
itab_header-kunnr = custname.
varmenge1 = varmenge.
IF varmenge1 = 0.
itab_header-quantity = ''.
ELSE.
itab_header-quantity = varmenge1.
ENDIF.
itab_header-exdat = chlndate.
For non-excisable material
ELSE.
itab_header-challan = billing.
SELECT SINGLE audat FROM vbrp INTO chlndate WHERE vbeln = billing AND matnr = itab_qals1-matnr.
IF sy-subrc = 0.
SELECT SINGLE kunag FROM vbrk INTO custo WHERE vbeln = billing.
SELECT name1 FROM kna1 INTO custname WHERE kunnr = custo.
ENDSELECT.
ENDIF.
itab_header-kunnr = custname.
itab_header-exdat = chlndate.
SELECT SINGLE fkimg FROM vbrp INTO varmenge WHERE vbeln = billing AND matnr = itab_qals1-matnr.
SELECT SINGLE vrkme FROM vbrp INTO varmeins WHERE vbeln = billing AND matnr = itab_qals1-matnr.
varmenge1 = varmenge.
IF varmenge1 = 0.
itab_header-quantity = ''.
ELSE.
itab_header-quantity = varmenge1.
ENDIF.
itab_header-exdat = chlndate.
ENDIF.
select zeinr from mara into drwno
where matnr = itab_qals1-matnr.
ENDSELECT.
select matnr from mara into matno
where matnr = itab_qals1-matnr.
ENDSELECT.
select aeszn from mara into revno
where matnr = itab_qals1-matnr.
ENDSELECT.
itab_header-drwno = drwno.
itab_header-matno = matno.
itab_header-revno = revno.
itab_header-inspdate = date.
itab_header-raw_sup = raw_sup.
itab_header-heat_no = heat_no.
*itab_header-prodbtno = prodbtno.
APPEND itab_header.
data : count_it_qals type i ,
incr type i,
zero(7) type c value '0000000',
remains type i .
SELECT merknr
INTO CORRESPONDING FIELDS OF TABLE itab_qals
FROM qamr
WHERE prueflos = itab_qals1-prueflos.
count_it_qals = sy-dbcnt.
data : temp type i.
data : var1(16) type c ,
inte type i.
data : kurz like plmk-kurztext.
*data : begin of kurz occurs 0.
*data : kurztext like plmk-kurztext.
*data : end of kurz.
var1 = '00000001'.
LOOP AT itab_qals1.
LOOP AT itab_qals.
if itab_qals-merknr eq '0010' and temp > 1 and var1 LE no_of_record.
var1 = var1 + 1.
condense var1 no-gaps.
concatenate zero var1 into var1.
condense var1 no-gaps.
SELECT kurztext FROM plmk into kurz
WHERE plnty = 'Q' AND plnnr = itab_qals1-plnnr AND plnkn = var1 .
endselect.
remains = sy-dbcnt.
inte = count_it_qals - incr.
if not inte eq remains.
exit.
endif.
endif.
SELECT kurztext sollwert toleranzob toleranzun FROM plmk INTO CORRESPONDING FIELDS OF TABLE itab_plmk
WHERE plnty = 'Q' AND plnnr = itab_qals1-plnnr AND plnkn = var1 AND merknr = itab_qals-merknr.
itab_qals3-merknr = itab_qals-merknr.
READ TABLE itab_plmk.
itab_qals3-kurztext = itab_plmk-kurztext.
itab_qals3-sollwert = itab_plmk-sollwert .
itab_qals3-toleranzob = itab_plmk-toleranzob.
itab_qals3-toleranzun = itab_plmk-toleranzun.
incr = incr + 1.
IF sy-subrc = 0.
APPEND itab_qals3.
ENDIF.
CLEAR itab_plmk.
REFRESH itab_plmk.
temp = temp + 1.
ENDLOOP.
ENDLOOP.
SELECT prueflos merknr messwert vorglfnr detailerg gruppe1 code1 FROM qase INTO CORRESPONDING FIELDS OF TABLE itab_qase
FOR ALL ENTRIES IN itab_qals1 WHERE prueflos = itab_qals1-prueflos.
DATA: count TYPE i.
DATA: count1 TYPE i.
CLEAR count.
CLEAR count1.
LOOP AT itab_qals3.
READ TABLE itab_qase WITH KEY merknr = itab_qals3-merknr.
itab_final-merknr = itab_qals3-merknr.
itab_final-kurztext = itab_qals3-kurztext.
DATA : swap TYPE cha_class_view-sollwert.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qals3-sollwert
IMPORTING
e_char_field = swap.
itab_final-sollwert = itab_qals3-sollwert .
IF itab_qase-gruppe1 = ''.
itab_final-sollwert = swap .
CONDENSE itab_final-sollwert.
ELSE.
itab_final-sollwert = 'N.A.' .
ENDIF.
CLEAR swap.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qals3-toleranzob
IMPORTING
e_char_field = swap.
itab_final-toleranzob = itab_qals3-toleranzob.
IF itab_qase-gruppe1 = ''.
itab_final-toleranzob = swap .
CONDENSE itab_final-toleranzob.
ELSE.
itab_final-toleranzob = 'N.A.'.
ENDIF.
CLEAR swap.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qals3-toleranzun
IMPORTING
e_char_field = swap.
itab_final-toleranzun = itab_qals3-toleranzun.
IF itab_qase-gruppe1 = ''.
itab_final-toleranzun = swap .
CONDENSE itab_final-toleranzun.
ELSE.
itab_final-toleranzun = 'N.A.'.
ENDIF.
CLEAR swap.
count1 = count1 + 1.
itab_final-serno = count1.
DATA : var LIKE qpct-kurztext.
LOOP AT itab_qase WHERE merknr = itab_qals3-merknr.
count = count + 1.
CASE count.
WHEN 1.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
itab_final-messwert1 = itab_qase-messwert.
IF itab_qase-gruppe1 = ''.
itab_final-messwert1 = swap.
CONDENSE itab_final-messwert1.
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert1 = var.
CONDENSE itab_final-messwert1.
ENDIF.
CLEAR swap.
WHEN 2.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
itab_final-messwert2 = itab_qase-messwert.
IF itab_qase-gruppe1 = ''.
itab_final-messwert2 = swap.
CONDENSE itab_final-messwert2.
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert2 = var.
CONDENSE itab_final-messwert2.
ENDIF.
CLEAR swap.
WHEN 3.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert3 = swap.
CONDEnSE itab_final-messwert3.
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert3 = var.
CONDENSE itab_final-messwert3.
ENDIF.
CLEAR swap.
WHEN 4.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert4 = swap.
CONDENSE itab_final-messwert4.
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert4 = var.
CONDENSE itab_final-messwert4.
ENDIF.
CLEAR swap.
WHEN 5.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert5 = swap.
CONDENSE itab_final-messwert5.
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert5 = var.
CONDENSE itab_final-messwert5.
ENDIF.
CLEAR swap.
WHEN 6.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert6 = swap.
CONDENSE itab_final-messwert6.
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert6 = var.
CONDENSE itab_final-messwert6.
ENDIF.
CLEAR swap.
WHEN 7.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert7 = swap.
CONDENSE itab_final-messwert7.
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert7 = var.
CONDENSE itab_final-messwert2.
ENDIF.
CLEAR swap.
WHEN 8.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert8 = swap.
CONDENSE itab_final-messwert8 .
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert8 = var.
CONDENSE itab_final-messwert8 .
ENDIF.
CLEAR swap.
WHEN 9.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert9 = swap.
CONDENSE itab_final-messwert9 .
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert9 = var.
CONDENSE itab_final-messwert9 .
ENDIF.
CLEAR swap.
WHEN 10.
CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION'
EXPORTING
i_number_of_digits = 2
i_fltp_value = itab_qase-messwert
IMPORTING
e_char_field = swap.
IF itab_qase-gruppe1 = ''.
itab_final-messwert10 = swap.
CONDENSE itab_final-messwert10 .
ELSE.
SELECT SINGLE kurztext FROM qpct INTO var WHERE codegruppe = itab_qase-gruppe1 AND code = itab_qase-code1.
itab_final-messwert10 = var.
CONDENSE itab_final-messwert10 .
ENDIF.
CLEAR swap.
ENDCASE.
ENDLOOP.
APPEND itab_final.
CLEAR itab_final.
CLEAR count.
ENDLOOP.
data : serno type i,
COUNTER TYPE I,
counter1 type i,
flag(1) type c .
loop at it_text_op.
counter = 0.
flag = 'N'.
loop at itab_final.
if itab_final-merknr eq '0010' and counter1 eq 0.
if flag = 'Y'.
IF counter eq 0.
serno = itab_final-serno.
counter = counter + 1.
endif.
else.
flag = 'Y'.
itab_final-serno = ' '.
itab_final-kurztext = it_text_op-ltxa1.
itab_final-sollwert = ' '.
itab_final-toleranzob = ' '.
itab_final-toleranzun = ' '.
itab_final-messwert1 = ' '.
itab_final-messwert2 = ' '.
itab_final-messwert3 = ' '.
itab_final-messwert4 = ' '.
itab_final-messwert5 = ' '.
itab_final-messwert6 = ' '.
itab_final-messwert7 = ' '.
itab_final-messwert8 = ' '.
itab_final-messwert9 = ' '.
itab_final-messwert10 = ' '.
itab_final-remark = ' '.
itab_final-merknr = ' '.
insert itab_final .
endif.
else.
if itab_final-merknr eq '0010' .
if flag = 'Y'.
IF counter eq 0.
serno = itab_final-serno.
counter = counter + 1.
endif.
elseif itab_final-serno eq serno.
flag = 'Y'.
itab_final-serno = ' '.
itab_final-kurztext = it_text_op-ltxa1.
itab_final-sollwert = ' '.
itab_final-toleranzob = ' '.
itab_final-toleranzun = ' '.
itab_final-messwert1 = ' '.
itab_final-messwert2 = ' '.
itab_final-messwert3 = ' '.
itab_final-messwert4 = ' '.
itab_final-messwert5 = ' '.
itab_final-messwert6 = ' '.
itab_final-messwert7 = ' '.
itab_final-messwert8 = ' '.
itab_final-messwert9 = ' '.
itab_final-messwert10 = ' '.
itab_final-remark = ' '.
itab_final-merknr = ' '.
insert itab_final .
endif.
endif.
endif.
endloop.
counter1 = counter1 + 1.
endloop.
ENDDO.
PERFORM print.
*& Form print
text
FORM print.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = p_form
IMPORTING
fm_name = fm_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.
CALL FUNCTION fm_name
EXPORTING
plant = plant
TABLES
itab_final = itab_final
itab_header = itab_header
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.
ENDFORM. "print.
structures used by this program.
Zqmitem structure
SERNO CHAR 4 0 Serial no
KURZTEXT QTXT_CHA CHAR 40 0 Short Text for Inspection Characteristic
SOLLWERT QSOLLWERTC CHAR 16 0 Target Value for a Quantitative Characteristic
TOLERANZOB QSOLLWERTC CHAR 16 0 Target Value for a Quantitative Characteristic
TOLERANZUN QSOLLWERTC CHAR 16 0 Target Value for a Quantitative Characteristic
MESSWERT1 CHAR 30 0
MESSWERT2 CHAR 30 0
MESSWERT3 CHAR 30 0
MESSWERT4 CHAR 30 0
MESSWERT5 CHAR 30 0
MESSWERT6 CHAR 30 0
MESSWERT7 CHAR 30 0
MESSWERT8 CHAR 30 0
MESSWERT9 CHAR 30 0
MESSWERT10 CHAR 30 0
REMARK CHAR 2 0 Remarks
MERKNR QMERKNRP NUMC 4 0 Inspection Characteristic Number
zqmheader structure
KUNNR CHAR 40 0 Customer name
MATNR MATNR CHAR 18 0 Material Number
MAKTX MAKTX CHAR 40 0 Material Description (Short Text)
MATSPEC CHAR 30 0 Material Specs
DRAWING CHAR 30 0 Drawing No
MODSTAT CHAR 30 0 Mod Status
CHALLAN CHAR 25 0 Challan No
PRODBTNO CHAR 12 0 Producion Batch No
EXDAT J_1IEXCDAT DATS 8 0 Excise Document Date
QUANTITY CHAR 3 0 Challan Quantity
INSPDATE DATS 8 0 Inspection Plan Date
I attached smartform in NACE to LQCB output type but i should also make changes in report program RQCAAP01..can u please let me know what customizations i should do in tht report program to attach the smartform..
Similar Messages
-
Error while opening a module. plz help me, very urgent.
when i try to open a module, the following error message appears on my screen.
" no j2ee component found in d:\krisp\programs\servlets".
i've installed bea in c: drive and my servlet program is in d: drive.
plz help me, it's very urgent.Can you provide some more information? What were you doing when this happened?
Can you post the entire error message?
-- Rob
WLS Blog http://dev2dev.bea.com/blog/rwoollen/ -
Smartform issue. Plz help.
Hi there,
I have a smartform developed in Development server at offshore. On executing it there, it works fine and gives a decent output. But, when I am testing the same from onsite it displays junk.
Is it due to different local printer config or something? Please advice.
Regards,
Sanjana.Hi,
Usually, printing issues are encountered if one tries to print from the same printer accessing as LOCL or through Network. One might get a good output through LOCL, but can face a problem if the printer is accessed through Network. Sometimes it could be the other case. In any case it is the problem with the printer configuration. Try to consult your Basis team regarding this.
Regards,
Vara -
Plz help me to get Projects for Practice
hi,
I am vijay recently completed SAP In SD module.Plz help me to get projects for practiceif you want to put am image into a game use this code:
try {
Image Img = Image.createImage("/your.png");
catch(Exception e) {
You have to have a try/catch statment to check for errors.
You can have animated png with sprites.
If you have a picture thats 32x32 put the next frame into it 32x64 and continue like that.
I added a link to a good guide to make game in J2ME
http://www.microjava.com/articles/techtalk/midp2_games?PageNo=1 -
Plz help production issue(smartform)
hi experts plz help its a production issue
i have a box in my smartform in which in one line i can only show 50 characters .and i have a text of 70 characters but i only have to show 50 characters from 70 characters .
now wat i did i stored 70 characters variable into 50 char variable abd displaying it .
but the issue is
if i want to print .
hi this is sdn and here u can get all the information about sap .
now lets say
i of information is the 46th character of my line
now what is happening it is coming like
hi this is sdn and here u can get all the
infor
its showing 50 character only but if word is not completed it is printing it in next line.
it should print like
hi this is sdn and here u can get all the infor
plz help how to do it
thanx in advance .code i am using is ::::::::::::::::::::::::::::::::::::::::::::::::
data : TEXT_3I56(50) type c .
move is_bil_invoice-hd_gen-bil_number TO textname.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
id = '0002'
language = is_nast-spras
name = textname
object = 'VBBK'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
tables
lines = t_lines_3156
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.
*describe table t_lines lines n.
*if not n is initial.
*bank_note = 'X'.
*endif.
READ TABLE T_LINES_3156 INDEX 1 .
IF SY-SUBRC = 0 .
TEXT_3I56 = T_LINES_3156-TDLINE .
ENDIF. -
DMS-Object link to business partner (ISU-Module) required. Plz help.
Hi all,
I require to give an object link from DMS to Business partner of ISU module t code BP.
So checked up in SPRO- Control data- maintain key feilds, & i found that BUT001 is the transparent table which is used here. so i inserted the same in object link for my document type, but there was no screen no defined to it so i gave the screen no as 500, the tab has appeared under the objectlink tab in DIR, but the screen is not appearing, it is blank, also in the business partner Transaction the DIR table is not appearing.
What should i do? is there any other setting required, or the table which i have found is wrong. Plz help.
Regards
Tushar.Hi,
Have you solved your issue? I want to have the same link. If you have please give me a step by step description.
I saw the screen number for general business partner is 1249, maybe you can use this.
Regards Camilla -
Hi plz help me to find out the table name and field names as i am unable to find .....In the spec am given requirements in the following pattern.
Description SAP-Term Explaination
1.Salesman Equipment AC Mgr. VBPA2 this is the salesman code - I need the
description for this.
2.Vendor MEPO_TOPLINE-SUPERFIELD Vendor field is pull from me23n where the
condition will be that COBL-KDAUF (this is a
structure from me23n in item data-account
assignment-sales order. The number here should
be the corresponding contract number. This field
should include a multiple selection function. User
can put more than one description to search for.
3. Val. Period Val. Period Category Val. Period Category from va41 header-contract
Category data. This field should include a multiple selection
function. User can put more than one description
to search for.
4. Service Order/ CAUFVD-GSTRP/ This should be the document date where by it is in
Purchase Order MEPO_TOPLINE-BEDAT between the range the user input
Document Date
5. B2B Vendor MEPO_TOPLINE-SUPERFIELD Vendor field is pull from me23n where the condition
will be that COBL-KDAUF (this is a structure from
me23n in item data-account assignment-sales
order. The number here should be the
corresponding contract number.
6. B2B Cost MEPO1211-NETPR This cost is pulled from PO (me23n) however take
note that the price will be pulled out base on line
item Net Price. Make sure that price is taken
corresponding only to the equipment tied to it.
Check on Number 7 to see how is the line item tied
to the equipment.
If this is in other currency please make it to SGD
with the exchange rate field Exchange rate
(MEPO1226-WKURS)
NOTE:: I need to know the table from which I can
determine the currency type as can be seen in the
ME23N transaction and also te exchange rate for
that particular currency.
7. No of faults The service order (CAUFVD-AUFNR) created base
on the equipment in Number 8. This should exclude
the service order of type RD08. Service order can be
access by IW33.
8. Faults Completed This would be the number of faults (Number 13)
which has a system status (CAUFVD-STTXT) of
TECO. System status can be viewed in IW33 Sys.
Status. Take note service order type RD08 will be
excluded
9. Time Spent on Fault AFVGD-ISMNW This field is in IW41 in confirmation base on the
order created. This field will be the actual time
spent. This will correspond to the Faults
Completed (Number 14). This means only orders
with system status TECO will be pull. Take not
service order type RD08 will be excluded
10. Fault Cost RIHAUFK_LIST- DGESKOSIST This will be the total cost for a service order which
have the status TECO. Those which are not TECO
will not be needed. This field can be obtain from
IW39 (standard report). Execute the report and
there will be a field for Total Actual Cost. You might
need to change the screen layout to be able to view
this. Take note service order type RD08 will be
excluded
11. PM Hours AFVGD-ISMNW This field is in IW41 in confirmation base on the
order created. This field will be the actual time
spent. This will correspond to the Faults Completed
This means only orders with system
status TECO will be pull. Take note service only
take order type RD08.
12. Spare Cost Spare part cost This field will be in IW33 under cost tab, and cost
PMCOEA-IKOSTENKGR tab in item level. This will be the actual cost of spare
part after TECO. This will include all order type.
13. Credit Note Credit Memo The programs need to pull out credit memo which is
reference from the contract. If there is a credit memo
reference from the contract then the value will be net
price per equipment.Can u tell me purpose of this spec ?
Regards,
pandu. -
Can anyone give help in smartform...plz
is there any option in the generated smartform function module (eg: /'BD87876/98797') to go directly to the printer and take printout....
i want to know the parameters in that function module and also the procedure...YES.. Actually we need both.
First Report should be displayed..then v placed a user command button to go directly to the smartform.
it's just an requirement.
The client needs both report and layout.
<b>One more doubt:</b> I designed the smartform exactly same as my report output. I am having two footer windows after the main window in which i am having 3 tables in my main window. Now., i need these two footer windows to display only after all the 3 tables are displayed. i.e., after some 5 to 6 pages all the 3 tables displays the data. I need this footer window data to be displayed in the 6th page.
<b>Second doubt</b>: Is there any option in the main window to prevent data loss while printing. because there is so much data in the 3 tables -
Hi all,
i attended a interview, these are the qes..plz help me with ans..
1. is it possible without using function modules in
bdc(open, insert,close) data transferring? how ...
2. which one is better session/call transection? why?
3. in LSMW what r the methods u r using?
4. in LSMW otherthan recording any method is there? what are they?
5. in LSMW where are u doing field validation? in which step, can u explain?
6. is it possible to run smartform without using
" ssf_function_module_name", how ?
7. how will display secondary list in ALV.
8. how will u call back to secondary lists to base list?
9. how u r printing secondary list in interactive reports?
10. what are the events used in u r ALV reports?
11. how will u access data in secondary list?
12. what is diff b/w bapi created fm and standered bapi fm?
13. in ALE in which programm worked either standalone or any other?
here what is standalone?i know change pointer..Hi
10. what are the events used in u r ALV reports?
Events in alv and their FM The main events in alv and their FM and why we use these:
1. SLIS_PRINT_ALV.
2. SLIS_T_LISTHEADER.
3. SLIS_T_EVENT.
4. SLIS_T_SORTINFO_ALV.
5. SLIS_T_LAYOUT_ALV.
6. SLIS_T_FIELDCAT_ALV.
and in classic reports what is the sequence of events: === Events are
At selection-screen output.
Initialization.
At selection-screen on field
At selection-screen on end of field
At selection-screen on Radiobutton Group R1. (If you have any radio buttons)
At selection-screen on block b1. (If you have any blocks)
Start-of-selection.
Get node. (if the data is retreived from a logical database)
Get node late. (if the data is retreived from a logical database)
Top-of-page. (if the write statement is in the end-of-selection event or we can say that before the first write statement)
end-of-selection.
and fuction modules are
LISTHEADER - Is used to print the header information in the ALV List. Name, Date, Time, ALV Name and other details are called as Header information. EVENT - Basically this is the FM to handle Event's. When the user needs to do some event operation like when double clicking the a particular field we need to perform some operation. These events are captured by this FM. LAYOUT - This FM is used to define the layout of the List. There are many options available in this FM to define the Layout style. FIELDCAT - These are used to populate the List header. We can change them according to our req.
User-defined Text Output Event
Application
print_end_of_list
Define output text to be printed at the end of the entire list
print_top_of_list
Define output text to be printed at the beginning of the entire list
print_end_of_page
Define output text to be printed at the end of each page
print_top_of_page
Define output text to be printed at the beginning of each page
subtotal_text
Define self-defined subtotals texts
Mouse-controlled Actions in the Grid Control Event
Application
button_click
Query a click on a pushbutton in the ALV Grid Control
double_click
Query a double-click on a cell of the ALV Grid control
hotspot_click
Query a hotspot click on columns defined for this purpose in advance
onDrag
Collect information when elements of the ALV Grid Control are dragged
onDrop
Process information when elements of the ALV Grid Control are dropped
onDropComplete
Perform final actions after successful Drag&Drop
onDropGetFlavor
Distinguish between options for Drag&Drop behavior
Processing of Self-defined and Standard Functions Event
Application
before_user_command
Query self-defined and standard function codes
user_command
Query self-defined function codes
after_user_command
Query self-defined and standard function codes
Definition of Self-defined Functions Event
Application
toolbar
Change, delete or add GUI elements in the toolbar
menu_button
Define menus for menu buttons in the toolbar
context_menu_request
Change context menu
onf1
Define self-defined F1 help
All of these can be found under type group SLIS.
Events
SLIS_EV_ITEM_DATA_EXPAND TYPE SLIS_FORMNAME VALUE 'ITEM_DATA_EXPAND',
SLIS_EV_REPREP_SEL_MODIFY TYPE SLIS_FORMNAME VALUE 'REPREP_SEL_MODIFY', SLIS_EV_CALLER_EXIT_AT_START TYPE SLIS_FORMNAME VALUE 'CALLER_EXIT',
SLIS_EV_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND',
SLIS_EV_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
SLIS_EV_DATA_CHANGED TYPE SLIS_FORMNAME VALUE 'DATA_CHANGED',
SLIS_EV_TOP_OF_COVERPAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_COVERPAGE',
SLIS_EV_END_OF_COVERPAGE TYPE SLIS_FORMNAME VALUE 'END_OF_COVERPAGE',
SLIS_EV_FOREIGN_TOP_OF_PAGE TYPE SLIS_FORMNAME
VALUE 'FOREIGN_TOP_OF_PAGE', SLIS_EV_FOREIGN_END_OF_PAGE TYPE SLIS_FORMNAME
VALUE 'FOREIGN_END_OF_PAGE',
SLIS_EV_PF_STATUS_SET TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',
SLIS_EV_LIST_MODIFY TYPE SLIS_FORMNAME VALUE 'LIST_MODIFY',
SLIS_EV_TOP_OF_LIST TYPE SLIS_FORMNAME VALUE 'TOP_OF_LIST',
SLIS_EV_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE',
SLIS_EV_END_OF_LIST TYPE SLIS_FORMNAME VALUE 'END_OF_LIST',
SLIS_EV_AFTER_LINE_OUTPUT TYPE SLIS_FORMNAME VALUE 'AFTER_LINE_OUTPUT', SLIS_EV_BEFORE_LINE_OUTPUT TYPE SLIS_FORMNAME VALUE 'BEFORE_LINE_OUTPUT',
SLIS_EV_SUBTOTAL_TEXT TYPE SLIS_FORMNAME VALUE 'SUBTOTAL_TEXT' -
Plz help using ms access as database,i want to create a login page in java
hye frnz... plz help me m new to java
m using ms access as database and try to create a login page where user type username and pw
i had enter valid user entries in database i checked connectivity is working i want as user login the main window must open after checking username and pw field to database but
now there is an error class not found exception sun:jdbc...... error
plz help me i had stuck frm 4 days */
import java.sql.DriverManager;
import java.sql.Connection;
import java.sql.Statement;
import java.sql.ResultSet;
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
class Login extends JFrame
//Component Declarations
JLabel jlb1,jlb2;
JTextField jtf1;
JPasswordField jpf1;
JButton jb1,jb2;
//Constructor
Login()
//frame settings
setTitle("Login Dialog");
setLayout(new GridBagLayout());
GridBagConstraints gbc = new GridBagConstraints();
setDefaultCloseOperation(JFrame.DISPOSE_ON_CLOSE);
Dimension d= Toolkit.getDefaultToolkit().getScreenSize();
setBounds(d.width/2-175,d.height/2-100,350,200);
gbc.insets=new Insets(7,7,7,7);
//adding components
jlb1=new JLabel("User ID");
gbc.gridx=0;
gbc.gridy=0;
add(jlb1,gbc);
jlb2=new JLabel("Password");
gbc.gridx=0;
gbc.gridy=1;
add(jlb2,gbc);
jtf1=new JTextField(10);
gbc.gridx=1;
gbc.gridy=0;
add(jtf1,gbc);
jpf1=new JPasswordField(10);
gbc.gridx=1;
gbc.gridy=1;
add(jpf1,gbc);
jb1=new JButton("Login");
gbc.gridx=0;
gbc.gridy=2;
add(jb1,gbc);
jb1.addActionListener(new ActionListener()
public void actionPerformed(ActionEvent ae)
Connection conn=null;
Statement stmt=null;
boolean found=false;
try
Class.forName("sun.jdbc.driver.JdbcOdbcDriver");
String dataSourceName = "Inventory";
String dbURL = "jdbc:odbc:" + dataSourceName;
conn=DriverManager.getConnection(dbURL, "","");
stmt=conn.createStatement();
ResultSet rst=stmt.executeQuery("Select * from User");
System.out.println(jtf1.getText()+"/t"+jpf1.getPassword());
while(rst.next())
System.out.println( rst.getString(1) +"/t"+ rst.getString(2));
if(jtf1.getText().equals(rst.getString(1).trim()) && new String(jpf1.getPassword()).equals(rst.getString(2).trim()))
found=true;
rst.close();
dispose();
MainWindow mw= new MainWindow(); /*created min window object created to be opend after login but not working*/
break;
rst.close();
stmt.close();
conn.close();
catch(ClassNotFoundException e){System.out.print(e);}
catch(Exception e){System.out.print(e);}
if(found==false) /*this portion is executing and dialog box appears invalid name and pw with class not found exception sun:jdbc.......on console */
JOptionPane.showMessageDialog(null,"Invalid username or password",
"Error Message",JOptionPane.ERROR_MESSAGE);
jb2=new JButton("Clear");
gbc.gridx=1;
gbc.gridy=2;
add(jb2,gbc);
jb2.addActionListener(new ActionListener()
public void actionPerformed(ActionEvent ae)
jtf1.setText("");
jpf1.setText("");
jtf1.requestFocus();
setSize(350,200);
setVisible(true);
jtf1.requestFocus();
public static void main(String args[])
Login l=new Login();
Edited by: 795772 on Sep 19, 2010 4:44 AM795772 wrote:
hye frnz... plz help me m new to java
m using ms access as database and try to create a login page where user type username and pw
i had enter valid user entries in database i checked connectivity is working i want as user login the main window must open after checking username and pw field to database but
now there is an error class not found exception sun:jdbc...... error
plz help me i had stuck frm 4 days */
<snip>The subject of this forum is Oracle databases. How does your problem relate to that subject?
Two bits of advice:
1) Make sure you ask questions in a forum related to your problem.
2) If you want to be taken seriously as a professional, drop the MS IM Speak and use the language of the forum. In this forum it is English, which is successfully used by many people for whom English is far from their native language. -
How to write code for this logic, plz help me very urgent
Hi All,
i am new to sap-abap, i got this work and i m working on this can any body help me in writing code, plz help me, this is very very urgent.
here i m giving my logic, can anybody send me the code related to this logic.
this is very urgent .
this program o/p should be in ALV format and need to create one commond 'SAVE" on this o/t list if user clicks save processedon and processedby fields in ZFIBUE should be updated automatically.
i am creating one custom table zfibue having fields: (serialno, bukrs, matnr,prdha,hkont,gsber,wrbtr,budat, credate, cretime,processed, processedon, processedby,mapped)
fields of zfibue:
serailno = numc
bukrs = char
matnr = char
prdha = char
hkont = char
gsber = char
wrbtr = char
budat = date
credate = date
cretime = time
processed= char
processedon = date
processedby = char
mapped = char are belongs to above type data types
and seelct-optionfields: s_bukrs for bseg-bukrs
s_hkont for bseg-hkont,
s_budat for bkpf-budat,
s_processed for zfibue-processed,
s_processedon for zfibue-processedon,
s_mapped. for zfibue-mapped
parameters: p_chk1 as checkbox,
p_chk2 as checkbox.
p_filepath type rlgrap-filename.
1.1 Validate the user inputs (S_BUKRS and S_HKONT) against respective check tables (T001 and SKB1). If the validation fails, provide respective error message. Eg: Invalid input for Company Code.
1.2 Fetch SERIALNO, BUKRS, MATNR, PRDHA, HKONT, GSBER, WRBTR, BUDAT, CREDATE, CRETIME, PROCESSED, PROCESSEDON, PROCESSEDBY, MAPPED from table ZFIBUE into internal table GT_ZFIBUE where BUKRS IN S_BUKRS, HKONT IN S_HKONT, BUDAT IN S_BUDAT, PROCESSED IN S_PROCESSED, PROCESSEDON IN S_PROCESSEDON, and MAPPED IN S_MAPPED.
1.3 If P_CHK2 = X, go to step 1.11. Else continue.
1.4 If P_CHK1 = X, continue. Else go to step 1.9
1.5 Fetch MATNR, PRDHA from MARA into GT_MARA for all entries in GT_ZFIBUE where MATNR = GT_ZFIBUE-MATNR.
1.6 Sort and delete adjacent duplicates from GT_MARA based on MATNR.
1.7 Loop through GT_ZFIBUE where PRDHA = blank.
Read Table GT_MARA based on MATNR = GT_ZFIBUE-MATNR.
IF sy-subrc = 0.
Move GT_MARA-PRDHA to GT_ZFIBUE-PRDHA.
Modify Table GT_ZFIBUE. Update Product Hierarchy
Endif.
Fetch PRDHA, GSBER from ZFIBU into GT_ZFIBU for all entries in GT_ZFIBUE where PRDHA = GT_ZFIBUE-PRDHA.
Read Table GT_ZFIBU based on PRDHA = GT_ZFIBUE-PRDHA.
IF sy-subrc = 0.
Move GT_ZFIBU-GSBER to GT_ZFIBUE-GSBER.
Move X to GT_ZFIBUE-MAPPED.
Modify Table GT_ZFIBUE.
Endif.
Endloop.
1.8 Modify database table ZFIBUE from GT_ZFIBUE.
1.9 Fill the field catalog table GT_FIELDCAT using the details of output fields listed in section Inputs/Outputs (above).
Eg: LWA_ FIELDCAT -SELTEXT_L = 'Serial Number.
LWA_ FIELDCAT -DATATYPE = NUMC.
LWA_ FIELDCAT -OUTPUTLEN = 9.
LWA_ FIELDCAT -TABNAME = 'GT_ZFIBUE'.
LWA_ FIELDCAT-FIELDNAME = 'SERIALNO'.
Append LWA_FIELDCAT to GT_FIELDCAT
Note: a) The output field GT_ZFIBUE-PROCESSED will be editable marking INPUT = X in field catalog (GT_FIELDCAT).
b) The standard ALV functionality will be used to give the user option for selecting all or blocks of entries at a time.
c) The PF-STATUS STANDARD_FULLSCREEN from function group SLVC_FULLSCREEN will be copied to the program and modified to include a SAVE button.
1.10 Call the function module REUSE_ALV_GRID_DISPLAY passing output table GT_ZFIBUE and field catalog GT_FIELDCAT. Additional parameters like I_CALLBACK_PF_STATUS_SET (= ZFIBUESTAT) and I_CALLBACK_USER_COMMAND (=HANDLE_USER_ACTION) will also be passed to handle user events. Go to 2.14.
1.11 Download the file to P_FILEPATH using function module GUI_DOWNLOAD passing GT_ZFIBUE.
1.12 Exit Program.
Logic to be implemented in routine Handle_User_Action
This routine will have the following interface:
FORM Handle_User_Action USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
ENDFORM.
Following logic will be implemented in this routine:
1. If r_ucomm = SAVE, continue. Else exit.
2. Loop through GT_ZFIBUE where SEL_ROW = X. Row is selected
a. IF GT_ZFIBUE-PROCESSED = X.
i. GT_ZFIBUE-PROCESSEDON = SY-DATUM.
ii. GT_ZFIBUE-PROCESSEDBY = SY-UNAME.
iii. MODIFY ZFIBUE FROM work area GT_ZFIBUE.
Endif.
Endloop.Hi Swathi,
If it's very very urgent then you better get on with it, don't waste time on the web. Chop chop. -
Error while deployiong bpel process plz help
i am geting an error while deployiong bpel process plz help
BUILD FAILED
E:\jdevstudio10132\jdev\mywork\Application4\vinayread\build.xml:79: A problem occured while connecting to server "chdsez116553d" using port "8888": bpel_vinayread_1.0.jar failed to deploy. Exception message is: ORABPEL-05215
Error while loading process.
The process domain encountered the following errors while loading the process "vinayread" (revision "1.0"): BPEL validation failed.
BPEL source validation failed, the errors are:
[Error ORABPEL-10902]: compilation failed
[Description]: in "bpel.xml", XML parsing failed because "undefined part element.
In WSDL at "file:/D:/product/10.1.3.1/OracleAS_8/bpel/domains/default/tmp/.bpel_vinayread_1.0_679323b0585449e9fd1887e6ee2bf444.tmp/vinayred.wsdl", message part element "{http://TargetNamespace.com/vinayred}Root-Element" is not defined in any of the schemas.
Please make sure the spelling of the element QName is correct and the WSDL import is complete.
[Potential fix]: n/a.
If you have installed a patch to the server, please check that the bpelcClasspath domain property includes the patch classes.
at com.collaxa.cube.engine.deployment.CubeProcessHolder.bind(CubeProcessHolder.java:285)
at com.collaxa.cube.engine.deployment.DeploymentManager.deployProcess(DeploymentManager.java:862)
at com.collaxa.cube.engine.deployment.DeploymentManager.deploySuitcase(DeploymentManager.java:728)
at com.collaxa.cube.ejb.impl.BPELDomainManagerBean.deploySuitcase(BPELDomainManagerBean.java:445)
at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39)
at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25)
at java.lang.reflect.Method.invoke(Method.java:585)
at com.evermind.server.ejb.interceptor.joinpoint.EJBJoinPointImpl.invoke(EJBJoinPointImpl.java:35)
at com.evermind.server.ejb.interceptor.InvocationContextImpl.proceed(InvocationContextImpl.java:119)
at com.evermind.server.ejb.interceptor.system.DMSInterceptor.invoke(DMSInterceptor.java:52)
at com.evermind.server.ejb.interceptor.InvocationContextImpl.proceed(InvocationContextImpl.java:119)
at com.evermind.server.ejb.interceptor.system.JAASInterceptor$1.run(JAASInterceptor.java:31)
at com.evermind.server.ThreadState.runAs(ThreadState.java:646)
at com.evermind.server.ejb.interceptor.system.JAASInterceptor.invoke(JAASInterceptor.java:34)
at com.evermind.server.ejb.interceptor.InvocationContextImpl.proceed(InvocationContextImpl.java:119)
at com.evermind.server.ejb.interceptor.system.TxRequiredInterceptor.invoke(TxRequiredInterceptor.java:50)
at com.evermind.server.ejb.interceptor.InvocationContextImpl.proceed(InvocationContextImpl.java:119)
at com.evermind.server.ejb.interceptor.system.DMSInterceptor.invoke(DMSInterceptor.java:52)
at com.evermind.server.ejb.interceptor.InvocationContextImpl.proceed(InvocationContextImpl.java:119)
at com.evermind.server.ejb.InvocationContextPool.invoke(InvocationContextPool.java:55)
at com.evermind.server.ejb.StatelessSessionEJBObject.OC4J_invokeMethod(StatelessSessionEJBObject.java:87)
at DomainManagerBean_RemoteProxy_4bin6i8.deploySuitcase(Unknown Source)
at com.oracle.bpel.client.BPELDomainHandle.deploySuitcase(BPELDomainHandle.java:319)
at com.oracle.bpel.client.BPELDomainHandle.deployProcess(BPELDomainHandle.java:341)
at deployHttpClientProcess.jspService(_deployHttpClientProcess.java:376)
at com.orionserver.http.OrionHttpJspPage.service(OrionHttpJspPage.java:59)
at oracle.jsp.runtimev2.JspPageTable.service(JspPageTable.java:462)
at oracle.jsp.runtimev2.JspServlet.internalService(JspServlet.java:594)
at oracle.jsp.runtimev2.JspServlet.service(JspServlet.java:518)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:856)
at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:65)
at oracle.security.jazn.oc4j.JAZNFilter$1.run(JAZNFilter.java:396)
at java.security.AccessController.doPrivileged(Native Method)
at javax.security.auth.Subject.doAsPrivileged(Subject.java:517)
at oracle.security.jazn.oc4j.JAZNFilter.doFilter(JAZNFilter.java:410)
at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:623)
at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:370)
at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:871)
at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:453)
at com.evermind.server.http.HttpRequestHandler.serveOneRequest(HttpRequestHandler.java:221)
at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:122)
at com.evermind.server.http.HttpRequestHandler.run(HttpRequestHandler.java:111)
at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260)
at oracle.oc4j.network.ServerSocketAcceptHandler.procClientSocket(ServerSocketAcceptHandler.java:239)
at oracle.oc4j.network.ServerSocketAcceptHandler.access$700(ServerSocketAcceptHandler.java:34)
at oracle.oc4j.network.ServerSocketAcceptHandler$AcceptHandlerHorse.run(ServerSocketAcceptHandler.java:880)
at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303)
at java.lang.Thread.run(Thread.java:595)
Total time: 1 second
plz give sme solutions<?xml version="1.0" encoding="UTF-8"?>
<definitions name="vinayread"
targetNamespace="http://xmlns.oracle.com/vinayread"
xmlns="http://schemas.xmlsoap.org/wsdl/"
xmlns:client="http://xmlns.oracle.com/vinayread"
xmlns:plnk="http://schemas.xmlsoap.org/ws/2003/05/partner-link/">
<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TYPE DEFINITION - List of services participating in this BPEL process
The default output of the BPEL designer uses strings as input and
output to the BPEL Process. But you can define or import any XML
Schema type and use them as part of the message types.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
<types>
<schema xmlns="http://www.w3.org/2001/XMLSchema">
<import namespace="http://xmlns.oracle.com/vinayread" schemaLocation="vinayread.xsd" />
</schema>
</types>
<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MESSAGE TYPE DEFINITION - Definition of the message types used as
part of the port type defintions
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
<message name="vinayreadRequestMessage">
<part name="payload" element="client:vinayreadProcessRequest"/>
</message>
<message name="vinayreadResponseMessage">
<part name="payload" element="client:vinayreadProcessResponse"/>
</message>
<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PORT TYPE DEFINITION - A port type groups a set of operations into
a logical service unit.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
<!-- portType implemented by the vinayread BPEL process -->
<portType name="vinayread">
<operation name="process">
<input message="client:vinayreadRequestMessage" />
<output message="client:vinayreadResponseMessage"/>
</operation>
</portType>
<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PARTNER LINK TYPE DEFINITION
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
<plnk:partnerLinkType name="vinayread">
<plnk:role name="vinayreadProvider">
<plnk:portType name="client:vinayread"/>
</plnk:role>
</plnk:partnerLinkType>
</definitions>
how to check the
which xsd contains
"{http://TargetNamespace.com/vinayred}Root-Element"????
how to check this plz tell me -
PLZ help in interfacing my VI with NI 5640
I am interfacing Ni 5640 PCI with the example VI of the modulation toolkit "QAM transceiver" using the instrument driver of PCI 5640 not the labview FPGA driver
My final constellation is with lot of errors.
I am finding problems in setting the parameters of the PCI 5640. I am using the single tone generation VI at transmiter side and Spectrum measurement example Vi at RX side.
parameters I am setting are
at TX:
sampling rate of the complex cluster I am giving to ni 5640 R write waveform is 1600k S/s
IQ rate giving to ni 5640 R configure generation is 1600k S/s
Symbol rate is 100k Hz
pulse shaping root raised cosine using 16 samples per symbol
AT RX:
what should be the span if i see in the example spectrum measurement or the IQ rate at the ni 5640 R configure acquisition
how much samples to acquire?
if my transmitted bits are 1044 and applying 4 QAM on them
how should I resample my received array of IQ data????
PLZ help or give me any example of a transceiver system interfaced with NI 5640r using instrument driver.good...yaar am too from AU
so which dept r u from???and name..am from telecom A
we r also doing 16 qam on dsp 6713, using labview...do meet me so dat we can resolve each others issues....
regards
wajahat Hassan -
PLZ help me out here...URGENT....
Here, actually i need to request the program to ask the user howmany lines does he wants by asking him to input the number of lines and at the same time write the whole text line that he requested to anew file. PLZ help me out here. So, the program shud display the text files that it read line by line after the user enters the number of lines he wants....DO i need to manipulate the loop or wat???..plz help me out here guys...thanks in advance....
here is the code...
import java.io.*;
class FileReadTest3 {
public static void main (String[] args) {
FileReadTest3 f = new FileReadTest3();
f.readMyFile();
void readMyFile() {
DataInputStream dis = null;
String record = null;
int recCount = 0;
int EnterNum = 0;
System.out.println("Please enter the number of lines: "+EnterNum);
try {
File f = new File("aliran.txt");
FileInputStream fis = new FileInputStream(f);
BufferedInputStream bis = new BufferedInputStream(fis);
dis = new DataInputStream(bis);
for(int recCount = 0; recCount <= 10, recCount++)
recCount++;
System.out.println(recCount + ": " + record);
} catch (IOException e) {
// catch io errors from FileInputStream or readLine()
System.out.println("There was a problem for finding the file!" + e.getMessage());
} finally {
// if the file opened okay, make sure we close it
if (dis != null) {
try {
dis.close();
} catch (IOException ioe) {
}1.) Actually perform some user input of any kind. Right now, the user has no choice.
2.) Read from your file, for that's why you opened it.
3.) Don't use a DataInputStream unless you know what you're doing. Use a BufferedReader instead if it's simply text.
4.) Insert a condition check for the number of lines -- yes, you need to manipulate the loop or what.
P.S.: Multiple posting, no use of code tag, the word "URGENT" in subject, calling people "man" ... this is like wearing a shirt that says "shoot me!". -
'FTP_R3_TO_SERVER' giving sy-subrc = 3 plz help me points must be given
Dear ,
when i am trying to send data in internal table of type charterter declared below(i.e iresult) to FTP SERVER program giving the DATA ERROR = 3 when 'FTP_R3_TO_SERVER' fuction module is exected and file it not creating in ftp server . plz help me pointS must be given .
the FTP_CONNECT ,FTP_COMMAND function modules are executing properly giving handle 1 and its sy-subrc = 0 .
when 'FTP_R3_TO_SERVER' is executed it is giving SY-SUBRC = 3 ( DATA ERROR ) i.e it is failing to out internal table data in FTP SERVER . PLZ HIDE ME ITS URGENT .
THIS IS CODE I USED .
DATA : BEGIN OF iresult OCCURS 5,
rec(450),
END OF iresult,
DATA :
dest LIKE rfcdes-rfcdest VALUE 'SAPFTP',
compress TYPE c VALUE 'N',
host(64) TYPE c.
DATA: hdl TYPE i.
DATA: BEGIN OF result OCCURS 0,
line(100) TYPE c,
END OF result.
DATA : key TYPE i VALUE 26101957 ,
dstlen TYPE i,
blob_length TYPE i.
host = p_host .
DESCRIBE FIELD p_password LENGTH dstlen IN CHARACTER MODE.
CALL 'AB_RFC_X_SCRAMBLE_STRING'
ID 'SOURCE' FIELD p_password ID 'KEY' FIELD key
ID 'SCR' FIELD 'X' ID 'DESTINATION' FIELD p_password
ID 'DSTLEN' FIELD dstlen.
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
user = p_user
password = p_password
host = host
rfc_destination = dest
IMPORTING
handle = hdl
EXCEPTIONS
not_connected = 1
OTHERS = 2.
IF sy-subrc = 0.
CONCATENATE 'cd' ftppath INTO ftppath SEPARATED BY space .
CALL FUNCTION 'FTP_COMMAND'
EXPORTING
handle = hdl
command = ftppath
TABLES
data = result
EXCEPTIONS
command_error = 1
tcpip_error = 2.
IF sy-subrc = 0 .
CLEAR result .
REFRESH result .
CALL FUNCTION 'FTP_COMMAND'
EXPORTING
handle = hdl
command = 'ascii'
TABLES
data = result
EXCEPTIONS
command_error = 1
tcpip_error = 2.
IF sy-subrc = 0 .
DESCRIBE TABLE iresult LINES lines.
blob_length = lines * width .
clear : lines.
Delete the existing file
CONCATENATE 'del' ftpfile INTO delfile SEPARATED BY SPACE.
CALL FUNCTION 'FTP_COMMAND'
EXPORTING
handle = hdl
command = delfile
TABLES
data = result
EXCEPTIONS
command_error = 1
tcpip_error = 2.
*End of deleting the existing file
CALL FUNCTION 'FTP_R3_TO_SERVER'
EXPORTING
handle = hdl
fname = ftpfile
blob_length = blob_length
TABLES
blob = iresult
EXCEPTIONS
TCPIP_ERROR = 1
COMMAND_ERROR = 2
DATA_ERROR = 3
OTHERS = 4.
IF sy-subrc <> 0 .
WRITE 'Error in writing file to ftp' .
ELSE.
WRITE 'File downloaded on the ftp server successfully'.
ENDIF.
ENDIF.
ELSE.
WRITE : 'Path on ftp not found : ' , ftppath .
ENDIF.
CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
handle = hdl.
CALL FUNCTION 'RFC_CONNECTION_CLOSE'
EXPORTING
destination = 'SAPFTP'
EXCEPTIONS
OTHERS = 1.
ELSE.
WRITE 'Could not connect to ftp' .
ENDIF.
ENDFORM. " FTPFINANCEACCESS_DOWNLOAD
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'PASSWORD'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
Edited by: manoj kv on Feb 21, 2008 7:51 AM
Edited by: manoj kv on Feb 21, 2008 10:31 AM
Edited by: manoj kv on Feb 23, 2008 5:22 AM
Edited by: manoj kv on Feb 23, 2008 2:59 PMDear ,
i exected RSFTP005 program and i got this below output .
SAPFTP check
Check RFC destination SAPFTP...
... OK.
Ping RFC destination SAPFTP...
... OK.
Check RFC destination SAPFTPA...
... OK.
Ping RFC destination SAPFTPA...
... OK.
in our previous discussion u told me that "You will get that file is not in proper format or it might be empty i.e. structure dose not support "
plz tell me how u r telling that file will not get in proper order and which structure does not support .
my client given issue that whole data storing in single line .
plz do the needful help. points must be rewarded .
thanking u .
Edited by: manoj kv on Feb 25, 2008 5:56 AM
Edited by: manoj kv on Feb 26, 2008 9:38 AM
Edited by: manoj kv on Feb 28, 2008 8:04 AM
Maybe you are looking for
-
Read email from microsoft exchangeserver 2010 and save attachement
Hello, I want to read email from microsoft exchangeserver 2010 and save attachement into a folder.I created an Java program to import attachments from a exchange server mailbox using "POP3S".It works fine when run as a java application.But when i put
-
Sir i cannot open my iphone 5 in apple id with phone
i cannot open apple id in my phone and such can open in pc plz find a solution for this
-
Friends, I had a question on Sales Document flow. When you expand the document flow of Sales Order or a delivery, you see different status like Sales, Delivery, Picking Request, Invoice & Accounting. In that, Can You give me steps to create Picking r
-
How do I get a virus out of an email I received?
I received an email supposedly from my bank. It looked fishy to me so I called them and sure enough it was fake. They asked me to forward it to them so they could try to track down the sender. My anti-virus did not pick anything up even though Thunde
-
I am running 10.5.8 and want to make use of the icloud changeover, I understand that I must first buy snow leopard 10.6 and then buy lion 10.7. Do I buy these as upgrade versions or full versions? I am not very techie, thanks for any advice.