Sybase NNTP forums - End Of Life (EOL)

The NNTP forums from Sybase - forums.sybase.com - are now closed.

All new questions should be directed to the appropriate forum at the SAP Community Network (SCN).

Individual products have links to the respective forums on SCN, or you can go to SCN and search for your product in the search box (upper right corner) to find your specific developer center.

GetFileSaveName

4 posts in Appeon (partner product) Last posting was on 2006-05-10 09:08:40.0Z
Ricardo Alba Medrano Posted on 2006-04-26 23:31:26.0Z
Reply-To: "Ricardo Alba Medrano" <alba_ricardo@hotmail.com>
From: "Ricardo Alba Medrano" <alba_ricardo@hotmail.com>
Newsgroups: sybase.public.appeon
Subject: GetFileSaveName
Lines: 12
Organization: none
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2869
X-RFC2646: Format=Flowed; Original
NNTP-Posting-Host: 201.120.1.214
X-Original-NNTP-Posting-Host: 201.120.1.214
Message-ID: <445002ce$1@forums-1-dub>
Date: 26 Apr 2006 16:31:26 -0700
X-Trace: forums-1-dub 1146094286 201.120.1.214 (26 Apr 2006 16:31:26 -0700)
X-Original-Trace: 26 Apr 2006 16:31:26 -0700, 201.120.1.214
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.appeon:1435
Article PK: 21187

Hello there!

I have to save a datawindow as an excel sheet. First, I code the command
GetFileSaveName so I can get the file name and it's path, then I code
dw_1.SaveAs( ). Running this as a simple app seems to work fine but, when I
try to launch the same routine using Appeon nothing happens, seems to me
that GetFileSaveName is not working with Appeon but I'm not sure at all. Any
idea anyone? Thanks in advance.

R.A.M.


Sally Li Posted on 2006-04-27 03:56:42.0Z
From: "Sally Li" <sally.li@appeon.net>
Newsgroups: sybase.public.appeon
References: <445002ce$1@forums-1-dub>
Subject: Re: GetFileSaveName
Lines: 99
MIME-Version: 1.0
Content-Type: multipart/alternative; boundary="----=_NextPart_000_0109_01C669E7.EF952A50"
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1506
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1506
X-Original-NNTP-Posting-Host: 59.37.60.2
Message-ID: <44503030@forums-2-dub>
X-Original-Trace: 26 Apr 2006 19:45:04 -0700, 59.37.60.2
X-Original-NNTP-Posting-Host: forums-2-dub.sybase.com
X-Original-Trace: 26 Apr 2006 19:45:04 -0800, forums-2-dub.sybase.com
NNTP-Posting-Host: forums-master.sybase.com
X-Original-NNTP-Posting-Host: forums-master.sybase.com
Date: 26 Apr 2006 20:56:42 -0700
X-Trace: forums-1-dub 1146110202 10.22.108.75 (26 Apr 2006 20:56:42 -0700)
X-Original-Trace: 26 Apr 2006 20:56:42 -0700, forums-master.sybase.com
X-Authenticated-User: ngsysop
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.appeon:1436
Article PK: 13004

Hi,
 
If the DataWindow is created dynamically,  this is not a problem but an Appeon limitations. With Appeon 3.1, it is only supported to save the datawindow to a TXT file.
 
If the DataWindow is created statically, please comment out the GetFileSaveName function, and directly save the datawindow with a particular save name and path. If the expected excel sheet is not generated as well, please let me know the presentation style of the datawindow.
 
Regards
Sally Li
 
"Ricardo Alba Medrano" <alba_ricardo@hotmail.com> wrote in message news:445002ce$1@forums-1-dub...
> Hello there!
>
>    I have to save a datawindow as an excel sheet. First, I code the command
> GetFileSaveName so I can get the file name and it's path, then I code
> dw_1.SaveAs( ). Running this as a simple app seems to work fine but, when I
> try to launch the same routine using Appeon nothing happens, seems to me
> that GetFileSaveName is not working with Appeon but I'm not sure at all. Any
> idea anyone? Thanks in advance.
>
> R.A.M.
>
>


R.A.M. Posted on 2006-05-03 16:49:21.0Z
Sender: 24a7.4458deae.1804289383@sybase.com
From: R.A.M.
Newsgroups: sybase.public.appeon
Subject: Re: GetFileSaveName
X-Mailer: WebNews to Mail Gateway v1.1t
Message-ID: <4458df11.24aa.1681692777@sybase.com>
References: <44503030@forums-2-dub>
NNTP-Posting-Host: 10.22.241.41
X-Original-NNTP-Posting-Host: 10.22.241.41
Date: 3 May 2006 09:49:21 -0700
X-Trace: forums-1-dub 1146674961 10.22.241.41 (3 May 2006 09:49:21 -0700)
X-Original-Trace: 3 May 2006 09:49:21 -0700, 10.22.241.41
Lines: 48
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.appeon:1442
Article PK: 13008

