KOFTOFI G 1 ;AFDRUKKEN OFFERTES ;Do naar KOFTOFA,KOFTOFB - Quit naar %F32 [ 08/16/2002  3:45 PM ]
 ;
HEAD1 ;"Aanspreking",$C(9),"Naam",$C(9),"AVW",$C(9),"Toenaam",$C(9),"Straat",$C(9),"Postkode",$C(9),"Gemeente",$C(9),"Land",$C(9),"Taal",$C(9),"KlMunt",$C(9),"Lvw",$C(9)
HEAD2 ;"Identnummer",$C(9),"Produkt",$C(9),"LT1",$C(9),"LT2",$C(9),"Kleur",$C(9),"Prijs",$C(9),"GO",$C(9),"Munt",$C(9),"Aantal",$C(9),"GRTVP",$C(9),"LVTermijn",$C(9),"MinBH",$C(9),"BstImp",$C(13)
 ;
S3 S UO=$$LOCASE^vhRtn1(UO),UOO=$$LOCASE^vhRtn1(UOO),PCO=$$LOCASE^vhRtn1(PCO)
 S $P(SEND,D,12,99)=PNR_D_PC_D_UO_D_UOO_D_PCO_D_$TR($J(UEP,0,2),".",",")_D_USP_D_$S(UVM="MTL":$$MUNT^vhRtn1(UMC,1),1:UMC)
 S SEND=SEND_D_UA_D_GVP_D_$S(ULT=".":$P("STOCK\STOCK\LAGER\STOCK",D,TL),1:ULT)_D_MBH_D
 I $L($G(PR)),$D(^KPBI("D",KC,PR)) S SEND=SEND_$P(^KPBI("D",KC,PR),D)
 F I=1:1:$L(SEND,D)-1 W $P(SEND,D,I),$C(9)
 W $P(SEND,D,$L(SEND,D)),$C(13) S SEND=""
S3Z Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 B 1 I '$D(HEAD) S HEAD=$P($T(HEAD1),U,2) W @HEAD S HEAD=$P($T(HEAD2),U,2) W @HEAD
 S UZ=100,(ATOT,STOT)=0
 S SEND=$$INITCAP^vhRtn1(KA)_D_$$INITCAP^vhRtn1(KN)_D_$$INITCAP^vhRtn1(KAV)_D_$$INITCAP^vhRtn1(KN2)_D_$$INITCAP^vhRtn1(KS)_D_KP_D_$$INITCAP^vhRtn1(KW)_D_$$LAND^vhRtn1(KL,2,TL)_D_KT_D_$$INITCAP^vhRtn1($$MUNT^vhRtn1(UVM,1))_D
 I KLV="00" S SEND=SEND_"F"
82 I $N(@("^"_Q_UGL_"(KC,US,UR,99999)"))'=-1 D ^KOFTOFD S UZ=100
9 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) I UZ=-1!(UZ'?.N) S @("^HBOU"_$J_"(UR)")="" G YZ
10 S U2=^(UZ),PR=$P(U2,D,2),UA=$P(U2,D,3),UEP=$P(U2,D,6),UBE=$P(U2,D,16),ULINE=$P(U2,D,17),UMC=$P(U2,D,22),PNV=$P($P(U2,D,23),"#",2),PGV=$P($P(U2,D,23),"#",3),MBH=""
 S ATOT=ATOT+UBE,STOT=STOT+UBE,GVP=""
 I $P(ULINE,"#",1)="KOFGRP" S:'$P(ULINE,"#",2) UEP=ATOT,(ATOT,STOT)=0 S:$P(ULINE,"#",2) UEP=STOT,STOT=0
100 S:'PNV PNV="" S:'PGV PGV="" I $L(PR) S GVP=PNV S:'GVP GVP=PGV
102 S USP=$E($P(U2,D,21)),ULT=$P(U2,D,25),UK=""
104 S (PNR,PC,PCO,UOO,MBH)=""
106 I '$L(PR) S UO=$P(U2,D,5) S:$P(ULINE,"#")="KOF1925"&('UA) UEP=$P(U2,D,16) S:$P(ULINE,"#")="KOF1925" PNR="-     ",PC="     -" D S3 G 9
11 G 21:'$D(@("^"_Q_"PR(PR,0)")) S X=^(0),PC=$P(X,D,1),X=^(2),PNR=$P(X,D,25),X=^($P("0\1\2\2",D,TL)),UO=$P(X,D,$P("2\22\2\1",D,TL))
12 S X=$E("    ",1,4-$L($E(PC,22,25)))_$E(PC,22,25)_" " I $D(@("^"_Q_"COL(X)")) S PCO=^(X,KT)
14 S X=@("^"_Q_"PR(PR,$P(""0\3\3\3"",D,TL))"),UOO=$P(X,D,$P("11\21\23\22",D,TL))
 S MBH="",X=$O(@("^"_Q_"PR(PR,""J"")")) I $E(X)="J" S X=^(X),MBH=$P(X,D,6)
140 S:KYW UK=$P(U2,D,7)
16 D S3
19 G 9
21 S PNR=$P(U2,D,20),PC=PR,UO=$P(U2,D,29),X=$E("    ",1,4-$L($E(PC,22,25)))_$E(PC,22,25)_" " I $D(@("^"_Q_"COL(X)")) S PCO=^(X,KT)
23 S:KYW UK=$P(U2,D,7) S (PNR,PC,PCO)="",UO=$P(U2,D,30) G 16
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 11.02.91 -  8 u 47