Foxite.COM Visual FoxPro Forum

Databases, Tables and SQL Server: Data Settings

Thu, 17 May 2012 13:59:16 +0100

Version: Visual FoxPro 9

Hi All

What is best setting for Data Options
I mean;
Tools --> Options --> Data

for multiuser environment, wher files are being shared etc

Saif

Forms: Form methods

Thu, 17 May 2012 13:05:19 +0100

Version: Visual FoxPro 9 SP2

Hello all!

Here is my problem. I have a rather complicated form in my project with lots of controls and methods. And, as it usually happens, the customer always wants more and more, so as a result I have a lot of code that was placed there as a "patch" with features not in the original design. This resulted in a lot of piled up code, some of which keeps looping and takes a significant time for the form to get activated. Tracing it manually will take too long. So I was wondering if there is a simple way to see the exact sequence of methods that fire when the form is started.

Thanks in advance!

-Vick

General VFP Topics: The future of VFP

Mon, 14 May 2012 09:23:40 +0100

Version: Visual FoxPro 9

Hi,

It been a while since MS announced that VFP will be discontinued.

In Australia, the most obvious impact was the instant disappearance of new development projects -- all new work was maintenance with the emphasis on moving to something new.

My question or maybe thought is -- MS has thrown the source for VFP out to the community. Has anyone looked at this and considered whether it can be developed further in an open source context?

One would presume that if VFP is built using C then the code could be adapted for use on Windows, Linux and other operatng systems. Has anyone investigated or considering this?

I note that people are still developing add-ons and improving functionality but I presume once the core system is not maintained by MS any further that most people will abandon ship.

I have heard talk about silverlight but again why "buy a new car" if their is a wreck in the front yard and it is able to be fixed.

So the question is ... is their anyone actually looking into maintaining VFP source and building a new 'product' based on this code?

Simon Cropper

Reports and Printers: Foxypreviewer lSilent Property

Thu, 17 May 2012 12:51:07 +0100

Version: Visual FoxPro 9

Foxypreviewer Documentation says that lSilent & cErrors properties are available in All Modes.
I am using version 2.96 but cannot locate these properties in _screen.oFoxypreviewer

Zaheer
http://www.zsoft.com.pk

Errors & Debugging: Defoxiv v1.008.190 protection error

Wed, 16 May 2012 21:19:57 +0100

Version: Visual FoxPro 9 SP2

I am using Defoxiv v1.008.190 to protect my exe file, but after protecting, when i run the exe file it ask to open dbf file.
Without protection it is working perfect as below image .

But after Protection it ask for open a dbf file as below image .

How to correct this ?

Warm Regards,
mk.

General VFP Topics: FoxPro Lifetime Achievement Award 2012

Wed, 16 May 2012 17:05:31 +0100

Version: Not Applicable

The FoxPro Lifetime Achievement Award honors those individuals who have contributed a great deal to the FoxPro community over the years. See http://fox.wikis.com/wc.dll?Wiki~FoxProCommunityLifetimeAchievementAward~VFP for previous award recipients. These recipients wish to continue the award and have created a committee to select a recipient for 2012. The committee consists of all 11 living previous recipients, Alan Griver (yag), and Sergey Berezniker representing the FoxPro community.

To submit your nominations for the 2012 recipients, please email Doug Hennig (dhennig@stonefield.com) by June 15, 2012.

Reports and Printers: Multi item print

Thu, 17 May 2012 10:27:20 +0100

Version: Visual FoxPro 9

Dear Experts

I'm having 15 items to preview in vfp native report in Single page,
How to do that .

For example:-
Create Cursor Test (ItemNo i, ItemType c(10),Qty n(2),Price n(4,2))
Insert into Test Values (1,GT,2,10.50)
Insert into Test Values (2,AT,3,10.50)
Insert into Test Values (3,BT,1,10.50)
Insert into Test Values (4,CT,4,10.50)
Insert into Test Values (5,DT,7,10.50)
Insert into Test Values (6,ET,9,10.50)
Insert into Test Values (7,FT,5,10.50)
Insert into Test Values (8,GT,8,10.50)

