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)

I am trying to add a field to a Foxpro table, as I have done before.

The field is saved, I run the program once - no issue.  The field is populated.  Then the field disappears! And the program crashes. "Variable not Found"

I have tried it both within the Table Designer and with the following code:

USE c:\vetdata\ckBreedScrub.dbf excl
alter tABLE c:\vetdata\ckBreedScrub ADD COLUMN defaultdir c(30)

The table has 114 fields, so it is not maxed out according to Foxpro's limitations.

This is insane.  Now I am insane after 2 hours of FRUSTRATION trying to simply add a simple field!

Attached are screen shots of errors, etc.  I am baffled.  And now I've spent another 20 minutes making screen shots and posting this.  AARGH!
TableProperties1.jpg
TableProperties2.jpg
PopulatedTable.jpg
Variable-Not-Found.jpg

Hi Experts

Could you point a way to automatize credit / debit cards payments by using Visual FoxPro?

Mainly a library already tested and aproved by you.

Thanks in advance!

Hi Experts

Could you point a way to prevent .FRX and .FRT files corruption?

Accordingly with
It looks to be corrupted:

and then, replacing with the FRX and FRT backups

Thanks in advance!

Hi Experts

Could you point out a routine to track the delay of the program steps during a VFP operation?

A client is complaining about the delay when saving data to .DBF (s) files. The problem is intermittent, not always occurs, just at the moment the customer push the "Save" button.

I guess Network latency is probably causing this. If so, how to workaround?

Thanks in advance.

We need to send emails from our VFP app. Currently we are calling outlook directly to do so using the following code. Ideally it would not depend on any external application and submit an email directly to a configured smtp server. If that is not an option using a generic interface that does not directly depend on outlook would still be useful. We do not need to receive email on these workstations, the mailing function should be as transparent to the user as possible, and not depend on outlook.   It will need to run on Windows Server 2012.

lnArea=SELECT()

lcBody = 'REQUEST DESCRIPTION: '+ALLTRIM(vSQLITRequests.Description)+CHR(13)+CHR(10)+CHR(13)+CHR(10)+;
			IIF(EMPTY(vSQLITRequests.Details),'','DETAILS: '+ALLTRIM(vSQLITRequests.Details)+CHR(13)+CHR(10)+CHR(13)+CHR(10))+;
			'CREATED AT: '+TTOC(vSQLITRequests.dtCreated)+CHR(13)+CHR(10)+;
			'CREATED BY: '+ALLTRIM(vSQLITRequests.CreatedBy)+CHR(13)+CHR(10)+;
			IIF(EMPTY(vSQLITRequests.ModifiedBy),'','MODIFIED AT: '+TTOC(vSQLITRequests.dtModified)+CHR(13)+CHR(10)+;
			'MODIFIED BY: '+ALLTRIM(vSQLITRequests.ModifiedBy)+CHR(13)+CHR(10))+;
			'REQUESTING EMPLOYEE: '+ALLTRIM(vSQLITRequests.RequestedBy)+CHR(13)+CHR(10)+;
			'REQUESTED COMPLETION ON OR BY DATE: '+DTOC(vSQLITRequests.dtRequestedComp)+CHR(13)+CHR(10)+;
			'PRIORITY: '+ALLTRIM(vSQLITRequests.Priority)+CHR(13)+CHR(10)+;
			'STATUS: '+ALLTRIM(vSQLITRequests.Status)+CHR(13)+CHR(10)+CHR(13)+CHR(10)+CHR(13)+CHR(10)
			
			

Select all Open in new window

…

I am sending parameters to a program based on user entry/selection on a form.

The variables entered in the form may look like this:

      lnWeekNum = "52"
      lcProd = "P"
      lcDate = "02/22/19"

The variable names are in a field called varpass and correspond to the variables on the form:
      varpass field = lnWeekNum, lcProd, lcDate
 

I have this working (thanks pcelba!) with this code:

SELECT varpass  FROM prodprocs WHERE procname = lcProgram INTO ARRAY laParms
*(laParms = lnWeekNum, lcProd, lcDate)
if empty(sys(2000,lcFilePath)) then
       lcMsg = lcFilePath + " does not exist *"
      Messagebox (lcMsg)
      return
 endif

IF !EMPTY(laParms[1])
  lcParams = ALLTRIM(laParms[1])
  do &lcFilePath with &lcParams

ENDIF

I need to be able to convert the variable type from a string to the data type that the called program requires.
I have added a field to the table called vartype to the table.

vartype values looks like this:
      vartype = val, str, dtoc

I think I need to add another dimension/field (varrtype) to the array containing the data type for each value in varpass.

I have added vartype to the select statement, but I haven't been able to take it any further.

SELECT varpass, vartype  FROM prodprocs WHERE procname = lcProgram INTO ARRAY laParms

I need to do these conversions based on this example:
      lnWeekNum = num(lnWeekNum)
      lcProd = str(lcProd)  .. no change
      lcDate = dtoc(lcDate)

I am getting “File does not exist” when they definitely do exist.  I have tested this endlessly.
I am testing an app that has a list of Foxpro programs in a list box.  The user selects a a program and clicks the “Run” button.
All the test programs in the list are in the same directory.  It works(ed) for one program and not the others.
To verify the validity of the path and filename:
1)      I duplicated the file names (and path) in the list that won't work, with the same file name as the one does works.  Copy and pasted.  I still get "File does not exist".  I pasted back it back over to this same one that was working – it no longer works.

     2) Programmitically wrote the location and filename to a text box before the program tries to run it.  After getting "File Does Not Exist", I  copied and pasted the text box contents into file explorer.  It opens, every time.

   3) I removed the following from my code that I thought was triggering the "file does not exist" error:
            if empty(sys(2000,lcFilePath)) then
                lcMsg = lcFilePath + " does not exist"
                Messagebox (lcMsg)
               return
         endif

         The error still occurs.   So It is not my code that triggers "File does not exist".

    4)  I added back the above IF block with an added ELSE statement:
                  if empty(sys(2000,lcFilePath)) then
                      lcMsg = lcFilePath + " does not exist **** !!!"
                    Messagebox …

How do I get a value from a particular column of the selected row in multi column list box in VFP?

v = thisform.myListBox... ?  Value of column 2

I am trying to capture the datetime value at the completion of a program called by a form.

The form calls the program with this code:
-------------------------------------------
if v = "load2_loopj.prg" then
       do load2_loopj.prg with lnWeekNum, cProd, cPetPics
 
endif

I have this code at the end of the load2_loopj.prg:
---------------------------------------------
      d = ttoc(datetime())
       return d

How do I capture the value of d in the form?

Is this the correct way to do this?

After uninstalling Office 2010 and installing Office 365 I cannot export to Excel from VFP.

The line
     loExcel = CREATEOBJECT("Excel.Application")
generates the error
    OLE error code 0x80040154: Class not registered.

I am seeing some suggested solutions online, but am wondering if they apply to the latest version of Office.  Locating the Office version in Excel shows
     Microsoft Excel for Office 365 MSO (16.0.11126.20234) 32-bit

Thanks in advance!

Hi experts

I'm planning to make the user's license (just a file that remains with the .exe) of an VFP app I developed readable (and visible) only by the app and not for Windows Explorer, do you know a way to do that?

When  the app starts, the code have to check if the file is not readable  and if so, make it readable just for the app obtain license information and then to make it not readable (and visible) again.

Thanks in advance