Getting a form item to load first in target page
according to ben forta who i met many years ago, cf loads the complete page and then does functions in a particular order. i.e. includes, queries, etc.
my problem is that i am sending over a unique identifer in the formset that is needed in an include on each page of my cart (i don't use cookies or sessions and don't want to get into that).
what i want to know is if there is a way to force cf 10 to look at form. items first. the page needs that number or the include (header.cfm) crashes.
i also have that issue with cfabort where cf does a lot of functions before it recognizes that tag which can really foul up things if a variable isn't there.
site needs to be pci compliant
tnx in advance,
I receive no errors as stated in the original post.
Eventually the webpage does load, but it takes 2 minutes for anything to start happening.
During that time, the program is responsive, but displays no errors or status messages.
This happened in Firefox version 6, as it did for the other poster in this thread.
Similar Messages
-
Dear All,
i would like to create a procedure to retrieve the form items and save it into a table.
i.e:
create procedure retrieve_form_item( form_name in varchar2)
begin
code..........................
for loop
insert into table t1
values( block_name.item_name);
end;
end procedure;
and i will send the fmb to the procedure to call the form and then do the processing to get all the informations i need
thanks allExample:
PROCEDURE data_insert IS
fm_id formmodule;
bk_id BLOCK;
bk_name VARCHAR2(200);
item_id item;
item_name VARCHAR2(200);
item_value varchar2(2000);
item_type1 varchar2(200);
lv_retcode VARCHAR2(1);
lv_errmsg VARCHAR2(2000);
BEGIN
fm_id := Find_Form(NAME_IN('System.current_Form'));
bk_name := Get_Form_Property(fm_id,FIRST_BLOCK);
WHILE bk_name IS NOT NULL LOOP
bk_id := Find_Block(bk_name);
item_name := get_block_property(bk_id,first_item);
WHILE item_name IS NOT NULL LOOP
insert into table2 values ......
item_id := find_item(bk_name || '.' || item_name); -- this important,if you have same name item2, please : blockname.item_name
item_name := get_item_property(item_id,nextitem);
END LOOP;
bk_name := Get_Block_Property(bk_id, NEXTBLOCK);
END LOOP;
END data_insert;
Message was edited by:
DanielLiang -
How can I get a video clup to load last on my page?
Since the entire page is trying to load at once, the quicktime file slows up everything else. If I set it to autoplay it will start playing before the page finishes loading...
Is there a way I can go into the html file and change the order of how things load and make the video clip load last? thanks
you can check out my site at:
http://PrimitiveGroove.com
thank you!
Hunter S.well, it finishes loading last... b/c it is the biggest file. On some of my other pages the video is 8meg-12meg big and really slows up the load time.
I have no problem with the length of time that it take the video to load, I just want it to load last so that the rest of the page loads first... As the large quicktime file slows up the loading of the entire page..
What happens is that on autoplay it starts to play before the rest of the page is finished loading and looks crummy with all the lame iweb graphic squares on the page as it plays.
So once again is there a way to get it to load last? -
How do I get a form to redirect to a thank you page CS4
I have the form working using the server
provided script:
<form method=post action="http://www.iinet.net.au/bin/mail">
<input type=hidden name="destination" value="[email protected]">
But the result on submission has the email going to the right place but I want to replace the host server standard page with my thankyou.php page.
The host instructions (https://iihelp.iinet.net.au/Homepage_mail-handler_script#toc_3) refer to mailhandler fields - specifically
Resultpage
A URL to a page that the client should see once the form is completed. If omitted a standard page will appear saying the form has been submitted
What is this and what is the script I need to add into my dreamweaver cs4 source code in the feedback page and where abouts do I insert it so I still get the email containing the form contents and the user gets a thankyou page?
CheersHi Bob
I downloaded the free DIY script but have no idea which bit I need to use to add to what I have made in Dreamweaver - it looks like this is an alternative form but I only need the piece of script to add to mine to onsubmitform call up a thankyou page.
Apologies I don't code I dont even use dreamweaver other than this specific situation and I rely on the DW help which has me asking the forum for the script as anything outside of adobe instruction do a then be = c or cut and paste x in this spot to do Y is probably out of my depth.
If I really knew what I was doing then the tectite site would be great but if their formmail has the capability as they describe below how do I get DreamWeaver forms to have the same redirect the user capability?
Or am I expecting to much from DW? If DW cannot do this then I will accept that the server default page is it (as crude as it looks)- at least the end result is success.
I do appreciate your time on this - Cheers
below is extract from tectite site on Redirecting the User
This How-To guide explains how to redirect the user to a custom URL after they've submitted your form.
Redirecting the User
All versions of FormMail display a default page to the user if you don't specify something else.
There are two possible outcomes to a user's form submission:
Success; or,
Failure (I do not need this for DW as it is already validated before submit form)
Static Pages
In the case of a successful form submission, FormMail defaults to a generic "Thank you" page. In the case of a failed form submission, FormMail defaults to a generic error page.
You can choose a different page by specifying a URL with "good_url" and "bad_url" fields, for success, and failure, respectively.
Like this:
<input type="hidden" name="good_url" value="http://yoursite.com/thanks.htm" />
<input type="hidden" name="bad_url" value="http://yoursite.com/error.htm" />
These are hidden fields that you add to your HTML form. You don't need to change the PHP code in FormMail to get redirection to work.
Template Pages
The "good_url" feature provides you with a static results page. If you'd like to show some of the information the user submitted, you can use a field called "good_template".
To do this, you need to set the TEMPLATEDIR or TEMPLATEURL setting in FormMail's configuration. Also, download the Sample Good Template and read the instructions in there.
There's a similar feature for error handling called "bad_template". However, error handling is more complicated so we've provided a separate HOW TO guide on Advanced Error Handling. -
How to get a form parameter and refresh the web web page itself?
I thought its easy as a piece of cake. But what I found out is that somehow it is getting the parameter after the web page is refreshed!
Any advice is greatly appreciated. Thanks!
for navigation method
//navigation method
public Object refresh()
return Navigation.HOME;
}for web page
<h:commandLink value="Regenerate resutls" action="#{bean.refresh}">
<f:param name="algorithm" value="#{HomeMBean.algorithm}"/>
</h:commandLink>What I am trying to say here is:
for a web page, I want to refresh the web page based on a parameter chosen by users,
In web page:
<h:commandLink value="Regenerate resutls" action="#{bean.refresh}">
<f:param name="algorithm" value="#{HomeMBean.algorithm}"/>
</h:commandLink>in managed bean:
//navigation method
public Object refresh()
return Navigation.HOME;
}also in managed bean:
String algorithm = FacesContext.getCurrentInstance().
getExternalContext().getRequestParameterMap().get("algorithm");
logger.debug("parameter="+algorithm);What I observed is I will never get the parameter "algorithm" before the web page is refreshed. In other words, the method setAlgorithm() is always called after the web page is rendered.
I in fact want to render the web page based on the parameter "algorithm".
I spent quite a lot time on it but can't figure out why.
My guess is for managed beans, I can't rely on one property to generate another property, is that right?
How should I solve this problem? Thanks a million! -
How do I get a image to load first on website?
Not sure if this is possible, but I have created a website
and I have a image as the background. The only problem is that all
the other iamges load up before the background. How can I get the
background image to load first (so the viewer, when visiting the
site for the first time, sees the background image first) before
the other images load? Is this possible?> Not sure if this is possible, but I have created a
website and I have a
> image
> as the background. The only problem is that all the
other iamges load up
> before
> the background. How can I get the background image to
load first (so the
> viewer, when visiting the site for the first time, sees
the background
> image
> first) before the other images load? Is this possible?
Possible? Probably. Practical? No. Necessary? No.
I'd suggest making your background COLOR a tone that reflects
the image to
some extent. Then, make sure you REALLY compress that
background image.
-Darrel -
Portal form custom button to call new portal page
Portal 3.0.9
I can create a portal form componment which sets session variables appropriately based on a custom button. I can get a 2nd component such as a report to read this session variable ok as long as it on the SAME portal page.
However, how do I get the form (exposed as a portlet on a page) to call A DIFFERENT Portal page which contains a number of application components reading the previously set session variable? I do not want to call the module directly as it will appear in a popup window.
I've tried using owa_util.redirect_url('page url'); but this gets ignored and the same page is refreshed.
Any ideas?
JohnHi,
You can call the new page in the success procedure of the form
example
declare
l_url varchar2(2000);
begin
l_url := 'cut and paste the page link from the navigator';
go(l_url);
end;
Thanks,
Sharmila -
Hello everyone,
I have a form that I loaded from a xml file created on Screen Painter.
In my Item Event FORM_LOAD, I need to get it's items. I get the form with success, but the items count is always 0.
Does anynoe has an idea why this is happening?When You load a form from XML all items are added after FORM_LOAD. That's why You don't have items frm.Items collection.
You should acces to item just after vApp.Forms.AddEx(... YourNewFormCreationParameters ...).
Dim fcp As SAPbouiCOM.FormCreationParams = vApp.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
fcp.XmlData = My.Computer.FileSystem.ReadAllText("myNEwForm.srf"))
Dim nFrm As SAPbouiCOM.Form = vApp.Forms.AddEx(fcp)
nFrm.Items.Item("YourNewItemUID"). .....
If You want to acces to items after Form_load You can use GOT_FOCUS Event (only if You have at least one editable item on this Form). BeforeAction should be False
Public catchGF As Boolean = False
Private Sub vApp_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles vApp.ItemEvent
If pVal.FormTypeEx = "myNewFormUID" Then
If pval.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD And pval.BeforeAction Then
catchGF = True
End If
If pval.EventType = SAPbouiCOM.BoEventTypes.et_GOT_FOCUS And catchGF And Not pval.BeforeAction Then
'Now You can acces to your Item
catchGF = False
End If
End If -
Using Mac OSX 10.7.1: recently replaced our DSL modum and wireless router, suddenly I can't get some web sites to load. Many do, but Twitter and others often do not. I've reset the browsing history, forms, cookies and cache but it continues to happen.
Ok, first thing, why are you doing anything with WAMP or XAMPP when you're running a Mac? MAMP should be what you want unless you're not explaining part of what you are trying to do.
2nd thing, I haven't used MAMP in a while, but there are two possibilities for not seeing what you want to see once you have MAMP turned on. One possibility is that you already have "Web Sharing" turned on in your Sharing Preference Pane. If that is the case, port 80 will already be taken and you'll be seeing the default Apache install (files are stored at /Library/WebServer/Documents/). This would push MAMP to either not turn on it's web serving capabilities, or to push it to another port. The other possibility is that MAMP defaults to another port anyway. So instead of localhost, you might have to type in localhost:8080 or something similar. I believe the control panel that gets installed can take you to the currently MAMP-served page, and it can also help you change which port your serving on.
80 is the default port for web serving and the ONLY port that will let you get straight to the server without having to type in webaddress.com:port# instead of just webaddress.com. -
Portal page missing forms in browser on first load.
I have a number of portlets containing forms. Upon loading the page for the first time using IE5.5 only some of the forms will appear. If I hit the refresh button then they all show up.
Any help would be greatly appreciated.
NT4.0 SP6
Portal 3.0.7Thomas,
Please check the Bug # 1720357 to see if that's the case. This bug was filed agianst 3.0.8 and fixed in 3.0.9.
Thanks,
Dmitry -
Problem with existing script, can't get text of item
I'm taking an earlier script and condensing it so that it will only work from one SELECTED folder. I thought it would be simple but i seam to be running into a few issues
This is the error I get
Result:
error "Can’t get last text item of alias \"Images:2012-2013:WK21:Freedom:Freedom_WK21_PSD:\"." number -1728 from last text item of alias "Images:2012-2013:WK21:Freedom:Freedom_WK21_PSD:"
property type_list : {"8BPS"}
property extension_list : {"psd"}
script o
property theseNames : {}
end script
-- empty log file
do shell script "echo 'Files not processed in Photoshop :' > ~/Desktop/LogPhotoshopError.txt"
set noError to true
--at the beginning of the script, ask whether to replace or skip existing files? to apply to all?
--use the result for the if file exists?
display dialog "Should I replace or skip exisiting files?" buttons {"Replace", "Skip (Faster)"} default button 2 with icon 1
set skipFiles to (button returned of the result) is "Skip (Faster)"
--Below is what I removed
--set dtF to paragraphs of (do shell script "ls -F ~/Desktop | grep '/' | cut -d'/' -f1")
--set tc to (count dtF)
--repeat with i from 1 to tc
-- set folderName to item i of dtF --<: is the folder name, no need to use text item delimiters -->":"
-- if folderName does not start with "2_" and folderName does not start with "Hot" and folderName does not start with "Press" and folderName does --not start with "Design" and folderName does not start with "Keywords" and folderName does not start with "Season" and folderName does not
--start with "Sue" and folderName does not start with "Design" then
--Setup list of folders and process details of folders
tell application "Finder" to set folderName to (choose folder with prompt "Select Folder")
set {oldTID, my text item delimiters} to {my text item delimiters, "_WK"}
set FolderEndName to last text item of folderName
set brandName to first text item of folderName
set my text item delimiters to "_PSD"
set weekNumber to first text item of FolderEndName
set my text item delimiters to oldTID
set theFolder to ("Hal 9000:Users:matthew:Desktop:" & folderName)
--set up names to destination folders and create locally based on brand name and week number
set this_local_folder to "Images:2012-2013"
set localWeekFolder to my getFolderPath("WK" & weekNumber, this_local_folder)
set localBrandFolder to my getFolderPath(brandName, localWeekFolder)
set localBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", localBrandFolder)
set localBrandFolder_High_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_HR", localBrandFolder)
set localBrandFolder_PSD to my getFolderPath(brandName & "_WK" & weekNumber & "_PSD", localBrandFolder)
set this_Network_folder to "DCKGEN:Brands:Zoom:Brand - Zoom:Upload Photos:2013:"
set networkWeekFolder to my getFolderPath("Week" & weekNumber, this_Network_folder)
set networkBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", networkWeekFolder)
set website_images to "DCKGEN:Website_Images:"
--set up names to destination folders and create over Netwrok for FTP collection (based on a mounted drive)
set this_ftp_folder to "Impulse:"
set ftpWeekFolder to my getFolderPath("Week" & weekNumber, this_ftp_folder)
set ftpBrandFolder to my getFolderPath(brandName, ftpWeekFolder)
set ftpBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", ftpBrandFolder)
set ftpBrandFolder_High_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_HR", ftpBrandFolder)
--taking the folder identify which process it must follow. F R E E D O M W I T H P N G
if brandName is equal to "Freedom" then
try
tell application "Finder" to set o's theseNames to (name of files of alias theFolder whose file type is in the type_list or name extension is in the extension_list)
on error
set o's theseNames to {} -- no psd files or "8BPS"
end try
set numOfNames to (count o's theseNames)
repeat with j from 1 to numOfNames
set thefile to theFolder & ":" & (item j of o's theseNames)
-- F R E E D O M Folder Photoshop Process W I T H P N G
set thisName to (item j of o's theseNames)
tell application "Finder"
set t_ext to name extension of file thefile
if t_ext is not "" then set thisName to text 1 thru -((count t_ext) + 2) of thisName
set b to exists file (localBrandFolder_PSD & thisName & ".psd")
end tell
if not b or (b and not skipFiles) then -- not exists file or file exists and "replace" (continue the rest of the script).
tell application "Adobe Photoshop CS5.1"
-- I remove the command activate, Photoshop stay in background
set ruler units of settings to pixel units
try
open (alias thefile) showing dialogs never
set origName to name of current document
set myOptions to {class:JPEG save options, quality:12}
set myPNGOptions to {class:PNG save options, interlaced:false}
set myPSDOptions to {class:Photoshop save options, embed color profile:true, save layers:true}
tell current document
--If the quick mask mode has been left on then delete the channel Quick Mask
if (quick mask mode) then delete channel ¬
"Quick Mask"
--If the Layer is incorrectly labeled with Original Layer it needs renaming to original Image
if (exists layer "Original Layer") then ¬
tell layer "Original Layer" to set name to "Original Image"
save in (localBrandFolder_PSD & origName) as Photoshop format with options myPSDOptions without copying
(delete layer "Original Image") flatten
resize image resolution 300 resample method none
--sharpen image
filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
save in (ftpBrandFolder_High_Res & name) as JPEG with options myOptions without copying
--Prepare for Low RES by resetting image history
set current history state to history state 3
delete current layer
merge visible layers
resize image width 1020
resize image resolution 300 resample method none
filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
--add save to lowResFolder with same options
save in (networkBrandFolder_Low_Res & name) as PNG with options myPNGOptions without copying
flatten
save in (networkBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
set newFile to file path
set newFile2 to newFile as string -- for testing end of name
if newFile2 ends with "_2.jpg" or newFile2 ends with "_3.jpg" or newFile2 ends with "_4.jpg" or newFile2 ends with "_5.jpg" or newFile2 ends with "_6.jpg" or newFile2 ends with "_7.jpg" or newFile2 ends with "_8.jpg" or newFile2 ends with "_9.jpg" or newFile2 ends with "_10.jpg" or newFile2 ends with "11.jpg" then -- exclude website_images
my duplicateFile(newFile, {ftpBrandFolder_Low_Res})
else
save in (website_images & name) as JPEG with options myOptions without copying
end if
close saving no
end tell
on error
set noError to false
my myLogs(thefile) -- write path to log file in Desktop
try
close saving no --if exists, close current document
end try
end try
end tell
end if
end repeat
--End F R E E D O M W I T H P N G
end if
if not noError then do shell script "/usr/bin/open ~/Desktop/LogPhotoshopError.txt'"
on myLogs(t)
try
do shell script "echo " & (quoted form of t) & ">> ~/Desktop/LogPhotoshopError.txt'"
end try
end myLogs
on duplicateFile(tFile, foldersPath) -- tFile is an alias, foldersPath is a list of folder
tell application "Finder" to repeat with folderPath in foldersPath
with timeout of 200 seconds -- adjust it, error if the copy is longer that 200 seconds
duplicate tFile to folder folderPath with replacing
end timeout
end repeat
end duplicateFile
on getFolderPath(tName, folderPath)
tell application "Finder" to tell folder folderPath
if not (exists folder tName) then
return (make new folder at it with properties {name:tName}) as string
else
return (folder tName) as string
end if
end tell
end getFolderPath
tell application "Finder"
open "Hal 9000:Users:matthew:Desktop:LogPhotoshopError.txt"
end tellI'm getting close or at least I hope this is how it looks now, but appears not pick up the files in the folder?
The result
exists folder "Freedom_WK20_HR" of folder "impulse:Week20:Freedom:"
get folder "Freedom_WK20_HR" of folder "impulse:Week20:Freedom:"
get name of every file of alias (alias "Images:2012-2013:WK20:Freedom:Freedom_WK20_PSD:") whose {"8BPS"} contains file type or {"psd"} contains name extension
open "Hal 9000:Users:matthew:Desktop:LogPhotoshopError.txt"
end tell
--------------------MAIN SCRIPT BELOW__------------------
property type_list : {"8BPS"}
property extension_list : {"psd"}
script o
property theseNames : {}
end script
-- empty log file
do shell script "echo 'Files not processed in Photoshop :' > ~/Desktop/LogPhotoshopError.txt"
set noError to true
--at the beginning of the script, ask whether to replace or skip existing files? to apply to all?
--use the result for the if file exists?
display dialog "Should I replace or skip exisiting files?" buttons {"Replace", "Skip (Faster)"} default button 2 with icon 1
set skipFiles to (button returned of the result) is "Skip (Faster)"
--Setup list of folders and process details of folders
tell application "Finder"
set theFolder to (choose folder with prompt "Select Folder")
set folderName to name of theFolder
set {oldTID, my text item delimiters} to {my text item delimiters, "_WK"}
set FolderEndName to last text item of folderName
set brandName to first text item of folderName
set my text item delimiters to "_PSD"
set weekNumber to first text item of FolderEndName
set my text item delimiters to oldTID
--set up names to destination folders and create locally based on brand name and week number
set this_local_folder to "Images:2012-2013"
set localWeekFolder to my getFolderPath("WK" & weekNumber, this_local_folder)
set localBrandFolder to my getFolderPath(brandName, localWeekFolder)
set localBrandFolder_PSD to my getFolderPath(brandName & "_WK" & weekNumber & "_PSD", localBrandFolder)
set this_Network_folder to "DCKGEN:Brands:Zoom:Brand - Zoom:Upload Photos:2013:"
set networkWeekFolder to my getFolderPath("Week" & weekNumber, this_Network_folder)
set networkBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", networkWeekFolder)
set website_images to "DCKGEN:Website_Images:"
--set up names to destination folders and create over Netwrok for FTP collection (based on a mounted drive)
set this_ftp_folder to "Impulse:"
set ftpWeekFolder to my getFolderPath("Week" & weekNumber, this_ftp_folder)
set ftpBrandFolder to my getFolderPath(brandName, ftpWeekFolder)
set ftpBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", ftpBrandFolder)
set ftpBrandFolder_High_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_HR", ftpBrandFolder)
--taking the folder identify which process it must follow.
if brandName is equal to "BHS" then
try
tell application "Finder" to set o's theseNames to (name of files of alias theFolder whose file type is in the type_list or name extension is in the extension_list)
on error
set o's theseNames to {} -- no psd files or "8BPS"
end try
set numOfNames to (count o's theseNames)
repeat with j from 1 to numOfNames
set thefile to theFolder & ":" & (item j of o's theseNames)
-- B H S Folder Photoshop Process
set thisName to (item j of o's theseNames)
tell application "Finder"
set t_ext to name extension of file thefile
if t_ext is not "" then set thisName to text 1 thru -((count t_ext) + 2) of thisName
set b to exists file (localBrandFolder_PSD & thisName & ".psd")
end tell
if not b or (b and not skipFiles) then -- not exists file or file exists and "replace" (continue the rest of the script).
tell application "Adobe Photoshop CS5.1"
-- I remove the command activate, Photoshop stay in background
set ruler units of settings to pixel units
try
open (alias thefile) showing dialogs never
set origName to name of current document
set myOptions to {class:JPEG save options, quality:12}
set myPSDOptions to {class:Photoshop save options, embed color profile:true, save layers:true}
tell current document
--If the quick mask mode has been left on then delete the channel Quick Mask
if (quick mask mode) then delete channel ¬
"Quick Mask"
--If the Layer is incorrectly labeled with Original Layer it needs renaming to original Image
if (exists layer "Original Layer") then ¬
tell layer "Original Layer" to set name to "Original Image"
save in (localBrandFolder_PSD & origName) as Photoshop format with options myPSDOptions without copying
(delete layer "Original Image") flatten
resize image resolution 300 resample method none
--sharpen image
filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
save in (ftpBrandFolder_High_Res & name) as JPEG with options myOptions without copying
--Prepare for Low RES by resetting image history
set current history state to history state 3
flatten
resize image width 1348
resize image resolution 300 resample method none
filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
--add save to lowResFolder with same options
save in (networkBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
set newFile to file path
set newFile2 to newFile as string -- for testing end of name
if newFile2 ends with "_2.jpg" or newFile2 ends with "_3.jpg" or newFile2 ends with "_4.jpg" or newFile2 ends with "_5.jpg" or newFile2 ends with "_6.jpg" or newFile2 ends with "_7.jpg" or newFile2 ends with "_8.jpg" or newFile2 ends with "_9.jpg" or newFile2 ends with "_10.jpg" or newFile2 ends with "11.jpg" then -- exclude website_images
my duplicateFile(newFile, {ftpBrandFolder_Low_Res})
else
my duplicateFile(newFile, {ftpBrandFolder_Low_Res, website_images})
end if
close saving no
end tell
on error
set noError to false
my myLogs(thefile) -- write path to log file in Desktop
try
close saving no --if exists, close current document
end try
end try
end tell
end if
end repeat
--End BHS
--taking the folder identify which process it must follow. B U R T O N
else if brandName is equal to "Burton" then
try
tell application "Finder" to set o's theseNames to (name of files of alias theFolder whose file type is in the type_list or name extension is in the extension_list)
on error
set o's theseNames to {} -- no psd files or "8BPS"
end try
set numOfNames to (count o's theseNames)
repeat with j from 1 to numOfNames
set thefile to theFolder & ":" & (item j of o's theseNames)
-- B U R T O N Folder Photoshop Process
set thisName to (item j of o's theseNames)
tell application "Finder"
set t_ext to name extension of file thefile
if t_ext is not "" then set thisName to text 1 thru -((count t_ext) + 2) of thisName
set b to exists file (localBrandFolder_PSD & thisName & ".psd")
end tell
if not b or (b and not skipFiles) then -- not exists file or file exists and "replace" (continue the rest of the script).
tell application "Adobe Photoshop CS5.1"
-- I remove the command activate, Photoshop stay in background
set ruler units of settings to pixel units
try
open (alias thefile) showing dialogs never
set origName to name of current document
set myOptions to {class:JPEG save options, quality:12}
set myPSDOptions to {class:Photoshop save options, embed color profile:true, save layers:true}
tell current document
--If the quick mask mode has been left on then delete the channel Quick Mask
if (quick mask mode) then delete channel ¬
"Quick Mask"
--If the Layer is incorrectly labeled with Original Layer it needs renaming to original Image
if (exists layer "Original Layer") then ¬
tell layer "Original Layer" to set name to "Original Image"
save in (localBrandFolder_PSD & origName) as Photoshop format with options myPSDOptions without copying
(delete layer "Original Image") flatten
resize image resolution 300 resample method none
--sharpen image
filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
save in (ftpBrandFolder_High_Res & name) as JPEG with options myOptions without copying
--Prepare for Low RES by resetting image history
set current history state to history state 3
flatten
resize image width 1020
resize image resolution 300 resample method none
filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
--add save to lowResFolder with same options
save in (networkBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
set newFile to file path
set newFile2 to newFile as string -- for testing end of name
if newFile2 ends with "_2.jpg" or newFile2 ends with "_3.jpg" or newFile2 ends with "_4.jpg" or newFile2 ends with "_5.jpg" or newFile2 ends with "_6.jpg" or newFile2 ends with "_7.jpg" or newFile2 ends with "_8.jpg" or newFile2 ends with "_9.jpg" or newFile2 ends with "_10.jpg" or newFile2 ends with "11.jpg" then -- exclude website_images
my duplicateFile(newFile, {ftpBrandFolder_Low_Res})
else
my duplicateFile(newFile, {ftpBrandFolder_Low_Res, website_images})
end if
close saving no
end tell
on error
set noError to -
How to identify listeners types for forms, items and events in addon wizard
Dear users,
I have developed a sample addon through B1DE wizards and successfully installed and connected the addon and can view menu and form of my addon. Since i am new to this, i didn't add any listeners to my form, items and events because i don't know what type of listeners to add and what coding to add after adding listeners.
If anyone describe me how to work with listeners, i would be glad. My form has basic fields like BPcode, BPname, Docnum, Itemcode, Item name, quanity, price, total etc. Uptil now my addon form has no function of getting list of BP and Items and calculating the totals based on price and quantity but it has some basic functions like add, update,del, add print view, next record previous, record next etc. which are due to object registration and auto-code generation wizards i think.
Please help me in adding listeners and their relevant coding.
Thanks in advance.Thanks for reply, Actually I am asking about listeners in the wizard of B1DE, code generator wizard. I think you are telling me about adding listeners directly in the vb.net. Kindly, tell me first, what event type I should add for item, form etc while adding listeners during the wizard. Or If you know some link where event types of listeners are decribed, you are more than welcome.
Thanks,
Farhan -
How to fetch the value of tabular form item in javascript
Hello all
I want to do some calculations on the value entered by the user in the textfield of a tabular form, how can I fetch the value of tabular form item in the javascript?
I am using normal tabular form, not using apex_item tabular form.
I can pass the current textfield value to the function using "this" as a parameter, but how can I fetch the value of other rows of that same column?
Thanks
TauceefHi Alistair
jQuery is still not working, but I got it done through some other means, this is the code:
function total(pThis){
var l_Row = html_CascadeUpTill(pThis,'TR');
var l_Table = l_Row.parentNode;
var l_Row_next = l_Row;
var n_rows = l_Table.rows;
var lInputs;
var v1;
var sum = 0.0;
var temp;
var i = 0;
var j = 0;
//alert(n_rows.length);
while(j < (n_rows.length - 1))
temp = 0;
if(l_Row_next != null){
lInputs = html_Return_Form_Items(l_Row_next,'TEXT');
v1 = lInputs[0].value;
//alert(v1);
sum = parseFloat(sum) + parseFloat(v1);
l_Row_next = l_Row_next.nextSibling;
temp = 1;
if(temp == 0){
l_Row_next = l_Table.getElementsByTagName('TR')[1];
lInputs = html_Return_Form_Items(l_Row_next,'TEXT');
v1 = lInputs[0].value;
sum = parseFloat(sum) + parseFloat(v1);
l_Row_next = l_Row_next.nextSibling;
j= j+1;
$x('P78_TOTAL').value= parseFloat(sum);
I am calling this function onblur event of the textfield.
Still I am having one problem, I want to perform this calculation on load of the page also, how can I do that? because while calling onblur of the textfield I can pass that textfield to this function but on onLoad how I will pass the textfield to call this function so that I will be able to get the textfield value in the function?
there may be some rows already existing, so I want the total of the existing rows to be displayed in my P78_TOTAL textfield that is why I need to do this calculation on onLoad of the page.
Thanks
Tauceef
Edited by: Tauceef on Jul 8, 2010 4:57 AM -
hello every one,
i've a problem. I load my form ( created by screen scraper) after the click of a button created by me.
But when i open it once when i click the button. I want to open this form every time I click the button. How can I make it? thanks
If pVal.ItemUID = "button1" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK And pVal.Before_Action = True Then
CreateForm()
end if
Private Sub CreateForm()
'//load form created by Screen Painter
Dim oXmlDoc As MSXML2.DOMDocument
oXmlDoc = New MSXML2.DOMDocument
If Not (oXmlDoc.load("C:\Documents and Settings\neos\Desktop\Demo\primo_form.srf")) Then
MsgBox("Error Loading xml")
End If
SBO_Application.LoadBatchActions(oXmlDoc.xml)
oForm = SBO_Application.Forms.ActiveForm
'//support Settings feature for grid/matrix
'//Add condition to the CFL bound to the button
End SubYou cannot load the exact same XML file over and over, since it has the same unique ID.
You will need to modify the unique ID property of the form, before you load it.
Here's the function i've written to open XML forms:
Function SBO_Load_XML_Form(ByVal FileName As String, ByVal Title As String) As SAPbouiCOM.Form
Dim XmlDoc As New Xml.XmlDocument
Dim Form As SAPbouiCOM.Form
Dim Form_UID As String = Settings("FormsUniqueIDPrefix").ToString & Settings("Form_Counter").ToString
Try
XmlDoc.Load(FileName) ' Get the XML code from the .xml file specified
XmlDoc.SelectSingleNode("Application/forms/action/form/@uid").Value = Form_UID
XmlDoc.SelectSingleNode("Application/forms/action/form/@title").Value = Title
SBO_UI.LoadBatchActions(XmlDoc.InnerXml) ' Load the form to the SBO application
Form = SBO_UI.Forms.Item(Form_UID) ' Get the form's object by its unique ID
selected
Form.Left = (SBO_UI.Desktop.Width - Form.Width) 2
Form.Top = (SBO_UI.Desktop.Height - Form.Height) 2
Catch ex As Exception
Msg(ex.Message)
Form = Nothing
Finally
Settings("Form_Counter") = CInt(Settings("Form_Counter")) + 1 ' Increase the form counter, to support the forms' unique ID
End Try
Return Form
End Function
For the smooth handling of the unique form IDs (and for other stuff) I use a 'settings' hashtable, defined like this:
' Hash for keeping general settings
Public Settings As New System.Collections.Hashtable
' somewhere in the code, in the initialization functions, i've put the code below.
' this code makes the form unique ID to prevail even if some forms load badly
' and even if you stopped your addon and restarted it while some of your forms
' are still loaded
Hash.Add("FormsUniqueIDPrefix", "myNameSpace_")
' Calculate the form counter, so new forms will be created with correct ordered numbers
Dim Form_Counter As Integer = 0
For i As Integer = 0 To SBO_UI.Forms.Count - 1
Dim FormUID As String = SBO_UI.Forms.Item(i).UniqueID
If FormUID.StartsWith(Settings("FormsUniqueIDPrefix").ToString) Then
Dim tmp As Integer = CInt(FormUID.Substring(Settings("FormsUniqueIDPrefix").ToString.Length))
If tmp > Form_Counter Then Form_Counter = tmp
End If
Next
Form_Counter += 1
Hash.Add("Form_Counter", Form_Counter) -
How to get the selected items from listbox
Regarding listbox i have two questions
1) I want to get the selected items as per the order in which ihave selected.Presently i'm getting in the ascending order.For example after selcting the 1,2,6 if i select 3 then its giving 1,2,3,6.But i want it in the order 1,2,6,3
2)I want to select items from a single list box to many other listboxes.(ie) my first selection should goto first,second one to the second listbox and like this.How should i write the logic.
please give me a suggestion.In order to have the selected items line up in accordance to the selection order, please do it one at a time. (That's the limit for that VI)
If you need more than that (i.e. to regconize which item clicked first and which one comes later), you may have to figure it out ya
Wish you good luck. Perhaps, someone else has a already made vi.
Cheers!
ian.f
Ian F
Since LabVIEW 5.1... 7.1.1... 2009, 2010
依恩与LabVIEW
LVVILIB.blogspot.com
Maybe you are looking for
-
External hard drive mounts and appears in finder, but is gone....
When I attempt to save/export something to it. A couple of days ago I accidentally hit the eject button when saving something. Tried turning on/off, unplugging, etc. The drive is daisy chained to two other drives, but still doesn't appear when connec
-
Translating a date format in a filename string
Hi, Basically I have a property like: filename=MyFile(yyyy-MM-dd@HHmmss).logWhen I create the file I want to translate the embedded date format string using the current date. My solution is as follows: private static void createFile(String fName)
-
Is there a Webclient UI in SRM?
Hi Gurus! I'm starting looking at SRM and I couldn't find many information about it. Can you please tell me if this works with a Webclient UI (like CRM 7.0)? If it works, can you please send me the link where i can find the Best practices Building Bl
-
Exclude records in a parameter selection
Post Author: bilbo CA Forum: General Hi, Is it possible to exclude records from a parameter selection field? Part of my record selection is: "NOT ({TABLE1.FIELD1} IN {?Exclude})" but my Exclude parameter obviously returns every record. Users need thi
-
How to sync iphone 5 to macbook air
i'm on wifi and just updated my iphone 5 contacts. I tried to sync with my macbook air but it isn't working. Any advice?