CEURSEN ; Conversie naar Euro - Het senario ;[ 01/29/2002  10:05 AM ]
 Quit
 ;
DOC 
 ;In testfase:
 ;
 ;Copie van de conversiebestanden en -routines LVH,EUR naar LVH,DEV
 ; COPYCEUR^CEUR
 ;  Bestanden: ^DMA          --> ^dma
 ;             ^DMC          --> ^dmc
 ;             ^DMH          --> ^dmh
 ;             ^DMM          --> ^dmm
 ;             ^DMS          --> ^dms
 ;             ^cLOG         --> ^cwlog
 ;             ^KBA("MENU"   --> ^kba("MENU"
 ;             ^HULP("EURO"  --> ^HULP("EURO"
 ;  Routines: CEUR*
 ;
 ;Op PC cw
 ;
 ;In D:\MSM2 delete van ADM.BIJ en DATABASE.MSM
 ;Copie ADM.BIJ en DATABASE.MSM van D:\MSM naar D:\MSM2
 ;In D:\MSM delete van ADM.BIJ en DATABASE.MSM
 ;ADM.BIJ en DATABASE.MSM van backup naar D:\MSM
 ;
 ;MSM-I opstarten
 ; Do ^VGLABELE
 ;  Edit which Volume Group <0> ADM
 ;   2) Volume name ..................: ADM0 -> EURO
 ;   3) Volume group name ............: ADM  -> EUR
 ;  Rewrite to disk <NO> YES
 ;
 ; Do ^SYSGEN
 ;   3 - Edit Configuration Parameters
 ;     3 - Autostarts and Automounts
 ;       3 - Journal Autostart (NO)
 ;       5 - Automatic Partition Startup (Alles weg)
 ;      12 - Server Management Autostart <NO>
 ;    15 - Network Configuration
 ;       2 - Link Definition
 ;         1 - MSM Data Link (N1001)
 ;    17 - Global Defaults (Never journal)
 ;
 ; Do ^CSMENU
 ;   9 - Deactivate (Stop) Server Management Daemon
 ;
 ; Do ^cLOGON
 ;   In MGR en EUR Do ^cGCH voor alle globals Journal = Never journal
 ;   Kill ^cLOG("EUR")
 ;   Merge ^cLOG("EUR")=^|"LVH,DEV"|cwlog("EUR")
 ;
 ;MSM herstarten
 ;
 ;Op de console
 ; Do ^cA508
 ;   Op de Firmaselektie 98 (Menu DATA-M)
 ;     Op Menu DATA-M 1 (Systemen)
 ;       In Systemen "ADMIN1" naar "LVH,EUR"
 ;
 ;Stockeren huidige prijzen klanten (22.7.20)
 ;Conversie naar de nieuwe boekhouding
 ;  Data-M conversie naar nieuwe boekhouding (ongeveer 3 uur)
 ;  Muntpariteiten ESP en ITL de eenheid van 100 op 1 brengen
 ;  ^OLC draaien
 ;  Alle bestanden nazien
 ;   - zie Globals.Munt en Globals.Land
 ;  Vergelijken huidige prijzen van de klanten (22.7.21)
 ;
 ;Conversie naar Euro
 ;  ^OLC starten en laten draaien tijdens de conversie
 ;  De Euro-conversie draaien, Data-M en Van Hoecke (ongeveer 8 uur)
 ;  Alle bestanden nazien
 ;   - zie DOC^CEUR
 ;  Vergelijken huidige prijzen van de klanten (22.7.21)
 ;  ^KKAA20, ^KKAA17, ^KAKA8 en ^VKASGR1 starten
 ;  Schermen en lijsten nazien
Write ;#
 ;Definitief:
 ;
 ;De convesie zal in twee stappen gebeuren
 ;
 ;- Conversie naar de nieuwe boekhouding op 10 mei
 ;    Stockeren huidige prijzen klanten (22.7.20)
 ;    ^OLC draaien
 ;    Backup nemen op disk
 ;    Journaling afzetten
 ;    ^cSP - Er moet zeker 60 MB vrij zijn.
 ;           Eventueel Kill ^KKAAP (ong 10 MB)
 ;                          ^AKANAL (ong 10 MB)
 ;                          ^VKASGR (ong 2 MB)
 ;    De conversie draaien, Data-M en Van Hoecke (ongeveer 3 uur)
 ;    Muntpariteiten ESP en ITL de eenheid van 100 op 1 brengen (7.3)
 ;    Journaling terug opzetten
 ;    Vergelijken huidige prijzen van de klanten (22.7.21)
 ;    Backup nemen ('s nachts automatisch)
 ;
 ;- Conversie naar Euro op het einde bookjaar 2001 - 30.06.2001 op 03 Juli
 ;    Global save van ^COPYKFA naar map CW\MSMGS\COPYKFA.GLO op de server
 ;    Stockeren huidige prijzen klanten (22.7.20)
 ;    ^OLC draaien
 ;    Backup nemen op disk
 ;    Vhisie en E-Commerce loskoppelen
 ;    EWRECR stoppen
 ;    Caretaker stoppen
 ;    DDP stoppen
 ;    Journaling afzetten
 ;    ^cSP - Er moet zeker 150 MB vrij zijn.
 ;           Eventueel Kill ^KKAAP (ong 10 MB)
 ;                          ^AKANAL (ong 10 MB)
 ;                          ^VKASGR (ong 2 MB)
 ;                          ^kpr (ong 5 MB)
 ;                          ^COPYKFA (ong 50 MB)
 ;    Eventueel ^OLC starten en laten draaien tijdens de conversie
 ;    De conversie draaien, Data-M en Van Hoecke
 ;    (ongeveer 8 uur met OLC, 4 uur zonder OLC)
 ;    Journaling terug opzetten
 ;    DDP starten
 ;    Caretaker starten
 ;    EWRECR starten
 ;    Vhisie en E-Commerce terug linken
 ;    Nachtelijke jobs waarvan het starttijdstip verstreken is opstarten
 ;    Vergelijken huidige prijzen van de klanten (22.7.21)
 ;    *** Eventueel de uitzonderingen stockeren (CEURUTZ) om de
 ;        resterende prijsverschillen weg te werken.
 ;        Dit i.v.m. niet doorgevoerde schaduwprijzen.
 ;        Deuren ong 30, AL produkten ong 420 en de rest ong 290
 ;    Testen uitvoeren: Vhiesie, E-Commerce, WMS,...
 ;    Backup nemen ('s nachts automatisch)
 ;    ^OLC draaien
 ;    Global restore van map CW\MSMGS\COPYKFA.GLO op de server naar ^COPYKFA
 ;    Eventueel de conversie draaien van COPYKFA (Do RUN^CEURCOFA(1))
 ;
 ;
 ;********** Een pint gaan drinken op de goede afloop !!! **********
WRITE ;#
 ;***
 New L,R
 Write !,$ZN,!
 For L=1:1 Set R=$T(DOC+L) Quit:R=""!($P(R,";",2)="***")  Do
 .If $E(R)=" " Write !?5,$P(R,";",2,99)
 .Else  Xecute $P(R,";")_$P(R,";",2,99)
 Quit
 ;