Forum Użytkownikow Subiekt GT
InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: pablo93 w Listopad 08, 2018, 12:14:00
-
Witam
Na początek szukałem rozwiązania w pomocy w subiekcjie oraz na forum i nie znalazłem . A mój problem wygląda następująco :
Muszę wczytać z exlea listę produktów do Zamówienia (Zamówienia od kontrahenta ZK ) lista oprócz symbolu towaru zawiera cenę towaru
Wczytanie produktu z exela nie ma problemu ale dodanie go do zamówienia tu już ma problem nie wiem jak dodać produkt do zamówienia od kontrahenta
potrafię uruchomić subiekta i otworzyć okienko do zamówień ale nie potrafię dodać produktu do zamówienia
Czy moze ktoś wie jak dodać ?
Fragment kodu którego używam do otwarcia okienka
Dim sgt As InsERT.Subiekt
sgt.SuDokumentyManager.DodajZK().Wyswietl()
-
W dokumencie który wyświetlasz to sobie możesz pozycje dodać tylko ręcznie ;)
Zajrzyj do helpa i przeczytaj sobie opis SuDokument i SuPozycje.
-
Nie pomogło poczytałem o tym co kolega zaradził ale tam nic nie jest napisane :-\ :-\
Znalazłem jeden bliski dość przykład ale on nie działa :-[
Przykład 2
W 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 Sub
ErrHandler:
MsgBox "Wystąpił błąd: " & Err.Number & " - " & Err.Description
End Sub
-
Zjedź niżej w helpie do przykładu 3. Masz jak dodać pozycję istniejącą w kartotece towaru. Wytnij tylko sekcję z wyborem dostawy.
-
Nie pomogło poczytałem o tym co kolega zaradził ale tam nic nie jest napisane :-\ :-\
Przepraszam, to moja wina.
Powinienem był napisać że masz przeczytać do końca ;)
-
Chodzi o ten fragment ?
oPoz.Dysponuj(16, 2)
oPoz.Dysponuj(37, 2)
próbowałem ale nie mam takiej opcji 'Dysponuje'
Mój fragment kodu
sgt.SuDokumentyManager.DodajZK().Pozycje().Dodaj(11) ' <- Nie tutaj tej funkcji dysponuj
-
A dlaczego miałby by być na pozycji dokumentu ? Dlaczego tak uparcie nie chcesz zajrzeć do pomocy do programu:
Metoda Dysponuj
Pozwala wydać towar z określonych dostaw.
Parametry
vDostawaId
Object. Określa identyfikator dostawy, z której na być wydany towar. Stanowi odwołanie do pola mr_Id w tabeli dok_MagRuch.
vIlosc
Object. Określa ilość towaru, jaka ma być wydana z wybranej dostawy.
Wyraźniej pisze, że to metoda dostawy towaru, a nie pozycji dokumentu...