Forum Użytkownikow Subiekt GT

InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: tauosu w Maj 10, 2018, 13:05:17

Tytuł: Zestawienie prezentujące braki towaru we wszystkich ZK z wybraną flagą
Wiadomość wysłana przez: tauosu w Maj 10, 2018, 13:05:17

Witam,

Chciałbym zmodyfikować przykład z dokumentacji sfery do własnego użytku -> chodzi o obiekt SuBrak

Chciałbym sprawić by wypluł on wszystkie ZK z wybraną flagą gdzie jest brak towaru - używam flagi w ZK by oznaczać zamówienia z brakami, ale przy dużej ilości ZK nie jestem w stanie zapanować czego gdzie brakuje.

może ktoś mi podpowiedzieć jak zmodyfikować kod poniżej by to grało ?

Kod: [Zaznacz]

Private Sub Dokumenty_BrakiTowarow()
On Error GoTo ErrHandler
 
    Dim oSubGT As InsERT.Subiekt
    Dim oDok As InsERT.SuDokument
    Dim oBraki As InsERT.SuBraki
    Dim oBrak As InsERT.SuBrak
   
    Set oSubGT = UruchomSubiekta()
    Set oDok = oSubGT.SuDokumentyManager.Wczytaj("FS 1/2011")
    Debug.Print oDok.NumerPelny
   
    oDok.StatusDokumentu = InsERT.SubiektDokumentStatusEnum.gtaSubiektDokumentStatusWywolany
    oDok.Zapisz
    oDok.Zamknij
   
    Exit Sub
 
ErrHandler:
   
    If Hex(Err.Number) = "80040F60" Then
        Set oBraki = oDok.PozycjeBrakujace
        For Each oBrak In oBraki
            Debug.Print "Towar: " & vbTab & oBrak.TowarNazwa
            Debug.Print "Lp.: " & vbTab & oBrak.Lp
            Debug.Print "Wybrano: " & vbTab & oBrak.IloscJm
            Debug.Print "Brakuje: " & vbTab & oBrak.Brak
            Debug.Print "Na magazynie: " & vbTab & oBrak.MagazynStan
            Debug.Print "Zarezerwowane: " & vbTab & oBrak.MagazynRezerwacja
        Next
        Dim iWybor As Integer
        iWybor = MsgBox("Czy zmniejszyć ilości brakujących pozycji?", vbYesNo + vbQuestion)
        If iWybor = vbYes Then
            oBraki.PomijanieRezerwacji = True
            oBraki.ZmniejszIlosciNaPozycjach
            oDok.StatusDokumentu = InsERT.SubiektDokumentStatusEnum.gtaSubiektDokumentStatusWywolany
            'oDok.Wyswietl
            oDok.Zapisz
            oDok.Zamknij
           
        Else
            MsgBox "Dokument pozostanie w niezmienionej postaci", vbInformation
            oDok.Zamknij
            Exit Sub
        End If
    Else
        Debug.Print Err.Number & " - " & Err.Description
    End If
       
End Sub



Tytuł: Odp: Zestawienie prezentujące braki towaru we wszystkich ZK z wybraną flagą
Wiadomość wysłana przez: birds22 w Maj 10, 2018, 13:15:49

Ale co i gdzie ma "wypluć"? Przecież obiekt SuBrak działa w kontekście danego dokumentu i to jeszcze takiego, który może wywołać skutek magazynowy...

Napisz może lepiej co robisz i co chcesz uzyskać - może wystarczy Ci po prostu zwykłe zapytanie SQL?

Tytuł: Odp: Zestawienie prezentujące braki towaru we wszystkich ZK z wybraną flagą
Wiadomość wysłana przez: tauosu w Maj 11, 2018, 09:46:14

Dzięki za odpowiedź,

Chciałbym uzyskać po prostu listę towarów które są w zamówieniach od klienta ale które nie mają stanu magazynowego i np: liczbę towaru który brakuje

Tak musimy wchodzić w każdą ZK i sprawdzać czy wszystko jest, jakbyśmy mieli taką listę bardzo by to ułatwiło nam pracę.

Lista mogła by np: wyglądać tak:

Symbol towaru, nazwa towaru, ilość brakująca, numer ZK

Tytuł: Odp: Zestawienie prezentujące braki towaru we wszystkich ZK z wybraną flagą
Wiadomość wysłana przez: candy w Maj 11, 2018, 10:15:38

Dwa pytania:
1. Sprawdziłeś zestawienie "Towary na zamówieniach"?
2. Masz dwa zamówienia na ten sam towar, każde po 7 szt. Na stanie jest 10 szt. Które zestawienie ma pokrycie w towarze, a które nie ma?

Tytuł: Odp: Zestawienie prezentujące braki towaru we wszystkich ZK z wybraną flagą
Wiadomość wysłana przez: Biniew w Maj 11, 2018, 16:24:18

a jak sie kliknie na danym ZK prawym to tam jest chyba cos co potrzebujesz...ma chyba w nazwie raport...

Tytuł: Odp: Zestawienie prezentujące braki towaru we wszystkich ZK z wybraną flagą
Wiadomość wysłana przez: tauosu w Maj 13, 2018, 18:10:49

Cytat: candy w Maj 11, 2018, 10:15:38

Dwa pytania:
1. Sprawdziłeś zestawienie "Towary na zamówieniach"?
2. Masz dwa zamówienia na ten sam towar, każde po 7 szt. Na stanie jest 10 szt. Które zestawienie ma pokrycie w towarze, a które nie ma?

1: Tak w miarę ok tylko brakuje mi tam flagi do wyboru i musiałbym zrobić porządek z rezerwacjami
2: u nas jest tak,że realizujemy zamówienia w kolejności więc pierwsze które będzie zrealizowane przejdzie

Cytat: Biniew w Maj 11, 2018, 16:24:18

a jak sie kliknie na danym ZK prawym to tam jest chyba cos co potrzebujesz...ma chyba w nazwie raport...

Aktualnie realizujemy po 2000 zamowien na dzien, pytanie czy jest sens klikac dla kazdego zk pozostawie bez odpowiedz :)

Tytuł: Zestawienie prezentujące braki towaru we wszystkich ZK z wybraną flagą
Wiadomość wysłana przez: candy w Maj 13, 2018, 20:44:33

No to pozostaje Ci zrobić albo zamówić zestawienie, które to policzy.
Sfera i SuBraki raczej do niczego się nie przydadzą.