cT435 ;INBOEKEN VERKOOPFAKTUREN ;%T43 ;overlay %T43* ; [ 08/14/01 2:15 PM ] G 1 ; T0 ;Inboeken verkoopfacturen ; T1 ;Factuurnummering niet gevonden ; ; T0F ;Inscription factures de vente ; T1F ;Numérotation des factures ne pas retrouvée ; ; T0E ;Accounting sales invoices ; T1E ;Invoicenumbers not found ; ; S1 S:$E(S1,$L(S1))="-" S1=-S1 S S1=S1/DEC S:'S1 S1="" Q ; S2 I $E(S1,$L(S1))=" " S S1=$E(S1,1,$L(S1)-1) G S2 S2Z Q ; 1 S I4=10,FP=2203,BF="BF" S:$D(@("^"_Q_"BA(39)")) BF=$P(^(39),D) W @F,@F1 S SWAN=$G(^(300)),I=$$MNTC^cAFE1(Q,JR),BF=$P(I,D),QD=$P(I,D,2) ; 2 S I4=$O(^HULP("RC",Q,TNR,I4)) G YZ:I4="" S K=^(I4),KC=+$E(K,3,8),FNR=$E(K,13,18),(K1,K2,S1)=0 G 2:$E(K,1,2)'=10 21 S:$D(^(I4+1)) K1=^(I4+1) S:$D(^(I4+2)) K2=^(I4+2) G 27:'$D(@("^"_Q_"K1(KC)")) S I1=^(KC) G 3:'FNR,27:FNR<100000!(FNR>989999) 23 S S1=$O(@("^"_Q_"VE(S1)")) I S1 G 23:'$D(^(S1,FNR)),27 25 I '$D(@("^"_Q_"VF(FNR)")) G 3:'$D(@("^"_Q_"KL(I1,FNR)")) 27 S I4=I4+3 29 S I4=$O(^HULP("RC",Q,TNR,I4)) G YZ:I4="" S K=$E(^(I4),1,2) G 29:K=20 S I4=I4-1 G 2 ; 3 S FC=$E(K,12),SRT=+$E(K,9,11),I4=I4+2,FDT=$E(K,19,20)_"."_$E(K,21,22)_"."_$E(K,23,24),VVD=$E(K,25,26)_"."_$E(K,27,28)_"."_$E(K,29,30) 31 S:'SRT SRT="" S:'FDT FDT=DT I 'VVD S R=FDT_D_$P(@("^"_Q_"KL(I1,0)"),D,18) D ^cA104 S VVD=R 32 S BP=$E(K,119,122)_"."_$E(K,123,124) I 'BP S BP=19_$E(FDT,7,8)_"."_$E(FDT,4,5) S:BP<1950 BP=BP+100 33 G 4:FNR 35 I '$D(@("^"_Q_"BA(JR,""VFNR""_SRT)")) S K=$P($T(@("T1"_QT)),U,2) D F0^cA337 G YZ S R="..." D ^cA337 37 S S1=$O(@("^"_Q_"VE(S1)")) I S1 G 37:'$D(^(S1,FNR)),35 39 G 35:$D(@("^"_Q_"VF(FNR)")),35:$D(@("^"_Q_"KL(I1,FNR)")) ; 4 S S1=$E(K,31,42) D S1 S (TTB,TTBF)=S1,S1=$E(K,43,54) D S1 S NET=S1,S1=$E(K,55,66) D S1 S KKB=S1,S1=$E(K,67,78) D S1 41 S BTW=S1,S1=$E(K,79,90) D S1 S EGA=S1,S1=$E(K,91,102) D S1 S LXT=S1,S1=$E(K2,123,128),DOMVVD="" 43 I S1?.N S DOMVVD=$E(S1,1,2)_"."_$E(S1,3,4)_"."_$E(S1,5,6) I 'DOMVVD S R=FDT_D_$P(@("^"_Q_"KL(I1,0)"),D,24) D ^cA104 S DOMVVD=S1 44 I DOMVVD,$E(K2,122)'=" " S DOMVVD=$E(K2,122)_DOMVVD 45 K MST S MST=0,S1=$E(K2,103,112),K2=$E(K2,3,102) D S1 S MST(11)=S1,B1=$E(K,103,118) ; uitbreiding ivm VM / VJ 14.08.01 S S1=$E(K,103,105) D S2 S VM=S1,MPAR=1,UPAR=$$OMREK^cAFE1(Q,1,VM,BF,"V",99) S S1=$E(K,106,117) D S1 S TTB=S1*DEC,I=$E(K,118) X "S I=1E"_I S TTB=TTB/I 47 F I=0:1:9 S S1=$E(K2,1,10),K2=$E(K2,11,999) I S1 D S1 S S2=PBT(I) S:'$D(MST(S2)) MST(S2)=0 S MST(S2)=MST(S2)+S1,MST=MST+S1 49 S S1=$E(K1,3,30) D S2 S KN=S1,S1=$E(K1,31,45) D S2 S COM=S1,S1=$E(K1,46,95) D S2 S OM1=S1 K ^HULP(boot,$J) ; 5 S I4=$O(^HULP("RC",Q,TNR,I4)) G YZ:I4="" S K=^(I4) 51 S S1=$E(K,1,2) G 6:S1'=20 S S1=$E(K,3,9),S2="" F I=1:1:7 S:$E(S1,I)?1N S2=S2_$E(S1,I) 52 S S2=S2_" ",S3=$E(K,22,23) S:$E(S3,2)=" " S3=$E(S3,1) S:S3=" " S3="" S S1=$E(K,10,21) D S1 53 I $E(S2)=0,'$D(@("^"_Q_"AR")@(S2,0)) S S2=$E(S2,2,9) G 53 ; VJ 14.08.01 54 S I=$E(S3) I I?1N,$D(PBT(I)) S S3=PBT(I)_$E(S3,2) 55 S S3=S2_"###"_S1_"##"_S3_"#",S1=$E(K,24,34) D S1 S $P(S3,"#",5)=S1,S1=$E(K,35,49) D S2 I $D(@("^"_Q_"AR(S2,0)")) S S3=S3_$P(^(0),D,3) 57 S S1=S3_"#"_S1,S3=S2_$P(S1,"#",6)_$P(S1,"#",8) S:$D(^HULP(boot,$J,0,S3)) $P(S1,"#",4)=$P(S1,"#",4)+$P(^(S3),"#",4) S ^(S3)=S1 59 S K=$E(K,65,128) G 51:$L(K),5 ; 6 S:$L(K)>99 I4=I4-1 W @F,FNR S R="TRANSACT" D ^cA348 S ^HULPE(TRANSACT,0)=$T(+0)_D_Q_D_"V"_D_SRT_D_FNR_D_JR_D_BP_D_FDT_D_VVD_D_I1 S @%Q1=0 K BX,BJ D ^cT686 61 S S1="VFNR"_SRT,@%Q1=1 S:'$D(@("^"_Q_"BA(JR,S1)")) ^(S1)=FNR S:$P(^(S1),D)