Gestione tracce - Revision history

5.90.136.80 at 10:32, 10 November 2023

2023-11-10T10:32:59Z

2023-11-10T10:32:01Z

2019-07-03T12:59:42Z

2019-07-03T12:57:58Z

Undo revision 249 by SageDev (talk)

2019-07-03T12:50:30Z

2019-07-03T12:49:22Z

2019-07-03T12:48:07Z

2019-07-03T10:43:20Z

2019-07-03T07:14:25Z

2019-07-03T07:14:09Z

@@ Line 44: / Line 44: @@
 === Recupero file di errore ===
-<nowiki>
+<pre>
    If ERROR>0
      Local Clbfile YMSG(8)
@@ Line 76: / Line 76: @@
    YCLB= chr$(10) + chr$(13) + YCLB
-End</nowiki>
+End</pre>

← Older revision		Revision as of 10:32, 10 November 2023
Line 40:		Line 40:
	* -1 = verde		* -1 = verde
	* -2 = blu		* -2 = blu
		+
		+
		+	=== Recupero file di errore ===
		+
		+	<nowiki>
		+	If ERROR>0
		+	Local Clbfile YMSG(8)
		+	YMSG=""
		+	Call ERRORITRACCIA(filpath("TRA",GTRACE,"tra",0),YMSG)
		+	#File traccia import BOM: GTRACE
		+	#errori file traccia: YMSG
		+
		+	Endif
		+
		+	[..]
		+
		+	Subprog ERRORITRACCIA(YFILETRACCIA, YCLB)
		+	Value Char YFILETRACCIA() #YFILETRACCIA = filpath("TRA",GTRACE,"tra",0)
		+	Variable Clbfile YCLB() #carico file di traccia in un clob
		+
		+	Local Char YLINE(250)
		+	Openi YFILETRACCIA,0 Using [YIN] # apro il file YFILETRACCIA in lettura
		+
		+
		+	# read the file
		+	Repeat
		+	Rdseq YLINE Using [YIN]
		+	If left$(YLINE,5)="<0001"
		+	Append YCLB, YLINE + chr$(10)
		+	Endif
		+
		+	Until fstat <> 0
		+
		+	Openi YFILETRACCIA Using [YIN] # chiudo il file
		+
		+	YCLB= chr$(10) + chr$(13) + YCLB
		+	End</nowiki>

@@ Line 19: / Line 19: @@
      Endif
-     #e modi per scrivere un messaggio informativo
+     #scrivere un messaggio informativo
      Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN
      #Scrittura errore

@@ Line 19: / Line 19: @@
      Endif
-     #2 modi per scrivere un messaggio informativo
+     #e modi per scrivere un messaggio informativo
      Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN
      Call MESSAGE  ("log"-num$(date$)-time$)   FROM GESECRAN

@@ Line 19: / Line 19: @@
      Endif
-     #e modi per scrivere un messaggio informativo
+     #2 modi per scrivere un messaggio informativo
      Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN
      Call MESSAGE  ("log"-num$(date$)-time$)   FROM GESECRAN

@@ Line 30: / Line 30: @@
          Call FERME_TRACE From LECFIC    #chiudo traccia
          Call LEC_TRACE FROM LECFIC      #visualizzo traccia
      Endif
 </pre>

@@ Line 35: / Line 35: @@
 === Call ECR_TRACE("Testo",N) From GESECRAN ===
 Valori possibili di N:
-* 0=nero
+*  0 = nero
-* 1=rosso
+*  1 = rosso
-* 2=verde
+* -1 = verde
-* 3=blu
+* -2 = blu

@@ Line 10: / Line 10: @@
 <code>Call LEC_TRACE FROM LECFIC</code>
-La [[Variabili globali|variabile globale]] GTRACE contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.
+La [[Variabili globali|variabile globale]] '''GTRACE''' contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.
 Esempio: