LVHCYB ;Update Cyber-bestanden vanuit LVH-bestanden [ 11/07/2001  2:43 PM ]
 ;
OPEN(Type,Ref) 
 If Type="LE" Do PUSH("LEV",Ref,"O") Set OK=2 Quit
 If Type="KL" Do PUSH("KL",Ref,"O") Set OK=2 Quit
 If Type="PR" Do PUSH("PR",Ref,"O") Quit
 If Type="OD" Do PUSH("ORD",Ref,"O") Quit
 If Type="UL" Do PUSH("UL",Ref,"O") Quit
 If Type="TO" Do PUSH("TL",Ref,"O") Quit
 Quit
 ;
WIJZ(Type,Ref) 
 If Type="LE" Do PUSH("LEV",Ref,"W") Set OK=2 Quit
 If Type="KL" Do PUSH("KL",Ref,"W") Set OK=2 Quit
 If Type="PR" Do PUSH("PR",Ref,"W") Quit
 If Type="OD" Do PUSH("ORD",Ref,"W") Quit
 If Type="UL" Do PUSH("UL",Ref,"W") Quit
 If Type="TO" Do PUSH("TL",Ref,"W") Quit
 Quit
 ;
VERW(Type,Ref) 
 If Type="LE" Do PUSH("LEV",Ref,"V") Set OK=2 Quit
 If Type="KL" Do PUSH("KL",Ref,"V") Set OK=2 Quit
 If Type="PR" Do PUSH("PR",Ref,"V") Quit
 If Type="OD" Do PUSH("ORD",Ref,"V") Quit
 If Type="UL" Do PUSH("UL",Ref,"V") Quit
 If Type="TO" Do PUSH("TL",Ref,"V") Quit
 Quit
 ;
PUSH(Type,Ref,Aktie) 
 New User
 If '$D(Ref) Set Ref=""
 If '$D(Aktie) Set Aktie=""
 Set User=$P($$USER^vhRtn1($I),D,3)
 Set:'$L(User) User=$I
 ;
 New R Set R=$$VERWERK(Type,Ref,Aktie,User)  Quit  ; Te verwijderen
 ;
 Do PUSH^Job("S OK=$$VERWERK^LVHCYB("""_Type_""","""_Ref_""","""_Aktie_""","""_User_""")")
 Quit
 ;
VERWERK(Type,Ref,Aktie,User) 
 ;
 Goto SVORIG ; Te verwijderen
 ;
 Set $ZT="ERROR^LVHCYB"
 Do INIT
 If $D(^[UCI,VOL]%)
 Do VVORIG
 Quit $$COPY(Type,Ref,Aktie,User)
 ;
COPY(Type,Ref,Aktie,User) 
 If $L(Type),"\LEV\KL\PR\ORD\TL\KLREF\KLPRIJS\KLPOT\KLAS\BI\"'[("\"_Type_"\") Quit 1
 New RetRef
 Do INIT
 Kill ^HULP($J)
 Set RetRef="^["""_$ZU(5)_"""]HULP("_$J_")"
C1 If Type="LEV" Job VERWERK^XLev(Ref,Aktie,RetRef,User)[UCI,VOL]::2 Else  Goto C1 ; Leverancier
 If Type="KL" Job VERWERK^XKlant(Ref,Aktie,RetRef,User)[UCI,VOL]::2 Else  Goto C1 ; Klant
 If Type="PR" Job VERWERK^XProd(Ref,Aktie,RetRef,User)[UCI,VOL]::2 Else  Goto C1 ; Produkt
 If Type="ORD" Job VERWERK^XOrd(Ref,Aktie,RetRef,User)[UCI,VOL]::2 Else  Goto C1 ; Order
 If Type="TL" Job VERWERK^XToe(Ref,Aktie,RetRef,User)[UCI,VOL]::2 Else  Goto C1 ; Toelevering
 If Type="KLREF" Job VERWERK^XKlPrRef(Ref,RetRef)[UCI,VOL]::2 Else  Goto C1 ; Klant produktenreferenties
 If Type="KLPRIJS" Job VERWERK^XPrijsU(Ref,RetRef)[UCI,VOL]::2 Else  Goto C1 ; Klant prijsuitzonderingen
 If Type="KLPOT" Job VERWERK^XPot(Ref,RetRef)[UCI,VOL]::2 Else  Goto C1 ; Klant potentieel
 If Type="KLAS" Job VERWERK^XKlas(RetRef)[UCI,VOL]::2 Else  Goto C1 ; Klant potentieel
 If Type="BI" Job VERWERK^XBimp(Ref,RetRef)[UCI,VOL]::2 Else  Goto C1 ; Bestelimpuls
C2 If '$D(^HULP($J)) Hang 1 Goto C2
 Set RetRef=^($J) Kill ^($J) Quit RetRef
 ;
SVORIG 
 New JobNr
 If '$D(^LVHCYB(0)) Set ^LVHCYB(0)=1
 Set JobNr=^LVHCYB(0),^LVHCYB(0)=JobNr+1
 Set ^LVHCYB(JobNr)=Type_"\"_Ref_"\"_Aktie_"\"_User_"\"_$H
 Quit 1
 ;
VVORIG 
 New Type,Ref,Aktie,User,JobNr,R
 Set JobNr=0
V1 Set JobNr=$O(^LVHCYB(JobNr))
 If JobNr="" Kill ^LVHCYB(0) Quit
 Set R=^LVHCYB(JobNr),Type=$P(R,"\",1),Ref=$P(R,"\",2),Aktie=$P(R,"\",3),User=$P(R,"\",4)
 Set R=$$COPY(Type,Ref,Aktie,User)
 If R Kill ^LVHCYB(JobNr)
 Goto V1
 ;
INIT 
 Set VOL="DEV",UCI="CYB"
 Quit
 ;
ERROR 
 If $ZE["<NOSYS>" Goto SVORIG
 Else  Goto ERROR^Job
 Quit