SelecteerDoc ; Selecteer een offerte, order of uilevering
 
 G WisSchermBody
StartSelectie
 L  I $D(Goto) K:Goto="ExternVerwerkOrder^Flow.VerwerkDoc" Jump I Goto'="ExternVerwerkOrder^Flow.VerwerkDoc" D CLEAN^vhPROGRAM G @Goto
 Q:$D(Extern)!$D(Jump)!$D(AutoOrd)  S Q1="^"_Q_UGL_"(0,US,""UR"")",U1=@Q1,U1=100 K TRLC
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))
 I $P(U2,U,16)=110,UGL="OFKL" D CLEAR^KOFINST
 G WisSchermHoofding
WisSchermBody
 S (SW13,UTEL)=0,UL=+UD,FP=UD*100+1 W @F,@F1 K UTA,UTB
DocumentNummer K:'$G(AutoOrd) KC S LVHCYB="W" I $D(Extern)!$D(Jump)!$D(AutoOrd) S (K,UR)=EXTNr
 E  D
 .S UGLTemp=Q_UGL,UG1Temp=Q_UG1,(K,UR)=$$SELECT^FLOW(UGLTemp,UG1Temp,UGL="UL") K UGLTemp,UG1Temp Q
 I UGL="OD" D
 . K UTYP I $E(K)="A" S UTYP=$E(K,2),(K,UR)=$E(K)
 G EindeSelectie:K="-",DocumentBestaat:$D(@("^"_Q_UG1_"(UR,US)")),DocumentNummer:UGL="UL"&$D(@("^"_Q_"OD"))
 I UR'="A" L @(Q_"UR"):2 E  S FP=2403+F60 W @F,@F2,@F4,UOU," ",UR," IN GEBRUIK ! ",@F5,@F0 H 3 G DocumentNummer
 D NieuwHoofding^Flow.NieuwDocHoofding G StartSelectie:K="-" S LVHCYB="O" G LockDocument
DocumentBestaat S U2=^(US) I $P(U2,D,2)'=""&('$D(@("^"_Q_UGL_"($P(U2,D,1),US,UR)"))) D DocumentReedsVerwerkt G EindeSelectie:$G(Extern),WisSchermBody
 S KC=$P(U2,D,1),R=@("^"_Q_UGL_"(KC,US,UR,1)")
 S FP=UD*100+1 W @F,@F1 D ToonHoofding^Flow.ToonDocHoofding
LockDocument K IK D ADD^vhLock("^"_Q_UGL_"(KC,US,UR)") I '%TC D LDISP^vhLock("^"_Q_UGL_"(KC,US,UR)",UOU) G StartSelectie
 I UGL="OD" D ^FLOWORD
 I UGL="UL" D ^FLOWBON
 I UGL="OFKL" D ^FLOWOFF
 I $D(UR),$D(@("^"_Q_UGL_"(KC,US,UR)")) D VerwijderIndienLeegDocument
 I SW13,$D(@("^"_Q_UGL_"(KC,US,UR)")) S @("^"_Q_UGB_"(UR,US)")=KC_"\\\"_+$H
 I $D(LVHCYB),LVHCYB'="V",'$D(@("^"_Q_UG1_"(UR)")) S LVHCYB="V"
 I $D(LVHCYB),LVHCYB="O",$D(@("^"_Q_UGL_"(0,US,2)")) S URLC=UR D @^(2) G StartSelectie:'$D(TRLC) D @(@("^"_Q_"TO(0,2)")) G StartSelectie
 I $D(LVHCYB),LVHCYB="W",$D(@("^"_Q_UGL_"(0,US,3)")) S URLC=UR D @^(3) G StartSelectie
 I $D(LVHCYB),LVHCYB="V",$D(@("^"_Q_UGL_"(0,US,4)")) S URLC=UR D @^(4) G StartSelectie
 G StartSelectie
EindeSelectie Q
 
VerwijderIndienLeegDocument
 G VerwijderIndienLeegDocumentZ:'$D(@("^"_Q_UG1_"(UR,US)")),VerwijderIndienLeegDocumentZ:$N(@("^"_Q_UGL_"(KC,US,UR,100)"))'=-1
 Do:UGL="OD" KillOrderLink^KFO(UR)
 K @("^"_Q_UGB_"(UR,US)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UGL_"(KC,US,UR)")
 Do:UGL="OD" DelOrd^KLACHT4(UR),DelVRIJGAVE^FLOW2(US,"O",UR)
 Do:UGL="UL" DelBon^KLACHT4(UR),DelVRIJGAVE^FLOW2(US,"B",UR)
 K @("^"_Q_UG1_"(UR,US)")
 S SW13=0 I LVHCYB'="O" S LVHCYB="V"
 E  K LVHCYB
 Do:UGL="OD" ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(UR)
VerwijderIndienLeegDocumentZ Q
 
DocumentReedsVerwerkt
 S FP=2203+F60
 W @F,@F1
 S FP=2402+F60
 W @F,@F4,UOU," ",K," IS REEDS ",$S(UGL="UL":"GEFAKTUREERD",1:"OVERGEBOEKT")," - KLANT : ",$P(U2,D,1)," - ",$S(UGL="UL":"FAKTUUR",1:@("^"_Q_"UL(0,US,""UOU"")"))," : ",$P(U2,D,2)," ",@F5,@F0
 H 3
 Q