//"mixdrz.sc","Mix-soft Drzewo do mxGrida - przykład",70012,0,1.0.4,SYSTEM
//" Raporty Mix-soft",2400,14,62

// typy kolumn
#define ftString   0   
#define ftInt      1   
#define ftLong      16
#define ftMoney      2
#define ftDate      3
#define ftBitmap      17
#define ftCheck      7
#define ftDrop      128

// kolumny
#define   COL_NAZWA   0
#define   COL_OPCJA   1
#define   COL_WART   2
#define   COL_VALUE   3



#define COL_dg_SKROT   0
#define COL_dg_ID      1
#define COL_dg_CHECK   2
#define COL_dg_NAZWA      3
#define COL_dg_TYP      4
#define   COL_dg_VALUE   5

string sCo
int iU

//------------------------------------------------
int Sub AddColumn(dispatch g, string ColName, int ColWidth, int ColType, int ColSize, int ColHidden, int ColLocked)
//------------------------------------------------
   int col

    G.ColumnCount = G.ColumnCount + 1
    col = G.ColumnCount - 1
    G.Columns(col).Name       = ColName
    G.Columns(col).Width       = ColWidth
    G.Columns(col).FieldType(ColType,ColSize)
    G.Columns(col).hidden       = ColHidden
    G.Columns(col).Locked       = ColLocked

endsub

dispatch dgDok,dRow

//----------------------------------------------------------------------------------------------------
int Sub WczytajListeDok()
//----------------------------------------------------------------------------------------------------   

   dgDok.ColumnCount = 0
   dgDok.TreeMode = 1

   AddColumn(dgDok, sCo, 150, ftString,100, 0, 1)   
   AddColumn(dgDok, "Id", 60, ftLong,0, 1, 0)                  
   AddColumn(dgDok, "A", 20, ftCheck,0, 0, 1)   
   AddColumn(dgDok, "Nazwa", 60, ftString,100, 1, 1)            
   AddColumn(dgDok, "typ", 60, ftLong,0, 1, 0)            
   AddColumn(dgDok, "Value", 60, ftString,100, 1, 0)

   dgDok.Template.SetFont(0, "Arial", 14, 1)
   dgDok.Template.SetFont(1, "Arial", 14, 0)
   dgDok.Template.SetFont(-1, "Arial", 14, 1)
   dgDok.RowHeader = 0

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Znaczniki"
            dRow.Value(COL_dg_ID) = 13000
            dRow.Value(COL_dg_NAZWA) = ""            

   BaseXT xt
   int err
   int k

for k = 1 to k > dgDok.RowCount
   xt.SetKey("super")
   xt.SetKeySeg("super",dgDok.Rows(k-1).Value(COL_dg_ID))
   xt.SetKeySeg("kod","")   

   err = xt.GetRec(GE)
   while err == 0
      if xt.GetField("super") != dgDok.Rows(k-1).Value(COL_dg_ID) then exit

            if xt.GetField("typ") != "0" then
               dRow = dgDok.InsertChildRow(k-1,0)
               dRow.Value(COL_dg_SKROT) = xt.GetField("kod")
               dRow.Value(COL_dg_ID) = xt.GetField("id")
               dRow.Value(COL_dg_TYP) = xt.GetField("typ")
               if xt.GetField("flag") == 128 then dRow.Value(COL_dg_CHECK) = 1
            endif

      err = xt.GetRec(NX)
   wend
next k


// porozwijaj wszytkie gałęzie
for k = 1 to k > dgDok.RowCount
   dgDok.Rows(k-1).Expanded = 0
next k
   dgDok.Rows(0).Expanded = 1


endsub

//------------------------------------------------
int sub OnCommandDok(int id, int msg)
//------------------------------------------------

   if id == 0 && msg == 0 then
      WczytajListeDok()
   endif

endsub


   Form "Mix-soft Przykład - znaczniki",275,416
        control "grid", dgDok, 5,5,260,340
        button "Anuluj", 150,355,80,25, -1
   int ko = execform OnCommandDok

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Znaczniki"
            dRow.Value(COL_dg_ID) = 13000
            dRow.Value(COL_dg_NAZWA) = ""   

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Magazyny"
            dRow.Value(COL_dg_ID) = 6900
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Użytkownicy"
            dRow.Value(COL_dg_ID) = 6000
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Dokumenty"
            dRow.Value(COL_dg_ID) = 7000
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Stawki VAT"
            dRow.Value(COL_dg_ID) = 10000
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Słowniki"
            dRow.Value(COL_dg_ID) = 5000
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Słowniki pól"
            dRow.Value(COL_dg_ID) = 16000
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Opisy dokumentów"
            dRow.Value(COL_dg_ID) = 14000
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Pola dodatkowe"
            dRow.Value(COL_dg_ID) = 6760
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Formy płatności"
            dRow.Value(COL_dg_ID) = 6650
            dRow.Value(COL_dg_NAZWA) = ""

            dRow = dgDok.InsertRow(dgDok.RowCount)
            dRow.Value(COL_dg_SKROT) = "Katalogi Sprzedaży"
            dRow.Value(COL_dg_ID) = 2300
            dRow.Value(COL_dg_NAZWA) = ""