Forum Użytkownikow Subiekt GT
InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: karkac w Październik 12, 2015, 16:57:18
-
Pomóżcie mi proszę - zaktualizowałam Subiekta do najnowszej wersji i nie działa mi teraz programik do tworzenia FZ. Mam dane do utworzenia dokumentu w excelu i taki programik:
Private Sub DodajFZ()
On Error GoTo ErrHandler
'Deklaracja zmiennych obiektowych
Dim oSgt As InsERT.Subiekt
Dim oKh As InsERT.Kontrahent
Dim oDok As InsERT.SuDokument
Dim oPoz As InsERT.SuPozycja
Dim sSym As String
Dim towarID As Integer
Dim row As Integer
'Uruchomienie Subiekta GT
Set oSgt = UruchomSubiekta()
Set oDok = oSgt.Dokumenty.Dodaj(InsERT.SubiektDokumentEnum.gtaSubiektDokumentFZ)
row = 2
Set oKh = oSgt.Kontrahenci.Wczytaj("XXX")
oDok.KontrahentId = oKh.Identyfikator
oDok.DataWystawienia = Cells(1, 6)
oDok.NumerOryginalny = Cells(1, 10)
oDok.DataZakonczeniaDostawy = Cells(1, 8)
oDok.DataOtrzymania = Cells(1, 8)
While row < 346
If Cells(row, 2).Text <> "" Then
sSym = Cells(row, 1)
Set oPoz = oDok.Pozycje.Dodaj(sSym)
oPoz.IloscJm = Cells(row, 2)
oPoz.CenaNettoPrzedRabatem = Cells(row, 3)
row = row + 1
Else
row = row + 1
End If
Wend
oDok.Zapisz
oDok.Zamknij
ErrHandler:
MsgBox Err.Number & " - " & Err.Description
End Sub
Wyskakuje błąd "Method od data member not found" i odnosi się do linijki na czerwono (chyba). W starszej wersji subiekta działało ok. Możecie mi powiedzieć co jest nie tak?
-
Próbowałaś odpiąć referencję do biblioteki insertu i podpiąć ją jeszcze raz?
Wyłącz na chwile przechwytywanie błędów i sprawdź dokładnie gdzie się pojawia błąd.
Przydałoby się w kodzie sprawdzenie czy Subiekt się uruchomił.
-
Jesteś genialny! Ślicznie dziękuję:) Odpięcie referencji i ponowne podpięcie pomogło. Wczoraj restartowałam wszystko - subiekta, excela, komputer, ale o tym nie pomyślałam. Spędziłam nad tym 2 godziny i na szczęście pomyślałam o Was.