Kaydet (Commit) c43ba818 authored tarafından Rüdiger Timm's avatar Rüdiger Timm

INTEGRATION: CWS extras7 (1.39.18); FILE MERGED

2003/05/21 16:52:41 bc 1.39.18.1: #109810# 'GetRefValue()' modified
üst dc8cc019
...@@ -120,7 +120,7 @@ Dim i as Integer ...@@ -120,7 +120,7 @@ Dim i as Integer
exit Function exit Function
End If End If
Next Next
Msgbox("No Control selected!",16, GetProductName()) GetRefValue() = -1
End Function End Function
...@@ -366,4 +366,5 @@ End Sub ...@@ -366,4 +366,5 @@ End Sub
Sub SetOVERWRITEToNever() Sub SetOVERWRITEToNever()
iGeneralOverwrite = SBOVERWRITENEVER iGeneralOverwrite = SBOVERWRITENEVER
DlgOverwrite.EndExecute() DlgOverwrite.EndExecute()
End Sub</script:module> End Sub
\ No newline at end of file </script:module>
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment