Powiedz o nas znajomym ;-) www.forumsubiekta.pl
0 użytkowników i 2 Gości przegląda ten wątek.
Dim sgt As InsERT.Subiektsgt.SuDokumentyManager.DodajZK().Wyswietl()
Przykład 2W poniższym przykładzie pokazano, w jaki sposób można do dokumentu dodać pozycję, na której znajduje się usługa jednorazowa.Sub UslugiJednorazowe()On Error GoTo ErrHandler Dim oSubGT As InsERT.Subiekt Dim oDok As InsERT.SuDokument Dim oPoz As InsERT.SuPozycja Set oSubGT = UruchomSubiekta() Set oDok = oSubGT.Dokumenty.Dodaj(gtaSubiektDokumentFS) oDok.KontrahentId = 11 Set oPoz = oDok.Pozycje.DodajUslugeJednorazowa oPoz.UslJednNazwa = "Mycie okien" oPoz.Opis = "Mycie zewnętrzne" oPoz.IloscJm = 2 oPoz.Jm = "godz." oPoz.CenaNettoPrzedRabatem = 20 Set oPoz = oDok.Pozycje.Dodaj(20) oPoz.IloscJm = 10 oPoz.Jm = "szt." oPoz.CenaNettoPrzedRabatem = 10 oDok.Wyswietl oDok.Zamknij Exit SubErrHandler: MsgBox "Wystąpił błąd: " & Err.Number & " - " & Err.Description End Sub
Nie pomogło poczytałem o tym co kolega zaradził ale tam nic nie jest napisane
oPoz.Dysponuj(16, 2) oPoz.Dysponuj(37, 2)
sgt.SuDokumentyManager.DodajZK().Pozycje().Dodaj(11) ' <- Nie tutaj tej funkcji dysponuj
Metoda DysponujPozwala wydać towar z określonych dostaw.Parametry vDostawaIdObject. Określa identyfikator dostawy, z której na być wydany towar. Stanowi odwołanie do pola mr_Id w tabeli dok_MagRuch.vIloscObject. Określa ilość towaru, jaka ma być wydana z wybranej dostawy.