cTI41 ;Exceptielijst verkoop ;%TI41 ; [ 03/22/00 10:06 AM ] G 1 ; T0 ;Exceptielijst verkoop; T1 ;Dit programma vergelijkt het verkoopdagboek met de intrastataangifte.; T2 ;Maand\"jjjj.mm[] = bepaalde maand"; T3 ;Toegestane afwijking\"xx.xx[] = % afwijking",!?2,"enkel documenten met een afwijking vanaf xx.xx% worden geprint"; T4 ;F\Nummer;2\Datum;2\Nr. en naam\C.\Dagboek;2\Intrastat;2\ Afw.; T5 ;C\Document\Document\van de klant\L.\\\%;2 ; T0F ;Exceptions des ventes; T1F ;Une comparaison entre le journal des ventes et la déclaration intrastat.; T2F ;Mois\"aaaa.mm[] = mois spécifique"; T3F ;Déviation acceptée\"xx.xx[] = % déviation",!?2,"seulement doc. avec une déviation à partir de xx.xx% seront repris"; T4F ;F\Numéro;2\Date;2\N° et nom\C.\Journal;2\Intrastat;2\ Dév.; T5F ;C\Document\Document\du client\P.\\\%;2 ; ; absolute waarde ABS(K) I K<0 S K=-K ABSZ Q K ; ; schermopbouw 1 ;D O^cA612(2,1,20,80,1,0,0,0),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00 D P^cA612(2,1,20,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) 11 W /CUP(2,3),$P($T(@("T1"_QT)),U,2),@F1 13 S A=$E(DM-1/100+DJ_0,1,7) I DM<2 S A=DJ-.88 15 S R="A\22\3\"_$P($T(@("T2"_QT)),U,2)_"\7\PCTR\\\\\\1" D R0 G YZ:K="-"!(K=",") 17 S (A,BP)=$S(K:K,1:A),FP=403 W @F,@F1,$P($P($T(@("T2"_QT)),U,2),D)," : ",BP ; ; afwijking 2 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\5\\$$W^cAFI2(K,2,0)&(K'>100)!(K=""-"")" D R0 G 15:K="-" 21 S AFW=+K W /CUP(6,3),$P($P($T(@("T3"_QT)),U,2),D)," : ",$J(AFW,0,2)," %",@F1 23 D ^cAN3223("","1#2","","") G 2:K="-",15:K="," 25 S BJ=$$BJ^cAFE1(Q,BP),I=$$MNTC^cAFE1(Q,BJ),BF=$P(I,D),QD=$P(I,D,2) 27 S BA39=@("^"_Q_"BA(39)") ; ; initialisatie 3 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C",HD(3)=D_BP_";C" 31 S TAB="2\11\20\39\42\57\72\79",TIT(1)=$P($T(@("T4"_QT)),U,2,99) 33 S TIT(2)=$P($T(@("T5"_QT)),U,2,99) F I=6,7 S $P(TIT(2),D,I)=BF_U_2 35 S TOP(1,1)=$P($P($T(@("T3"_QT)),U,2),D)_" : "_$J(AFW,0,2)_" %" ; ; VE -> INTR 4 S FNR="" 41 S FNR=$O(@("^"_Q_"VE(BP,FNR)")) I FNR="" G 7 43 I FNR["." G 41 45 S N=^(FNR),NET=$P(N,D,7),FDT=$P(N,D,2) 47 ; S BTWNR=$$SG^cAFA1("KL",$P(N,D,4),116),K=$E(BTWNR,1,2) I K?2U,$D(^BA(5,K)),K'=$P(BA39,D,4) G 5 S BTWNR=$$SG^cAFA1("KL",$P(N,D,4),116) I $$IC^cTI0(BTWNR,$$DCO^cAFD1($TR(BP_".01",".",""))) G 5 49 S FNR=FNR+.99 G 41 ; ; controle INTR 5 G 41:$P(N,D,34) S UZ=100,NIS=0 51 S UZ=$O(@("^"_Q_"INTR")@(BP*100,29,FNR,UZ)) I UZ="" G 55 53 S U2=^(UZ),NIS=NIS+$P(U2,D,7) G 51 55 S NV=$$ABS(NET-NIS),PV=$S(NET:NV/NET,1:1)*100 I PV VE 7 S FNR=$O(@("^"_Q_"INTR")@(BP*100,29,FNR)) I FNR="" G Y 71 I $D(@("^"_Q_"VE(BP,FNR)")) G 7 73 S U5=@("^"_Q_"INTR")@(BP*100,29,FNR,1),UZ=100,NIS=0,NET=0 75 S UZ=$O(^(UZ)) I UZ="" G 8 77 S U2=^(UZ),NIS=NIS+$P(U2,D,7) G 75 ; 8 S NV=$$ABS(NET-NIS),PV=$S(NET:NV/NET,1:1)*100 I PV