VerwerkDoc G VerwerkDocument ; Verwerk een toelevering

AutoVerwerkToelevering(LEVNr,ToeRef,PRNr,EDIORDNr,BackGrnd,FBRef)
 S AutoToe=1,LC=LEVNr,Extern=1 G VerwerkDocument
ExternVerwerkToelevering S Jump=1,EXTNr=TOENr
 
VerwerkDocument
 S UGL="TO",UG1="TO1",UG2="TO2",UGB="TOB",WNR="  ",UKIL="",X=$N(@("^"_Q_"BA(18,-1)"))
 S U=";",X=@("^"_Q_UGL_"(0,0)") F I="TD","TT","UTL","TSM","TSC","TV","TUM","TOU" S @I=^(I)
 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",BLA="                                        ",PNT="........................................"
 S UD=TD,UVV=$P($P(TV," ",2),"=",2),Q1="^"_Q_UGL_"(0,""TR"")"
 D ^cA105
 X X,TT K X,TT
 G WisSchermBody
StartSelectie
 I $D(Goto) K:Goto="ExternVerwerkToelevering^Flow.Toelev.VerwerkDoc" Jump I Goto'="ExternVerwerkToelevering^Flow.Toelev.VerwerkDoc" D CLEAN^vhPROGRAM G @Goto
 Q:$D(Extern)!$D(Jump)  S U1=@Q1,U1=100 L
WisSchermHoofding
 S U1=$N(^(U1)) G WisSchermBody:U1'?.N S U2=^(U1),FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,"  "
 I '$P(U2,U,23) S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,$E(BLA,1,$P(U2,U,6)-$P(U2,U,3))
 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$E(BLA,1,$P(U2,U,9)),$E(BLA,1,$P(U2,U,13)) G WisSchermHoofding
WisSchermBody
 S (SW13,UTEL)=0,UL=+UD,FP=UD*100+1 W @F,@F1 K UTA,UTB
DocumentNummer I $G(AutoToe) S (K,TR)="A"
 E  D
 .K LC S LVHCYB="W"
 .I $D(Extern)!$D(Jump) S (K,TR)=EXTNr
 .E  S UGLTemp=Q_UGL,UG1Temp=Q_UG1,(K,TR)=$$SELECT^FLOW(UGLTemp,UG1Temp) K UGLTemp,UG1Temp
 G EindeSelectie:K="-",DocumentBestaat:$D(@("^"_Q_UG1_"(TR)"))
 I TR'="A" L TR:2 E  S FP=2403+F60 W @F,@F2,@F4,TOU," ",TR," IN GEBRUIK ! ",@F5,@F0 H 3 G DocumentNummer
 S FP=UD*100+1 W @F,@F1 D NieuwHoofding^Flow.Toelev.NieuwDocHoofding G StartSelectie:K="-" S LVHCYB="O" G LockDocument
DocumentBestaat
 S U2=^(TR)
 S LC=$P(U2,D,1) G DisplaySchermHoofding
DisplaySchermHoofding S FP=UD*100+1 W @F,@F1 D ^Flow.Toelev.ToonDocHoofding
LockDocument L @("^"_Q_UGL_"(LC,TR)"):2 E  S FP=2403+F60 W @F,@F2,@F4,TOU," ",TR," IN GEBRUIK ! ",@F5,@F0 H 3 G StartSelectie
 D ^FLOWTOE 
 If (SW13 && $D(^KTO(LC,TR))) {
	 Do ##class(DOM.AKP.ToeleveringPrintbak).VoegToeToelevering(TR,LC)
	 If (LC=##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Blum())) {
		 S ^BLBeri("Z",TR)=LC_D
	 }
 }
 D:$D(TR) VerwijderIndienLeegDocument
 I $D(LVHCYB),LVHCYB'="V",'$D(@("^"_Q_UG1_"(TR)")) S LVHCYB="V"
 I $D(LVHCYB),LVHCYB="O",$D(@("^"_Q_UGL_"(0,2)")) S TRLC=TR D @^(2) G StartSelectie
 I $D(LVHCYB),LVHCYB="W",$D(@("^"_Q_UGL_"(0,3)")) S TRLC=TR D @^(3) G StartSelectie
 I $D(LVHCYB),LVHCYB="V",$D(@("^"_Q_UGL_"(0,4)")) S TRLC=TR D @^(4) G StartSelectie
 G StartSelectie
EindeSelectie Q

VerwijderIndienLeegDocument
 G VerwijderIndienLeegDocumentZ:'$D(@("^"_Q_UG1_"(TR)")),VerwijderIndienLeegDocumentZ:$N(@("^"_Q_UGL_"(LC,TR,100)"))'=-1
 S K=$P(@("^"_Q_UGL_"(LC,TR,1)"),D,10) D KILL^KTO4(LC,TR,K)
 K @("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)")
 K @("^"_Q_UGL_"(LC,TR)"),^BLBeri("Z",TR)
 S SW13=0 I LVHCYB'="O" S LVHCYB="V"
 E  K LVHCYB
VerwijderIndienLeegDocumentZ Q