Microsoft Office Automation: Why Pivot Report? Why not Crosstab?

Thu, 17 May 2012 08:44:07 +0100

Version: Visual FoxPro 9

A pivot report is among the underrated and unused powerful feature of Excel. So I want to give some lights onto its importance because this is really helpful, not only to the end users, but also to the developers. Please read:

sandstorm36.blogspot.com/2012/05/why-pivot-report-why-not-crosstab.html

http://sandstorm36.blogspot.com
http://weblogs.foxite.com/sandstorm36

Classes and Objects: addproperty

Mon, 14 May 2012 17:14:05 +0100

Version: Visual FoxPro 6

Hi,
I've created properties programatically using this method
obj.addproperty("prop"). My problem now is I can't remove these properties
with obj.removeproperty("prop")- not available in VFP 6 - or
removeproperty(obj, "prop"). Anybody has an idea?
Thanks

Reports and Printers: How to Group Data on Report

Wed, 16 May 2012 21:29:32 +0100

Version: Visual FoxPro 9

Hi Friends,
I have created a view called V_Loansdisbursment, and this is how it looks like;
Transid dis_date Name chq_bank amount
001 01/01/2012 John PLC Bank 150
005 15/01/2012 Fred SSB Bank 285
009 01/02/2012 Gina SSB Bank 680
003 20/01/2012 Pat PLC Bank 1000
010 01/01/2012 Hook SSB Bank 360
016 15/01/2012 Rita SSB Bank 750
002 01/01/2012 Yaa PLC Bank 1500

The report is the same as the view is, I want to group them by dis_date and SUM on the dis_date on the report. I want my report to look like the below;

Transid dis_date Name chq_bank amount
001 01/01/2012 John PLC Bank 150
002 01/01/2012 Yaa PLC Bank 1500
010 01/01/2012 Hook SSB Bank 360
Total for 01/01/2012 2,010

005 15/01/2012 Fred SSB Bank 285
016 15/01/2012 Rita SSB Bank 750
Total for 15/01/2012 1,035

009 01/02/2012 Gina SSB Bank 680
Total for 01/02/2012 680
003 20/01/2012 Pat PLC Bank 1000
Total for 20/01/2012 1,000

Thank you

Classes and Objects: Barcodes PostNet and IMB with FoxBarcode

Wed, 16 May 2012 22:04:00 +0100

Version: Visual FoxPro 9 SP2

As the PostNet barcode will be discontinued soon, and use Intelligent Mail Barcode Code (IMB) will be required by United States Postal Service (USPS), many users FoxBarcode class I asked the support of IMB.

That is why I ask your help to release the new version that supports IMB FoxBarcode because Guillermo and I do not have time to do it quickly.

The print portion is already encoded, it is the same for KIX-code and RM4SCC (Royal Mail).

I need the coding in VFP of the specifications are described in:

-- Intelligent Mail Barcode specification --
https://ribbs.usps.gov/intelligentmail_mailpieces/documents/tech_guides/SPUSPSG.pdf

and the routine returns a string of up to 65 characters:

ATTFATTDTTADTAATTDTDTATTDAFDDFADFDFTFFFFFTATFAAAATDFFTDAADFTFDTDT

See Annex B of the Intelligent Mail Barcode specification.

Does anyone already done this coding?

We welcome any collaboration.

TIA

Luis Mar?a Guay?n
Tucum?n, Argentina
________________________________
SysOp de www.PortalFox.com

Microsoft Office Automation: Excel Multi Sheet to Multi dbf

Tue, 15 May 2012 09:42:29 +0100

Version: Visual FoxPro 9 SP2

I have a Excel file (.xlsx) with Multi Sheets and i want to import this file to Multi dbf files .
Like :
Excel file : conso.xlsx
Sheet1 : sales
Sheet2 : purchase
Sheet3 : others
...
...

