TRANSPB ;Verwerking expediteur (boekhoudkundig sluiten) [ 10/05/2000  10:10 AM ]
 ;
BOEKH 
 New R,VervRef,TranspNr,SelBoekh,BoekList,Count,Verpak,ColTyp
 Do DISPLAY^vhScherm("TRANSPBH")
 Set TranspNr=$$TRANSP^LEVER(1,,"Transportoverzicht voor","Allen")
 Do:TranspNr'="CANC" DISPLAY^vhScherm("TRANSPBH"),FIELD^vhScherm("TRANSPBH","BOEKLIST")
 Quit
 ;
BOEKEDIT(TranspNr) 
 Set VervRef="",Count=0
 For  Set VervRef=$O(^TRANSP("D",VervRef)) Quit:VervRef=""  Do
 .Set R=^TRANSP("D",VervRef)
 .Quit:$P(R,D,2)'="T"
 .If TranspNr Quit:$P(R,D)'=TranspNr
 .Quit:'$$LOCK^TRANSP(VervRef)
 .Kill Verpak
 .Set (ColTyp,Verpak)=""
 .For  Set ColTyp=$O(^TRANSP("D",VervRef,"Q",ColTyp)) Quit:ColTyp=""  Do
 ..Set R=^TRANSP("D",VervRef,"Q",ColTyp)
 ..Set Verpak($P(^RES("EWBON","PI","COLLIETYPE","D",ColTyp),"`"))=ColTyp_"-"_$P(R,D)
 .Set (ColTyp,Verpak)=""
 .For  Set ColTyp=$O(Verpak(ColTyp)) Quit:ColTyp=""  Set Verpak=Verpak_";"_Verpak(ColTyp)
 .Set $E(Verpak)=""
 .Set R=^TRANSP("D",VervRef),R=VervRef_D_$P(R,D,1,3)_D_$P(R,D,10,12),$P(R,D,8)=Verpak
 .Set Count=Count+1,BoekList(Count)=R
 If Count Do
 .Do STORE^vhTERMINA()
 .Do INIT^vhLIST("TRANSP","SELBOEKH",.SelBoekh)
 .Do WRITE^vhLIST(.SelBoekh)
 .For  Set Input=$$SCROLL^vhLIST(.SelBoekh) Do  Quit:Input="CANC"
 ..Do:Input="COM" CALL^vhMenu("TRANSPCLO")
 ..Do EXEC^vhMenu("TRANSPCLO",.Input)
 .Do REFRESH^vhTERMINA()
 Else  Do
 .Set R=$S(TranspNr:" voor "_TranspNr_" "_$P(^KLE(^KL1(TranspNr),0),D,2),1:"")
 .Set R=$$^vhTXTPOP("TRANSP","NOOPEN","",R)
 Lock
 Quit ""
 ;
BOEKVERV(BoekList,SelBoekh,Modify) 
 Quit
 ;