Merge pull request #70 from Muthenya/Duplicates

Setting additional RCode pair for the Seelected variables receiver
Patowhiz · Jul 19, 2018 · ad42564 · ad42564
2 parents ee2b07a + b33b1dc
commit ad42564
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/instat/dlgDuplicates.vb b/instat/dlgDuplicates.vb
@@ -109,7 +109,7 @@ Public Class dlgDuplicates
         ucrInputConditions.SetItems(dctConditions)
         ucrInputConditions.SetDropDownStyleAsNonEditable()
 
-        ucrInputComboType.SetParameter(New RParameter("type", 1))
+        ucrInputComboType.SetParameter(New RParameter("type"))
         dctType.Add("Count", Chr(34) & "count" & Chr(34))
         dctType.Add("Index", Chr(34) & "index" & Chr(34))
         ucrInputComboType.SetRDefault(Chr(34) & "count" & Chr(34))
@@ -154,6 +154,7 @@ Public Class dlgDuplicates
 
     Private Sub SetRCodeForControls(bReset As Boolean)
         ucrReceiverForSelectedVariables.AddAdditionalCodeParameterPair(clsDuplicated2, New RParameter("x", 1), iAdditionalPairNo:=1)
+        ucrReceiverForSelectedVariables.AddAdditionalCodeParameterPair(clsdupCountIndex, New RParameter("x", 1), iAdditionalPairNo:=2)
         ucrSelectorDuplicateswithVariables.AddAdditionalCodeParameterPair(clsDuplicated2, New RParameter("x", 0), iAdditionalPairNo:=1)
         ucrSelectorDuplicateswithVariables.AddAdditionalCodeParameterPair(clsdupCountIndex, New RParameter("x", 0), iAdditionalPairNo:=2)
         ucrNewColumnName.AddAdditionalRCode(clsDuplicated2, iAdditionalPairNo:=1)