cT3 ;VERWIJDEREN VERKOOPFACTUREN ;%T3 ;go naar %T4 [ 04/14/00 10:47 AM ] G 1 ; T0 ;Verwijderen verkoopfacturen ; T1 ;Dit programma verwijdert de facturen ook uit de boekhouding; T2 ;Boekingsmaand\"jjjj.mm[] = bepaalde maand [] = "_A_" -[] = einde programma"; T3 ;Eerste te verwijderen document\"xxxxxx[] = nummer document [] = "_A; T4 ;Laatst te verwijderen document\"xxxxxx[] = nummer document [] = "_A_" I[] = idem als voorgaand"; T5 ;Bevestiging\"V[] = verwijderen ,[] = hernemen"; T6 ;Verwijderen\"V[] = definitief verwijderen ,[] = hernemen"; T7 ;Deze factuur werd niet in de gegeven maand geboekt [] = ok ; T8 ;Plaats breed papier op de printer en schakel hem aan\"[] = ok"; T9 ;Er werd niets verwijderd [] = ok ; T10 ;blz :; T11 ;Voeg deze lijst bij de controlelijst van de boekhouding; T12 ;Gelieve het programma 'Controle van de boekhouding' op te starten; T13 ;en stuur het resultaat, samen met deze lijst, naar DATA-M ! ! !; ; T0F ;Radiation documents de vente ; T1F ;Ce programme annule les documents aussi dans la comptabilité; T2F ;Mois comptable\"aaaa.mm[] = mois spécifique [] = "_A_" -[] = fin du programme"; T3F ;Premier document à radier\"xxxxxx[] = n° du document [] = "_A; T4F ;Dernier document à radier\"xxxxxx[] = n° du document [] = "_A_" I[] = egal au precedent"; T5F ;Confirmation\"V[] = radier ,[] = reprendre"; T6F ;Radiation \"V[] = radier définitivement ,[] = reprendre"; T7F ;Ce document ne fut pas enregistré dans la période mentionnée [] = ok ; T8F ;Mettez du papier large dans l'imprimante et mettez-la en marche\"[] = ok"; T9F ;Pas de documents radiés [] = ok ; T10F ;page:; T11F ;Ajoutez cette liste à la liste 'Contrôle de la comptabilité'; T12F ;Veuillez exécuter le programme 'Contrôle de la comptabilité'; T13F ;et envoyez les résultats, ainsi que cette liste, à DATA-M ! ! !; ; T0E ;Verwijderen verkoopfacturen ; T1E ;Dit programma verwijdert de facturen ook uit de boekhouding; T2E ;Boekingsmaand\"jjjj.mm[] = bepaalde maand [] = "_A_" -[] = einde programma"; T3E ;Eerste te verwijderen document\"xxxxxx[] = nummer document [] = "_A; T4E ;Laatst te verwijderen document\"xxxxxx[] = nummer document [] = "_A_" I[] = idem als voorgaand"; T5E ;Bevestiging\"V[] = verwijderen ,[] = hernemen"; T6E ;Verwijderen\"V[] = definitief verwijderen ,[] = hernemen"; T7E ;Deze factuur werd niet in de gegeven maand geboekt [] = ok ; T8E ;Plaats breed papier op de printer en schakel hem aan\"[] = ok"; T9E ;Er werd niets verwijderd [] = ok ; T10E ;blz :; T11E ;Voeg deze lijst bij de controlelijst van de boekhouding; T12E ;Gelieve het programma 'Controle van de boekhouding' op te starten; T13E ;en stuur het resultaat, samen met deze lijst, naar DATA-M ! ! !; ; 1 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 Do WARN^vhTXTPOP("De analytische boekhouding wordt niet aangepast!!!~Daarom mag deze software niet meer gebruikt worden.","") G YZ 11 S FP=1003 W @F,$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(4) W $$CR^cA334 W @F2 S FP=403 W @F F K=1:1:6 W @FDL 13 S BPB=@("^"_Q_"BA(2)"),BPA=$P(^(7),D),J3=$E(^(25)/100+BPA_0,1,7),BJ=$P(BPB,D,2)\1 S:J3#1>.12 J3=$E(J3+.88_0,1,7) 15 S M2(BJ)=$P(BPB,D,2),M1(BJ)=$E($P(BPB,D,3)+.01_0,1,7) S:M1(BJ)#1>.12 M1(BJ)=M1(BJ)+.88 17 S J4=BJ I J3>M2(BJ) S J4=J4+1,M2(J4)=J3,M1(J4)=$E(M2(BJ)+.01_0,1,7) S:M1(J4)#1>.12 M1(J4)=M1(J4)+.88 ; 2 S A=$E(DM/100+DJ_0,1,7),R="BP\6\3\"_$P($T(@("T2"_QT)),U,2)_"\7\\""-""[K!(K?4N1"".""2N&(K>BPA)&(K'>J3)&(K#1)&(K#1<.13))" 200 D R0 G YZ:K="-" I 'K S BP=A W BP 202 S KJ=$S(BP>M2(BJ):J4,1:BJ),K=M1(KJ) F BX=2:1:24 Q:K=BP S K=$E(K+.01_0,1,7) S:K#1>.12 K=K+.88 204 G 2:BX=20 S FP=650 W @F,@F1,"* ",KJ," * ",BX," *" S A=$P(@("^"_Q_"BA(KJ,""VFNR"")"),D)-1 21 S R="ENR\8\3\"_$P($T(@("T3"_QT)),U,2)_"\6\\""-""[K!(K?6N&K)" D R0 G 2:K="-" I 'K S ENR=A W ENR 22 W @F1 I '$D(@("^"_Q_"VE(BP,ENR)")) D F1 G 21 23 S R="LNR\9\3\"_$P($T(@("T4"_QT)),U,2)_"\6\\""-I""[K!(K?6N&(K'80") G 91:K="-" X F70 W @F80 S (BLZ,LN)=0,(I2,I3)="",NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) 93 S I2=$O(^HULP(boot,$J,I2)) I I2="" W $$FF^cA334 X F71 G Y 95 I $D(^(I2))#2 D:'LN HD W !,I2,?10,^(I2) S LN=LN+1 S:LN=50 LN=0 97 S I3=$O(^HULP(boot,$J,I2,I3)) G 93:I3="" 99 D:'LN HD W !,I2,?10,I3,?20,^(I3) S LN=LN+1 S:LN=50 LN=0 G 97 ; Y S FP=401 W @F,@F1,!!!?2,$P($T(@("T12"_QT)),U,2),!!?2,$P($T(@("T13"_QT)),U,2) D TXT^cAFA1(4) YZ Q ; HD W:BLZ $$FF^cA334 S BLZ=BLZ+1 W !,QN,?124,$P($T(@("T10"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?124,DT,!,NM3,?125,TD,! HDA I BLZ=1 W !,@F85,$P($T(@("T11"_QT)),U,2),@F83,! S LN=2 HDZ 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 ; F1 S FP=2403+F60 W @F,@F4,$P($T(@("T7"_QT)),U,2),@F5,@F2,@F0 R K Q ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84