SYNC ;NEW PROGRAM [ 09/11/2002  10:49 AM ]
 Kill  Do INIT^vhTERMINA
 Set $ZT="TRAP^SYNC"
 Do INIT^vhUSER()
 Quit:'sUser
 Lock +^SYNC("D"):1 Else  Quit
 Set ^SYNC("D")=""
 Write !,"POORT:",$I," USER:",sUser
 W !,"VERSLAG"
 Do VERSLAG^SYNCVERS(sUser) Set ^SYNC("D")=^SYNC("D")_"V"
 W " klaar"
 W !,"TIJD"
 Do TIJD^SYNCTIJD(sUser) Set ^SYNC("D")=^SYNC("D")_"T"
 W " klaar"
 Set ^SYNC("D")=^SYNC("D")_"U"
 Set ^SYNC("D")=$H ; Datum en uur van syncronisatie
 Lock -^SYNC("D")
 Lock +^SYNC("C")
 W !,"UPD"
 Do ^SYNCUPD 
 W " klaar"
 Lock -^SYNC("C")
 W !,"TIJDCOPY"
 Do TIJD^SYNCCOPY(sUser,sRemVol)
 W " klaar"
 Do ERROR ; Syncronisatie errors
 Quit
 
TRAP If $P($ZERROR,">")="<NOSYS" Quit  ; Niets aan de hand, alleen remote is niet gekend
 ZQuit  ; Ga naar de andere error-handler
 
LOCK ; Wordt opgeroepen van uit de menu %A501,%A508
 If K=99 Quit  ; Programmer mode
 Lock +^SYNC("D"):0
 If $T Lock -^SYNC("D") Quit  ; Niet gelockt onmiddellijk verdere gaan met menu keuze
 Set R1="" 
 Do STATUS
 Quit 
 
STATUS ; Display hoe ver de syncronisatie reeds geraakt is
 New RecD,T
 Set RecD=$G(^SYNC("D"))
 Set T(1)=$S(RecD["U":"*",1:" ")_" Update klanten en produkten"
 Set T(2)=$S(RecD["T":"*",1:" ")_" Agenda syncronisatie"
 Set T(3)=$S(RecD["V":"*",1:" ")_" Verslagen overbrengen"
 ;Set T(4)=$S(RecD["O":"*",1:" ")_" Offertes overbrengen"
 Set T(4)=$S(RecD["M":"*",1:" ")_" Mail syncronisatie"
 Set T=4
 Set T=$$WILD^vhTXTPOP("C;C","Even geduld AUB!","T")
 Quit
 
SSD Quit:'$$CHECKSSD
 Do ^cQMSMSSD
 Quit
 
CHECKSSD() ; Wordt opgeroepen van uit ^II, om na te gaan of de computer mag afgezet te worden.
 New T
 Lock +^SYNC:1
 If $T Lock -^SYNC Quit 1
 Set T(1)="Syncronisatie en/of copieren van de gegevens"
 Set T(2)="is nog steeds aan de gang !"
 Set T(3)="De komputer kan nog niet worden afgezet !"
 Set T=3
 If $I=1 Do  ;Console
 .Write @F11,@F1
 .Write !!,"Even geduld AUB!",!!
 .For T=1:1:T Write !,"   ",T(T)
 .Write !!,"Druk op enter om verder te gaan",!!
 .Read T
 Else  Set T=$$WILD^vhTXTPOP("C;C","Even geduld AUB!","T")
 Quit 0
 
ERROR 
 Set Dat=+$G(^SYNC("ERR"))
 Set:'Dat Dat=$H-1
 ;Do CHKUTL^vhLVHERR(Dat)
 Set ^SYNC("ERR")=$H ; Laatste keer errors gecontroleerd
 Quit