Now i want to import Sheet1 as SALES.DBF, Sheet2 as PURCHASE.DBF, Sheet3 as OTHERS.DBF and so on .

Please How to do this ?

Warm Regards,
mk.

Grids: Highlighting Grid Row based on filter

Wed, 16 May 2012 18:44:17 +0100

Version: Visual FoxPro 9

I've read about how to highlight a grid row based on the mouse-selected row/cell. What I'm wondering is whether there's some way to change backcolor or change the font to bold, based on a filter instead of on a click event.

What I'm doing is selecting an auto part ID code based on a combo of year / make / model / engine size. Once I have the ID code, I use it to display the part description and price from a table of unique parts IDs. I also link it by part ID to a child table for all years / makes / models / engine sizes of cars that take that part ID. Then these records are displayed in the grid in question. There can be 15 or more child records for a single specific part ID.

I want to make the correct row stand out from the others, but am not sure how to accomplish that. The child table has the exact same field names and values that I plug into the filter string, so I could use the identical string to identify the row I want to highlight. But I'm not sure how to get from identifying the correct row, to highlighting just that row without any user input -- just based on the filter string.

Databases, Tables and SQL Server: Max Value from 3 fields

Mon, 14 May 2012 10:03:00 +0100

Version: Visual FoxPro 9

Dear Experts

I have following Table

I want to get maximum rate from three fields i.e 25,000.

Thanks

Databases, Tables and SQL Server: Trouble using array

Wed, 16 May 2012 15:57:45 +0100

Version: Visual FoxPro 9

Hi experts!
I'm having difficulty with the following code, I hope someone here can give a hint what i'm doing wrong. When running the code..I get "Operator/operand type mismatch". Pointing on this line of code "UPDATE &gcroom set &d4 = 1 WHERE id = ndays[x]"
when I edit the code to this "UPDATE &gcroom set &d4 = 1 WHERE id = 1" it works fine...but when using array variable I get the error message.

LOCAL ARRAY ndays[7]
LOCAL gcroom,d4,x

d4="t1"
gcroom ="A101"
IF !USED('&gcroom')
USE '&gcroom' IN 0 SHARED
ELSE
SELECT '&gcroom'
ENDIF

FOR x =1 TO 7
UPDATE &gcroom set &d4 = 1  WHERE id = ndays[x]
Endfor

Regards,
Joe

General VFP Topics: How to get email to DBF?

Wed, 16 May 2012 15:42:13 +0100

Version: Visual FoxPro 9 SP2

Hello All,

How to get following information into a DBF from my mail server?

I want following columns:

From
To
Subject
Received DateTime

Please give me a solution for this.

Regards,
Jignesh Parekh
--------------------------------------------------------------------------------------------------------------------------------
If better is possible, Good is not enough.

Off-topic: Network Adminstratiors

Tue, 15 May 2012 21:57:31 +0100

Version: Not Applicable

Hi Foxitians,

I am starting to ponder, "What is going on in this IT world of today!".

Sorry to spout off here, but how are you other experts finding things?

Recently I have had several involvements with "so called expert network administrators", and boy do I use the key words of "experts" loosely.

Read my most recent thread that relates to this topic; Thread ID: 344721 Message ID: 344915
If you read this thread if I was in charge, I would have canned this manager.

How do these folks attain there jobs anyways with:
- no formal computer eduction background?
- no university computer degrees?
- and no database certifications?

Is the IT world expanding so fast than quality of IT managers does not matter?

Maybe recently I have just encountered a band of idiots!

Pete "the IceMan", from the Great White North of Canada.
www.marathongriffincomputers.com

Forms: Dynamic color

Tue, 15 May 2012 11:59:59 +0100

Version: Visual FoxPro 6

Hi Experts!

i am having a problem with following code:

