KSCHADG ;Doorvoeren schaduwgegevens GAData Kostplaats ;KSCHAD; [ 10/27/2003  8:58 PM ]
 ;
 Set K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K)
 Write @F61,@F11,@F1,@F,@F5
 Set FP=202
 Write @F,@F4,K,@F5
 Set K=$$ASK^vhINP("D[] = DOORVOEREN SCHADUWGEGEVENS Kostplaats   -[] = hernemen : ",1,"",,,,,,"U","X=""D""","-")
 Do:K="D"
 . Set K=$$ASK^vhINP("D[] = DEFINITIEF DOORVOEREN SCHADUWGEGEVENS Kostplaats   -[] = hernemen : ",1,"",,,,,,"U","X=""D""","-")
 . Quit:K="-"
 . Set FP=301
 . Write @F,@F1
 . Do ##class(Prod.GAMeta.BT.KostPlaats).CopySchaduwAll()
 . Do ##class(Prod.GAMeta.BT.KostMateriaal).CopySchaduwAll()
 . Do ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeTabel).%New().InitialiseerKostenPlaatsWaarden()
 . Set FP=2401
 . Write @F Read "[] = ok ",K
 
 Quit
 ;