VERVL ;VERVOER VERGELIJK LIJST ;VERVL; Do naar VERVS, VERVL1 [ 01/20/99  10:54 AM ]
 G BEGIN
 ;
T1 ;VERVOERLIJST OF DE LIJST OVERGEDRAGEN : .
T2 ;V = vervoer   L = lijst niet overgedragen
T3 ;VERVOERLIJST;LIJST NIET OVERGEDRAGEN
T4 ;SORTERINGSVOLGORDE : .
T5 ;P = klassifikatie   T = toelevering   ;B = blum   V = markering verpakking
T6 ;VOLGENS ;KLASSIFIKATIE;TOELEVERING;BLUM;MARKERING VERPAKKING
T7 ;AFDRUKTYPE : .
T8 ;C = compakt   V = volledig met verpakkingen & phantom produkten
T9 ;COMPAKT;VOLLEDIG
T10 ;OUTPUT NAAR SCHERM, PRINTER of TRANSFERT
T12 ;S = scherm   P = PRINTER   T = TRANSFERT
 ;
 ;Initialisatie
IN S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S LC="",MAC=$P(^cLOG(boot,"DEV",io),D)="MC" K ^HULP($J)
 Q
 ;
BEGIN D IN,^VERVID
 ;
1 S LIJST="V" G END:R="-"!'$L(VRF)
 S FP=1901 W @F,@F1
 I $P(^Verv(5005,"D",VRF),D,7)'="R",$P(^Verv(5005,"D",VRF),D,7)'="I" G 2
 Else  G 2:'$$NOVD(VRF)
 S FP=2003 W @F,@F1,$P($T(T1),U,2),!?2,$P($T(T2),U,2)
11 D IK^PROC1 G END:R="-" I R'="V",R'="L" G 11
 S LIJST=R,FP=2003 W @F,@F1,$P($T(T3),U,$F("VL",R))
 ;
2 K ^HULP($J,"VVL") S FP=2103 W @F,@F1,$P($T(T4),U,2),!?2,$P($T(T5),U,2) I LIJST="V" W $P($T(T5),U,3)
21 D IK^PROC1 G 1:R="-" I R'="P",R'="T" G 21:LIJST="L" I R'="B",R'="V" G 21
 S SORT=R,FP=2103 W @F,@F1,$P($T(T6),U,2),$P($T(T6),U,$F("PTBV",R)+1)
 ;
3 K TYPE I LIJST="L" S TYPE="C",SOVD="N" G 4
 S TYPE="V" G 4:SORT="V" S FP=2203 W @F,@F1,$P($T(T7),U,2),!?2,$P($T(T8),U,2)
31 D IK^PROC1 G 2:R="-" I R'="C",R'="V" G 31
 S TYPE=R,FP=2203 W @F,@F1,$P($T(T9),U,$F("CV",R))
 ;
4 S FP=2303 W @F,@F1,$P($T(T10),U,2)," : .",!?2,$P($T(T12),U,2)
41 D IK^PROC1 I R="-" G 2:SORT="V",3:$D(TYPE),2
 I R'="S",R'="ENTER",R'="P",R'="T" G 41
 S OUTP=$S(R="ENTER":"P",1:R)
 ;
5 I OUTP="P" S R="2\1\\1" D ^SODEV G 1:K=",",4:K="-"
 I OUTP="T" S Dev=$$OPEN^vhDEV(,"Transfert.Txt","NW","A") G 4:0[Dev
 I '$D(^HULP($J,"VVL")) S:LIJST="L" TYPE="C" S FP=2001 W @F,@F1 S R=SORT D SSM^VERVS
 I OUTP'="S" S FP=255 W @F,@F1
 D ^VERVL1
 ;
END K ^HULP($J) Q
 ;
NOVD(VervRef) 
 New FaktNr,NOvd
 Set (FaktNr,NOvd)=0
 For  Set FaktNr=$O(^Verv(5005,"D",VervRef,FaktNr)) Quit:FaktNr=""  Do  Quit:NOvd
 .Set LijnNr=0
 .For  Set LijnNr=$O(^Verv(5005,"D",VervRef,FaktNr,LijnNr)) Quit:LijnNr=""  Do  Quit:NOvd
 ..Set R=^Verv(5005,"D",VervRef,FaktNr,LijnNr)
 ..Quit:$P(R,D,9)="P"
 ..Set NOvd=$P(R,D,16)=""
 Quit NOvd
 ;