/****************************************************************************************/
/* Name: ww_SymsDoc.cmd								*/
/****************************************************************************************/
/* Date            Author          Version    ALWIN                 			*/
/* 06.02.2006      S.Konheisner    1.0        7.3.1 					*/
/****************************************************************************************/
/* Funktion:										*/
/* Das Script durchlaeuft das geoeffnete Projekt und erstellt eine Liste aller 		*/
/* verwendeter Symbole									*/
/****************************************************************************************/

/****************************************************************************************/
/* Deklaration										*/
/****************************************************************************************/

char q_pfad[160];	/* Pfad Quellprojekt 		*/
char q_pro[32];		/* Quellprojekt 		*/
char pfad[160];		/* Pfad des Zielprojektes 	*/	
char pro[32];		/* Zielprojekt 			*/	
char symfile[80];	/* Name der SymbolListenDatei	*/

char compfad[160];	/* Programm PFad (Alwin.exe)	*/

long anz;	
short i=[1];
long recs[4600];
fptr  fp;
short run_01;


/****************************************************************************************/
/* Initialisierung									*/
/****************************************************************************************/

get ge_path(pfad);			/* Pfad ermitteln  */
get ge_pro(pro);			/* Projekt ermitteln  */
get command_path(compfad);		/* Command Pfad */


/****************************************************************************************/
/* Algorithmus										*/
/****************************************************************************************/

run_01=[1];
if (run_01=[1])							/* wenn run_01 = 1 dann script starten */
	
	/****************************************************************************************/
	/* START 	Seiten ermitteln auf denen sich die Symbole befinden 			*/

	/* set ge_path(pfad); */
	/* set ge_pro(pro); */

	confirm_box
		  text (pfad,
			pro)
		button ("&OK")
		bitmap_no ([4])
		delay ([2]);

	create (pfad,pro,"SymList")!				/* Tabelle SymList */
	table ("PART")						/* in PART = Stueckliste erstellen */
	struktur						/* mit der Struktur */
		(name "Code1" code[1] length[8]),		/* Anlage */
		(name "Code2" code[2] length[8]),		/* Funktion */
		(name "Code3" code[3] length[8]),		/* Ort */
		(name "Code4" code[4] length[8]),		/* BMK */
		(name "T" code[5007] length[2]),		/* Symboltyp */
		(name "SymName" code[5008] length[64]),		/* Symbolname */
		(name "B" code[5000] length[6]);		/* Sheetname - 000215 */
	
	use (pfad,pro,"SymList"); table ("PART");		/* Verwende die Tabelle */
	
	append manip all;					/* fuelle sie mit den gefilterten Werten */

	record get all (anz,recs);				/* Anzahl der Eintraege ermitteln */

   if(anz<>[0]) 

	symfile="D:/Planauskunft/ELCADSymList/"&pro&"_SymList.txt";
	file open (fp,symfile,"w+"); 				/* Datei oeffnen (FilePointer, Dateiname = EASheets.txt im USR-Verz., */
									/*					w+ = immer neu erzeugen) */
	file output (fp,"%s\n","Projekt|Anlage|Funktion|Ort|BMK|Symboltyp|Symbolname|Sheet");	

	while (i<=anz)							/* Schleife bis Ende */ 

		record enter (recs[i]);					/* Datensatz i in den Speicher laden */	

		file output (fp,"%s\n",pro&"|"&1&"|"&2&"|"&3&"|"&4&"|"&5&"|"&6&"|"&7); 				/* wenn Fehler beim Umbenennen, in Protokollfile eintragen */

		i++;							/* Hochzaehlen */
	endwhile

	file close (fp);						/* Datei schliessen - speichern */

   else

	confirm_box
			text ("Es wurden keine EA-Baugruppensymbole gefunden!")
			button ("&OK")
			bitmap_no ([2]);
	

   endif

else									/* Checken ob Ueberhaupt ein Projekt angewaehlt ist */			

	confirm_box
		  text ("Das Script konnte nicht ausgefuehrt werden!",
			"Dies kann folgende Gruende haben:",
			"1. Es ist kein Projekt angewaehlt",
			"2. Die Projektdefinitionsdatei konnte nicht gefunden werden (Default.pro/project.ini)",
			"3. Die Symboldefinitonsdatei ist nicht vorhanden! (..\COMMAND.AUC\ww_EAChange.txt)")
		button ("&OK")
		bitmap_no ([4]);

endif			/* Checken ob Ueberhaupt ein Projekt angewaehlt ist */


/****************************************************************************************/
/* Re-Initialisierung									*/
/****************************************************************************************/




/****************************************************************************************/
/* Fehlerbehandlung									*/
/****************************************************************************************/

/****************************************************************************************/
/* Aenderungsliste									*/
/****************************************************************************************/
/* 26.10.2006	Script erstellt 							*/
/****************************************************************************************/