Using sys_shell() to open able2convert.
This is an application that converts PDF files to word,excel or powerpoint.
Works very well manually.
using the code below:-will not get the path (vpath)
and will not open specified document-It opens able2convert but makes the user to manually select the file
'-------- results from trace window -----------
Path =
Path2 = y:\alpha5v8\pritchard_purchase\pdf\
REQ Number = U12C-00016
vapplication = C:\Program Files\Investintech.com Inc\Able2Extract 5.0\Able2Extract.exe
vfile2open = U12C-00016-071108.pdf
vcombined = C:\Program Files\Investintech.com Inc\Able2Extract 5.0\Able2Extract.exe y:\alpha5v8\pritchard_purchase\pdf\U12C-00016-071108.pdf
'-------- results from trace window -----------
Any ideas on my code?
trace.clear()
dim global vreqnumber as C
dim global vfilename as C
dim global vpath as C
dim global vpath2 as C
dim global vfile2open as C
dim global vapplication as C
dim global vcombined as C
var->vapplication = ""
t5 = ""
var->vfile2open=""
var->vcombined=""
t5 = A5.GET_PATH()+ "\\"
t6 = "y:\alpha5v8\pritchard_purchase\pdf"+chr(92)
var_vpath = t5
var->vpath2 = t6
var->vapplication = "C:\Program Files\Investintech.com Inc\Able2Extract 5.0\Able2Extract.exe"
var->vreqnumber = aepmatreq_header->REQ_NUMBER
var->vfilename=trim(aepmatreq_header->REQ_NUMBER)+"-"+substr(DTOC(aepmatreq_header->Date),1,2)+substr(DTOC(aepmatreq_header->Date),4,2)+substr(DTOC(aepmatreq_header->Date),9,2)+".pdf"
var->vfile2open=trim(var->vfilename)
var->vcombined = var->vapplication +" "+ var->vpath2 + var->vfile2open
trace.WriteLn("Path = " + var->vpath)
trace.WriteLn("Path2 = " + var->vpath2)
trace.WriteLn("REQ Number = " + var->vreqnumber)
trace.WriteLn("vapplication = " + var->vapplication)
trace.WriteLn("vfile2open = " + var->vfile2open)
trace.WriteLn("vcombined = " + var->vcombined)
if var->vusername = "Charlie Crimmel" then
'able2extract
sys_shell(var->vcombined,1)
end if
if var->vusername <> "Charlie Crimmel" then
'able2extract
script_play("Under_development")
end if
This is an application that converts PDF files to word,excel or powerpoint.
Works very well manually.
using the code below:-will not get the path (vpath)
and will not open specified document-It opens able2convert but makes the user to manually select the file
'-------- results from trace window -----------
Path =
Path2 = y:\alpha5v8\pritchard_purchase\pdf\
REQ Number = U12C-00016
vapplication = C:\Program Files\Investintech.com Inc\Able2Extract 5.0\Able2Extract.exe
vfile2open = U12C-00016-071108.pdf
vcombined = C:\Program Files\Investintech.com Inc\Able2Extract 5.0\Able2Extract.exe y:\alpha5v8\pritchard_purchase\pdf\U12C-00016-071108.pdf
'-------- results from trace window -----------
Any ideas on my code?
trace.clear()
dim global vreqnumber as C
dim global vfilename as C
dim global vpath as C
dim global vpath2 as C
dim global vfile2open as C
dim global vapplication as C
dim global vcombined as C
var->vapplication = ""
t5 = ""
var->vfile2open=""
var->vcombined=""
t5 = A5.GET_PATH()+ "\\"
t6 = "y:\alpha5v8\pritchard_purchase\pdf"+chr(92)
var_vpath = t5
var->vpath2 = t6
var->vapplication = "C:\Program Files\Investintech.com Inc\Able2Extract 5.0\Able2Extract.exe"
var->vreqnumber = aepmatreq_header->REQ_NUMBER
var->vfilename=trim(aepmatreq_header->REQ_NUMBER)+"-"+substr(DTOC(aepmatreq_header->Date),1,2)+substr(DTOC(aepmatreq_header->Date),4,2)+substr(DTOC(aepmatreq_header->Date),9,2)+".pdf"
var->vfile2open=trim(var->vfilename)
var->vcombined = var->vapplication +" "+ var->vpath2 + var->vfile2open
trace.WriteLn("Path = " + var->vpath)
trace.WriteLn("Path2 = " + var->vpath2)
trace.WriteLn("REQ Number = " + var->vreqnumber)
trace.WriteLn("vapplication = " + var->vapplication)
trace.WriteLn("vfile2open = " + var->vfile2open)
trace.WriteLn("vcombined = " + var->vcombined)
if var->vusername = "Charlie Crimmel" then
'able2extract
sys_shell(var->vcombined,1)
end if
if var->vusername <> "Charlie Crimmel" then
'able2extract
script_play("Under_development")
end if
Comment