Baanboard.com

Go Back   Baanboard.com > Forum > Baan Quick Support: Functional & Technical > Tools Development

User login

Frontpage Sponsor

Main

Poll
For ERP LN feature pack upgrade, what method of install are you using?
Installation Wizard into existing VRC
35%
Installation Wizard into new VRC
42%
Manual into existing VRC
3%
Manual into new VRC
19%
Total votes: 31

Baanboard at LinkedIn


Reference Content

Reply
 
Thread Tools Display Modes
  #1  
Old 16th July 2008, 17:14
marwest98 marwest98 is offline
Member
 
Join Date: Apr 2008
Posts: 61
marwest98 is on a distinguished road
Baan: 7.1d.02.153 - DB: Currently Oracle Sqlserver2005 soon - OS: currently Unix soon Windows
Script problem when converting to Windows 2003 and SQLServer 2005
Baan: iBaanERP 5.0c
C/S: None/Unknown

We have a session that requires the users to input a filename. Since we are in the process of converting from Unix to SQLServer 2005, I am testing scripts. Normally in this session the user types in a Direction File of /usr/bsp/myreport/rpdistnew.csv and an error file of /usr/bsp/myreport/rpdist.err. To convert to windows, I have modified the script to use \ instead of /. I have tried various ways to put the file name in, but the script builds the file path with \\ - \\usr\\bsp\\myreport\\rpdistnew.csv for example. It does not matter how I put the file name in - I've tried using the server name \\fwbaan\baan5c\usr etc, and then it does \\\\fwbaan\baan5c\usr..... If I try fwbaan\baan5c\usr... I get fwbann\\baan5c\\usr. How can I stop this from happening? Here is a copy the script.

