BLKALL1 G BEGIN ;Afdrukken van de verwerkte KAL lijst [ 01/03/2000  1:37 PM ]
 
BEGIN ; 
Init If '$D(Q) Set Q="K" Do ^cA604
 Set FP=101 Write @F,@F1
 Set %J=$$%J^vhRtn1()
 Set FBon=$P($T(T1),"@",2),FLijn=$P($T(T2),"@",2)_$P($T(T22),"@",2)
 Set List(1)="^HULP("_%J_",""L"""
 Set List(2)=$P($T(T2),"@",2)_$P($T(T22),"@",2)
 Set List(2,1)=""""_$P($T(T6^BLKALL1),"@",2)_""";C;L"
 Set List(2,2)=$P($T(T1),"@",2)
 Set List(2,3)=";C;L"
 Set List(2,4)=""""_$P($T(T8^BLKALL1),"@",2)_""";C;L"
 Set List(2,5)=""""_$P($T(T9^BLKALL1),"@",2)_""";C;L"
 Set List(2,6)=""""_$P($T(T7^BLKALL1),"@",2)_""";C;L"
 Set List(5)=132
 Set List(10)="CB^BLKALL1"
 Set List(11)="KAL Vergelijk"
 Set LijnPr=0
 Set (SBon,SLijn)=0,ChangMd="V"
 Do ^BLKALS ; Geeft LevNr en SoDo terug
 Quit:'LevNr
 Set R=$$KEY^vhINP("Ganse lijst of alleen de veranderingen : ","'A' voor ganse, [] voor veranderingen","","","","U","","A*")
 Set R=$S(R="":"V",R="G":"A",1:R)
 If '$F("AV",R) Write *7 Goto Init
 Set ChangMd=R
 Set:ChangMd="A" $P(List(11),D,2)="Geen beperkingen"
 Set:ChangMd="V" $P(List(11),D,2)="Alleen verschillen"
 Kill ^HULP(%J)
 Do BFill
 Do PRINT^OUTPUT(.List,"B")
 Quit
CB(Ref) If Ref="H" Do  Quit ";5\;4\;6"
 .Set FL(3,1)=$P($T(T8),"@",2)
 .Set FL(3,2)=$P($T(T9),"@",2)
 Quit:$L(Ref)=1 ""
 Set Rec=@Ref
 If $L($P(Rec,D,1))>4 Do
 .Set BStatus=$P(Rec,D,30)
 .If Print("MAXLIJN")'>Print("LIJN") Set Exit=";2\;3" Quit
 .If Print("MAXLIJN")<(Print("LIJN")+3) Set Exit="PB\;2\;3" Quit
 .Set Exit=";1\;2\;3"
 Else  Do
 .Set Status=$P(Rec,D,31),Status=$P(Rec,D,30)
 .Set Exit=""
 Quit Exit
 
BFill ;Overbrengen en hernummer
 Kill ^HULP(%J)
 Set RecCnt=1,ToeNr=199999 ; ,BON(1)="^HULP(%J,"D",ToeNr",DL(1)="BON" 
