Sub dekretacja()
    On Error GoTo ErrHandler

   
    Dim oRok As InsERT.RokObrotowy
    Dim oRewGT As InsERT.Rewizor
   
    Dim oKP As InsERT.FinDokument
    Dim oDkr As InsERT.Dekret
    Dim oDkrPoz As InsERT.DkrPozycja
    Dim oKh As InsERT.Kontrahent
    Dim oDkrMgr As InsERT.DkrManager
   
    Set oRewGT = Test_my_e24_rewizor()

   

    Set oKP = oRewGT.FinManager.WczytajDokument("FS 1/ALL/03/2026")
   
    If oKP.ObiektPowiazanyTyp = gtaDokFinObiektKontrahent Then
        Set oKh = oRewGT.Kontrahenci.Wczytaj(oKP.ObiektPowiazanyId)
        If oKh.Analityka = "" Then
           oKh.AnalitykaNadaj
           oKh.Zapisz
        Else
        End If
    Else
        MsgBox "cosik nie tak"
        Exit Sub
    End If
   

    Set oDkrMgr = oRewGT.DkrManager
    Set oDkr = oDkrMgr.DekretujWgSchematu(3, 11634395, 131072)
   

   
    oDkr.Wyswietl
 
    oKh.Zamknij
    oKP.Zamknij
     
    Exit Sub

ErrHandler:
    Debug.Print "Wyst¹pi³ b³¹d" & vbCrLf & "Numer: " & Err.Number & vbCrLf & "Opis: " & Err.Description
End Sub

daje błąd

Numer: -2147217439
Opis: Method 'DekretujWgSchematu' of object 'DkrManager' failed

co skopałem?