NieuwDocHoofding ;Nieuwe hoofding van een toelevering
 
NieuwHoofding
 S X=@Q1,(X,K)=100,UUR="",SW11=0
 F  S X=$N(^(X)) Q:X=-1  Q:X'?.N  S K=K+1,A(K)=^(X)
VerwerkAlleRubrieken
 S U1=100,U4=0
VerwerkEenRubriek
 S U1=$N(A(U1)) G AlleRubriekenVerwerkt:U1=-1&'SW11,AlleRubriekenVerwerkt39:SW11&(U1'=UUR) S U0=U1,U2=A(U1),B($P(U2,U,16))="" S:$P(U2,U,16)="TR" UUR=U1
 I $L($P(U2,U,4)),@$P(U2,U,4) G Exit:K="-"&(U1=101),VerwerkEenRubriek:K'="-" S U1=U1-2 G VerwerkEenRubriek
 I $L($P(U2,U,7)),@$P(U2,U,14) S U3="S K="_$P(U2,U,7) X U3 S (U3,B($P(U2,U,16)))=K G VerwerkEenRubriek33:K'="-",Exit:U1=101 S U1=U1-2,U4=U4-1 G VerwerkEenRubriek
VerwerkEenRubriek18 I $L($P(U2,U,17)),@$P(U2,U,18) S U3=$P(U2,U,17) X U3 S (U3,B($P(U2,U,16)))=K G VerwerkEenRubriek181:K'="-",Exit:U1=101 S U1=U1-2,U4=U4-1 G VerwerkEenRubriek
 G VerwerkEenRubriek184
VerwerkEenRubriek181 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9))
 S FP=2206+F60+$L($P(U2,U,1)) W @F,K,!?2,"[] = OK" S FP=2206+F60+$L($P(U2,U,1)) W @F,@F0 R K G VerwerkEenRubriek18:K?.E1C.E,VerwerkEenRubriek33:K=""
 S (U3,B($P(U2,U,16)))=K G VerwerkEenRubriek33:K'="-",Exit:U1=101 S U1=U1-2,U4=U4-1 G VerwerkEenRubriek
VerwerkEenRubriek184 I $L($P(U2,U,19)),@$P(U2,U,20) S U3=$P(U2,U,19) X U3 S (U3,B($P(U2,U,16)))=K G VerwerkEenRubriek33:K'="-",Exit:U1=101 S U1=U1-2,U4=U4-1 G VerwerkEenRubriek
VerwerkEenRubriek19 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !,?2,$P(U2,U,10)
VerwerkEenRubriek20 S FP=2200+F60+($L($P(U2,U,1))+6) W @F,@F0 R K G VerwerkEenRubriek20:K?.E1C.E,Exit:U1=101&(K="-"),VerwerkAlleRubrieken:K="," I K="-" S U1=U1-2,U4=U4-1 G VerwerkEenRubriek
 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 S B($P(U2,U,16))=K,U3=K
 E  G VerwerkEenRubriek19
VerwerkEenRubriek33 I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
 S U4=U4+1,FP=$P(A(U1),U,2)*100+$P(A(U1),U,3) I $P(A(U1),U,22) W @F W:U4<10 " " W U4
 I '$P(A(U1),U,23) S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W @F,@F5,":" S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3) S:'$P(A(U1),U,22) FP=FP+2 W @F,@F6,$P(A(U1),U,1),@F5
 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6) W @F,$E(BLA,1,$P(A(U1),U,9)),$E(BLA,1,$P(A(U1),U,13))
 W:$P(U2,U,16)="TR" @FMTB W @F,U3,@FMTb G VerwerkEenRubriek:$P(U2,U,16)?.N
 S @$P(U2,U,16)=B($P(U2,U,16)) K B($P(U2,U,16)) G VerwerkEenRubriek
AlleRubriekenVerwerkt
 S T=0 G AlleRubriekenVerwerkt39:TR'="A"
 S TR=$$GETNUM^FLOW(Q_UGL,Q_UG1)
 I UUR S U1=UUR-1,SW11=1 G VerwerkEenRubriek
AlleRubriekenVerwerkt39 S @("^"_Q_UG1_"(TR)")=LC_D,@("^"_Q_UG2_"(LC,TR)")="",@("^"_Q_UGL_"(LC,TR,0)")=101,SW13=1 L @("^"_Q_UGL_"(LC,TR)")
OpslagGegevens
 S U7="",T=T+100 I $N(B(T))=-1 G GeefLeverancierOrderBevestigingNr
 S (U1,U2,U3)="",B(115)=UKIL
 F Y=1:1:25 S X=Y+T S:$D(B(X)) U7=U7_B(X) S U7=U7_D
 S ^(T/100)=U7 G OpslagGegevens
GeefLeverancierOrderBevestigingNr S K=$P(^(1),D,10)
Exit
 K A
 Q
 
SelecteerLeverancier
 S K=$$SELECT^LEVER(1) S FP=2201 W @F,@F1 S:'K K="-"
 Q:K="-"
 S K=@("^"_Q_"L1(K)")
 S K=$P(K," ",2)
 Q

 ; Datumcontrole $P($T(DCTR),";",2)
DCTR ;$$DCTR^vhRtn2(.K)
 ;