cT290 ;WEGSCHRIJVEN AANKOOPFAKTUREN ;%T290 ; [ 11/26/93 3:03 PM ] G 1 ; T0 ;Wegschrijven aankoopfacturen ; T1 ;; T2 ;Boekjaar\"-[] = einde programma jjjj[] = bepaald jaar [] = "; T3 ;Vanaf factuurnummer\"xxxxxx[] = bepaalde factuur [] = "; T4 ;Tot factuurnummer\"xxxxxx[] = bepaalde factuur [] = "; T5 ;Enkel facturen die nog niet doorgezonden werden\"[] = ja 1[] = alle facturen"; T6 ;Omschrijving reeks facturen\"[] = "; T7 ;Boekjaar : ;Vanaf factuur ;tot factuur ;enkel facturen die nog niet doorgezonden werden;alle facturen; T8 ;Vanaf tot Datum Tijd Scherm Omschrijving aantal ; ; T0F ;Imputation documents d'achat ; T1F ;; T2F ;Année comptable\"-[] = fin du programme aaaa[] = année spécifique [] = "; T3F ;A partir de n° de document\"xxxxxx[] = document spécifique [] = "; T4F ;Jusqu'à n° de document\"xxxxxx[] = document spécifique [] = "; T5F ;Seulement les documents qui n'ont pas encore été envoyés\"[] = oui 1[] = tous les documents"; T6F ;Description de la série de documents\"[] = "; T7F ;Année comptable : ;Depuis document ;jusqu'à document ;seulement les documents qui n'ont pas encore été envoyés;tous les documents; T8F ;Depuis à Date Hr Ecran Description nombre ; ; T0E ;Wegschrijven aankoopfacturen ; T1E ;; T2E ;Boekjaar\"-[] = einde programma jjjj[] = bepaald jaar [] = "; T3E ;Vanaf factuurnummer\"xxxxxx[] = bepaalde factuur [] = "; T4E ;Tot factuurnummer\"xxxxxx[] = bepaalde factuur [] = "; T5E ;Enkel facturen die nog niet doorgezonden werden\"[] = ja 1[] = alle facturen"; T6E ;Omschrijving reeks facturen\"[] = "; T7E ;Boekjaar : ;Vanaf factuur ;tot factuur ;enkel facturen die nog niet doorgezonden werden;alle facturen; T8E ;Vanaf tot Datum Tijd Scherm Omschrijving aantal ; ; S1 S S2=$P($P(K,D,S3),"#",SS)*DEC,S4=" " S:S2<0 S2=-S2,S4="-" S S1=S1_$E(S2+1E11,2,12)_S4 Q ; 1 D S9 S BF=$P(@("^"_Q_"BA(39)"),D),VM(BF)=QD,R=$D(^(11,BF)),R="" 11 S R=$O(^(R)) I $L(R) S:'$D(VM(R)) VM(R)=+$P(^(R),D,7) G 11 ; 2 S R="SRT\A\800\1" D ^cA336 S:SRT="." SRT="A" G YZ:K="-",3:"A"[SRT S K="A"_$E(1000+SRT,2,4) 29 S FP=403 W @F,$J("",31),@F93,@F,@F92,$P(^(K),D),@F93 S FP=801 W @F,@F1 ; 3 S R="JR\22\3\"_$P($T(@("T2"_QT)),U,2)_"_DJ\4\\K?4N!(""-""[K)" D R0 G YZ:K="-" S:'K JR=DJ S B3="AFNR"_SRT,FP=464 W @F,$P($T(@("T7"_QT)),U,2),JR,@F1 31 I SRT="A" S K="AFN",B3=$O(@("^"_Q_"BA(JR,K)")) G 3:$E(B3,1,3)'=K 33 G 3:'$D(@("^"_Q_"BA(JR,B3)")) S FN2=^(B3)-1,FN1=0,K=$O(^(B3,0)) F K=1:1:10 I $D(^(K)) S FN1=$P(^(K),D,2)+1 35 D S8 S FORM=0,K=@("^"_Q_"BA(2)"),K=D_$E($P(K,D,2)+1_0,1,7)_D_$P(K,D,2)_D_K F S1=2:3 S B1=$P(K,D,2),(S1,B2)=$P(K,D,3),K=$P(K,D,4,99) Q:B1\1=JR!'$L(K) 36 I 'FN1 S S1=S1+.01 G 3:S1>B1 S:S1#1>.12 S1=S1+.88 S FN1=$O(@("^"_Q_"AA(S1,FN1)")) G 36 37 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"_FN1\6\\K?6N!(""-""[K)" D R0 G 3:K="-" S:K FN1=K S FP=1802 W @F,FN1 39 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"_FN2\6\\K?6N!(""-""[K)" D R0 S:K FN2=K G 37:K="-",39:FN210 S S1=S1-1 F I=2:1:10 S ^(I-1)=^(I) 47 S ^(S1)=FN1_D_FN2_D_DT_D_TD_D_$I_D_OM,K=@("^"_Q_"BA(18,0)"),K="00" F I=0:1 Q:'$D(^(I)) S K=K_$E(^(I)+100*100,2,5) 49 S K=$E(K_$J("",40),1,42)_2_JR_$E(Q_" ",1,3)_OM,K=$E(K_$J("",99),1,128),^HULP("TR",Q,TNR,1)=K_$C(13,10),I1=JR,(AF,I2)=0 X "S DEC=1E"_QD D S8 ; 5 S I1=$E(I1+.01_0,1,7),I2=FN1-.01 G 9:I1#1>.13 51 S I2=$O(@("^"_Q_"AA(I1,I2)")) G 5:I2>FN2!'I2 S K=^(I2) I $P(K,D,21)'=SRT&(SRT'="A")!($P(K,D,22)&'SW1) S I2=I2+.99 G 51 53 S $P(^(I2),D,22)=1,AF=AF+1,I=+$P(K,D,4),KN="" I $D(@("^"_Q_"L1(I)")),$D(@("^"_Q_"LE(^(I),0)")) S KN=$P(^(0),D,2) S:$D(^(I2)) I=^(I2) 54 S VM=$P(K,D,24),VB=$P(K,D,25) S:VM="" VM=$P(I,D,9),VB=$P(I,D,4) S:VM="" VM=BF,VB=$P(K,D,6) S QA=$G(VM(VM),2),SS=1 55 S S2=$P(K,D,2),S2=$E(S2,1,2)_$E(S2,4,5)_$E(S2,7,8),S1=$P(K,D,4)+1E7_$E($P(K,D,21)+1000,2,4)_$E(K,1)_I2_S2,S2=$P(K,D,3) 57 S S2=$E(S2,1,2)_$E(S2,4,5)_$E(S2,7,8),S1=S1_S2 F S3=6,7,10,8,99,99 D S1 58 X "S S3=1E"_QA S S1=S1_$E(VM_$J("",3),1,3),S3=$J(S3*VB,0,0),S4=" " S:S3<0 S3=-S3,S4="-" 59 S S1=S1_$E(S3+1E11,2,12)_S4_QA_(I1*100)_$E($P(K,D,20)+100,2,3)_" ",TVG=TVG+4,^HULP("TR",Q,TNR,TVG-3)=S1_$C(13,10) ; 6 S S1=11_$E(KN_$J("",28),1,28)_$E($P(K,D,18)_$J("",15),1,15)_$E($P(K,D,19)_$J("",83),1,83),^(TVG-2)=S1_$C(13,10) 61 S S1=13 F S3=13,11,12,9,17 D S1 63 S ^(TVG-1)=S1_$J("",66)_$C(13,10) 65 S S1=14 F S3=14,15,16,6,7,14,13,15 D S1 I S3=16 S SS=2 67 S ^(TVG)=S1_$J("",30)_$C(13,10),S1="",S2=I2,SS=1 ; 7 S S2=$O(@("^"_Q_"AA(I1,S2)")) G 79:S2\1'=I2 S K=^(S2) 71 S I=$P(K,D),K=$P(K,D,2,99) G 7:I="" S S3=$P(I,"#",4)*DEC,S4=" " S:S3<0 S3=-S3,S4="-" S S1=S1_20_$E($P(I,"#")_$J("",7),1,7)_$E(S3+1E11,2,12)_S4 73 S S3=$P(I,"#",6) S:'$L(S3) S3=" " S:$L(S3)<2 S3=S3_" " S S1=S1_S3,S3=$P(I,"#",5),S4=" " S:S3<0 S3=-S3,S4="-" 75 S S1=S1_$E(S3+1E10,2,11)_S4_$E($P(I,"#",8)_$J("",15),1,15)_$E($P(I,"#",9)_$J("",15),1,15) 77 S:$L(S1)>64 TVG=TVG+1,^HULP("TR",Q,TNR,TVG)=S1_$C(13,10),S1="" G 71 79 S:$L(S1) TVG=TVG+1,^HULP("TR",Q,TNR,TVG)=S1_$J("",64)_$C(13,10) S FP=2003 W @F,I2 S I2=I2+.99,FP=1872 W @F,AF G 51 ; 9 S ^HULP("TR",Q,TNR,TVG+1)=99000000+AF_$J("",120)_$C(13,10),$P(^(0),D,4,6)=TVG-7_"\\A:;A"_JR_SRT 91 S K=$O(@("^"_Q_"BA(JR,B3,0)")) F S1=1:1:11 Q:'$D(^(S1)) 93 S S1=S1-1,$P(^(S1),D,7)=AF G ^cA702:AF ; YZ Q ; R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 ; S8 S R="501\1980",RV="509#1909\518#1918\527#1927\536#1936\545#1945\570#1970",RH="701#780" S8A S FP=602 W @F,@F4,$P($T(@("T8"_QT)),U,2),@F5,@F1 D ^cA319 S I=$O(@("^"_Q_"BA(JR,B3,0)")),FP=802 S8B F I=1:1:10 I $D(^(I)) S S2=^(I),S1=$P(S2,D,7),$P(S2,D,7)=$J(S1,6) F S1=1:1:7 W @F,$P(S2,D,S1) S FP=FP+$P("9\8\9\12\7\24\31",D,S1) S8Z Q ; S9 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 Q ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84