Dear Sally:

I've already tryed with fixed name and path, but it's not
working. The DataWindow is created statically with a
Freeform style. I'm trying to save it as an excel sheet
acording to a tip I previously saw here. The code I'm using
is as follows:

Integer li_GetFile
OleObject luo_excel
String ls_path, ls_file

//THIS LINE IS USED TO GET THE FILE NAME
li_GetFile = GetFileSaveName ( 'Files',&
ls_path,ls_file,&
'XLS',&
'XLS Files (*.XLS), *.XLS')

if li_GetFile = 1 then
SetPointer(HourGlass!)

//HERE'S WHERE I SAVE THE FILE USING HTMLTable!, I'M
TRYING TO SAVE THE DW AS AN EXCEL SHEET KEEPING THE ORIGINAL
FORMAT
if dw_1.SaveAs(ls_path,HTMLTable!,true) = 1 then
luo_excel = create oleobject
if luo_excel.connecttoobject(ls_path) = 0 then
luo_excel.application.displayalerts = false

luo_excel.application.workbooks(1).parent.windows(luo_excel.application.workbooks(1).name).visible
= true

luo_excel.application.workbooks(1).saveas(ls_path,-4143)
luo_excel.application.workbooks(1).close()
luo_excel.disconnectobject()
end if
destroy luo_excel
end if
SetPointer(Arrow!)
end if


Running this as a simple app works fine but, when I try to
launch the same routine using Appeon nothing happens. Hope
you can help me.
Regards

R.A.M.


Sally Li Posted on 2006-05-10 09:08:40.0Z
From: "Sally Li" <sally.li@appeon.net>
Newsgroups: sybase.public.appeon
References: <44503030@forums-2-dub> <4458df11.24aa.1681692777@sybase.com>
Subject: Re: GetFileSaveName
Lines: 164
MIME-Version: 1.0
Content-Type: multipart/alternative; boundary="----=_NextPart_000_00DB_01C67454.AF241450"
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1506
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1506
NNTP-Posting-Host: 59.37.60.2
X-Original-NNTP-Posting-Host: 59.37.60.2
Message-ID: <4461ad98@forums-1-dub>
Date: 10 May 2006 02:08:40 -0700
X-Trace: forums-1-dub 1147252120 59.37.60.2 (10 May 2006 02:08:40 -0700)
X-Original-Trace: 10 May 2006 02:08:40 -0700, 59.37.60.2
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.appeon:1446
Article PK: 21188

Hi R.A.M,
 
As you said the code can be run in an independent test case, therefore the problem should neither be caused by GetFileSaveName or SaveAs functions.
 
It may be caused by some other  unsupported features. I suggest you debug the Web applications with third-party tools such as InterDev to find out where the problem occurs.
 
Since I don't know the business logic of your application, hope my suggestion is helpful.
 
Regards
Sally Li
 
<R.A.M.> wrote in message news:4458df11.24aa.1681692777@sybase.com...
> Dear Sally:
>
>   I've already tryed with fixed name and path, but it's not
> working. The DataWindow is created statically with a
> Freeform style. I'm trying to save it as an excel sheet
> acording to a tip I previously saw here. The code I'm using
> is as follows:
>
> Integer li_GetFile
> OleObject luo_excel
> String ls_path, ls_file
>
> //THIS LINE IS USED TO GET THE FILE NAME
> li_GetFile = GetFileSaveName ( 'Files',&
>          ls_path,ls_file,&
>          'XLS',&
>          'XLS Files (*.XLS), *.XLS')
>
> if li_GetFile = 1 then
>  SetPointer(HourGlass!)
>
>    //HERE'S WHERE I SAVE THE FILE USING HTMLTable!, I'M
> TRYING TO SAVE THE DW AS AN EXCEL SHEET KEEPING THE ORIGINAL
> FORMAT
>    if dw_1.SaveAs(ls_path,HTMLTable!,true) = 1 then
>       luo_excel = create oleobject
>       if luo_excel.connecttoobject(ls_path) = 0 then
>          luo_excel.application.displayalerts = false
>        
> luo_excel.application.workbooks(1).parent.windows(luo_excel.application.workbooks(1).name).visible
> = true
>        
> luo_excel.application.workbooks(1).saveas(ls_path,-4143)
>          luo_excel.application.workbooks(1).close()
>          luo_excel.disconnectobject()
>        end if
>        destroy luo_excel
>    end if
>  SetPointer(Arrow!)
> end if
>
>
> Running this as a simple app  works fine but, when I try to
> launch the same routine using Appeon nothing happens. Hope
> you can help me.
> Regards
>
> R.A.M.