Const wdExportFormatPDF = 17
Const wdExportOptimizeForPrint = 0

Sub Click(Source As Button)
	
	Dim ws As New notesuiworkspace
	Dim doc As notesdocument
	Dim rtitem As notesrichtextitem
	Dim eo As notesembeddedobject
	Dim docFilePath As String, pdfFilePath As Variant
	Dim wordObject As Variant, wordDocument As Variant
	
	Set doc = ws.currentdocument.document
	Set rtitem = doc.getfirstitem("Allegato")
	Set eo = rtitem.EmbeddedObjects(0)

	pdfFilePath = ws.SaveFileDialog(False, "Salva PDF", "*.PDF", Environ("USERPROFILE") + "\Desktop", StrLeftBack(eo.Name, ".") + ".PDF")
	If IsEmpty(pdfFilePath) Then Exit Sub
	
	docFilePath = Environ("TEMP") + "\" + eo.Name
	Call eo.ExtractFile(docFilePath)
	
	Set wordObject = CreateObject("Word.Application")
	wordObject.Visible = False
	Set wordDocument = wordObject.Documents.Open(docFilePath)
	
	Call wordDocument.ExportAsFixedFormat(pdfFilePath(0), wdExportFormatPDF, False, wdExportOptimizeForPrint)
	
	Call wordDocument.Close(False)
	Call wordObject.Quit()
	
End Sub

Call wordDocument.ExportAsFixedFormat(pdfFilePath(0), wdExportFormatPDF, True, wdExportOptimizeForPrint)

A document may contain more than one item of the same name. To access other than the first item, use the Items property of NotesDocument. This code gets all items named "Item33":

Forall item In doc.Items
	If item.Name = "Item33" Then
		' Process one item
	End If
End Forall

Dim received As Variant

Set item = memo.GetFirstItem("Received")
Do Until item Is Nothing

	If IsNull(received) Then
		received = item.values
	Else
		received = ArrayAppend(received, item.values)
	End If
	
	Call item.Remove()
	Set item = memo.GetFirstItem("Received")
Loop

Dim received As Variant
Dim tmpdoc As NotesDocument

Set tmpdoc = memo.ParentDatabase.CreateDocument()
Call memo.CopyAllItems(tmpdoc, True)

Set item = tmpdoc.GetFirstItem("Received")
Do Until item Is Nothing

	If IsNull(received) Then
		received = item.values
	Else
		received = ArrayAppend(received, item.values)
	End If
	
	Call item.Remove()
	Set item = tmpdoc.GetFirstItem("Received")
Loop

Delete tmpdoc

Set tmpdoc = memo.ParentDatabase.CreateDocument()
Call tmp.ReplaceItemValue("Body", "")
Call memo.CopyAllItems(tmpdoc, False)

1. La funzione richiamata dal consumer restituisce un oggetto ClienteResponse;
2. La ClienteResponse contiene una variabile errore (xsd:string) e una variabile di tipo ElencoClienti;
3. La ElencoClienti non è altro il contenitore di uno o più elementi di tipo Cliente;
4. L'oggetto Cliente contiene le varie proprietà che descrivono il dato (ragione sociale, partita iva, telefono, ecc.).

$server = new nusoap_server();
$server->configureWSDL('ClientiWSDL', 'urn:ClientiWSDL');

$server->wsdl->addComplexType(
	'ClientiResponse',
	'complexType',
	'struct',
	'sequence',
	'',
	array(
		'Errore' => array('name' => 'Errore', 'type' => 'xsd:string'),
		'Clienti' => array('name' => 'Clienti', 'type' => 'tns:ClienteArray')
	)
);

		'Errore' => array('name' => 'Errore', 'type' => 'xsd:string', 'nillable' => 'yes')

$server->wsdl->addComplexType(
	'ClienteArray',
	'complexType',
	'array',
	'',
	'SOAP-ENC:Array',
	array(),
	array(
		array('ref' => 'SOAP-ENC:arrayType', 'wsdl:arrayType' => 'tns:Cliente[]')
	),
	'tns:Cliente'
);

$server->wsdl->addComplexType(
	'Cliente',
	'complexType',
	'struct',
	'sequence',
	'',
	array(
		'ID' => array('name' => 'ID', 'type' => 'xsd:int'),
		'Ragsoc' => array('name' => 'Ragsoc', 'type' => 'xsd:string'),
		'Tel' => array('name' => 'Tel', 'type' => 'xsd:string'),
		'Tel2' => array('name' => 'Tel2', 'type' => 'xsd:string'),
		'Email' => array('name' => 'Email', 'type' => 'xsd:string'),
		'Fax' => array('name' => 'Fax', 'type' => 'xsd:string'),
		'CAP' => array('name' => 'CAP', 'type' => 'xsd:string'),
		'Indirizzo' => array('name' => 'Indirizzo', 'type' => 'xsd:string'),
		'Comune' => array('name' => 'Comune', 'type' => 'xsd:string'),
		'Provincia' => array('name' => 'Provincia', 'type' => 'xsd:string'),
		'Regione' => array('name' => 'Regione', 'type' => 'xsd:string')
	)
);

