cT48H ; Klant / Leveranciersscherm via module H ; [ 08/10/01  9:46 AM ]
 ;
T0 ; Klant / Leveranciersscherm via module H ;
 ;
T0F ; Historique client/fournisseur par module H;
 ;
T0E ; Customer / Supplier screen via module H ;
 ;
1 K ^HULP(boot,$J+.01) 
 N ATL,BP,BPO,CREBF,CREMNT,DEBBF,DEBMNT,DOLH,FC,FDTC,FNR,INIT,JRNNR,LET,M,MND,MNT,MNT1,PARDAT,STUK,TEL,TWEE,UI1,UREF,VNR
 S $ZT="TRAP^cAN000"
11 S BPO="",VNR=1,UI1=KLI1,UREF=^DMC(KLUQC,KLUSC,"DATA","REF"),PARDAT=$P(@("^"_Q_"BA(""%T"",2)"),D,12)
13 S VAN=$P(B(1),D),TOT=$P(B(1),D,2),VANC=$$DC^cAFD1(VAN),TOTC=$$DC^cAFD1(TOT)
15 S MND=$E(VANC,1,6) S I2="1"_MND S LM=$E(TOTC,1,6)
17 S I2=$O(@UREF@(I2)) G 3:I2="",3:($E(I2,2,7)>$E(TOTC,1,6)),17:($E(I2,2,7)<$E(VANC,1,6)) S HIS=^(I2) S TEL=1,BP=$E(I2,2,5)_"."_$E(I2,6,7) 
19 I BP'=BPO S BPO=BP S BJ=$$BJ^cAFE1(Q,BP),MNT1=$P($$MNTC^cAFE1(Q,BJ),D)
 ;
2 S STUK=$P(HIS,D,TEL) G 17:STUK="" S EEN=$E(STUK),TWEE=$P(STUK,"#",2) S VNR=VNR+1
201 I EEN="A" S FNR=$P(STUK,EEN,2),GL="AA" D  G 29
2011 . S INH=@("^"_Q_GL_"(BP,FNR)"),JRN="",JRNNR=$P(INH,D,21) I JRNNR S JRNNR=$E("000",1,3-$L(JRNNR))_JRNNR,JRN=$$JRN^cAFO2(EEN,JRNNR)
2013 . S FC=$P(INH,D),FDT=$P(INH,D,2),DEBBF="",DEBMNT="",CREBF=$P(INH,D,6),CREMNT=$P(INH,D,25),FDTC=$$DC^cAFD1(FDT) Q:FDTC<VANC!(FDTC>TOTC)
2015 . I FC="C" S CREBF="",CREMNT="",DEBBF=$P(INH,D,6),DEBMNT=$P(INH,D,25)
2017 . S MNT=$P(INH,D,24),INIT=$P(INH,D,33),DOLH=$P(INH,D,32)
2018 . S REF=$P(INH,D,18),OMS=$P(INH,D,19) I KLUSC="AR" S REF=$$KL^cAFO1("LE",$P(INH,D,4))
20185 . I KLUSC="AR" D VENTIL
2019 . S ^HULP(boot,$J+.01,VNR,0)=FDT_D_JRN_D_FC_D_FNR_D_DEBBF_D_CREBF_D_REF_D_MNT_D_INIT_D_DEBMNT_D_CREMNT_D_DOLH_D_MNT1_D_OMS
 ;