thisform.grid1.column3.DynamicBackColor = iif(allt(gltbook.inv)=allt('FEED'),RGB(196,236,255),iif(allt(gltbook.inv)=allt('MEDICINE'),RGB(210,255,210),iif(allt(gltbook.inv)=allt('MEDICINE')and ref=mref11,RGB(254,211,231),iif(allt(gltbook.inv)=allt('LABOUR'),RGB(255,181,106),iif(allt(gltbook.inv)=allt('VACCINE'),RGB(206,206,255),iif(allt(gltbook.inv)=allt('GAS'),RGB(235,214,214),iif(allt(gltbook.inv)=allt('DIESEL'),RGB(217,217,179),RGB(255,255,255))))))))

kindly solve this
waiting

Grids: Grid Selecton

Mon, 14 May 2012 14:03:55 +0100

Version: Visual FoxPro 9

Hello my Gurus,

I am back now :)

I'll try my best to start what I am looking for.
I've got a address file which I've show in grid. I want to select from Address1 to Address6.
so i can process only address field. at the momemnt i am taking input starting address and ending address field. but i was thinking it would be good If i take a input through grid selection.
I hope it would be possible. If i am not clear please ask me what i am missing.
Thanks in advance

No boundry for learning..Im still young

Errors & Debugging: List memory (verb.)

Wed, 16 May 2012 08:44:35 +0100

Version: Visual FoxPro 9 SP2

Hello to all,

in my ON error procedure I do a LIST MEMORY (with set alternate to)

In this section I usually find someting like xwert Privat C "Hello"
but in two entry I have XP_TXT (verb.)C "auto."

What does (verb.) mean ?
I searched forum and google and vfp help, but could not find it.

Thanks in advance

regards
tom

Forms: Narrowing scope of combo box dropdowns

Tue, 15 May 2012 20:19:16 +0100

Version: Visual FoxPro 9

I'm trying to implement a year/make/model/engine selection process as part of creating an auto parts catalog search. I have a table that lists info for each of these fields, and what I'm trying to do is progressively limit the scope of the returned values by selecting first the year, then listing only the makes that apply to that year, then only the models that apply to that year and make, and lastly only the engine sizes that apply to that year/make/model.

For example if we have a table that looks like:

2007, Toyota, Supra, 2.2L
2008, Honda, Accord, 2.0L
2008, Honda, Accord, 2.3L
2008, Honda, Pilot, 2.3L
2008, Kia, Sedona, 2.0L
2208, Ford, Focus, 3.2L
2009. Subaru, Outback, 2.2L
2009, Chevrolet, Cobalt, 2.0L

I'd start out by selecting "2008". This should scope the choice of makes down to Honda, Kia and Ford on (I presume) a combo-box list of makes. Selecting "Honda" should then scope the models on a combo-box list of models down to "Accord" and "Pilot". Selecting "Accord" should scope the list of engines down to "2.0L" and "2.3L". Selecting "2.3L" from that list, then I should be able to click a Search button and bring up only those parts that apply to a 2008 Honda Accord with a 2.3L engine.

This seems to require that I have a separate dropdown for each of these data elements, and then create their specific drill-down lists "on the fly" each time. I'm doing this correctly for the "Make" lookup list based on the year value, because after creating the Make table, I browse it and the proper rows are in it (and unwanted years are excluded). The problem I'm running into is when I set it as the control source for the "Make" dropdown list, my combo box doesn't show anything in the list.

I think this may not be the most elegant approach, and anyway it's not working. Better strategies would be appreciated.

Databases, Tables and SQL Server: CA issue with int identity field

Wed, 16 May 2012 08:38:50 +0100

Version: Visual FoxPro 9 SP2

Dear Expert,

Backend MS-SQL2005

I have a table dbo.mst_led in my SQL database field iLedAutono I (is identity yes, increment 1 seed 1)

I had created to CA from above table and Created a form with that CA.
while executing the form I m getting following error :

Please help.

