How to hide rows in output
Hi Techis
i m doin a report for Sales order for finished goods..
here i am shwin Status eg RED for goods not delivered at all YELLOW for goods delivered partially and GREEN for goods completely delivered .
nw thing is dat i dont want to display goods that are completely deliverd i.e with GREEN status
So anybody have clue hw to hide or any condition so that it wont display at outout ....
Rewards will be gin for ans
Regards
Santosh L
Hi Santosh,
LOOP AT ITAB into wa_itab.
IF COLOR NE GREEN.
move wa_itab to wa_itab1.
append itab1 from wa_itab1.
ENDIF.
ENDLOOP.
Display the ALV with itab1.
Reward if useful.
Regards,
Chitra Parameswaran
Similar Messages
-
Hello folks,
I just would like to know that how to hide rows except dbms_rls package? I mean, it has been said that I can hide rows to create views but lets said that I have got 200 students and each student can see only their rows in students table, in that scenerio I have to create 200 views, isn't it? I just would like to learn that how to hide rows with using views? Do you have any ideas?
Note: I know dbms_rls package, except this solution I am tryin to find onather solution.
Thanks a lot.Hi,
Polat wrote:
Hello folks,
I just would like to know that how to hide rows except dbms_rls package? I mean, it has been said that I can hide rows to create views but lets said that I have got 200 students and each student can see only their rows in students table, in that scenerio I have to create 200 views, isn't it? No! As you realized, that's not practical.
If every student is a separate Oracle user, the USER fucntion will return the name of the current user. A view definition can reference that function, like this:
CREATE OR REPLACE VIEW view_x
AS
SELECT *
FROM table_x
WHERE student_account = USER;If you logged in to Oracle as POLAT, then the view will contain only rows where student_account='POLAT'.
If you logged in to Oracle as SYSTEM, then the view will contain only rows where student_account='SYSTEM'.
If students do not have thier own Oracle accounts, then they are probably authenitcated by some procedure in your package. That procedure can set a SYS_CONTEXT variable, or write data to a global temporary table, which you can then use instead of the USER function in view definitions.
Note: I know dbms_rls package, except this solution I am tryin to find onather solution.Why can't you use dbms_rls, or why don't you want to use it? It's a very powerful tool, and not vey hard to use.
I'm not saying there's never a good reason not to use dbms_rls; I'm just asking if you have one.
I hope this answers your question.
If not, give a specific example of what you want. Post CREATE TABLE and INSERT statements for some sample data for all tables involved. Identify 2 or 3 different students, and show what the contents of the view should be for each student, given the same sample data. If students do not log in to Oracle with their own usernames, then explain how you know which student is currently logged in. -
How to hide rows with merged cells?
I would like to know how to hide rows on numbers with merged cells, could do it normally at excel but I am not being able to do it at Numbers.
thanks!Felipe,
To hide a row with Merged Cells, Un-Merge first, then Hide. Select the Merged Cells and Table > Unmerge.
Note that this is only a problem with vertically merged cells when you want to Hide a Row.
If you want to Hide a Column, you can't have a Horizontal Merge that involves that Column.
Jerry -
How to hide row in JTable?
Hi all,
How to hide some specific rows in JTable for user view filtering purpose?
ThanksTry to use the Table Model.
The "getValueAt" Methode decide what to Display.
So a simple "if" command can hide the complete row - or a single Statement.
public Object getValueAt(int row, int col) {
ArrayList al = new ArrayList();
StueliTeil tabellenzeile = (StueliTeil) getDaten().get(row);
switch (col) {
case 0 :
return tabellenzeile.getUmfang();
case 1 :
return tabellenzeile.getTakt();
... -
How to hide Rows Conditionaly??
Hi All BOBJ Experts,
Is it possible to hide measure value conditionaly in WEBI XI 4.0.....i have 3 dimension Objects and 2 measure Objects..(i.e)Product Code,Name,Capacity,Quantity,Unit(Ton,Kg,Litters,etc).....i want to hide rows if Quantity is null...
thanks in advance....
Regards,
Sella Perumal Pcheck this:
HOW TO HIDE A ROW ON WEBI REPORT WITH 0 AND NULL VALUES
rgs,
Parth. -
How to hide rows if all values are Zero (0) horizontally?
Hi,
I have got a requirement to hide rows from the results if all values are equal to zero horizontally.
Example:
Region M1 M2 M3
East 0 0 3
West 10 20 0
South -5 0 5
North 0 0 0In the above example only North Region row should be hidden from the results becasue all the measures values are zero.
Can someone please let me know the logic to achieve this?
Thank in advance.Hi Karthik,
Your answer was spot on(you are awarded points) but not my question. My client uses some X erp, which removes all zero value records when he clicks to see results. He wanted the same thing for Answers (he does not want to add any filters). Is there anyway to achive that, like using javascript or something?
Thanks in advance. -
How to Hide Row in table view depend on condition
Dear Friends,
Please any one suggest how to do hide some rows in table depend on condtions.
My Issue is :
I have table with binding componant context controller, with in that some rows are no need to disply in my table, I tried to delete that entities from collection wrapper in do_prepare_output. but that entites are perminatly deleted from model node.
how can achive this with out delete entities from model node and hide some rows in table view.
thanks & RegardsHi Andrew,
Please can you explain alobrate, because i wont' found that method in my implimentation and it's table config like follow
<% IF attr->check_consistency( ) eq abap_true. %>
<chtmlb:configTable xml="<%= lv_xml %>"
id="TextList"
navigationMode="BYPAGE"
onRowSelection="select"
table="//Text/Table"
width="100%"
selectedRowIndex="<%=Text->SELECTED_INDEX%>"
selectedRowIndexTable="<%=Text->SELECTION_TAB%>"
selectionMode="<%=Text->SELECTION_MODE%>"
usage="ASSIGNMENTBLOCK"
visibleRowCount="3"/>
<% ENDIF. %>
thanks & Regards
Ganesh -
Hi All,
I'm working on OBIEE 10.1.3.4 version on windows envorinment.
For one of my report am using Greand Total option. for example for grand total its shoeing 20 rows in these i need to hide some of the rows.
How can achieve this, could you pls help me.Hi user,
do you have condition on which to select the rows to be hidden?
what do you exactly mean by hidden... do you mean they should be filtered? In that case you can apply a filter based on the condition.
Please elaborate your requirement..
Regards,
Kiran -
SQL Developer - how to limit rows in output
I want to look at a record (Select * ), but only want to view the first 10 rows, for field info. How do I limit the row output to 10 rows?
Welcome to the forum!
>
I want to look at a record (Select * ), but only want to view the first 10 rows, for field info. How do I limit the row output to 10 rows?
>
What does that have to do with SQL Developer?
You can limit the rows a query returns by using ROWNUM
SELECT * FROM myTable where rownum < 11If you just need column info you can describe the table
SQL> set serveroutput on
SQL> desc dept
Name Null? Type
DEPTNO NOT NULL NUMBER(2)
DNAME VARCHAR2(14)
LOC VARCHAR2(13)
SQL>If you have SQL questions you need to post them in the SQL and PL/SQL forum
PL/SQL -
How to hide row column on condition in report
Hello everyone,
Can its is possible to hide a Column of a row in report.
For one customer i am having Opening Balance n Closing Balance data.....i m breaking my report on customer wise (First Column). So I can see Customer only one time not 5..... now i want to see Opening Balance Data only in first row n Closing Balance Data only in last row.
How can i achieve this, pls help!
regards,
UKJHi,
I have no idea but try this:SELECT SEGMENT1,
VENDOR_NAME,
VENDOR_SITE_CODE,
INVOICE_NUMBER,
INVOICE_DATE,
INVOICE_TYPE_LOOKUP_CODE,
PAY_DATE,
DESCRIPTION,
CHECK_DATE,
CHECK_NUMBER,
VOUCHER_NUM,
SUM(debit) debit,
null credit,
op_bal,
cl_bal
from (
SELECT SEGMENT1,
VENDOR_NAME,
VENDOR_SITE_CODE,
INVOICE_NUMBER,
INVOICE_DATE,
INVOICE_TYPE_LOOKUP_CODE,
PAY_DATE,
DESCRIPTION,
CHECK_DATE,
CHECK_NUMBER,
VOUCHER_NUM,
SUM(debit) debit,
null credit,
op_bal,
cl_bal
row_number () over (partition by VENDOR_NAME order by INVOICE_DATE) rnk
from (
SELECT SEGMENT1,
VENDOR_NAME,
VENDOR_SITE_CODE,
INVOICE_NUMBER,
INVOICE_DATE,
INVOICE_TYPE_LOOKUP_CODE,
PAY_DATE,
DESCRIPTION,
CHECK_DATE,
CHECK_NUMBER,
VOUCHER_NUM,
SUM(debit) debit,
null credit,
op_bal,
cl_bal
FROM (
SELECT POV.SEGMENT1,
POV.VENDOR_NAME,
pov.vendor_id,
POVS.VENDOR_SITE_CODE,
hou.SET_OF_BOOKS_ID,
API.INVOICE_NUM INVOICE_NUMBER,
API.INVOICE_DATE,
API.INVOICE_TYPE_LOOKUP_CODE,
APPL.ACCOUNTING_DATE PAY_DATE,
API.DESCRIPTION DESCRIPTION,
TO_CHAR(APC.CHECK_DATE, 'dd-MON-yyyy') CHECK_DATE,
APC.CHECK_NUMBER,
APC.DOC_SEQUENCE_VALUE VOUCHER_NUM,
API.INVOICE_AMOUNT,appl.amount,
DECODE(API.INVOICE_TYPE_LOOKUP_CODE,'CREDIT',API.INVOICE_AMOUNT ,appl.amount) debit,
null credit,
jai_ap_rpt_apcr_pkg.compute_credit_balance(API.INVOICE_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) cr_amt,
jai_ap_rpt_apcr_pkg.compute_debit_balance(API.INVOICE_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) dr_amt,
jai_ap_rpt_apcr_pkg.compute_credit_balance(:P22_FROM_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) -
jai_ap_rpt_apcr_pkg.compute_debit_balance(:P22_FROM_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) op_bal,
jai_ap_rpt_apcr_pkg.compute_credit_balance(:P22_TO_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) -
jai_ap_rpt_apcr_pkg.compute_debit_balance(:P22_TO_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) cl_bal
FROM AP_INVOICES_ALL API,
AP_INVOICE_LINES_ALL APIL,
AP_INVOICE_DISTRIBUTIONS_ALL APD,
PO_VENDORS POV,
PO_VENDOR_SITES_ALL POVS,
AP_INVOICE_PAYMENTS_ALL APPL,
AP_CHECKS_ALL APC,
hr_operating_units hou
WHERE API.INVOICE_ID = APIL.INVOICE_ID
AND API.INVOICE_ID = APD.INVOICE_ID
AND API.VENDOR_ID = POV.VENDOR_ID
AND API.VENDOR_SITE_ID = POVS.VENDOR_SITE_ID
AND API.INVOICE_ID = APPL.INVOICE_ID
AND APPL.CHECK_ID = APC.CHECK_ID
AND APIL.line_number = apd.invoice_line_number
AND APD.match_status_flag='A'
AND API.org_id=hou.ORGANIZATION_ID
AND APIL.LINE_TYPE_LOOKUP_CODE='ITEM'
AND api.org_id = nvl(:p22_org_id,api.org_id)
AND TRUNC(API.INVOICE_DATE) BETWEEN NVL (:P22_FROM_DATE,API.INVOICE_DATE)AND NVL(:P22_TO_DATE,API.INVOICE_DATE)
GROUP BY SEGMENT1,
VENDOR_NAME,
VENDOR_SITE_CODE,
INVOICE_NUMBER,
INVOICE_DATE,
INVOICE_TYPE_LOOKUP_CODE,
PAY_DATE,
DESCRIPTION,
CHECK_DATE,
CHECK_NUMBER,
VOUCHER_NUM,
op_bal,
cl_bal
UNION
SELECT SEGMENT1,
VENDOR_NAME,
VENDOR_SITE_CODE,
INVOICE_NUMBER,
INVOICE_DATE,
INVOICE_TYPE_LOOKUP_CODE,
PAY_DATE,
DESCRIPTION,
CHECK_DATE,
CHECK_NUMBER,
VOUCHER_NUM,
debit,
SUM(credit) credit,
op_bal,
cl_bal
FROM (
SELECT POV.SEGMENT1,
POV.VENDOR_NAME,
POVS.VENDOR_SITE_CODE,
API.INVOICE_NUM INVOICE_NUMBER,
API.INVOICE_DATE,
API.INVOICE_TYPE_LOOKUP_CODE,
NULL PAY_DATE,
API.DESCRIPTION DESCRIPTION,
NULL CHECK_DATE,
NULL CHECK_NUMBER,
NULL VOUCHER_NUM,
DECODE(API.INVOICE_TYPE_LOOKUP_CODE,'CREDIT',NULL ,abs(API.INVOICE_AMOUNT)) credit,
DECODE(API.INVOICE_TYPE_LOOKUP_CODE,'CREDIT',abs(API.INVOICE_AMOUNT)) DEBIT,
jai_ap_rpt_apcr_pkg.compute_credit_balance(API.INVOICE_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) -
jai_ap_rpt_apcr_pkg.compute_debit_balance(API.INVOICE_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) op_bal,
jai_ap_rpt_apcr_pkg.compute_credit_balance(:P22_TO_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) -
jai_ap_rpt_apcr_pkg.compute_debit_balance(:P22_TO_DATE,pov.vendor_id,hou.SET_OF_BOOKS_ID,povs.VENDOR_SITE_CODE,:p22_org_id) cl_bal
FROM AP_INVOICES_ALL API,
AP_INVOICE_LINES_ALL APIL,
AP_INVOICE_DISTRIBUTIONS_ALL APD,
PO_VENDORS POV,
PO_VENDOR_SITES_ALL POVS,
hr_operating_units hou
WHERE 1=1
and api.org_id=apil.org_id
and API.INVOICE_ID = APIL.INVOICE_ID
AND API.INVOICE_ID = APD.INVOICE_ID
AND API.VENDOR_ID = POV.VENDOR_ID
AND API.VENDOR_SITE_ID = POVS.VENDOR_SITE_ID
and api.org_id =apil.org_id
and api.org_id=hou.ORGANIZATION_ID
and apil.line_number = apd.invoice_line_number
AND apd.match_status_flag='A'
and apil.LINE_TYPE_LOOKUP_CODE='ITEM'
AND api.org_id = nvl(:p22_org_id,api.org_id)
AND TRUNC(APD.ACCOUNTING_DATE) BETWEEN NVL (:P22_FROM_DATE,APD.ACCOUNTING_DATE) AND NVL (:P22_TO_DATE,APD.ACCOUNTING_DATE)
GROUP BY SEGMENT1,
VENDOR_NAME,
VENDOR_SITE_CODE,
INVOICE_NUMBER,
INVOICE_DATE,
INVOICE_TYPE_LOOKUP_CODE,
PAY_DATE,
DEBIT,
CREDIT,
DESCRIPTION,
CHECK_DATE,
CHECK_NUMBER,
VOUCHER_NUM,
op_bal,
cl_bal)
where rnk = 1If it doesn't work as required then alter the line row_number () over (partition by VENDOR_NAME order by INVOICE_DATE) rnk
I've just guessed that you can find a unique record (a persons account) by partitioning by the vendor_name at that point but perhaps you need other things.
Mike -
How to HIde rows based on User Selection
I have a requirement where in I have to hide some rows based on Plant Name selected by USer at the time of opening the report.
Here is the screen shot:-
Here I am seeing two Tag Types MACT and Average when User selects Luling Plant. But When User selects some other Plant I don't want to see Tag Type 'MACT' in this table.
We have a predefine filter for Plant.
How can I achieve that. The data in White Rows is Average values.
Please help.
RegardsHi Shalini,
Is user selecting Plant Name from the report prompt. If Yes, then try below-
Create a variable-
FilterSelect= If UserResponce("WritePromptTextHere") =" Luling Plant" and TagType inList ("MACT";"Average") Then 1 ElseIf UserResponce("WritePromptTextHere") <>" Luling Plant" and TagType inList ("MACT";"Average") Then 3 Else 2
Apply Filter on "FilterSelect" variable-
FilterSelect=1 and 2
~Anuj -
How to hide rows without data or all zero?
Hi.experts:
I have define a query that using query designer,and I have defined structure for both row and column,and then I have a free chatacteristic,such as 0MATERIAL,if I navigate by material then in each row,the material looks like read all the master data and displayed in the result area.
How can I hide these row without data.(or to say all with zero).where to using supress zero etc to avoid this?
Your quick response is highly appreciated!!Thanks in advance.
Best Regards
Martin XieHi,
you have the option of suppress zeroes in the properties of the queries where you can give the option whether you want to supress the rows or columns as well which conatains zeroes.
Thanks
Ajeet -
How to hide rows and columns by AppleScript or Automator for printing
Hello,
I have to hide first empty rows (I do it by: organize - Column B is not empty)
then: By context-menu in Header of Column K: Hide column
and: By context-menu in Header of Column L: Hide column
How can I make this 3 Steps automatic with AppleScript or Automator or maybe by formula?
Thanks for any helpHere is an edited version which allow you to choose the custom template on the fly.
No need to edit a property in the script.
--[SCRIPT printtable(s)_choosecustom]
Enregistrer le script en tant que Script ou Application : printtable(s)_choosecustom.xxx
déplacer le fichier ainsi créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:Applications:Numbers:
Il vous faudra peut-être créer le dossier Numbers et peut-être même le dossier Applications.
Sélectionner une partie de table, une table ou même plusieurs tables.
Aller au menu Scripts , choisir Numbers puis choisir “printtable(s)_choosecustom”
Le script crée un nouveau document depuis un modèle perso sélectionné,
puis applique « Colle les valeurs » au contenu du presse-papiers.
Il envoie enfin la commande d'impression.
--=====
L'aide du Finder explique:
L'Utilitaire AppleScript permet d'activer le Menu des scripts :
Ouvrez l'Utilitaire AppleScript situé dans le dossier Applications/AppleScript.
Cochez la case "Afficher le menu des scripts dans la barre de menus".
Sous 10.6.x,
aller dans le panneau "Général" du dialogue Préférences de l'Éditeur Applescript
puis cocher la case "Afficher le menu des scripts dans la barre des menus".
--=====
Save the script as a Script or an Application : printtable(s)_choosecustom.xxx
Move the newly created file into the folder:
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:Numbers:
Maybe you would have to create the folder Numbers and even the folder Applications by yourself.
Select a subset of a table, a table or even several tables.
Go to the Scripts Menu, choose Numbers, then choose “printtable(s)_choosecustom”
The script create a new document based on the selected custom template,
then apply “Paste Values” to the clipboard's contents.
At last, it issue the print command.
--=====
The Finder's Help explains:
To make the Script menu appear:
Open the AppleScript utility located in Applications/AppleScript.
Select the "Show Script Menu in menu bar" checkbox.
Under 10.6.x,
go to the General panel of AppleScript Editor’s Preferences dialog box
and check the “Show Script menu in menu bar” option.
--=====
Yvan KOENIG (VALLAURIS, France)
2011/02/20
2011/03/16 -- replaced the Blank template by a custom one defined thru the property custom_template
2011/03/17 -- Let choose the custom template, no longer Paste but Paste Values.
--=====
property theApp : "Numbers"
--=====
on run
--my doyourduty()
run script doyourduty
end run
script doyourduty
--on doyourduty()
my activateGUIscripting()
Copy the selected items *)
my raccourci(theApp, "c", "c") (* cmd + c *)
Create a new document based upon Blank.template *)
set myNewDoc to my makeAnIworkDocFromCustom()
As it's a custom template, there is no default table to delete.
Delete the default table *)
tell application "Numbers" to tell document 1 to tell sheet 1 to delete table 1
my selectMenu("Numbers", 4, 8) (* Paste Values *)
my raccourci(theApp, "p", "c") (* cmd + p = Print *)
my raccourci(theApp, return, "") (* return = validate the Print command*)
--end doyourduty
end script
--=====
Creates a new iWork document from a custom template and returns its name.
example:
set myNewDoc to my makeAnIworkDocFromCustom()
on makeAnIworkDocFromCustom()
set nb_chiffres to 3 (*
2 = allow 99 templates
3 = allow 999 templates *)
Grab the localized names of the templates folders *)
tell application "Numbers"
set templates_loc to localized string "Templates"
-- set myTemplates_loc to localized string "My Templates"
end tell -- to application a
Define the path to the folder storing custom templates *)
--set chemindesmodeles to "" & (path to library folder from user domain) & "Application Support:iWork:Numbers:" & templates_loc & ":" & myTemplates_loc & ":"
set chemindesmodeles to "" & (path to library folder from user domain) & "Application Support:iWork:Numbers:" & templates_loc & ":"
Grab the list of every items stored in the folder *)
tell application "Finder"
set entire_contents to entire contents of folder chemindesmodeles
end tell
Build two lists. One contain the path to every custom templates.
The other contain the names of these templates and the names of subfolders *)
set indx to 1
set cheminde_mesmodeles to {}
set nomsde_mesmodeles to {}
set le_conteneur to ""
tell application "System Events"
repeat with i from 1 to count of entire_contents
set un_element to item i of entire_contents as text
try
if type identifier of disk item un_element is in {"com.apple.iwork.numbers.template", "com.apple.iwork.numbers.sfftemplate"} then
if name of container of disk item un_element is not le_conteneur then
set le_conteneur to name of container of disk item un_element
copy (text 1 thru nb_chiffres of "---") & space & le_conteneur to end of nomsde_mesmodeles
end if
copy un_element to end of cheminde_mesmodeles
copy text -nb_chiffres thru -1 of ("00" & indx) & space & name of disk item un_element to end of nomsde_mesmodeles
set indx to indx + 1
end if
end try
end repeat
end tell -- System Events
if my parleAnglais() then
set le_titre to "Numbers’s custom templates"
else
set le_titre to "Modèles personnalisés de Numbers"
end if
Choose the template to use.
If you select a subfolder name, the script beep and ask one more time *)
tell application (path to frontmost application as string)
repeat
set mon_choix to choose from list nomsde_mesmodeles with title le_titre
if mon_choix is false then error number -128
try
set mon_choix to text 1 thru nb_chiffres of (item 1 of mon_choix) as integer
exit repeat
on error
beep 1
end try
end repeat
end tell
tell application "Numbers"
set nb_doc to count of documents
open (item mon_choix of cheminde_mesmodeles)
repeat until (count of documents) > nb_doc
delay 0.1
end repeat
set doc_name to name of document 1
end tell -- the_App
return doc_name
end makeAnIworkDocFromCustom
--=====
on parleAnglais()
local z
try
tell application theApp to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
on activateGUIscripting()
(* to be sure than GUI scripting will be active *)
tell application "System Events"
if not (UI elements enabled) then set (UI elements enabled) to true
end tell
end activateGUIscripting
--=====
==== Uses GUIscripting ====
This handler may be used to 'type' text, invisible characters if the third parameter is an empty string.
It may be used to 'type' keyboard raccourcis if the third parameter describe the required modifier keys.
I changed its name « shortcut » to « raccourci » to get rid of a name conflict in Smile.
on raccourci(a, t, d)
local k
tell application a to activate
tell application "System Events" to tell application process a
set frontmost to true
try
t * 1
if d is "" then
key code t
else if d is "c" then
key code t using {command down}
else if d is "a" then
key code t using {option down}
else if d is "k" then
key code t using {control down}
else if d is "s" then
key code t using {shift down}
else if d is in {"ac", "ca"} then
key code t using {command down, option down}
else if d is in {"as", "sa"} then
key code t using {shift down, option down}
else if d is in {"sc", "cs"} then
key code t using {command down, shift down}
else if d is in {"kc", "ck"} then
key code t using {command down, control down}
else if d is in {"ks", "sk"} then
key code t using {shift down, control down}
else if (d contains "c") and (d contains "s") and d contains "k" then
key code t using {command down, shift down, control down}
else if (d contains "c") and (d contains "s") and d contains "a" then
key code t using {command down, shift down, option down}
end if
on error
repeat with k in t
if d is "" then
keystroke (k as text)
else if d is "c" then
keystroke (k as text) using {command down}
else if d is "a" then
keystroke k using {option down}
else if d is "k" then
keystroke (k as text) using {control down}
else if d is "s" then
keystroke k using {shift down}
else if d is in {"ac", "ca"} then
keystroke (k as text) using {command down, option down}
else if d is in {"as", "sa"} then
keystroke (k as text) using {shift down, option down}
else if d is in {"sc", "cs"} then
keystroke (k as text) using {command down, shift down}
else if d is in {"kc", "ck"} then
keystroke (k as text) using {command down, control down}
else if d is in {"ks", "sk"} then
keystroke (k as text) using {shift down, control down}
else if (d contains "c") and (d contains "s") and d contains "k" then
keystroke (k as text) using {command down, shift down, control down}
else if (d contains "c") and (d contains "s") and d contains "a" then
keystroke (k as text) using {command down, shift down, option down}
end if
end repeat
end try
end tell
end raccourci
--=====
my selectMenu("Numbers",4, 8)
==== Uses GUIscripting ====
on selectMenu(theApp, mt, mi)
tell application theApp
activate
tell application "System Events" to tell process theApp to tell menu bar 1 to ¬
tell menu bar item mt to tell menu 1 to click menu item mi
end tell -- application theApp
end selectMenu
--=====
--[/SCRIPT]
Yvan KOENIG (VALLAURIS, France) jeudi 17 mars 2011 21:29:15 -
Once I create a JTable, how can I hide a specific number of rows during runtime?
Thanks,
Surath.
09/23/2001You program the getValueAt(r, c) method of your table model to return the value you want to appear in that row and column. In your particular example that could mean returning values in row r if r<cutoff and values in row r+n otherwise.
-
REUSE - how to hide row selection indicator
Hi,
I am using fm REUSE_ALV_GRID_DISPLAY , within i have an editable checkbox field.
But in the grid i need to hide the row selection indicator. (ie the square push button appers first column of the gird)
But if i am using REUSE_ALV_LIST_DISPLAY, the row indicator is not appearing?
Any suggestions?
Thanks
aRshi...
here sending u the report i m currently working ( used REUSE_ALV_LIST_DISPLAY and output dont hav the selection tab )
Plz check the FM for merge ALV.
plz send me urs code, so if possible i ll try to fix it.
thank-you
REPORT zrwty_wty_errors .
TYPE
TYPE-POOLS: slis, icon.
Tables
Tables : pnwtyh,
balhdr.
Data Decleration
DATA: text(1000), lv_clmno(40).
Internal table for messages ( Datewise )
DATA: BEGIN OF it_balhdr OCCURS 0,
lognumber TYPE balhdr-lognumber,
log_handle TYPE balhdr-log_handle,
END OF it_balhdr.
Internal table for PNWTYH
DATA: BEGIN OF it_pnwtyh OCCURS 0,
clmno TYPE pnwtyh-clmno,
log_message TYPE pnwtyh-log_message,
END OF it_pnwtyh.
Internal table to fetch the actual text messages
DATA: it_message LIKE balm OCCURS 0 WITH HEADER LINE.
Internal Table to handle the ALV o/p
DATA: BEGIN OF it_grid OCCURS 0,
clmno TYPE pnwtyh-clmno,
chgdat TYPE dats,
icon TYPE icon-id," BALIMSGTY
text(1000),
END OF it_grid.
Field Catelog and layout Decleration
*DATA: it_fieldcat TYPE lvc_t_fcat,
wa_fieldcat TYPE lvc_s_fcat OCCURS 0 WITH HEADER LINE,
x_fieldcat TYPE lvc_s_fcat OCCURS 0 WITH HEADER LINE.
*DATA: x_layout TYPE lvc_s_layo.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv," type slis_fieldcat_alv
wa_fieldcat TYPE slis_fieldcat_alv OCCURS 0 WITH HEADER LINE,
x_layout TYPE slis_layout_alv.
DATA: lv_repid LIKE sy-repid.
have hotspot for a PO.
DATA: s_fieldcat LIKE LINE OF it_fieldcat.
s_fieldcat-hotspot = 'X'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS:
s_aldate FOR balhdr-aldate.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
PARAMETERS : r1 RADIOBUTTON GROUP rg DEFAULT 'X'.
PARAMETERS : r2 RADIOBUTTON GROUP rg .
SELECTION-SCREEN END OF BLOCK b2.
if s_aldate-high = '00000000'.
s_aldate-high = s_aldate-low.
endif.
FM to fetcht he messg no. based on date
CALL FUNCTION 'APPL_LOG_READ_DB'
EXPORTING
object = 'WTY'
subobject = 'CLAIMMSG'
EXTERNAL_NUMBER = ' '
date_from = s_aldate-low
date_to = s_aldate-high
TIME_FROM = '000000'
TIME_TO = '240000'
log_class = '1'
PROGRAM_NAME = '*'
TRANSACTION_CODE = '*'
USER_ID = ' '
MODE = '+'
PUT_INTO_MEMORY = ' '
IMPORTING
NUMBER_OF_LOGS =
TABLES
HEADER_DATA =
HEADER_PARAMETERS =
messages = it_message
MESSAGE_PARAMETERS =
CONTEXTS =
data: zlines type i.
describe table it_message lines zlines.
if it_message[] is initial.
message S398(00) with 'No data found.'.
exit.
endif.
IF radio button ERROR only is selected, Delete others
IF r2 = 'X' .
DELETE it_message WHERE msgty <> 'E'.
ENDIF.
fetch log_handle from BALHDR
SELECT lognumber log_handle FROM balhdr INTO TABLE it_balhdr FOR ALL
ENTRIES IN
it_message WHERE lognumber = it_message-lognumber.
Based on log _handle fetch claim no from PNWTYH
SELECT DISTINCT clmno log_message FROM pnwtyh INTO TABLE it_pnwtyh FOR
ALL ENTRIES IN it_balhdr WHERE log_message = it_balhdr-log_handle.
LOOP AT it_message.
*select single clmno into lv_clmno from pnwtyh as a inner join BALHDR
*as
b on
*aLOG_MESSAGE = bLOG_HANDLE where b~LOGNUMBER = it_message-LOGNUMBER.
READ TABLE it_balhdr WITH KEY lognumber = it_message-lognumber.
IF sy-subrc = 0.
READ TABLE it_pnwtyh WITH KEY log_message = it_balhdr-log_handle.
IF sy-subrc = 0.
lv_clmno = it_pnwtyh-clmno.
ENDIF.
FM to fetch the actual text message
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = it_message-msgid
lang = 'EN'
no = it_message-msgno
v1 = it_message-msgv1
v2 = it_message-msgv2
v3 = it_message-msgv3
v4 = it_message-msgv4
IMPORTING
msg = text
EXCEPTIONS
not_found = 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.
*data: message like BAPIRET2-MESSAGE.
*data: it_text like BAPITGB occurs 0.
*CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'
EXPORTING
id = it_message-msgid
number = it_message-msgno
LANGUAGE = SY-LANGU
textformat = 'RTF'
LINKPATTERN =
MESSAGE_V1 =
MESSAGE_V2 =
MESSAGE_V3 =
MESSAGE_V4 = -
IMPORTING
MESSAGE = message
RETURN =
TABLES
TEXT = it_text
it_grid-clmno = lv_clmno.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = it_grid-clmno
IMPORTING
output = it_grid-clmno.
Local Variable to handle Date Data
DATA: l_tmstp(30) TYPE c,
l_date TYPE sydatum.
WRITE it_message-time_stmp TO l_tmstp LEFT-JUSTIFIED DECIMALS 0
NO-GROUPING.
l_date = l_tmstp(8).
it_grid-chgdat = l_date.
it_grid-text = text.
IF it_message-msgty = 'E'.
it_grid-icon = '@0A@'.
ELSEIF it_message-msgty <> 'E' AND it_message-msgty <> 'S'.
it_grid-icon = '@09@'.
ENDIF.
APPEND it_grid.
CLEAR it_grid.
CLEAR: lv_clmno, it_message, text.
ENDIF.
ENDLOOP.
PERFORM display_alv.
*& Form display_alv
text
--> p1 text
<-- p2 text
FORM display_alv .
PERFORM build_field_catalog.
PERFORM build_layout.
Assign program name to variable
lv_repid = sy-repid.
Call the ALV Grid FM for Display
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = lv_repid
i_grid_title = 'Wty Errors'
is_layout_lvc = x_layout
it_fieldcat_lvc = it_fieldcat
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
TABLES
t_outtab = it_grid[]
EXCEPTIONS
program_error = 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.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
i_callback_program = lv_repid
I_GRID_TITLE = 'Display Messages'
I_CALLBACK_PF_STATUS_SET = ' '
i_callback_user_command = 'USER_COMMAND'
I_STRUCTURE_NAME =
is_layout = x_layout
it_fieldcat = it_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_grid[]
EXCEPTIONS
PROGRAM_ERROR = 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.
ENDFORM. " display_alv
*& Form build_field_catalog
text
--> p1 text
<-- p2 text
FORM build_field_catalog .
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'ICON'.
wa_fieldcat-seltext_l = 'Mssg Type'.
wa_fieldcat-icon = 'X'.
wa_fieldcat-outputlen = 8.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'CHGDAT'.
wa_fieldcat-seltext_l = 'Chg Date'.
wa_fieldcat-outputlen = 10.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 3.
wa_fieldcat-fieldname = 'CLMNO'.
wa_fieldcat-seltext_l = 'Claim No'.
wa_fieldcat-outputlen = 12.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 4.
wa_fieldcat-fieldname = 'TEXT'.
wa_fieldcat-seltext_l = 'Message Text'.
wa_fieldcat-outputlen = 100.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM s_fieldcat TRANSPORTING hotspot
WHERE fieldname = 'CLMNO'.
*CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'ZWTY_ERR'
i_bypassing_buffer = 'X'
CHANGING
ct_fieldcat = it_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 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 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME =
I_INTERNAL_TABNAME =
I_STRUCTURE_NAME = 'ZWTY_ERR'
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = it_fieldcat[]
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 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.
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'ICON'.
wa_fieldcat-seltext_l = 'Mssg Type'.
wa_fieldcat-seltext = 'Mssg Type'.
wa_fieldcat-icon = 'X'.
wa_fieldcat-SCRTEXT_L = 'Mssg Type'.
wa_fieldcat-outputlen = 8.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
fieldname = 'ICON' .
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext icon
*SCRTEXT_L
*WHERE
fieldname = 'ICON' .
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'CHGDAT'.
wa_fieldcat-seltext_l = 'Chg Date'.
wa_fieldcat-seltext = 'Chg Date'.
wa_fieldcat-SCRTEXT_L = 'Chg Date'.
wa_fieldcat-outputlen = 10.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
fieldname = 'CHGDAT' .
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext SCRTEXT_L
*WHERE
fieldname = 'CHGDAT' .
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 3.
wa_fieldcat-fieldname = 'CLMNO'.
wa_fieldcat-seltext_l = 'Claim No'.
wa_fieldcat-outputlen = 12.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 4.
wa_fieldcat-fieldname = 'TEXT'.
wa_fieldcat-seltext_l = 'Message Text'.
wa_fieldcat-seltext = 'Message Text'.
wa_fieldcat-SCRTEXT_L = 'Chg Date'.
wa_fieldcat-outputlen = 100.
wa_fieldcat-tabname = 'IT_GRID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext_l WHERE
fieldname = 'TEXT'.
CLEAR wa_fieldcat.
*MODIFY it_fieldcat FROM wa_fieldcat TRANSPORTING seltext SCRTEXT_L
*WHERE
fieldname = 'TEXT'.
CLEAR wa_fieldcat.
LOOP AT it_fieldcat.
IF it_fieldcat-fieldname = 'CLMTY'.
it_fieldcat-seltext_l = 'ICON'.
it_fieldcat-icon = 'X'.
MODIFY it_fieldcat.
ENDIF.
ENDLOOP.
*Adding the Text to be displayed
x_fieldcat-reptext = 'Claim No.'.
MODIFY it_fieldcat FROM x_fieldcat TRANSPORTING reptext WHERE
fieldname = 'CLMNO' .
CLEAR x_fieldcat.
x_fieldcat-reptext = 'MSG TYPE'.
x_fieldcat-icon = 'X'.
MODIFY it_fieldcat FROM x_fieldcat TRANSPORTING reptext icon WHERE
fieldname = 'CLMTY' .
CLEAR x_fieldcat.
x_fieldcat-reptext = 'Text'.
MODIFY it_fieldcat FROM x_fieldcat TRANSPORTING reptext WHERE
fieldname = 'TEXT' .
CLEAR x_fieldcat.
MODIFY it_fieldcat FROM s_fieldcat TRANSPORTING hotspot
WHERE fieldname = 'CLMNO'.
ENDFORM. " build_field_catalog
*& Form Build_layout
text
--> p1 text
<-- p2 text
FORM build_layout .
CLEAR x_layout.
x_layout-colwidth_optimize = 'X'.
x_layout-zebra = 'X'.
ENDFORM. " Build_layout
FORM display_detail *
--> UCOMM *
--> SELFIELD *
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
IF ucomm = '&IC1'.
READ TABLE it_grid INDEX selfield-tabindex.
*IF sy-subrc = 0.
*SET PARAMETER ID 'CLMNO' FIELD it_grid-clmno.
*CALL TRANSACTION 'ZWTY' AND SKIP FIRST SCREEN.
*ENDIF.
IF sy-subrc EQ 0.
SET PARAMETER ID 'CLMNO' FIELD it_grid-clmno.
CALL TRANSACTION 'WTY' AND SKIP FIRST SCREEN.
ENDIF.
IF sy-subrc EQ 0.
CALL 'WTY' FOR SELECTED CLAIM
CALL FUNCTION 'ZWTY_CLAIM_DISPLAY'
EXPORTING
i_clmno = it_grid-clmno
iv_from_doc = 'J'
EXCEPTIONS
not_found = 1
authority_failed = 2
no_claimtype = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. "user_command
regards
vinsee
Maybe you are looking for
-
How can I book an employee for a training program from PD?
HI One and All, Hope all of you Doing well... I configured Personal Development and Training Event Management. When I go for Profile Match-up, I found that One employee is lack-off some skills. I have a training program to fill those skills. How can
-
Which Universal printing driver do I use for HP color laserJet 2605dn with Windows 7 64-bit?
No error message, just can't get it to install
-
How to define a pdf - filename in reports 6i
good morning programmers, first i want to excuse me for my not very good englisch. i4m a german programmer and i have a little problem. i wrote a report for printing quotations / offers. the user has the option to print or to send an e-mail with pdf-
-
Mac Pro to Epson Stylus NX420 printing issue
I have not been able to print from my Mac to my Epson printer. Network status on printer report shows everything passed (password, wireless network name, communication mode check, etc.) yet when I try to print, message I receive is "printer not conne
-
Having trouble getting "date received" to display in my email inbox
I'm only getting "Today" or "Yesterday" to display in both my "Date Sent" and "Date Received" inbox columns. I've gone into "View" in the menu bar, selected "Columns" and checked both "Date Sent" and "Date Received" and am still only getting "Today a