VERVL1 ;VERVOERLIJST;VERVL; Quit naar VERVL [ 08/16/2002  4:27 PM ]
 G BEGIN
 ;
T1 ; ToelNr| AB-Nr | Korttekst               |   LVH  |   BLUM |L| OrdNr | Klant
T2 ;1;C;L;7;;|\2;N+;R;7;;|\3;C;L;25;;|\5;N;R;8;;|\$S($P(FL(3),D,4)=$P(FL(3),D,5):0,1:$P(FL(3),D,4));N;R;8;;|\6;C;L;1;;|\7;N+;R;7;;|\8;C;L;10;;
T3 ;"ToelNr",$C(9),"AB-Nr",$C(9),"Korttekst",$C(9),"LVH",$C(9),"BLUM",$C(9),"L",$C(9),"OrdNr",$C(9),"Klant",$C(9),"Identnummer",$C(13)
T4 ;$P(R,D,1),$C(9),$P(R,D,2),$C(9),$P(R,D,3),$C(9),$P(R,D,5),$C(9),$S($P(R,D,4)=$P(R,D,5):"",1:$P(R,D,4)),$C(9),$P(R,D,6),$C(9),$P(R,D,7),$C(9),$P(R,D,8),$C(9),$P(R,D,12),$C(13)
T5 ; ToelNr| AB-Nr | Korttekst               | | |  TOEL  |   BLUM |L| OrdNr | Klant    | Rack
T6 ; ToelNr| AB-Nr | Korttekst               | | |  BLUM  |   CORR |L| OrdNr | Klant    | Rack|Pal | Aantal               |Vrv
T7 ;1;C;L;7;;|\2;N+;R;7;;|\3;C;L;25;;|\13;C;L;1;;|\15;C;L;1;;|\21;N;R;8;;|\$S($P(FL(3),D,5)=$P(FL(3),D,21):0,1:$P(FL(3),D,5));N;R;8;;|\6;C;L;1;;|\7;N+;R;7;;|\8;C;L;10;;|\14;C;L;5;;
T8 ;1;C;L;7;;|\2;N+;R;7;;|\3;C;L;25;;|\13;C;L;1;;|\15;C;L;1;;|\4;NC;R;8;;|\CORR;N;R;8;;|\6;C;L;1;;|\7;N+;R;7;;|\8;C;L;10;;|\14;C;L;5;;|\16;C;L;4;;|\17;N.;R;4;;\MAAL;C;L;1;;\18;N;R;8;;\IDEM;C;L;1;;\19;N;R;8;;|\20;C;L;4;;
T9 ;------------------------------------------------------------------------------------------
T10 ;Onbekend;;Pakket;Euro-pallet;Blum-pallet;Zak
T11 ;volgens ;klassifikatie;toelevering;Blum;verpakking
T12 ; + palletgegevens
T16 ; Geen vervoerlijnen 
 ;
O1 S K=$P($T(T16),U,2) G OY
OY S FP=2403 W @F,@F1,@FMTI,K,@FMTi,@F0
OZ Q
 ;
 ; Schermaanduiding
SA S FP=255 W @F,@FMTB,$J($P($T(T15),U,$F("",U4)),25),@FMTb
 Q
 ;
 ; Scherm
SCH S VVL(1)="^HULP($J,""VVL"",",VVL(2)=$P($T(T2),U,2,999),VVL(3)=4,VVL(8)=$P($T(T1),U,2)
 S DL(1)="VVL",U4=" " D SA,WL^PROC I '$D(^HULP($J,"VVL")) D O1
 D SL^PROC
 Q
 ;
 ; Printer
PRT S (VNR,BLZ,FL(2))=0,LN=99,FL(1)=$P($T(T7),U,2,99) S:TYPE="V" FL(1)=$P($T(T8),U,2,99) S NM2=^KBA(99,2),NM3=^(3) X F70 W @F80 S EVP=0 S:TYPE="V" EVP=32
PRT1 S VNR=$N(^HULP($J,"VVL",VNR)) G PRT4:VNR=-1 S FL(3)=^(VNR),MAAL="x",IDEM="=" S:$P(FL(3),D,15)="M" (MAAL,IDEM)=""
 S CORR=$S($P(FL(3),D,15)="M":0,$P(FL(3),D,4)=$P(FL(3),D,5):0,1:$P(FL(3),D,5))
PRT2 S LN=LN+1 I LN>50 W:BLZ !,$P($T(T9),U,2),$E($P($T(T9),U,2),1,EVP),# D HD G PRT2
PRT3 W ! D FL^PROC G PRT1
PRT4 G PRT7:'BLZ W !,$P($T(T9),U,2),$E($P($T(T9),U,2),1,EVP)
 I TYPE'="V",TYPE'="C" G PRT6
 S R=$P(^Verv(LC,"D",VRF),D,8,12),LN=LN+2+$L(R,D) I LN>50 W # D HD
 W !
PRT5 I $L($TR(R,D,"")) W !,$P($T(T10),U,$F("PEBS",$P(R,U,1))+2),?15,":",$J($P($P(R,D,1),U,2),5) S R=$P(R,D,2,99) G PRT5
 W !!,$P($T(T9),U,2),$E($P($T(T9),U,2),1,EVP)
PRT6 W #
PRT7 X F71
 Q
 ;
 ; Transfert
TRAX 
 U Dev D TRA
 C Dev
 Q
 ;
 ; Transfert
TRA W @$P($T(T3),U,2) S VNR=0
TRA1 S VNR=$N(^HULP($J,"VVL",VNR)) I VNR'=-1 S R=^(VNR) W @$P($T(T4),U,2) G TRA1
 Q
 ;
BEGIN D @$S(OUTP="S":"SCH",OUTP="P":"PRT",1:"TRAX") ;
END Q
 ;
 ; Hoofding
HD S BLZ=BLZ+1,LN=0
 W !,QN,?(82+EVP),"BLZ:",$J(BLZ,4)
 W !,NM2,?30,@F82,$P($T(+1),U,2)," ",VRF,@F83,$C(13),?(82+EVP),DT
 W !,NM3,?30,$P($T(T11),U,2),$P($T(T11),U,$F("PTBV",SORT)+1) W:TYPE="V" $P($T(T12),U,2) W ?(83+EVP),TD,!!
 I VNR'=-1 W $P($T(@("T"_(5+(TYPE="V")))),U,2),!
 W $P($T(T9),U,2),$E($P($T(T9),U,2),1,EVP)
 Q
 ;
Z X ^cZ Q
ZZ ; 30.08.91 - 15 u 56