Keyboard Shortcuts
ctrl + shift + ? :
Show all keyboard shortcuts
ctrl + g :
Navigate to a group
ctrl + shift + f :
Find
ctrl + / :
Quick actions
esc to dismiss
Likes
- MadFox
- Messages
Search
|
_screen.caption trick
Stein Goering
开云体育Jim T, you mentioned that you had your system set up so that the current directory would be echoed in the VFP screen caption.? Is there associated code or config info that you could post? ? --stein ? Stein Goering Arbutus Computer Services 17494 Merry Hill Rd Richland Center, WI? 53581 ? 608.538.3820 ? ? |
|
Re: Excel...l
hawkridge
I really believe we tried every which way for those params and nothing
toggle quoted message
Show quoted text
worked. I banged this little example out in two minutes no problem. I am much more likely to believe that PJ has done some things to his workstation to make us all look like beginners again. Actually, the energy in the cosmos must be WIERD. I was working REAL LATE at a client network tonight and all of a sudden the network just went bonkers. I was burning a CD across the wire and it just stopped for a minute, then the buffer filled up again, then it would stop. I went to look at the switches (2 10/100 switches and a 10/100 hub) and both switches were just banging every port, the hub was quiet. Only the print servers, file server, and my tech system were alive - I have no idea what was going on other than maybe there were aliens on the roof - maybe PJ has some aliens in the back room there too. Walk In Beauty, Cliff Smith hawkridge@... / 608 647-2366 -----Original Message-----
From: Stein Goering [mailto:sgoering@...] Sent: Wednesday, February 18, 2004 10:52 PM To: madfox_vfp@... Subject: RE: [madfox_vfp] Excel...l So the only thing needed to make our code of last night work was to change the Pastespecial params to logicals??? Yes, I tried it; it is true. Change that line to: loSheet.Range("a5").PasteSpecial(-4104,-4142,.F.,.T.) And it works. But I SWEAR we did that last night. That's what we started with. We only went to 0, 1 when the logicals didn't work. Didn't we? What was in that Coke? Or was it the cake? --stein Stein Goering Arbutus Computer Services 17494 Merry Hill Rd Richland Center, WI 53581 608.538.3820 -----Original Message----- From: Cliff S [mailto:hawkridge@...] Sent: Wednesday, February 18, 2004 10:16 AM To: madfox_vfp@... Subject: [madfox_vfp] Excel...l This code runs no problemo... Output is as expected and no errors. *** XTest.prg *** *** finish up from madfox 17 Feb 04 meeting *** SET STEP ON oX=CREATEOBJECT("excel.application") oX.Visible=.t. oX.Workbooks.Add(1) oX.range('a1').Value=1 oX.range('b1').Value=2 oX.Range('a4').Select oX.Range('a1:b1').Copy oX.Range('a4').PasteSpecial(-4104,-4142,.f.,.t.) WAIT WINDOW 'did it work...?' oX.activeworkbook.saved=.t. oX.application.quit * Walk In Beauty, cliff Yahoo! Groups Links Yahoo! Groups Links |
|
Re: VFP version issues
Stein Goering
开云体育Thanks but that wasn’t it.? I had run into the GROUP BY issue in previous upgrades to VFP 8, so had already added the SET ENGINEBEHAVIOR clause.? And the areas where the odd behavior showed up often did not even involve a SELECT stmt of any sort…. ? --stein ? Stein Goering Arbutus Computer Services 17494 Merry Hill Rd Richland Center, WI? 53581 ? 608.538.3820 ? From:
Foxprotalk@... [mailto:Foxprotalk@...] I haven't used codemine in years.? But, the biggest gotcha in my vfp8 conversion of vfp7 apps had to do with SQL statements.? Namely -?GROUP BY clause has a requirement in VFP8 that all the columns have to be restated.? The quick way around this - and a quick suggestion to you is to include: ? SET ENGINEBEHAVIOR to 70? at the top of your app or ENGINEBEHAVIOR=70? in your config.fpw ? It's worth a try ? Peter ? madfox_vfp-unsubscribe@... ·? Your use of Yahoo! Groups is subject to the . |
|
Re: Excel...l
Stein Goering
So the only thing needed to make our code of last night work was to change
toggle quoted message
Show quoted text
the Pastespecial params to logicals??? Yes, I tried it; it is true. Change that line to: loSheet.Range("a5").PasteSpecial(-4104,-4142,.F.,.T.) And it works. But I SWEAR we did that last night. That's what we started with. We only went to 0, 1 when the logicals didn't work. Didn't we? What was in that Coke? Or was it the cake? --stein Stein Goering Arbutus Computer Services 17494 Merry Hill Rd Richland Center, WI 53581 608.538.3820 -----Original Message-----
From: Cliff S [mailto:hawkridge@...] Sent: Wednesday, February 18, 2004 10:16 AM To: madfox_vfp@... Subject: [madfox_vfp] Excel...l This code runs no problemo... Output is as expected and no errors. *** XTest.prg *** *** finish up from madfox 17 Feb 04 meeting *** SET STEP ON oX=CREATEOBJECT("excel.application") oX.Visible=.t. oX.Workbooks.Add(1) oX.range('a1').Value=1 oX.range('b1').Value=2 oX.Range('a4').Select oX.Range('a1:b1').Copy oX.Range('a4').PasteSpecial(-4104,-4142,.f.,.t.) WAIT WINDOW 'did it work...?' oX.activeworkbook.saved=.t. oX.application.quit * Walk In Beauty, cliff Yahoo! Groups Links |
|
.Net Training
Eric Selje
I don?�?t know how far and wide our announcements go, but the Michigan user groups are once again sponsoring a full day training class in Lansing, MI. We began work on this before this discussion started, so we didn?�?t think to mention it to anyone outside the Michigan user groups. We are bringing in Kevin McNeish to conduct a class on .NET. The class will be Saturday, May 1, and the cost is $125 for user group members, $150 for others. If anyone wants more information, please let me know.
Mike Potjer GRAFUG President potjerm@... |
|
Excel...l
Cliff S
This code runs no problemo... Output is as expected and no errors.
*** XTest.prg *** *** finish up from madfox 17 Feb 04 meeting *** SET STEP ON oX=CREATEOBJECT("excel.application") oX.Visible=.t. oX.Workbooks.Add(1) oX.range('a1').Value=1 oX.range('b1').Value=2 oX.Range('a4').Select oX.Range('a1:b1').Copy oX.Range('a4').PasteSpecial(-4104,-4142,.f.,.t.) WAIT WINDOW 'did it work...?' oX.activeworkbook.saved=.t. oX.application.quit * Walk In Beauty, cliff |
|
Re: February Meeting
Stein Goering
For what it's worth...
The code below runs without error: ** CLEAR ALL *SET STEP ON *#Include excel9.h #DEFINE False .F. #DEFINE True .T. *#Include excel9.h #DEFINE False .F. #DEFINE True .T. loExcel = CREATEOBJECT("Excel.Application") loExcel.SheetsInNewWorkbook = INT(1) loWorkBook = loExcel.WorkBooks.Add loExcel.Visible = .T. loSheet = loExcel.Sheets(1) loSheet.NAME = [MadFox] loSheet.Cells(1,1).Value = [Test] loSheet.Cells(1,2).Value = 3 loSheet.Cells(2,1).Value = [Test2] loSheet.Cells(2,2).Value = 8 lcRange = [A1:B2] loSheet.Range( lcRange ).Copy lcClip = _CLIPTEXT loExcel.CutCopyMode = .F. loSheet.Range("A5").Select *SET STEP ON _CLIPTEXT = lcClip losheet.Range("a5").PasteSpecial(-4104,-4142,0,1) RELEASE ALL *** Unfortunately, it does not produce the desired result as the pasted cells are NOT transposed. It appears there is an issue with how Excel and Foxpro use the copy buffer memory, and we can avoid the PasteSpecial property error if we load the clipboard with a plain Foxpro string. (Remember during our meeting trials every once in a while we got some text to paste into the worksheet, but it always happened after we had done some copy/paste in Foxpro, thus overwriting the clipboard.) By copying the cliptext to a variable and then reading it back, I seem to have circumvented the memory space issue. However, in the process we evidently loose whatever information Excel needs to perform the transposition and we end up with an exact copy of the original range. Leaving us in a Catch-22. Maybe Jim's idea of creating and executing an Excel macro is the way to go?? On another point, you'll notice that I used the literal values rather than the include file definitions because I could not locate a copy of excel9.h I had assumed that somewhere in the MS KB it would tell me where to download it, but not so. Google turned up references to using it, but not to obtaining it. Neither could I find it in my installation of VS.Net. How the hell does one get a copy? --stein Stein Goering Arbutus Computer Services 17494 Merry Hill Rd Richland Center, WI 53581 608.538.3820 |
|
February Meeting
P.J. Fernandez
Talked about:
1. Wine VFP (file added to the file area) 2. Outlook Automation (How to send spam!) **** #DEFINE EmailItem 0 #DEFINE OutboxFolder 4 LOCAL oOutlook, oMessage, oAttachment, oOutboxFolder, oOutlookSpace LOCAL llHotmail, lcFileName, lcText, lnOutboxItems, lnBytes, lcTempFileName, lcTempText LOCAL lcLeadsTable, lnLatestBatch, lnRand, lcHTMLBody CLOSE DATA ALL lcTable = [RF_Announce] lnRand = INT( RAND( -1 ) ) oOutlook = CreateObject( "Outlook.Application" ) IF VARTYPE( oOutlook ) # [O] MESSAGEBOX( [Error creating Outlook object. Quitting ....] ) RELEASE oMessage, oOutlook, oAttachment, oOutlookFolder, oOutlookSpace RETURN ENDIF SET MEMOWIDTH TO 2000 IF USED( [Announce] ) USE IN Announce ENDIF USE ( lcTable ) IN 0 SHARED ALIAS Announce SELECT Announce LOCATE lcHTMLBody = FILETOSTR( [Announcement.htm] ) SCAN oMessage = oOutlook.CreateItem( EmailItem ) IF VARTYPE( oMessage ) # [O] MESSAGEBOX( [Error creating Outlook's Message object. Quitting ....] ) LOOP ENDIF oMessage.To = ALLTRIM( announce.Address ) oMessage.Subject = "Hires Marketing Executive" oMessage.HTMLBody = lcHTLMBody oMessage.SEND( ) oMessage = .F. lnRand = INT( 7 * RAND( ) ) + 1 WAIT WINDOW [Waiting some time before processing the next one....]; + ALLTRIM( announce.Address ) TIMEOUT ( lnRand ) ENDSCAN RELEASE oMessage, oOutlook, oAttachment, oOutlookFolder, oOutlookSpace ** 3. Excel Automation $#&^%#&% Frustration *&&^%*$^%R*&@@@@@ CLEAR ALL SET STEP ON #Include excel9.h #DEFINE False .F. #DEFINE True .T. loExcel = CREATEOBJECT("Excel.Application") loExcel.SheetsInNewWorkbook = INT(1) loWorkBook = loExcel.WorkBooks.Add loExcel.Visible = .T. loSheet = loExcel.Sheets(1) loSheet.NAME = [MadFox] loSheet.Cells(1,1).Value = [Test] loSheet.Cells(1,2).Value = 3 loSheet.Cells(2,1).Value = [Test2] loSheet.Cells(2,2).Value = 8 lcRange = [A1:B2] loSheet.Range( lcRange ).Copy *loExcel.CutCopyMode = .F. loSheet.Range("A5").Select SET STEP ON *loSheet.Range("A5").PasteSpecial( xlPasteAll, xlPasteSpecialOperationNone, False, True ) *loSheet.Range("A5").PasteSpecial( xlAll, xlNone, False, True) RELEASE ALL *PJ* Sub Macro1() *PJ* ' *PJ* ' Macro1 Macro *PJ* ' Macro recorded 2/17/2004 by fernanpf *PJ* ' *PJ* ' *PJ* Range("A1:B2").Select *PJ* Selection.Copy *PJ* Range("A5").Select *PJ* Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ *PJ* , Transpose:=True *PJ* End Sub 4. TextPad editor for Java programming. 5. View Definition brings h files into view. (VFP 8.0) 6. Mover Class - see file on the website. Thanks for coming... We enjoyed the cake very much! P.J & the rest of the gang.... |
|
New file uploaded to madfox_vfp
Hello,
This email message is a notification to let you know that a file has been uploaded to the Files area of the madfox_vfp group. File : /Meeting Uploads/Feb04/mover.zip Uploaded by : jtllodi <jtlodi@...> Description : Mover Boxes You can access this file at the URL To learn more about file sharing for your group, please visit Regards, jtllodi <jtlodi@...> |
|
Re: COM and VFP6
P.J. Fernandez
Should use 7.0 or 8.0. It has better COM support.
toggle quoted message
Show quoted text
P.J.
|
|
Re: Attention Mr. Selje
Eric Selje
toggle quoted message
Show quoted text
|
|
New file uploaded to madfox_vfp
Hello,
This email message is a notification to let you know that a file has been uploaded to the Files area of the madfox_vfp group. File : /Meeting Uploads/Feb04/VFPWineHTMLs.exe Uploaded by : jtllodi <jtlodi@...> Description : Wine VFP pages You can access this file at the URL To learn more about file sharing for your group, please visit Regards, jtllodi <jtlodi@...> |
|
New file uploaded to madfox_vfp
Hello,
This email message is a notification to let you know that a file has been uploaded to the Files area of the madfox_vfp group. File : /Meeting Uploads/Jan04/mymenu.zip Uploaded by : jtllodi <jtlodi@...> Description : Stein's Menu You can access this file at the URL To learn more about file sharing for your group, please visit Regards, jtllodi <jtlodi@...> |
|
Attention Mr. Selje
P.J. Fernandez
Mr. Selje,
We are having your cake and eating it too. We are celebrating your 35th birthday with Wine, coke an a straw. Excuse while I get the dancing girls to move back behind us. They were blocking the projection screen.
Maybe you can bring up your subject next week.
Next time, Mon'
The Group
>
> From: "Stein Goering"
> Date: 2004/02/17 Tue PM 01:09:09 CST
> To:
> Subject: RE: [madfox_vfp] Meeting tonight
>
> I'm planning to ride in with Cliff. I can bring the sodas.
>
>
>
> --stein
>
>
>
> Stein Goering
>
> Arbutus Computer Services
>
> 17494 Merry Hill Rd
>
> Richland Center, WI 53581
>
>
>
> 608.538.3820
>
>
>
> _____
>
> From: PJ Fernandez [mailto:pjfern@...]
> Sent: Tuesday, February 17, 2004 10:02 AM
> To: madfox_vfp@...
> Subject: [madfox_vfp] Meeting tonight
>
>
>
> 5:30 PM - Call 239-1507 so I can open the gate.
>
>
>
> Roger is bringing cake.
>
>
>
> Jim is talking about loading Lenix.
>
>
>
> Pizza for everyone!
>
>
>
> P.J.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> _____
>
> Yahoo! Groups Links
>
> * To visit your group on the web, go to:
> http://groups.yahoo.com/group/madfox_vfp/
>
> * To unsubscribe from this group, send an email to:
> madfox_vfp-unsubscribe@...
>
>
> * Your use of Yahoo! Groups is subject to the Yahoo!
> Terms of Service.
>
>
>
|
|
Re: Meeting tonight
Stein Goering
开云体育I’m planning to ride in with Cliff.? I can bring the sodas… ? --stein ? Stein Goering Arbutus Computer Services 17494 Merry Hill Rd Richland Center, WI? 53581 ? 608.538.3820 ? From: PJ Fernandez
[mailto:pjfern@...]
Sent: Tuesday, February 17, 2004 10:02 AM To: madfox_vfp@... Subject: [madfox_vfp] Meeting tonight ? 5:30 PM - Call 239-1507 so I can open the gate. ? Roger is bringing cake.? ? Jim is talking about loading Lenix. ? Pizza for everyone! ? P.J.
|
|
Re: MadFox Meeting
hawkridge
toggle quoted message
Show quoted text
|
|
Re: MadFox Meeting
Jim Tooley
?
toggle quoted message
Show quoted text
I can be there tonight.
?
I have Linux running on a new box but?am still wading thru the
documents on the WINE project site. Everyone says it's pretty simple.
?
There are a couple of "gotchas" to it though and I'll try to bring the data
on that.
?
CAKE !?? Does that mean we can have Eric's cake and eat it
too?
?
Jim in Lodi
?
|
|
Re: MadFox Meeting
PJ Fernandez
?
toggle quoted message
Show quoted text
We have not tried in my computer because I
do not have enough space yet.? Maybe Cliff my have tried.
?
P.J.
|
to navigate to use esc to dismiss