The Weird and The Wonderful

Private Sub aControl_DblClick()
'+++ VB/Rig Begin Push +++
Const VBRIG_PROC_ID_STRING = "+aControl_DblClick"
Dim VBRigErr As Long, VBRigErrMsg As String
If VBRig.Trap_TrapsEnabled Then
    On Error GoTo aControl_DblClick_VBRigErr
End If
Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
'+++ VB/Rig End +++
  
  If someIndicatorVariable < 1 Then
'+++ VB/Rig Begin Pop +++
    Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
'+++ VB/Rig End +++
    Exit Sub
  End If
  Call LaunchAnEXE("EXENAME", "params")
  Unload Me

'+++ VB/Rig Begin Pop +++
Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
Exit Sub

'=========================
aControl_DblClick_VBRigErr:
'=========================
VBRigErr = Err
VBRigErrMsg = Error$
Call VBRig_Error(VBRIG_SHOWLOG_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
Exit Sub
'+++ VB/Rig End +++
End Sub

FUNCTION verify_location()


	DECLARE c_det_cur CURSOR FOR 
		SELECT frerc.from_loc_id, frerc.to_loc_id
		FROM frerc
			WHERE frerc.dc_id = m_i_frerc_rec.dc_id
			  AND frerc.whse_id = m_i_frerc_rec.whse_id
	
	# check if select worked correctly
	IF SQLCA.SQLCODE <> 0
	THEN
		#...
		RETURN TRUE, 0
	END IF

	OPEN c_det_cur 
	IF SQLCA.SQLCODE <> 0
	THEN
		#...
		RETURN TRUE, 0
	END IF

	FETCH c_det_cur INTO m_from_loc, m_to_loc

	IF m_modify = 0 AND m_i_frerc_rec.from_loc_id >= m_from_loc
		AND m_i_frerc_rec.from_loc_id <= m_to_loc 
	THEN
		CALL sh_err_msg("S2096")
		LET m_from = 1
		LET m_modify = 1
	END IF
	
	IF m_modify = 0 AND m_i_frerc_rec.to_loc_id >= m_from_loc
		AND m_i_frerc_rec.to_loc_id <= m_to_loc 
	THEN
		CALL sh_err_msg("S2097")
		LET m_from = 1
		LET m_modify = 1
	END IF
	
	IF m_from_loc >= m_i_frerc_rec.from_loc_id
		AND m_from_loc <= m_i_frerc_rec.to_loc_id
	THEN
		CALL sh_err_msg("S2097")
		LET m_from = 1
		LET m_modify = 1
	END IF
	
	IF m_modify = 0 AND m_to_loc >= m_i_frerc_rec.from_loc_id
		AND m_to_loc <= m_i_frerc_rec.to_loc_id
	THEN
		CALL sh_err_msg("S2096")
		LET m_to = 1
	END IF 	

	IF m_to = 0 AND 
		m_from = 0
	THEN
		WHILE SQLCA.SQLCODE = 0
			FETCH c_det_cur INTO m_from_loc, m_to_loc

			IF m_i_frerc_rec.from_loc_id >= m_from_loc
				AND m_i_frerc_rec.from_loc_id <= m_to_loc 
			THEN
				CALL sh_err_msg("S2096")
				LET m_from = 1
				EXIT WHILE
			END IF

			IF m_i_frerc_rec.to_loc_id >= m_from_loc
				AND m_i_frerc_rec.to_loc_id <= m_to_loc 
			THEN
				CALL sh_err_msg("S2097")
				LET m_from = 1
				EXIT WHILE
			END IF

			IF m_from_loc >= m_i_frerc_rec.from_loc_id
				AND m_from_loc <= m_i_frerc_rec.to_loc_id
			THEN
				CALL sh_err_msg("S2097")
				LET m_to = 1
				EXIT WHILE
			END IF
		
			IF m_to_loc >= m_i_frerc_rec.from_loc_id
				AND m_to_loc <= m_i_frerc_rec.to_loc_id
			THEN
				CALL sh_err_msg("S2096")
				LET m_from = 1
				EXIT WHILE
			END IF
	
		END WHILE
	END IF
	
	LET m_modify = 0

END FUNCTION

protected int GetTransactionLength(string transaction)
{
    return transaction.Length;
}

transaction.Length

GetTransactionLength(transaction)