Inoffizielles Windev-Forum

Code: Alles auswählen

	sTextHG, sTextUG, sTextOrtArt  is string
	IF NOT ( HOpen(WE_HG) AND HOpen(WE_UG) AND HOpen(WE_CH_HAU) AND HOpen(WE_CH_KAT) ) THEN
		Error("Datei kann nicht geöffnet werden" + HErrorInfo())
   ELSE
   	HExecuteQuery(QRY_ListHG)
	   HReadFirst(QRY_ListHG)
	   WHILE NOT HOut(QRY_ListHG)
	   	sTextHG = QRY_ListHG.KEY_HG+" - "+QRY_ListHG.TXT_DE
	    	TreeAdd(TREE_WellerKeyListe,sTextHG,"","","",tvAcceptDuplicate,"Hauptgruppeneintrag")
	   	HExecuteQuery(QRY_ListHG_UG,hQueryDefault,QRY_ListHG.KEY_HG)
	   	HReadFirst(QRY_ListHG_UG)
	   	WHILE NOT HOut(QRY_ListHG_UG)
	   		sTextUG = sTextHG+TAB+QRY_ListHG_UG.KEY_UG+" - "+QRY_ListHG_UG.TXT_DE
	   		TreeAdd(TREE_WellerKeyListe,sTextUG,"","","",tvAcceptDuplicate,"Untergruppeneintrag")
				HExecuteQuery(QRY_ListHG_UG_OrtArt,hQueryDefault,QRY_ListHG_UG.KEY_UG)
				HReadFirst(QRY_ListHG_UG_OrtArt)
				WHILE NOT HOut(QRY_ListHG_UG_OrtArt)
					sTextOrtArt = sTextUG+TAB+QRY_ListHG_UG_OrtArt.WE_KEY+" - "+QRY_ListHG_UG_OrtArt.VORT_DE+" ~ "+QRY_ListHG_UG_OrtArt.VART_DE
					TreeAdd(TREE_WellerKeyListe,sTextOrtArt,"","",QRY_ListHG_UG_OrtArt.WE_KEY,tvAcceptDuplicate,"Ort+Art-Eintrag")
					HReadNext(QRY_ListHG_UG_OrtArt)
				END
	   		HReadNext(QRY_ListHG_UG)
	   	END
	   	HReadNext(QRY_ListHG)
	   END
	END