Hi Experts

Could you clear if a TRY CATCH / Finally could run independently of an habilitated ON ERROR clause by using VFP?

Actually I'm using a customized ON ERROR clause that deviates the error and its details to a txt file preventing the system to present an error popup.

I need to check a specific part of the code about network fails or some other obscure problem that rarely ocurs and I'm planning to use a TRY/ CATCH only on this code - without inabilitate the previous ON ERROR.

Thanks in advance.

The replace BREED commands on line 80 has been working for months and has suddenly stopped.

Replace Descrip-- fields starting on line 88 still work.

*!*	*-----------------------------------------
* -    cbBreedRemind_Update.prg
*!*	writes breed and label edits back to practices pull files
*!*	*-----------------------------------------

lparameter lcThisPath;
			lcProc; 
			lnWeekNum
			
LOCAL laDirs[1];
		 lnI;
		 lcPullFile;
		 lcPrgNm
		 
set date to YMD
		 
lcPrgNm = "ckBreedRemind_update.prg"
?
? lcPrgNm + " STARTED", datetime()

if empty(lcThisPath)
	lcThisPath = "c:\vetdata\_de\vetdata\"	
endif


local lcWeekPullFile, ;
	lcWeekPullFileNam ;
	lcPracDir;
	lnWeekNum;
	lcPath ;
	lcScrubFile	
		

set safety off 
set deleted on

if empty(lnWeekNum)
	lnWeekNum = 36
endif


lcWeekNum = "9" + alltrim(right(str(100 + lnWeekNum),2))


lcWeekPullFile = "wk" + lcWeekNum + "_pull.dbf"

use in select('ScrubFile')
lcScrubFile = (lcThisPath) + "ckBreedScrub.dbf"
use (lcScrubFile) alias ScrubFile in 0 excl

select ScrubFile

*-- Create a liast of practice dirs	
SELECT DISTINCT DefaultDir FROM scrubFile INTO ARRAY laDirs

SELECT scrubFile
INDEX ON PRRecno TAG PRRecno

*-- Close possibly open Pullfile
USE IN SELECT('PullFile')

*-- Process all dirs
FOR lnI = 1 TO ALEN(laDirs)

  lcPullFile = lcThisPath + ALLTRIM(laDirs[m.lnI]) + "\pull\" + (lcWeekPullFile)
  IF FILE(m.lcPullFile)
  
    SELECT 0
    *-- Open Pullfile
    USE (m.lcPullFile) ALIAS PullFile
    *-- Update rows 

Select all Open in new window

…

I need to connect some Visual FoxPro Tables with MS SQL server, a real time connection it's not necessary as long we are able to pull and return data to the Visual FoxPro Tables from MS SQL. I have downloaded from Microsoft and tested VFPOLEDB and VFPODBC drivers with no success.
Do someone has a ODBC driver or a way to connect those two type of data, that works?
Thanking in advanced!!!

I am getting Alias filemaster not found on line 31.  I have tried various things as far as workspaces with no luck.

lcThisPath = "c:\inv\act\"      
close datab all
set safety off      
***For file1 lookup *****************************************************
use (lcThisPath) + "\filelist.dbf" in 0 shared
use (lcThisPath) + "\filemaster2.dbf" in 0 exclu
use (lcThisPath) + "\filemaster2.dbf" in 0 AGAIN ALIAS filemaster2_a SHARED

      brow last for len(alltrim(file1))>3 nowait

      select filemaster2
      set order to tag ufiled

            brow last nowait

            
      USE (lcThisPath) +  "templates\" + "ckfileEdit.dbf"
      select ckfileEdit

      COPY STRUCTURE TO (lcThisPath) + "\ckfileEdit.dbf"
      *-- close template file
      use in ckfileEdit

    use (lcThisPath) + "\ckfileEdit.dbf"

