Index: vhDeploy/PV/Deploy201101009x0821.cls.xml
===================================================================
diff -u
--- vhDeploy/PV/Deploy201101009x0821.cls.xml	(revision 0)
+++ vhDeploy/PV/Deploy201101009x0821.cls.xml	(revision 2477)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.PV.Deploy201101009x0821">
+<Description>
+Added by WimV </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ s ^SD("D","PRBSHFD","F",10,"F")="$S($G(HistTitel)'="""":HistTitel,$G(NoMod):""Geen wijzigingen mogelijk"",$G(DataNoSa)=""S"":""Schaduw BS en prijs"",$G(CalcNoSa)=""S"":""Schaduw prijs"",1:"""")"
+ 
+ s ^MN("D","PRBSF","F",7)="Normale prijs`S`X`Do SwitchNoSa^PRBS() Do UPDATE^PRBS`$G(CalcNoSa)=""S""&&($G(HistTitel)="""")``S`"
+ s ^MN("D","PRBSF","F",8)="Schaduw prijs`S`X`Do SwitchNoSa^PRBS() Do UPDATE^PRBS`$G(CalcNoSa)'=""S""&&($G(HistTitel)="""")``S`"
+ s ^MN("D","PRBSF","F",9)="Copieer bouwstenen naar schaduw``X`Do SwitchNoSa^PRBS(1) Do UPDATE^PRBS`$G(CalcNoSa)'=""S""&&($G(HistTitel)="""")```"
+ s ^MN("D","PRBSF","F",10)="Rebuild schaduw bouwsteen vanuit wizard``X`Do SwitchNoSa^PRBS(""W"") Do UPDATE^PRBS`$G(CalcNoSa)'=""S"",$P($G(^KPR(MPRNr,""G"")),""\"",13),$P($$GENTYP^HAD(MPRNr),""\"")'="""",($G(HistTitel)="""")```"
+ s ^MN("D","PRBSF","F",11)="Rebuild huidige bouwsteen vanuit wizard``D`RebuildWizard^PRBS`$G(CalcNoSa,""N"")=""N"",$P($G(^KPR(MPRNr,""G"")),""\"",13),$P($$GENTYP^HAD(MPRNr),""\"")'="""",($G(HistTitel)="""")```"
+ s ^MN("D","PRBSF","F",12)="Historiek`H`X`Do DispHisto^PRBSH(MPRNr)```H`"
+ s ^MN("D","PRBSF","F",13)="Terug naar normaal of schaduw`S`X`Do DispNormaal^PRBSH(MPRNr)`$G(HistTitel)'=""""``S`"
+ s ^MN("D","PRBSF","F",14)="&S``B`````"
+ s ^MN("D","PRBSF","F",15)="Geen prijs controle``X`S NoPrijs='$G(NoPrijs)`'$G(NoPrijs)```"
+ s ^MN("D","PRBSF","F",16)="Wel prijs controle``X`S NoPrijs='$G(NoPrijs)`$G(NoPrijs)```"
+ s ^MN("D","PRBSF","F",17)="Bewaar``K`SAVE`$G(sMod)``"
+ s ^MN("D","PRBSF","F",18)="Sluit``K`CANC```CANC;-"
+ s ^MN("D","PRBSF","F",19)="&S``B`````"
+ s ^MN("D","PRBSF","F",20)="Help (PDF)``D`DisplayDoc^HADWIZ(""\\notes01\shared\QA\AdminDoc\B_ICT_002_xx Toevoegen-wijzigen van een bouwsteen.pdf"")````"
+ s ^MN("D","PRBSF","F",21)="Print`F13`D`TRANSFER^PRBSP`$D(^HULP(%J,""C""))>1``PRINT`"
+ s ^MN("D","PRBSF","F",22)="Transfert bouwstenen`T`D`PRINT^PRBS(""T"")```T`"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.PV.Deploy201101009x0821">
+<Description>
+Added by WimV </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ s ^SD("D","PRBSHFD","F",10,"F")="$S($G(HistTitel)'="""":HistTitel,$G(NoMod):""Geen wijzigingen mogelijk"",$G(DataNoSa)=""S"":""Schaduw BS en prijs"",$G(CalcNoSa)=""S"":""Schaduw prijs"",1:"""")"
+ 
+ s ^MN("D","PRBSF","F",7)="Normale prijs`S`X`Do SwitchNoSa^PRBS() Do UPDATE^PRBS`$G(CalcNoSa)=""S""&&($G(HistTitel)="""")``S`"
+ s ^MN("D","PRBSF","F",8)="Schaduw prijs`S`X`Do SwitchNoSa^PRBS() Do UPDATE^PRBS`$G(CalcNoSa)'=""S""&&($G(HistTitel)="""")``S`"
+ s ^MN("D","PRBSF","F",9)="Copieer bouwstenen naar schaduw``X`Do SwitchNoSa^PRBS(1) Do UPDATE^PRBS`$G(CalcNoSa)'=""S""&&($G(HistTitel)="""")```"
+ s ^MN("D","PRBSF","F",10)="Rebuild schaduw bouwsteen vanuit wizard``X`Do SwitchNoSa^PRBS(""W"") Do UPDATE^PRBS`$G(CalcNoSa)'=""S"",$P($G(^KPR(MPRNr,""G"")),""\"",13),$P($$GENTYP^HAD(MPRNr),""\"")'="""",($G(HistTitel)="""")```"
+ s ^MN("D","PRBSF","F",11)="Rebuild huidige bouwsteen vanuit wizard``D`RebuildWizard^PRBS`$G(CalcNoSa,""N"")=""N"",$P($G(^KPR(MPRNr,""G"")),""\"",13),$P($$GENTYP^HAD(MPRNr),""\"")'="""",($G(HistTitel)="""")```"
+ s ^MN("D","PRBSF","F",12)="Historiek`H`X`Do DispHisto^PRBSH(MPRNr)```H`"
+ s ^MN("D","PRBSF","F",13)="Terug naar normaal of schaduw`S`X`Do DispNormaal^PRBSH(MPRNr)`$G(HistTitel)'=""""``S`"
+ s ^MN("D","PRBSF","F",14)="&S``B`````"
+ s ^MN("D","PRBSF","F",15)="Geen prijs controle``X`S NoPrijs='$G(NoPrijs)`'$G(NoPrijs)```"
+ s ^MN("D","PRBSF","F",16)="Wel prijs controle``X`S NoPrijs='$G(NoPrijs)`$G(NoPrijs)```"
+ s ^MN("D","PRBSF","F",17)="Bewaar``K`SAVE`$G(sMod)``"
+ s ^MN("D","PRBSF","F",18)="Sluit``K`CANC```CANC;-"
+ s ^MN("D","PRBSF","F",19)="&S``B`````"
+ s ^MN("D","PRBSF","F",20)="Help (PDF)``D`DisplayDoc^HADWIZ(""\\notes01\shared\QA\AdminDoc\B_ICT_002_xx Toevoegen-wijzigen van een bouwsteen.pdf"")````"
+ s ^MN("D","PRBSF","F",21)="Print`F13`D`TRANSFER^PRBSP`$D(^HULP(%J,""C""))>1``PRINT`"
+ s ^MN("D","PRBSF","F",22)="Transfert bouwstenen`T`D`PRINT^PRBS(""T"")```T`"
+]]></Implementation>
+</Method>
+</Class>
+</Export>