vhLib.Macro 1 APPS.VisiDot.Tech 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 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 999999 { Do ##class(TECH.Exceptions.InvalidInputException).Throw("BatchId '"_Batch_"' mag niet groter zijn dan 999999 (i.e. max 6 cijfers).") } If Product > 9999999 { Do ##class(TECH.Exceptions.InvalidInputException).Throw("ProductId '"_Product_"' mag niet groter zijn dan 9999999 (i.e. max 7 cijfers).") } #dim BatchVanMax5cijfers As %Integer = Batch #dim BatchHonderdduizendtal As %Integer = 0 If Batch > 99999 { Set BatchHonderdduizendtal = (Batch \ 100000) Set BatchVanMax5cijfers = (Batch # 100000) } 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 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