cT643 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/30/01  11:13 AM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
 ;
T0F ;Fact/n.c. achats ;
 ;
T0E ;Registration of incoming documents ;
 ;
 ; ophalen factuurnummer aankoopfactuur
1 S R="FNR\A\"_SRT_D_BJ_D_2 D ^cA337 I 'FNR G 2^cT642
11 S FP=515 W @F,FNR S @%Q1=0
 ;
 ; registratie factuur
2 D S1^cT6413 I $L($P(EXBA,D)) D @("S1"_$P(EXBA,D))
21 I $D(@("^"_Q_"BA(83)")),$L(^(83)) D @("S1"_^(83))
23 ;I $D(FDT) S $P(@("^"_Q_"LE(I1,2)"),D,15)=FDT D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG("^"_Q_"LE")
25 I $L(LREF) D S1
 ;
 ; boekhoudkundige verwerking
27 D ^cT645 S @%Q1=1
 ;
 ; link Intrastat
3 G Y:'$D(@("^"_Q_"BA(50)")),Y:$P(^(50),D)'[1 S K=$P(@("^"_Q_"LE(I1,0)"),D,16) D S1^cTI0
31 I OK S R=U_BP_U_FNR_U_U_12_U_13 D ^cTI0
 ;
Y I 'SWTOL G ^cT640
YA L -@("^"_Q_"LE(I1)")
YZ Q
 ;
 ; verbreken link aankoop
S1 S S3=""
S1A S S3=$O(@("^"_QAK_"TOA(KCAK,LREF,S3)")) G S1Y:S3="" S S1=$P(^(S3),D),S2=$P(^(S3),D,2) I S2="" S S2=QAK
S1B G S1A:'$D(@("^"_S2_"TOL(KCAK,S1,S3,1)")) S S4=$P(^(1),D,18) D  I VM(S4)'=VM(VM) G S1A
 . S:S4="" S4=BF S VM(S4)=$P($G(@("^"_S2_"BA(11,S4)"),S4),D)
S1C S $P(@("^"_S2_"TOL(KCAK,S1,S3,1)"),D,45)=FNR,$P(^(1),D,50)=1
 I $P($G(@("^"_S2_"TOL(KCAK,S1,S3,3)")),D,24) D
 . N USA,UQA,TAB,Q
 . S Q=S2
 . D DMS^cAN000("UQA","USA","TOL."_S1,1) I '$L(UQA)!'$L(USA) Q
 . I $L($G(^DMS(Q,"TOL."_S1,"DMA","W"))) S UQA=$P(^("W"),D),USA=$P(^("W"),D,2)
 . S TAB(145)=FNR,TAB(150)=1 D B^cFNA000(Q,USA,UQA,S3,"TAB")
 K @("^"_QAK_"TOA(KCAK,LREF,S3)")
 G S1A
S1Y I $O(^(S3))="" K @("^"_QAK_"TOA(KCAK,LREF)")
S1Z K S1,S2,S3,S4 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84