server :=@Environment("SwPDFCreatorServer");db := @Environment("SwPDFCreatorDB");
PromptTitle :="SWING PDF Converter for Lotus Notes and Domino";
Err1Title := @Environment("swPDFErr1");
@If(Err1Title="";Err1Title :="The SWING PDF Converter database could not be found." ;Err1Title);
Err2Title := @Environment("swPDFErr2");
@If (Err2Title=""; Err2Title := "Please select a document or a collection of documents to be converted to PDF." ; Err2Title);
Err3Title := @Environment("swPDFErr3");
@If (Err3Title=""; Err3Title := "The new document should be saved before being converted to PDF. Please save the document and try again." ;Err3Title);
continue :=1;
@If(db ="" ;continue :=0 ; continue :=1);
@If(continue=0;@Prompt([Ok];PromptTitle;Err1Title);continue:=1);
@If(continue=0;@Return(@False);continue:=0);
continue :=1;
@If(@DbExists(server:db ) ;continue:=1; continue :=0);
@If(continue=0;@Prompt([Ok];PromptTitle;Err1Title);continue:=1);
@If(continue=0;@Return(@False);continue:=0);
continue :=1;
@SetEnvironment("SwPDFServer";@Subset(@DbName;1));
@SetEnvironment("SwPDFDb";@Subset(@DbName;-1));
title:="";
title:=@Text(@ViewTitle);
@SetEnvironment("SwPDFViewTitle";title);
unid:="";
@IfError(unid:=@Text(@DocumentUniqueID);@Prompt([Ok];PromptTitle;Err2Title));
@If( (unid = "" & title="" ) | (unid="00000000000000000000000000000000" & title = "");continue := 0;continue := 1) ;
@If(continue=0;@Prompt([Ok];PromptTitle;Err2Title);continue:=1);
@If(continue=0;@Return(@False);continue:=0);
@SetEnvironment("SwPDFDoc";unid);
@SetEnvironment("SwPDFContext";""); REM {context is unknown at the begining. Possible values: "DOC"-> Represents a single document in read or edit mode, "View" - > view pdf conversion};
viewTest := @Command([ViewHorizScrollbar]);
context := @If(@IsError(viewTest); "DOC"; "VIEW");
@If(context = "VIEW"; @Command([ViewHorizScrollbar]); "");
FormName :=@Text(@GetDocField(unid;"Form"));
@If(FormName ="" ; @If(@Text(@GetDocField(unid;"$SMTPNotFromNotes")) = "1"; FormName := "Memo" ; "") ;"");
@SetEnvironment("SwPDFForm";FormName);
@If(@IsDocBeingEdited & @IsNewDoc; continue:=0;continue:=1);
@If(continue=0;@Prompt([Ok];PromptTitle;Err3Title);continue:=1);
@If(continue=0;@Return(@False);continue:=0);
@SetEnvironment("SwPDFContext"; context);
@PostedCommand([Compose];server:db;".PDFDialog";4:5)