serial KeyCodesCNTs Default %Library.TMFormClass 60611,60053 60611,60052 %Library.TMForm %Library.String %Library.String Sys.MaskedQuery %TMPanel %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMComboBox %TMComboBox %TMComboBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox UI.Utils.MaskedQueryWizard.dlgExcelFormat %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMMemo %TMMemo %TMMemo %TMPopupMenu %TMPopupMenu %TMPopupMenu %TMPanel %TMPanel %TMPanel %TMEdit %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Enabled:%Library.Boolean,InterfaceOnly:%Library.Boolean=0 cache 0 document literal UseCacheTrans:%Library.Boolean,InterfaceOnly:%Library.Boolean=0 cache 0 document literal UseTrans:%Library.Boolean,InterfaceOnly:%Library.Boolean=0 cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 %Library.Boolean document literal cache 0 document literal Z","ASC") Do ..cbbSortType.Items.AddItem("Z->A","DESC") Quit ]]> cache 0 document literal cache 0 document literal cache 0 document literal Key:%Library.String cache 0 document literal CR<") Do dcwptAddPMI("-","",0) ; --- COLUMNs --- New ColumnsPMI Set ColumnsPMI=$$dcwptAddPMI("Kolomwaarde","",0) New MyPos Set MyPos=..MQuery.emColumns.GetAt(Key).Position New emColumn,ColumnHeader Set tmpKey="" For Set emColumn=..MQuery.emColumns.GetNext(.tmpKey) Quit:(tmpKey="") Do . Quit:(tmpKey=Key) ;De huidige column toevoegen is rather crazy . ;Indien geen fetch column en pos verder dan huidige col -> deze niet toevoegen . ;aangezien de waarde van deze col nog niet bekend is! . Quit:((emColumn.Position' Key:%Library.String cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form Label6 Panel1 Edit1 Label7 pnlMain SpeedButton1 SpeedButton2 chkTransformation mmoTransCode txtName btnAnnuleren btnOk btnNext btnPrevious emColumns Key lblHeader Label8 txtInputVal btnTestTrans lblInputValue CheckBox1 chkEnabled lblName chkIsSQLColumn chkQueryColumn chkTableColumn MQuery Panel2 CheckBox2 Label1 Label2 Memo1 Memo2 pnlCacheTrans pnlTrans chkCacheTrans chkTrans lblCacheTrans lblTrans mmoCacheTrans mmoTrans pmTemplates LastRightClickOnMemoCode cbbType lblType cbbTable txtAlias chkFetch chkShow lblAlias lblTable cbbSortType lblInfo lblSort mmoInfo pmStringTemplate lblSQLCode txtSQLCode pmStringTemplatesAll btnExcelFmt frmExcelFmt