BLIMPSTS ;Importeren van het BLUM STS-PI (Produkt statistiek) [ 11/05/2001  2:15 PM ]
 Goto BEGIN
 ;
BEGIN ; 
 L ^BLProd:2 E  X ^cTXT(0,"N",46) G MENU
C1 ; Verwerking hoofding
 Set RecNaam="MSGB",RecInp=^BLImp(MsgId)
 Set RecCnt=$P(RecInp,"\",8)
 Set RecNr=-1  
 ; Record 11
C2 Do NextRec Goto C6:RecNr=-1
 G C2:RecType'=11 
Klant Set RecNaam="STS-PI-11" DO TF
 If PerTyp="H" Do TXT^vhINP("Deze statistiek is een HALF-JAARLIJKSE","Alleen maandelijkse statistiek kan verwerkt worden") Goto MENU
 Set OldKLNr=""
 Set Maand=$$INTDATE^vhDTyp($E(Maand,1,4)_"."_$E(Maand,5,6),"DM")
 ; Record 21
 Do NextRec Goto C6:RecNr=-1
 Goto Klant:RecType'=21
Prod Set RecNaam="STS-PI-21" Do TF
 If KTyp'="I" Goto C4
 If OldKLNr'=KLNr Do
 .Set TempID=""
 .For  Set TempID=$O(^BLStat("D",KLNr,TempID)) Quit:TempID=""  Do
 ..Kill ^BLStat("D",KLNr,TempID,Maand)
 .Set OldKLNr=KLNr
 .Set ^BLStat("M",KLNr,Maand)=$$EXTDATE^vhDTyp(Maand,"DM")
 Set:SQty="-" Qty=-1*Qty
 Set:SVal="-" Val=-1*Val
 Set ^BLStat("D",KLNr,IDNr,Maand)=Qty_D_Val
 ; Record 21 en volgende
C4 Do NextRec Goto C6:RecNr=-1
 Goto Klant:RecType=11,Prod:RecType=21
 Goto C4
C6 Goto MENU
MENU L  Q
 ; Ophalen volgend record
NextRec Set RecNr=$N(^BLImp(MsgId,RecNr)) Q:RecNr=-1  Set RecInp=^(RecNr),RecType=$E(RecInp,2,3) Q
 ; Verwerken record
 
TF SET Tptr=0,Tptr=$N(^BLRecDef(RecNaam,Tptr)),R=""
TLoop Q:Tptr=-1
 Set TRec=^(Tptr),Piece=$P(TRec,D,4),Local=$P(TRec,D,5),Type=$P(TRec,D,6)
 If 'Piece&(Local="") Set Tptr=$N(^(Tptr)) Goto TLoop
 Set Mem=$E(RecInp,$P(TRec,D,1),$P(TRec,D,2))
LTRIM ;If $E(Mem,1)=" " Set Mem=$E(Mem,2,999) Goto LTRIM
RTRIM If $E(Mem,$L(Mem))=" " Set Mem=$E(Mem,1,$L(Mem)-1) Goto RTRIM
 Set:Type="N" Mem=+$TR(Mem," ","") ; Numeriek
 Set:Type="D" Mem=$E(Mem,7,8)_"."_$E(Mem,5,6)_"."_$E(Mem,3,4) ; Datum
 If Piece Set $P(R,D,Piece)=Mem
 If Local'="" Set @Local=Mem
 Set Tptr=$N(^(Tptr)) Goto TLoop
 Q
 ; Kill oude informatie
Kold Set XX=$N(^BLProd("D",IDNr,X)),XX=X
Kold1 Set XX=$N(^(XX)) If $E(XX,1)=X Kill ^(XX) Goto Kold1
 Q
MAIL Set KLNr=""
 Set Mnd=$$CALCDATE^vhDTyp($H,"M",-1,"MD")
 Set LstMnd=""
 For  Set KLNr=$O(^BLBeri("K",KLNr)) Quit:KLNr=""  Do
 .Set:$O(^BLStat("M",KLNr,""),-1)>LstMnd LstMnd=$O(^BLStat("M",KLNr,""),-1)
 If LstMnd<Mnd Do  Quit  ; Vorige maand geen statistiek
 .Set MailLnk=$$SYSTEM^vhMAIL("","",$P($T(+1),"["),17,"Geen statistiek ontvangen, laatste maand : "_$$EXTDATE^vhDTyp(LstMnd,"DM"),,,"A")
 Set List=1
 Set List(1)="Volgende BLUM klanten hebben geen statistiek gehad sinds 3 maanden :~"
 Set Mnd=$$CALCDATE^vhDTyp($H,"M",-3,"MD") ; 3 maanden terug
 For  Set KLNr=$O(^BLBeri("K",KLNr)) Quit:KLNr=""  Do
 .Set LstMnd=$O(^BLStat("M",KLNr,""),-1)
 .Quit:LstMnd>Mnd
 .Set List=List+1
 .Set List(List)=KLNr_" "_$P(^BLBeri("K",KLNr),D)
 .Set $E(List(List),35,99)=" "_$S(LstMnd:$$EXTDATE^vhDTyp(LstMnd,"DM"),1:"Nog nooit statistiek ontvangen")_"~"
 Set:List>1 MailLnk=$$SYSTEM^vhMAIL("","",$P($T(+1),"["),17,.List,,,"A")
 Quit
 ;
 Q
Z X ^cZ Q
ZZ ; 10.06.91 - 10 u 17