|******************************************************************************
|* timjrc425 0 VRC B50C c prod
|* Print Period Profit Report for Branch Managers
|* General_User_UNIX
|* 2003-07-30
|******************************************************************************
|* Main table tfgld005 Periods, Form Type 4
|* Amit Biswas
|******************************************************************************
| This session is created to print reports for all Branch Managers/Gen. Managers.
| There should be a direction file. Currently it is maintained as
| /usr/bsp/mjreport/rpdistnew.csv .It may be modified according to needs.
| It is a CSV file containing the fields as following:-
| Name of the Manager, path string on I directory ( by concatenating another string with
| it respective file names are generated for the concerned Managers) and branch numbers.
| There are provisions for 16 branch numbers, each branch is designated with two-digit code
| and should be present on the branch table.
| The program reads this file , for each record it will generate three separate reports
| covering designated branches and push the files finally to different folders on I drive | meant for the concerned Manager .
| The type of file created is postscript( with .ps extension) to be opened with ghostview
| software.
| Error file will contain error message if any.
| Before writing any file on Client ( C: or I first it writes a temporary file on the
| Unix directory "/usr/bsp/mjreport" (to be removed after it is copied to client).
|****************************** declaration section ***************************
declaration:

table ttfgld005 | Periods
table ttfgld006 | End Dates by Year
table ttimjr907 | Sales Group with Sales category
table ttimjr906 | Sales Group
table ttimjr910 | Product
table ttimjr912 | Stores
table ttimjr913 | Retail Price
table ttimjr923 | Scanned Sales

extern string buff(2048)
extern string ebuf(2048)
extern domain tcmcs.str10 tbid.f
extern domain tcmcs.str10 tbid.t
extern domain tcmcs.str20 stor.f
extern domain tcmcs.str20 stor.t
extern domain tfgld.ptyp ptyp.t
extern domain tfgld.ptyp ptyp.f
extern domain tfgld.ptyp ptyp.t
extern domain tfgld.year year.f

extern domain tfgld.prod prno.f

extern domain tccitg scat.f,scat.t
extern domain tccitg sgrp.f,sgrp.t
extern domain tfgld.date last.date ,wk.ldt
extern domain tcamnt samnt
extern domain tcqana sunit
extern domain tcpric rpric,n.price,opric,wpric
extern domain tcweek weekno
extern domain tcyesno second.header
extern domain tcmcs.str50 dirpath,r.path,e.file
extern domain tcmcs.str15 nam
extern domain tcmcs.long el,id1,id2,id3
extern domain tcmcs.str4 lv0,lv1,lv2

extern domain tccitg bran.f1,bran.f2,bran.f3,bran.f4,bran.f5,bran.f6,bran.f7,bran.f8,bran.f9,bran.f10,bran.f11,bran.f12,bran.f13,bran.f14
extern domain tccitg bran.t1,bran.t2,bran.t3,bran.t4,bran.t5,bran.t6,bran.t7,bran.t8,bran.t9,bran.t10,bran.t11,bran.t12,bran.t13,bran.t14

extern domain tcmcs.str40 ps2pdf
extern domain tcmcs.long flno
|****************************** form section **********************************

form.1:
init.form:
get.screen.defaults()

|****************************** choice section ********************************

choice.cont.process:
on.choice:
flno=0
if isspace(dirpath) or isspace(e.file) then
message("Direction file or Error file must not be empty..")
choice.again()
endif
read.main()


|****************************** field section *********************************
field.sgrp.f:
when.field.changes:
sgrp.t = sgrp.f
field.scat.f:
when.field.changes:
scat.t = scat.f
field.ptyp.f:
when.field.changes:
ptyp.t = ptyp.f



field.stor.f:
when.field.changes:
stor.t = stor.f


|****************************** function section *****************************

functions:
function read.main()
{


long count
long fl, ret
el=0
fl = seq.open(dirpath,"r+")
if fl < 0 then
message("Cannot open Direction file")
exit()
endif


db.retry.point()
while not seq.eof(fl)
buff=""
ebuf=""


seq.gets(buff ,2048,fl)

buff=strip$(shiftl$(buff))
if not isspace(buff) then

init.values()
read.line()


endif

endwhile
seq.close(fl)
fl=0
if el <> 0 then
seq.close(el)
endif
el=0


}
function read.main.table2()
{ second.header=tcyesno.yes
open.reports()
select timjr912.stor,timjr912.tbid,timjr912.nama,timjr912.bran
from timjr912
where timjr912._index1 between {:tbid.f,:stor.f} and {:tbid.t,:stor.t}
and ( timjr912._index2={:bran.f1}
or timjr912._index2={:bran.t1}
or timjr912._index2={:bran.f2}
or timjr912._index2={:bran.t2}
or timjr912._index2={:bran.f3}
or timjr912._index2={:bran.t3}
or timjr912._index2={:bran.f4}
or timjr912._index2={:bran.t4}
or timjr912._index2={:bran.f5}
or timjr912._index2={:bran.t5}
or timjr912._index2={:bran.f6}
or timjr912._index2={:bran.t6}
or timjr912._index2={:bran.f7}
or timjr912._index2={:bran.t7}
or timjr912._index2={:bran.f8}
or timjr912._index2={:bran.t8}


or timjr912._index2={:bran.f9}
or timjr912._index2={:bran.t9}
or timjr912._index2={:bran.f10}
or timjr912._index2={:bran.t10}
or timjr912._index2={:bran.f11}
or timjr912._index2={:bran.t11}
or timjr912._index2={:bran.f12}
or timjr912._index2={:bran.t13}
or timjr912._index2={:bran.f14}
or timjr912._index2={:bran.t14}


)
order by timjr912._index1
selectdo
last.date =0
select tfgld005.*, tfgld006.*
from tfgld005, tfgld006
where tfgld005._index1={tfgld.ptyp.financial, :year.f, rno.f}

and tfgld005.year refers to tfgld006
order by tfgld005._index1
selectdo

last.date = tfgld005.stdt +27
if tfgld005.prno > 12 then
get.last.date.last.period()
endif
select timjr907.*,timjr906.dsca
from timjr907,timjr906
where timjr907.sgrp =timjr906.sgrp
order by timjr907._index1
selectdo

select timjr910.prid ,timjr910.dsca,timjr910.scat
from timjr910
where timjr910.scat=:timjr907.scat
order by timjr910.prid
selectdo
sunit =0
samnt = 0
rpric = 0
opric = 0
wpric = 0
n.price =0
select timjr923.*
from timjr923
where timjr923._index1={:timjr912.tbid,:timjr912.stor,:timjr910.prid}
and timjr923.scdt between :tfgld005.stdt and :last.date
and timjr923.qana <> 0
order by timjr923.scdt
selectdo
get.retail.price( timjr923.scdt)
wpric = timjr923.amnt/timjr923.qana
get.week.no()


if ( rpric <> 0 and n.price <> rpric ) or
( opric <> 0 and wpric <> opric ) then
send.reports()
sunit =0
samnt = 0
endif
rpric= n.price
opric = wpric
sunit =sunit + timjr923.qana
samnt =samnt + timjr923.amnt



selecteos


send.reports()
endselect
endselect
endselect

endselect

endselect
close.reports()
move.reports()

}



function get.retail.price( domain tfgld.date scdt)
{
domain tcbool got
got = false
n.price = 0
select timjr913.pric,timjr913.efdt
from timjr913
where timjr913._index1={:timjr912.tbid,:timjr910.prid,:timjr912.stor}
and timjr913.efdt <= :scdt
and timjr913.exdat >=:scdt
and timjr913.exdat > 0
order by timjr913.efdt
selectdo
selecteos
got=true
n.price = timjr913.pric
selectempty
got= false
endselect
if not got then
get.default.retail.price( scdt)
endif
timjr913.pric =0
}

function get.default.retail.price( domain tfgld.date scdt0)
{
n.price = 0
select timjr913.pric,timjr913.efdt
from timjr913
where timjr913._index1={:timjr912.tbid,:timjr910.prid,:timjr912.stor}
and timjr913.efdt <= :scdt0
and timjr913.exdat = 0

order by timjr913.efdt
selectdo
selecteos
n.price = timjr913.pric

endselect


}


function get.last.date.last.period()
{ domain tfgld.year yr
yr = tfgld005.year
select tfgld006.fpdt:last.date
from tfgld006
where tfgld006._index1={:yr}
selectdo
endselect

}

function get.week.no()
{


if timjr923.scdt >= (tfgld005.stdt+21) and
timjr923.scdt <= (tfgld005.stdt +27) then
weekno = (tfgld005.prno -1)*4 +4
wk.ldt = tfgld005.stdt +27
endif
if timjr923.scdt >= (tfgld005.stdt+14) and
timjr923.scdt <= (tfgld005.stdt +20) then
weekno = (tfgld005.prno -1)*4 +3
wk.ldt = tfgld005.stdt +20
endif
if timjr923.scdt >= (tfgld005.stdt+7) and
timjr923.scdt <= (tfgld005.stdt +13) then
weekno = (tfgld005.prno - 1)*4 +2
wk.ldt = tfgld005.stdt +13
endif
if timjr923.scdt >= (tfgld005.stdt) and
timjr923.scdt <= (tfgld005.stdt +6) then
weekno = (tfgld005.prno -1)*4 +1
wk.ldt = tfgld005.stdt +6
endif

}

function init.values()
{
nam=""
r.path=""
bran.f1=""
bran.f2=""
bran.f3=""
bran.f4=""
bran.f5=""
bran.f6=""
bran.f7=""
bran.f8=""
bran.t1=""
bran.t2=""
bran.t3=""
bran.t4=""
bran.t5=""
bran.t6=""
bran.t7=""
bran.t8=""


bran.f9=""
bran.f10=""
bran.f11=""
bran.f12=""
bran.f13=""
bran.f14=""
bran.t9=""
bran.t10=""
bran.t11=""
bran.t12=""
bran.t13=""
bran.t14=""

id1=0
id2=0
id3=0
lv0=""
lv1=""
lv2=""
}

function read.line()

{
if string.scan(buff,"%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s",
nam,r.path,bran.f1,bran.f2,bran.f3,bran.f4,bran.f5,bran.f6,bran.f7,bran.f8,bran.f9,bran.f10,bran.f11,bran.f12,bran.f13,bran.f14,
bran.t1,bran.t2,bran.t3,bran.t4,bran.t5,bran.t6,bran.t7,bran.t8,bran.t9,bran.t10,bran.t11,bran.t12,bran.t13,bran.t14) < 18 then
ebuf="strip$(buff)&"|Err:Incorrect format "
write.error()

else
r.path=shiftl$(r.path)


read.main.table2()

endif


}

function write.error()
{
if el = 0 then
el = seq.open( e.file,"w+")
endif
seq.puts(ebuf,el)
ebuf=""

}

function open.reports()
{
spool.fileout="\usr\bsp\mjreport\rep1.ps"
id1=brp.open("rtimjrc42311000","POSTSCRIPT",0)

spool.fileout="\usr\bsp\mjreport\rep2.ps"
id2=brp.open("rtimjrc42312000","POSTSCRIPT",0)

spool.fileout="\usr\bsp\mjreport\rep3.ps"
id3=brp.open("rtimjrc42313000","POSTSCRIPT",0)
}

function send.reports()
{
spool.fileout="\usr\bsp\mjreport\rep1.ps"
brp.ready(id1)

spool.fileout="\usr\bsp\mjreport\rep2.ps"
brp.ready(id2)
spool.fileout="\usr\bsp\mjreport\rep3.ps"
brp.ready(id3)
}


function close.reports()
{
brp.close(id1)
brp.close(id2)
brp.close(id3)
}

function move.reports()
{
flno=flno +1
|server2client("\usr\bsp\mjreport\rep1.ps","I:\PRISMREPORTNEW\TEMP_DIR\"&"rp1"&str$(flno)&".ps",0,0)

server2client("\usr\bsp\mjreport\rep1.ps","I:\PRISMREPORTNEW\"&strip$(shiftl$(r.path))&"1"&str$(year.f)&str$(prno.f)&".ps",0,0)
|convert.files(ps2pdf,"I:\PRISMREPORTNEW\"&strip$(shiftl$(r.path))&"1" ,flno,"1")

flno=flno +1
|server2client("\usr\bsp\mjreport\rep2.ps","I:\PRISMREPORTNEW\TEMP_DIR\"&"rp2"&str$(flno)&".ps",0,0)

server2client("\usr\bsp\mjreport\rep2.ps","I:\PRISMREPORTNEW\"&strip$(shiftl$(r.path))&"2"&str$(year.f)&str$(prno.f)&".ps",0,0)
|convert.files(ps2pdf,"I:\PRISMREPORTNEW\"&strip$(shiftl$(r.path))&"2" ,flno,"2")

flno=flno +1
|server2client("\usr\bsp\mjreport\rep3.ps","I:\PRISMREPORTNEW\TEMP_DIR\"&"rp3"&str$(flno)&".ps",0,0)

server2client("\usr\bsp\mjreport\rep3.ps","I:\PRISMREPORTNEW\"&strip$(shiftl$(r.path))&"3"&str$(year.f)&str$(prno.f)&".ps",0,0)
|convert.files(ps2pdf,"I:\PRISMREPORTNEW\"&strip$(shiftl$(r.path))&"3" ,flno,"3")

file.rm("\usr\bsp\mjreport\rep1.ps")
file.rm("\usr\bsp\mjreport\rep2.ps")
file.rm("\usr\bsp\mjreport\rep3.ps")

}


function convert.files( domain tcmcs.str40 pspd ,domain tcmcs.str40 rpth , domain tcmcs.long fl0,domain tcmcs.str1 fl)
{
long aid

if not isspace(pspd) then
aid = app_start( strip$(shiftl$(pspd))&" I:\PRISMREPORTNEW\TEMP_DIR\"&"rp"&fl&str$(fl0)&".ps "&rpth&str$(year.f)&str$(prno.f)&".pdf","","","","")
endif
}

It won't let me copy the form.

Last edited by marwest98 : 16th July 2008 at 17:29. Reason: Need help Quick
Reply With Quote
  #2  
Old 16th July 2008, 17:41
Hitesh Shah's Avatar
Hitesh Shah Hitesh Shah is offline
Guru
 
Join Date: Nov 2001
Location: Mumbai,India
Posts: 1,855
Hitesh Shah is on a distinguished road
Baan: triton,Baan IVc4 , ERP Ln - DB: Oracle/Bisam/SQL 2000/SQL 2005 - OS: Sun Solaris/Windows 2003
Extra \ appear only as an escape character while debugging . Actually it works only without an extra \ . We have never encountered problem like this in our windows installation.
Reply With Quote
  #3  
Old 16th July 2008, 19:02
marwest98 marwest98 is offline
Member
 
Join Date: Apr 2008
Posts: 61
marwest98 is on a distinguished road
Baan: 7.1d.02.153 - DB: Currently Oracle Sqlserver2005 soon - OS: currently Unix soon Windows
Unhappy SqlServer Windows conversion

It doesn't make any difference whether I am in debug mode or not. I still cannot get the file.
Reply With Quote
  #4  
Old 16th July 2008, 19:42
dkulikow dkulikow is offline
Member
 
Join Date: Sep 2001
Location: MI
Posts: 42
dkulikow is on a distinguished road
Filename issue...

Hello,

We went from Unix to Windows w/SQL database a couple of years ago and I'm not sure if this will help you out or not, but we had similar issues.

This is a path we used to have in Unix with our program: seq.path = "/usr/local/flexfab/data/Juarez/packlist/current/". Now it looks like this: seq.path = "e:\Baan\flexfab\data\Juarez\packlist\current\".

The "e:" drive is our Baan Application server drive.

Like I said, it may or may not be helpful. I hope it is and good luck to you.

Best regards...
Reply With Quote
  #5  
Old 16th July 2008, 19:52
marwest98 marwest98 is offline
Member
 
Join Date: Apr 2008
Posts: 61
marwest98 is on a distinguished road
Baan: 7.1d.02.153 - DB: Currently Oracle Sqlserver2005 soon - OS: currently Unix soon Windows
Does not seem to make any difference. Our Baan application server drive happens to be c:, I've tried the c: \\fwbaan - (server name) baan5c - server drive name and also using ${BSE}. It doesn't seem to make any difference.

I'm really not impressed with Baan. I've worked on a lot of different packages, and this one is a pain.
Reply With Quote
  #6  
Old 16th July 2008, 19:59
marwest98 marwest98 is offline
Member
 
Join Date: Apr 2008
Posts: 61
marwest98 is on a distinguished road
Baan: 7.1d.02.153 - DB: Currently Oracle Sqlserver2005 soon - OS: currently Unix soon Windows
Got It!!!!!!!!
Reply With Quote
Sponsored Links
  #7  
Old 17th July 2008, 11:09
wiggum's Avatar
wiggum wiggum is offline
Senior Member
 
Join Date: Jun 2003
Posts: 130
wiggum is on a distinguished road
You can always use slashes. It is not necessary to change backslash to slash as baan converts the path by itself for windows.
Reply With Quote
  #8  
Old 22nd July 2008, 18:45
marwest98 marwest98 is offline
Member
 
Join Date: Apr 2008
Posts: 61
marwest98 is on a distinguished road
Baan: 7.1d.02.153 - DB: Currently Oracle Sqlserver2005 soon - OS: currently Unix soon Windows
done with this closing
Reply With Quote
  #9  
Old 22nd July 2008, 21:27
mark_h's Avatar
mark_h mark_h is offline
Guru
 
Join Date: Sep 2001
Location: Kentucky, USA
Posts: 6,903
mark_h will become famous soon enough
Baan: Baan 4C4 A&D1 - DB: Oracle - OS: Sun Solaris
Glad you solved your problem, but we typically leave threads open so that in the future someone else with the same problem can ask additional questions.

Thanks
__________________
Mark

GO Cards!
My latest mantra - make sure you have latest stpapi patches and the latest session object. If on LN then please explore the option of using DAL2 functionality.

Shared Solutions for Baan systems provided free by Baan Board.
Play the Google game and help Baanboard get better rankings. Do your part. Click here to find how.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Problem In Installation - Baan Iv On Server 2003 And Sql 2005 vktonk Tools Administration & Installation 3 12th March 2008 02:29
Installing BaanIVc4 on Windows 2003 R2 + MSSQL 2000 in Cluster Aman67 Tools Administration & Installation 0 11th April 2006 06:11


All times are GMT +2. The time now is 04:09.


©2001-2017 - Baanboard.com - Baanforums.com