Hi Akshay,
Can you please help us how we could implement the same with Baan LN 6.1 FP5. The operating system is AIX 5.3. and the database is Oracle 9.2. Please let us know the steps in details. Thanks in advance.
Hi,
3 components are required
1. Baan 3GL to convert report to ASCII and invoke shell scripts
2. Java Class to convert text to pdf
3. Shell scripts to invoke java class
4. Device Definition
1. Baan 3GL - Hope copyright is OK
||******************************************************************************
|* tdtcdpdf 0 VRC B40C L ive
|* Title : PDF
|* Author : Akshay Hulikavi
|* Date : 2004-02-09 [09:17]
|******************************************************************************
|* License :
|* Copyright 2004 by Akshay Hulikavi
|*
|* All Rights Reserved
|*
|* Permission to use, copy, modify, and distribute this software and its
|* documentation for any purpose and without fee is hereby granted,
|* provided that the above copyright notice appear in all copies and that
|* both that copyright notice and this permission notice appear in
|* supporting documentation.
|*
|* Akshay Hulikavi DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
|* SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|* AND FITNESS, IN NO EVENT SHALL Akshay Hulikavi BE LIABLE FOR ANY
|* SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE
|* OR PERFORMANCE OF THIS SOFTWARE.
|******************************************************************************
#pragma used dll ottdllbw
long ret, fp, zoomed | general return variable
extern domain tcmcs.str215 input.file, pdf.file, local.file | input file - created by Baan
extern domain tcmcs.str215 argument, argu1, argu4, argu0, argu2, argu3
extern domain tcmcs.str215 argu5, argu6, argu7, argu8, argu9
extern string sh.string(1024), file.path(128), date.str(8), time.str(5), dat(12)
function main()
{
argu0 = argv$(0)
argu1 = argv$(1)
argu2 = argv$(2)
argu3 = argv$(3)
argu4 = argv$(4)
zoomed = false
dat = dte$()
date.str = dat(3;2) & "/" & dat(1;2)& "/" & dat(5;2)
time.str = dat(7;2) & ":" & dat(9;2)
if argu1 = "" and argu2= "" then | Called from another program not spooler
import("argu1", argu1)
import("argu2", argu2)
import("argu3", argu3)
import("argu4", argu4)
zoomed = true
endif
file.path = getcwd()
input.file = shiftl$(strip$(argu2))
ret = wait.and.activate("ttstpconv", argu1, input.file, "ASCII", "wt")
input.file = shiftl$(strip$(file.path))&"/"&shiftl$(strip$(input.file))
pdf.file = input.file&".pdf"
local.file = "c:\"&shiftl$(strip$(argu2))&".pdf"
sh.string = ""
sh.string = sh.string &" "&chr$(34)&input.file&chr$(34)
sh.string = sh.string &" "&chr$(34)&pdf.file&chr$(34)
sh.string = sh.string &" "&str$(spool.pg.length)
sh.string = sh.string &" "&chr$(34)&logname$&" on "& date.str & " at "& time.str& chr$(34)
fp=seq.open("text2pdf.sh","r")
if fp >= 1 then | text2pdf.sh file exists
ret = shell( "text2pdf.sh " & sh.string,0)
else
fp=seq.open("text2pdf.sh","wt")
seq.puts("cd /baanIVc/c4/bse/tcd_email", fp)
seq.puts("pdf.sh $@", fp)
seq.close(fp)
ret = shell( "chmod 777 text2pdf.sh",0)
ret = shell( "text2pdf.sh " & sh.string,0)
endif
if ret = 0 then
if zoomed = false then | Called from another program not report
ret = server2client(pdf.file,local.file, 0, 0) | Binary Mode Transfer
if ret = 0 then
ret = app_start(local.file,"","","","")
ret = seq.unlink(input.file)
ret = seq.unlink(pdf.file)
else
message("File could sent to client !!!!" & str$(ret)&local.file)
endif
endif
else
message("File could not be created !!!!" & str$(ret))
endif
}
|*********************************** end of script ****************************
2. the java class tcd_text2pdf
/*
Class to convert baan ascii report to pdf
Author : Akshay Hulikavi
Date : 10.02.2004
Requires : itext-x.jar - can be downloaded from www.lowagie.com/iText/
Source can be downloaded from www.lowagie.com/iText/
Usage : java tcd_text2pdf <inputfile> <outputfile.pdf> <PageLength, Default = 60>
*/
import com.lowagie.text.*;
import com.lowagie.text.pdf.*;
import java.io.*;
public class tcd_text2pdf
{
public static void main(String[] args)
throws IOException, DocumentException
{
String resultStr = "", line=null, strFooter;
int lncnt=1, i, j, pgcnt=0, fntSize=8, lineSpacing, strLength=0;
//~ i = Integer.parseInt(args[2]);
j = Integer.valueOf(args[2]).intValue();
if (j <= 0)
j = 60; // Default page length
if(args.length < 2 ) {
System.out.println("Usage : java tcd_text2pdf <inputfile> <outputfile.pdf> <PageLength, Default = 60>");
return;
}
Reader in = new InputStreamReader(new FileInputStream(args[0]));
OutputStream os = new FileOutputStream(args[1]);
Document doc= new Document();
Image t_logo = Image.getInstance("logocolor.jpg");
t_logo.scalePercent(75); // scale image to 75%
java.io.BufferedReader br2 = new java.io.BufferedReader(in);
// get length of the longest line
try {
BufferedReader bufReader = new BufferedReader(new FileReader(args[0]));
while ((line=bufReader.readLine()) != null){
if (strLength < line.length())
strLength = line.length();
}
bufReader.close();
} catch (IOException e) {
System.err.println(e);
}
line = null;
i=1;
/*
Decide on Paper Size ,Orientation and Line Spacing based on max line length in report
*/
if (strLength <= 108)
i = 1 ;
if (strLength > 108 && strLength <= 127)
i = 2 ;
if (strLength > 127 && strLength <= 165)
i = 3 ;
if (strLength > 165 && strLength <= 176)
i = 4 ;
if (strLength > 176 && strLength <= 239)
i = 5;
if (strLength > 239)
i = 6 ;
switch (i) {
case 1:
doc = new Document(PageSize.A4, 36, 18, 72, 18);
fntSize = 8;
lineSpacing = fntSize;
t_logo.setAbsolutePosition(535, 770); // image margin 60 so 595-60 and 842-60
break;
case 2:
doc = new Document(PageSize.A4, 36, 18, 72, 18);
fntSize = 7;
lineSpacing = 9;
t_logo.setAbsolutePosition(535, 770);
break;
case 3:
doc = new Document(PageSize.A4.rotate(), 36, 18, 72, 18);
fntSize = 8;
lineSpacing = fntSize;
t_logo.setAbsolutePosition(770, 535);
break;
case 4:
doc = new Document(PageSize.A4.rotate(), 36, 18, 72, 18);
fntSize = 7;
lineSpacing = 9;
t_logo.setAbsolutePosition(770, 535);
break;
case 5:
doc = new Document(PageSize.LEDGER, 36, 18, 72, 18);
fntSize = 8;
lineSpacing = fntSize;
t_logo.setAbsolutePosition(1164, 732);
break;
case 6:
doc = new Document(PageSize.LEDGER, 36, 18, 72, 18);
fntSize = 7;
lineSpacing = 9;
t_logo.setAbsolutePosition(1164, 732);
break;
default:
doc = new Document(PageSize.A4, 36, 36, 72, 18);
fntSize = 8;
lineSpacing = fntSize;
t_logo.setAbsolutePosition(535, 770); // image margin 85 so 595-85 and 842-85
break;
}
// Add footer
strFooter = "Thermax Limited Chemical Division : 97-E General Block MIDC Bhosari Pune 411026";
strFooter +="\nPhone - 91-20-27120181, Fax - 91-20-27120206, URL - www.thermaxindia.com/chemical";
strFooter +="\nGenerated by (BaaN Login) : ";
strFooter +=args[3];
HeaderFooter footer = new HeaderFooter(new Phrase(strFooter,FontFactory.getFont(FontFactory.COURIER, 7)), false);
PdfWriter docWriter = null;
docWriter = PdfWriter.getInstance(doc, os);
doc.setFooter(footer);
docWriter.setEncryption(PdfWriter.STRENGTH40BITS, null, null, PdfWriter.AllowPrinting);
doc.addTitle("BaaN Report");
doc.addSubject("Report Generated from BaaN System");
doc.addKeywords("Thermax Limited Chemical Division : 97-E General Block MIDC Bhosari Pune 411026");
doc.open();
doc.add(t_logo);
Paragraph p;
java.io.BufferedReader br = new java.io.BufferedReader(in);
try {
while ((line=br.readLine()) != null){
if (lncnt > j)
{
doc.newPage();
lncnt = 0;
}
p = new Paragraph(new Phrase(lineSpacing,line,FontFactory.getFont(FontFactory.COURIER, fntSize)));
doc.add(p);
lncnt++;
}
br.close();
} catch (IOException e) {
System.out.println("IO Exception on Buffered Read :" + e);
};
doc.close();
os.close();
}
}
3. Shell Scripts
a. text2pdf.sh in user home directory
cd /baanIVc/c4/bse/tcd_email
pdf.sh $@
b. pdf.sh in say $BSE or other convinient directory
CLASSPATH=.:/baanIVc/c4/bse/tcd_email/PeBSClasses.zip:/baanIVc/c4/bse/tcd_email/itext-1.01.jar:/usr/j2se/javamail/javamail-1.3/mail.
export CLASSPATH
java tcd_text2pdf $@
4. Device Definition
Also need to define device called say PDF as follows
Device type: Rewrite File
4GL Program : tdtcdpdf
Argument : %s
Page Length : 72
regards