Sfera - korekta FV

[Marek Kolmer 0]

Witam,

mam problem z wystawieniem korekty całkowitej do FV oraz FVZc.

Przy użyciu przykładu z dokumentacji sfery dokument wystawia się, ale forma płatności nie jest zgodna z z tym co zostało wybrane.

W przypadku zwrotu faktury nie mogę zwrócić na formę inną jak gotówka.

Po utworzeniu dokumentu KFS pole PlatnoscKartaKwota jest ustawiane na wartość faktury, pozostałe pola kwot są ustawiane na 0.0.

Pole PlatnoscKartaId ustawione jest na id takie samo jak w dokumencie korygowanym.

Pomimo tego korekta zawsze wychodzi jako zwrot gotówki.

W subiekcie nie ma problemu z wystawieniem zwrotu na kartę płatniczą.

[Daniel Kozłowski 1 171]

Na prawdę uważa Pan, że zamieszczenie kodu, który nie daje oczekiwanego efektu nie byłoby pomocne w rozwiązaniu problemu ?

[Marek Kolmer 0]

Witam, 

od ostatniego postu poradziłem sobie z korektą zwykłej faktury. Niestety problem z korektą FSzc pozostał.

Po mimo wyboru kredytu/rat jako forma zwrotu, nie pojawia się on na korekcie. Ta forma zwrotu jest ukryta na dokumencie.

Poniżej fragment kodu.

Formatka ZleceniaRozliczenieBadanieKorektaForma wczytuje dane z FSzc i po kliknięciu Tak dane zostają przepisane do korekty.

		Select Case _typDoc
                Case enumTypDoc.FVc
                    oDokKorygowany = oSubiekt.SuDokumentyManager.Wczytaj(inSUBdocNR)  

                    oDokKorekta = oSubiekt.SuDokumentyManager.DodajKFSzc
                    oDokKorekta.NaPodstawie(oDokKorygowany.Identyfikator)

                    oDokKorekta.KontrahentId = oDokKorygowany.KontrahentId

            End Select


            frm = New ZleceniaRozliczenieBadanieKorektaForma(oSubiekt, 20, oDokKorygowany.KwotaDoZaplaty) With {
                .flstart = False,
                .kategoria_id = oDokKorygowany.KategoriaId,
                .kasa_id = oDokKorygowany.KasaId
            }

            If oDokKorygowany.PlatnoscGotowkaKwota > 0 Then
                frm.chbPLNgotowka.Checked=True
                frm.zaplaconoGotowka=oDokKorygowany.PlatnoscGotowkaKwota
            End If

            If oDokKorygowany.PlatnoscKredytKwota > 0 Then
                frm.chbPLNkredytKupiecki.Checked=True
                frm.zaplaconoKredyt=oDokKorygowany.PlatnoscKredytKwota
            End If
           
            If oDokKorygowany.PlatnoscPrzelewKwota > 0 Then
                frm.chbPLNprzelew.Checked=True
                frm.zaplaconoPrzelew=oDokKorygowany.PlatnoscPrzelewKwota
            End If

            If oDokKorygowany.PlatnoscKartaId > 0 then
                frm.chbPLNkarta.Checked=True
                frm.centrumKart_Id=oDokKorygowany.PlatnoscKartaId
                frm.zaplaconoKarta = oDokKorygowany.PlatnoscKartaKwota

            End if

            if oDokKorygowany.PlatnoscRatyId > 0 then

                frm.chbPLNkredytRaty.Checked=True
                frm.kredytRaty_Id=oDokKorygowany.PlatnoscRatyId
                frm.zaplaconoRaty= oDokKorygowany.PlatnoscRatyKwota

            End if
            frm.setWartosc()
            frm.flstart=True

            If frm.showDialog() = vbYes Then

                oDokKorekta.PlatnoscGotowkaKwota=frm.zaplaconoGotowka
                
                If frm.chbPLNkarta.Checked then
                    oDokKorekta.PlatnoscKartaKwota=frm.zaplaconoKarta
                   oDokKorekta.PlatnoscKartaId=frm.centrumKart_Id
                   
                Else
                    oDokKorekta.PlatnoscKartaKwota=0.0
                End if

                if  frm.chbPLNkredytRaty.Checked then
              
                    oDokKorekta.PlatnoscRatyKwota=frm.zaplaconoRaty
                    oDokKorekta.PlatnoscRatyId=frm.kredytRaty_Id
                Else
                    oDokKorekta.PlatnoscRatyKwota=0.0
                End if
                oDokKorekta.PlatnoscKredytKwota=frm.zaplaconoKredyt
                oDokKorekta.PlatnoscPrzelewKwota=frm.zaplaconoPrzelew

                oDokKorekta.KategoriaId =frm.kategoria_id
                oDokKorekta.Kasaid=frm.kasa_id
  
            Else
                Exit Function
            End If


            oDokKorekta.Zapisz()
            nrDokumentu = oDokKorekta.NumerPelny


            oDokKorekta.Zamknij()

 

[Daniel Kozłowski 1 171]

W dniu 19.03.2021 o 09:24, Marek Kolmer napisał:

Po utworzeniu dokumentu KFS pole PlatnoscKartaKwota jest ustawiane na wartość faktury, pozostałe pola kwot są ustawiane na 0.0.

 

W dniu 19.03.2021 o 09:24, Marek Kolmer napisał:

W subiekcie nie ma problemu z wystawieniem zwrotu na kartę płatniczą.

 

30 minut temu, Marek Kolmer napisał:

Po mimo wyboru kredytu/rat jako forma zwrotu, nie pojawia się on na korekcie. Ta forma zwrotu jest ukryta na dokumencie.

Niestety za każdym razem opisuje Pan inny problem, na początku pisał Pan o płatności kartą, teraz pisze o płatności kredytem ratalnym. Kredyt ratalny nie jest widoczny na dokumencie, gdyż nie jest obsługiwany, więc nie można go wybrać.

 

Jest to bez sensu, nie raz zgłaszałem sugestie, aby na każdym dokumencie były dostępne wszystkie możliwe formy płatności - zwracam uwagę, że na zwrocie detalicznym też nie jest dostępny kredyt ratalny - ale na razie jest jak widać.