
|
Support
 |
|
 |
|
 |
|
 |
|
Pages: 1
|
 |
|
Author
|
Topic: Problem on a control Tag (Read 1033 times)
|
« Posted: May 28, 2009, 06:30:56 pm »
|
|
Hi,
I've a problem on a refresh of a control tag. I've a vbscript which is execute on a table modifier, I ve already a superfield for my companies which is execute before the table modifier. This superfield has a control tag ({TagBddNom{FilterKey1sF_Societe}}) is run well but when I change the FilterKey of my table modifier the vbscript isn't execute a second time. What can I do to refresh all the time this script?
Regards,
/*VBSCRIPT*/
'oAlchemyControlTags.ConnectionPoolIndexSet 0,False
Dim adoCon Dim rsFields
set adoCon = oConnection.ConnectionObject(CInt(ProductConIndex)) set rsFields = adoCon.Execute("SELECT E1.code AS AxeCode, E2.numero AS Numero, E3.code AS PlanCode, E3.Caption AS PlanLibelle FROM {TagBddNom{FilterKey1sF_Societe}}.TESPACEANALYTIQUE E1 LEFT OUTER JOIN {TagBddNom{FilterKey1sF_Societe}}.TCONSTITUTIONESPACE E2 ON E2.oidEspaceAnalytique = E1.oid LEFT OUTER JOIN {TagBddNom{FilterKey1sF_Societe}}.TDIMENSIONANALYTIQUE E3 ON E3.oid = E2.oidDimensionAnalytique WHERE E1.code = '{FilterKey1tM_Axe}' ")
Do Until rsFields.EOF If not isnull(rsFields.Fields("PlanCode").Value) THEN oAlchemyControlTags.Add "{FilterKey1sF_Societe}Axe{FilterKey1tM_Axe}CodePlan" + Cstr(rsFields.Fields("numero").Value), rsFields.Fields("PlanCode").Value If not isnull(rsFields.Fields("PlanLibelle").Value) THEN oAlchemyControlTags.Add "{FilterKey1sF_Societe}Axe{FilterKey1tM_Axe}LibellePlan" + Cstr(rsFields.Fields("numero").Value), rsFields.Fields("PlanLibelle").Value rsFields.MoveNext Loop
GO
|
|
|
|
|
Logged
|
|
|
|
Pages: 1
|
|
|
|
|
|
 |
|
 |
|
|

|

|
 Live Help | 
|