zbcheck ; Controle bestanden Flow, Prod,...
 ;
 Kill
 Do LOW^%PRIO 
 Do CHECK
 Do HIGH^%PRIO
 Quit
 ;
CHECK()
 New
 New AlleControlesGeslaagd
 Set CheckWn=$$CHECK^ZBCHKWN()           ; *** W-Node - Produkten ***  /  *** W-Node - Orders ***  /  *** W-Node - Toeleveringen ***
 Set CheckFlo=$$CHECK^ZBCHKFLO()         ; *** Flow - Orders ***  /  *** Flow - Toeleveringen ***  /  *** Flow - Uitleveringen ***  /  *** Flow - Offertes ***
 Set CheckOrd=$$CHECK^FLOWORD3()         ; *** WMS ord *** 
 Set CheckBon=$$CHECK^FLOWBON3("B")      ; *** WMS ord ***  (deel 2) ???
 Set CheckToe=$$CHECK^FLOWTOE3()         ; *** WMS toe ***
 Set CheckKup=$$CHECK^FLOWBON3("P")      ; *** ^KUP ***
 ;Set CheckRcp=$$CHECK^ZBCHKRCP()         ; *** WMS rcp *** Niet meer van toepassing OBJT
 Set CheckDUO=$$CHECK^ZBCHKFLO("O")      ; *** Dubbels orders ***
 Set CheckDUB=$$CHECK^ZBCHKFLO("B")      ; *** Dubbels leveringsbons ***
 Set CheckFAKT=1 ;$$CHECK^ZBCHKFLO("F")     ; *** Facturen ***
 Set CheckPROF=1 ;$$CHECK^ZBCHKFLO("V")     ; *** Proformas ***
 Set CheckPR=$$CHECK^ZBCHKPR()           ; *** Productbestanden ***
 
 Write !!,"*** Vhoss Op Meerdere Locaties ***",!
 #dim CheckVhossOpMeerdereLocaties As %Boolean = ##class(APPS.VisiDot.impl.VHossService).%New().CheckVhossOpMeerdereLocaties()
 
 #dim AlleControlesGeslaagd As %Boolean = (CheckWn && CheckFlo && CheckOrd && CheckBon && CheckToe && CheckKup && $Get(CheckRcp,1) && CheckDUO && CheckDUB && CheckFAKT  && CheckPROF && CheckPR && CheckVhossOpMeerdereLocaties)
 Quit AlleControlesGeslaagd
 ;
wKLANT 
 If $L(Klant) Do
 .New R
 .Set Klant=" "_Klant_" "
 .Set R=$TR($J("",72-$L(Klant)\2)," ","*")_Klant
 .Set R=R_$TR($J("",72-$L(R))," ","*")
 .Write !!,"    ",R
 .Set Klant=""
 Quit
 ;
wLEVERANCIER 
 If $L(Leverancier) Do
 .New R
 .Set Leverancier=" "_Leverancier_" "
 .Set R=$TR($J("",72-$L(Leverancier)\2)," ","*")_Leverancier
 .Set R=R_$TR($J("",72-$L(R))," ","*")
 .Write !!,"    ",R
 .Set Leverancier=""
 Quit
 ;
wKORTTXT 
 If $L(KortTxt) Do
 .New R
 .Set KortTxt=" "_KortTxt_" "
 .Set R=$TR($J("",72-$L(KortTxt)\2)," ","*")_KortTxt
 .Set R=R_$TR($J("",72-$L(R))," ","*")
 .Write !!,"    ",R
 .Set KortTxt=""
 Quit
 ;