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 ?

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



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

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

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