Index: Prod/GADef/Banco.cls.xml
===================================================================
diff -u -r4782 -r17620
--- Prod/GADef/Banco.cls.xml	(.../Banco.cls.xml)	(revision 4782)
+++ Prod/GADef/Banco.cls.xml	(.../Banco.cls.xml)	(revision 17620)
@@ -694,11 +694,9 @@
  Set D="\"
  Set Obj=%this
 
- If GenPRNr'?4.6N Do  ; Defaulting
- . If $$InDevelop^vhLib Do
- ..  Set GenPRNr=36945 ; GEN.HALBAN
- . Else  Do
- ..  Set GenPRNr=136797
+ If GenPRNr'?4.7N {  ; Defaulting
+   Set GenPRNr=136797
+ }
 
  Do ..DossierDefine()
 
@@ -797,7 +795,7 @@
 kpcSAVE(Obj,NewRec)
  ; NewRec via .Local     
  Set PRNr=Obj.ProductGetObjectId()
- If PRNr'?4.6N Do
+ If PRNr'?4.7N Do
  . Set PRNr=$$NEXTID^PRODUKT()
  Set IdentNr=$$IDENTNR^PRODUKT(PRNr,"9")
  Set $P(NewRec(2),D,25)=IdentNr