$server->register(
	'ElencoClienti',
	array('password' => 'xsd:string'),
	array('return' => 'tns:ClientiResponse'),
	'urn:ElencoClienti',
	'urn:ElencoClienti#ElencoClienti',
	'rpc',
	'encoded'
);

function ElencoClienti($password) {

	$res = array(
		'Errore' => '',
		'Clienti' => array()
	);

	$cliente = array(
		'ID' => 1,
		'Ragsoc' => 'Rossi SpA',
		'Tel' => '02123456789',
		'Tel2' => '',
		'Email' => 'rossi@rossi.com',
		'Fax' => '02123456789',
		'CAP' => '20121',
		'Indirizzo' => 'Via Roma, 1',
		'Comune' => 'Milano',
		'Provincia' => 'MI',
		'Regione' => 'Lombardia'
	);

	array_push($res['Clienti'], $cliente);

	// altri clienti...

	return $res;

}

$server->service( (isset($HTTP_RAW_POST_DATA) ? $HTTP_RAW_POST_DATA : '') );

Memoria e tempi di esecuzione

set_time_limit(600);
ini_set('memory_limit', -1);

Download

WSDL Client

• Il server di sviluppo che uso è un LAMP su Debian, e la risposta a qualsiasi richiesta di esecuzione del webservice era un HTTP Code 417 (Expectations). Non ho risolto, né approfondito in verità, ma sono sicuro che l'incomprensione esiste solo tra WCFStorm Lite e NuSOAP.
• Problemi di charset: WCFStorm Lite invia richieste solo in UTF-8, e NuSOAP risponde solo in ISO-8859-1. Il che a WCFStorm non piace, vanificando la sua utilità di client WSDL. Tra parentesi in NuSOAP non è assolutamente possibile modificare il charset, se non manualmente nei sorgenti.

Utilizzo in Lotus Domino Designer

%INCLUDE "lsxsd.lss"
Class Cliente_n8 As XSD_ANYTYPE
	
	Public ID As Long
	Public Ragsoc As String
	Public Tel As String
	Public Tel2 As String
	Public Email As String
	Public Fax As String
	Public CAP As String
	Public Indirizzo As String
	Public Comune As String
	Public Provincia As String
	Public Regione As String
	
	Sub NEW
	End Sub
	
End Class

Class ClientiResponse_n8 As XSD_ANYTYPE
	
	Public Errore As String
	Public Clienti() As Cliente_n8
	
	Sub NEW
	End Sub
	
End Class

Const n8 = "urn:ClientiWSDL"
Class ClientiWSDLPortType_n8 As PortTypeBase
	
	Sub NEW
		Call Service.Initialize ("UrnClientiWSDLClientiWSDL", _
		"ClientiWSDL.ClientiWSDLPort", "http://172.20.3.106/wsdl/clienti.php", "ClientiWSDLPortType_n8")
		
	End Sub
	
	Function ElencoClienti(password As String) As ClientiResponse_n8
		Set ElencoClienti = Service.Invoke("ElencoClienti", password)
	End Function
	
End Class

Option Public
Option Declare

Use "clienti.wsdl"

Const PASSWORD = "c5ecf192a9b865cc7b4df8b46d2c5621"

Sub Initialize
	Dim wsdl As New ClientiWSDLPortType_n8
	Dim res As ClientiResponse_n8
	Set res = wsdl.ElencoClienti(PASSWORD)
	ForAll cliente In res.Clienti()
		Print cliente.Ragsoc
	End ForAll
End Sub

Dopo l'aggiornamento a Squeeze...

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("cmd /c net statistics server")
lineNum = 1
strText = ""
Do While Not objExecObject.StdOut.AtEndOfStream
    strText = Trim(objExecObject.StdOut.ReadLine())
	If lineNum = 4 Then
		Exit Do
	End If
	lineNum = lineNum + 1
Loop

strDateTime = ""
For pos = 1 To Len(strText)
	ch = Right(Left(strText, pos), 1)
	If Asc(ch) >= 48 And Asc(ch) <= 57 Then
		strDateTime = Right(strText, Len(strText) - pos + 1)
		Exit For
	End If
Next

dt = CDate(strDateTime)

diffS = Datediff("s", dt, Now)

diffM = Fix(diffS / 60)
diffS = diffS - (diffM * 60)
diffH = Fix(diffM / 60)
diffM = diffM - (diffH * 60)
diffD = Fix(diffH / 24)
diffH = diffH - (diffD * 24)

Dim tokens()

bounds = 0

If diffD > 0 Then
	Redim Preserve tokens(bounds)
	If diffD = 1 Then
		tokens(bounds) = "1 day"
	Else
		tokens(bounds) = diffD & " days"
	End If
	bounds = bounds + 1
End If