*Exchange of $1 Create only $1, But Exchage of one Ideas Makes different two Ideas*

Databases, Tables and SQL Server: SQL concatenation

Tue, 15 May 2012 07:32:11 +0100

Version: Visual FoxPro 9 SP2

Hi all,

Is it possible to concatenate the values of a particular column in a cursor?

The following code demonstrates what I mean but uses SCAN to get the result.

CREATE CURSOR testCursor ;
              (TRANSVAL N(5,0), ;
               NAME C(6), ;
               CHARVAL C(1))
               
INSERT INTO testCursor (TRANSVAL, NAME, CHARVAL) VALUES (1, 'AAAA','4')
INSERT INTO testCursor (TRANSVAL, NAME, CHARVAL) VALUES (3, 'AAAA','7')
INSERT INTO testCursor (TRANSVAL, NAME, CHARVAL) VALUES (2, 'AAAA','2')
INSERT INTO testCursor (TRANSVAL, NAME, CHARVAL) VALUES (6, 'AAAA','7')
INSERT INTO testCursor (TRANSVAL, NAME, CHARVAL) VALUES (4, 'AAAA','5')
INSERT INTO testCursor (TRANSVAL, NAME, CHARVAL) VALUES (5, 'AAAA','5')

SELECT TRANSVAL, ;
       NAME, ;
       CHARVAL ;
  FROM testcursor ;
 ORDER BY NAME, TRANSVAL
 
myStr = ''
SCAN
   myStr = myStr + CHARVAL
ENDSCAN

MESSAGEBOX(myStr)

I was wondering whether a single SQL SELECT could produce ...

NAME     MYSTR
'AAAA'   427557

TIA.

Russell.

Distribution and InstallShield: License server

Wed, 16 May 2012 01:45:31 +0100

Version: Visual FoxPro 9 SP2

I am looking at options to update our license checking process to one where a check is made on an internet-based license database. Has anyone used such an approach and if so what components/tools did you use?

thanks,

pete

Databases, Tables and SQL Server: select statement to CNT(0) & SUM()

Tue, 15 May 2012 01:07:07 +0100

Version: Visual FoxPro 6

Dear expert ,

A select statement to CNT() on condition and SUM() without condition.

Data is as follows

CREATE CURSOR NEW_BAL ( CODE C(4) , BALANCE N(8,2))

INSERT INTO NEW_BAL VALUES ( AAA, 1200)
NEW_BAL VALUES ( AAA, 2200)
NEW_BAL VALUES ( AAA, 200)

NEW_BAL VALUES ( BBB, 1200)
NEW_BAL VALUES ( BBB, 250)
NEW_BAL VALUES ( BBB, 100)
NEW_BAL VALUES ( BBB, 110)

NEW_BAL VALUES ( CCC, 200)
NEW_BAL VALUES ( CCC, 1200)
NEW_BAL VALUES ( CCC, 102)
NEW_BAL VALUES ( CCC, 108)

EXPECTED RESULTS
----------------

All the balances will be summed within each group.

However the count for each group will exclude any balance below 200.

EXPECTED OUTCOME.

CODE COUNTS SUMMARY BALANCE
------------------------------------
AAA 3 3600
BBB 2 1660
CCC 2 120

pLEASE ASSIST

Thanks

Fred Quaue

Microsoft Office Automation: import excel

Tue, 15 May 2012 19:48:57 +0100

Version: Visual FoxPro 9 SP2

How to import from EXCEL 2003 or EXCEL 2007 .
It imports only 16384 rows.
my code :

SET DATE BRITISH
Local lcFile
lcFile = Getfile("Excel Files:XLS,XLSX")
If Empty(lcFile )
   Messagebox('No Excel File Selected',0+64,'Alert !!!')
   Return
Endif
If File('d:\xledger.Xls')
   Delete File d:\xledger.Xls
Endif

Use In (Select('xledger'))

