KOFTOFB ;AFDRUKKEN OFFERTES ;Quit naar KOFTOF,KOFTOFA [ 11/07/2001  9:52 AM ]
 ;
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 S K=K_$J("",$P(R,D,3)-$L(K))_$J(R0,R1)_R4_R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
HD0 W !! S K=$J($P("VERVOLGT\A SUIVRE\FORTGESETZT\T.B.CONTINUED",D,TL),117+V) W K,#
HD W !
HD1 F I=2:1:3 W ! I 'SW37 S K=$J("",28+V)_@(Q_"BA(99,I)") W K
HD2 F I=4,5 W ! I 'SW37 S K=$J("",V)_@(Q_"BA(99,I)") W K
HD3 W ! S K=$J("",V) S:'SW37 K=K_@(Q_"BA(99,6)")
HD30 S K=K_$J("",28+V-$L(K))_$P("OFFERTE\OFFRE\ANGEBOT\OFFERTE",D,TL)_" "_$P("NR. \NO.   \NR. \NBR.",D,TL)_": "
HD4 I UR'?.N S K=K_UR G HD5
HD40 S R=UR_"\7\"_(28+V)_"\0" D R3
HD5 S K=K_$J("",73+V-$L(K)) S:$L(KA) K=K_KA_" " S K=K_KN W K,! S K=$J("",V) S:'SW37 K=K_@(Q_"BA(99,7)")
HD50 I UVN'=0 S K=K_$J("",28+V-$L(K))_$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL) S:BLZ K=K_" ("_BLZ_")"
HD6 S K=K_$J("",73+V-$L(K))_KN2 W K,! S K=$J("",V) S:'SW37 K=K_@(Q_"BA(99,8)")
HD60 S K=K_$J("",28+V-$L(K))_$P("GELDIG OP  \VALABLE LE \GUELTIG DEN\VALID ON   ",D,TL)_": "_UI
HD62 S:'$L(KN2) K=K_$J("",73+V-$L(K))_KS W K,! S K=$J("",V) S:'SW37 K=K_@(Q_"BA(99,9)")
HD7 S:$L(VDT) K=K_$J("",28+V-$L(K))_$P("GELDIG TOT \VAL JUSQU A\GUELTIG BIS\VALID UNTIL",D,TL)_": "_VDT
HD70 S K=K_$J("",73+V-$L(K)) S:$L(KN2) K=K_KS S:'$L(KN2) K=K_KP_"   "_KW W K
HD8 W ! S K=$J("",V) S:'SW37 K=K_@(Q_"BA(99,10)") S K=K_$J("",28+V-$L(K))_$P("REFERTE\REFERENCE\VERWEISUNG\REFERENCE",D,TL)
HD80 S K=K_$J("",40+V-$L(K))_": "_UJ,K=K_$J("",73+V-$L(K)) S:$L(KN2) K=K_KP_"   "_KW I '$L(KN2) S:$$LAND^vhRtn1(KL)'="BE" K=K_$$LAND^vhRtn1(KL,2,TL)
HD9 W K,! S K=$J("",V) S:'SW37 K=K_@(Q_"BA(99,11)") I $L(KN2) S:$$LAND^vhRtn1(KL)'="BE" K=K_$J("",73+V-$L(K))_$$LAND^vhRtn1(KL,2,TL)
HD10 W K,! S K=$J("",V) S:'SW37 K=K_@(Q_"BA(99,12)") W K
HD11 W !! I UZ'=-1,UZ?.N S K=$J("",V)_$P($T(@("T"_(TL+2))),U,2),K=K_$J("",79+V-$L(K)) S:UVM="MTL" K=K_$J("",83+V-$L(K))
HD12 I UZ'=-1,UZ?.N S K=K_$P($T(@("T"_(TL+2))),U,3) S:UVM'="MTL" K=K_" "_$$MUNT^vhRtn1(UVM,1)
HD120 I UZ'=-1,UZ?.N S K=K_$J("",91+V-$L(K))_$P($T(@("T"_(TL+2))),U,4) W K
HD122 W ! I UZ'=-1,UZ?.N S K=$J("",V)_$P($T(T1),U,2) W K
HD13 S UVN=0,BLZ=BLZ+1
HDZ Q
 ;
HDD0 W !! S K=$J($P("VERVOLGT\A SUIVRE\FORTGESETZT\T.B.CONTINUED",D,TL),117+V) W K,#
HDD W !
HDD1 S K=$J("",77+V) S:$L(KA) K=K_KA_" " S K=K_KN W K
HDD2 W !
HDD3 S K=$J("",46+V)_$P("OFFERTE\OFFRE\ANGEBOT\OFFERTE",D,TL)_" "_$P("NR. \NO.   \NR. \NBR.",D,TL)_" : "
HDD4 S R=UR_"\7\"_(28+V)_"\0" D R3 W K
HDD5 W !
HDD6 S K=$J("",46+V)_$P("GELDIG OP\VALABLE LE\GUELTIG DEN\VALID ON",D,TL),K=K_$J("",59+V-$L(K))_": "_UI
HDD7 I UVN'=0 S K=K_"   "_$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL) S:BLZ K=K_" ("_BLZ_")"
HDD8 W K G HD11
 ;
T1 ;:-------------:-----------------------------------------------------------:----------------:--------:-------:--------:
T3 ;: IDENTNUMMER : ARTIKEL  -  OMSCHRIJVING                                  :;E PRIJS;: MINIM. :TERMIJN: VERPAK :
T4 ;: NO. IDENT.  : ARTICLE  -  DESCRIPTION                                   :;PRIX UN;: MINIM. : DELAI : EMBAL. :
T5 ;: IDENTNUMMER : ARTIKEL  -  BEZEICHNUNG                                   :;E PREIS;:MINDEST : TERMIN: V-PACK :
T6 ;: IDENTNUMBER : ARTICLE  -  DESCRIPTION                                   :; ONE PR;:M QUANT : DELIV :   PACK :
 ;