OFDORB ;AFDRUKKEN ORDERS ;Quit naar KFDOR,KFDORA [ 08/07/2002   3:37 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
 ;
HD0 W !!?(99+V),$J($P("VERVOLGT\A SUIVRE\FORTGESETZT\T.B.CONTINUED",D,TL),13),#
HD W !
HD01 I KRB F I=1:1:3 W $C(13),?(73+V),@F85,$P("REMBOURS\REMBOURSEMENT\RUCKZAHLUNG\REIMBURSEMENT",D,TL),@F83
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("ORDERBEVESTIGING\CONFIRMATION DE COMMANDE\AUFTRAGSBESTAETIGUNG\CONFIRMATION OF ORDER",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL)," : "
HD5 S R=UR_"\7\"_(28+V)_"\0" D R3 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)
HD6 W ?(73+V),KN2,!?V W:'SW37 @(Q_"BA(99,8)") W ?(28+V),$P("DATUM\DATE\DATUM\DATE",D,TL),?(34+V),": ",UI W:'$L(KN2) ?(73+V),KS
HD7 W !?V W:'SW37 @(Q_"BA(99,9)") W ?(28+V),$P("U/REF\V/REF\I/VER\Y/REF",D,TL)," : ",UJ,?(73+V) W:$L(KN2) KS W:'$L(KN2) KP,"   ",KW
HD8 W !?V W:'SW37 @(Q_"BA(99,10)"),?(73+V) W:$L(KN2) KP,"   ",KW I '$L(KN2) W:$$LAND^vhRtn1(KL)'="BE" $$LAND^vhRtn1(KL,2)
HD9 W !?V W:'SW37 @(Q_"BA(99,11)") I $L(KN2) W:$$LAND^vhRtn1(KL)'="BE" ?(73+V),$$LAND^vhRtn1(KL,2)
HD10 W !?V W:'SW37 @(Q_"BA(99,12)") W ?40 I KBN?.N!('$L(KIN)) G HD11 W $P("B.T.W. NR.\NO. T.V.A.\B.T.W. NR.\V.A.T. NBR",D,TL)," :" S R=KBN_"\12\52\0" D:+R R3 G HD11
HD100 W $P("REG. NR.\NO. D'ENR.\REG. NR.\REG. NBR",D,TL)," : ",KIN
HD11 W !!?V I UZ'=-1 W $P($T(@("T"_(TL+2))),U,2),$E("            ",1,12-$L(UVM)),UVM,"  : " W:'KYW "     " I KYW W $P("KRT%\REM%\ABZ%\DSC%",D,TL)
HD12 W:UZ'=-1 ?(106+V),$P($T(@("T"_(TL+2))),U,3) W !?V W:UZ'=-1 $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(KA) KA," " W KN
HDD2 W !
HDD3 F I=1:1:3 W $C(13),?(46+V),$P("ORDERBEVESTIGING\CONFIRMATION DE COMMANDE\AUFTRAGSBESTAETIGUNG\CONFIRMATION OF ORDER",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL)," : "
HDD4 S R=UR_"\7\"_(28+V)_"\0" D R3
HDD5 W !
HDD6 W ?(46+V),$P("DATUM\DATE\DATUM\DATE",D,TL)," : ",UI
HDD7 I UVN'=0 W "   ",$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL)
HDD8 G HD11
 ;
T1 ;:-------------:-----------------------------------------------------------:---------:--------------:------:-----:
T3 ;: IDENTNUMMER : ARTIKEL  -  OMSCHRIJVING                                  :  AANTAL :;: WEEK:
T4 ;: NO. IDENT.  : ARTICLE  -  DESCRIPTION                                   :  QUANT. :;: SEM.:
T5 ;: IDENTNUMMER : ARTIKEL  -  BEZEICHNUNG                                   :   MENGE :;:WOCHE:
T6 ;: IDENTNUMBER : ARTICLE  -  DESCRIPTION                                   :  QUANT. :;: WEEK:
 ;