Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie Prod.Product,BL.Prod.OptiBox,BL.PPS.TBX.Common,BL.Sys.Toegang,BL.Sys.Proxy 1 %RegisteredObject 0 %Boolean %String \\tapi\c$\TFTPRoot\ \\tapi\c$\TFTPRoot\Archive GDS*.c* 192.168.17.200;NV\192.168.221.11;BV\;#UNDEF# D ##class(BL.Derde.TAPI.Logging).Scan() 1 1 Debug TelCentrale FilePath FilePath ",$P($P(..#TelCentrales,"\",I),";"),! . Set:FileName[$P($P(..#TelCentrales,"\",I),";") TelCentrale=$P($P(..#TelCentrales,"\",I),";",2) Quit TelCentrale ]]> Line oLog NV" Set oLog.ToestelNaam=Naam Set oLog.ToestelGroep=Groep ]]> oLog ",DoorschakelID,! . Set oLog.DoorschakelID=DoorschakelID &sql(CLOSE Doorschakel) ]]> FilePath FilePath 1 RouteCode \6;Uit->\8;Man->Ext\9;Aut->\0;Info\" Set Last=$E($Reverse(RouteCode)) Quit $P($P($$$Last,"\"_Last_";",2),"\") ]]> 1 CLIP %List D ##class(BL.Derde.TAPI.Logging).TranslateClip("037601900") 1 CLIP %List