KF4 G 1 ;MODULE UITLEVEREN ORDERS (SELEKTIE ORDERNRS.) ;Quit naar %F10,KF3 - Do naar KF5,%F32 [ 08/20/2003 10:53 AM ] ; T1 ;VRAAGT EEN SPECIALE BEHANDELING, WENST U DIT TE VERWERKEN T2 ;IS EEN CONTRACTORDER, WENST U DIT TE VERWERKEN T3 ;IS EEN AFROEPORDER, WENST U DIT TE VERWERKEN T4 ;J[] = ja N[] = neen T5 ;Wenst u order ; toch uit te leveren ; M1 S MSG=UOU_"BESTAND VAN DEZE KLANT IN GEBRUIK" G MY M2 S MSG="FAKTURATIEADRES VERSCHILLEND VAN VOORGAAND "_UOU G MY M3 S MSG="FAKTURATIEMUNT VERSCHILLEND VAN VOORGAAND "_UOU G MY M4 S MSG="LEVERINGSADRES VERSCHILLEND VAN VOORGAAND "_UOU G MY M5 S MSG="FAKTURATIEMUNT "_UVM_" NIET TOEGELATEN" G MY M6 S MSG="VOORGAAND "_UOU_$P("\ NIET",D,UEB+1)_" VOOR EXPORT DIT "_UOU_" "_$P("NIET\WEL",D,UEB+1) G MY M7 S MSG="LEVERINGSVOORWAARDE VERSCHILLEND VAN VOORGAAND "_UOU G MY M8 S MSG="PRIJZEN NETTO/BRUTO VERSCHILLEND VAN VOORGAANDE "_UOU G MY M9 S MSG="EEN MONSTER EN EEN ANDER "_UOU_" KAN MEN NIET MENGEN" G MY M10 S MSG="EEN PROFORMA EN EEN ANDER "_UOU_" KAN MEN NIET MENGEN" G MY M11 S MSG="DIT IS EEN MONSTER "_$P("ZONDER\MET",D,VWT["P"+1)_" PROFORMA, KAN NIET GEMENGD WORDEN" G MY M12 S MSG="DIT IS EEN PROFORMA "_$P("ZONDER\MET",D,VWT["P"+1)_" FAKTUUR, KAN NIET GEMENGD WORDEN" G MY M14 S MSG="DIT ORDER WERD VERZONDEN NAAR HET WMS" G MY M15 S MSG="EEN ORGALUX-ORDER, KAN NIET GEMENGD WORDEN" G MY M16 S MSG="VERPAKKING """_XVP_""" EN """_VERP_""" MOGEN NIET GEMENGD WORDEN" G MY M17 S MSG="DEZE KLANT WENST AVENTOS ORDERS APPART" G MY M18 S MSG="CONSUMENTCOMMISSIE VERSCHILLEND VAN VOORGAAND "_UOU G MY MY S FP=2403+F60 W @F,@F4,MSG," [] = OK ",@F5,@F0 R K MZ K MSG Q ; 1 L @("^"_Q_"OD(KC,US)"):2 E D M1 G YZ 6 K UTA,UTB,Beloofd S Beloofd="",Q15="^(""W 0.0""_UOR_UOD_$J(UR,6,0)_$J((UZ-100),3,0))" D S2 7 S UL=UD,Y=-1,(KCO,UMNT,XLA,ULV,USBX,VWTX,XOL,XVP,XAV)="",(COCO,XCOCO)=D,(UVB,NBP)=0 S EENOPERF=$P(@("^"_Q_"KL(I1,1)"),D,18),AventosAppart=($P(EENOPERF,";",2)="A"),EENOPERF=$P(EENOPERF,";") S:EENOPERF=3 EENOPERF=0 ; Meerdere orders per bon, een bon per factuur 70 I $N(^($N(@("^"_Q_"OD(KC,US,Y)"))))=-1 D D S3 G YZ:K="N" G 21:$D(@("^"_Q_"BA(11,UVM)")),YZ .S K=$N(^(Y)),X=^(K,1),KCN=$P(X,D,6),UEB=$P(X,D,14),UVM=$P(X,D,18),LVW=$P(X,D,21),USB=$P(X,D,25),UNBP=$P(X,D,27),VWT=$P(X,D,29) S:USB="" USB=" " .S X=^(3) S:'$L($P(X,D,1)) X="" S ORLU=$$ISORGAL^FLOW("O",K),VERP=$$ORDER^VERPAK(K) S:ORLU EENOPERF=1 .S ISAV=0 I AventosAppart S ISAV=$$BevatAventos^FLOW("O",K) I $D(KUR),KUR,EENOPERF S K=KUR K KUR I $D(@("^"_Q_"OD(KC,US,K)")) D D S3 I K'="N" G 21:$D(@("^"_Q_"BA(11,UVM)")) .S X=^(K,1),KCN=$P(X,D,6),UEB=$P(X,D,14),UVM=$P(X,D,18),LVW=$P(X,D,21),USB=$P(X,D,25),UNBP=$P(X,D,27),VWT=$P(X,D,29) S:USB="" USB=" " .S X=^(3) S:'$L($P(X,D,1)) X="" S ORLU=$$ISORGAL^FLOW("O",K),VERP=$$ORDER^VERPAK(K) S:ORLU EENOPERF=1 .S ISAV=0 I AventosAppart S ISAV=$$BevatAventos^FLOW("O",K) 8 I UL<12 S Y=$N(@("^"_Q_"OD(KC,US,Y)")) I Y'=-1 D S6 G 8 80 I $D(KUR),$D(UTA(KUR)) S K=KUR K KUR G 11 9 S R="K\22\3\GEEF OVER TE BOEKEN "_UOU_"NUMMER\""A[] = alle [] = " S:Y=-1 R=R_"einde selektie" S:Y'=-1 R=R_"vervolg" S R=R_"""\6\\K=""""!(K=""-"")!(K="","")!(K=""A"")!(K?.N)\\" D R0 I $L(K),K?.N,K'>99999 S K=$$SHORTNUM^FLOW("KOD","KO1",K) G 9:'K 11 G YZ:K="-"!(K=","),18:K="A",21:K=""&(Y=-1) I K="" K UTA S UL=UD D S2 G 8 12 G 9:'$D(@("^"_Q_"OD(KC,US,K)"))!$D(UTO(K)) S X=@("^"_Q_"OD(KC,US,K,1)") G 9:$P(X,D,25)="L" S KCN=$P(X,D,6),UEB=$P(X,D,14),UVM=$P(X,D,18),LVW=$P(X,D,21),USB=$P(X,D,25),UNBP=$P(X,D,27),VWT=$P(X,D,29),COCO=$P(X,D,55,56) S X=$P(@("^"_Q_"OD(KC,US,K,3)"),D,1,8) S:USB="" USB=" " S:COCO="" COCO=D S ORLU=$$ISORGAL^FLOW("O",K),VERP=$$ORDER^VERPAK(K) S:ORLU EENOPERF=1 S ISAV=0 I AventosAppart S ISAV=$$BevatAventos^FLOW("O",K) I USB="M",VWT'[VWTX D M11 G 9 I USB="P",VWT'[VWTX D M12 G 9 13 I USB="M"!(USBX="M"),USB'[USBX D M9 G 9 I USB="P"!(USBX="P"),USB'[USBX D M10 G 9 I '(KCO=""!(KCN=KCO)) D M2 G 9 I '(UMNT=""!(UMNT=UVM)) D M3 G 9 I '(XLA=""!(XLA=X)) D M4 G 9 I '$D(@("^"_Q_"BA(11,UVM)")) D M5 G 9 I '(UVB=0!(UVB=UEB)) D M6 G 9 I '(ULV=""!(ULV=LVW)) D M7 G 9 I '(NBP=0!(NBP=UNBP)) D M8 G 9 I '(XOL=""!(XOL=ORLU)) D M15 G 9 I '(XCOCO=D!(COCO=XCOCO)) D M18 G 9 I $L(XAV),XAV'=ISAV!XAV D M17 G 9 I '$$CHKMIX^VERPAK(XVP,VERP) D M16 G 9 130 D S3 S:ISAV EENOPERF=2 G 9:'EENOPERF,9:'$D(UTO),21 18 S Y=-1,KCO="",UL=UD-1 D S2 K UTO,UTA 19 S (K,Y)=$N(@("^"_Q_"OD(KC,US,Y)")) G 21:Y=-1 S X=@("^"_Q_"OD(KC,US,Y,1)") G 19:$P(X,D,25)="L" S KCN=$P(X,D,6),UEB=$P(X,D,14),UVM=$P(X,D,18),LVW=$P(X,D,21),USB=$P(X,D,25),UNBP=$P(X,D,27),VWT=$P(X,D,29),COCO=$P(X,D,55,56) S X=$P(@("^"_Q_"OD(KC,US,Y,3)"),D,1,8) S:USB="" USB=" " S ORLU=$$ISORGAL^FLOW("O",Y),VERP=$$ORDER^VERPAK(Y) S:ORLU EENOPERF=1 S ISAV=0 I AventosAppart S ISAV=$$BevatAventos^FLOW("O",Y) I USB="M",VWT'[VWTX G 19 I USB="P",VWT'[VWTX G 19 I USB="M"!(USBX="M"),USB'[USBX G 19 I USB="P"!(USBX="P"),USB'[USBX G 19 I $L(XAV),XAV'=ISAV!XAV G 19 20 D:KCO=""!(KCN=KCO)&(UMNT=""!(UMNT=UVM))&(XLA=""!(XLA=X))&(ULV=""!(ULV=LVW))&$D(@("^"_Q_"BA(11,UVM)"))&(UVB=0!(UVB=UEB))&(NBP=0!(NBP=UNBP))&(XOL=""!(XOL=ORLU))&(XCOCO=D!(XCOCO=COCO))&$$CHKMIX^VERPAK(XVP,VERP) S3 G 19:'EENOPERF,19:'$D(UTO) 21 K UTA S UL=UD,Y=-1 D S2 G 7:'$D(UTO) 23 I UL<12 S Y=$N(UTO(Y)) I Y'=-1 S UL=UL+1,FP=UL*100+1 W @F,$C(13),?(7-$L(Y)),Y,@FMTK,$P("\*",D,$P(@("^"_Q_"OD(KC,US,Y,1)"),D,25)+1),@FMTk S FP=FP+10 W @F,$P(^(1),D,2) S FP=FP+11 W @F,$P(^(1),D,3) G 23 25 S R="UVL\22\3\UITLEVEREN ORDERS\""O[] = geselekteerde orders volledig P[] = per order" S:Y'=-1 R=R_" [] = vervolg" S R=R_"""\1\\""-,OP""[K" D R0 26 G YZ:K="," I K="-" D S2 K UTO G 7:$N(^($N(@("^"_Q_"OD(KC,US,-1)"))))'=-1,YZ 27 I K="P",KBON S FP=2403 W @F,@F4,"AANDACHT !!! BON BIJVOEGEN !!! [] = ok ",@F5,@F0 R R 28 I K="" S UL=UD,FP=UL*100+1 W @F,@F1 G 23 D VERZWYZ G YZ:K="," I K="-" D S2 K UTO G 7:$N(^($N(@("^"_Q_"OD(KC,US,-1)"))))'=-1,YZ D ShowKennisAnker^KF3(KC,.UTO,1) 29 S URR=$$GETNUM^FLOW("KUL","KU1") 30 L (@("^"_Q_"OD(KC,US)"),@("^"_Q_"UL(KC,US,URR)")) 32 D COPY 39 S K="," ; YZ K Q15,UM,UTO,UUO,UTA,KCO,KCN,UMNT,FNR,I1,X,XLA,UVM,UEB,UVB,NBP,UNBP,VWTYP,USB,USBX,VWT,VWTX,Beloofd,XOL,ORLU,XVP,VERP,AventosAppart,XAV,ISAV,COCO,XCOCO Q ; R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99) R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6) R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5 R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0 R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F R0E G R0C R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E(" ",1,R6),@F,K R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q ; S1 S KCO=KCN,UMNT=UVM,UTO(K)="",UVB=UEB,XLA=X,ULV=LVW,NBP=UNBP,USBX=USB,VWTX=VWT S XOL=ORLU,XVP=$$ADDTYPE^VERPAK(XVP,VERP),XAV=ISAV,XCOCO=COCO D S4 S1Z Q ; S2 S FP=UD*100+1 W @F,@F1 S2Z Q ; S3 I USB="L" S K="N" G S3Z S KK=K,URR=UR,UR=K,XX=X I "\S\C\A\"[(D_USB_D) D S5 G S3Z:K="N" S K=$$BELOOFD(UR,UDT) G S3Z:K="N" D ^KF5B G S3Z:K="N" S K=KK,UR=URR,X=XX K KK,XX D S1 S3Z Q ; S4 G S4Z:'$D(UTA(K)) S FP=UTA(K)*100+9 W @F,@F5 S FP=UTA(K)*100+2 W @F,@FMTI,@FMTB,K,@F5 S FP=FP+$L(K) W @F,@FMTB,@FMTK,$P("\s\c\a\k\l\y\m\p",D,$F("SCAKLYMP",USB)),@FMTk,@FMTb S4Z Q ; S5 S R="K\22\3\"_UOU_" "_K_$P($T(@("T"_$S(USB="C":2,USB="A":3,1:1))),U,2)_"\"""_$P($T(T4),U,2)_"""\1\\""JN""[K&$L(K)" D R0 S5Z Q ; S6 Q:$P(@("^"_Q_"OD(KC,US,Y,1)"),D,25)="L" S UL=UL+1,UTA(Y)=UL,FP=UL*100+1 W @F,$C(13),?(7-$L(Y)),Y,@FMTK,$P("\s\c\a\k\l\y\m\p",D,$F("SCAKLYMP",$P(^(1),D,25))),@FMTk S FP=FP+10 W @F,$P(^(1),D,2) S FP=FP+11 W @F,$E($P(^(1),D,3),1,25) I $L($P(^(1),D,16)) S FP=FP+28 W @F,@FMTB,$P(^(1),D,16),@FMTb Q:'$D(UTO(Y)) S K=Y D S4 Q ; BELOOFD(ORDNr,LevDat) New R,KLNr,BelDat Set KLNr=$P(^KO1(ORDNr,"F"),D),R=^KOD(KLNr,"F",ORDNr,1),BelDat=$P(R,D,16),K="" If $L(BelDat),LevDat'=BelDat Do .Set FP=1901 Write @F,@F1 .Set FP=2003 Write @F,"Leveringsdatum : ",LevDat .Set FP=2103 Write @F,"Beloofde datum : ",$P(R,D,16) .Set R="K\23\3\"_$P($T(T5),U,2)_ORDNr_$P($T(T5),U,3)_"\"""_$P($T(T4),U,2)_"""\1\\""JN""[K&$L(K)" D R0 .Set FP=1901 Write @F,@F1 If $L(BelDat),K'="N" Do .Set BelDat=$$INTDATE^vhLib.DataTypes(BelDat) .If BelDat