cw 
 Quit
 
PRHIST
 Set (PRNr,Exit)="",Count=0
 For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do  Quit:$L(Exit)
 . Set HistNr=""
 . For  Set HistNr=$O(^PRHIST(PRNr,HistNr)) Quit:HistNr=""  Do  Quit:$L(Exit)
 . . Set R=^PRHIST(PRNr,HistNr)
 . . Quit:$P(R,D,4)'="I"  Quit:$P(R,D,2)<0  Quit:$P(R,D,7)<300000  Quit:$P(R,D,7)>399999
 . . Write !,PRNr,?10,HistNr,?20,$O(^PRHIST(PRNr,""),-1),!,R
 . . Set $P(R,D,4)="R"
 . . Write !,R
 . . Set Count=Count+1
 . . ;Read !,Exit
 Quit
 
 Set Q="cw"
 Set FirmaNaam=@("^"_Q_"BA(99,1)")
 Write !,"Q = ",Q,!,"Naam = ",FirmaNaam
 Quit
 
CheckMenuItem(BONNr)
 Quit '$L(##class(Flow.Cons.TransportBon).GetTransport(BONNr))
 
AddLevering(BONNr)
 Write @F11,@F1,!!,"Do ##class(BL.Flow.Cons.TransportFlow).AddLevering("_BONNr_")"
 Do ##class(BL.Flow.Cons.TransportFlow).AddLevering(BONNr)
 Quit
 
DeleteLevering(BONNr)
 Write @F11,@F1,!!,"Do ##class(BL.Flow.Cons.TransportFlow).DeleteLevering("_BONNr_")"
 Do ##class(BL.Flow.Cons.TransportFlow).DeleteLevering(BONNr)
 Quit
 
TransportCollie
 New Obj
 Write !!!!!!!!!!
 Do:0
 . Set Obj=##Class(Flow.Cons.TransportCollie).%New()
 . Set Obj.Transport=123
 . Set Obj.Adres=456789
 . Set Obj.CollieType="L"
 . Set Obj.CollieAantal=6
 . Set Obj.LengteLangGoed=5.9
 . Set Ok=Obj.%Save()
 . Write !,Ok,!
 . ZWrite ^TRANSP
 . Kill Obj
 . Set Ok=##Class(Flow.Cons.TransportCollie).%DeleteId("123||456789||L")
 . Write Ok
 Do:1
 . Set Obj=##Class(Flow.Cons.TransportBarCode).%New()
 . Set Obj.Transport=123
 . Set Obj.Adres=456789
 . Set Obj.CollieNummer=998877665544
 . Set Ok=Obj.%Save()
 . Write !,Ok,!
 . ZWrite ^TRANSP
 . Kill Obj
 . Set Ok=##Class(Flow.Cons.TransportBarCode).%DeleteId("123||456789||998877665544")
 . Write Ok
 Quit
 
TOE
 Set PRNr(1)="3549\1000\05/03"
 Set PRNr(2)="3549\2000\05/04"
 Set PRNr(3)="3549\3000\05/05"
 Set PRNr(4)="T\Dit is een tekstlijn"
 Do BUILDOBJ^FLOWTOE(.PRNr)
 Quit
 
TransportLink 
 New zb,Tp
 Set Tp(1)="O`Oude versie",Tp(2)="N`Nieuwe versie"
 Set Tp=$$WILD^vhPOPUP("C;C","-OB1","",.Tp,"N")
 Do:zb'="CANC"
 . Do:Tp="O" VERWERK^TRANSP($P(^HULP(%J,"D",@DL(1)@(6)),D))
 . Do:Tp="N" ##Class(BL.Flow.Cons.TransportFlow).AddLevering($P(^HULP(%J,"D",@DL(1)@(6)),D))
 Quit
 
 ; Test bulkfacturatie
BF
 Do ##class(BL.Flow.Facturatie.BulkFacturatie).Facturatie()
 Quit
 
ALL
 New BONNr,BONNrs,KLNr
 Set BONNr=""
 For  Set BONNr=$O(^KU1(BONNr)) Quit:BONNr=""  Do
 . Set KLNr=$P(^KU1(BONNr,"F"),D)
 . Quit:'$D(^KUL(KLNr,"F",BONNr))
 . Set BONNrs(BONNr)=""
 Do SERIE(.BONNrs)
 Quit
 
