cT45 ;WEGSCHRIJVEN VERKOOPFAKTUREN ;%T45 ; [ 01/03/01 7:26 PM ] G 1 ; T0 ;Wegschrijven verkoopfacturen ; T1 ;vrij; 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 factures de vente ; T1F ;libre; T2F ;Année comptable\"-[] = einde programma jjjj[] = année spécifique [] = "; T3F ;Depuis n° de facture\"xxxxxx[] = facture spécifique [] = "; T4F ;Jusqu'au n° de facture\"xxxxxx[] = facture spécifique [] = "; T5F ;Seulements des factures qui n'ont pas été déjà envoyées\"[] = oui 1[] = toutes les factures"; T6F ;Description série de factures\"[] = "; T7F ;Année comptable : ;Depuis facture ;jusqu'à facture ;uniquement des factures qui n'ont pas été déjà envoyées;toutes les factures; T8F ;Depuis à Date Hr. Ecran Description Nombre ; ; T0E ;Registration sales invoices ; T1E ;free; T2E ;Fiscal year\"-[] = end program yyyy[] = particular year [] = "; T3E ;From invoice number\"xxxxxx[] = particular invoice [] = "; T4E ;Until invoice number\"xxxxxx[] = particular invoice [] = "; T5E ;Only invoices that have not yet been sent through\"[] = yes 1[] = all invoices"; T6E ;Description series invoices\"[] = "; T7E ;Fiscal year : ;From invoice ;until invoice ;only invoices that have not yet been sent through;all invoices; T8E ;From until Date Time Screen Description Quant. ; ; S1 S S2=$P(K,D,S3)*DEC,S4=" " S:S2<0 S2=-S2,S4="-" S S1=S1_$E(S2+1E11,2,12)_S4 Q ; 1 D S9 ; 2 S R="SRT\V\800\1" D ^cA336 S:SRT="." SRT="A" G YZ:K="-",3:"A"[SRT S K="V"_$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="VFNR"_SRT,FP=464 W @F,$P($T(@("T7"_QT)),U,2),JR,@F1 31 I SRT="A" S K="VFN",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:9 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_"VE(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_S4,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)_1_JR_$E(Q_" ",1,3)_S4,K=$E(K_$J("",99),1,128),^HULP("TR",Q,TNR,1)=K,I1=JR,(AF,I2)=0,K="S DEC=1E"_QD X K D S8 ; 5 S I1=$E(I1+.01_0,1,7),I2=FN1-.01 G 9:I1#1>.13 51 S I2=$O(@("^"_Q_"VE(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_"K1(I)")),$D(@("^"_Q_"KL(^(I),0)")) S KN=$P(^(0),D,2) S:$D(^(I2)) I=^(I2) 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,9,18 D S1 58 S S1=S1_$E($P(I,D,9)_$J("",3),1,3),S3=$P(I,D,4)*100+.5\1,S4=" " S:S3<0 S3=-S3,S4="-" 59 S S1=S1_$E(S3+1E11,2,12)_S4_2_(I1*100)_$E($P(K,D,20)+1000*100,5,6)_" ",TVG=TVG+3,^HULP("TR",Q,TNR,TVG-2)=S1 ; 6 S S1=11_$E(KN_$J("",28),1,28)_$E($P(K,D,14)_$J("",15),1,15)_$E($P(K,D,19)_$J("",83),1,83),^(TVG-1)=S1 61 S S2=$P(K,D,11),S3=D F S1=1:2 S S4=$P(S2,"#",S1) Q:'$L(S4) S $P(S3,D,S4+1)=$P(S3,D,S4+1)+$P(S2,"#",S1+1) 63 S S1=15 F S2=1:1:10 S S4=$P(S3,D,S2)*DEC,S5=" " S:S4<0 S4=-S4,S5="-" S S1=S1_$E(S4+1E9,2,10)_S5 65 S S2=$P(I,D,11) S:$L(S2)=8 S2=" "_S2 S S2=$E(S2,1,3)_$E(S2,5,6)_$E(S2,8,9),S3=$P(K,D,12),S3=$P(S3,"#",2)*DEC,S4=" " S:S3<0 S3=-S3,S4="-" 67 S ^(TVG)=S1_$E(S3+1E9,2,10)_S4_$J("",9)_$E(S2_$J("",7),1,7),S1="",S2=I2 ; 7 S S2=$O(@("^"_Q_"VE(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,"#",15)_$J("",30),1,30) S:$L(S1)>64 TVG=TVG+1,^HULP("TR",Q,TNR,TVG)=S1,S1="" G 71 79 S:$L(S1) TVG=TVG+1,^HULP("TR",Q,TNR,TVG)=S1_$J("",64) 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),$P(^(0),D,4,6)=TVG-7_"\\V"_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