KOFDOFH ;AFDRUKKEN OFFERTES ;Quit naar KOFDOF,KOFDOFA [ 08/05/2002  10:07 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 W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
HD0 W !!?(104+V),$J($P("VERVOLGT\A SUIVRE\FORTGESETZT\T.B.CONTINUED",D,TL),13),#
HD W !
HD1 F I=2:1: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("OFFERTE\OFFRE\ANGEBOT\OFFERTE",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL),?(40+V),": " I UR'?.N W UR G HD5
HD40 S R=UR_"\7\"_(28+V)_"\0" D R3
HD5 W ?(73+V) W:$L(KA) KA," " W KN,!?V W:'SW37 @(Q_"BA(99,7)") I UVN'=0 W ?(28+V),$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL) W:BLZ " (",BLZ,")"
HD6 W ?(73+V),KN2,!?V W:'SW37 @(Q_"BA(99,8)") W ?(28+V),$P("GELDIG OP\VALABLE LE\GUELTIG DEN\VALID ON",D,TL),?(40+V),": ",UI W:'$L(KN2) ?(73+V),KS
HD7 W !?V W:'SW37 @(Q_"BA(99,9)") W:$L(VDT) ?(28+V),$P("GELDIG TOT\VAL JUSQU A\GUELTIG BIS\VALID UNTIL",D,TL),?(40+V),": ",VDT W ?(73+V) W:$L(KN2) KS W:'$L(KN2) KP,"   ",KW
HD8 W !?V W:'SW37 @(Q_"BA(99,10)"),?(28+V),$P("REFERTE\REFERENCE\VERWEISUNG\REFERENCE",D,TL),?(40+V),": ",UJ
HD80 W ?(73+V) W:$L(KN2) KP,"   ",KW I '$L(KN2) W:$$LAND^vhRtn1(KL)'="BE" $$LAND^vhRtn1(KL,2,TL)
HD9 W !?V W:'SW37 @(Q_"BA(99,11)") I $L(KN2) W:$$LAND^vhRtn1(KL)'="BE" ?(73+V),$$LAND^vhRtn1(KL,2,TL)
HD10 W !?V W:'SW37 @(Q_"BA(99,12)")
HD11 W !!?V I UZ'=-1,UZ?.N W $P($T(@("T"_(TL+2))),U,2)
HD12 I UZ'=-1,UZ?.N W:UVM'="MTL" $J($$MUNT^vhRtn1(UVM,1),15) W ?(97+V),$P($T(@("T"_(TL+2))),U,3)
HD120 W !?V I UZ'=-1,UZ?.N W $P($T(T1),U,2)
HD13 S UVN=0,BLZ=BLZ+1
HDZ Q
 ;
HDD0 W !!?(104+V),$J($P("VERVOLGT\A SUIVRE\FORTGESETZT\T.B.CONTINUED",D,TL),13),#
HDD W !
HDD1 W $C(13),?(77+V) W:$L(KA) KA," " W KN
HDD2 W !
HDD3 F I=1:1:3 W $C(13),?(46+V),$P("OFFERTE\OFFRE\ANGEBOT\OFFERTE",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL),?(58+V),": "
HDD4 S R=UR_"\7\"_(28+V)_"\0" D R3
HDD5 W !
HDD6 W ?(46+V),$P("GELDIG OP\VALABLE LE\GUELTIG DEN\VALID ON",D,TL)," : ",UI
HDD7 I UVN'=0 W "   ",$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL) W:BLZ " (",BLZ,")"
HDD8 G HD11
 ;
T1 ;:-------------:--------------------------------------------------------:--------:----------------:-----------:-------:
T3 ;: IDENTNUMMER : ARTIKEL  -  OMSCHRIJVING                               : AANTAL :;:    BEDRAG :TERMIJN:
T4 ;: NO. IDENT.  : ARTICLE  -  DESCRIPTION                                : QUANT. :;:   MONTANT : DELAI :
T5 ;: IDENTNUMMER : ARTIKEL  -  BEZEICHNUNG                                :  MENGE :;:    BETRAG : TERMIN:
T6 ;: IDENTNUMBER : ARTICLE  -  DESCRIPTION                                : QUANT. :;:    AMOUNT : DELIV :
 ;