VERV ;WIJZIGEN VAN VERVOERLIJST BLUM ;VERV; Do naar PROC [ 08/07/2002 4:03 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 ; Korttekst | Gelev | M | Pakket mrk | Paketten | Aant/pak T4 ;0;C;R;1;;\1;C;L;27;;|\2;N;R;8;;| \3;C;L;1;; | \4;C;L;10;; |\5;N;R;10;;|\6;N;R;10;; T5 ; Toelev AB-Num Identnummer Korttekst T6 ;11;N;R;9;;\9;N;R;11;;\12;C;R;14;; \3;C;L;26;; T7 ; Gevr LW Bev LW Gevr aant Ontv LVH Gel v BLUM LC T8 ;1;C;R;8;; \2;C;R;8;;\3;N;R;13;;\4;N;R;12;;\5;N;R;13;; \6;C;L;1;; T9 ;Bent u zeker dat u de ontvangen goederen wenst te verwijderen;uit de toeleveringen : .;J = ja [] = annuleer T14 ;*** I'm thinking *** T15 ;;PHANTOM & VERPAKKING;DETAIL;VERWIJDEREN;AANTAL WIJZIGEN;MARKERING;OVERDRACHT; T16 ; Geen vervoerlijnen T17 ; Geen vrpakkingen T18 ; Toeleveringslijn onbekend T19 ;[] = T20 ;ONTVANGEN AANTAL T21 ;MARKERING : . T22 ;C = volledig P = gedeeltelijk T23 ;V = verwijderen [] = annuleer T24 ; Vervoerbestand in gebruik [] = ok T25 ;Lijnen overgedragen : T26 ;niet overgedragen : T27 ;KODE OVERDRACHT : . T28 ;O = overgedragene N = niet overgedragene [] = alle T29 ;[] = ok ; O1 S K=$P($T(T16),U,2) G OY O2 S K=$P($T(T17),U,2) G OY O3 S K=$P($T(T18),U,2) G OY O4 S K=$P($T(T24),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("!PDVAMO",U4)),25),@FMTb Q ; SA1 S FP=255 W @F,$J("",5),@FMTK,$P($T(T14),U,2),@FMTk Q ; ; 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 VVL(1)="^HULP($J,""VVL"",",VVL(2)=$P($T(T2),U,2,999),VVL(3)=4,VVL(4)=17,VVL(6)=1,VVL(8)=$P($T(T1),U,2) S VRP(1)="^HULP($J,""VRP"",",VRP(2)=$P($T(T4),U,2,999),VRP(3)=22,VRP(8)=$P($T(T3),U,2) S LC="",(VTB,DET)="" K ^HULP($J) Q ; ; Help HLP D SA S HLP(1)=$P($T(T7),U,2),HLP(2)=$P($T(T7),U,3),HLP(3)=5,HLP(6)="" D HLP^HELP Q ; ; Vervoerlijnen VVL S DL(1)="VVL" D SA G VVL1:U4=VTB D SA,WL^PROC I '$D(^HULP($J,"VVL")) D O1 VVL1 D SL^PROC S VTB=U4 Q ; ; Verpakking VRP S DET="" I '$D(^HULP($J,"VVL")) S R=VTB G VRP4 K ^("VRP"),DL,VRP(9) D SA1 S DL(1)="VRP" S VNR=0,X=^("VVL",VVL(6)),IAB=$P(X,D,9,10),IABX=$E(IAB,1,$L(IAB)-1) VRP1 S IAB=$N(^Verv(LC,"IA",VRF,IAB)) G VRP3:$E(IAB,1,$L($P(IAB,D,1,2))-1)'=IABX S FAKRF=$P(IAB,D,3),LRF=$P(IAB,D,4),K=^Verv(LC,"D",VRF,FAKRF,LRF),VRP="" I $D(^(LRF,"V")) S VRP=^("V") S R=$P(K,D,7) I R,$D(^KPR(R,0)) S R=$P(^(0),D,1) S:$P(X,D,7) R=R_"*" G VRP2 S R=0_$P(K,D,8) I $D(^BLProd("D",R)) S R=$P(^(R),D,1)_"#" G VRP2 S R="*** "_R_" ***" VRP2 G VRP1:'$L(VRP) S R=R_D_$P(K,D,11)_D_$P(K,D,13) S R=R_D_$P($P(VRP,D,1),U,1)_D_$P($P(VRP,D,1),U,2)_D_$P($P(VRP,D,1),U,3) S VNR=VNR+1,^HULP($J,"VRP",VNR)=R,R="",$P(K,D,11)="",$P(K,D,13)="",VRP=$P(VRP,D,2,99) G VRP2 VRP3 D SA,WL^PROC I '$D(^HULP($J,"VRP")) D O2 D SL^PROC,CL^PROC1 VRP4 Q ; ; Detail DET I '$D(^HULP($J,"VVL")) S R=VTB,DET=0 G DET2 D:U4'="O" SA S DL(3)=3,FP=2101 I '$L(DET) W @F,@F1 I "DO"[U4,'$L(DET) S FP=2101 W @F,@FMTI,$P($T(T5),U,2),$J("",80-$L($P($T(T5),U,2))),@FMTi I $L(DET) S FP=2201 W @F,@F2 S (R,RHP)=^("VVL",VVL(6)),FL(1)=$P($T(T6),U,2,999),FL(2)=2201,FL(3)=R D:"DO"[U4 FL^PROC I "DO"[U4,'$L(DET) S FP=2301 W @F,@FMTI,$P($T(T7),U,2),$J("",80-$L($P($T(T7),U,2))),@FMTi I $L(DET) S FP=2401 W @F,@F2 S TR=$P(RHP,D,11),AB=-1,DET=0 DET1 S AB=$N(^KTO3(TR,AB)) I AB'=-1,$P(AB,D,2)'=$P(FL(3),D,10) G DET1 I AB=-1 D:U4'="V" O3 G DET2 S UZ=$P(AB,D,3),(R,RTO)=^KTO(5005,TR,UZ),FL(1)=$P($T(T8),U,2,999),FL(2)=2401 S AB=$P(FL(3),D,9,10),IAB=AB_D,IAB=$N(^Verv(LC,"IA",VRF,IAB)) S FL(3)=$P(R,D,25)_D_$P(R,D,25)_D_$P(R,D,3) S:$L($P(R,D,29)) $P(FL(3),D,1)=$P(R,D,29) S FAKRF=$P(IAB,D,3),LRF=$P(IAB,D,4),(R,RVV)=^Verv(LC,"D",VRF,FAKRF,LRF),AVW=$P(R,D,10),MRK=$P(R,D,13) S FL(3)=FL(3)_D_$P(R,D,11)_D_$P(R,D,10)_D_$P(R,D,13) S DET=1 I "DO"[U4 D FL^PROC DET2 Q ; ; Wijzigen ontvangen aantal AOW S DET="" D DET I 'DET S R=VTB,DET="" G AOW1 S FP=2201 W @F,@F1 S R="K\23\3\"_$P($T(T20),U,2)_"\"""_$P($T(T19),U,2)_+AVW_"""\6\\K?.N!(""PMDVO-""[K&($L(K)=1))" D R0^cA100 S:K="" K=+AVW I "PMDVO-"[K S R=K,DET="" G AOW1 I +$P(^Verv(LC,"D",VRF,FAKRF,LRF),D,11)'=K S $P(^(LRF),D,11)=K,$P(^HULP($J,"VVL",VVL(6)),D,5)=K,DL(1)="VVL" D EL^PROC S R="D",DET="" AOW1 Q ; ; Markering toelevering MRK S DET="" D DET I 'DET S R=VTB,DET="" G MRK2 S FP=2201 W @F,@F1 S FP=2303 W @F,$P($T(T21),U,2),!?2,$P($T(T22),U,2),$P($T(T19),U,2),$S(MRK="":"C",1:MRK) MRK1 K IK D IK^PROC1 S:R="ENTER" R="" I "CP"'[R G MRK1:"ADVO-"'[R S DET="" G MRK2 I $L(R),$P(^Verv(LC,"D",VRF,FAKRF,LRF),D,13)'=R S:R="C" R="" S $P(^(LRF),D,13)=R,$P(^HULP($J,"VVL",VVL(6)),D,6)=R,DL(1)="VVL" D EL^PROC S R="D",DET="" MRK2 Q ; ; Verwijderen VRW S DET="" I '$D(^HULP($J,"VVL")) S R=VTB G VRW4 D DET S FP=2201 W @F,@F1 S FP=2303 W @F,$P($T(T23),U,2) VRW1 K IK D IK^PROC1 S:R="ENTER" R="" I R'="V" G VRW3:R="",VRW1:"PMADO-"'[R,VRW4 S (LRF,LRFX)=VVL(6),R=^HULP($J,"VVL",LRF),AB=$P(R,D,9,10),IAB=AB_D I $P(R,D,1,2)'=D,$D(^(LRF+1)) S K=^(LRF+1) S:$P(K,D,1)="" $P(K,D,1)=$P(R,D,1) S:$P(K,D,2)="" $P(K,D,2)=$P(R,D,2) S ^(LRF+1)=K VRW2 S LRF=$N(^(LRF)) I LRF'=-1 S ^(LRF-1)=^(LRF),LRFX=LRF G VRW2 K ^(LRFX) S VVL(9)=VVL(9)-1 I '$D(^(VVL(6))),VVL(6)>1 S VVL(6)=VVL(6)-1 S IAB=$N(^Verv(LC,"IA",VRF,IAB)),FAKRF=$P(IAB,D,3),LRF=$P(IAB,D,4) I $P(IAB,D,1,2)=AB K ^(IAB),^Verv(LC,"D",VRF,FAKRF,LRF) I $N(^(-1))=-1 K ^Verv(LC,"D",VRF,FAKRF) S:VVL(6)