loExcel = Createobject("excel.application")
loExcel.Workbooks.Open(lcFile)
loExcel.ActiveWorkbook.SaveAs("d:\xledger.xls",-4143)
loExcel.ActiveWindow.Close(.T.)
loExcel.Quit

* xledger.xls have 60000 rows but in xledger.dbf it is showing only 16384 records.

Select 0
Import From d:\xledger.Xls Type Xl5

How i can import all the records from OFFIE 2003 or OFFICE 2007 to a dbf file ?

Warm Regards,
mk.

VFP and .NET: How do I avoid the "Save PDF File as"

Mon, 14 May 2012 12:35:04 +0100

Version: Visual FoxPro 9

Hello Experts

I have the following code to create a PDF file from a frx.

SET PRINTER TO NAME 'Acrobat PDFWriter'

lcDefaultDir = SYS(5) + SYS(2003)
SET DEFAULT TO SYS(2003)

REPORT FORM myreport.frx TO PRINTER NOCONSOLE

SET DEFAULT TO (lcDefaultDir)
SET PRINTER TO DEFAULT

My question is how do I avoid the "Save PDF File as" prompt window to appear. In addition, the pdf file defaults to what my report name is. Is there a way to name the file whatever I want.

Regards,
Qaisar

Grids: Controlling Cells in a grid

Tue, 15 May 2012 18:17:28 +0100

Version: Visual FoxPro 8

Hi, I have read that some developers do not like using grids for data entry.
BUT I have a typical Parent-Child table relationship of Job Headers and Job Details
The easiest way to display the information is using a grid.
SO why not allow the users to amend the job details shown on the grid?

I have built a prototype and all seems OK........ but
Some of the cells contained in a row need to be "enabled=.F." dependant on another field within the row
(specifically it is a price method field in control - when set to S for single charge the user should not be able to enter a qty")

I have written some code (in the afterRowColChange event) and it almost works.

CASE this.gclPricemeth.cboPriceMeth.Value = "S"  && Single charge disable qty,runtimes and footage
	this.gclqty.Enabled = .F.
	this.gclqty.BackColor = 12632256	&& Grey

However, after a row change the cboPriceMethod still contains the value from the prior row
It does not contain the new value until a column change.

I know I can check for which change has occured (Row/Column/Both) but this does not help as the cboPriceMeth.Value
does not have the new value until a column change?

What Am I doing wrong i.e. how can I retrieve the value from the new row.
OR should I put my code in a different event?

Thanks

Reports and Printers: report behaviour

Tue, 15 May 2012 11:33:45 +0100

Version: Visual FoxPro 9 SP2

Dear all,
I have a report with a multiple labels with data in ascii (shows up as english junk & when you select the style to a particular font (arjun) shows up in hind).
The same does not work for field values why???

Even though the value of the field if i paste in the label it shows up proper but printing the field itself shows junk.

Even this command works very well (? last_name FONT 'Kruti Dev 016',16)

Can anyone please help me with this.

Regards
Murali Narayan

Forms: removing -ve sign

Tue, 15 May 2012 10:46:01 +0100

Version: Visual FoxPro 6

Hi Experts!

i have negitive value for amount for some reason and now i want to sum it without negitive sign:

sum amount to thisform.rm_amount1.value for allt(inv)=allt('MEDICINE') and ref= mref11

Waiting....

Classes and Objects: JPG in (String) Varialble

Tue, 15 May 2012 04:39:49 +0100

Version: Visual FoxPro 6

Experts,
Is there a way (or 3rd party lib) that can display JPG saved to a string variable
(jpg = FileToString("YouPict.JPG")

Thanks.

Microsoft Office Automation: Export all data to Outlook?

Mon, 14 May 2012 12:19:14 +0100

Version: Visual FoxPro 9 SP2

Hello.

I have a Table with 10 fields - Contacts data- (Firm,Name,e-mail, Telefon...).

How to export the whole Contacts to Outlook(2007) contacts?

This must be done once.

Thanks.