VFP 9 Rebate offer

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ Exchange Fox
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Transaction problem in VFP9 Dear all, The code beneath generates an error in VFP9. In VFP8 it runs fine. The purpose of the original code is to store data from a view into the database. The sample code doesn't really make sense anymore. We stripped the code down to its bare minimum. It's just a way to show the error. We don't think this code is illegal. So, is there a bug in VFP9? Regards, Roel, Bas and Benno. *=========== BEGIN CODE ============================ CREATE DATABASE database OPEN DATABASE database CREATE TABLE test (FIELD_KEY I, FIELD_DATA I) INSERT INTO TEST (FIELD_KEY, FIELD_DATA) VALUES (0, 0) CREATE SQL VIEW MYVIEW AS SELECT * FROM test USE MYVIEW IN 1 CURSORSETPROP("buffering", 5, 1) CURSORSETPROP("keyfieldlist", "FIELD_KEY", 1) CURSORSETPROP("UpdatableFieldList", "FIELD_KEY, FIELD_DATA", 1) REPLACE FIELD_DATA WITH 1 IN 1 SAVE_VIEW() APPEND BLANK IN 1 REPLACE FIELD_KEY WITH 1 IN 1 SAVE_VIEW() PROCEDURE SAVE_VIEW() LOCAL nRecno nRecno = GETNEXTMODIFIED(0, 1) BEGIN TRANSACTION GOTO (nRecno) IN 1 IF (nRecno > 0) REFRESH(1, 0, 1) CURVAL("FIELD_DATA", 1) ENDIF TABLEUPDATE(0, .F., 1) END TRANSACTION ENDPROC Tag: VFP 9 Rebate offer Tag: 207420
  - 2
    - valid views built in view designer can't be opened by view designer When building remote views, I've noticed that I can build queries with the View Designer on back ends that have non-Fox features, like spaces in the field names. The View Designer works fine, the query works fine. But if I try to reopen the view with the View Designer, I get "syntax error" messages, so if I want to modify the view, I have to do it programmatically. The View Designer in VFP9 is very good, and a big improvement over VFP8's (which was a big improvement over VFP7's). But it really should be able to open views that it itself created, don't you think? Tag: VFP 9 Rebate offer Tag: 207419
  - 3
    - Reset Browse Last to match Browse Preference? Reset Browse Last to match Browse Preference? I have about 6 aliased and related browse windows of the same .dbf that I'm using to manually clean up data. The records are quite long so even with some fields sized smaller than their actual field length in the browse window, I still have to scroll right and left as I go about my cleanup, or expand a field (with my mouse) I have covered up, to check it or enter data. As I skip back and forth and alter the alignment or size of the displayed fields I want my changes to the browse windows to be kept and reflected with a Browse Last, WHICH THEY ARE. That's why I'm using Browse Last (from a On Key Label F8) Anyhow, sometimes things get screwed up and I wish I could revert one or more of the windows back to my more or less starting browse appearance, like with a Browse Preference to sort of reset things and then go back to using a Browse Last. I don't think Browse Preference and Browse Last play well together. They seem to be totally independent. Isn't there a way to get Browse Last to absorb Browse Preference? Is there some other work around i.e. a way to set up a particular look for all the browse windows that will be a sort of reset for Browse Last? -- JJ John "J.J." Jackson Tag: VFP 9 Rebate offer Tag: 207418
  - 4
    - execute pc code from a command button What is the proper procedure that would be used to have a command button do something like: comment - file copy in process y:\ MD test c: CD\temp COPY *.* y:\test comment - file copy complete Dan Tag: VFP 9 Rebate offer Tag: 207417
  - 5
    - Store column positon and width. Hello all, I would like some advice, what is the best way to store grid column positions and width. I thought about using .ini files. Any advice would be appreciated. Regards Richard -- To reply remove 'NoSpam' from email address Tag: VFP 9 Rebate offer Tag: 207408
  - 6
    - blat Can't use Blat if you have Norton Antivirus installed! Scan type: Auto-Protect Scan Event: Threat Found! Threat: Bloodhound.OutEmail File: C:\WINDOWS\system32\blat.exe Location: Quarantine Computer: STEVEFISHER User: steve.fisher Action taken: Quarantine succeeded : Access denied Date found: 10 February 2005 13:43:02 I haven't worked out how to exclude blat from scan. Everything is greyed out on my machine so will have to check the w2003 server and the book. Steve Tag: VFP 9 Rebate offer Tag: 207403
  - 7
    - error "File not open" when building For the past couple of days this error has appeared when I try to build a project in FPW2.6 I click "build", then select "executable" and when I click OK, instead of asking for the output file name it just says "File not open" Why? I've tried CLOSE ALL, CLEAR ALL but the only thing that seems to fix it is quit and restart. -- TIA Andrew Howell Tag: VFP 9 Rebate offer Tag: 207396
  - 8
    - RUN exe and hide the box This is a multi-part message in MIME format. ------=_NextPart_000_000E_01C50F6F.FD914630 Content-Type: text/plain; charset="windows-874" Content-Transfer-Encoding: quoted-printable Hi, How do i "RUN ipconfig.exe > ip.txt" by not showing up the disturbing = dos look windows box ? I can't use /N7 because I need to read for the created ip.txt=20 regards Hoe ------=_NextPart_000_000E_01C50F6F.FD914630 Content-Type: text/html; charset="windows-874" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-874"> <META content=3D"MSHTML 6.00.2900.2135" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>How do i "RUN ipconfig.exe > = ip.txt" by not=20 showing up the disturbing dos look windows box ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I can't use /N7 because I need = to read for the=20 created ip.txt </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Hoe</FONT></DIV></BODY></HTML> ------=_NextPart_000_000E_01C50F6F.FD914630-- Tag: VFP 9 Rebate offer Tag: 207392
  - 9
    - How to print continuously Hello, I am trying to output my report to a roll of labels on my printer but it skips at the end of each page. How can I make it to print continuously without the page break? Thanks. -- jw Tag: VFP 9 Rebate offer Tag: 207391
  - 10
    - Test dropped-collapsed state of dropdownlist Is there any way to test the state of a dropdownlist to determine if it is currently dropped or collapsed? I'm looking to write a procedure to toggle it, but not knowing its current state makes this a wee bit challenging. Perhaps there is another way, but right now I have tunnel vision and seem to want to do it this way. Jim Tag: VFP 9 Rebate offer Tag: 207385
  - 11
    - Printing Labels from record to record. There has to be a way but I have not stumbled on it yet. I want to print labels between records. Something like label form mylabel record 1 to record 8. Tried all but between does not work, less than greater than don't work. What works. Do not know what I would do without all the help I get on this newsgroup. TonySper Tag: VFP 9 Rebate offer Tag: 207381
  - 12
    - Memo Binary What is the Field type code for Memo binary? i.e. C Character, M Memo. Many thanks Shahriar Tag: VFP 9 Rebate offer Tag: 207355
  - 13
    - Text not showing Upgrade Fox 2.6x to 9.0 A screen contained text on upper portion and controls on lower portion. The screen contols work but the text doesn't appear. In a .prg reads cNotes = ; "^ XXXXX XXXXXXXXXX# XXX: XXXXXXXXX-XXXX " +; "XXXXXXXXX XXXXXXXXXX ^^" +; WRAP("This xxxxxxxx requires multi-level " +; "contractors to place job titles in the xxXXX " +; "where the selection decision is made for " +; "those jobs (Higher Level Plan) rather " +; "than in the XXX where the jobs are " +; "physically located (Lower Level Plan). ",104) +'^^'+; WRAP("These job titles remain in the Workforce " +; "Analysis of the Lower Level Plan but " +; "are excluded from the Utilization Analysis " +; "and Goals and Time Tables of the " +; "Lower Level Plan.",104) +'^^'+; "These xxx xxxxx are included in " +; "BOTH the Workforce Analysis and Utilization " +; "Analysis and Goals ^and Time Tables of the " +; "Higher Level Plan.^^" +; WRAP("The affected job titles are marked with an "+; " * when they appear in both plans. " +; " " +; " ",104) This is info only - how can I get it to show on the screen? Thanks. Tag: VFP 9 Rebate offer Tag: 207351
  - 14
    - return value from sproc with spt Hi, How can I retrieve a return value from a MSSQL server sproc using SPT? I'm not using any output param in my sprocs. All I need is to retrieve the sprocs' retval from my vfp appl, and NOT just the status of the sproc exec. In other words, I need an equivalent to following VB.NET statements: sqldataadapter1.selectcommand.parameters("@return_value").value. Thks & brgds, andy Tag: VFP 9 Rebate offer Tag: 207350
  - 15
    - ms winsock activex control This is a multi-part message in MIME format. ------=_NextPart_000_000A_01C50F07.515EC440 Content-Type: text/plain; charset="windows-874" Content-Transfer-Encoding: quoted-printable Hi, what file name is this ms winsock activex control in vfp 7.0 or 9.0 ? can this file royalty free for distribution with our vfp exe ? can we buy it without purchase of the vfp license ? regards hoe ------=_NextPart_000_000A_01C50F07.515EC440 Content-Type: text/html; charset="windows-874" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-874"> <META content=3D"MSHTML 6.00.2900.2135" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>what file name is this ms winsock = activex control=20 in vfp 7.0 or 9.0 ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>can this file royalty free for = distribution=20 with our vfp exe ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>can we buy it without purchase of the = vfp license=20 ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2>hoe</FONT></DIV></BODY></HTML> ------=_NextPart_000_000A_01C50F07.515EC440-- Tag: VFP 9 Rebate offer Tag: 207340
  - 16
    - need some advice on user impersonation and vfp 8 We have an application that spans several generations of VFP and now have to make some modifications to it. It runs client/server to a sql database or an oracle database for starters. The app launches and the user must log in. This is a user and password that resides in our app and db. It is not integrated with the OS user in anyway. There in lies the problem. Now, we need to make all the properites of the user accounts in the app behave like OS users where you can require strong passwords, minimum lengths, expirations, memory, encryption, etc. All the things the OS generally handles. What I am thinking I might do is somehow map those user accounts to the domain user accounts (at least for windows domains) thru the use of thier account SID or something. Then give them a cmd line switch on launch to use that feature or not or something like that. Is this possible? If so, how? Do I hook into some windows API for this? Not really sure. If anyone can shed some light I'd be greatful. TIA Tag: VFP 9 Rebate offer Tag: 207339
  - 17
    - Auto Dial and Disconnect in VFP Friends, Some months ago I was looking for a way to programatically dial and disconnect a SPECIFIED dial-up networking connecion. Although no VFP solution was found, today I came across a topic by the name of RASDIAL in windows help. There is an internal application in windows by the name of rasdial.exe which did what I wanted. (My OS is win XP Pro, however this application seems to be there in Win95 upwards) However while I was searching for topics related to RASDIAL in windows web knowledgebase, it appeared to me that there is an RASDIAL API also. My knowledge of API call is as good as none. I will appreciate it very much if some members please guide me towards better usage of this feature. I used the following code to connect and disconnect: run rasdial "Connection_name" "username" "password" run rasdial "connection_name" /d (I found details about the utility by searching by keyword "rasdial" in win XP help) Now I am looking forward to have following features: 1. To know if connection has been successful, else redial. 2. To be able to do these things without the usual black window. Please accept my gratitude for the helpful and useful posts in the group. I will look forward to have a detailed sample code because I do not have detailed knowledge of API calls. Best Regards S Bans Tag: VFP 9 Rebate offer Tag: 207338
  - 18
    - Excel Auomation - Adding Textbox I'm hoping to have better luck posting this the second time around. I've gotten most of the elements to creating Excel sheets down and adding data to them. I want to add a textbox to a sheet for some free flowing data. I'm having a problem getting the code from VB to VFP. Here is the VB code: ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25, Height:=47.25).Select If anybody would know how to, also, add text to it, I'd much appreciate. Thanks. Tag: VFP 9 Rebate offer Tag: 207335
  - 19
    - checkbox in listbox? Hello, In a listbox, is it possible to show a logical field using a checkbox, like it does in a grid? If it is, how is it done? Thank you. -- jw Tag: VFP 9 Rebate offer Tag: 207332
  - 20
    - odbc driver for vfp9.0? Is there an updated odbc driver for vfp 9.0 Thanks, John Tag: VFP 9 Rebate offer Tag: 207329
  - 21
    - Crystal Reports Question I have a parameter field named group defined as a string range. From this I have a formula field named mingroup defined as follows minimum({?group}) In the display string of mingroup I have the following code if trim({@mingroup}) = "" then "Earliest" else {@mingroup} This code does not work, is there any way to detect wether {@mingroup} is empty. I have tried different comparisons to an empty string and nothing seems to work. Thanks in advance Dave Tag: VFP 9 Rebate offer Tag: 207323
  - 22
    - Image I have images stored in a SQL 2000 database and have created views in VFP to access the tables. How do I actually read the binary data stored in the table to be displayed lets say in a image control? I was hoping something like this would work: thisform.image1.picture=mysqltable.image && but if doesnt. Is there a different control I need to use or is there a way to make the above example work. Many thanks Shahriar Tag: VFP 9 Rebate offer Tag: 207319
  - 23
    - get dynamic internet ip ? This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C50EB9.2074A0A0 Content-Type: text/plain; charset="windows-874" Content-Transfer-Encoding: quoted-printable Hi, how do i programmatically retreive current internet ip ? regards Hoe ------=_NextPart_000_0008_01C50EB9.2074A0A0 Content-Type: text/html; charset="windows-874" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-874"> <META content=3D"MSHTML 6.00.2900.2135" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>how do i programmatically retreive = current internet=20 ip ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Hoe</FONT></DIV></BODY></HTML> ------=_NextPart_000_0008_01C50EB9.2074A0A0-- Tag: VFP 9 Rebate offer Tag: 207316
  - 24
    - GDI+ Hello ! I recently downloaded from UT Alexander Golovlev's class "GpImage.prg" That´s a really terrific tool! That enables resizing and converting image files, using GDI+ I started studying it, and would like to Draw some string on an image. But I don't have any experience dealing directly with the APIS. I researched on MSDN and www.news2news.com and there I found the method GdipDrawString , that has the syntax below. How can I implement it ? Thank you very much in antecipation Cesar Chalom Sao Paulo - Brazil *!* DECLARE INTEGER GdipDrawString IN gdiplus; *!* INTEGER graphics,; *!* STRING widechar,; *!* INTEGER length,; *!* INTEGER fnt,; *!* STRING @ rectf,; *!* INTEGER stringFormat,; *!* INTEGER brush Tag: VFP 9 Rebate offer Tag: 207312
  - 25
    - copy to throws error 202 I have a table open and have to copy it to a csv: COPY TO (lcStatusFile) TYPE DELI lcStatusFile = "D:\temp\DAWN\load_status_prob_20050208\200501 DAWN_Status_Submittal.csv" The file itself exists, so there should be no problem with the path. When the COPY TO executes I get error: Invalid path or file name (Error 202) I tried this: COPY TO ( JUSTFNAME(lcStatusFile) ) TYPE DELI and it worked. I tried this: ?DIRECTORY( JUSTPATH(lcStatusFile) ) and it was .T. What else can I try? Thanks, Woody Tag: VFP 9 Rebate offer Tag: 207309
