|
|
Strona 1 z 1
|
[ Posty: 6 ] |
|
Aktywne znaczniki dla towarow
Autor |
Wiadomość |
JacekBomba
Rejestracja: 2009-10-29, 09:48 Posty: 48 Pomógł: 1
|
Aktywne znaczniki dla towarow
Witam.
Z jakiej tabeli mozna wyciagnac informacje o aktywnych (czyli zaznaczonych) znacznikach, ktore sa przypisane do towarow. Chodzi mi o wyciagniecie danych z okienka Kartoteki -> Ustawienia -> Znaczniki -> Towary
Pozdrawiam,
Jacek
|
2009-11-18, 15:06 |
|
|
Autor |
Wiadomość |
Mix-soft.pl
|
|
|
byrusia
Rejestracja: 2009-11-02, 13:05 Posty: 191
|
.
xt
super 13600 to towar
|
2009-11-18, 15:36 |
|
|
byrusia
Rejestracja: 2009-11-02, 13:05 Posty: 191
|
.
flag 128 daje aktywny
|
2009-11-18, 15:41 |
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Kod: //"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
|
2009-11-18, 16:31 |
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Dociekliwym proponuję dopisanie :
Kod: 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) = ""
|
2009-11-18, 16:42 |
|
|
JacekBomba
Rejestracja: 2009-10-29, 09:48 Posty: 48 Pomógł: 1
|
Dzieki wielkie !!!
|
2009-11-18, 16:57 |
|
|
|
Strona 1 z 1
|
[ Posty: 6 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 16 gości |
|
Nie możesz tworzyć nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz dodawać załączników
|
|
|
|