CEURPRYS ; ;[ 07/04/2001  2:56 PM ]
 ;
 New
 Do INIT^vhTERMINA
 Write @F11,@F1
 Write !,"1[] = alles"
 Write !,"2[] = enkel deuren"
 Write !,"3[] = zonder deuren"
 Write !,"4[] = enkel aluminium"
 Write !,"5[] = zonder aluminium"
 Write !,"6[] = enkel deuren en aluminium"
 Write !,"7[] = zonder deuren en aluminium"
 Read !!,"Kies een lijst : ",ADA
 If ADA>0,ADA<8 Do
 .Read !!,"Wat is het maximum toegestane verschil in BEF ? ",Limiet
 .If 0[Limiet!Limiet Do
 ..Write !!,"   [] = scherm"
 ..Write !,"117[] = listing printer"
 ..Read !!,"kies een dev ? ",Dev
 ..If Dev'="",Dev'=117 Quit
 ..Set:'Dev Dev=0
 ..Set R=$P("ALL\DE\NODE\AL\NOAL\DEAL\NODEAL",D,ADA)_"(Dev,Limiet)"
 ..Do @R
 Quit
 ;
ALL(Dev,Limiet) 
 New (Dev,Limiet)
 Set Dev=$G(Dev,0)
 Do
 .New Dev,Limiet
 .Do INIT^vhTERMINA
 Do OPEN,LIST(Dev,Limiet,1),CLOSE
 Quit
 ;
DE(Dev,Limiet) 
 New (Dev,Limiet)
 Set Dev=$G(Dev,0)
 Do
 .New Dev,Limiet
 .Do INIT^vhTERMINA
 Do OPEN,LIST(Dev,Limiet,,1),CLOSE
 Quit
 ;
NODE(Dev,Limiet) 
 New (Dev,Limiet)
 Set Dev=$G(Dev,0)
 Do
 .New Dev,Limiet
 .Do INIT^vhTERMINA
 Do OPEN,LIST(Dev,Limiet,,0),CLOSE
 Quit
 ;
AL(Dev,Limiet) 
 New (Dev,Limiet)
 Set Dev=$G(Dev,0)
 Do
 .New Dev,Limiet
 .Do INIT^vhTERMINA
 Do OPEN,LIST(Dev,Limiet,,,1),CLOSE
 Quit
 ;
NOAL(Dev,Limiet) 
 New (Dev,Limiet)
 Set Dev=$G(Dev,0)
 Do
 .New Dev,Limiet
 .Do INIT^vhTERMINA
 Do OPEN,LIST(Dev,Limiet,,,0),CLOSE
 Quit
 ;
DEAL(Dev,Limiet) 
 New (Dev,Limiet)
 Set Dev=$G(Dev,0)
 Do
 .New Dev,Limiet
 .Do INIT^vhTERMINA
 Do OPEN,LIST(Dev,Limiet,,1,1),CLOSE
 Quit
 ;
NODEAL(Dev,Limiet) 
 New (Dev,Limiet)
 Set Dev=$G(Dev,0)
 Do
 .New Dev,Limiet
 .Do INIT^vhTERMINA
 Do OPEN,LIST(Dev,Limiet,,0,0),CLOSE
 Quit
 ;
OPEN 
 If 'Dev Write @FS132
 Else  Open Dev Use Dev
 Quit
 ;
CLOSE 
 If 'Dev Write @FS80
 Else  Write # Close Dev
 Quit
 ;
LIST(Dev,Limiet,All,Deur,Alum) 
 Set Dev=$G(Dev,0),Limiet=$G(Limiet),All=$G(All),Deur=$G(Deur),Alum=$G(Alum)
 Set:All (Deur,Alum)=""
 Set C=0
 Write !,"Klant           | Produkt                   | Mnt |       "
 Write "Oud |     Nieuw |  VMNT |    OudBEF |  NieuwBEF |  VBEF | Stuks | Aank dat"
 Write !,"----------------|---------------------------|-----|-------"
 Write "----|-----------|-------|-----------|-----------|-------|-------|---------"
 For I=1:1 Quit:'$D(^CEURPRYS(I))  Do  Quit:$G(X)="-"
 .Set R=^CEURPRYS(I),HoofdGr=$P(R,D)
 .If $L(Deur),'Deur,$E(HoofdGr,3,4)="DE" Quit
 .If $L(Deur),Deur,$E(HoofdGr,3,4)'="DE" Quit
 .If $L(Alum),'Alum,$E(HoofdGr,3,4)="AL" Quit
 .If $L(Alum),Alum,$E(HoofdGr,3,4)'="AL" Quit
 .Set Groep=$P(R,D,2),SubGr=$P(R,D,3),PRNr=$P(R,D,9),KLNr=$P(R,D,16),KortComp=$$COMPR^PRODUKT(PRNr)
 .Set Prod=$P(R,D,5),New=$P(R,D,6),Munt=$P(R,D,7),Eenheid=$P(R,D,8),Old=$P(R,D,12),Klant=$P(R,D,17),Versch=New-Old
 .Set OldBEF=$$MUNT^vhRtn1(Munt,5,Old,,"BEF"),NewBEF=$$MUNT^vhRtn1(Munt,5,New,,"BEF"),VersBEF=NewBEF-OldBEF
 .If Limiet Set X=VersBEF Set:X<0 X=-X Quit:X'>Limiet
 .Set Old=$$EXTNUM^vhDTyp(Old,10,".",2),New=$$EXTNUM^vhDTyp(New,10,".",2)
 .Set OldBEF=$$EXTNUM^vhDTyp(OldBEF,10,".",2),NewBEF=$$EXTNUM^vhDTyp(NewBEF,10,".",2)
 .Set Versch=$$EXTNUM^vhDTyp(Versch,7,".T",2),VersBEF=$$EXTNUM^vhDTyp(VersBEF,7,".T",2)
 .Set R=$G(^KKAAP(KLNr,HoofdGr,Groep,SubGr,KortComp)),Stuks=$P(R,D,3),AankDat=$P(R,D,5)
 .Set Stuks=$J($$EXTNUM^vhDTyp(Stuks,0,"0.T",0),7)
 .Set Eenheid=$S(Eenheid="E":" ",Eenheid="H":"%",1:Eenheid)
 .Write !,$E(Klant,1,15),?15," | ",Prod,?43," | ",Munt," |"
 .Write Old,Eenheid,"|",New,Eenheid,"|",Versch,"|",OldBEF,Eenheid,"|"
 .Write NewBEF,Eenheid,"|",VersBEF,"|",Stuks,"| ",AankDat
 .Do:'Dev
 ..Set C=C+1
 ..If C=10 Read X Set C=0
 Read:'Dev X
 Quit
 ;