Beiträge von setherus

suche gerade nach nen weg das vl über formelsprache zu lösen...wäre vl sinnvoller

hallo taurec,

der agent wird manuell aus aktionen aufgerufen (könnte das der fehler sein?) und soll die dokumente halt nur innen ordner verschieben

Moin ich bins nochmal ich kapier mal wieder was nicht...
also ich hab nen agenten der alle markierten dokumente in nen folder verschieben sol

Set dbPP = session.currentdatabase
Set doccol = dbPP.UnprocessedDocuments
Msgbox doccol.count

Call doccol.putallinfolder("Umschlageinzeldruck")

dummerweise ist diedocumentcollection.count immer 1 er verschiebt nur das dokument das durch die maus angewählt wurde die haken werden ignoriert...muss ich da irgendwas besonderes beachten?

habs gerade im vorherigen beitrag gepostet, funktioniert alles,,,,danke nochmals

wow, das war schnell...

also es ist keine HW formel gesetzt, die felder und die tabelle werden immer angezeigt, gibt keine hide bedingung :-), muss da mal ein wenig rumspielen, auf jeden fall vielen dank

EDIt: mist ich dachte fällt nicht auf mit dem toner...erwischt

EDIT²: so nun funktioierts, lag am print statement... call uidruckdoc.print(true).....und schon tut ers danke für die hilfe nochmal

guten morgen

also er öffnet jetzt durch den parameter, das richtige uidoc, stehen auch die adressdaten drin, nur drucken tut er noch komplett weiss...
muss mir die maske noch mal anschauen
aber auf jeden fall vielen dank

ansonsten kann man das auch ganz gut mit lotusscript lösen

dim session as new notessession
dim db as notesdatabase
dim view as notesview
dim col as notesviewentrycollection
dim entry as notesviewentry
dim doc as notesdocument

set db = session.currentdatabase
set view = db.getview("hier den namen der ansicht eintragen")
set col = view.allentries

text = inputbox("Bitte geben Sie den Text ein")

for i= 1 to col.count
set entry = col.getnthentry(i)
set doc = entry.document
doc.fdBetreuer_2 = cstr(text)
next

man kann auch die inputbox weglassen und zb "Marcel Bürge" anstatt cstr(text) einsetzten
habs aber nicht getestet

kleiner tip strg + a funktioniert auch in notes

zu früh gefreut....
wenn der agent die stelle set uidoc = ws.editdocument(druckdoc), offnet er die mitglieder maske, und druckt ein leeres blatt.....hab ich da immernoch nen fehler?

For q = 1 To entrycol.Count
Set entry = entrycol.GetNthEntry(q)
' Adressdaten in die Druckmaske eintragen und drucken
Stop
Set druckdoc = dbPP.createdocument
druckdoc.form = "UmschlagDruckVorlage"
druckdoc.Name = entry.columnvalues(1)
druckdoc.Name2 = entry.columnvalues(2)
druckdoc.Name3 = entry.columnvalues(3)
druckdoc.Strasse = entry.columnvalues(4)
druckdoc.Land = entry.columnvalues(5)
druckdoc.PLZ = entry.columnvalues(6)
druckdoc.Ort = entry.columnvalues(7)
Call druckdoc.save(True,True)
Set uidruckdoc = ws.EditDocument(druckdoc)
Call uidruckdoc.print(True,True)
Call uidruckdoc.close
Call druckdoc.RemovePermanently(True)
Stop
Next

EDIT:

die mitglieder maske entspricht immer der lezten markierten (mir fällt gerade nicht das richtige wort ein aber ich meine nur markiert ohne haken davor da wo man als letzten gearbeiten hat eben )
also die öffnet er halt

Danke klappt wunderbar

speichern ist egal hab in der maske die saveoptions gesetzt,

nun muss ich nur noch den text kippen...

Moin leutz,

also ich fang mal an
ein agent holt sich alle einträge aus der ansicht, vervollständigt sie und geht in ne andere ansicht funktioniert auch bis dahin super
nun soll er aber aus der 2 ansicht sich die spaltenwerte holen und in ein dokument eintragen soweit sogut....nun soll er aber das dokument was er gerade erstellt hat drucken, dieses soll aber nicht gepeichert werden also meine erste idee war es das doc in nen uidoc zu wandeln (hab nur keine ahnung ob und wie das geht) bzw. das document zu makieren(ich kann den befehl dafür nur nicht finden) und dann über fileprint zu drucken
das macht insoweit sinn als das wir das dokument nur als "etikettendruck" benutzen sprich der drucker zieht nen b4 umschlag und schreibt dadrauf, nicht zu vergessen der drucker ist schon ein wenig betagt und muss jeden b4 druckauftrag einzeln bekommen da er sonst nen papierstau bekommt,

zu der maske hätte ich noch ne kurze frage kann mann den text auch vertikal ausrichten also um 90° kippen?

der sourcecode:

