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)
\}