Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Fun with SET EXACT
Message
De
16/02/2021 12:31:47
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
 
 
À
16/02/2021 12:24:51
Mike Yearwood
Toronto, Ontario, Canada
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
01678259
Message ID:
01678287
Vues:
43
>>>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]
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform