#include BL.Derde.LevSpecifiek
 
TEST
 s boot="CACHE02"
 s job="" f  s job=$o(^cPRINT(boot,job)) q:job=""  do
 . s vnr="" for  set vnr=$o(^cPRINT(boot,job,vnr)) q:vnr=""  do
 . . s x0=^cPRINT(boot,job,vnr,0),typ=$p(x0,"\",2)
 . . i x0["FOP" w job," ",vnr," ",x0,!
 q
 
TEST1
 s D="\",knr=1000 f  s knr=$o(^KOD(knr)) q:knr=""  d
 .q:'$d(^KOD(knr,"F"))
 .s aantal=$$AANTALORDERS^RPLKL(knr)
 .i +aantal d
 ..s index=^KK1(knr)
 ..s naam=$p($g(^KKL(index,0)),D,2)
 ..w knr," ",$j(aantal,2)," ",naam,!
 q
 
TEST2
 s knr=1000 f  s knr=$o(^KLE(knr)) q:knr=""  d
 .s x=^KLE(knr,1),typ=$p(x,"\",19)
 .i typ'="" w knr," ",typ,!
 q
 
TEST3
 s aant=0,x="" f  s x=$o(^TRANSP("D",x),-1) q:x=""!(aant>100)  d
 . s aant=aant+1
 . s xx=^TRANSP("D",x),tim1=$p(xx,"\",8),tim2=$p(xx,"\",11),tim3=$p(xx,"\",12)
 . i $d(^TRANSP("IO",x)),(tim1=""),(tim2=""),(tim3="") Do
 . . write x," niet afgesloten",!
 . ;w x," ",tim1," ",tim2," ",tim3," ",$d(^TRANSP("IO",x)),!
 q
 
TEST4
 s x="" f  s x=$o(^KK1(x)) q:x=""  d
 . s index=$g(^KK1(x)) q:index=""
 . s taal=$p($g(^KKL(index,0)),"\",9) q:taal="N"
 . i $o(^KUL(x,"G",""))'="" d
 . . w taal," ",x," ",index,!
 . . s aant=0,y="" f   s y=$o(^KUL(x,"G",y)) q:y=""!(aant=2)  d
 . . . i $d(^KUL(x,"G",y,103)) w x," ",y," ",^KUL(x,"G",y,103),! s aant=aant+1
 q
 
TEST5
 Set PRNr=1000
 For  Set PRNr=$O(^PRSTOCK("D",PRNr)) Quit:PRNr=""  Do
 . Set RES=$Piece(^(PRNr),"\",2)
 . If RES'="" W PRNr," ",RES,!
 Q
 
TEST6
 Set PRNr=6947
 K Lst
 Set Zone=$Piece($G(^KPR(PRNr,15)),"\",12)
 Set PR1=""  For  Set PR1=$O(^PRBS("IP",PRNr,PR1)) Quit:PR1=""  Do
 . Set GenTyp=$$GENTYP^HAD(PR1)
 . w PR1," ",GenTyp,!
 . If GenTyp["TBX" Set Lst("V1")=""
 . If GenTyp["PR+" Set Lst("Keller")="" r test
 . If GenTyp["HKS" Set Lst("Hoekkast")="" r test
 zw Lst
 Q 
    
TEST7
 s x="" f  s x=$o(^HADPR("O",x)) q:x=""  d
 .s y="" f  s y=$o(^HADPR("O",x,y)) q:y=""  d
 ..s xx=^(y),node=$p(xx,"\"),KLNr=$p(xx,"\",2),art=$p(xx,"\",3),ORDNr=$p(xx,"\",4),LIJN=$p(xx,"\",5),TOENr=$p(xx,"\",6),typ=$$GENTYP^HAD(art)
 ..i typ["KAD",(typ'["KAD\MDS") w $j(x,3),$j(y,4),$j(art,10),$j(typ,20)," ",xx,!
 ..
 q
 
TEST8 
 q:$zu(5)'="DEV-ADMIN1"
 k ^Derde.Kennis.KennisD
 k ^Derde.Kennis.Kennis.Log
 k ^Derde.Kennis.Kennis.Mark
 m ^Derde.Kennis.KennisD=^["JRNL-ADMIN1"]Derde.Kennis.KennisD
 m ^Derde.Kennis.Kennis.Log=^["JRNL-ADMIN1"]Derde.Kennis.Kennis.Log
 m ^Derde.Kennis.Kennis.Mark=^["JRNL-ADMIN1"]Derde.Kennis.Kennis.Mark
 q
 
TEST9(FileName)
 ;Set Dev=$$OPEN^vhDEV(,FileName,"W","T") Use Dev
 Set fil="\\notes01\shared\p v e\transport.csv" o fil:"wns" u fil
 w "KLNr;KlantNaam;Gemeente;Land;TransportNummer;BONNR;LevDatum;Gewicht;#colli;#pallets;#langgoed;#Omzet",!
 Set %J=$$%J^vhRtn1()
 Set VervRef=""
 For  Set VervRef=$O(^TRANSP("D",VervRef)) Quit:VervRef=""  Do
 . Set xTransp=^TRANSP("D",VervRef)
 . Set TranspNr=$Piece(xTransp,"\") Quit:TranspNr'=$$$LevGLS  ;alleen GLS
 . Set LevDatum=$Piece(xTransp,"\",12)
 . Set GroepNr=""
 . For  Set GroepNr=$O(^TRANSP("D",VervRef,"D",GroepNr)) Quit:GroepNr=""  Do
 . . Set xGroep=^TRANSP("D",VervRef,"D",GroepNr)
 . . Set KLNr=$Piece(xGroep,"\"),Gewicht=$Piece(xGroep,"\",3)+$Piece(xGroep,"\",5)
 . . Set KLIndex=$Piece($G(^KK1(KLNr)),"\") Quit:KLIndex=""
 . . Set xAdres=^KKL(KLIndex,0)
 . . Set KlantNaam=$Piece(xAdres,"\",2)
 . . Set Gemeente=$Piece(xAdres,"\",7)
 . . Set Land=$Piece(xAdres,"\",8)
 . . Set LandCode=$S(Land=1019:"BE",Land="1147":"NL",1:"")
 . . Set BONNr="",BonLijst="",Omzet=0
 . . For  Set BONNr=$O(^TRANSP("D",VervRef,"D",GroepNr,"B",BONNr)) Quit:BONNr=""  Do
 . . . Set FacSoort=$$NODE^FLOWBON(BONNr)
 . . . Set KLNr=$Piece($G(^KU1(BONNr,"F")),"\") Quit:KLNr=""  Quit:'$D(^KUL(KLNr,FacSoort,BONNr))
 . . . Set BonLijst=BonLijst_BONNr_","
 . . . Set Omzet=Omzet+$$CALCBON^FLOWBON5(BONNr)
 . . Set BonLijst=$E(BonLijst,1,$L(BonLijst)-1)  ; laatste komma wegdoen
 . . Set AantColli=$Piece($G(^TRANSP("D",VervRef,"D",GroepNr,"Q","C")),"\")
 . . Set AantPallets=$Piece($G(^TRANSP("D",VervRef,"D",GroepNr,"Q","P")),"\")+$Piece($G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E")),"\")
 . . Set AantLanggoed=$Piece($G(^TRANSP("D",VervRef,"D",GroepNr,"Q","L")),"\")
 . . quit:'+Gewicht&'+Omzet
 . . W KLNr,";",KlantNaam,";",Gemeente,";",LandCode,";",VervRef,";'",BonLijst,";",$$EXTDATE^vhDTyp(LevDatum,"DK"),";",$TR(Gewicht,".",","),";",AantColli,";",AantPallets,";",AantLanggoed,";",$Tr(Omzet,".",","),!
 ; Do CLOSE^vhDEV(FileName)
 c fil
 w "export OK",!
 Quit
 
TEST10
 s x="" f  s x=$o(^ORDW("D",x)) q:x=""  d
 . s y="" f  s y=$o(^ORDW("D",x,"D",y)) q:y=""  d
 . . s ln="" f  s ln=$o(^ORDW("D",x,"D",y,ln)) q:ln=""  d
 . . . s subln=$o(^ORDW("D",x,"D",y,ln,""),-1)
 . . . i subln>100 w x," ",y," ",ln," ",subln," ",$p(^ORDW("D",x,"D",y,ln),"\"),!
 Q
 
TEST11
 s x=100000 f  s x=$o(^KPR(x)) q:x=""  d
 . s typ=$P(^KPR(x,0),"\",23)
 . quit:"\K\H\V\"[("\"_typ_"\")
 . s z="",ok=0
 . f  s z=$o(^PRBS("BS",x,z)) quit:z=""!ok  d
 . . i $piece(^PRBS("BS",x,z),"\",3)="K" s ok=1
 . i ok w x,!
 q
 
TEST12
 set fil="\\notes01\shared\p v e\layout.csv" o fil:"wns" u fil
 w "Lijn;naam;lengte;type;begin;einde",!
 Set x="" f  s x=$o(^ATK("EDI","I",x)) q:x=""  d
 . w x,";;;;",1,";",2,!
 . s begin=3
 . s y="" f  s y=$o(^ATK("EDI","I",x,y)) q:y=""  d
 . . s xx=^ATK("EDI","I",x,y)
 . . s naam=$piece(xx,"\")
 . . s len=$piece(xx,"\",2)
 . . s type=$piece(xx,"\",3)
 . . s einde=begin-1+$j(len,0,0)
 . . w ";",naam,";",len,";",type,";",begin,";",einde,!
 . . s begin=begin+$j(len,0,0)
 . w !
 c fil
 w "gedaan!",!
 q
 
TEST13
 s bl=##class(BL.MB.UGLYPicking.Aventosbak.Aventosbak).%New()
 s x="" f  s x=$o(^ORDW("D",x)) q:x=""  d
 . q:'bl.OrdHasAventos(x)
 . s y="" f  s y=$o(^ORDW("D",x,"D",y)) q:y=""  d
 . . s z="" f  s z=$o(^ORDW("D",x,"D",y,z)) q:z=""  d
 . . . s pr=$p(^(z),"\")
 . . . s cod="" f  s cod=$o(^PRBS("BS",pr,cod)) q:cod=""  d
 . . . . s xx=^(cod),pr1=$p(xx,"\")
 . . . . s pr2=$$SingleKind^EWORDS2(pr1)
 . . . . i pr2'=pr1 w x," ",y," ",z," ",pr1," ",pr2,!
 . . . . s lst(pr2)=pr1
 q
 
TEST14
 DO $System.Event.Signal(10)