Aufruf: under construction

GRID = Fill2Grids(toMaster AS GRID , toChild AS GRID)

Rückgabe: under construction

Rückgabe der Funktion: GRID

Code: under construction

PROCEDURE Fill2Grids (toMaster AS GRID,toChild AS GRID) AS GRID
	*/ Erstellt ein Datenraster aus zwei Datenrastern
	LOCAL loGrid AS GRID , laCols[1], lni AS INTEGER, loX60 AS pmsx60TableBasic OF vcx\pmsmyclients.vcx, loColumn AS COLUMN, lcCaption AS STRING
	loX60  = My.Clients.X60Table
	loGrid = CREATEOBJECT("GRID")
	=ADDPROPERTY(m.loGrid,"_DoNotUseRelation",.T.)
	loGrid.COLUMNCOUNT = 0
	loGrid.RECORDSOURCE = m.toMaster.RECORDSOURCE
	IF loX60.GetColumnListByColumnOrder(@laCols,m.toMaster)>0
		*/ Der Master
		FOR m.lni = 1 TO ALEN(laCols)
			IF laCols[m.lni].VISIBLE
				loGrid.ADDCOLUMN(loGrid.COLUMNCOUNT+1)
				loColumn = loGrid.COLUMNS(loGrid.COLUMNCOUNT)
				TRY
					lcCaption = EVALUATE(laCols[m.lni].__Caption)
				CATCH
					lcCaption = laCols[m.lni].__Caption
				ENDTRY
				loColumn.ADDPROPERTY("__Caption",m.lcCaption)
				loColumn.Header1.CAPTION = m.lcCaption
				loColumn.CONTROLSOURCE = laCols[m.lni].CONTROLSOURCE
			ENDIF
		NEXT m.lni
		*/ Das Child
		IF loX60.GetColumnListByColumnOrder(@laCols,m.toChild)>0
			FOR m.lni = 1 TO ALEN(laCols)
				IF laCols[m.lni].VISIBLE
					loGrid.ADDCOLUMN(loGrid.COLUMNCOUNT+1)
					loColumn = loGrid.COLUMNS(loGrid.COLUMNCOUNT)
					TRY
						lcCaption = EVALUATE(laCols[m.lni].__Caption)
					CATCH
						lcCaption = laCols[m.lni].__Caption
					ENDTRY
					loColumn.ADDPROPERTY("__Caption",m.lcCaption)
					loColumn.Header1.CAPTION = m.lcCaption
					loColumn.CONTROLSOURCE = laCols[m.lni].CONTROLSOURCE
				ENDIF
			NEXT m.lni
		ENDIF
	ENDIF
	RETURN m.loGrid
ENDPROC