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
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