Beiträge von mrrobe

mrrobe · 13. November 2007

Hallo,
ich versuche eine kategorisierte Ansicht immer zusammengeklappt öffnen zu lassen, leider tut der Eigenschaftsbefehl " Collapse all when databse is first opened" nicht so und @Command( [ViewCollapse] hat mir nicht geholfen, wenn ich diesen Befehl in der Formal für die Ansicht eingebe, was mache ich falsch?
Ron

mrrobe · 6. November 2007

Hallo,

ich importiere über eine CSV-Datei verschiedene Werte, u.a. wird auch ein Datumswert zum Import übergegen, diesen Wert erhalte ich jedoch im amerikanischen Format: 11/5/2007 6:28:09 PM
Im Formblatt wird dieses Datum jedoch als 11.05.2007 18:28 interpretiert, Monat und Tag wird also vertauscht.
Welche Möglichkeit habe ich dies zu korrigieren, mit der Formelfunktion @Date( year ; month ; day ; hour ; minute ; second ) bin ich nicht weitergekommen.
Ron

mrrobe · 17. Oktober 2007

Danek, für die Info.
Habe jetzt folgdenden Text:
'Get list of form names
' x=0

' Print "Preparing List of Database Forms ..."

' Forall f In db.Forms
' Redim Preserve formlist(x)
' formlist(x)=f.name
' x=x+1
' Print "Preparing List of Database Forms ..."& Cstr(x)
' End Forall

'Sort the form names for the dialog box
' indexLo= Lbound(formlist)
' indexHi= Ubound(formlist)
' Call QuickSort(formlist , indexLo, indexHi)

'Choose the form to use for import
' formname = uiws.Prompt(4, "Choose Import Form", "Please select which form is to be used for this input.", formlist(0), formlist)
formname = "PDF_D"
If formname= "" Then End

'Get the form object so that we can check field names
Set form= db.GetForm(formname)

'If the form has an alias, use it to select the form
If Not Isempty(form.Aliases) Then
Forall a In form.Aliases
formname=a
End Forall 'a In form.Aliases
End If 'Not Isempty(form.Aliases)

und es geht nachedm ich den Aliasnamen PDF_D des Formulars 0.PTF eingegeben habe.
Danke für die Hilfe
Ron

mrrobe · 17. Oktober 2007

Hallo,
folgender Scriptauszug leifert mir alle Formulare einer DB, um das Formular auszwählen, in das Excel die Daten importieren soll:
=============
Get list of form names
x=0

Print "Preparing List of Database Forms ..."

Forall f In db.Forms
Redim Preserve formlist(x)
formlist(x)=f.name
x=x+1
Print "Preparing List of Database Forms ..."& Cstr(x)
End Forall

'Sort the form names for the dialog box
indexLo= Lbound(formlist)
indexHi= Ubound(formlist)
Call QuickSort(formlist , indexLo, indexHi)

'Choose the form to use for import
formname = uiws.Prompt(4, "Choose Import Form", "Please select which form is to be used for this input.", formlist(0), formlist)
If formname= "" Then End

'Get the form object so that we can check field names
Set form= db.GetForm(formname)

'If the form has an alias, use it to select the form
If Not Isempty(form.Aliases) Then
Forall a In form.Aliases
formname=a
End Forall 'a In form.Aliases
End If 'Not Isempty(form.Aliases)

==============
nun wollte ich dass keine Liste erfolgt, sondern standardmäßig immer ein bestimmtes Formular [0. PTF | PDF_D] gewählt wird.
da habe ich mir gedacht, dass ich einfach diese Zeile ändere:

formname = 0. PTF
anstattt
formname = uiws.Prompt(4, "Choose Import Form", "Please select which form is to be used for this input.", formlist(0), formlist)

Bekomme aber immer Fehler schon vor dem test, was mache ich falsch?

Ron

mrrobe · 17. Oktober 2007

Danke,
hab ich echt übersehen, jetzt geht es!
Ron

mrrobe · 17. Oktober 2007

Hallo,

ich habe da ein Script , mit dem ich aus Excel importieren (Teilscript unten) kann.
Jedoch werden mir nur Dateien mit Präfinx "xls" angezeigt
Nun möchte ich jedoch dass nur Dateien mit Präfix "csv" angezeigt werden, ich dachte es geht, wenn ich diese Zeile von fn =uiws.OpenFileDialog(False, "Select the Excel File to Import", "Excel files | *.xls", "c:\")

nach fn =uiws.OpenFileDialog(False, "Select the Excel File to Import", "Excel files | *.csv ", "c:\") ändere, geht aber nicht, wo ist mein Gedankenfehler.
Ich muss dazu sagen, dass ich mit script noch nicht viel Berührung hatte.

===============
Set db = session.CurrentDatabase

fn= uiws.Prompt(1, "Reminder- Excel Worksheet Setup", "Make sure that the first row of your worksheet contains the EXACT Notes document field names from your form.")

'Get Excel file name
fn =uiws.OpenFileDialog(False, "Select the Excel File to Import", "Excel files | *.xls", "c:\")
xlFilename = Cstr(fn(0)) ' This is the name of the Excel file that will be imported
================

Ron

mrrobe · 28. August 2007

Nein,
die neuen Felder werde nicht mittels einer Vorgabeformel belegt.
Deshalb dachte ich mir, das das Script, was ich vorher beigefügt habe und vom Laster gefallen ist, dahin anpasse, dass ich Felder aus alten Dokumenten einfüge und mit Wert belege.
Ron

mrrobe · 28. August 2007

Komplizierte outsourcing struktur, Admin macht gar nichts.
Ron

mrrobe · 27. August 2007

Taurec, ich habe das recht Agenten laufen zu lassen. 
Aber ich kann keine lokalen Agenten erstellen. Ich muss diese über ein Template einreichen. I 
ch habe ein Agent, mit dem ich bestehende Felder ändern kann. einen solchen Agenten brauche ich, um Felder einem alten Dokument hinzufügen und mit Wert belegen zu können. Habe aber keine Script-Kenntnisse.
Ron
Sub Initialize 
 Dim session As New notessession 
 Dim doc As notesdocument 
 Dim dc As notesdocumentcollection 
 Dim db As notesdatabase 
 Dim strFieldName As String 
 Dim strOldValue As String 
 Dim strNewValue As String 
 Dim item As NotesItem 
 Dim Gefunden As Variant 
 Dim FieldFound As Variant 
 Dim counter As Integer 
 Dim intIndex As Integer 
 Dim strArray() As String 
 Dim j As Integer 
  
 strFieldName = Inputbox ("Enter a field name", "Field Name", "" , 0 , 0  ) 
 If strFieldName = "" Then 
  Messagebox "Please enter a field name!", 16, "Error Enter Fieldname" 
  Exit Sub 
 End If 
  
 strOldValue = Inputbox ("Enter the old value", "Old value", "" , 0 , 0  ) 
 If strOldValue = "" Then 
  Messagebox "Please enter a value!", 16, "Error old value" 
  Exit Sub 
 End If 
  
 strNewValue = Inputbox ("Enter the new value", "New value", "" , 0 , 0  ) 
 If strNewValue = "" Then 
  Messagebox "Please enter a value!", 16, "Error new value" 
  Exit Sub 
 End If 
  
  
 Set db = session.currentdatabase 
 Set dc = db.UnprocessedDocuments 
  
 For j =  1 To dc.Count 
  Set doc = dc.GetNthDocument(j) 
   
  Gefunden = False 
  counter = 0 
   
  FieldFound = False 
          ' Prüfen ob der gesuchte Feldname im Dokument vorhanden ist 
  If Not (doc Is Nothing) Then 
   Forall itemName In doc.items 
    If itemname.name = strFieldName Then 
     FieldFound = True 
     Exit Forall 
    End If 
   End Forall 
  End If 
   
  If FieldFound = False Then 
   Goto NextDoc 
  End If 
   
          ' Auf das Feld positionieren 
  Set item = doc.getFirstItem(strFieldName) 
   
          ' Nach dem gesuchten - alten - Wert suchen 
  Forall x In item.values 
   counter = counter + 1 
   If x = strOldvalue Then 
    Print "Value found: " + strOldValue 
    Gefunden = True 
    intIndex = counter 
   End If 
  End Forall 
   
          ' Wenn gefunden dann Wert ersetzen 
  If Gefunden Then 
   Redim strArray(1 To counter) 
   counter = 0 
   Forall x In item.values 
    counter = counter + 1 
    If counter = intIndex Then 
     strArray(counter) = strNewValue 
    Else 
     strArray(Counter) = x 
    End If 
   End Forall 
   item.values = strArray 
  End If 
   
  Call doc.Save(True,False) 
NextDoc: 
 Next 
End Sub

mrrobe · 27. August 2007

Ich habe kein Recht einen Agenten zu erstellen, da kommt eine Fehlermeldung. Wie soll denn das mit der eigenen Datenbank funktionieren?
Ich habe auf der eigentlchen DB nur Author-Rechte und kann Doks erstellen und Löschen
Ron

mrrobe · 27. August 2007

Ja,
leider habe ich nicht das recht einen lokalen Agenten zu starten.
Deshalb muss ich eine solche Funktionalität über ein neues Template reinbringen.
Ron

mrrobe · 27. August 2007

Danke,
jedoch hilft mir das nur bedingt weiter, denn ich kann Agenten nur über eine Designänderung laufen lassen, ich habe keine andere Möglichkeit Agenten local laufen zu lassen, deshalb auch meine
Frage nach einer flexiblen Möglichkeit. Denn mit einem Neuen Design habe ich auch neue Felder, die bei alten Doks noch nicht vorhanden waren, ich aber irgendwie setzen muss, ich wollte nicht jeden einzelne Dok öffnen und dann den Wert setzen.
Die Felder sind immer unterschiedlich.
Leider beiten mir die "Add Fucction" beider Erstellung des Agenten nicht so eine Auswahl, ich bin immer festegelt auf ein festes Feld.
Ron

mrrobe · 27. August 2007

Hallo,
ich suche nach einer felxiblen Möglichkeit in ein vorhandenes Dokument nachträglich via Agent ein Feld hinzuzufügen bzw. ein Feld mit einem Wert zu besetzten.

Ich dachte, es gabe da so etwas unter @commands (create Field) aber so etwas habe ich nicht gefunden!
Ron

mrrobe · 16. August 2007

Hm, bezüglich der Anicht, falsher Ansichtsformel, da bin ich nicht weitergekommen, Antwortdokumente sind es auch nicht.
Habe einfach mal "select All" gemacht in der Ansichtsformel und die Dokumente, welche als Kategorie Ref-PTF kommen später unter "Keine REF-ID", was ja irgendwie auch richtig ist, denn das DOk ist eine Ref und hat keine Ref?
Ron

mrrobe · 16. August 2007

Hallo, ich habe da eine Frage zu Ansichten. 
<img height="455" alt="" width="576" src="http://www.dominoforum.de/uploads/newbb/Image/Ansicht.JPG" />
&nbsp;
Die erste Spalte zählt einfach nur (formula = 1), die zweite Spalte zeigt den Inhalt von Feld REF und ist kategorisiert. 
Die dritte Spalte zeigt Inhalt von Feld NO. Nun wird leider das Dokument nach dem kategorisiert wurde nicht mehr einzeln mit dem Inhalt von Feld REF angezeigt?? 
Gibt es da eine Möglichkeit, dass das Dokument nochmals angezeigt wird, so dass die Summe wieder stimmt? Denn bei drei Dokumenten, die im Feld REF den Wert 123 haben werden unter der Kategorie nur zwei DOKS angezeigt und folglich im Zähler nur 2 angezeigt. 
Weiter unten zeigt mir die Ansicht (not categorized). Kann dieser Wert auch geändert werden, z.B. in (keine REF)? 
Ron
&nbsp;
&nbsp;

mrrobe · 10. August 2007

Dali,
danke der Hilfe, aber mit der korrekten Formel wird das Feld
RCPTFisREF_T nicht mit dem Wert 1 belegt, wenn ich in der Picklist zuvor mit Cancel ausgestiegen bin, denn es gab keine Referenz in der Picklist, der Wert "0" wurd enichtgesetzt?

Ron

mrrobe · 10. August 2007

Nachdem ich jetzt die Picklist und den Wert der übergeben werden soll habe, habe ich noch eine Frage zur Picklist?

Die Picklist hat als Schalter OK und CANCEL,
Wenn ich OK wähle, wurde also etwas zuvor aus der Picklist ausgewählt, dann habe ich den RWERT und kann den Wert von RWERT in einem Feld mit [@SetField("RCPTFRef_TC"; RWERT].
zur Ansicht bringen

Jetzt brauche ich aber für eine Ansicht noch ein weiteres Feld, welches den Wert 1 hat wenn RWERT gefüllt is und 0 wenn der nicht gefüllt ist, also in der Picklist CANCEL gedrückt wurde, wie kann ich dass in der Picklist abfangen, um dann das weietre Feld mit 0 zusetzen

Diese Formel brachte mir nicht das Ergebnis:
@If(@TRUE; @SetField("RCPTFisREF_T";"1") & @SetField("RCPTFRef_TC"; RWERT);@SetField("RCPTFisRef_T"; "0"))

Ich bin davon ausgegangen, dass TRUE Ja ist, wenn ich OK in der PIcklist gedrückt habe.
Ron

mrrobe · 7. August 2007

Es gibt zwar die Hide-Wenn-Formel, jedoch such ich eine Möglichkeit auf Formel-Ebene ein Feld sichtbar bzw unsichtbar zu machen abhängig, ob das vorherige Feld mit einem Wert belegt ist oder nicht, also wenn kein Wert belegt ist, möchte ich das nächste Feld anzeigen lassen.
Habe nichts gefunden.
Ron

mrrobe · 7. August 2007

Klar, jetzt sehe ich es auch, ist nicht mein Tag heute.
Ron

mrrobe · 7. August 2007

Keine versteckte Spalte

Formel:
@Prompt([OK];"Wert of RWERT is";RWERT)
bringt "Wert of RWERT is" NICHTS

Ron

Beiträge von mrrobe

Kategorisierte Ansicht "collapse"

Datum wird falsch dargestellt.

Excel Import Form auswählen

Excel Import Form auswählen

Excelimport Auswahl datei

Excelimport Auswahl datei

Feld nachträglich mit Agent in Form einfügen

Feld nachträglich mit Agent in Form einfügen

Feld nachträglich mit Agent in Form einfügen

Feld nachträglich mit Agent in Form einfügen

Feld nachträglich mit Agent in Form einfügen

Feld nachträglich mit Agent in Form einfügen

Feld nachträglich mit Agent in Form einfügen

Frage zu Ansichten mit Kategory und zählen der Doks

Frage zu Ansichten mit Kategory und zählen der Doks

Feld mit berechneten Wert wird NICHT angezigt, Ratlos

Feld mit berechneten Wert wird NICHT angezigt, Ratlos

Feld zru Luafzeit ein- bzw ausblenden

Feld mit berechneten Wert wird NICHT angezigt, Ratlos

Feld mit berechneten Wert wird NICHT angezigt, Ratlos