BFill1 Set ToeNr=$N(^BLTO(LevNr,SoDo,ToeNr)) Goto BFill2:ToeNr=-1
 Set RecToe=^(ToeNr,1),Test=$P(RecToe,D,31),Status=$P(RecToe,D,30)
 Goto BFill1:ChangMd'="A"&($P(RecToe,D,31)="")
 Set $P(RecToe,D,1)=ToeNr,KlantNr=$P(RecToe,D,8)
 ; Omvormen van VAN HOECKE klantnr naar tekst
 Set KlantVH=KlantNr
 If KlantNr,$D(^KK1(KlantNr)) Set KlantVH=KlantNr_" "_$P(^KKL(^KK1(KlantNr),0),D,2)
 ; Omvormen van BLUM klantnr naar tekst
 If "212250"[$P(RecToe,D,9)  Set KlantBL="" ; VAN HOECKE klant
 Else  Set KlantBL=$P(RecToe,D,9)_" "_$$REPLACE^vhRtn1($P($G(^BLBeri("K",$P(RecToe,D,9))),D),"Van Hoecke - ","")
 ;Samenvoegen van VAN HOECKE klant met BLUM klant
 If $L(KlantVH),$L(KlantBL) Set KlantVH=$E(KlantVH,1,18)_"/"_KlantBL
 Else  If $L(KlantBL) Set KlantVH=KlantBL
 Set $P(RecToe,D,8)=KlantVH
 Set ^HULP(%J,"D",ToeNr)=RecToe,RecCnt=RecCnt+1
 
 Goto BFill1:ChangMd="V"&(Test="")
 Do Fill
 Do BList
 Do LList
 Goto BFill1
BFill2 Q
 
Fill Set SortNr=99,LijnCnt=1
Fill1 Set SortNr=$N(^BLTO(LevNr,SoDo,ToeNr,SortNr)) Goto Fill4:SortNr=-1
 Set RecToe=^(SortNr),Test=$P(RecToe,D,31),Status=$P(RecToe,D,30)
 Goto Fill1:ChangMd="V"&(Test="")
Fill2 Do CLFL
Fill3 Set ^HULP(%J,"D",ToeNr,SortKey)=RecToe,LijnCnt=LijnCnt+1
 Goto Fill1
Fill4 Q
CLFL Set PrdNr=$P(RecToe,D,35) Set:'PrdNr PrdNr=$P(RecToe,D,2)
 Goto CLFL2:PrdNr
 Set PrdId=$P(RecToe,D,36),(PrdNm,PrdNr)="" Set:$L(PrdId)=7 PrdId=0_PrdId
 If $D(^BLProd("D",PrdId)) Set PrdNm=$P(^(PrdId),D,1)_"#"
 Else  Set PrdNm="*** Onbekend ***"
 Set IdNr=$E(PrdId,1)_"."_$E(PrdId,2,4)_"."_$E(PrdId,5,7)_"."_$E(PrdId,8)
 Set SortKey=$C(126)_":"_LijnCnt,T=$P(RecToe,D,36)
 Goto CLFL1
CLFL2 Set T=""
 If $D(^KPR(PrdNr,0)) Do
 .Set PrdNm=$P(^KPR(PrdNr,0),D,1)_$S($P(^KPR(PrdNr,1),D,20):"",1:"*"),IdNr=$P(^KPR(PrdNr,2),D,25)
 .For I=1:1:$L(PrdNm) Set:$E(PrdNm,I)'?.P T=T_$E(PrdNm,I)
 .Set R=^($N(^KPR(PrdNr,"I"))),SortKey=$P(R,D,1)_$E($P(R,D,2),1)_$E($P(R,D,3),1)_":"_T_":"_$P(RecToe,D,40)_":"_LijnCnt
 Else  Do
 .Set PrdNm=$P(^KPRO(PrdNr,0),D,1)_$S($P(^KPRO(PrdNr,1),D,20):"",1:"*"),IdNr="Onbekend" ;$P(^KPRO(PrdNr,2),D,25)
 .For I=1:1:$L(PrdNm) Set:$E(PrdNm,I)'?.P T=T_$E(PrdNm,I)
 .Set R=^($N(^KPRO(PrdNr,"I"))),SortKey=$P(R,D,1)_$E($P(R,D,2),1)_$E($P(R,D,3),1)_":"_T_":"_$P(RecToe,D,40)_":"_LijnCnt
CLFL1 Set $P(RecToe,D,46)=PrdNm,$P(RecToe,D,47)=IdNr,$P(RecToe,D,1)=SortNr
 Goto CLFLVH:Status="VH",CLFLBL:Status="BL",CLVHBL:Status=""!(Status="BO")
 Q
 ; Alleen bij VH
CLFLVH Set $P(RecToe,D,37)=$P(RecToe,D,3),$P(RecToe,D,3)=""
 Set $P(RecToe,D,40)=$P(RecToe,D,25),$P(RecToe,D,25)=""
 Set $P(RecToe,D,38)=-$P(RecToe,D,7)/100+1*$P(RecToe,D,6)
 Set $P(RecToe,D,39)="/"_$P(RecToe,D,21)
 Q
 ; Alleen bj BLUM
CLFLBL Set $P(RecToe,D,48,50)=""
 Set $P(RecToe,D,45)="/"_$P(RecToe,D,39)
 Set $P(RecToe,D,39)="/"_$P(RecToe,D,39)
 Q
 ; Beide
CLVHBL Set:'$F(Test,"QTY") $P(RecToe,D,3)=""
 Set:'$F(Test,"LVW") $P(RecToe,D,25)=""
 Set $P(RecToe,D,48)=-$P(RecToe,D,7)/100+1*$P(RecToe,D,6)
 Set $P(RecToe,D,49)="/"_$P(RecToe,D,21)_$P(RecToe,D,26)
 Set $P(RecToe,D,45)="/"_$P(RecToe,D,39)
 If '$F(Test,"PR") Set $P(RecToe,D,48,49)=D,$P(RecToe,D,39)="/"_$P(RecToe,D,39)_$P(RecToe,D,26)
 Else  Set $P(RecToe,D,39)="/"_$P(RecToe,D,39)
 Q
 
Header Do Header^BLKALL2
 Write !,!,$P($T(T9),"@",2),!,$P($T(T8),"@",2),!,$P($T(T7),"@",2)
 Set LijnPr=10
 Q
Footer Write #
 Q
BList Set LijnPr=LijnPr+1
 Set ^HULP(%J,"L",LijnPr)=^HULP(%J,"D",ToeNr)
 Q
LList Set LijnNr=0
LList2 Set LijnNr=$N(^HULP(%J,"D",ToeNr,LijnNr))
 Q:LijnNr=-1
 Set LijnPr=LijnPr+1
 Set ^HULP(%J,"L",LijnPr)=^HULP(%J,"D",ToeNr,LijnNr)
 Goto LList2
 
T1 ;@1;0N+;R;7;; | ;"1"\34;0N+;R;7;; | ;"1"\2;C;L;8;; | \33;C;L;33;; | \7;N+;C;7;; | \8;C;L;37;; |\32;C;L;1;;|\31;C;L;13;;;(BStatus'="")
T2 ;@"";C;L;1\47;C;L;11;;|;$F(Test,"ID")\46;C;L;26;;|;$F(Test,"ID")\37;N0;R;9;;:;3\3;N;R;9;;| \40;C;L;5;; : ;$S($L($P(FL(3),D,25)):1,1:"")\25;C;L;5;; |
T22 ;@\44;-N;R;10;2;;\45;C;L;2;;|\38;-N;R;10;2;;48\39;C;L;2;;:\48;-N;R;10;2;;\49;C;L;3;;|\32;C;L;1;;|\31;C;L;13;;;(Status'="")
  
T6 ;@===================================================================================================================================
T7 ;@-----------------------------------------------------------------------------------------------------------------------------------
T8 ;@ Identnummer| KortTekst               K|  Aantal :    Oud  | LvWk  :  Oud  |   BrutoPr  | NettoPr    :     Oud     |C| Vergelijk
T9 ;@ToeLev. |  ABNr   | KreaDat  | Blum referentie                   | OrderNr |  Klant                                |C| Vergelijk