KFU3 G YZ ;MODULE OMVORMEN VAR U3 [ 10/03/2001  8:47 AM ]
 ;
 ;KJ      = kredietlimiet
 ;KYW     = handel of industrie
 ;KVX, KV = munt van het order
 ;KX      = betalingsvoorwaarde
 ;KVA     = vervallen saldo
 ;KO      = eventueel BTW
 ;KPL     = prijsklasse
 ;KUIT    = heeft uitzonderingen
 ;KVA     = is klant van
 ;ODF     = datum oudste vervallen faktuur
 ;
1 S U3=$E(KC_" "_KN,1,$P(U2,U,9)) G YZ
 ;
2 S U3=$E(K,1,$P(U2,U,9)) S:KJ U3=U3_$J("",$P(U2,U,9)-$L(U3))_" KREDIETLIMIET" G YZ
 ;
3 S U3=$E(K_"   "_$P(^KKL(^KK1(KC),0),D,7),1,32)
 S U3=U3_$J("",36-$L(U3))_$J($S($P(B(1),D,56):"COMM:"_$J($P(B(1),D,56),2)_"%",1:""),8) G YZ
 ;
4 S U3=$P("NED\FRA\DTS\ENG",D,$F("NFDE",K)-1)_$J($S(KYW=0:KYW,KYW?.N:"HAN-"_KYW,1:"IND-"_KYW),8)_"  "_$J($S($D(KVX):KVX,1:KV),3)_"  "_$S(KX="":"CONTANT",1:$J(KX,7))_"  "_$J($S(KSA:KSA,1:""),17) G YZ
 ;
11 S U3=$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",KPL)-1)_KUIT,U3=U3_$J("",12-$L(U3))
 S U3=$S('KO:"    ",1:$P("BTW \VRIJ",D,K+1))_"  "_U3_$J($E(KVA,1,7),7)_"  "_$J(ODF,17) G YZ
 ;
YZ Q
 ;