KLANT
 New BONNr,BONNrs,KLNr
 Write @F11,@F1
 Set KLNr=$$SELECT^KLANT6()
 Do:KLNr
 . Set BONNr=""
 . For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Set BONNrs(BONNr)=""
 . Do SERIE(.BONNrs)
 Quit
 
INIT
 New I
 Set UKIL="",US="F",UD=5
 Set UOU=^KUL(0,US,"UOU")
 Set BS="\\\\\\\\\\\\\\\\\\\\\\\\\\"
 For I=0:1:9 Do
 . Set:$D(^KBA(18,I)) PBTW(I)=$P(^KBA(18,I),D)
 . Set:$D(^KBA(18,I+10)) PTXT(I)=$P(^KBA(18,I+10),D)
 . Set:$D(^KBA(18,I+20)) PEGA(I)=$P(^KBA(18,I+20),D)
 Quit
 
SERIE(BONNrs)
 New R,KLNr,KlKey,KC,KCF,UTF,BH,BJ,BM,BP,BPZ,BX,BONNr,BonType,NulFakt,VM,UNBP,UKIL,US,UOU,UEB,UPKK,UD
 Set BONNr=""
 For  Set BONNr=$O(BONNrs(BONNr)) Quit:'BONNr  Do
 . Kill BONNrs(BONNr)
 . Set KLNr=$P($G(^KU1(BONNr,"F")),D)
 . Set:KLNr BONNrs("K",KLNr,BONNr)=""
 Do CUMUL(.BONNrs)
 Do:$D(BONNrs("C"))
 . Do FDAT^KF27
 . Quit:'$D(FDT)
 . Do INIT
 . Set KlKey=""
 . For  Set KlKey=$O(BONNrs("C",KlKey)) Quit:KlKey=""  Do
 . . Set (KLNr,KC)=$P(KlKey," ",2)
 . . For CumulNr=1:1 Quit:'$D(BONNrs("C",KlKey,CumulNr))  Do
 . . . Kill UTF
 . . . Merge UTF=BONNrs("C",KlKey,CumulNr)
 . . . Set UPKK=BONNrs("C",KlKey,CumulNr)
 . . . Set BONNr=$O(UTF("")),R=^KUL(KLNr,"F",BONNr,1),KCF=$P(R,D,6),UEB=$P(R,D,14)
 . . . Set VM=$P(R,D,18),BonType=$P(R,D,25),UNBP=$P(R,D,27)
 . . . Do PARIT^KF20,CHKREMB^KF20(KC,.UTF)
 . . . If BonType="M" Do  ; Facturatie monsters
 . . . . Set NulFakt=1
 . . . . Do ^KF21P
 . . . . Set @%Q1=1
 . . . . Do CHKEDIFAX^KF20(KC,"V",FNR)
 . . . Else  If BonType="P" Do  ; Facturatie proforma's
 . . . . Kill NulFakt
 . . . . Do ^KF21P
 . . . . Set @%Q1=1
 . . . . Do CHKEDIFAX^KF20(KC,"V",FNR)
 . . . Else  Do
 . . . . Set @%Q1=0
 . . . . Set:'$D(^KBA(BJ,"VFNR")) ^KBA(BJ,"VFNR")=BJ#100_"0001\1"
 . . . . Set R="FNR\V\\"_BJ
 . . . . Do ^cA337
 . . . . Quit:'FNR
 . . . . Do RecuPak^KF20(FNR,.UTF,FDT),CHKREMB^KF20(KC,.UTF),KLACHT^KF20(KC,"F",FNR,.UTF),^KF21
 . . . . Set @%Q1=1
 . . . . Do CHKEDIFAX^KF20(KC,"F",FNR)
 Quit
 