- Next
  - 1
    - copy to throws error 202 I have a table open and have to copy it to a csv: COPY TO (lcStatusFile) TYPE DELI lcStatusFile = "D:\temp\DAWN\load_status_prob_20050208\200501 DAWN_Status_Submittal.csv" The file itself exists, so there should be no problem with the path. When the COPY TO executes I get error: Invalid path or file name (Error 202) I tried this: COPY TO ( JUSTFNAME(lcStatusFile) ) TYPE DELI and it worked. I tried this: ?DIRECTORY( JUSTPATH(lcStatusFile) ) and it was .T. What else can I try? Thanks, Woody Tag: VFP 9 Rebate offer Tag: 207307
  - 2
    - Vanishing forms I'm upgrading from 3.0b to 9.0. If I show a form with buttons or boxs and attempt to click the option, if the mouse touches the option all contents disappears. I fixed one screen by changing the default Themes to F. That worked for one screen but not others. Also the look of the screen is not that attractive. Any clues??? Tag: VFP 9 Rebate offer Tag: 207306
  - 3
    - how to remove the AutoInc of a field? Anyone out there knows how to drop the AutoInc of a field? I need to remove this temporarily to udpate this field & set it back. I just need to be able to drop the autoinc feature off for a while. Tag: VFP 9 Rebate offer Tag: 207305
  - 4
    - The Definitive Chord & Scale Bible - Literally EVERY chord and scale! Finally it exists!! IF YOU PLAY GUITAR, YOU NEED THIS BOOK!! Listen to my story: In the process of teaching myself guitar, I went looking for a book that simply had the all the chords, scales and modes, and nothing else. I was totally surprised to find that such a book didn't exist. There are plenty of places to find this information, but it tends to be spread out over the coarse of a long book or in a poorly organized workbook. I found some of it on the web in the form of calculators and such, but that wasn't helpful since I wanted to practice away from my computer. That is why I created THE ULTIMATE GUITAR RESOURCE, which has LITERALLY EVERY CHORD, SCALE and MODE in an easy to download and print document. Its a full 37 pages for only $3.99! (hardcover is available) What makes this guide even better is that you don't need to read music to use it, so it can help every player at any level. I guarantee you'll use this guide for years! For way less than you spent on lunch, you'll learn: -EVERY CHORD (in every position) -EVERY SCALE, including the jazz and blues scales -ALL THE MODES -LITERALLY EVERYTHING YOU NEED TO KNOW - solo and play chords without reading music today. A free sample is available at: <http://keystone-music.com/> <http://keystone-music.com/> <http://keystone-music.com/> Good luck and God Bless! p.s. I apologize if this message annoys, aggravates, miffs, disturbs, bugs or angers you. I'm actually just a dude who wrote a book that hundreds of people are using and apparently liking very much. While this may fall into a spam-like category, (since I am selling something, and you didn't ask for this message), I think that its not totally over that line since I'm not pitching a porn site, a refinance loan or a cock enlargement. Peace! everychordandscale@yahoo.com Tag: VFP 9 Rebate offer Tag: 207294
  - 5
    - Strange Problem - Please Help Thanks in advance for the help! I have the following code in the VALID method of a Text control in column in a grid: SELECT TERMS LOCATE FOR ALLTRIM(TERMS.LONG == ALLTRIM(THIS.VALUE) IF NOT FOUND() ... ELSE ... ENDIF When this code executes the locate is failing where it shouldn't. When I put a SET STEP ON above the SELECT TERMS line and step through the code it works correctly. When I put the SET STEP ON inside the IF NOT FOUND() block I observe the following in the watch window: FOUND() is .F. (as you would expect since it is in the NOT FOUND() block) THIS.VALUE is what I am expecting it to be ALIAS() is TEMPTRAN and not TERMS If I go to the command window and type SELECT TERMS LOCATE FOR TERMS.LONG == ALLTRIM(THIS.VALUE) ALIAS() in the watch window changes to TERMS FOUND() in the watch window changes to .T. Does anyone know why this code might be failing when it is not run from within the debugger? Tag: VFP 9 Rebate offer Tag: 207284
  - 6
    - vfp9 dlls ? This is a multi-part message in MIME format. ------=_NextPart_000_0010_01C50E47.66E5F2E0 Content-Type: text/plain; charset="windows-874" Content-Transfer-Encoding: quoted-printable Hi, what are the royalty free dll files to distribute with vfp application = developed in vfp v9 ? Regards Hoe ------=_NextPart_000_0010_01C50E47.66E5F2E0 Content-Type: text/html; charset="windows-874" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-874"> <META content=3D"MSHTML 6.00.2900.2135" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>what are the royalty free dll files to = distribute=20 with vfp application developed in vfp v9 ?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Hoe</FONT></DIV></BODY></HTML> ------=_NextPart_000_0010_01C50E47.66E5F2E0-- Tag: VFP 9 Rebate offer Tag: 207282
  - 7
    - Folder name - short notation How can I get the result from getdir() to be displayed in the short form like c:\locals~1 rather than the long name form 'c:\documents and settings'? I would like to do it in VFP7. Aaron Tag: VFP 9 Rebate offer Tag: 207280
  - 8
    - OWC10 still stuck One last attempt. I apologize for second post in advance, not trying to inflame I'm simply not up to speed on objects and arrays. Since this should be easy I'm looking for a quick solution here before attempting an outsource. If you feel this post is beyhond the intentions of this group simply don't reply, I'm not here to offend anyone but would like to save a buck if I can! Here's the specification and yes, there is a reason I need to do it this way. Overview: VFP function that creates and exports line chart to "gif" format using OWC10.dll in background using bare minimum VFP 6.0 code. Parameters passed: cDestFile: target GIF destination file name. cDataSource: Comma delimited source file name. Will always have two fields 1.) Data Labels and 2.) Values cTitle: Chart title label cLineColor: Series line color cBackColor: Chart background color lShowLegend: Logical value determines whether to show legend nLabelAlign: Label orientation (0 horizontal, 90 vertical, etc.) Parameters returned (numeric): 0=Failure 1=Success Sample VFP6 code to call this function (MakeChart): && Set parameters cDestFile="c:\Graph.gif" cDataSource= "c:\source.txt" cTitle="My Chart" cLineColor="Red" cBackColor="Black" lShowLegend=.f. nLabelAlign=90 && Call function MakeChart(cDestFile,cDataSource,cTitle,cLineColor,cBackColor,lShowLegend,nLa belAlign) Sample Data Set (c:\source.txt): "Label","Value" "John","36" "Jane","25" "Fred","52" "Mike","65" "Otis","47" TYIA - Ben Tag: VFP 9 Rebate offer Tag: 207269
  - 9
    - _genxtab doesnt work in compiled EXE file in Foxpro for Dos 2.6 -- _________________________________________ Zahid Maqsood zahidbutt@onlinestiching.com zahidbutt@hotmail.com zahidbutt@yahoo.com itmanager@crescentsugar.com Tag: VFP 9 Rebate offer Tag: 207266
  - 10
    - Zipping in WinXP Friends, Some months ago (on 14th Dec 2004) there was a posting of code for Zipping in Window XP (code is appended below), it is working fine if 1. I compress a complete folder (giving only path of the folder) 2. I compress a complete folder (giving wild card like - "C:\myproject\*.*" as source) 3. I compress a ZIP file again However we get an empty ZIP folder if we want to zip ONE specific file in a folder, like we do not get desired results if we give "C:\myproject\test.txt" as source. I will appreciate any further guidance about how to compress only SPECIFIED files from a folder. Regards S Bans ************************* Cheap and build in to Windows XP. Use the Windows Shell to Control Zip folders Ex: ZIP("C:\myproject\*.*", "C:\Temp\MyZipFile.ZIP") You even get the flying folders animation PROCEDURE ZIP(lcFromFileOrFolder AS STRING, lcZipFile AS STRING) LOCAL lcEmptyZip AS STRING LOCAL oSHELL AS SHELL.APPLICATION lcEmptyZip = "PK"+CHR(5)+CHR(6)+REPLICATE(CHR(0),18) TRY oSHELL = CREATEOBJECT("Shell.Application") IF NOT EMPTY(lcZipFile) lcFullName = FULLPATH("&lcZipFile.") IF UPPER(JUSTEXT(lcFullName)) <> "ZIP" lcFullName = lcFullName + ".ZIP" lcFullName = STRTRAN(lcFullName,"..",".") ENDIF IF FILE("&lcFullName.") IF MESSAGEBOX("File "+lcFullName+" already exist Override?",256+64+4,"Warning") <> 6 EXIT ELSE DELETE FILE "&lcFullName." ENDIF ENDIF IF STRTOFILE(lcEmptyZip, "&lcFullName.") <> 22 = MESSAGEBOX("Error creating " + lcFullName, 16, "Zip file creation error") EXIT ENDIF ELSE = MESSAGEBOX("No Zip file name specified",16, "Missing info") EXIT ENDIF IF NOT EMPTY(lcFromFileOrFolder) lcFromFileOrFolder = FULLPATH("&lcFromFileOrFolder") TRY loFolder = oSHELL.NameSpace("&lcFromFileOrFolder.") IF ISNULL(loFolder) && not full folder lcFolder = JUSTPATH(lcFromFileOrFolder) loFolder = oSHELL.NameSpace("&lcFolder.") IF ISNULL(loFolder) = MESSAGEBOX("Invalid Folder name",16,"Error") EXIT ELSE loFolder = loFolder.ITEMS() loFolder.FILTER(-1, JUSTFNAME(lcFromFileOrFolder)) ENDIF ENDIF loZipFolder = oSHELL.NameSpace("&lcFullName.") IF NOT ISNULL(loZipFolder) loZipFolder.CopyHere(loFolder) DECLARE INTEGER "FindWindow" IN WIN32API; STRING @lpClassName, STRING @lpWindowName WAIT "" TIMEOUT 3 DO WHILE .T. lnHWnd = FindWindow("#32770","Compressing...") IF lnHWnd <> 0 WAIT "" TIMEOUT 1 ELSE EXIT ENDIF ENDDO ENDIF CATCH TO oexception ? oexception.lineno, oexception.errorno, oexception.message ENDTRY ELSE = MESSAGEBOX("No files to ZIP",16, "Missing Info") ENDIF CATCH FINALLY ENDTRY ENDPROC Tag: VFP 9 Rebate offer Tag: 207265
  - 11
    - Unzip WinXP Friends, Some months ago there was a posting of code for UNZipping in Window XP (code is appended below), it is working fine, however it creates an EXTRA folder under: C:\Documents and Settings\USER\Local Settings\Temp\ by the name of Temporary Directory 1 for UNZIPPEDFILE.zip Temporary Directory 2 is also created if the same file is unzipped again. After repeat runs on the same file, we may start getting curious results and messages. It we unzip big files, then the Hard Disk can get filled up without our knowledge. It there some solution so that this folder is either not created or deleted automatically after unzipping. I will look forward to have your comments. Best Regards S Bans ***************** PROCEDURE UnZIP(lcZipFile AS STRING, lcToFolder AS STRING) * LOCAL lcEmptyZip AS STRING LOCAL oSHELL AS SHELL.APPLICATION lcEmptyZip = "PK"+CHR(5)+CHR(6)+REPLICATE(CHR(0),18) TRY oSHELL = CREATEOBJECT("Shell.Application") IF NOT EMPTY(lcZipFile) lcFullName = FULLPATH("&lcZipFile.") IF UPPER(JUSTEXT(lcFullName)) <> "ZIP" lcFullName = lcFullName + ".ZIP" lcFullName = STRTRAN(lcFullName,"..",".") ENDIF IF NOT FILE("&lcFullName.") = MESSAGEBOX("Zip File "+lcFullName+" not found",16,"Error") EXIT ENDIF ELSE = MESSAGEBOX("No Zip file name specified",16, "Missing info") EXIT ENDIF IF NOT EMPTY(lcToFolder) lcToFolder = FULLPATH("&lcToFolder") TRY loFolder = oSHELL.NameSpace("&lcToFolder.") IF ISNULL(loFolder) && does not exist (create) MKDIR "&lcToFolder." loFolder = oSHELL.NameSpace("&lcToFolder.") ENDIF loZipFolder = oSHELL.NameSpace("&lcFullName.") IF NOT ISNULL(loZipFolder) lnZipFileCount = loZipFolder.ITEMS.COUNT lnFileCount = loFolder.ITEMS.COUNT loFolder.CopyHere(loZipFolder.ITEMS) && unzip executes asynchronously ENDIF CATCH ENDTRY ELSE = MESSAGEBOX("No files to ZIP",16, "Missing Info") ENDIF CATCH FINALLY ENDTRY ENDPROC Tag: VFP 9 Rebate offer Tag: 207264
  - 12
    - remove read only attribute--please help how can I remove read only attribute of a label.lbx (label file type) before I replace new information into label.lbx. THANY YOU Ming Tag: VFP 9 Rebate offer Tag: 207261
  - 13
    - user-adjustable reports I have reports with one record in a tall detail band, no header, footer, title, nor summary. These are intended to be printed on pre-printed forms, with the text boxes filling in the blanks. As expected, there are alignment differences for different users using different printers. Alignment between the individual controls does not change, but margins do. I can allow the user to edit the report, but these users are not particularly computer savvy. I have grouped all the controls on the report, and I would like to allow the user to specify something like "move everything up 1/8 inch and right 1/4 inch", then have the app make the adjustment. Can this be done with report listeners? Or is it best to hack the report? Something like REPLACE hpos WITH hpos + 10 FOR objtype = 8 Or, since I have grouped the controls, is there a simple way to reposition the group? How are groups represented in the frx? Tag: VFP 9 Rebate offer Tag: 207243
  - 14
    - Upgrading to 9.0 compiling error I'm upgrading from 3.0B to vfp 9.0 and have received this error in compiling. Any suggestions? DIMENSION aLines[nLines] Error in line 116: Invalid use of a Visual FoxPro function as an array. aLines[I] = SUBSTR(cText,nT1,nT2) Error in line 122: Too few arguments. nS = MAX(nS,TXTWIDTH(aLines[I])) Error in line 123: Too few arguments. @ nThisLine,nC SAY aLines[I] PICT cPict SIZE 1,nW Error in line 145: Too few arguments. @ nThisLine,nC SAY aLines[I] PICT cPict SIZE 1,nW COLOR (cRGB) Error in line 148: Too few arguments. Thanks in advance. Tag: VFP 9 Rebate offer Tag: 207237
  - 15
    - Color Q. I have a navigation form that has pictures on the command buttons. Depending on what the pcs "Color Quality, I want a less dramatic picture on the command button for lower colors (i.e. 16 - 256 colors) and a flasher picture for 16 & 32 bit color. My question is, how in the activate or load of my form can I determine what the color on the pc is set? I am sure it is an api call or something fancy. Your help is always appreciated. Jonathan Morningstar Tag: VFP 9 Rebate offer Tag: 207230
  - 16
    - Locking & Unlocking a Demo I have had many request to send out demo's for some of my programs. I have put date limits and record count to limit the user but then when they want to purchase the program I have to send them another CD or have them download another file. I know that some demo's that I download and want to purchase, the seller just sends me an unlocking code and it works to unlock the program. Does anyone know how to lock and unlock a demo exe application using VFP8??? TonySper Tag: VFP 9 Rebate offer Tag: 207229
  - 17
    - How to Search for text string in all *.prg files? How to Search for text string in all *.prg files? The Windows Find dialog does not seem to be able to search inside Visual Foxpro 6.0 *.prg files in a folder. I guess even the uncompiled .prg (vs. the executable *.fxp) is not really stored as plain text. I assume there must be a way to do this in FoxPro, itself, but can't see it. Any ideas? Thanks -- JJ John "J.J." Jackson Tag: VFP 9 Rebate offer Tag: 207219
  - 18
    - PageFrame Refresh Is there a means of refreshing all the pages in a pageframe short of going through the list of pages? Or if not, is there a way to accomplish this without specifying each page in code? I have a page frame with 2 pages; each page has its own pageframe with several pages. thisform.refresh will only refresh the active page. Using VFP8, sp1 on Windows XP sp2. Thanks, Dave Tag: VFP 9 Rebate offer Tag: 207215
  - 19
    - Cannot OKL escape during SCAN..ENDSCAN Not entirely true but I've come across another bizarre thing in FPW2.6a: *{--------------------------- SELECT bigtable m.lkill=.F. ON KEY LABEL esc DO cancscan WITH m.lkill SCAN IF m.lkill EXIT ENDIF *stuff ENDSCAN ***** FUNCTION cancscan ***** PARAMETERS m.pflag PUSH KEY CLEAR m.pflag=.T. POP KEY *{--------------------------- So, the scan takes a long time and the user is supposed to be able to cancel halfway through. For some reason when in the loop, the escape keypress is ignored. It is nothing to do with SET ESCAPE [already tried, SET ESCAPE does not affect ON KEY LABEL esc] If I bind a different key it works OK. What's *really* strange is that with escape bound, it works if I press any other key on the keyboard first. As soon as I suspend the program it seems to work properly too so debugging isn't easy. This only seems to be the case during a SCAN, I set a different procedure for escape after the scanning and that always works. Any ideas? -- TIA Andrew Howell Tag: VFP 9 Rebate offer Tag: 207213
  - 20
    - SQL cursoradapters display of zero amounts weird When working with sql cursoradapters in grids, amounts are always missing the zero before the decimal point. e.g .00 or .45 instead of 0.00 and 0.45. They display correctly in a textbox. The VFP cursoradapter shows correctly in the same grid class so it can't be a formatting problem within the grid. If you BROWSE the cursoradapter, you again see the fields without the zero before the decimal points. What causes this and is there any way of forcing the zero to show? Thanks for any help, Bernie Tag: VFP 9 Rebate offer Tag: 207209
  - 21
    - make yourself one... hi ppl, why don't you make your onw code bar?! i 've make my self an EAN-13 and EAN-8 code bar.. and work perfectly as much in screen ou printing!!! and isn't so dificult to do it!!! the only problem is that a can resize the code bar..the code bar is fixed to a height and width... ATSP Tag: VFP 9 Rebate offer Tag: 207206
  - 22
    - Is it possible to draw a table in vfp8? Hi All, I think this question sounds stupid! Anyway, here it goes... Is it possible to draw a table with rows and colums like in MS Word? I did think of using a grid. But, I won't be populating the grid with multiple record from a table/s. The contents to be displayed on the table would be a result of a join of several tables which fetches exactly, one entity's data from all the tables in the database. But I would be displaying the whole lot of information in a several rows and columns. Can anybody suggest me how to do this? Thanks. Tag: VFP 9 Rebate offer Tag: 207196
  - 23
    - want to remove the read only status of label.lbx I wrote a label program, the program run on different computer, different site and different printer. I want to print 22 labels on one sheet on different situation. so I removed the printer driver in label.lbx before printing in order to the labels can be printed 22 labes on one sheet on each computer. the templabel.lbx is read only a error occured , when I created a setup.exe. how can I remove the read only status of templabel.lbx ? the following is the code of label program. thank you for your help ming *********************************************** COPY FILE 2x11.lbx TO templabel.lbx COPY FILE 2x11.lbt TO templabel.lbt *** Open the temporary report file USE templabel.lbx IN 0 -------------------------> problem occured right here. SELECT ("templabel") GOTO TOP * Strip some information from EXPR. Remove the driver info. lcExpr = Expr lcExpr = STRTRAN(lcExpr, 'DEVICE=', '*DEVICE*=') lcExpr = STRTRAN(lcExpr, 'DRIVER=', '*DRIVER*=') lcExpr = STRTRAN(lcExpr, 'OUTPUT=', '*OUTPUT*=') lcExpr = STRTRAN(lcExpr, 'DEFAULT=', '*DEFAULT*=') lcExpr = STRTRAN(lcExpr, 'PRINTQUALITY=', '*PRINTQUALITY*=') lcExpr = STRTRAN(lcExpr, 'YRESOLUTION=', '*YRESOLUTION*=') lcExpr = STRTRAN(lcExpr, 'TTOPTION=', '*TTOPTION*=') lcExpr = STRTRAN(lcExpr, 'DUPLEX=', '*DUPLEX*=') REPLACE TAG WITH '', TAG2 WITH '', EXPR WITH lcExpr -------------> error occured here , as it is read only, so it can be replace with everything *** Close the temp report file so we could run it. USE IN ("templabel.lbx") && Close the FRX file Tag: VFP 9 Rebate offer Tag: 207185
  - 24
    - Auto Increment records like a new emplyee number In VFP9 I used the wizard to create an emplyee table, and indexed it on employeeid. Then I used the wizard and created a form to view and enter employee data. The first time I ran the form I used the command buttons and created a new employee and gave the employee an employeeid of 101. Entered all the rest of the table data and exited. The next time I ran the form, it automatically presents the data from the last record (which I thought I could hide by telling the data environment "no data on load", but it still shows the last record) The second thing is when I click add button, there was no indication as to where the cursor is (and I wanted it to start at the top of the form in Employeedid) so I editied the add button in the command group and tried this code, and it does put me where I want to be, but all the other data is still there) On the click event of the add button ThisForm.EMPLOYEEID1.SetFocus Lastly if I gave the first employee the ID of 101 and add a new employee what would you need to to to get it to assune the next emplyee should be 102? Any help greatly appreciated. Dan Tag: VFP 9 Rebate offer Tag: 207173
  - 25
    - Bill Anderson at LA Fox February 8/Using Software Design Patterns Here's a synopsis of the topic at LA Fox this Tuesday...for further details, visit us at http://www.lafox.org. All well structured object oriented architectures are full of patterns. Focusing on these common patterns (Design Patterns) during a system's development can yield an architecture that is smaller, simpler, and far more understandable than if these patterns are ignored. Using these Design Patterns in your development can provide a significant maintenance advantage during an application's lifespan. Like a Japanese haiku (a three line poem consisting of exactly 17 syllables), Design Patterns have a simple construction, but also can be rather hard to fathom. In this session Bill will outline the most common Design Patterns and use familiar Visual FoxPro terminology to illustrate each Pattern. While Design Patterns aren't specific to any software development language, attendees should be familiar with Visual FoxPro terminology and the principles of object orientation. The Jump Start will feature a tour of xCase 7.5. See you there! Tag: VFP 9 Rebate offer Tag: 207172

This may be old news to some:
watch for url wrap
[ http://www.microsoft.com/products/info/popup.aspx?view=22&type=rebate&cont
ent=7b9bb6aa-f6c0-43b4-b315-6cfd9eb3e39a ]

and of course - buy yer VFP Version 9 here:
http://www.foxtoolbox.com/

Enjoy ! mondo regards [Bill]

--
William Sanders / Electronic Filing Group Remove the DOT BOB to reply via
email.
Mondo Cool TeleCom -> http://www.efgroup.net/efgcog.html
Mondo Cool WebHosting -> http://www.efgroup.net/efglunar.html
Mondo Cool Satellites -> http://www.efgroup.net/sat
VFP Webhosting? You BET! -> http://efgroup.net/vfpwebhosting
mySql / VFP / MS-SQL

Top