Forum Użytkownikow Subiekt GT

InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: pablo93 w Marzec 03, 2022, 12:03:46

Tytuł: Faktura nie zaznacza się karta
Wiadomość wysłana przez: pablo93 w Marzec 03, 2022, 12:03:46

Hej mam następujący problem ustawiam(raczej próbuje) ustawić na fakturze płatność kartą ale niestety zostaje płatność jako gotówka ? może ktoś wie co robię źle albo jak to zadeklarować. Poniżej fragment kodu za to odpowiedzialny i screen

PS widać że sama karta została ustawiona ale nie wybrana

Kod: [Zaznacz]

        Dim oDok As InsERT.SuDokument

If ListaData(ListaName.IndexOf(item)).ToString.Equals("Przelewy24") Or ListaData(ListaName.IndexOf(item)).ToString.Equals("Przelewy24 / PayPo") Then
                    oDok.KategoriaId = 98
                    oDok.PlatnoscKartaId = 11
                    oDok.PlatnoscKartaKwota = oDok.KwotaDoZaplaty
End If

Tytuł: Odp: Faktura nie zaznacza się karta
Wiadomość wysłana przez: birds22 w Marzec 03, 2022, 13:11:13

A inne elementy (kontrahent, towary, ilości ceny) w jakiej kolejności są ustawiane?

Tytuł: Odp: Faktura nie zaznacza się karta
Wiadomość wysłana przez: pablo93 w Marzec 03, 2022, 13:23:21

Cytat: birds22 w Marzec 03, 2022, 13:11:13

A inne elementy (kontrahent, towary, ilości ceny) w jakiej kolejności są ustawiane?

Wpierw ustawiam towar (ilość ,cena) , potem  kontrahenta na koniec właśnie rodzaj płatność wstawiam fragmenty kody

Towar :

Kod: [Zaznacz]

        While (rd.Read)
            Try
                oTw = sgt.Towary.Wczytaj(rd(0).ToString.Trim())
                oPoz = oDok.Pozycje.Dodaj(oTw.Identyfikator)
                oPoz.IloscJm = rd(2).ToString.Trim()
                oPoz.WartoscBruttoPoRabacie = (rd(1).ToString.Trim())
            Catch ex As Exception
                MsgBox("Nie ma takiego towaru : " + rd(0).ToString.Trim())
            End Try
        End While
Kontrahent :

Kod: [Zaznacz]

            If (item.Equals("_vat_number")) Then
                Try
                    oKh = sgt.Kontrahenci.Wczytaj(ListaData(ListaName.IndexOf(item)))
                    oDok.KontrahentId = oKh.Symbol
                    FakturaOsobowa = False
                Catch ex As Exception
                    MsgBox("Nie ma takiego kotrahenta o takim nipie !")
                End Try
            End If
i potem właśnie wcześnie podana płatność

Tytuł: Odp: Faktura nie zaznacza się karta
Wiadomość wysłana przez: dkozlowski w Marzec 03, 2022, 16:31:33

Nie rozumiem dlaczego kontrahent ustawiany jest warunkowo, przecież na fakturze musi zostać ustawione zawsze ?

Poza tym:

Cytuj

oDok.KontrahentId = oKh.Symbol

Na pewno ten kod nie rzuca wyjątkiem, bo przecież takie przypisanie nie ma prawa się wykonać ? W ogóle się wykonuje ?

Tytuł: Odp: Faktura nie zaznacza się karta
Wiadomość wysłana przez: pablo93 w Marzec 03, 2022, 16:41:12

Cytat: dkozlowski w Marzec 03, 2022, 16:31:33

Nie rozumiem dlaczego kontrahent ustawiany jest warunkowo, przecież na fakturze musi zostać ustawione zawsze ?

Poza tym:

Cytuj

oDok.KontrahentId = oKh.Symbol

Na pewno ten kod nie rzuca wyjątkiem, bo przecież takie przypisanie nie ma prawa się wykonać ? W ogóle się wykonuje ?

Wykonuje
A co do problemu znalazłem jego źródło okazuje sie ze po zadeklarowaniu sposobu płatność modyfikuje jeszcze kontrahenta i dlatego płatność się resetuje.
Wątek zamknięty dzięki za pomoc

Tytuł: Odp: Faktura nie zaznacza się karta
Wiadomość wysłana przez: dkozlowski w Marzec 03, 2022, 17:02:41

Cytat: pablo93 w Marzec 03, 2022, 16:41:12

Wykonuje

Nie rozumiem dlaczego, ale to prawda. Nie mniej proponuję pod identyfikator przypisywać identyfikator kontrahenta i wcześniej sprawdzać, czy kontrahent nie jest zablokowany.