Index: HistPRStockChangeBld.mac.rou
===================================================================
diff -u -r734 -r2415
--- HistPRStockChangeBld.mac.rou	(.../HistPRStockChangeBld.mac.rou)	(revision 734)
+++ HistPRStockChangeBld.mac.rou	(.../HistPRStockChangeBld.mac.rou)	(revision 2415)
@@ -1,5 +1,5 @@
 #include %occInclude
-
+ 
 HistPRStockChangeBld ;Historiek [ 03/08/2002  2:51 PM ]
  Set D="\",U=";"
  Do BLDCONTR^KPOSW
@@ -24,7 +24,7 @@
  . Do BldStockABCKwot(PRNr,.PRec,Maand)
  Write !,"doorloop (sec)",$P($H,",",2)-time,!
  Quit
-
+ 
 InputAll
  For Dat="08/02","09/02" Do  ;,"04/02","05/02","08/02","09/02","10/02" Do
  . w Dat,!
@@ -108,7 +108,7 @@
  If 'Ok W " Fout ABCKWot" Quit 0
  Do PRObj.%Close()
          Quit
-
+ 
 ClnStockAanpassing(Begin,End)
  ;Begin,End : $H-formaat
  New tmpStatus,RS
@@ -124,7 +124,7 @@
  Set:(tmpStatus["SQLCODE = 100") tmpStatus=$$$OK    
  Do RS.%Close()
  Quit
-
+ 
 BldStockAanpassing(PRNr,PRec,Groep,Begin, End) 
          ;Begin,End : $H-formaat
          ;Soort : 1 = Aankoop,2=Verkoop,3=Man. UIT,4=Man. IN
@@ -165,7 +165,7 @@
  ..  If 'Ok W " Fout StockChange"
  ..  Do PRObj.%Close()
  Quit
-
+ 
 BldProductKenmerk(PRNr,PRec) 
  New PRObj
  Quit:$P(PRec(1),D,25)=1 0 ; Geen Non akt