powered by CADENAS

Manual

Manual

5.20.5.6.4. NB mittels vbs-Scripting ändern

Sollten die Möglichkeiten mittels Editieren der Projekttabelle nicht ausreichen, nutzen Sie die Einbindung externer vbs-Skripte.

Die Einträge erfolgen unter Normbezeichnung, Normbezeichnung (kurz) oder Stücklistenbezeichnung.

Das Skript heißt hier im Beispiel "nb.vbs" und liegt unter …/setup/scripts/common.

Die aufgerufene Funktion heißt hier im Beispiel "ruletable".

function ruletable(table,calced_row,orgNB)
  result=""
  mmrow=cint(calced_row)
  if mmrow >= 0 then
     tmp=table.NN
     normbezeichnung=table.rows.item(mmrow).resolvevariables("$NB.",0)

'0.************************************************
    pos=Instr(1,normbezeichnung,"DIN")
    if pos = 1 then
       result=tmp+"_"+table.rows.item(mmrow).resolvevariables("$NENN.$MAT_NAME.",0)
    end if

'1.************************************************
    if tmp="DIN 912" then
       result="ISO4762abcd"+"_"+table.rows.item(mmrow).resolvevariables
       ("$NENN.$MAT_NAME.",0)
    end if

'2.************************************************
    if tmp="DIN 2448" then
       result="DIN 2448"+"_"+table.rows.item(mmrow).resolvevariables
       ("$D._$S._$L.___$MAT_NAME.",0)
    end if

'3.************************************************
    if tmp="DIN 2576" then
       result=tmp+"_"+table.rows.item(mmrow).resolvevariables
       ("$NENN._$D1.$MAT_NAME.",0)
    end if

'4.************************************************
    pos=Instr(1,normbezeichnung,"FAG")
    if pos >= 1 then
       result=table.rows.item(mmrow).resolvevariables("$NB.",0)
    end if

'5.************************************************
    pos=Instr(1,normbezeichnung,"EO EL L-Verschraubung mit Dichtkegel")
    if pos >= 1 then
       result=table.rows.item(mmrow).resolvevariables("$ERP_PDM_NUMBER.",0)+
       "-EL"+table.rows.item(mmrow).resolvevariables("$ROHR.$S.",0)
    end if

'6.************************************************
       if tmp="DIN 7993-B 2" then
       result=table.rows.item(mmrow).resolvevariables("$ERP_PDM_NUMBER.",0)+
       "-A"+table.rows.item(mmrow).resolvevariables("$D1.",0)+"---DIN7993"
    end if

' *************************************************

    if result="" then
      result=orgNB
    end if

  end if
  ruletable=result
end function
[Hinweis] Hinweis

Für selbst erstellte vbs-Dateien ist eine spezielle Lizenz erforderlich.

Sie können das Skript nb.vbs nur benützen, wenn Sie im PARTadmin in der Konfigurations Datei plinkcommon.cfg im Block Common den Schlüssel NBMODULE einfügen und diesen auf den Wert nb setzen.