CUMUL(BONNrs,KLNr)
 New R,CumulNr,BONNr,RefBONNr,KlKey,Paletten,Collo,Kartons
 If $G(KLNr)  Do
 . Set KlKey=^KK1(KLNr),CumulNr=1,RefBONNr=$O(BONNrs("K",KLNr,"")),BONNr=""
 . For  Set BONNr=$O(BONNrs("K",KLNr,BONNr)) Do  Quit:'RefBONNr
 . . If BONNr="" Set CumulNr=CumulNr+1,RefBONNr=$O(BONNrs("K",KLNr,"")) Quit
 . . Quit:'$$CHKCUMUL(RefBONNr,BONNr)
 . . Set R=^KUL(KLNr,"F",BONNr,1)
 . . Set Paletten=$P($P(R,D,24),"#"),Collo=$P($P(R,D,24),"#",2),Kartons=$P($P(R,D,24),"#",3)
 . . Set $P(BONNrs("C",KlKey,CumulNr),"#")=$P($G(BONNrs("C",KlKey,CumulNr)),"#")+Paletten
 . . Set $P(BONNrs("C",KlKey,CumulNr),"#",2)=$P($G(BONNrs("C",KlKey,CumulNr)),"#",2)+Collo
 . . Set $P(BONNrs("C",KlKey,CumulNr),"#",3)=$P($G(BONNrs("C",KlKey,CumulNr)),"#",3)+Kartons
 . . Set BONNrs("C",KlKey,CumulNr,BONNr)=""
 . . Kill BONNrs("K",KLNr,BONNr)
 Else  Do
 . Set KLNr=""
 . For  Set KLNr=$O(BONNrs("K",KLNr)) Quit:KLNr=""  Do CUMUL(.BONNrs,KLNr)
 Quit
 
CHKCUMUL(RefBONNr,BONNr)
 New CumulOk,KLNr,RefKLNr,Rec,RefRec
 Set CumulOk=1
 Do:BONNr'=RefBONNr
 . Set KLNr=$P($G(^KU1(BONNr,"F")),D)
 . Set RefKLNr=$P($G(^KU1(RefBONNr,"F")),D)
 . Set CumulOk=KLNr=RefKLNr
 . Quit:'CumulOk  ; Klantnummer verschillend
 . Set CumulOk=$P(^KKL(^KK1(KLNr),1),D,18)'>1
 . Quit:'CumulOk  ; Klant vraagt een order/bon/factuur
 . Set Rec=$G(^KUL(KLNr,"F",BONNr,2)),RefRec=$G(^KUL(RefKLNr,"F",RefBONNr,2))
 . Set CumulOk=$TR($P(Rec,D,1,8),D,"")=$TR($P(RefRec,D,1,8),D,"")
 . Quit:'CumulOk  ; Facturatieadres verschillend
 . Set Rec=^KUL(KLNr,"F",BONNr,1),RefRec=^KUL(RefKLNr,"F",RefBONNr,1)
 . Set CumulOk=$P(Rec,D,6)=$P(RefRec,D,6)
 . Quit:'CumulOk  ; Facturatieadres verschillend
 . Set CumulOk=$P(Rec,D,14)=$P(RefRec,D,14)
 . Quit:'CumulOk  ; Exportcode verschillend
 . Set CumulOk=$P(Rec,D,18)=$P(RefRec,D,18)
 . Quit:'CumulOk  ; Facturatiemunt verschillend
 . Set CumulOk=$P(Rec,D,39)=$P(RefRec,D,39)
 . Quit:'CumulOk  ; Rembourscode verschillend
 . If $P(Rec,D,25)="M" Set CumulOk=$P(Rec,D,25)=$P(RefRec,D,25)
 . Quit:'CumulOk  ; Monsters moeten appart
 . If $P(Rec,D,25)="P" Set CumulOk=$P(Rec,D,25)=$P(RefRec,D,25)
 . Quit:'CumulOk  ; Proforma's moeten appart
 . Set CumulOk=$P(Rec,D,27)=$P(RefRec,D,27)
 . Quit:'CumulOk  ; Netto/bruto prijzen verschillend
 . If $P(Rec,D,25)="M" Set CumulOk=$P(Rec,D,29)=$P(RefRec,D,29)
 . Quit:'CumulOk  ; Monster met factuur verschillend
 . If $P(Rec,D,25)="P" Set CumulOk=$P(Rec,D,29)=$P(RefRec,D,29)
 . Quit:'CumulOk  ; Proforma met factuur verschillend
 . Set Rec=$G(^KUL(KLNr,"F",BONNr,3)),RefRec=$G(^KUL(RefKLNr,"F",RefBONNr,3))
 . Set CumulOk=$TR($P(Rec,D,1,8),D,"")=$TR($P(RefRec,D,1,8),D,"")
 . Quit:'CumulOk  ; Leveringsadres verschillend
 . Set CumulOk=$$ISORGAL^FLOWCHK("L",BONNr)=$$ISORGAL^FLOWCHK("L",RefBONNr)
 . Quit:'CumulOk  ; Orgalux moet appart
 . Set CumulOk=$$DEURBON^KF20("L",BONNr)=$$DEURBON^KF20("L",RefBONNr)
 . Quit:'CumulOk  ; Deuren moeten appart
 Quit CumulOk