cT4 ;VERWIJDEREN VERKOOPFAKTUREN ;%T3 ;go uit %T3 [ 05/15/96  12:03 PM ]
 ;
T0 ;Verwijderen verkoopfacturen ;
 ;
T0F ;Radiation des factures de vente ;
 ;
T0E ;Verwijderen verkoopfacturen ;
 G 3
 ;
S1 S I2A=1_BP*100,I2Z=I2A+.99,I2=$O(@("^"_Q_"AR(B,0)")),I2=I2A
S1A S I2=$O(^(I2)) I I2'="",I2[".",I2\1=I2A,I2<I2Z S L=^(I2) G S1A:L'[Y S L=$P(L,Y)_$P(L,Y,2),^(I2)=L G S1C
S1B S I2=1_BP*100_"V"_JRN I $D(^(I2)) S L=^(I2),$P(L,D,Z)=$P(L,D,Z)-BR(B),^(I2)=L
S1C S L=^(X),$P(L,D,BX)=$P(L,D,BX)-BR(B),^(X)=L,LOG=LOG+1,^HULP(boot,$J,LOG,B)=BR(B)
S1Z W $J(B,10) Q
 ;
3 L (@("^"_Q_"BA"),@("^"_Q_"AR"),@("^"_Q_"KL"),@("^"_Q_"VE"),@("^"_Q_"FA")):5 E  D TXT^cAFA1(14) G 29^cT3
31 S @%Q1=0 K ^HULP(boot,$J) S LOG=0,FNR=ENR-.01 K BA S A=$O(@("^"_Q_"BA(14,0)")) F A=0:1:7 S BA(A)=$P(^(A),D)_" "
33 S FNR=$O(@("^"_Q_"VE(BP,FNR)")) G 8:FNR="",33:FNR<ENR,33:FNR#1,8:FNR>LNR S L=^(FNR),LOG=LOG+1,^HULP(boot,$J,LOG,FNR)=L
35 S FC=$P(L,D),KC=$P(L,D,4),TTB=$P(L,D,6),NET=$P(L,D,7),BTW=$P(L,D,8),EGA=$P(L,D,9),LXT=$P(L,D,18),JRN=$P(L,D,21),FP=1103 W @F,@F1,FNR,!
37 K BR F K=.01:.01:.99 Q:'$D(@("^"_Q_"VE(BP,FNR+K)"))  S L=^(FNR+K),LOG=LOG+1,^HULP(boot,$J,LOG,FNR+K)=L F A=1:1 S B=$P(L,D,A) Q:B=""  S BR($P(B,"#"))=$P(B,"#",4)
39 I $D(@("^"_Q_"VF(FNR)")) S L=^(FNR),LOG=LOG+1,^HULP(boot,$J,LOG,FNR)=L K @("^"_Q_"VF(FNR)")
 ;
4 S X=KJ S:FC="F" X=X+.02 S Y="V"_FNR_D,Z=FC="F"+3 S B="" F A=1:1 S B=$O(BR(B)) Q:B=""  D S1:BR(B)
41 I BTW S B=BA(FC="C"+2),BR(B)=BTW D S1
43 I EGA S B=BA(FC="C"+4),BR(B)=EGA D S1
45 I LXT S B=BA(FC="C"+6),BR(B)=LXT D S1
47 I TTB S B=BA(FC="C"),BR(B)=TTB,X=KJ S:FC="C" X=X+.02 S Z=FC="C"+3 D S1
 ;
5 S I1=@("^"_Q_"K1(KC)") I $D(@("^"_Q_"KL(I1,FNR)")) K ^(FNR) S LOG=LOG+1,^HULP(boot,$J,LOG,FNR)=I1
51 S I2A=1_BP*100,I2Z=I2A+.99,I2=$O(@("^"_Q_"KL(I1,0)")),I2=I2A W !?2,KC," ",$P(^(0),D,2),!
53 S I2=$O(^(I2)) I I2'="",I2[".",I2\1=I2A,I2<I2Z S L=^(I2) G 53:L'[Y S L=$P(L,Y)_$P(L,Y,2),^(I2)=L
55 S X=KJ S:FC="C" X=X+.02 S Z=FC="C"+3 I FC="C" S NET=-NET,BTW=-BTW,EGA=-EGA,LXT=-LXT
57 S L=^(X),$P(L,D,BX)=$P(L,D,BX)-TTB,^(X)=L
59 S X=BP\1,Z=BP#1*100+1,L=^(X+.11),$P(L,D,Z)=$P(L,D,Z)-NET,^(X+.11)=L
61 S L=^(X+.01),$P(L,D,2)=$P(L,D,2)-NET,$P(L,D,3)=$P(L,D,3)-BTW-EGA,$P(L,D,4)=$P(L,D,4)-LXT,^(X+.01)=L
63 K @("^"_Q_"VE(BP,FNR)") F A=.01:.01:.99 Q:'$D(^(FNR+A))  K ^(FNR+A)
 ;
7 K @("^"_Q_"FB(FNR)") S I1="" F K=1:1 S I1=$O(@("^"_Q_"FA(I1)")) Q:I1=""  Q:$D(^(I1,FNR))
71 G 33:I1="" S LOG=LOG+1,^HULP(boot,$J,LOG,FNR)=I1,U1="U"
73 S U1=$O(@("^"_Q_"FA(I1,FNR,U1)")) I U1'="" S U2=+$E(U1,2,99) K @("^"_Q_"U1(U2,I1,FNR)") W $J(U1,10) G 73
 D RestoreFactuur^vhRestoreFactToBon(FNR) ; Opkuis Van Hoecke statistiek, historiek, ...
75 K @("^"_Q_"FA(I1,FNR)") G 33
 ;
8 Do WARN^vhTXTPOP("Gelieve de facturen uit de~PPOD te verwijderen a.u.b.","")
 S A=$P(@("^"_Q_"BA(KJ,""VFNR"")"),D),B=$E(A,1,2)*10000,SW=0
81 S A=A-1 F BP=M1(KJ):.01:M2(KJ) S SW=$D(@("^"_Q_"VE($E(BP_0,1,7),A)")) Q:SW
83 G 81:A>B&'SW S $P(@("^"_Q_"BA(KJ,""VFNR"")"),D)=A+1,@%Q1=1 L  G 9^cT3
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84