**ALIAS FILEMASTER2 IS NOT FOUND HERE:

    select filemaster2
      set order to tag ufile3

    select ckfileEdit
    set relation to upper(substr(file,1,3)) into filemaster2 additive
      set relation to upper(substr(file,1,3)) into filelist_a additive
                        
            select speciesd, species, filed, file, count(*) as cnt from (lcThisPath) + "ckfileScrub.dbf" group by species, speciesd, file, filed order by species, speciesd, file, filed into table ztemp.dbf      

      Select ckfileEdit
      
      Append from ztemp
                                          
      index on upper(filed) tag ufiled
      index on upper(substr(filed,1,3)) tag ufile3
      index on upper(substr(file,1,3)) tag ubr3
      set order to
      
      browse last fields cnt:R, species:20:R, speciesd:20:R, …

Hi Experts

Could you point a way to schedule JOBS by using Visual FoxPro, resembling in some manner MSSQLServer Agents Jobs ?

Even using VFP in conjunction with another tools.

Thanks in advance.

I need help from someone familiar with VFP "Coverage"

Concerned with how long some of my forms take to load, I've rigged it such that, in development mode, on loading any form, it will ask if I want to set coverage on and, if so, it sets coverage to (formname).csv.

To review the results I suck the csv data into a COVERAGE.DBF table ordered by METHOD and run a report which itemises every method called, how long each one runs, how many times they're called and the total time spent running any given method.

All of which works like a charm and has helped me to refactor and streamline my software.

Today I hit a problem which I don't understand.

The form I'm trying to analyse is reported as having 49 calls to its LOAD method.

This made no sense, so I inserted a global counter as first line in the method. It reported, as I expected, just one call to the method.

What am I missing?

Hi Experts

Could you point a way to migrate data from Excel 2016 to a DBF file?

In the past Excel versions  was there an option to DBF, no longer find on Excel 2016

Thanks in advance.

Hi Experts

Could you point how to configure a Codepage when creating a new table by using VFP?

The code I'm using

	CREATE TABLE m.drv_local+"TAB_VEND" (;
		ITEM                 N(2),;
		SB_DISP              C(10),;
		OBRA                 C(40) ,;
		QTD                  N(2) ,;
		Custo_Un             N(8,3),;
		Custo_Tot            N(8,3))

Select all Open in new window

When this table is created this configuration arises to the user:


So I need to automatize this.

Thanks in advance

I have been waiting patiently for 3 days for an expert solution to my problem.  I signed in this morning to discover that my question was not posted!  lol.  I must have forgot my coffee that morning.

I the meantime, I have coded something ugly that gives me what I need.  See end of this post.

Here's what I have from my original virtual post:

I have a table that looks like this:

 
I need to transform the data and structure into a table that looks like this:

 
I am writing a program that this code will run on each time the program is executed - in order for me to transform the current data each time ..
and for me to be able to sanely extract the information on an adhoc basis from one field rather than 9.  I think my solution is not going to be very efficient.

The original table structure (table1) is infiltrated throughout the system hundreds of times in numerous programs.  Thus I can only make this quick fix for now to facilitate the program I am working on.  

--------------------------------------------------
USE Table1
select prrecno, descriptn as descrip from Table1 where not empty(descriptn) into table ctemp
use table2
select Table2
append from ctemp

select prrecno, descrip2  as descrip from Table1 where not empty(descrip2) into table ctemp
select Table2
append from ctemp

select prrecno, descrip3  as descrip from Table1 where not empty(descrip3) into table ctemp
select Table2
append from …

I am getting "unrecognized command verb at "or descriptn = ".

I have tried enclosing in parenthesis before the or and after.  No good.

locate  for ;
                  isdigit(substr(breed1,3,1)) ;
                  or isdigit(substr(breed1,4,1));
                  or isdigit(substr(breed1,5,1)) or empty(breed1);      
      
                or descriptn = "XXX" or descrip2 = "XXX" or descrip3 = "XXX" or descrip4 = "XXX" ;
                or descrip5 = "XXX" or descrip6 = "XXX" or descrip7 = "XXX" or descrip8 = "XXX"

This part works fine, until I add the rest of the condition:
locate  for ;
                  isdigit(substr(breed1,3,1)) ;
                  or isdigit(substr(breed1,4,1));
                  or isdigit(substr(breed1,5,1)) or empty(breed1)