Running portfolio.exe for PORT.VB enquiry

Hi I am a beginner in T24,



I was asked to implement the portfolio.exe (i think this is independent part for portfolio valuation tool).



In order to have it running, a vbscript named VB.CALL.PORTFOLIO needs to be invoked via the Enquiry PORT.VB.By default, the vbscript looks like this:





dim FM

dim VM

dim TAB

dim BackSlash

dim strEnquiryName

dim strEnquiryLine

dim CurrentEnq

dim Pos

dim Pos2

dim Longueur

dim PfNo

dim PfProg

dim Tild

FM=CHR(254)

VM=CHR(253)

TAB=CHR(9)

Tild=CHR(126)

PfProg='C:Program FilesPortfolioPortfolio.exe'

Set obEnquiry = Desktop.GetCurrentWindow()

strEnquiryName = obEnquiry.WindowName

Set CurrentEnq = Desktop.GetEnquiry (strEnquiryName)

strEnquiryLine = CurrentEnq.GridLineClicked

Pos = InStr(strEnquiryLine, FM)

Pos2 = InStr(Pos+1,strEnquiryLine, FM)

Longueur = (Pos2) - (Pos + 1)

PfNo = Mid(strEnquiryLine, Pos + 1,Longueur) &'~'& Desktop.UserId

Desktop.Sexecute PfProg, PfNo





I am trying to run my enquiry but unfortunately, it seems like the script is not being run. Anybody who has experienced on this? Thanks a lot.


FONT size=1>

/FONT>

Hi, please try from command line SPT VB.CALL.PORTFOLIO and see if it works.

Only thing I see is

Set obEnquiry = Desktop.GetCurrentWindow()

I suugest change it to

Set obEnquiry = Desktop.GetCurrentWindow



Check in field 36 ENQUIRY.NAME of your enquiry shoud have

RUN SPT VB.CALL.PORTFOLIO



Third, insert a MSGBOX 'RUNNING' before Desktop.Sexecute...line just to test if it is running.