ECSQL ;e-Commerce SQL        [ 09/22/1999  7:52 AM ]
FIREUP Set ^FireUp(VALUE(1),VALUE(2))=VALUE
  Set VALUE="B"
  Quit
 
GETSCRN(UserId,KLNr,ScrnCode)  
  New (UserId,KLNr,ScrnCode)
  ; Oproep Job en wachten tot gedaan
  Kill ^EC("C",UserId,KLNr,ScrnCode)
  Do @(ScrnCode_"^ECFJOB(UserId,KLNr)")
  Quit 1
 
GETPLKT(UserId,KLNr,KortT)
  New (UserId,KLNr,KortT)
  Set D="\"
  ; Oproep Job en wachten tot gedaan
  Set PrijsKl=$P(^KKL(^KK1(KLNr),2),D,3)
  ;Set ScrnCode=$S(PrijsKl="P":"PP",1:"PI")
  Set ScrnCode="PI"
  Kill ^EC("C",UserId,KLNr,ScrnCode)
  Do KORT^ECPRIJSL(UserId,KLNr,ScrnCode,KortT)
  Quit 1
 
GETPLKL(UserId,KLNr,SortKey)  
  New (UserId,KLNr,SortKey)
  Set D="\"
  ; Oproep Job en wachten tot gedaan
  Set PrijsKl=$P(^KKL(^KK1(KLNr),2),D,3)
  ;Set ScrnCode=$S(PrijsKl="P":"PP",1:"PI")
  Set ScrnCode="PI"
  Kill ^EC("C",UserId,KLNr,ScrnCode)
  Do KLAS^ECPRIJSL(UserId,KLNr,ScrnCode,SortKey)
  Quit 1
 
KLCHECK(UserId,KLNr)
  New (UserId,KLNr)
  Set D="\"
  Set UserWW=$G(^ATK("IU",UserId)),UserName=$P(UserWW,D),WachtW=$P(UserWW,D,2)
  ; Controle van klant
  Set VALUE=0
  If $L(UserWW),$L(KLNr),$D(^KK1(KLNr)),'$$DISABLED(UserId) Do
  . Set R=^KKL(^KK1(KLNr),2)
  . Quit:$P(R,D,10)  ;Commercieel niet aktief
  . Set R=$G(^ATK("W",UserWW))
  . Set VALUE=KLNr=$P(R,D)
  . If 'VALUE,$P(R,D,4) Do  ;Multiple select toegelaten
  ..  Set SupVKLNr=$P(R,D)
  ..  If $D(^ATK(SupVKLNr,UserName,"K")) Do
  ...   Set VALUE=$D(^ATK(SupVKLNr,UserName,"K","K",KLNr)) ;Bepaalde klantentoegelaten
  ...   Quit:VALUE
  ...   Set Regio=$G(^ATK(SupVKLNr,UserName,"K","R"))
  ...   If Regio Set R=^KKL(^KK1(KLNr),0),VALUE=(D_Regio_D)[(D_$P(R,D,20)_D) ;Bepaalde regios toegelaten
  ..  Else  Set VALUE=1 ;Alle klanten toegelaten
  Quit "TEST" ; VALUE=1
 
DISABLED(UserId) 
  New R,Disabled,KLNr,UserWW,UserName
  Set UserWW=$G(^ATK("IU",UserId)),UserName=$P(UserWW,D)
  Set Disabled=0,R=$G(^ATK("W",UserWW)),KLNr=$P(R,D)
  Do:KLNr
  . Set Disabled=$G(^ATK(0,0,"A"))=0
  . Set:'Disabled Disabled=$G(^ATK(KLNr,0,"A"))=0
  . Set:'Disabled Disabled=$G(^ATK(KLNr,UserName,"A"))=0
  Quit Disabled
 
KLREF(UserId,KLNr,Toggle)    ; Veranderen van de klantreferentie
  ;Toggle = 1 : Wel togglen tussen geen en wel klantreferentie tonen
  ;       = 0 : niet getoggled opvragen status
  ;Return value "K" = Klantproduct referenties
  ;Return value "V" = Van Hoecke produktnaam
  New (UserId,KLNr,Toggle)
  Set D="\"
  Set UserWW=$G(^ATK("IU",UserId))
  Quit:UserWW=""
  Set SupKLNr=$P($G(^ATK("W",UserWW)),D,1)
  Quit:SupKLNr=""
  Set Status=$P($G(^ATK(SupKLNr,UserWW,"R")),D,1)
  If Toggle Do
  . Set Status='Status
  . Set $P(^ATK(SupKLNr,UserWW,"R"),D,1)=Status
  Set Return=""
  If $D(^PAKKET("IK",KLNr)) Do  ; Getoonde klant heeft pakketten
  . Set Return=$S(Status:"K",1:"V")
  Quit "TEST" ;Return
 
KLLOGON(UserId,KLNr) 
  New (UserId,KLNr)
  Set D="\"
  Set UserWW=$G(^ATK("IU",UserId)),UserName=$P(UserWW,D),WachtW=$P(UserWW,D,2)
  ; Opzetten van het logon-record
  Set ^ATK("L",$P($H,","),KLNr,UserWW,$P($H,",",2))=1
  Quit 1