KFTYP G 1 ; MODULE ORDERTYPE;KFTYP; [ 11/13/2002  4:41 PM ]
 ;
T1 ;[] = normaal      A[] = afroep    C[] = Contract   K[] = Klant(8)
T2 ;M[] = monster      P[] = proforma
T22 ;   T[] = transfert
T3 ;[] = normaal   M[] = monster   P[] = proforma
T4 ;MONSTER 
T5 ;MET- OF ZONDER PROFORMA-FAKTUUR
T6 ;[] = proforma   .[] = zonder
 ;
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 W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
TYPE N U2
 S U2=""
 F  S U2=$O(A(U2)) Q:U2=""  I $P(A(U2),U,16)="UR" Q
 I $L(U2) S U2=A(U2)
 I $P(U2,U,16)'="UR" Q
 S FP=$P(U2,U,5)*100+$P(U2,U,6)+$L(UR) W @F," "
 I $L(K) W @F,@FMTB,@FMTK,$P("\s\c\a\k\l\m\p\t",D,$F("SCAKLMPT",K)),@FMTb,@FMTk
 Q
MUNT 
 Q:KV=$P(B(1),D,18)!$L($P(B(1),D,22))
 S $P(B(1),D,18)=KV
 I $D(B(118)) S B(118)=KV
 S $P(B(1),D,25)=K
 S FP=518 W @F,$J(KV,3)
 Q
 ;
VWTYP(TYPE) 
 N K
 S R="K\22\3\" S:TYPE="M" R=R_$P($T(T4),U,2)
 S R=R_$P($T(T5),U,2)_"\"""_$P($T(T6),U,2)_"""\1\\""-.""[K" D R0
 Q $S(K="":"P",K=".":"F",1:K)
 ;
1 N VWTYP,Check
 S Check=$P(U2,U,11)
 S:KC'=7587 Check=$TR(Check,"T","") ; Transfertorder enkel voor Halux
 S R="K\22\3\"_$P(U2,U,1)_"\C1\"_$P(U2,U,9)_"\\"_Check D R0 I $L(K),"-,"[K G YZ
 I K="T",KC'=7587 D WARN^vhTXTPOP("Transfertorder enkel toegelaten voor HALUX","") G 1
 I K="M"!(K="P") S VWTYP=$$VWTYP(K) G 1:VWTYP="-"
 S UTYP=K I K="T",$G(UJ)="" S UJ=DT_" TRANSFERTORDER"
11 I $D(B(1)) D  I "MP"[K D CHANGE(K)
 .I $D(OrdTyp) S OrdTyp=K
 .S $P(B(1),D,29)=$TR($P(B(1),D,29),"FP","") S:$D(B(129)) B(129)=$TR(B(129),"FP","")
 .I K="M"!(K="P") S $P(B(1),D,29)=VWTYP_$P(B(1),D,29),B(129)=VWTYP_$G(B(129))
 .I '$D(B($P(U2,U,16))) D TYPE
 .Q:K=$P(B(1),D,25)
 .I K="L" N KV S KV="MTL" D MUNT Q
 .Q:$P(B(1),D,25)'="L"
 .S KV=$P(^KKL(^KK1(KC),0),D,11) S:KV="" KV=$$FADEF^vhRtn1() D MUNT,^KFTOT
 ;
YZ Q
 ;
SHOW(TYPE) 
 N K
 S:TYPE="Y" K=$$TXTPOP^FLOW("C&CNOSTOCKUPD")
 I TYPE="L",KV'="MTL" S KV="MTL" D ^KFTOT
 I TYPE="Y",'$G(CashECar) S CashECar=1 X @("^"_Q_UGL_"(0,US,0)") D FD I $L(USC) S USC=@("^"_Q_UGL_"(0,US,""USCCC"")")
 I TYPE'="Y",$G(CashECar) K CashECar X @("^"_Q_UGL_"(0,US,0)") S FP=170 W @F,@F2 I $L(USC) S USC=@("^"_Q_UGL_"(0,US,""USC"")")
 S K=$P("NORMAAL\SPECIAAL\CONTRACT\AFROEP\KLANT(8)\LEVERANC\MONSTER\PROFORMA\TRANSFERT",D,$F("SCAKLMPT",TYPE)) 
 I TYPE="M"!(TYPE="P") D
 .F  Q:$P(B(1),D,29)["P"!($P(B(1),D,29)["F")  S $P(B(1),D,29)=$P(B(1),D,29)_$$VWTYP(TYPE),B(129)=$G(B(129))_$P(B(1),D,29)
 .S K=K_$S($P(B(1),D,29)["P":"(p)",1:"(z)")
 Q K
 ;
FD 
 S K=$$ASKL^vhINP("FLOWORD","FAKTDAT")
 D VALDATE^vhDTyp(K,"DK") G FD:'%TC
 S (FDT,R)=$TR(%EXT,"-",".") D D^cT163 G FD:'OK
 X @("^"_Q_UGL_"(0,US,""UF"")")
 S FP=2201 W @F,@F1
 Q
 ;
CHKMOD() 
 New R
 If $O(@("^"_Q_UGL_"(KC,US,UR,100)"))="" Quit 1
 If $D(B(1)) Set R=$P(B(1),D,25)
 Else  Set R=$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,25)
 Set R="\\M\P\"[(D_R_D) Set:'R R=$$ASK^vhWACHTW("MANAGER",,,0)
 Quit R
 ;
CHANGE(T,P) 
 N R,X,UZ,UB
 S UZ=100
 Q:'$O(@("^"_Q_UGL_"(KC,US,UR,UZ)"))
 S UB="" S:T="" UB=$$BTW()
 F  S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) Q:'UZ  D
 .S R=@("^"_Q_UGL_"(KC,US,UR,UZ)") Q:'$L($P(R,D,9))
 .I T="" S:$P(R,D)="" $P(R,D)=PO S:$P(R,D,11)="" $P(R,D,11)=PO
 .S:'$L($P(R,D,8)) $P(R,D,8)=UB
 .S X=$P(R,D,14),X=$TR(X,"PF","")
 .I T'="" S X=$S($P(B(1),D,29)["P":"P",1:"F")_X
 .S $P(R,D,14)=X,@("^"_Q_UGL_"(KC,US,UR,UZ)")=R
 Q
 ;
BTW() 
 N R,UZ,UB
 I KB<1 Q 0
 S UZ=100,UB=""
 F  S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) Q:'UZ  S R=@("^"_Q_UGL_"(KC,US,UR,UZ)") I $L($P(R,D,9)),$L($P(R,D,8)) S UB=$P(R,D,8) Q
 I UB="" S UB=$$ASK^vhINP("Btw : ",1,7,"","",3,"","","","$L(X),$D(^KBA(18,X))")
 Q UB
 ;
C1 If $O(@("^"_Q_UGL_"(KC,US,UR,100)"))'="" W !?2,$P($T(T3),U,2) Q
 W !?2,$P($T(T1),U,2),!?1,$P($T(T2),U,2)
 W:KC=7587 $P($T(T22),U,2)
 Q
 ;