OFDULB G HD0 ;AFDRUKKEN HOOFDING UITLEVERINGEN ; Overlay van KFDUL [ 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-(TOP*35)),$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
HD02 I 'KRB&'$L(KX) F I=1:1:3 W $C(13),?73+V,@F85,$P("KONTANT\AU COMPTANT\KONTANT\KONTANT",D,TL),@F83
HD1 F I=2,3 W ! I 'SW37 F Z=1:1:3 W $C(13),?(V+28),@(Q_"BA(99,I)")
HD2 W !?V W:'SW37 @(Q_"BA(99,4)") I KNF'=KN&$L(KNF) F I=1:1:3 W $C(13),?73+V,$P("FAKT. AAN\FACTURE A\ANRECHNEN\INVOICE TO",D,TL)," : ",KNF
HD3 W !?V W:'SW37 @(Q_"BA(99,5)") I TOP=1 W $C(13),?28+V,$P("MAGAZIJNGEGEVENS BETREFFENDE\INFORMATION MAGASIN CONC.\LAGERANGABEN I.B.A.\WAREHOUSE INFORMATION CONC.",D,TL)
HD4 W !?V W:'SW37 @(Q_"BA(99,6)")
HD5 I HTYP F I=1:1:3 W $C(13),?28+V,$P("LEVERINGSBON\BON DE LIVRAISON\LIEFERSCHEIN\DELIVERY NOTE",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL)," : "
HD50 I 'HTYP F I=1:1:3 W $C(13),?28+V,$P("TERUGNAMEBON\BON DE RETOUR\GUTSCHEIN\RETURN NOTE",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL)," : "
HD6 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)
HD7 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
HD8 W !?V W:'SW37 @(Q_"BA(99,9)") W:'TOP ?28+V,$P(OPM,D,1) W ?73+V W:$L(KN2) KS W:'$L(KN2) KP,"   ",KW
HD9 W !?V W:'SW37 @(Q_"BA(99,10)") W:'TOP ?28+V,$P(OPM,D,2) W ?73+V W:$L(KN2) KP,"   ",KW I '$L(KN2) W:$$LAND^vhRtn1(KL)'="BE" $$LAND^vhRtn1(KL,2)
HD10 W !?V W:'SW37 @(Q_"BA(99,11)") W:'TOP ?28+V,$P(OPM,D,3) I $L(KN2) W:$$LAND^vhRtn1(KL)'="BE" ?73+V,$$LAND^vhRtn1(KL,2)
HD11 W !?V W:'SW37 @(Q_"BA(99,12)") W ?40 I KBN?.N!('$L(KIN)) G HD112 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 HD112
HD111 W $P("REG. NR.\NO. D'ENR.\REG. NR.\REG. NBR",D,TL)," : ",KIN
HD112 W ?73+V,KT1
HD12 W !!?V I TOP=0 W:UZ'=-1 $P($T(@("T"_(TL+4))),U,2) W !?V W:UZ'=-1 $P($T(T1),U,2)
HD13 E  W $P($T(@("T"_(TL+8))),U,2),!?V,$P($T(T3),U,2)
HD14 S UVN=0
HDZ Q
 ;
HDD0 W !!?(99+V-(TOP*47)),$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 I TOP=1 W $C(13),?46+V,$P("MAGAZIJNGEGEVENS BETREFFENDE\INFORMATION MAGASIN CONC.\LAGERANGABEN I.B.A.\WAREHOUSE INFORMATION CONC.",D,TL)
HDD4 F I=1:1:3 W $C(13),?(46+V+(TOP*$P("29\26\20\29",D,TL))),$P("LEVERINGSBON\BON DE LIVRAISON\LIEFERSCHEIN\DELIVERY NOTE",D,TL)," ",$P("NR.\NO.\NR.\NBR.",D,TL)," : "
HDD5 S R=UR_"\7\"_(28+V)_"\0" D R3
HDD6 W !
HDD7 W ?46+V,$P("DATUM\DATE\DATUM\DATE",D,TL)," : ",UI
HDD8 I UVN'=0 W "   ",$P("VERVOLG\SUITE\FORTSETZUNG\CONTINUE",D,TL)
HDD9 G HD12
 ;
T1 ;:-------------:-----------------------------------------------------------------------------:---------:---------:
T3 ;:-------------:---------------------------:---------:------------:
T5 ;: IDENTNUMMER : ARTIKEL  -  OMSCHRIJVING                                                    :  AANTAL :   SALDO :
T6 ;: NO. IDENT.  : ARTICLE  -  DESCRIPTION                                                     :  QUANT. :   REST. :
T7 ;: IDENTNUMMER : ARTIKEL  -  BEZEICHNUNG                                                     :   MENGE :    REST :
T8 ;: IDENTNUMBER : ARTICLE  -  DESCRIPTION                                                     :  QUANT. : REMAIN. :
T9 ;: IDENTNUMMER : ARTIKEL                   :  AANTAL : LIGGING    :
T10 ;: NO. IDENT.  : ARTICLE                   :  QUANT. : SITUE      :
T11 ;: IDENTNUMMER : ARTIKEL                   :   MENGE : LAGERPLATZ :
T12 ;: IDENTNUMBER : ARTICLE                   :  QUANT. : SITUATED   :
 ;
Z X ^cZ Q
ZZ ; 26.02.91 - 15 u 54