14.2.6.1. Exemple 1

Il est également possible de faire référence à des fichiers externes via des fonctions. Cela se fait via des fichiers vbs.

[Remarque]Remarque

Pour cela, une licence spéciale (PSAPI) est nécessaire, à moins que le fichier ne soit encodé en tant que fichier .vbb (CNS2009*PSAPI*LANG*VBS).

Un cas d'application simple serait par exemple que pour la norme DIN 912, le nom du fichier CAO doit être formé différemment que pour les autres normes DIN et à nouveau différemment pour tous les autres projets.

  • Dans PARTlinkManager, l'appel de script suivant est inscrit sous "Outils > Configurer l'environnement ERP > Désignation de la norme ou Désignation de la norme (courte). NB =TSCRIPT('nb . ruletable ','$CALCED_ROW.','$NB.')

SHORTNB =TSCRIPT('nb.ruletable','$CALCED_ROW.','$SHORTNB.')

  • Le fichier " nb .vbs " doit se trouver sous " ...setup/scripts/common ".

function ruletable (table,calced_row,orgNB)

result=""

mmrow=cint(calced_row)

if mmrow >= 0 then

tmp=table.NN

nom de la norme=table.rows.item(mmrow).resolvevariables("$NB.",0)

'1.

if tmp="DIN 912" then

result="ISO4762"+"_"+table.rows.item(mmrow).resolvevariables("$NENN.$MATERIAL.",0)

Les variables NENN et MATERIAL sont précédées de la mention ISO4762.

end if

'2.

pos=Instr(1,désignation de la norme, "DIN")

if pos >= 1 then

result=tmp+table.rows.item(mmrow).resolvevariables("$NENN.$MATERIAL.",0)

'Toutes les autres normes DIN sont formées à partir de NN, NENN et MATERIAL.

end if

if result="" then

result=orgNB

' Tous les autres projets sont formés avec NB.

end if

end if

ruletable=résultat

end function

Des programmations importantes pourraient ainsi être externalisées.