tbrault
24th June 2002, 11:56
I want to transfered PRP planned production orders (tipcs5250m000).
My program works fine : the orders are transfered, but, the report don't print.
Why, what is the probleme with my porgram.
This my program :
'------------------
'--> Nouveau parametre, déclaration---------------------------------------
'----> Declaration Session
Dim SessionLancement As String
Dim RapportImpression As String
Dim ErrMessage1 As String
'---> Declaration Champs
Dim ProjetKey1 As String
Dim ProjetKey2 As String
Dim SerieOrdreKey As String
Dim CodeImprimante As String
'----> Declaration variable
Dim Projet1Value As String
Dim Projet2Value As String
Dim SerieOrdreValue As String
'-------------------------------------------------------------------------
'--> Definition parametre-------------------------------------------------
'----> Definition Session
SessionLancement = "tipcs5250m000"
RapportImpression = "rtipcs525001000"
ErrMessage1 = Space(30)
'----> Definition champs
ProjetKey1 = "cprj.f"
ProjetKey2 = "cprj.t"
SerieOrdreKey = "order.series"
CodeImprimante = "D"
'----> Definition variable
ProjetValue = "600114"
SerieOrdreValue = PremNum
'--------------------------------------------------------------------------
Set baanobj = CreateObject("Baan4.Application")

baanobj.ParseExecFunction "ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionLancement & Chr(34) & "," & Chr(34) & ProjetKey1 & Chr(34) & "," & Chr(34) & ProjetValue & Chr(34) & ")"
baanobj.ParseExecFunction "ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionLancement & Chr(34) & "," & Chr(34) & ProjetKey2 & Chr(34) & "," & Chr(34) & ProjetValue & Chr(34) & ")"
baanobj.ParseExecFunction "ottstpapihand", "stpapi.put.field(" & Chr(34) & SessionLancement & Chr(34) & "," & Chr(34) & SerieOrdreKey & Chr(34) & "," & Chr(34) & SerieOrdreValue & Chr(34) & ")"
baanobj.ParseExecFunction "ottstpapihand", "stpapi.set.report(" & Chr(34) & SessionLancement & Chr(34) & "," & Chr(34) & RapportImpression & Chr(34) & "," & Chr(34) & CodeImprimante & Chr(34) & "," & Chr(34) & ErrMessage1 & Chr(34) & ")"
baanobj.ParseExecFunction "ottstpapihand", "stpapi.continue.process(" & Chr(34) & SessionLancement & Chr(34) & "," & Chr(34) & ErrMessage1 & Chr(34) & ")"
Help me please

Djie-En
24th June 2002, 12:19
Hi,

RapportImpression = "rtipcs525001000"
Should this be:
RapportImpression = "rtipcs5250010002" ???
(a "2" for the language)

GN

tbrault
24th June 2002, 12:23
No, the solution don't work more. In fact, with this solution, it don't find the report.

bh_vfp
24th June 2002, 12:56
Baan has a solution for this problem in the standard program.
Solution 10923.

tbrault
24th June 2002, 15:04
I have installed the patch, but that don't work : Have I to restart the server?

tbrault
25th June 2002, 09:12
Probleme : With the patch, all my visual basic program don't work (in find, it's the stapi.continue function that don't work).
And the report don't work too :mad:

bh_vfp
1st July 2002, 12:52
Hi,

I'm sorry for the caused problems.

I had the same problems, after installing sol. 158245, 158246 and 158752 it worked again.

Sol 158245 and 158246 are created to
solve several problems with BOI's and API functions.

Sol 158752 is for the printing problem in tipcs5250

I hope it will solve your problems.

bh

Al Smith
1st July 2002, 17:47
Hi,
The one thing I noticed is you're setting the report device to Display. i.e. the monitor.
Try setting the variable CodeImprimante = "ASCIF"
The report should show up in your user directory.
Al.