If diffH > 0 Then
	Redim Preserve tokens(bounds)
	If diffH = 1 Then
		tokens(bounds) = "1 hour"
	Else
		tokens(bounds) = diffH & " hours"
	End If
	bounds = bounds + 1
End If

If diffM > 0 Then
	Redim Preserve tokens(bounds)
	If diffM = 1 Then
		tokens(bounds) = "1 minute"
	Else
		tokens(bounds) = diffM & " minutes"
	End If
	bounds = bounds + 1
End If

If diffS > 0 Then
	Redim Preserve tokens(bounds)
	If diffS = 1 Then
		tokens(bounds) = "1 second"
	Else
		tokens(bounds) = diffS & " seconds"
	End If
	bounds = bounds + 1
End If

WScript.Echo "up " & Join(tokens, ", ")

1. Avviare il comando di cui sopra;
2. Attendere, eseguendo in shell tasklist, che Adobe parta (facendo le dovute considerazioni circa il fatto che potrebbe essere già attiva un'altra istanza di Adobe);
3. Ciclare fino a che il file PDF da stampare esiste su disco, e all'interno del ciclo tentare di eliminarlo: fino a che Adobe è aperto lo blocca e l'eliminazione non va a buon fine. Nel momento in cui Adobe ha eseguito la stampa, libera il file e quindi ha luogo l'eliminazione che comporta l'uscita dal ciclo. Meglio comunque se controllato da un timeout;
4. Terminare Adobe, eseguendo in shell taskkill.

import com.lowagie.text.Document;
import com.lowagie.text.pdf.*;
import java.io.*;
import java.util.ArrayList;
import java.util.Iterator;
import java.util.List;

public class MergePDF {

  public static byte[] concatPDFs(List<InputStream> streamOfPDFFiles) {

	byte[] ret = null;
	  
    Document document = new Document();
    try {
      List<InputStream> pdfs = streamOfPDFFiles;
      List<PdfReader> readers = new ArrayList<PdfReader>();
      ByteArrayOutputStream outputStream = new ByteArrayOutputStream();
      int totalPages = 0;
      Iterator<InputStream> iteratorPDFs = pdfs.iterator();

      // Create Readers for the pdfs.
      while (iteratorPDFs.hasNext()) {
        InputStream pdf = iteratorPDFs.next();
        PdfReader pdfReader = new PdfReader(pdf);
        readers.add(pdfReader);
        totalPages += pdfReader.getNumberOfPages();
      }
      // Create a writer for the outputstream
      PdfWriter writer = PdfWriter.getInstance(document, outputStream);

      document.open();
      PdfContentByte cb = writer.getDirectContent(); // Holds the PDF
      // data

      PdfImportedPage page;
      int currentPageNumber = 0;
      int pageOfCurrentReaderPDF = 0;
      Iterator<PdfReader> iteratorPDFReader = readers.iterator();

      // Loop through the PDF files and add to the output.
      while (iteratorPDFReader.hasNext()) {
        PdfReader pdfReader = iteratorPDFReader.next();

        // Create a new page in the target for each source page.
        while (pageOfCurrentReaderPDF < pdfReader.getNumberOfPages()) {
          document.newPage();
          pageOfCurrentReaderPDF++;
          currentPageNumber++;
          page = writer.getImportedPage(pdfReader, pageOfCurrentReaderPDF);
          cb.addTemplate(page, 0, 0);
        }
        pageOfCurrentReaderPDF = 0;
      }
      outputStream.flush();
      document.close();
      outputStream.close();
      
      ret = outputStream.toByteArray();
      
    } catch (Exception e) {
      e.printStackTrace();
    } finally {
      if (document.isOpen())
        document.close();
    }
    
    return ret;
    
  }
  
}

document.appendChild(new Element('div', { 'id' : 'popup' }));
for (var i = 0; i < 10; i++) $('popup').appendChild(new Element(p).update('prova'));

if ($('popup').offsetHeight + $('popup').offsetTop > browserHeight)
	$('popup').style.bottom = '50px';

document.appendChild(new Element('div', { 'id' : 'popup' }));
for (var i = 0; i < 10; i++) $('popup').appendChild(new Element(p).update('prova'));

setTimeout('resizePopup()', 100);

function resizePopup() {
	if ($('popup').offsetHeight + $('popup').offsetTop > browserHeight)
		$('popup').style.bottom = '50px';
}

• 23.10: il server di dominio accende il PC di backup
• 23.30: il PC di backup salva su supporto esterno i dati della nottata precedente
• 00.00 - 02.00 circa: i vari server virtuali copiano i propri dati sul PC di backup
• 3.30: il PC di backup si spegne

Primo problema

Secondo problema

Terzo problema

Risolti tutti i problemi...

Public Class Persona
	Public Nome As String
	Public Cognome As String
	Sub New(nome As String, cognome As String)
		Me.Nome = nome
		Me.Cognome = cognome
	End Sub
End Class

Public Class Dipendente As Persona
	Public Matricola As Integer
	Sub SetMatricola(num As Integer)
		Me.Matricola = num
	End Sub
End Class

Include "BaseClasses"