...
druck = "@Command([FilePrint])"
...
For q = 1 To entrycol.Count
Set entry = entrycol.GetNthEntry(q)
' Adressdaten in die Druckmaske eintragen und drucken
Stop
Set druckdoc = dbPP.createdocument
druckdoc.form = "UmschlagDruckVorlage"
druckdoc.Name = entry.columnvalues(1)
druckdoc.Name2 = entry.columnvalues(2)
druckdoc.Name3 = entry.columnvalues(3)
druckdoc.Strasse = entry.columnvalues(4)
druckdoc.Land = entry.columnvalues(5)
druckdoc.PLZ = entry.columnvalues(6)
druckdoc.Ort = entry.columnvalues(7)
eval = Evaluate(druck, druckdoc)
Call druckdoc.save(True,True)
Stop
Next
...

Moin,

da ist eingkleiner fehler in dialis script

dim uidoc as notesUIdocument

deswegen die fehlermeldung da der workspace denn nicht genutzt werden kann wenn uidoc als notesdocument deklariert wurde

ansonsten ist mir nichts aufgefallen ( nicht das irgend nen unterschied macht :lol: )

danke taurec, das wars

macht zwar noch nicht ganz was es sol aber kein fehler tritt auf, nun muss ich mir halt nur mal den rest anschauen

Danke
hab jetzt alle variablen declariert aber der fehler tritt immer noch auf, scheint als ob ich das feld nicht beschreiben darf....
vl noch ne idee? :-?

danke versuch ich mal

Moin,

also ich bekomm bei dieser Befehlzeile:
rpdoc.Rechnungsnummer(0) = Clng(NextRe)
oben genannte Fehlermeldung, bin überfragt warum

hier mal der vollständige code

Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim view As notesview
Dim rechdoc As notesdocument
Dim LastRe As Double 'letzteRechnungsnummer
Dim rpdoc As notesdocument
Dim rpview As notesview
Dim rpcol As notesviewentrycollection
Dim rpentry As notesviewentry
Dim partnerid As String
Dim testid As String


Set db = session.currentdatabase


'letzte verwendete Rechnungsnummer holen, wenn keine geholt werden kann Funktions Ende
Set view = db.getview("KonfigurationRechnungsart")
Set rechdoc = view.getfirstdocument
If Not rechdoc Is Nothing Then
LastRE = Cdbl(rechdoc.nextReNr(0))
If Cstr(LastRe) ="" Then
Msgbox "Keine Rechnungsnummer hinterlegt! Bitte wenden Sie sich an die EDV"
Exit Sub
End If
Else
Msgbox "Es konnte keine Konfiguration für die Rechnungsart gefunden werden! Bitte wenden Sie sich an die EDV"
Exit Sub
End If

NextRe = LastRe +1 'die nächste zu vergebene Rechnungsnummer ist die altte Rechnungsnummer +1, da fortlaufend


Set rpview = db.getview("(viewLUOhneRechNr)")
'Positionen pro Debitor unter einer Rechnungsnummer zusammenfassen
Print Today & " Rechnungsnummervergabe....Start"
Set rpcol = rpview.allentries

For i = 1 To rpcol.count
Print i
Set rpentry = rpcol.getnthentry(i)
Set rpdoc = rpentry.document
partnerid = Cstr(rpdoc.PartnerID(0))

If Not partnerid ="" Then
If Not testid = partnerid Then
NextRe = NextRe +1
rpdoc.Rechnungsnummer(0) = Clng(NextRe)
End If
rpdoc.Rechnungsnummer(0) = Clng(NextRe)
End If
testid = partnerid
Next

'Übergabe der zuletzt vergebenen Rechnungsnummer, noch nicht während der entwicklungsphase scharf geschaltet
'rechdoc.nextReNr(0) = CLng(NextRe)


Print Today & " Rechnungsnummervergabe....Ende"
Print " Es wurden " & i & " Rechnungspositionen verarbeitet"

danke werd ich sofort mal probieren

Hallo,

hab da mal wieder osn kleines problemchen....

also ich hab nen konfigurationsdockument

das hat ne tabelle mit kateireitern ( januar -dezember also 12)

pro monat gibt es 34 felder, jedes feld ist nach einer kategorie benannt z.b.

Januar: Miete_1 Strom_1 usw
Februar: Miete_2 Strom_2 usw
usw

nun macht das etwas über 400 felder, mein problem ist nun dabei, das ich alle werte in einem (!) array brauche

ausgabe 1 to 408

nun ist das aber extrem viel schreibarbeit und ausserdem kann sich an den kategorien ja auch noch was ändern...

meine idee ist das ich über ne zählschleife das array anspreche und den namen des feldes auch irgendwie "zählen" kann, also z.b

name = "Miete_" & zähler & "(0)"

ausgabe(i) = configdoc.name

ich hoffe ich hab das halbwegs verständlich ausgedrückt

danke schon im vorraus

Gruß Gregor

also via trace ist der domino auffindbar, will ich db öffnen mit db sagt er falsches zertifikat aber zumindestens ahben die sich schonmal gefunden :), ich kill nochmal den domino2, und werd entsprechend neu aufsetzten

danke nochmal für die schnelle hilfe,

Gruss Gregor
...und schönes we noch

also verbindungsdok besteht schon und der server ist bekannt, woran könnte es noch liegen ?
leg sicherheitshalber das verbindungsdok neu an, danke für die schnelle antwort