vhLib.Macro 1 APPS.VisiDot.Tech %Numeric 999999 %Numeric 9999999 %Numeric 100000 1 List:%ListOfObjects,Sleutel:%String 1 List:%ListOfObjects,Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0 1 SlotNr:%Integer %Integer 1 SlotNr:%Integer %Integer 1 ID:%String %Boolean 1 ID:%String %Boolean 1 ID:%String %Boolean 1 Val:%String,Len:%Integer 1 Len Val=$E(Val,$L(Val)-Len,$L(Val)) Quit Val ]]> 1 Batch:%Integer,VHossSeqNr:%List,VHossZijkant:APPS.VisiDot.enu.Zijkant,Product:%Integer %String ..#MaximumBatchId { Do ##class(TECH.Exceptions.InvalidInputException).Throw("BatchId '"_Batch_"' mag niet groter zijn dan 999999 (i.e. max 6 cijfers).") } If Product > ..#MaximumProductId { Do ##class(TECH.Exceptions.InvalidInputException).Throw("ProductId '"_Product_"' mag niet groter zijn dan 9999999 (i.e. max 7 cijfers).") } // Als BatchId de 100000 overschrijdt, dan het Honderdduizendtal afsplitsen, en op positie 9 van de LadeID invoegen. // Dit om backward compatibel te blijven met de huidige LadeIDs. #dim BatchVanMax5cijfers As %Integer = (Batch # ..#Honderdduizend) #dim BatchHonderdduizendtal As %Integer = (Batch \ ..#Honderdduizend) Quit ..Justify(BatchVanMax5cijfers,5)_..Justify(VHossSeqNr,2)_..Justify(VHossZijkant,1)_..Justify(BatchHonderdduizendtal,1)_..Justify(Product,7) ]]> 1 VHossNr:%Integer,Zijkant:APPS.VisiDot.enu.Zijkant %String 1 VHossID:%String %String 1 LadeID:%String %Integer 1 LadeID:%String 1 %Integer 1 LadeID:%String %Integer 1 LadeID:%String %Integer 1 LadeID:%String %Integer JBL - hulp method om visueel overzicht op te vragen Set Dir = "E:\Svn\CACHE\CacheAdminAUnitTests\APPS.VisiDot\Stage2_NormalRead_AllOk\" Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml" Set CaptureInfo = ..Import(Dir, File) d ##class(APPS.VisiDot.impl.Tech).ShowVHoss(CaptureInfo) 1 CaptureInfo:APPS.VisiDot.dto.CaptureInfo,ToonVolledigeBarcode:%Boolean=0 1 Titel:%String,Inhoud:%String