Wish list : TOTAL... EXCEPT ...

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
    - Wish list: update sql How about a: update <TableName> from name <ObjectName> where .... Tag: Wish list : TOTAL... EXCEPT ... Tag: 216643
  - 2
    - form.click()? A form with a textbox. Click the textbox. enter a few characters. then the mouse click outside the textbox. what event is fired? Definitely not form.click().... -- .~. Might, Courage, Vision. http://www.linux-sxs.org / v \ /( _ )\ Linux 2.6.13 ^ ^ 21:57:01 up 9 days 43 min load average: 1.02 1.02 1.00 Tag: Wish list : TOTAL... EXCEPT ... Tag: 216640
  - 3
    - SourceSafe hangs when multiple users access anything at the same t Does anyone else have the problem when using Visual SourceSafe and two or more developers start up VFP (or one starts up and another wants to modify a form) at the same time. Basically it seems hang when multiple users do anything at the same time, that accesses the VSS database. It hangs until one of the users kills VFP. It seems wired that this would happen when the purpose of SourceSafe is to allow you to develop in a multi-user environment. Has anyone else experienced this or is there something we could try to solve this? Thanks, Jerry Tag: Wish list : TOTAL... EXCEPT ... Tag: 216639
  - 4
    - call32.dll questions I've been using Rick Strahl's call32.dll from FPW with fairly high success on Win95 and ntvdm under 2K and XP. It can be a bit painful at times (eg just trying to Declare32 a non existant function name will throw a GPF instead of something friendlier.) There's also an annoyance when trying to RegFN() - if you pass the whole path to the dll then the second and subsequent attempts to register a function claim there is no function of that name within the dll. Relative paths seem OK but since I can't be sure of current directory I found the easiest thing to do was change default to dll directory, register the functions and then change default back. Anyway, sometimes after a few function calls, a GPF will be thrown just trying to call any function in call32. It is always the same GPF and it persists between FPW sessions. I have found that if I kill off the ntvdm process using task manager then it starts working again (or, of course, reboot. Merely exiting all 16bit applications doesn't stop wowexec and ntvdm, they are left running for a quicker startup if you run another 16bit application.) Does anyone have any idea why it seems to go a bit screwy after a while? It's a little annoying because I thought I'd got it working stably but now I've put it into production the flakiness has been exposed. All the examples I've seen for calling functions in external dlls don't do anything to tidy up afterwards and I wonder if this is the problem? The next thing I'm going to try is the latest version of call32.dll, it was originally written for VB and Rick took the source and added a few other functions that may be useful to Foxpro programmers. The latest version has been updated a couple of times since Rick's build and there is an extra function to free libraries used. Anyone else have any experience with this module? -- TIA Andrew Howell Tag: Wish list : TOTAL... EXCEPT ... Tag: 216634
  - 5
    - discrepancy between keyboard an mouse I have an textbox with an input mask of "999,999.99" The value is "0.00" Then the user used the mouse and hit the space on the left of the leftmost "0" in "0.00" and typed "1" The field now displayed like "1 0.00". If I used the mouse to exit the field (by hitting somewhere else in the from, the value become "10.00" If I hit <ENTER> key, the value becomes "1.00", which was what the user expected. Now, how could I make the mouse hit to behave as keyboard? -- .~. Might, Courage, Vision. http://www.linux-sxs.org / v \ /( _ )\ Linux 2.6.13 ^ ^ 19:42:01 up 8 days 22:28 load average: 1.00 1.02 1.00 Tag: Wish list : TOTAL... EXCEPT ... Tag: 216633
  - 6
    - Screensaver Question I'm trying to deactivate the screen saver programatically using SystemParametersInfo DECLARE INTEGER SystemParametersInfo IN user32; INTEGER uiAction, INTEGER uiParam,; INTEGER @pvParam, INTEGER fWinIni when I use SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @lnTemp, 0) or SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @lnTemp, 0) I can detect whether the screen saver is running / active etc but neither SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, .T., @lnTemp, 0) or SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, .F., @lnTemp, 0) will turn it off, I've tried using .T. or .F. but it doesn't make any difference. Does anybody use these successfully? What am I doing wrong? Thanks LH Tag: Wish list : TOTAL... EXCEPT ... Tag: 216629
  - 7
    - Autosize Problem I have a generic form with a label that is passed a variable size caption. I set the caption in the Init method. Autosize is set to .T.. I then resize the form in the Activate method in relation to the change in the size of the label. This works fine in VFP 8.0, but it doesn't work in 9.0. In 8.0, the change in size is recognized at the time of the Activate method, but this is not the case in 9.0. I can create a breakpoint in the Activate method and step through the critical lines of code and it will recognize the autosize change. Any suggestions? Rick Tag: Wish list : TOTAL... EXCEPT ... Tag: 216628
  - 8
    - Select from an Array Can you do this? I have a single dimension array containing a list of different widgets. I would like to count the quantity of each widget in the array. Can I use a select statement for this? tia Tag: Wish list : TOTAL... EXCEPT ... Tag: 216616
  - 9
    - Adding a picture to a general field VFP9. I want to programmatically add a picture (e.g. a .gif file) to a general type field for use in a report. I couldn't find how to do this in the doc. I tried the APPEND GENERAL command and looked at the sample, but my results only put the file name in the field and no picture showed on the report. I can do it interactively in the report designer, but I want the user to select the file for his/her own logo. Thanks for any help. Steve Meyerson Tag: Wish list : TOTAL... EXCEPT ... Tag: 216615
  - 10
    - Object class is invalid for this container When I try to copy an OLE control from one class library into another, I get the error message "Object class is invalid for this container". Obviously that's a mistake, because the class already exists in a class library. Any suggestions? Tag: Wish list : TOTAL... EXCEPT ... Tag: 216611
  - 11
    - Wish list: append from name <ObjectName> Any support for this? -Lew Tag: Wish list : TOTAL... EXCEPT ... Tag: 216606
  - 12
    - Difference between fdate(,1) and ftime() Can anyone explain this, please? -Lew Tag: Wish list : TOTAL... EXCEPT ... Tag: 216605
  - 13
    - MS Word Problem Lee: Thanks for the suggestion, but that caused no difference. It should also be noted that MS Word starts and opens the original document, but then displays an error "This cannot be completed because of a dialog or database engines failure. Please try again." Thanks. BR I can't reply to the earlier question. I get an error with an Infortion icon and 3 choices, but no words.? Tag: Wish list : TOTAL... EXCEPT ... Tag: 216603
  - 14
    - MS Word Merge problems using VFP 9.0 I am having a lot of problems getting a MS Word Merge to work from VFP 9.0. I swear it used to work in 6.0. I am getting the error message "OLE IDispatch exception code 0 from Microsoft Word: Word was unable to open the data source..." Below is a majority of the code. The last line is what generates to error. TIA for taking a look. Thisform.Wordmailmerge1.cSQL = "" Thisform.Wordmailmerge1.cDataPath = SYS(5) + CURDIR() Thisform.Wordmailmerge1.cDataSource = "OUTPUTER" Thisform.Wordmailmerge1.cFormLetter = ALLTRIM(THISFORM.PrimaryDOC.VALUE) Thisform.Wordmailmerge1.lSave = .T. Thisform.Wordmailmerge1.cSaveAsFolder = FOLDERNAMEIS Thisform.Wordmailmerge1.cSaveAsName = FILENAMEIS Thisform.Wordmailmerge1.Merge Local oWord, lcFileName, lcConnectionString, oFormLetter If Empty(This.cSQL) Then This.cSQL = "SELECT * FROM " + This.cDataSource Endif lcFilename = addbs(This.cDataPath) + This.cDataSource + ".DBF" If !Directory(This.cDataPath) Then Messagebox("Invalid Datapath specified : " + This.cDatapath, 0, "Error") Return Endif If !File(Addbs(This.cDatapath) + This.cDataSource + ".DBF") Then Messagebox("Datasource " + addbs(This.cDatapath) + This.cDataSource + ".DBF does not exist", 0, "Error") Return Endif If !File(This.cFormLetter) Then Messagebox("Form Letter " + This.cFormLetter + " does not exist", 0, "Error") Return Endif lcConnectionString = "DSN=FoxPro Files - Word;UID=;PWD=;SourceDB=" + This.cDataPath + ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=MACHINE;Null=Yes;D eleted=Yes;" On Error Do MSMergeError oWord = GetObject(,"Word") *ON ERROR DO errhandler WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) ON ERROR If Type("oWord") != "O" Then oWord = CreateObject("Word.Application") If Type("oWord") !="O" Then MessageBox("Unable to start MS Word", 0, "Error") Return Endif Endif With oWord .visible=.t. EndWith lnSelectArea=select() oWord.Documents.Open(This.cFormLetter, .F., .F., .F., "", "", .F., "", "", 0) oFormLetter = oWord.ActiveDocument oWord.ActiveDocument.MailMerge.OpenDataSource(lcFilename, 0, .F., .F., .T., .F., "", "", .F., "", "", lcConnectionString, This.cSQL, "") BR Tag: Wish list : TOTAL... EXCEPT ... Tag: 216592
  - 15
    - How do you read postdata in a webbrowser control? I'm working on a VFP project for engineers designed to help them collect descriptions, links and images from manufactures sites to simplify creating design documents. Part of the time saving aspect of this project is to reduce the dozens of times each day they have to logon to each manufacture site and search/navigate to the pages they need for their projects. To accomplish this for non-programmers I need a way to capture POSTDATA from the beforenavigate2 event. I believe the datatype is a safearray. I've found code that is for VB that uses lenb and midb functions. It looks like this: Private Sub ctrlWB_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) If pDisp Is ctrlWB.object Then Dim lCount As Long Dim lLen As Long Dim strPostData As String lLen = LenB(PostData) ' Use LenB to get the byte count If lLen > 0 Then ' If it's a post form, lLen will be > 0 For lCount = 1 To lLen strPostData = strPostData & Chr(AscB(MidB(PostData, lCount, 1))) ' Use MidB to get 1 byte at a time Next MsgBox strPostData End If End If End Sub But I can't seem to figure out what I need to do in VFP to capture and use this data. Many thanks in advance! Tag: Wish list : TOTAL... EXCEPT ... Tag: 216591
  - 16
    - VFP 6.0 and Network Access Storage (NAS) Our Win2K server was recently migrated to Oa new NAS (Network Attached Storage) device. Since this time, some of our application have been receiving 'Cannot Update Cursor' errors. I've narrowed it down to when a 'PACK' command is issued. The application utilizes a control file that stores folder names in it associated with the server on the Q:\ drive (i.e. Q:\TEST). The application has been running for years and hasn't had updates in the past 9 months. Since the NAS migration, these errors have been experienced. Any thoughts on how to get around this? It is my understanding that this NAS device uses a Linux OS - so my guess is there are compatibility issues. Tag: Wish list : TOTAL... EXCEPT ... Tag: 216590
  - 17
    - Advice for first time "contractor" I've been programming (in FoxPro) for around 10 years and working at it (W2) for 8 or so. I've had quite a few jobs. I am sometimes asked if I want to work as a contractor or as an employee and I have always said "employee" mainly because I've always done that. I figured I could probably easily take those jobs on a contract basis and figured that someday I'd have to (or even want to) but that day hasn't come until today. A recruiter got my resume off an employment recruitment site and has been lining me up for a position at one of their client companies and yesterday I was told that the decision has been made that I get the job (starting Monday). I am to be paid on an hourly basis as a contractor. They emailed me papers to sign yesterday. Generally, when I sign preemployment papers I scan them and sign, have a general idea what it's about, the legalese notwithstanding. Since I was at home this time, at my "leisure," I took the time to read this stuff carefully. Most of it looks pretty OK, although I'm rather inexperienced at this, obviously. There's a nondisclosure agreement, a W9 form - pretty standard stuff. Then there's the 5 page contract with an "Exhibit A" tacked onto that, being a purchase order for my services. That's a bit weird from my perspective, but probably standard, I figure. It states my hourly rate, basically, with a sentence or two with yet another guarantee by me that I won't make any agreements with the 3rd party for a year after the completion of my assignment, things of that nature. In the contract they want me to guarantee that if I do start working directly with their client, I will fork over 20% of my salary. I guess I'm OK with signing on that. However when I got to paragraph 12 in the contract, I did a double take: 12. INSURANCE. Contractor will obtain for itself and its personnel before providing services, at its own expense, comprehensive General Liability insurance coverage for projects covered by this Agreement, for limits of liability not less than $500,000 and will name <insert name of recruiter here> as an Additional Insured, provide a copy of the binder and policy to <insert name of recruiter here>, and hold <insert name of recruiter here> harmless for any damages or expenses, including attorney's fees, incurred as a result of misconduct of Contractor or its personnel involving <insert name of recruiter here>, the TPU (third party unit), or any customer of client of the TPU. Now, that's something I wasn't prepared for and I figure I'll be calling them first thing in the morning - their office won't be opening for at least 3 hours. You people with experience, can you tell me what this is about? Are they going to waive this for me? I can't believe that they recruited me with the assumption that I already have an insurance policy of this nature and didn't ask me up front. I'm a computer programmer, and they were careful to check out my references before making me the offer. In the past, the trust inherent in that type relationship has floated my boat. Please, in addition to answering that specific question, can I get some tips and hints to give me a more solid footing in embarking on my first gig as a contractor? I've had quite a few contractor-like assignments, but never actually been on a contract basis. I always figured it was going to be principally a matter of filling out some different or extra IRS forms, but I guess there's more to it. For one thing, it looks like I'm going to have to manage my own withholding of federal and state taxes and SS. Do I do that at tax time or do I have to manage that during the work year? This job is 6 months+ (I'm told it's funded for a year, possibly with extensions) but I will be on a trial basis, especially at the start. The TPU is contractually entitled to send me home for any reason at any time. The contract seems to carefully stipulate that I'm entitled to zero benefits, just my hourly rate with no possibility of extra compensation for overtime, no possibility of being compensated for training of any kind, etc. I am in California. Thanks for any help. Tag: Wish list : TOTAL... EXCEPT ... Tag: 216589
  - 18
    - Can anyone recommend .. Know might not be the propper forum to ask but here I go and ask you guy that 'can anyone recommend me a VFP Magzine for subscription' ? It will be better if an on-line+Print edition are both available? Tag: Wish list : TOTAL... EXCEPT ... Tag: 216586
  - 19
    - Remote View ODBC error (VFP6) I keep getting this error and have no clue why. Error: 1526 Connectivity Error: Unable to retrieve specific error information. Driver is probably out of resources I'm using a remote view which refreshes every 10 seconds. Runs fine about 100 times then this OR same error with a SQL deadlock. Any ideas? Thanks in advance for any help. - Ben Tag: Wish list : TOTAL... EXCEPT ... Tag: 216582
  - 20
    - SQL Stump I am having problems coming up with an sql statement to get the data that I want. I would like to get the data in one SQL statement if possible and I cannot get my brain to work this morning. I have 3 tables, user, locations, and user_locations. The user to locations is a many to many hence the user_locations. The user_locations table basically just says what locations a user has access to example user table User1 User2 Location Table loc1 loc2 loc3 loc4 If I want user 1 to have access to location 1 and location 4 I would put these records in the user_locations table User_locations Table user1 loc1 user1 loc4 Anyway the query I want is a listing of all of the locations and a true or a false whether the user has access filtered of course by user select (need something here) where user = user1 would return loc1 yes loc2 no loc3 no loc4 yes Anyway I am stumped right now on getting the right SQL statement to give me my data. -- TIA Altman VFP9 Tag: Wish list : TOTAL... EXCEPT ... Tag: 216562
  - 21
    - Alog problem , please help. I got two invoice table, InvHeader(company,invno) InvDetail.(ChargeItem, unitprice,invno) select Invheader.company,InvDetail.chargeitem,InvDetail.unitprice from InvHeader,InvDetail where InvHeader.invno = InvDetail.innvo into cursor pTempTable Scan select "InvInfo" append blank in "InvInfo" replace InvInfo.company with pTempTable.company Do case case InvInfo.chargeitem = "PEN" replace invinfo.pen with pTempTable.unitprice case InvInfo.chargeitem = "TOY" replace invinfo.toy with pTempTable.unitprice casel........ endcase endscan Now, the problem is , invinfo got over 10 different types. (pen, toy-car,toy-doll,toy-xxxx). I need to check each types and give one file tables to my client. If my invoice tables got over 10000 records, the above process need over 1 hrs to process. Any faster method to process it ??? thanks a lot. Thanks a lot Tag: Wish list : TOTAL... EXCEPT ... Tag: 216560
  - 22
    - How to Block an active windows for being Hide! Hi , I'd like to know how can I get the same effect of the Modal property of a form en VFP but in Foxpro 2.6 for windows in order to avoid that a User by mistake hide a current active window an put another active window in front and seem like the program has block! I try the wintop() funtion but anything happens. Thanks. Oscar. Tag: Wish list : TOTAL... EXCEPT ... Tag: 216556
  - 23
    - Pagesetupdlg Hi Can anyone tell me how to create an object to give me the same dialogue box as I get with Pagesetupdlg() as produced by the Comdlg32 dll, I am looking for an OCX that I can feed into visual foxpro. Kind Regards Andrew Bowles -- I am using the free version of SPAMfighter for private users. It has removed 1127 spam emails to date. Paying users do not have this message in their emails. Try www.SPAMfighter.com for free now! Tag: Wish list : TOTAL... EXCEPT ... Tag: 216552
  - 24
    - Table Limits I have a table that is going to start growing real fast and I need to know about how many records the limit will be. I realize that the table size limit is 2GB. Therefore I'm guessing I can take the record length that is listed in foxpro and divide this number by 2GB. Is this correct. For instance my record length is 301 therefore if I take 2,147,483,648 / 301 I get 7,134,497 records. Is this the correct way to figure it, or are there more figures involved that I am not aware of. -- TIA Altman VFP9 Tag: Wish list : TOTAL... EXCEPT ... Tag: 216550
  - 25
    - set procedure vs close all... My coding may be a bit rusty, but should a close all command also clear my set classlib/set procedure values? I thought set procedure to and set classlib to were necessary for this. -Lew Tag: Wish list : TOTAL... EXCEPT ... Tag: 216544
- Next
  - 1
    - PagesetupDlg using VFP 8.0 Hi I am trying to initialize the Page Setup Dialogue box (PAGESETUPDLG(@lcBuffer)) with a buffer string already saved to file, the Pagesetupdlg allows me to pass the buffer string into and out of the function and works a treat whilst I remain within the foxpro environment, however should I exit foxpro then upon my return to the program the Pagesetup dialogue box gets reintialized with my default printer even though I am telling it to use the buffer string previously saved to file. Can anyone give me any pointers ? Kind regards Andrew Bowles Tag: Wish list : TOTAL... EXCEPT ... Tag: 216541
  - 2
    - MAPI32 problem ? i'm able to automate mail sending from outlook using mapi32.. but why is receipient in TO and CC is being switch ? the receipient type i set is : To = 1 Cc = 2 Bcc= 3 if only one receipient is sent, these setting is correct. but will have problem if more than 1 recipients. e.g To recipient will sent as Cc, Cc recipient will sent as To. is this a know problem ? any work around this ? thanks! Tag: Wish list : TOTAL... EXCEPT ... Tag: 216539
  - 3
    - Report footer problem I have a 2 inch report footer with each field having Remove lines if blank set. However, even if no footer info prints, the footer still takes up 2 inches. How can I get it to take up no space at all if nothing print in the footer. Alternately, is there a way to suppress the whole footer if a condition is evaluated? I am trying to create an invoice layout with the totals on the bottom. Because there are multiple invoices in a row, I am putting the totals in the footer but I want to only print the footer on the last page of each invoice. I achieve this by use of a Print When expression. Perhaps there is a better way to achieve this. Cheers David Tag: Wish list : TOTAL... EXCEPT ... Tag: 216530
  - 4
    - refresh a view without view designer I have a created a view ar_invoice_view that has the fields "ar_invoice.*". Now I added a field "newfield" to ar_invoice.dbf. Normally, I have to open ar_invoice_view with view desinger to refresh the "ar_invoice.*" fields list. Could I use commands to do the same thing? Tag: Wish list : TOTAL... EXCEPT ... Tag: 216528
  - 5
    - alter table add column question Is there a way to specify what position a column is in the table when altering tables in code? I have a client that has me do major updates annually which involve removing obsolete columns and adding new columns. I set up code in batches and thoroughly test things before altering their production data. So I might have a prg file that does soemthign like this (dumb example but you'll get the idea): alter table Customer drop column KidsNames alter table Customer add column DogsNames c(50) Let's say there are 12 columns in the table and I'd like DogsNames to occupy the 6th position. I know of course that I can do "modi stru" and move it manullly but that defeats the purpose of writing my code. How can I position columns so that they are not just tacked onto the end of the table? Thanks, Keith Tag: Wish list : TOTAL... EXCEPT ... Tag: 216523
  - 6
    - IP Address Hello everyone, Is there a built-in function to obtain the IP address of the computer runing my app?, or a Windows API that I can use? TIA Carlos Jones. Tag: Wish list : TOTAL... EXCEPT ... Tag: 216514
  - 7
    - Index works in vfp6 but now in vfp9 For some reason, an index will not work in vfp 9 that works in vfp6. Here is the statement: SELECT * FROM Shiptags WHERE ST_PTID = "PT029874" In vfp9 Rushmore will not use my index on ST_PTID but vfp6 will use it. Any ideas? Tag: Wish list : TOTAL... EXCEPT ... Tag: 216512
  - 8
    - Help with COPY TO command I am trying to convert a COPY TO command from Visual Foxpro 8 to Foxpro 2.6. Here is what I have in Foxpro 8: USE myFile COPY TO myFile.txt DELIMITED with '"' WITH CHAR , I need the output to look like this: "165064",""," ","0303",0,0,0,0.00,0.00,0.00,196807.26,196807.26 "165064","","A","0303",53,45,48,263.37,553.08,790.12,76772.97,0.00 "165064","165064M001","A","0303",44,28,22,0.00,0.00,0.00,0.00,0.00 I am not sure how to do this since Foxpro 2.6 doesn't have the WITH CHAR option. Has anyone run into this before, if so what did you do. Thanks, Mark Tag: Wish list : TOTAL... EXCEPT ... Tag: 216510
  - 9
    - Multi-Line Grid Header Hello and thanks in advance for the help. Is there any way to put a multi-line header in the grid controls (using VFP 7 SP1)? I tried "Check" + chr(13) + "Amount" but that didn't work. Does anyone know if this can be done? Thanks, Jeff Tag: Wish list : TOTAL... EXCEPT ... Tag: 216507
  - 10
    - set step on and Browse normal when i use set step on in a program or a function, it comes back as "Source not available" is this the way it was designed, or am i missing something. in another application, i need to put set step on before using browse normal. if i don't it doesn't stop the application from running. again, is this the way it was designed, or am i missing something? thanks for your help. Marty Tag: Wish list : TOTAL... EXCEPT ... Tag: 216503
  - 11
    - Using the HeaderFooter property in Word I am automating a large number of reports from a fox app and sending them to Word (office 2003). I am using the reference book Microsoft Office Automation with Visual Foxpro by Granor and Martin and it is excellent --- however I have two issues I cannot figure out. (and I know they must be simple....) 1st - I can only get my Header to print on the first page and I'd like it to carry over to all pages and 2nd - I need to get my first row of a table (which has the headers for each column) to repeat after a page break. Thank you in advance Pastor Hank W. Tag: Wish list : TOTAL... EXCEPT ... Tag: 216501
  - 12
    - Foxpro prg to receive an event from a VB DLL I am trying to set a Foxpro prg to receive an event from a VB DLL. The Fox app calls the VB dll and set all variables. Then should go about its biz till the VBdll says Im done. Not having much luck or fun here can anyone shed some light or point me in the correct direction? Heres my code: PUBLIC otest **LOCAL oEvents * create the VB object otest = CREATEOBJECT("pmcmodshape.clspmcmodshape") **oEvents = NEWOBJECT(otest.PmcModShapeIsDone) *!!! This must be set to true when calling PMC VB DLLS from Fox otest.bSkipEventWrapper = .t. * Set test Values and send to VB Properties otest.lSingle = 1.00 otest.sString = "hi karen" otest.iInteger = 1 * call function to sync the 0 based VB array with the * 1Based Fox array being set by value COMARRAY(otest,0) * Create test Array for VB properties DIMENSION ArrayName[5] as string ArrayName[1] = "Dan1" ArrayName[2] = "Dan2" ArrayName[3] = "Dan3" ArrayName[4] = "Dan4" ArrayName[5] = "Dan5" * This is how we pass arrays to VB DLL otest.subLoadFoxArray(@arrayName,"vtest1") * Create test Array for VB properties DIMENSION aMyArray [10] AS string aMyArray [1] = "Dan" aMyArray [2] = "WOW" aMyArray [3] = "WOW2" aMyArray [4] = "WOW3" aMyArray [5] = "WOW4" aMyArray [6] = "WOW5" aMyArray [7] = "WOW6" aMyArray [8] = "WOW7" aMyArray [9] = "WOW8" aMyArray [10] = "WOW9" * This is how we pass arrays to VB DLL otest.subLoadFoxArray(@aMyArray,"vtest2") * Call the dll sub Doit otest.gsubdoit() SET STEP ON **?EVENTHANDLER(otest,oEvents) &&.PmcModShapeIsDone() DEFINE CLASS mycalss as custom OLEPUBLIC IMPLEMENTS PmcModShapeIsDone IN otest PROCEDURE PmcModShapeIsDone * dim return arrays and display altered data dimension MyReturnArray1[5] dimension MyReturnArray2[10] MyReturnArray1 = otest.vtest1 MyReturnArray2 = otest.vtest2 =MESSAGEBOX("lSingle=" + ALLTRIM(STR(otest.lsingle, 2))) =MESSAGEBOX("sString=" + ALLTRIM(otest.sstring)) =MESSAGEBOX(otest.iInteger, 0, "Integer") =MESSAGEBOX("vtest1(1) = " + ALLTRIM(myreturnarray1[1])) =MESSAGEBOX("vtest2(1) = " + ALLTRIM(myreturnarray2[1])) END proc RELEASE otest **EVENTHANDLER(otest,oEvents,.t.) Tag: Wish list : TOTAL... EXCEPT ... Tag: 216500
  - 13
    - chart vs. graph Can someone give a description of the differences between the MSChart and MSGraph controls? Tag: Wish list : TOTAL... EXCEPT ... Tag: 216485
  - 14
    - Grid....(column) hi.... i need an idea... i have five columns on my grid, the 2nd thru the fifth column was disabled... Grid - Column properties: THISFORM.Grid1.Column1.Enabled = .T. THISFORM.Grid1.Column2.Enabled = .F. THISFORM.Grid1.Column3.Enabled = .F. THISFORM.Grid1.Column4.Enabled = .F. THISFORM.Grid1.Column5.Enabled = .F. this is my question.... is this possible when is select the current record on cloumn1, the rest of the ROWS on selected record will have the same current background color as ROW in Column1.... :-) regards... gernan Tag: Wish list : TOTAL... EXCEPT ... Tag: 216477
  - 15
    - Best approach to connecting to SQL Server - SQL Commands, Cursor Adapter or ADO Last couple of days a colleague of mine and myself have been having a debate on the best approach to connect and retrieve data from SQL. Please help me convinice my friend that he may not be entirely right. Requriements: - Data source is SQL Server 2000, (and will ALWAYS be SQL Server 2000, will never switch to another data source). - The data retrieval has to be quick (optimized) My colleague suggests the following approach (in order of best approach) 1. ADO - This is by far the best and most suitable way to connect and retrieve data from SQL Server from VFP. 2. Cursor Adapter - This is the second best option. 3. SQL Commands - Last and oldest technique to connect and retrieve and update data from SQL Server (according to him these commands are now outdated). Basically VFP developers using option 3 are still using antiquated techniques and are not moving forward. My comments, 1. ADO - last option. 2. Cursor Adapter - Second last option. (good if the data source can change) 3. SQL Commands - Best approach. (as the data source is ALWAYS SQL SERVER) Awaiting further comments on this. Tag: Wish list : TOTAL... EXCEPT ... Tag: 216476
  - 16
    - Using chinese characters and unicode in VFP After read Rick and Steven Black's articles I think to have consider all changes in Control Panel Localization this task needs. Now, I must to create a table (dbf) with all chinese characters and its unicode number on each. The following is the code: CREATE TABLE unihancodes (character c (2), unicode n (7)) ** 0x4E00 to 0x9FBB are the unicode numbers scope FOR i = 0x4E00 to 0x9FBB mchar =CHR(i) && it generates an error INSERT INTO unihancodes (character, unicode) VALUES (i,mchar) ENDFOR Perhaps it need some STRCONV() conversion I don't know. Thanks. Alejandro Tag: Wish list : TOTAL... EXCEPT ... Tag: 216468
  - 17
    - substr() How do I substr() to a special character? I have a name field"name" date is whole name 'Sherry L/Bayles' I want to divide the name into first, middle, last. I know this is simple but can't remember how. thanks a bunch sherry Tag: Wish list : TOTAL... EXCEPT ... Tag: 216462
  - 18
    - Disable selected grid rows How can I disable selected grid rows. FOr example, if the value of a certain field in the table of the grid is greater than 10, I want that grid row "read-only". -- TIA Cowboy Tag: Wish list : TOTAL... EXCEPT ... Tag: 216461
  - 19
    - Chinese coding (MultiByteToWideChar) Can anybody help me with this? I've spent about 80 hours finding the solution myself (no exaggeration). My VFP app generates HTML files from two databases containing Chinese texts. One is in gb2312 encoding and the other one is UTF8. Eg, the following two HTML files display the same Chinese text in your browser: <html> <meta http-equiv="Content-Type" content="text/html;charset=gb2312"/> Äú¾Ó×¡ÔÚÄÄ¸ö¹ú¼Ò£¿ </html> <html> <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"/> æ,¨å±.ä½?åo¨å"ªä¸ªå>½å®¶ï¼Y </html> Now, I really need to find out how to programatically convert this stuff Äú¾Ó×¡ÔÚÄÄ¸ö¹ú¼Ò£¿ to this stuff æ,¨å±.ä½?åo¨å"ªä¸ªå>½å®¶ï¼Y I've found the API MultiByteToWideChar but I can't get the right output. Robert Tag: Wish list : TOTAL... EXCEPT ... Tag: 216454
  - 20
    - crystal report 9 and installshield can installshield (VFP 9) bundle Crystal REport 9's runtime? How? -- .~. Might, Courage, Vision. http://www.linux-sxs.org / v \ /( _ )\ Linux 2.6.13 ^ ^ 23:10:01 up 4 days 1:56 load average: 1.02 1.02 1.00 Tag: Wish list : TOTAL... EXCEPT ... Tag: 216451
  - 21
    - Radio buttons like controls .. I have a legacy application using radio buttons .. want to ask you guy's what is the equivalent of radio buttons .. I have to add it through code .. in vfp 8 ? I want to replace @ .. say ..get Tag: Wish list : TOTAL... EXCEPT ... Tag: 216448
  - 22
    - VFP9 Service Pack 1 public beta online http://www.microsoft.com/downloads/details.aspx?familyid=1c06e35d-10a2-4a05-84fc-495b3a73ecf7&displaylang=en -- Eric den Doop www.foxite.com - The Home Of The Visual FoxPro Experts Microsoft MVP for Visual FoxPro Tag: Wish list : TOTAL... EXCEPT ... Tag: 216446
  - 23
    - Calling Another Forms Methods I have a form (Form1) that calls another form (Form2), and both forms are active. Form2 calls a method on Form1, ie val=form1.GetNextNr(). This has been working fine for many months, but now there is another form (Form3) active and it no longer works. I get the message Form1 Not Found. Form1 is there when I look at all active forms?? Thanks for your help Tag: Wish list : TOTAL... EXCEPT ... Tag: 216438
  - 24
    - Combo style = 2 does not allow writing to displayvalue Hi all! * A combo defined with: With This .boundColumn = 1 .style = 0 .ColumnCount = 2 .ColumnWidths = '0,100' .RowSourceType = 0 .AddListItem('Public',1,1) .AddlistItem('Private',2,1) .AddListItem(ALLTRIM(pcAyLabels(1577)),1,2) .AddListItem(ALLTRIM(pcAyLabels(1576)),2,2) EndWith It works just fine and I´m allowed to write (this.displayValue = ALLTRIM(pcAyLabels(1577))) to the combo´s displayvalue by code in its interActiveChange. But I want to change to style = 2. Then problems arize - the combo does not allow changing the displayvalue by code. Is there a workaround for this behaviour? Best regards Christina Tag: Wish list : TOTAL... EXCEPT ... Tag: 216433
  - 25
    - scanning for duplicate records. Please help again. i want to see if i have any dups, with the same agency,dptand employee numbers. use f:\foxpro25\lagers\dbases\lagredet.dbf order key alias lagredet go top scan lkey = (PADL(agency,6,"0")+PADL(dpt,3,"0")+PADL(employee,6,"0")) local rlist if seek(lkey) rlist=0 if lkey = (PADL(agency,6,"0")+PADL(dpt,3,"0")+PADL(employee,6,"0")) rlist = rlist+1 endif select lagredet endif endscan ? rlist Tag: Wish list : TOTAL... EXCEPT ... Tag: 216427

How about :
TOTAL ON ID_EQUI TO m:\matable.dbf EXCEPT ID_EQUI

Fabien

Re: Wish list : TOTAL... EXCEPT ... by Anders

Anders
Thu Sep 29 17:48:09 CDT 2005

Try

SET FIELDS TO ALL EXCEPT id_equi

-Anders

"invite" <invite@invite.com> skrev i meddelandet
news:OsBhMuQxFHA.2848@TK2MSFTNGP15.phx.gbl...
> How about :
> TOTAL ON ID_EQUI TO m:\matable.dbf EXCEPT ID_EQUI
>
> Fabien
>

Top