Visual Basic

Imports System.Windows.Forms
Public Delegate Sub InsideDelegate(ByRef value As Boolean)
Public Class MyMessageFilter
    Implements IMessageFilter

    Public Event Inside As InsideDelegate

    Private Const WM_LBUTTONDOWN As Integer = &H201
    Private Const WM_LBUTTONUP As Integer = &H202

    Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage

        Return OnInside()

    End Function

    Private Function OnInside() As Boolean
        Dim _inside As Boolean = True

        If InsideEvent IsNot Nothing Then
            InsideEvent(_inside)
        End If

        Return _inside
    End Function
End Class

Dim filter As New MyMessageFilter()
Private Flag1 As Boolean = True
Private Sub filter_Inside(ByRef value As Boolean)
    value = If((Groupbox1.ClientRectangle.Contains(Groupbox1.PointToClient(Control.MousePosition)) AndAlso Flag1), True, False)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
    AddHandler filter.Inside, AddressOf filter_Inside
    Application.AddMessageFilter(filter)

End Sub

dept + ' ' + div + ' ' + pos

dept + '/' + div + '/' +  pos

USAFHokie80 wrote:

Oh, I'm terribly sorry that I added another few hundred duplicate bytes the massive amount of data stored here. However will this site possibly be useful now that I've completely gummed it up????

USAFHokie80 wrote:

BTW, since I don't actually know the traffic on the individual discussions and since this question very clearly spans multiple topics, I don't see the problem here. So if you don't like my post and have nothing to contribute other than being a pompous jerk, feel free to pass over my posts.

USAFHokie80 wrote:

The procedure signature is identical to what I've posted. Only the name of the procedure is different. And as I stated, the procedure itself works perfectly well when executed from SQLLite command line client as "execute DoSomething;". So the problem actually is with the way it's being called from code and -not- the database.

create or replace
procedure UpdateUnitType as
--updates unit type codes
  cnt number(10,0):=0;

begin
 
  for u in (select * from unit where type_cd = 1)
  loop
  
    cnt := 0;
  
    select count(billet_id)
    into cnt
    from billet
    where fiscal_year = u.fiscal_year
    and uic = u.uic;      
    
    if cnt > 0 then
    
      update unit
      set type_cd = 2
      where unit_id = u.unit_id;
    
    end if;
    
  
  end loop;

end updateunittype;

USAFHokie80 wrote:

If there were a problem with the code in the procedure I would have gotten an error. But, just to satisfy this useless endeavor, I'll indulge you.