Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Fun with SET EXACT
Message
From
16/02/2021 12:31:47
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
 
 
To
16/02/2021 12:24:51
Mike Yearwood
Toronto, Ontario, Canada
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
01678259
Message ID:
01678287
Views:
42
>>>The index always accepted variable length strings. In cases where the function, like sys(2007) returns variable length, you have to pad it out, as I understand it.
>>
>>When the index is created, it takes the length of the value as the length of the index. So depending on what's in the first record at that moment you get different lengths and then for other records the tag value is stored in that length. Perhaps you accidentally had one in the command window which evades the error, and another one when running the code?
>
>Perhaps Lutz did, yet.

The code is
*next line fails
					&lcIndex.
				ENDFOR


				USE IN (SELECT(JUSTSTEM(.c_OutputFile)))

				*-- La actualización de la fecha sirve para evitar diferencias al regenerar el DBF
				IF toFoxBin2Prg.l_ClearDBFLastUpdate THEN
					ldLastUpdate	= EVALUATE( '{^2013/11/04}' )
				ELSE
					ldLastUpdate	= EVALUATE( '{^' + toTable._LastUpdate + '}' )
				ENDIF

				loDBFUtils.write_DBC_BackLink( .c_OutputFile, toTable._Database, ldLastUpdate )

				toFoxBin2Prg.updateProcessedFile()
			ENDWITH && THIS


		CATCH TO loEx
			lnCodError		= loEx.ERRORNO
			toFoxBin2Prg.updateProcessedFile( 0, '', '', 'E1' )
			loEx.USERVALUE	= 'lcIndex="' + TRANSFORM(lcIndex) + '"'

			IF THIS.n_Debug > 0 AND _VFP.STARTMODE = 0
				SET STEP ON
*this line stops
now in command window &lcIndex. runs.

Since we are in a TRY, we can not simply set the Next Statement
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform