Beiträge von Stony

Stony · 19. Januar 2010

Moin!

Habe den Agenten jetzt mit dem 6.5er Client editiert.
Funktioniert jetzt einwandfrei!

Danke.

Gruß Stony

Stony · 15. Januar 2010

Dachte ich eigentlich auch. Ich glaube das werde ich mal vorschlagen. Ich häng das Script mit dem 6.5er rein. Entweder es funzt oder eben nicht.

Stony · 15. Januar 2010

Hallo zusammen,

wie kann ich denn beim 5er Designer den Zeichensatz für eine Ausgabedatei mitgeben?

Im 6.5er Designer gehts ja hiermit:

Code

Open fileName For Output As fileNum Charset = "Windows-1252"

Hintergrund der Aktion ist eine "ur"-alte Datenbank, die im 5er Designer entwickelt worden ist. Keiner traut sich da mit einem 6.5er Designer ran.

Kann mir hier jemand helfen?

Danke

Gruß Stony

Stony · 8. Dezember 2009

Hallo zusammen,

ich habs hinbekommen.

Ich baue mir den R1C1 String selber zusammen....

Code

Forall filelist In files 
		ExcelWorkbook = Cstr(filelist)
		Set excelApp = CreateObject("Excel.application")
		excelApp.Visible = True 
		excelApp.Workbooks.open(ExcelWorkbook)

		'Basis Tabellenblatt wählen
		Set excelSheet= excelApp.ActiveWorkbook.Worksheets(2)
		excelSheet.Activate

		'letzte Zeile suchen
		range = "a1"
		excelValue = excelApp.Range(range).value
		i = 1
		While Not excelValue = ""
			range = "A" + Trim( Cstr(i))
			excelApp.Range("A" + Trim( Cstr( i ) ) ).Select			
			excelValue = excelApp.Range("A" + Trim( Cstr( i ) ) ).value
			i = i +1		
		Wend

		'Tabellenblatt mit Pivot angeben
		Set excelSheet= excelApp.ActiveWorkbook.Worksheets(1)
		excelSheet.Activate

		'Pivot wählen und SourceData ändern
		excelApp.Range("A1").Select
		newAddress =  "R1C1:R"+Cstr(i-2)+"C19"
		Call excelSheet.PivotTableWizard(1,"Basis!"+newAddress)

		'Excel speichern / schließen
		excelApp.save
		excelApp.quit
		Set excelApp = Nothing	
	End Forall

Alles anzeigen

Vielen Dank für eure Hilfe.

Gruß Stony

Stony · 8. Dezember 2009

....jetzt habe ich es mal hiermit versucht....

Code

excelApp.Range("A1").Select
		newAddress = excelApp.ConvertFormula("A1:S116","xlA1","xlR1C1") 'Convert A1 to R1C1
		Call excelSheet.PivotTableWizard(1,"Basis!"+newAddress)

Nur leider schmiert der Notes Client bei dem Aufruf "ConvertFormula" komplett ab.
Wenn ich PivotTableWizard mit R1C1 Format ausführe, funktioniert das ganze.

Da der Bereich aber dynamisch sein muss, muss ich A1 in R1C1 konvertieren.

Hat noch jemand ne Idee?

Stony · 8. Dezember 2009

Hallo,

die Basis enthält keine Spalten ohne Überschrift.
Wenn ich die SourceDaten direkt in der Exceltabelle über den Pivotassistenten ändere funktioniert es.

Stony · 8. Dezember 2009

Hallo,

habe es jetzt mal so versucht:

Code

Forall filelist In files 
		ExcelWorkbook = Cstr(filelist)
		Set excelApp = CreateObject("Excel.application")
		excelApp.Visible = True 
		excelApp.Workbooks.open(ExcelWorkbook)

		Set excelSheet= excelApp.ActiveWorkbook.Worksheets(1)
		excelSheet.Activate
		Set excelPivot = excelSheet.PivotTables(1)
		excelPivot.SourceData = "Basis!A2:S116"
		excelPivot.RefreshTable

		excelApp.quit
		Set excelApp = Nothing	
	End Forall

Alles anzeigen

Leider funktioniert das auch nicht. Ich bekomme im Excel eine Fehlermeldung (siehe Anhang)

Stony · 7. Dezember 2009

Hallo,

OK. Danke schonmal dafür.
Wie bekomme ich denn jetzt die neuen Source-Daten in die existierende Pivottabelle?

Habe mir im Excel mal ein Makro aufgezeichnet und es versucht auf LS umzubauen....leider ohne Erfolg. Es kommt zwar keine Fehlermeldung, aber es wird auch nichts geändert.

Code

Set excelSheet= excelApp.ActiveWorkbook.Worksheets(1)
excelSheet.Activate
Call excelSheet.PivotTableWizard (1, "Basis!R1C1:R116C19")

Stony · 7. Dezember 2009

Hallo zusammen,

ich versuche mit Lotus Script die Source-Daten einer Pivottabelle zu ändern.

Leider bekomme ich beim With die Fehlermeldung "Instance member PIVOTTABLEWIZARD does not exist".

Hier noch der Quellcode:

Code

Dim ws As New NotesUIWorkspace
	Dim excelApp As Variant
	Dim ExcelWorkbook As String
Dim files As Variant

	files = ws.OpenFileDialog(True, "File List", "", "C:\")
	If Isempty(files) Then
		Exit Sub
	End If

	Forall filelist In files 
		ExcelWorkbook = Cstr(filelist)
		Set excelApp = CreateObject("Excel.application")
		excelApp.Visible = True 
		excelApp.Workbooks.open(ExcelWorkbook)

		With excelApp.PivotTableWizard
			.SourceType= 1
			.SourceData = "Basis!R1C1:R116C19"
		End With

		excelApp.quit
		Set excelApp = Nothing	
	End Forall

	Msgbox "Fertig!!"

Alles anzeigen

Danke schonmal!

Gruß Stony

Stony · 26. Oktober 2009

Oh shit!!

Du hattest recht.
System.out.println("Hallo Welt");

hat funktioniert.

Danke dir.

Stony · 26. Oktober 2009

Ja das stimmt. Da hat ein ; gefehlt.

Aber bis dahin kommt der Agent ja noch nicht einmal.
Der Agent kann die JavaAgent Class irgendwie nicht laden.

Stony · 26. Oktober 2009

Hallo Taurec,

so ist es...

Stony · 26. Oktober 2009

Hallo zusammen,

ich möchte einen Agenten in Java schreiben.
Wenn ich den Agenten lokal ausführe bekomme ich immer folgende Fehlermeldung im Debugger:

Zitat

Error loading Agent Class: JavaAgent

java.lang.ClassNotFoundException: JavaAgent

at lotus.domino.AgentLoader.loadClass(Unknown Source)

at java.lang.ClassLoader.loadClass(ClassLoader.java:448)

at lotus.domino.AgentLoader.runAgent(Unknown Source)

Alles anzeigen

Hier noch das Test Programm...

Code

import lotus.domino.*;


public class JavaAgent extends AgentBase {


	public void NotesMain() {


		try {
			Session session = getSession();
			AgentContext agentContext = session.getAgentContext();


			System.Out.Println("Hallo Welt")


		} catch(Exception e) {
			e.printStackTrace();
		}
	}
}

Alles anzeigen

Muss ich noch irgendwo etwas einstellen?

Danke.

Gruß Stony

Stony · 7. Oktober 2009

Hallo Taurec,

ich habs gefunden!! In der Maske war "HTML für alle Felder generieren" deaktiviert.

Gruß Jan

Stony · 7. Oktober 2009

Hallo zusammen,

in einer Webapplikation habe ich das Problem, dass das JavaScript nicht auf versteckte Felder zugreifen kann (FELD ist NULL oder kein Objekt).

Sobald ich das Feld nicht mehr verstecke (über Hide-When) funktioniert es.

Bei meinen anderen Webapplikationen steht normalerweise z.B. folgendes im Seitenquelltext:

Code

<input name="FELD" type="hidden" value="">

In meinem jetzigen Fall erscheint das Feld nicht im Seitenquelltext und ich frage mich warum??

Kann mir jemand einen Tipp geben?

Danke.
Gruß Stony

Stony · 9. Juli 2009

der FTI ist 192 MB groß

Stony · 6. Juli 2009

Hallo,

was kann das Problem noch hervorgerufen haben?

Gruß Jan

Stony · 3. Juli 2009

Hallo,

laut KB sollte der Fehler in der Version 6.5.5 gefixed sein...

Zitat

This issue was reported to Quality Engineering as SPR# MPEY5PNRL9 and has been fixed in Domino 6.0.5, 6.5.4, 6.5.2 Fix Pack 1, 6.5.3 Fix Pack 1 and 6.5.5.

Da wir wie oben beschrieben diese Version einsetzen, ist es anscheinend doch noch nicht richtig behoben worden.

Schonmal vielen Dank.

Gruß Jan

Stony · 3. Juli 2009

Hallo zusammen,

nach einer ft Suche einer Notesdatenbank (Webfrontend) ist der Domino-Server mit folgender Fehlermeldung abgeschmiert:

Code

01.07.2009 12:32:31   GTR search error for "/database.ft/ftgi": Memory allocation error. errcode = 3301: Not enough memory for Full Text Indexing or Search
01.07.2009 12:32:31   Full Text message: Memory allocation error. errcode = 3301
01.07.2009 12:32:31   HTTP Web Server: Lotus Notes Exception - Not enough memory for Full Text Indexing or Search [/database/Search?Search&Query=*3,5"*]

Hier noch ein paar Angaben zum Server:
HP DL360, freier Plattenplatz 9,5 GB, RAM 3GB, SuSe 8, Domino Server 6.5.5 Fixpack 3

Habe die gleiche ft Suche nochmal gemacht und es gab kein Problem.
Den FT Index habe ich bereits gelöscht und neu aufgebaut (ohne Anhänge).

Die Größe der DB ist 4,5 GB. Der Index ist 186 MB groß.

Hat jemand eine Idee an was das liegt?

Gruß Jan

Stony · 16. Dezember 2008

Hallo,

hat sich erledigt. Es lag an einer Umgebungsvariable am Server.
Jetzt funktioniert der Shell-Aufruf.

Danke.

Gruß Stony

Beiträge von Stony

Charset Windows-1252

Charset Windows-1252

Charset Windows-1252

Pivottabelle Range ändern

Pivottabelle Range ändern

Pivottabelle Range ändern

Pivottabelle Range ändern

Pivottabelle Range ändern

Pivottabelle Range ändern

Java Agent

Java Agent

Java Agent

Java Agent

Hidden Fields und Javascript

Hidden Fields und Javascript

Lotus Notes Exception - Not enough memory for Full Text Indexing or Search

Lotus Notes Exception - Not enough memory for Full Text Indexing or Search

Lotus Notes Exception - Not enough memory for Full Text Indexing or Search

Lotus Notes Exception - Not enough memory for Full Text Indexing or Search

Shell Lotusscript auf Linux