KTDTLB G HD0 ;AFDRUKKEN HOOFDING TOELEVERINGEN ;Quit naar KTDTL, KTDTLA [ 08/07/2002   4:08 PM ]
 ;
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
 ;
BTWNR(K) 
 N U3
 D S1^cA248 W U3
 Q
 ;
HD0 W !!?(99+V),$J($P("VERVOLGT\A SUIVRE\FORTGESETZT\T.B.CONTINUED",D,TL),13),#
HD W !
HD1 F I=2,3 W ! I 'SW37 F Z=1:1:3 W $C(13),?(V+28),@(Q_"BA(99,I)")
HD2 F I=4,5 W !?V I 'SW37 W @(Q_"BA(99,I)")
HD3 W !?V W:'SW37 @(Q_"BA(99,6)")
HD4 F I=1:1:3 W $C(13),?(28+V),$P("BON\BON\BON\NOTE",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL)," : "
HD5 S R=TR_"\7\"_(28+V)_"\0" D R3 I UVN'=0 W "(",$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL),")"
HD6 W ?(73+V) W:$L(LA) LA," " W LN,!?V W:'SW37 @(Q_"BA(99,7)") W ?(73+V),LN2,!?V W:'SW37 @(Q_"BA(99,8)") W ?(28+V),$P("DATUM\DATE\DATUM\DATE",D,TL),?(34+V),": ",UI W:'$L(LN2) ?(73+V),LS
HD7 W !?V W:'SW37 @(Q_"BA(99,9)") W ?(73+V) W:$L(LN2) LS W:'$L(LN2) LP,"   ",LW
HD8 W !?V W:'SW37 @(Q_"BA(99,10)"),?(73+V) W:$L(LN2) LP,"   ",LW I '$L(LN2) W:$$LAND^vhRtn1(LL)'="BE" $$LAND^vhRtn1(LL,2)
HD9 W !?V W:'SW37 @(Q_"BA(99,11)") I $L(LN2) W:$$LAND^vhRtn1(LL)'="BE" ?(73+V),$$LAND^vhRtn1(LL,2)
HD10 W !?V W:'SW37 @(Q_"BA(99,12)") I LBN'?.N W ?40,$P("B.T.W. NR.\NO. T.V.A.\B.T.W. NR.\V.A.T. NBR",D,TL)," : " D BTWNR(LBN)
HD11 W !!?V G HD13:UZ=-1 W $P($T(T2),U,2),$C(13),?(2+V),$P($T(@("T"_(TL+2))),U,2),?(67+V),$P($T(@("T"_(TL+2))),U,3),?(76+V),$E("   ",1,3-$L(UVM)),$P($T(@("T"_(TL+2))),U,4),UVM
HD12 W ?(92+V),$E("   ",1,3-$L(UVM)),$P($T(@("T"_(TL+2))),U,5),UVM,?(106+V),$P($T(@("T"_(TL+2))),U,6),!?V,$P($T(T1),U,2)
HD13 S UVN=0
HDZ Q
 ;
HDD0 W !!?(99+V),$J($P("VERVOLGT\A SUIVRE\FORTGESETZT\T.B.CONTINUED",D,TL),13),#
HDD W !
HDD1 W $C(13),?(77+V) W:$L(LA) LA," " W LN
HDD2 W !
HDD3 F I=1:1:3 W $C(13),?(46+V),$P("BON\BON\BON\NOTE",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL)," : "
HDD4 S R=TR_"\7\"_(28+V)_"\0" D R3 I UVN'=0 W "(",$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL),")"
HDD5 W !
HDD6 W ?(46+V),$P("DATUM\DATE\DATUM\DATE",D,TL)," : ",UI
HDD7 G HD11
 ;
T1 ;:-------------:-------------------------------------------------:---------:--------------:--------------:-------:
T2 ;:             :                                                 :         :              :              :       :
T3 ;IDENTNUMMER   ARTIKEL OMSCHRIJVING;AANTAL;E PRIJS ; BEDRAG ; WEEK
T4 ;NO. IDENT.    ARTICLE DESCRIPTION; QUANT;PRIX UN ;MONTANT ; SEM.
T5 ;IDENTNUMMER   ARTIKEL BEZEICHNUNG; MENGE;E PREIS ; BETRAG ;WOCHE
T6 ;IDENTNUMBER   ARTICLE DESCRIPTION; QUANT; ONE PR ; AMOUNT ; WEEK
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36