Funkcja dodatkowa - rozliczenie paragonów

Problemy i pomysły związane z funkcjonowaniem CDN Optima vel Opt!ma

Moderator: mikey

taszek
Posty: 585
Rejestracja: 12 wrz 2012, 13:20
Rola: Administrator CDN XL
Wersja: 2016

Funkcja dodatkowa - rozliczenie paragonów

Post autor: taszek »

Potrzebuję napisać funkcję dodatkową, która będzie rozliczać zaznaczone paragony, ale coś robię nie tak, ponieważ nie chce mi rozliczyć dokumentów.
Aktualnie stanąłem na takim etapie:

Kod: Zaznacz cały

[SQL]
@PAR ?@Hs200_NQ|Filtr:''@? PAR@

SELECT RPZ2_GIDNumer FROM CDN.RptZaznaczenia2
WHERE ??_NQFiltr

[JS]

var shell = new ActiveXObject ('WScript.Shell')

try\{
	while ( !Recordset.EOF )
	\{
		var rPa = Session.CreateObject ( "CDN.DokumentyHaMag" ).Item("Trn_TrnID ="+ Recordset.Fields("RpZ2_GIDNumer") )
		var GIDNumer = Recordset.Fields("RpZ2_GIDNumer")	
				
		var rZdarzenieKB = Session.CreateObject("CDN.ZdarzeniaKB").Item("BZd_DokumentID = " + GIDNumer)
		var rZapisKB = Session.CreateObject("CDN.ZapisyKB").AddNew()
		var razemBrutto = rPa.RazemBrutto
		var KntID = rPa.Podmiot.ID
		
		
		var rRachunek  = Session.CreateObject("CDN.Rachunki").Item("BrA_Akronim = 'KASA'") //Bra_BraID =1
		var rFormaPlatnosci  = Session.CreateObject("CDN.FormyPlatnosci").Item("fpl_nazwa = '"+ rPa.FormaPlatnosci.Nazwa+"'")
		var rDokDef = Session.CreateObject("CDN.DefinicjeDokumentow").Item("DDf_Symbol='KP'")
		var rPodmiot   = Session.CreateObject("CDN.Kontrahenci").Item("Knt_kntID = " + KntID )
		var rRaport    = Session.CreateObject("CDN.RaportyKB").Item(" BRp_Zamkniety = 0 and BRp_BRaID =1 ")
		
		rZapisKB.Rachunek = rRachunek
		rZapisKB.RaportKB = rRaport
		rZapisKB.Podmiot  = rPodmiot
		rZapisKB.DefinicjaDokumentu = rDokDef
		rZapisKB.KwotaKierunkowa = razemBrutto

		Session.Save()
		
		var rRozliczenieKB = Session.CreateObject("CDN.RozliczeniaKB").AddNew()
		rRozliczenieKB.UstawDokumentyKB( rZapisKB, rZdarzenieKB, 1 )

		Session.Save()	
		Recordset.MoveNext()
	\}

\}

catch(e)
	\{
	shell.Popup(e.description)
	\}
Może ktoś mi powie czemu mi nie rozlicza paragonu, ponieważ dostaję taki komunikat:
Ashampoo_Snap_2018.07.24_10h25m31s_001_Windows Script Host.jpg
Ashampoo_Snap_2018.07.24_10h25m31s_001_Windows Script Host.jpg (17.9 KiB) Przejrzano 13618 razy
Pozdrawiam
Wojtek Cyrklewicz

Gabik
Posty: 26
Rejestracja: 05 sty 2019, 23:46
Rola: Inny
Wersja: 2018

Re: Funkcja dodatkowa - rozliczenie paragonów

Post autor: Gabik »

Cześć,

Po dodaniu zapisu Kasowo Bankowego musisz utworzyć nową sesję, w której pobierzesz obiekt rZapisKB i rZdarzenieKB i dokonasz ich rozliczenia.
Obiekty z których korzystasz np rZapisKB uległy zmianie po zapisie, jest konieczność pobrania ich na nowo co ważne w nowej sesji. Ostatnio robiłem taką funkcję dodatkową i działa bez zarzutu :)
Pozdrawiam
Gabriel Gabzdyl 511 403 091 gabrielg@elte-s.com
Firma: https://elte-s.com/ Sklep: https://sklep.elte-s.com/

ODPOWIEDZ