cT435 ;INBOEKEN VERKOOPFAKTUREN ;%T43 ;overlay %T43* ; [ 01/02/01 7:30 PM ] ; T0 ;Inboeken verkoopfacturen ; ; T0F ;Inscription factures de vente ; ; T0E ;Accounting sales invoices ; G 1 ; 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 ; 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 S:'$D(@("^"_Q_"BA(JR,""VFNR""_SRT)")) ^("VFNR"_SRT)=$E(BP,3,4)_"0001" S FNR=^("VFNR"_SRT),^("VFNR"_SRT)=FNR+1,S1=0 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=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) 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) 53 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 54 S I=$E(S3,1) 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 VM=BF,SW71=1,@%Q1=0 K BX,BJ D ^cT160 61 S S1="VFNR"_SRT,@%Q1=1 S:'$D(@("^"_Q_"BA(JR,S1)")) ^(S1)=FNR S:^(S1)