Mulitple grid in single form
hi all,
we are developing one report. its have multiple tabs. each tab having separate grid. but its not working. when i press second tab its show the error. example:Open,closed,Completed,hold,inactive
thanks & regards
B.Lakshmi Narayanan
sorry njmog1
sorry for late replies.
Error is: Matrix - invalid column number.
But i am using only grid. when single form having multiple grid show this error
Thanks & Regards
B.Lakshmi Narayanan
Similar Messages
-
HI All,
Is it possible to add twl grids in single page output?
Regards,
Krishna.Hi,
i thing it can't. Anyway i am sending model alv grid report.
REPORT CODING
REPORT YMS_EXDET MESSAGE-ID E4 NO STANDARD PAGE HEADING LINE-SIZE 350.
*REPORT ZMM_EXIN_DOC_ALV_HEADER .
TABLES : J_1IEXCHDR, " header table
J_1IEXCDTL, " item table
J_1IPART1, " Excise part I detials
J_1IPART2, " Excise Part II details
LFA1, " vendor master table
J_1IMOVEND, " vendor excise details table
MSEG, " Document Segment: Material
MKPF, " Header: Material Document
DD07T, " domain text table
T001W. " Plant and Branch Details
DATA : BEGIN OF IT_CHDR OCCURS 100,
SERIALNO LIKE J_1IPART1-SERIALNO,
DOCNO LIKE J_1IEXCHDR-DOCNO,
DOCYR LIKE J_1IEXCHDR-DOCYR,
EXNUM LIKE J_1IEXCHDR-EXNUM,
EXDAT LIKE J_1IEXCHDR-EXDAT,
WERKS LIKE J_1IEXCHDR-WERKS,
EXBED LIKE J_1IEXCHDR-EXBED,
EXCCD LIKE J_1IEXCHDR-EXCCD,
ECS LIKE J_1IEXCHDR-ECS,
STATUS LIKE J_1IEXCHDR-STATUS, "CHALLAN STATUS
END OF IT_CHDR.
DATA : BEGIN OF IT_CDTL OCCURS 100,
SERIALNO LIKE J_1IPART1-SERIALNO,
DOCYR LIKE J_1IEXCDTL-DOCYR,
DOCNO LIKE J_1IEXCDTL-DOCNO,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
LIFNR LIKE J_1IEXCDTL-LIFNR,
MATNR LIKE J_1IEXCDTL-MATNR,
MAKTX LIKE J_1IEXCDTL-MAKTX,
CHAPID LIKE J_1IEXCDTL-CHAPID,
EXBAS LIKE J_1IEXCDTL-EXBAS,
EXBED LIKE J_1IEXCDTL-EXBED,
ECS LIKE J_1IEXCDTL-ECS,
MENGE LIKE J_1IEXCDTL-MENGE,
MEINS LIKE J_1IEXCDTL-MEINS,
RDOC2 LIKE J_1IEXCDTL-RDOC2,
EXGRP LIKE J_1IEXCDTL-EXGRP,
RDOC1 LIKE J_1IEXCDTL-RDOC1,
STATUS LIKE J_1IEXCDTL-STATUS, "CHALLAN STATUS
END OF IT_CDTL.
DATA TEXT(10).
DATA : BEGIN OF IT_OUT OCCURS 0,
SERIALNO LIKE J_1IPART1-SERIALNO,
TEXT1 LIKE TEXT,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
NAME LIKE LFA1-NAME1,
DDTEXT LIKE DD07T-DDTEXT,
EXCCD LIKE J_1IEXCHDR-EXCCD,
BUDAT LIKE MKPF-BUDAT,
EXBAS LIKE IT_CDTL-EXBAS,
EXBED LIKE IT_CDTL-EXBED,
ECS LIKE IT_CDTL-ECS,
MATNR LIKE IT_CDTL-MATNR,
MAKTX LIKE IT_CDTL-MAKTX,
CHAPID LIKE IT_CDTL-CHAPID,
MENGE LIKE IT_CDTL-MENGE,
MEINS LIKE IT_CDTL-MEINS,
DEL_IND(1),
END OF IT_OUT.
DATA IT_PART2 LIKE J_1IPART1 OCCURS 0 WITH HEADER LINE.
DATA S_NO(4) .
DATA DB_CNT LIKE SY-TABIX.
DATA EBELN_T LIKE MSEG-EBELN .
TYPE-POOLS : SLIS.
DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA : LIST_HEADER TYPE SLIS_T_LISTHEADER,
FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
LS_FTCAT TYPE LVC_S_FCAT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
SORTCAT_LN LIKE LINE OF SORTCAT,
G_REPID LIKE SY-REPID,
G_BACK_GROUND(70), "like bapibds01-objkey,
GS_VARIANT LIKE DISVARIANT,
G_SAVE ,
GT_EVENTS TYPE SLIS_T_EVENT,
ALV_EVENT TYPE SLIS_ALV_EVENT,
EVENTCAT TYPE SLIS_T_EVENT,
EVENTCAT_LN LIKE LINE OF EVENTCAT,
LAYOUT_IN TYPE SLIS_LAYOUT_ALV,
LAYOUT_IN1 TYPE SLIS_LAYOUT_ALV.
CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE
'TOP_OF_PAGE',
GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE
'USER_COMMAND',
GC_FORMNAME_BEFORE_OUTPUT TYPE SLIS_FORMNAME VALUE
'BEFORE_OUTPUT'.
ALV_EVENT TYPE SLIS_ALV_EVENT,
DATA EX_NO LIKE IT_CHDR-EXNUM VALUE 0.
DATA REGTYP_1 LIKE J_1IPART1-REGTYP.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME.
PARAMETERS WERKS TYPE J_1IEXCHDR-WERKS.
SELECT-OPTIONS : BUDAT FOR J_1IEXCHDR-EXDAT.
PARAMETERS : R1 RADIOBUTTON GROUP GRP DEFAULT 'X',
R2 RADIOBUTTON GROUP GRP.
SELECTION-SCREEN END OF BLOCK B.
INITIALIZATION.
G_REPID = SY-REPID.
G_SAVE = 'A'.
PERFORM BUILD_EVENT USING GT_EVENTS[].
PERFORM ALV_EVENT_INIT.
AT SELECTION-SCREEN.
REFRESH LIST_HEADER.
PERFORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER.
START-OF-SELECTION.
PERFORM ALV_EVENT_INIT.
G_REPID = SY-REPID.
G_BACK_GROUND = ' ' .
IF R1 = 'X'.
CLEAR R2. CLEAR : REGTYP_1.
REGTYP_1 = 'A'.
set titlebar 'BALAJI' with DB_CNT.
ELSEIF R2 = 'X'.
CLEAR R1.CLEAR : REGTYP_1.
REGTYP_1 = 'C'.
set titlebar 'BALAJI1' with DB_CNT.
ENDIF.
SELECT * FROM J_1IPART1
INTO CORRESPONDING FIELDS OF TABLE IT_PART2
WHERE REGTYP = REGTYP_1 AND
TRNTYP = 'GRPO'.
AND BUDAT IN BUDAT.
DOCYR = IT_CDTL-DOCYR AND
DOCNO = IT_CDTL-DOCNO.
LOOP AT IT_PART2.
SELECT SINGLE * FROM J_1IEXCHDR
INTO CORRESPONDING FIELDS OF IT_CHDR
WHERE TRNTYP = 'GRPO' AND
STATUS NE ' ' AND
STATUS EQ ' ' AND
DOCYR = IT_PART2-DOCYR AND
DOCNO = IT_PART2-DOCNO AND
WERKS = WERKS AND
EXDAT IN BUDAT.
ORDER BY EXDAT.
IF SY-SUBRC = 0.
APPEND IT_CHDR.
ELSE.
CONTINUE.
ENDIF.
IF SY-SUBRC <> 0.
MESSAGE E084.
ENDIF.
ENDLOOP.
*******************SPD****************
SELECT * INTO CORRESPONDING FIELDS OF IT_CDTL FROM J_1IEXCDTL WHERE
TRNTYP = 'GRPO' AND WERKS = WERKS AND
EXDAT IN BUDAT AND STATUS NE 'B'.
SELECT SINGLE * FROM J_1IPART1 WHERE DOCNO = IT_CDTL-DOCNO AND
DOCYR = IT_CDTL-DOCYR AND
REGTYP = REGTYP_1.
IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND
DOCYR = IT_CDTL-DOCYR.
IF SY-SUBRC NE 0.
IT_CDTL-SERIALNO = J_1IPART1-SERIALNO.
APPEND IT_CDTL.
ENDIF.
ENDIF.
ENDSELECT.
***************SPD********************
SELECT BDOCNO BDOCYR BEXNUM BEXDAT BWERKS BEXBED B~EXCCD
B~ECS
B~STATUS
A~SERIALNO
FROM J_1IPART1 AS A INNER JOIN J_1IEXCHDR AS B
ON ADOCYR = BDOCYR AND ADOCNO = BDOCNO INTO CORRESPONDING
FIELDS OF TABLE IT_CHDR WHERE B~TRNTYP = 'GRPO' AND
BWERKS = WERKS AND BEXDAT IN BUDAT AND
B~STATUS = ' ' AND
B~STATUS = 'C' AND
A~REGTYP = REGTYP_1.
SORT IT_PART2 BY SERIALNO.
LOOP AT IT_CHDR.
SELECT * FROM J_1IEXCDTL
INTO CORRESPONDING FIELDS OF IT_CDTL
FOR ALL ENTRIES IN IT_CHDR
WHERE
TRNTYP = 'GRPO' AND
STATUS EQ ' ' AND
STATUS EQ 'C' AND
STATUS NE 'P' AND
DOCNO = IT_CHDR-DOCNO AND
DOCYR = IT_CHDR-DOCYR AND
EXNUM = IT_CHDR-EXNUM AND
EXDAT = IT_CHDR-EXDAT AND
WERKS = IT_CHDR-WERKS.
IF SY-SUBRC = 0.
APPEND IT_CDTL.
CLEAR IT_CDTL.
ELSE.
CONTINUE.
ENDIF.
ENDSELECT.
MODIFY IT_CDTL INDEX SY-TABIX.
CLEAR IT_CDTL.
ENDLOOP.
*****spd change**********
*LOOP AT IT_CDTL.
*SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND
DOCYR = IT_CDTL-DOCYR.
*IF SY-SUBRC = 0.
DELETE IT_CDTL INDEX SY-TABIX.
*ENDIF.
*ENDLOOP.
**SELECT
*******spd ****************
SORT IT_CDTL BY EXNUM EXDAT.
DELETE ADJACENT DUPLICATES FROM IT_CDTL COMPARING MATNR EXNUM EXDAT.
LOOP AT IT_CDTL.
CLEAR TEXT.
DB_CNT = DB_CNT + 1.
READ TABLE IT_CHDR WITH KEY EXNUM = IT_CDTL-EXNUM DOCNO =
IT_CDTL-DOCNO.
READ TABLE IT_PART2 WITH KEY DOCNO = IT_CDTL-DOCNO .
IT_OUT-SERIALNO = IT_PART2-SERIALNO.
SELECT SINGLE NAME1 FROM LFA1
INTO IT_OUT-NAME
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM LFA1
WHERE LIFNR = IT_CDTL-LIFNR.
IF LFA1-LAND1 EQ 'IN'.
TEXT = 'INVOICE'.
IT_OUT-TEXT1 = TEXT.
ELSE.
TEXT = 'BOE'.
IT_OUT-TEXT1 = TEXT.
ENDIF.
SELECT SINGLE * FROM J_1IMOVEND
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM DD07T
INTO IT_OUT-DDTEXT
WHERE DOMNAME = 'J_1IVTYP' AND
DDLANGUAGE = 'EN' AND
DOMVALUE_L = J_1IMOVEND-J_1IVTYP.
IF DD07T-DDTEXT = 'First Stage Dealer of indigenous excisable goods'
OR
DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisablegoods'.
DD07T-DDTEXT = 'Dealer'.
ENDIF.
IT_OUT-DDTEXT = DD07T-DDTEXT.
ELSEIF DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisable
*goods'.
DD07T-DDTEXT =
CLEAR EBELN_T.
SELECT SINGLE LFBNR FROM MSEG
INTO EBELN_T
WHERE MBLNR = IT_CDTL-RDOC2 .
SELECT SINGLE * FROM MSEG
WHERE BWART EQ '106' AND
LFBNR = EBELN_T ."and
ebeln = ebeln_t.
IF SY-SUBRC = 0.
IT_OUT-DEL_IND = 'X'.
ELSE.
IT_OUT-DEL_IND = ' '.
ENDIF.
SELECT SINGLE BUDAT FROM MKPF
INTO IT_OUT-BUDAT
WHERE MBLNR = EBELN_T ."MSEG-LFBNR.
IT_OUT-EXNUM = IT_CDTL-EXNUM.
IT_OUT-EXDAT = IT_CDTL-EXDAT.
IT_OUT-EXCCD = IT_CHDR-EXCCD.
IT_OUT-SERIALNO = IT_CHDR-SERIALNO.
IT_OUT-SERIALNO = IT_CDTL-SERIALNO.
IT_OUT-EXBAS = IT_CDTL-EXBAS.
IT_OUT-EXBED = IT_CDTL-EXBED.
IT_OUT-ECS = IT_CDTL-ECS.
IT_OUT-MATNR = IT_CDTL-MATNR.
IT_OUT-MAKTX = IT_CDTL-MAKTX.
IT_OUT-CHAPID = IT_CDTL-CHAPID.
IT_OUT-MENGE = IT_CDTL-MENGE.
IT_OUT-MEINS = IT_CDTL-MEINS.
APPEND IT_OUT.
EX_NO = IT_CDTL-EXNUM.
ENDLOOP.
Title Portion
IF REGTYP_1 = 'A'.
SET TITLEBAR 'BALAJI' WITH DB_CNT.
ELSEIF REGTYP_1 = 'C'.
SET TITLEBAR 'BALAJI1' WITH DB_CNT.
ENDIF.
AFIELD-COL_POS = 1.
AFIELD-FIELDNAME = 'SERIALNO'.
AFIELD-SELTEXT_L = 'SERIAL NO.'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 2.
AFIELD-FIELDNAME = 'TEXT1'.
AFIELD-SELTEXT_L = 'TYPE OF DOC'.
AFIELD-JUST = 'L'.
AFIELD-DECIMALS_OUT = '0'.
AFIELD-NO_ZERO = 'X'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 3.
AFIELD-FIELDNAME = 'EXNUM'.
AFIELD-SELTEXT_L = 'DOC.NO'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 4.
AFIELD-FIELDNAME = 'EXDAT'.
AFIELD-SELTEXT_L = 'DOC.DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 5.
AFIELD-FIELDNAME = 'NAME'.
AFIELD-SELTEXT_L = 'NAME OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 6.
AFIELD-FIELDNAME = 'DDTEXT'.
AFIELD-SELTEXT_L = 'TYPE-OF-SUPPLIER'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 7.
AFIELD-FIELDNAME = 'EXCCD'.
AFIELD-SELTEXT_L = 'ECC OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 8.
AFIELD-FIELDNAME = 'BUDAT'.
AFIELD-SELTEXT_L = 'INPUT RECV DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 9.
AFIELD-FIELDNAME = 'EXBAS'.
AFIELD-SELTEXT_L = 'ASSESSABLE-VALUE'.
AFIELD-DO_SUM = 'X'.
AFIELD-JUST = 'R'.
AFIELD-DECIMALS_OUT = '2'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 10.
AFIELD-FIELDNAME = 'EXBED'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN CENVAT'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 11.
AFIELD-FIELDNAME = 'ECS'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN E-CESS'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 12.
AFIELD-FIELDNAME = 'MATNR'.
AFIELD-SELTEXT_L = 'MATERIAL-CODE'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 13.
AFIELD-FIELDNAME = 'MAKTX'.
AFIELD-SELTEXT_L = 'DESCRIPTION'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 14.
AFIELD-FIELDNAME = 'CHAPID'.
AFIELD-SELTEXT_L = 'TARIFF-ID'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 15.
AFIELD-FIELDNAME = 'MENGE'.
AFIELD-SELTEXT_L = 'QUANTITY'.
AFIELD-JUST = 'R'.
AFIELD-DO_SUM = ' '.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 16.
AFIELD-FIELDNAME = 'MEINS'.
AFIELD-SELTEXT_L = 'UOM'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 17.
AFIELD-FIELDNAME = 'DEL_IND'.
AFIELD-SELTEXT_L = 'Deleted'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 18.
AFIELD-FIELDNAME = 'PO NO'.
AFIELD-SELTEXT_L = 'PURDOCNO'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
* LAYOUT FOR ZEBRA CATLOG
LAYOUT_IN-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT_IN-ZEBRA = 'X'.
LAYOUT_IN-GET_SELINFOS = 'X'.
LAYOUT_IN-CONFIRMATION_PROMPT = 'X'.
LAYOUT_IN-DETAIL_POPUP = 'X' .
SORTCAT-decimals = '0'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_SAVE = G_SAVE
IS_VARIANT = GS_VARIANT
IT_FIELDCAT = FIELDCAT
IT_SORT = SORTCAT
IS_LAYOUT = LAYOUT_IN
IT_EVENTS = EVENTCAT
I_BACKGROUND_ID = g_back_ground
TABLES
T_OUTTAB = IT_OUT.
*& Form TOP_OF_PAGE_LIST_HEADER
text
-->LIST_HEADERtext
FORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER TYPE SLIS_T_LISTHEADER.
DATA : HLINE TYPE SLIS_LISTHEADER,
TEXT(60) TYPE C.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
SELECT SINGLE * FROM T001W WHERE WERKS = WERKS.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'PLANT :' TO TEXT.
WRITE WERKS TO TEXT+8.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-NAME1 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-STRAS TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-ORT01 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'DATE :' TO TEXT.
WRITE BUDAT-LOW TO TEXT+7.
IF BUDAT-HIGH NE ''.
WRITE 'TO' TO TEXT+18.
WRITE BUDAT-HIGH TO TEXT+22.
ENDIF.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
ENDFORM. "TOP_OF_PAGE_LIST_HEADER
*& Form ALV_EVENT_INIT
text
FORM ALV_EVENT_INIT .
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
ALV_EVENT-FORM = 'ALV_TOP_OF_PAGE'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
ALV_EVENT-FORM = 'ALV_TOP_OF_LIST'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_LIST.
ALV_EVENT-FORM = 'ALV_END_OF_LIST'.
APPEND ALV_EVENT TO GT_EVENTS.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_PAGE.
ALV_EVENT-FORM = 'ALV_END_OF_PAGE'.
APPEND ALV_EVENT TO GT_EVENTS.
ENDFORM. "ALV_EVENT_INIT
*& Form ALV_TOP_OF_PAGE
text
FORM ALV_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LIST_HEADER
I_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM. "ALV_TOP_OF_PAGE
*& Form BUILD_EVENT
text
-->P_GT_EVENTS[] text
FORM BUILD_EVENT USING P_EVENTS TYPE SLIS_T_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = P_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_USER_COMMAND TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_BEFORE_OUTPUT TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
ENDFORM. " BUILD_EVENT
Thanks,
Shankar -
Multiple Selects in a single form
I have six select boxes and I want them in a single form.
Below are the outputs for the select boxes.
<cfform
action="Resolution_History.cfm?year=#year#&sessiontype=#sessiontype#&btype=res"
name="form">
<select name="SRINPUT">
<option value="">SR
<CFOUTPUT Query="findSR"><Option
Value="#BILLNUMBER#">#BILLNUMBER#</cfoutput>
</select>
<select name="HRINPUT">
<option value="">HR
<CFOUTPUT Query="findHR"><Option
Value="#BILLNUMBER#">#BILLNUMBER#</cfoutput>
</select>
<select name="SCRINPUT">
<option value="">SCR
<CFOUTPUT Query="findSCR"><Option
Value="#BILLNUMBER#">#BILLNUMBER#</cfoutput>
</select>
<br>
<select name="HCRINPUT">
<option value="">HCR
<CFOUTPUT Query="findHCR"><Option
Value="#BILLNUMBER#">#BILLNUMBER#</cfoutput>
</select>
<select name="SJRINPUT">
<option value="">SJR
<CFOUTPUT Query="findSJR"><Option
Value="#BILLNUMBER#">#BILLNUMBER#</cfoutput>
</select>
<select name="HJRINPUT">
<option value="">HJR
<CFOUTPUT Query="findHJR"><Option
Value="#BILLNUMBER#">#BILLNUMBER#</cfoutput>
</select>
<INPUT TYPE="Submit" VALUE="Submit" alt="submit
button">
</cfform>
Once a user selects a number it will send them to an action
page. On the action page I need the below IF statement to work so
it will set the variables. It isn't working at this time. Its not
bringing the values of billnumber, houseorig or the billtype.
Does anyone have any thoughts? I know it is close to working
and I need to set all of the inputs to input4 to generate my
queries so I don't have to duplicate them.
<cfif form.srinput gt "0">
<cfset s = '#houseorig#'>
<cfset r = '#billtype#'>
<cfset input4 = '#srinput#'>
<cfelseif form.hrinput gt "0">
<cfset h = '#houseorig#'>
<cfset r = '#billtype#'>
<cfset input4 = '#hrinput#'>
<cfelseif form.scrinput gt "0">
<cfset s = '#houseorig#'>
<cfset cr = '#billtype#'>
<cfset input4 = '#scrinput#'>
<cfelseif form.hcrinput gt "0">
<cfset h = '#houseorig#'>
<cfset cr = '#billtype#'>
<cfset input4 = '#hcrinput#'>
<cfelseif form.sjrinput gt "0">
<cfset s = '#houseorig#'>
<cfset jr = '#billtype#'>
<cfset input4 = '#sjrinput#'>
<cfelse>
<cfset h = '#houseorig#'>
<cfset jr = '#billtype#'>
<cfset input4 = '#hjrinput#'>
</cfif>give'em a break. he is probably under pressure (like we all
have been). in response, i do not even see some of the variables
you are checking in the second script in the first. get this one
straight and i think it'll work. -
Multiple DataBase Connection in a Single Form
hi all
Is it Possible to have Multiple Database Connection With a Single Form
Block a : Retriving data from a database Service a/Schema A.
Block b : Retriving data from a Remote Database Service b / Schema B.
If yes how to do this.
regards
jai
email:[email protected]Sure you can access a database this way,
but can you base a block on this database connect? No you can't.
Frank -
How do I insert multiple rows from a single form ...
How do I insert multiple rows from a single form?
This form is organised by a table. (just as in an excel format)
I have 20 items on a form each row item has five field
+++++++++++ FORM AREA+++++++++++++++++++++++++++++++++++++++++++++++++++++
+Product| qty In | Qty Out | Balance | Date +
+------------------------------------------------------------------------+
+Item1 | textbox1 | textbox2 | textbox3 | date +
+ |value = $qty_in1|value= &qty_out1|value=$balance1|value=$date1 +
+------------------------------------------------------------------------+
+Item 2 | textbox1 | textbox2 | textbox4 | date +
+ |value = $qty_in2|value= $qty_out1|value=$balance2|value=$date2 +
+------------------------------------------------------------------------+
+ Item3 | textbox1 | textbox2 | textbox3 | date +
+------------------------------------------------------------------------+
+ contd | | | +
+------------------------------------------------------------------------+
+ item20| | | | +
+------------------------------------------------------------------------+
+ + + SUBMIT + ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Database Structure
+++++++++++++++++
+ Stock_tabe +
+---------------+
+ refid +
+---------------+
+ item +
+---------------+
+ Qty In +
+---------------+
+ Qty Out +
+---------------+
+ Balance +
+---------------+
+ Date +
+++++++++++++++++
Let's say for example user have to the use the form to enter all 10 items or few like 5 on their stock form into 4 different textbox field each lines of your form, however these items go into a "Stock_table" under Single insert transaction query when submit button is pressed.
Please anyone help me out, on how to get this concept started.Hello,
I have a way to do this, but it would take some hand coding on your part. If you feel comfortable hand writing php code and doing manual database calls, specificaly database INSERT calls you should be fine.
Create a custom form using the ADDT Custom Form Wizard that has all the rows and fields you need. This may take a bit if you are adding the ability for up to 20 rows, as per your diagram of the form area. The nice thing about using ADDT to create the form is that you can setup the form validation at the same time. Leave the last step in the Custom Form Wizard blank. You can add a custom database call here, but I would leave it blank.
Next, under ADDT's Forms Server Behaviors, select Custom Trigger. At the Basic tab, you enter your custom php code that will be executed. Here you are going to want to put your code that will check if a value has been entered in the form and then do a database INSERT operation on the Stock_table with that row. The advanced tab lets you set the order of operations and the name of the Custom Trigger. By default, it is set to AFTER. This means that the Custom Trigger will get executed AFTER the form data is processed by the Custom Form Transaction.
I usually just enter TEST into the "Basic" tab of the Custom Trigger. Then set my order of operations in the "Advanced" tab and close the Custom Trigger. Then I go to the code view for that page in Dreamweaver and find the Custom Trigger function and edit the code manually. It's much easier this way because the Custom Trigger wizard does not show you formatting on the code, and you don't have to keep opening the Wizard to edit and test your code.
Your going to have to have the Custom Trigger fuction do a test on the submitted form data. If data is present, then INSERT into database. Here's a basic example of what you need to do:
In your code view, the Custom Trigger will look something like this:
function Trigger_Custom(&$tNG) {
if($tNG->getColumnValue("Item_1")) {
$item1 = $tNG->getColumnValue("Item_1");
$textbox1_1 = $tNG->getColumnValue("Textbox_1");
$textbox1_2 = $tNG->getColumnValue("Textbox_2");
$textbox1_3 = $tNG->getColumnValue("Textbox_3");
$date1 = $tNG->getColumnValue("Textbox_3");
$queryAdd = "INSERT INTO Stock_table
(item, Qty_In, Qty_Out, Balance, Date) VALUES($item1, $textbox1_1, $textbox1_2, $textbox1_3, $date1)"
$result = mysql_query($queryAdd) or die(mysql_error());
This code checks to see if the form input field named Item_1 is set. If so, then get the rest of the values for the first item and insert them into the database. You would need to do this for each row in your form. So the if you let the customer add 20 rows, you would need to check 20 times to see if the data is there or write the code so that it stops once it encounters an empty Item field. To exit a Custom Trigger, you can return NULL; and it will jump out of the function. You can also throw custom error message out of triggers, but this post is already way to long to get into that.
$tNG->getColumnValue("Item_1") is used to retrieve the value that was set by the form input field named Item_1. This field is named by the Custom Form Wizard when you create your form. You can see what all the input filed names are by looking in the code view for something like:
// Add columns
$customTransaction->addColumn("Item_1", "STRING_TYPE", "POST", "Item_1");
There will be one for each field you created with the Custom Form Wizard.
Unfortunately, I don't have an easy way to do what you need. Maybe there is a way, but since none of the experts have responded, I thought I would point you in a direction. You should read all you can about Custom Triggers in the ADDT documentation/help pdf to give you more detailed information about how Custom Triggers work.
Hope this helps.
Shane -
How to running a single form on the browser
Hi below is the link for deployment of our application on app server.
http://100.180.127.225:7779/forms90/f90servlet?config=abc
and this is the entries in formsweb.cfg file.
[abc]
form=G:\Oracle10gBinaries\abc\FMX\test.fmx
otherparams=prm_init_file=G:\abc.INI prm_itype=0 prm_impli_type=9W prm_debug_mode=NO
pageTitle=Heading
envFile=abc.env
separateFrame=TRUE
lookAndFeel=generic
archive_jini=f90all_jinit.jar
imagebase=codebase
Now i want to run a form named test2.fmx directly by passing the value as *test2.fmx on the browser.
what change i needs make in the formsweb file to achieve this.Hi all thanks for ur help.
i am able to run the .fmx directly .this i have achieved by putting the .fmx in the forms90 folder and using the link.
http://100.180.127.225:7779/forms90/f90servlet?form=test2.fmx
it is working fine and showing the single form but now i want to pass a parameter
from the link to the test2.fmx directly/
when launched from the link ,test2.fmx shows all the records. as this form contains customer information so it list all the customer no.
i want to launch this form with only the customer id passed thro the link.
i am trying something like
http://100.180.127.225:7779/forms90/f90servlet?.fmx&PRM_CUST_NO=000000014
where 000000014 is the customer no.
when launch the forms it still gives all records and not this customer record.
prm_cust_no is the oracle form parameter which is defined in the form.
please suggest? -
Hi,
I'm facing a problem of having multiple canvases(3) in single form.
I've two Data blocks(Master & Detail). Master having one canvas. But details have two different canvases.
I've created 3 different menus for 3 canvases.
say Master,Detail1,Detail2. Now the problem is when i try to open detail1 or detail2 from oracle apps menu it opens master canvas only.
i've created functions in apps & in NEW_FORM_INSTANCE trigger coded like
If (fnd_function.current_form_function = 'CRM_FC_PPC') then
GO_BLOCK('CRM_CUSTO_FORCAST_DET');
SHOW_VIEW('PPC');
HIDE_VIEW('CUST_FORECAST');
HIDE_VIEW('SHIPPING');
Elsif (fnd_function.current_form_function = 'CRM_FC_SHIP') then
SHOW_VIEW('SHIPPING');
HIDE_VIEW('PPC');
HIDE_VIEW('CUST_FORECAST');
Else
SHOW_VIEW('CUST_FORECAST');
HIDE_VIEW('PPC');
HIDE_VIEW('SHIPPING');
Go_item('CRM_CUST_FORCAST_HDR.CUSTOMER_ID');also my master canvas is Content & details are stacked. should i create different windows for details canvases ? i also did that but failed.
what could be the solution here ?
Forms 6i
DB 9.2
RegardsHi,
Sorry for delayed reply.
Francois,
I've tried with go_item but it doesn't worked. i knew it & tried it before asking here. but thanks anyway.
Ahmed,
i've only one window show all these canvases.I'm now trying with multiple windows.
The code is as follow
If (fnd_function.current_form_function = 'IRS_CRM_FC_PPC') then
GO_ITEM('IRS_CRM_CUSTO_FORCAST_DET.CUSTOMER_ID');
Set_window_property('CF_PPC',VISIBLE,PROPERTY_TRUE);
Set_window_property('MAIN',VISIBLE,PROPERTY_FALSE);
Set_window_property('CF_PPC',TITLE,'IRS CRM PPC Details'||:global.div);
GO_BLOCK('IRS_CRM_CUSTO_FORCAST_DET');
SHOW_VIEW('PPC');
HIDE_VIEW('CUST_FORECAST');
HIDE_VIEW('SHIPPING');
Elsif (fnd_function.current_form_function = 'IRS_CRM_FC_SHIP') then
SHOW_VIEW('SHIPPING');
HIDE_VIEW('PPC');
HIDE_VIEW('CUST_FORECAST');
Else
SHOW_VIEW('CUST_FORECAST');
HIDE_VIEW('PPC');
HIDE_VIEW('SHIPPING');
Go_item('IRS_CRM_CUST_FORCAST_HDR.CUSTOMER_ID');Regards
PS. Master is Content & details are stacked.
Edited by: user10569054 on Apr 5, 2010 3:10 PM edited for canvas details -
MULTIPLE SESSIONS IN SINGLE FORM
HELLO ALL
HOW CAN I HAVE MULTIPLE SESSIONS IN A SINGLE FORM? MY REQUIRMENT
IS SUCH THAT I HAVE A CONTROL BLOCK WHICH IS MARKED AS UPDATED
WHEN USER PRESS COMMIT BUTTON, BUT I WANT TO ROLL IT BACK AND I
HAVE ISSUED SOME UPDATE COMMANDS MYSELF WHICH I WANT TO BE
COMMITED. ANYONE HAVE ANY IDEA?
THANKS IN ADVANCEGive the submit button a name. It will be sent as well, so you can see it in the request variables.
-
Multiple submit on single form
hi all,
My current system have 1 submit button with single form. This submit button will call file_content.upload.
htp.p('function on_submit() {');
htp.p(' ...the rest of my code here..');
htp.p(' document.forms[0].submit();');
htp.p(' return true;');
htp.p('}');
htp.p('<form enctype="multipart/form-data" method="post" action="file_content.upload">');
htp.p(' ...the rest of my code here..');
htp.p('<input type="button" id="btn_Submit" value="Submit" onclick="on_submit()"></form>');My question is, i want to enhance this by adding additional 1 submit button with value "Save". But this new "Save" button will call/trigger different file. This new button will call file_content.update. How to accomplish this and how to differentiate these 2 button?
htp.p('<input type="button" id="btn_Submit" value="Submit" onclick="on_submit()">
<input type="button" id="btn_Save" value="Save"></form>');Appreciate any help from you guys. Thanks
Edited by: morezack on Jul 21, 2011 2:08 PMYou again did accident like one below
multiple submit button on a single form
Take care..
Regards, -
How to Display Grid in ORacle Forms
Hi Friends and Experts
I have a requirement to display the records in Grid in ORacle Forms. This grid is a kind of Java grid. Help on this or any reference material for implementing this would be grately appreciated.
Thanks in Advance.
Ahmedwhat forms-version?
what exactly do you mean with grid? Do you have a special ready-made component you want to use ? Do you have any functional requirements for your grid?
For a "normal" data grid, you could just layout your data in tabular way, perhaps with a stacked canvas, to have a scrollable area to the right
If you use forms in web you could use a javabean for this, if so have a look at Francois's blog-page http://forms.pjc.bean.over-blog.com/40-categorie-461064.html
hope this helps -
Multiple submit button on a single form
hi all,
My current system have 1 submit button with single form. This submit button will call file_content.upload.
htp.p('function on_submit() {');
htp.p(' ...the rest of my code here..');
htp.p(' document.forms[0].submit();');
htp.p(' return true;');
htp.p('}');
htp.p('<form enctype="multipart/form-data" method="post" action="file_content.upload">');
htp.p(' ...the rest of my code here..');
htp.p('<input type="button" id="btn_Submit" value="Submit" onclick="on_submit()"></form>');
My question is, i want to enhance this by adding additional 1 submit button with value "Save". But this new "Save" button will call/trigger different file. This new button will call file_content.update. How to accomplish this and how to differentiate these 2 button?
htp.p('<input type="button" id="btn_Submit" value="Submit" onclick="on_submit()">
<input type="button" id="btn_Save" value="Save"></form>');
Appreciate any help from you guys. Thanks
Edited by: morezack on Jul 20, 2011 8:21 PM
Edited by: morezack on Jul 20, 2011 8:29 PMPLEASE IGNORE THIS THREAD. ACCIDENTLY SUBMIT IT. I WANT TO DELETE THIS BUT CANNOT
-
Creating vecor art from a single form field.
How do I create vector art from a single form field within a pdf that has serveral form fields in it?
Thanks
ChrisI need to create vector art from text within one form field on a page with several form fields on it.
1- single form field
2- create vector art from text within the single form field mentioned above
3- if possible export to a file
4- if not possible how can I create vector art from a pdf automatically?
5- if possible, create a button that will allow users to create vector art from text in a single form field
Thank you,
Chris -
Handling multiple submits in single form with JSP
HI,
I need to handle multiple submits in single form in a JSP.
<html>
<body>
<form action="/Compute" method="post">
<input type = "Submit" value="Find"/>
<input type = "Submit" value="Add"/>
<input type = "Submit" value="Delete"/>
</form>
<body>
<html>
/Compute wld take the control to a servlet named ComputeController.java .
In this servlet how should I distinguish which Submit has been clicked(Find or add or Delete).
TIAGive the submit button a name. It will be sent as well, so you can see it in the request variables.
-
Replicating MS Access single form record selectors functionality
I am very new to APEX.
I would like to rebuild and improve on all our departments MS Access userforms using APEX.
At the moment I am trying to replicate the standard MS Access "single form" view of a record in a database table, with the record selector navigation buttons (prev, next, new record).
I have scoured the internet and this forum but have not successfully found the solution.
I need to be able to select a subset of records from a view/table and present them on a page one at a time, so the user can scroll through them (prev, next) and make edits. Because of the amount of info in each record, the whole screen will be taken up by each record (hence the single form view).
I have created a form pagination process that is supposed to get the next/previous primary key value, however I can't seem to get the buttons displayed on the form that should be firing off these processes.
What combination of features should I be using to replicate this functionality? I am using the "Form on a table/view" style page at the moment.
Cheers,
Richard.Hi
Even if you created a form pagination process, you need to "initialise" the PK field(s) -- by default, they are null and the pagination buttons will not show (this is very different from how access works).
You can do it using a conditional computation (e.g. selecting the min PK value when the PK field is null).
I hope this helps.
Luis -
Multiple Input ports - Single Form
Hi,
I have a RFC which has multiple input ports. How do i use a single form to provide data to all the input ports.
Regards
BharathwajHi,
you can create the single form direct, if you pull a line out of the RFC, then the form must be created with the fields. If not, then you have to create it manually and map the fields with the input port.
Best Regards,
Marcel
Maybe you are looking for
-
Syntax error while activating BSP with OTR in htmlb element
Hallo, I get a syntax error if I try to activate the BSP below with the lines commented out: "Statement concluding with "...%_O2_UTL_000" ended unexpectedly". I don't know what's going wrong. Have I to to any basis settings or to activate any more se
-
A pdf is created with itext. At the end different pdf-files are merged. Only the first part is printed. You can see all the whole file in the Adobe Reader, as I want. When I test in Windows, there is no problem. But the production is on Linux and the
-
IMovie 10 won't import IOS imovie 2.0?
I have the latest version on both iPhone 5s IOS7 iMovie 2.0 - latest verison 10 on my Macbook - Mavericks. When I go to import a movie I brought over via iTunes iMovie on Mac says only imports version 1.4 or earlier. So Apple updates both on my pho
-
How does the SDK and Reader handle printing with orientation?
I have a document that I want to print, and it contains a portrait page on Page 1, and a landscape page on Page 2. Acrobat Reader correctly prints these pages (with a single print job), and I'm assuming it's because of the auto-rotate option on the
-
4.0.1 patch and runtime environment
Is the 4.0.1 patch for the runtime as well as the development environment? I've installed the patch on 3 dev systems and it ran just fine. When I installed on a runtime only I got several errors and the registry is left INVALID.