| Zdravím mám takový problém procházím dokumenty v pohledu a podle příznaku z nich generuji nové dokumenty. Jeden se mi podaří vytvořir naplnit, uložit a zavřít. Další už v rámci jednom skriptu nemohu. Lze to nějak udělat? Nějaké Redim a znovu vytvořit a znovu procházet...?
Díky P.K.
Zde část skriptu kde vtyvářím 1 dokument
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
For j = 1 To collection.Count
cena_all = 0
Set doc = collection.GetNthDocument( j )
Set item = doc.GetFirstItem("nazev_spol")
spol = doc.GetItemValue("nazev_spol")
dkonec = Right(obdobi(0),10)
datumzp = Cdat(Trim(dkonec))
ides = Cstr(doc.UniversalID)
Set view1 = db.GetView("(vlozeny_pol)")
Set collection1 = view1.GetAllDocumentsByKey(ides,True)
nadpis_old = ""
If collection1.count <> 0 Then
If nefaq(0) = "Ano" Then Goto nezpracuj
'**************** Vytvoření formuláře pro fakturaci **********************************************
Set uidoc = workspace.ComposeDocument("","","fakturace")
Set faktura = uidoc.Document
faktura.Form = "fakturace"
faktura.nazev_spol = spol(0)
'************** procházení jednotlivých služeb *************************************************
For i = 1 To collection1.count
Set doc1 = collection1.GetNthDocument(i)
Set item = doc1.GetFirstItem("aktivni_sluzby")
aktivni = doc1.GetItemValue("aktivni_sluzby")
If aktivni(0) <> "Ano" Then Goto neaktivni
Set item = doc1.GetFirstItem("stredis_fa")
stred_FA = doc1.GetItemValue("stredis_fa")
'*********************** Vložení nadpisu *********************************************************
If i = 1 Then
skupina1 = " "
skupina2 = " "
skupina3 = " "
skupina4 = " "
skupina5 = " "
skupina6 = " "
Call nazev.AppendToTextList(skupina1)
Call tarif.AppendToTextList(skupina2)
Call jednotka.AppendToTextList(skupina3)
Call pocet.AppendToTextList(skupina4)
Call prachy.AppendToTextList(skupina5)
Call dan.AppendToTextList(skupina6)
End If
If stred_FA(0) <> "96-100" Goto dalsi_polozka
If inet_nadpis(0) <> nadpis_old Then
If i <> 1 Then
skupina1 = " "
skupina2 = " "
skupina3 = " "
skupina4 = " "
skupina5 = " "
skupina6 = " "
Call nazev.AppendToTextList(skupina1)
Call tarif.AppendToTextList(skupina2)
Call jednotka.AppendToTextList(skupina3)
Call pocet.AppendToTextList(skupina4)
Call prachy.AppendToTextList(skupina5)
Call dan.AppendToTextList(skupina6)
End If
skupina1 = nadpis
skupina2 = "-----"
skupina3 = "----- "
skupina4 = "-----"
skupina5 = "-----"
skupina6 = "-----"
Call nazev.AppendToTextList(skupina1)
Call tarif.AppendToTextList(skupina2)
Call jednotka.AppendToTextList(skupina3)
Call pocet.AppendToTextList(skupina4)
Call prachy.AppendToTextList(skupina5)
Call dan.AppendToTextList(skupina6)
End If
'*************************** Internet ***************************************************************
If ikod = "A.2.1." Then
Set item = doc1.GetFirstItem("id_pmista")
id_inet = doc1.GetItemValue("id_pmista")
datapmisto = dataint(0)
If id_inet(0) <> "" Then
If id_inet(0) = spkod(0) Then
datapmisto = 0
datapmisto = dataint(0)
End If
If id_inet(0) = kodmisto_1(0) Then
datapmisto = 0
datapmisto = dataint_1(0)
End If
If id_inet(0) = kodmisto_2(0) Then
datapmisto = 0
datapmisto = dataint_2(0)
End If
If id_inet(0) = kodmisto_3(0) Then
datapmisto = 0
datapmisto = dataint_3(0)
End If
If id_inet(0) = kodmisto_4(0) Then
datapmisto = 0
datapmisto = dataint_4(0)
End If
End If
' *********************************** konec Internet + nad limit **********************************************
dalsi_polozka:
'nadpis_old = inet_nadpis(0)
neaktivni:
Next
cena_all = limit_internet + cena_internet + cena_ost
faktura.stredisko_FA = stred_FA(0)
faktura.celkem_FA = cena_all
If cena_all <> 0 Then
Call uidoc.Save
Call uidoc.Close
Else
Call uidoc.close
saveoptions = False
End If
zaznam1 = ""
zaznam2 = ""
zaznam3 = ""
zaznam4 = ""
zaznam5= ""
cena_all = 0
vypocet = 0
cena_internet = 0
limit_internet = 0
cena_ost = 0
sleva_internet = 0
End If
nezpracuj:
Next
End Sub |
