WijzigDocHoofding ;Wijzig de hoofding van een offerte, order of uilevering
 
WijzigHoofding
 N BTemp
 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
 S (X,K)=100,Y=$D(@("^"_Q_UGL_"(0,US,0)"))
 F  S X=$N(^(X)) Q:X=-1  Q:X'?.N  S K=K+1,A(K)=^(X)
 K B S SW12=1,B(1)=@("^"_Q_UGL_"(KC,US,UR,1)") F I=2:1:6 I $D(^(I)) S B(I)=^(I)
 M BTemp=B
 S U1=100,U4=0
ToonRubrieknummers S U1=$N(A(U1)) G OpvragenTeWijzigenElement:U1<0 S U2=A(U1)
 S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F S U4=U4+1
 I UGL="OD",$G(AD(13))="FLOWORDADJ",$P(U2,U,16)=127 G ToonRubrieknummers
 W:U4<10 " " W U4 G ToonRubrieknummers
OpvragenTeWijzigenElement
 S FP=2201+F60 W @F,@F1,"NUMMER ELEMENT : ",@F0 R K G OpvragenTeWijzigenElement:K?.E1C.E!(K="")!($L(K)>2),OpslagGegevens:"-,"[K,OpvragenTeWijzigenElement:'$D(A(K+100)) S U2=A(K+100)
 I UGL="OD",$G(AD(13))="FLOWORDADJ",$P(U2,U,16)=127 G OpvragenTeWijzigenElement
 I $P(U2,U,12),@$P(U2,U,15) D  G OpvragenTeWijzigenElement
 .S FP=2403+F60 W @F,@F2,@F4
 .I $P(U2,U,16)=125 W "U BENT EEN FOEFELAAR !!! "
 .W """",$P(U2,U),""" NIET WIJZIGBAAR [] = ok ",@F5,@F0 R K
 S K=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)
 I $L($P(U2,U,19)),@$P(U2,U,20) S U3=$P(U2,U,19) X U3 S U3=K G OpvragenTeWijzigenElement:K="-",OpslagGegevens:K=",",VerwerkEenRubriek160
VerwerkEenRubriek
 S K=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)
 S K=$$ASK^vhINP($P(U2,U)_" : ",$P(U2,U,9),K,$P(U2,U,10),"","","","","B")
 G VerwerkEenRubriek:K?.E1C.E,OpvragenTeWijzigenElement:K="-",OpslagGegevens:K=","
 S X=$P(U2,U,11)_"&'(K[D)&($L(K)'>$P(U2,U,9))" S:$L($P(U2,U,21)) X=X_"&("_$P($T(@$P(U2,U,21)),U,2,99)_")" I @X G VerwerkEenRubriek160
 G VerwerkEenRubriek
VerwerkEenRubriek160
 S U3=K I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
 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)),@F,U3,@FMTi,@FMTb,@FMTu,@FMTk
 I $P(U2,U,16)'?.N!($P(U2,U,16)<101) G OpvragenTeWijzigenElement:$P(U2,U,16)?.N S @$P(U2,U,16)=K G OpvragenTeWijzigenElement
 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="" S:(Y-1) K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99) G OpvragenTeWijzigenElement
OpslagGegevens
 K U2,U3 S U1=100,X="^"_Q_UGL_"(KC,US,UR,1)=B(1)",@X F I=2:1:6 I $D(^(I)) S ^(I)=B(I)
 I K="," S K="-"
VerwijderRubrieknummers S U1=$N(A(U1)) G Exit:U1=-1 S U2=A(U1)
 I UGL="OD",$G(AD(13))="FLOWORDADJ",$P(U2,U,16)=127 G VerwijderRubrieknummers
 I '$P(U2,U,22) S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,"  "
 G VerwijderRubrieknummers
Exit
 Set FP=2201+F60 W @F,@F1
 Do:UGL'="OFKL"
 .If UGL="OD" Do
 ..Do INITDOMVKP^FLOWORD2(KC,UR)
 ..Set:$P(BTemp(1),D,7)'=$P(B(1),D,7) Input="AL"
 .If UGL="UL" Do INITDOMVKP^FLOWBON(KC,UR)
 Kill A,B
 Quit
 
 ; Datumcontrole $P($T(DCTR),";",2)
DCTR ;$$DCTR^vhRtn2(.K)
 ;