Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-29, 16:57x



Odpowiedz w temacie  [ Posty: 5 ] 
HMF - katalog zamówień obcych 
Autor Wiadomość

Rejestracja: 2007-12-07, 11:07
Posty: 86
Post HMF - katalog zamówień obcych
W kartotece zamówień obcych mam następująco utworzoną hierarchię katalogów: Zamówienia obce -> KAT_1 -> KAT_1_1. Do katalogu KAT_1_1 przypisane są zamówienia. Potrzebuję na wydruku generowanym z poziomu kartoteki zamówień (po zaznaczeniu jakiegoś zamówienia) wydrukować nazwę katalogu KAT_1 (czyli nadrzędnego). I tu pytanie: jak wykonać coś takeigo w AmBasic?


2010-01-21, 23:38
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post 
Katalogi sa zapisane w bazie iteracyjnie czyli musisz pobrac nazwe i id katalogu na jego podstawie poszukac nadrzednego katalogu i tak dalej:)


2010-01-22, 01:15
Wyświetl profil

Rejestracja: 2007-12-07, 11:07
Posty: 86
Post 
Dziekuję za zainteresowanie. Wiem jak to wygląda w bazie i jak np. wyciągnąć coś takiego zapytaniem w bazie SQL. Jednak w AmBasic dopiero zaczynam dlatego mam prośbę o kawałek kodu. Z góry dziękuję za odpowiedź.


2010-01-22, 07:38
Wyświetl profil
Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2008-04-18, 18:52
Posty: 5169
Pomógł: 59
Post 
A uzyles przycisku szukaj? na forum jest pelno przykładow jak otworzyc/odczytac cos z bazy za pomoca ambasica...... a skoro wiesz co chcesz odczytac - to juz 90% sukcesu

PS. Mozna tez obejrzec dowlny raport w handlu np diagnostyczny - prawie kazdy otwiera sobie jakies bazy i czyta z nich :)


2010-01-22, 09:11
Wyświetl profil

Rejestracja: 2009-02-27, 09:09
Posty: 84
Pomógł: 1
Post 
Witam przedsatawiam przykład w VB6

Wyświetlenie struktury głównego drzewa

Kod:

Dim root As Long

Public Function GetRoot(tr As TreeView) As Long
Dim rs As New ADODB.Recordset
Dim gr As Long
   
    On Error GoTo error
   
    gr = 0
   
    rs.Open "SELECT * FROM xt WHERE id=root AND super=1020 AND typ=12", SYcon, adOpenDynamic, adLockOptimistic
    If rs.RecordCount = 1 Then
' Znalazlem root
       tr.Nodes.Add , tvwFirst, "root", rs!kod, 1
       tr.Nodes("root").Tag = rs!id
       gr = rs!id
    End If
    rs.Close
    Set rs = Nothing
   
    GetRoot = gr
    Exit Function
   
error:
    MsgBox err.Description

End Function

Public Sub GetTree(tr As TreeView, root As Long)
Dim rs As New ADODB.Recordset
Dim ile_tree

    On Error GoTo error

    If root > 0 Then
       rs.Open "SELECT * FROM xt WHERE super='" & root & "'", SYcon, adOpenDynamic, adLockOptimistic
       ile_tree = rs.RecordCount
       If ile_tree > 0 Then
          For i = 1 To ile_tree
              tr.Nodes.Add "root", tvwChild, "node_" & i, rs!kod, 3
              tr.Nodes("node_" & i).Tag = rs!id
              If rs!podkatalog > 0 Then
                 GetChilds tr, rs!id, "node_" & i
              End If
              rs.MoveNext
          Next i
       End If
       rs.Close
       Set rs = Nothing
    End If
   
    Exit Sub

error:
    MsgBox err.Description, vbCritical

End Sub

       root = GetRoot(Tree1) ' Towary
       GetTree Tree1, root



Pozdrawiam.

_________________
Cyfrowa lodówka.


2010-04-06, 10:02
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 5 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Lista zrealizowanych zamówień obcych

w Programy Handlowe

LooKi

0

1972

2010-07-10, 15:09

LooKi Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Rozliczenie magazynowe zamówień obcych - HMF2011a

w Programowanie

mrEM

1

2232

2011-02-14, 10:03

mrEM Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. [Handel Forte 2008] import zamowien obcych - iorec

w Programowanie

sebapr

12

7818

2012-01-18, 11:15

sebastianl84 Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. automatyczny import zamowien obcych do symfonii handel - jak

w Techniczne

bugs10

1

2934

2009-09-08, 11:31

barnie Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 12 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

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant