Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Carriage Returns with TEXT ENDTEXT
Message
From
22/08/2012 13:39:25
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Carriage Returns with TEXT ENDTEXT
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01551040
Message ID:
01551040
Views:
92
I have the following code in an error routine
lcMessage = ""
TEXT TO lcMessage TEXTMERGE NOSHOW ADDITIVE
Error ID <<lcErrorId>> has been logged to U:\VPOKE_PI\ERRORLOG
Computer = <<GETENV("COMPUTERNAME")>>
Methodsheet = << ocfg.nmethodsheet >>
Assembly = <<TRIM(c_methodsheet.part_no) + IIF(EMPTY(c_methodsheet.revision),"","   Rev " + c_methodsheet.revision)>>
Version = <<c_methodsheet.version>>
Module = <<ICASE(ocfg.cActiveForm="E","Engineering",ocfg.cActiveForm="H","Hardware",ocfg.cActiveForm="Q","QA",ocfg.cActiveForm="A","Assembly Build")>>
User = << oRec.er_usrname >>
ENDTEXT

IF INLIST(ocfg.cActiveForm,"Q","A")
	TEXT TO lcMessage TEXTMERGE NOSHOW ADDITIVE
Serial No = << ocfg.cSerialNo >>
Sequence = << c_methodsheet_sequence.stepno >>
	ENDTEXT
ENDIF
The output, looks like
Error ID 48 has been logged to U:\VPOKE_PI\ERRORLOG Computer = SYS-PUPKO Methodsheet = 763
Assembly = MyAssembly   Rev 06  
Version = 2.00
Module = Assembly Build
User = Current User Serial No = RLPABCD Sequence = 4
I need some help in understanding why the first three items (Error/Computer/Methodsheet) are on one line while Assembly/Version/Module/User go to the next line and then SerialNo/Sequence don't start on new lines.

All help very much appreciated.................Rich
Next
Reply
Map
View

Click here to load this message in the networking platform