203 I EEN="V" S FNR=$P(STUK,EEN,2),GL="VE" D  G 29
2031 . S INH=@("^"_Q_GL_"(BP,FNR)"),JRN="",JRNNR=$P(INH,D,21) I JRNNR S JRNNR=$E("000",1,3-$L(JRNNR))_JRNNR,JRN=$$JRN^cAFO2(EEN,JRNNR)
2033 . S FC=$P(INH,D),FDT=$P(INH,D,2),CREBF="",CREMNT="",DEBBF=$P(INH,D,6),DEBMNT=$P(INH,D,25),FDTC=$$DC^cAFD1(FDT) Q:FDTC<VANC!(FDTC>TOTC)
2035 . I FC="C" S DEBBF="",DEBMNT="",CREBF=$P(INH,D,6),CREMNT=$P(INH,D,25)
2037 . S MNT=$P(INH,D,24),INIT=$P(INH,D,29),DOLH=$P(INH,D,28)
2038 . S REF=$P(INH,D,14),OMS=$P(INH,D,19) I KLUSC="AR" S REF=$$KL^cAFO1("KL",$P(INH,D,4))
20385 . I KLUSC="AR" D VENTIL
20387 . B  S US=$P(INH,D,31) D:'$L(US) ZOEKUS
20389 . I $L(US) D FAREF ; ref. en omschrijving uit FA
2039 . S ^HULP(boot,$J+.01,VNR,0)=FDT_D_JRN_D_FC_D_FNR_D_DEBBF_D_CREBF_D_REF_D_MNT_D_INIT_D_DEBMNT_D_CREMNT_D_$S('PARDAT:DOLH,1:"")_D_MNT1_D_OMS
 ;
 ; rekening met maandhistoriek
 ;
204 I $E(STUK)'="B" D  G 17
2040 . S STUK=^(I2),LET=$E(I2,8)
2041 . S FDT=$P(STUK,D,2),FNR=$P(STUK,D),(INIT,FC)="",TWEE=$P(I2,LET,2),DOLH=$$DH^cAFD1(FDT)
20410 . S JRNNR="",FDTC=$$DC^cAFD1(FDT) Q:FDTC<VANC!(FDTC>TOTC)
20411 . I LET="V"!(LET="A") S JRNNR=$P(I2,LET,2)
20413 . I LET="B",$E(TWEE)="D" S JRNNR=$P(I2,"BD",2),LET="D"
20430 . S JRNNR=$E("000",1,3-$L(JRNNR))_JRNNR,JRN=$$JRN^cAFO2(LET,JRNNR)
2045 . I LET="B",$E(TWEE)'="D" S JRN=$$SIG^cAFA1("AR",TWEE_" ",110)
2047 . S (MNT1,MNT)=$P($$MNTC^cAFE1(Q,BJ),D),(DEBMNT,DEBBF)=$P(STUK,D,3),(CREMNT,CREBF)=$P(STUK,D,4)
2049 . S (REF,OMS)="Cum. "_$$MAAND^cAFO2(+$E(I2,6,7),QT,0)_" "_$P(FDT,".",3)
20490 . S ^HULP(boot,$J+.01,VNR,0)=FDT_D_JRN_D_FC_D_FNR_D_DEBBF_D_CREBF_D_REF_D_MNT_D_INIT_D_DEBMNT_D_CREMNT_D_$S('PARDAT:DOLH,1:"")_D_MNT1_D_OMS
 ;
205 S REK=$E($P(STUK,"#"),2,99),GL="FI"
2051 S INH=@("^"_Q_GL_"(BP,REK,TWEE)")
2053 S FDT=$P(INH,D,2),FNR=$P(INH,D,3),FC="",JRN=$P(INH,D,4),ZIJDE=$P(INH,D,6),MNT=$P(INH,D,23),FDTC=$$DC^cAFD1(FDT) G 29:FDTC<VANC!(FDTC>TOTC)
2055 S DEBBF=$P(INH,D,5),DEBMNT=+$P(INH,D,11),CREBF="",CREMNT=""
2057 I ZIJDE="C" S DEBBF="",DEBMNT="",CREBF=$P(INH,D,5),CREMNT=+$P(INH,D,11)
2059 S REF=$P(INH,D,9),INIT=$P(INH,D,29),DOLH=$P(INH,D,28),OMS=$P(INH,D,15)
2151 S ^HULP(boot,$J+.01,VNR,0)=FDT_D_JRN_D_FC_D_FNR_D_DEBBF_D_CREBF_D_REF_D_MNT_D_INIT_D_DEBMNT_D_CREMNT_D_DOLH_D_MNT1_D_OMS
 ;
29 S TEL=TEL+1 G 2 ; volgende stuk in historiekstring
 ;
 ; oproepen DMH 
3 D BS^cAN210("BH.HIS",0,0,0,"")
 ;
YZ Q
 ;
 ; bepalen van - datum
VAN(ATL) S MND=DJ_"."_DM S ATL=ATL+1
VANA S M=1 F  Q:M=ATL  S MND=MND-.01 S M=M+1 I '$P(MND,".",2) S MND=MND-.88
VANB S:$L(MND)<7 MND=MND_"0" S K="01."_$P(MND,".",2)_"."_$E(MND,3,4)
VANZ Q K
 ;
 ; bepalen ventilaties via factuur
VENTIL S IV=FNR K VENTIL
VENTILA F  S IV=$O(@("^"_Q_GL_"(BP,IV)")) Q:IV'["."  S INHIV=^(IV) D
VENTILB . F IVT=1:1 S STUKVT=$P(INHIV,D,IVT) Q:STUKVT=""  D
VENTILC .. S VTREK=$P(STUKVT,"#"),VTBEDR=$P(STUKVT,"#",4)
VENTILD .. S VENTIL(VTREK)=VTBEDR
 B  I EEN="A" D
 . S DEBBF=VENTIL(UI1),(CREBF,CREMNT)="",DEBMNT=$$OMREK^cAFE1(Q,DEBBF,MNT1,MNT,"A","")
 . I FC="C" S CREBF=DEBBF,CREMNT=DEBMNT,(DEBBF,DEBMNT)=""
 I EEN="V" D
 . S CREBF=VENTIL(UI1),(DEBBF,DEBMNT)="",CREMNT=$$OMREK^cAFE1(Q,CREBF,MNT1,MNT,"V","") 
 . I FC="C" S DEBBF=CREBF,DEBMNT=CREMNT,(CREBF,CREMNT)=""
VENTILZ Q
 ;
 ; ophalen referte en omschrijving uit FA
FAREF G YZ:'$D(@("^"_Q_"FA(US,FNR)"))   
 S UR=$O(@("^"_Q_"FA(US,FNR,""U"")")) G FAREFZ:$E(UR)'="U" S EEN=^(UR,1)
 I '$L(REF),$L($P(EEN,D,3)) S (REF,OMS)=$P(EEN,D,3)
FAREFZ Q
 ;
 ; zoektocht naar US-waarde betrokken factuur
ZOEKUS S USS=""
 F  S USS=$O(@("^"_Q_"FA(USS)")) Q:USS=""  Q:$D(@("^"_Q_"FA(USS,FNR)"))
 I $L(USS) S US=USS
ZOEKUSZ Q
 ;
Z X ^cZ Q
ZZ ; 06.08.01 - 17 u 28 * V7.87