Hola a todos.

Estoy con la centralita Avaya y necesito capturar las llamadas entrantes.

Lo primero me he declarado unas variables a nivel de clase:

    Public CallerID As String
    Private Const MediaAudio As Integer = 8
    Private Const MediaModem As Integer = 16
    Private Const MediaFax As Integer = 32
    Private Const MediaVideo As Integer = 32768
    Private WithEvents oTAPI As TAPI3Lib.TAPI '
    Private oAddress As ITAddress
    Private RegCookie As Integer
 

Lo primero es realizar la conexión con la centralita:

Try
 
            Dim m_TAPI As New TAPIClass
 
            Dim MediaTypes As Integer
            m_TAPI.Initialize()
            oTAPI = m_TAPI
 
            m_TAPI = Nothing
 
            Dim AddressCollection As ITCollection = oTAPI.Addresses()
 
            For Each Address As ITAddress In AddressCollection
 
                If Address.State = ADDRESS_STATE.AS_INSERVICE Then
 
                    Dim MediaSupport As ITMediaSupport = Address
 
                    MediaTypes = MediaSupport.MediaTypes
 
                    MediaSupport = Nothing
 
                    If MediaTypes And MediaModem = MediaModem Then
 
                        If MediaTypes And MediaAudio = MediaAudio Then
 
                            oAddress = Address
 
                            MsgBox(oAddress.AddressName)
 
                            Exit For
                        End If
                    End If
 
                End If
 
            Next Address
 
            If Not oAddress Is Nothing Then
 
                RegCookie = oTAPI.RegisterCallNotifications(oAddress, True, False, MediaTypes, 1)
                oTAPI.EventFilter = (TAPI_EVENT.TE_CALLNOTIFICATION Or TAPI_EVENT.TE_CALLSTATE Or TAPI_EVENT.TE_CALLINFOCHANGE)
            Else
                MsgBox("No se encontró ninguna extensión.")
            End If
 
        Catch ex As Exception
            MsgBox("Error TAPI:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)
        End Try
 

El siguiente código es para capturar los eventos.

 
 Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, ByVal pEvent As Object) Handles oTAPI.Event
 
        Dim thAsyncCall As System.Threading.Thread
 
        Select Case TapiEvent
            Case TAPI_EVENT.TE_CALLNOTIFICATION
                thAsyncCall = New Threading.Thread(AddressOf CallNotificationEvent)
                CallNotificationObject = CType(pEvent, ITCallNotificationEvent)
                thAsyncCall.Start()
            Case TAPI_EVENT.TE_CALLSTATE
                thAsyncCall = New Threading.Thread(AddressOf CallStateEvent)
                CallStateObject = CType(pEvent, ITCallStateEvent)
                thAsyncCall.Start()
            Case TAPI_EVENT.TE_CALLINFOCHANGE
                thAsyncCall = New Threading.Thread(AddressOf CallInfoEvent)
                CallInfoObject = CType(pEvent, ITCallInfoChangeEvent)
                thAsyncCall.Start()
        End Select
 
    End Sub
 
Private CallNotificationObject As ITCallNotificationEvent
 
    Private Sub CallNotificationEvent()
        Select Case CallNotificationObject.Event
            Case CALL_NOTIFICATION_EVENT.CNE_MONITOR
            Case CALL_NOTIFICATION_EVENT.CNE_OWNER
        End Select
    End Sub
 
    Private CallStateObject As ITCallStateEvent
 
    Private Sub CallStateEvent()
        Select Case CallStateObject.State
            Case CALL_STATE.CS_IDLE
            Case CALL_STATE.CS_INPROGRESS
            Case CALL_STATE.CS_OFFERING
            Case CALL_STATE.CS_CONNECTED
 
               Form2.ShowDialog()
 
            Case CALL_STATE.CS_QUEUED
            Case CALL_STATE.CS_HOLD
            Case CALL_STATE.CS_DISCONNECTED
 
 
        End Select
    End Sub
 
    Private CallInfoObject As ITCallInfoChangeEvent
 
    Private Sub CallInfoEvent()
 
        CallerID = CallInfoObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNUMBER) 'CIS_CALLERIDNAME)
 
    End Sub
 

Tal como está el codigo me funciona abriendome el Form2 (eso si, tengo que ponerlo como Showdialog porque con el Show no lo veo y en callinfoevent tengo el numero entrante.

Mi problema está que solamente está funcionando con multihilo y al modificar el código de la siguiente manera  no me funciona.

 Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, ByVal pEvent As Object) Handles oTAPI.Event
 
        Select Case TapiEvent
            Case TAPI_EVENT.TE_CALLNOTIFICATION
                CallNotificationEvent()
            Case TAPI_EVENT.TE_CALLSTATE
                CallNotificationEvent()
            Case TAPI_EVENT.TE_CALLINFOCHANGE
                CallNotificationEvent()
        End Select
 
    End Sub
 

No debería ser lo mismo?

A ver si me se explicar. Tengo un formlario Form1, en él tengo declarado un array de forms publico. Con un botón voy abriendo las instancias del Form2 y los abiertos los voy guardando en el array. Dentro del Form2 tengo un botón para abrir la instancia del Form3, pasandole en el contructor el número del Form2 que ha abierto el form3 para que pueda hacer referncia a él. Desde el form3 cuando le cierro le paso los parametros al form2

form1.arraydeforms(id).variable = <valor>

donde el id es el número del form (Form2) de array que lo ha abierto (Form3)

Me imagino que es por el multihilo que cuando desde el Form3 hago la referencia al Form2, me dice que el array no lo tengo creado porque cuando hago lo mismo pero con un botón me funciona bien.

Perdonad pero creo que no se explicarme mejor.

Hola a todos.

Os cuento mi problema. Necesito recorrer una tabla de sql server que tiene un campo de tipo Imagen. Esta imagen la necesito almacenar e una carpeta como jpg para luego poder subirla por ftp.

Ya he leido todos los campos de la tabla pero no estoy seguro como tengo que manejar el campo de tipo imagen. Hay alguna función para coger el campo imagen y exportarlo a un archivo?

Gracias por vuestra ayuda.

He añadido al dataset un query de eliminación pero solamente por el campo clave, no como lo genera él por defecto con todos los campos y de esta manera si que funciona correctamente

Perdona, me lo podrías explicar. No me estoy enternado. Por cierto, si lo borro con el bindingnavigator me funciona perfectamente.

No estoy seguro si tiene algo que ver pero en el momento de borrar si que se borra el registro pero no actualiza en la base de datos.

Pero si la sentencia de update está mal tampoco me guardaría el registro nuevo no?

Hola

Estoy intentando borrar un registro del dataset.
Estoy utilizando el siguiente código:


En el formulario me lo borra pero no en la base de datos. Es como si el UpdateAll no me funcionara.

Para insertar uno nuevo no tengo ningún problema.


Donde está el fallo en el borrado?

He Creado dos origenes de datos, uno se llama productos y se compone de una serie de campos
entre lo que tengo IDlocal y IDCliente.
Tambien tengo otro origen de datos llamado ClienteLocal que se compone de dos tablas, una Cliente y otro Local.
Estas dos ultimas estan relacionadas por el campo idcliente que aparece tanto en la tabla cliente como en el local.
He arrastrado el origen de datos productos al formulario se ha creado un datagridview con los campos de los productos.
Los campos IdCliente e IdLocal los he cambiado a tipo combobox.
IDCliente lo he asociado al origen de datos Cliente y el IDLocal lo he enlazado al PK_ClienteLocal (tabla locales)
Con todo esto lo que intento que me muestre el nombre del cliente y del lolal en datagridview pero no funcion.
Por ultimo decir que la relacion de clientes locales es de uno a varios (un cliente puede tener varios locales)

Con los mismos origenes de datos he utilizado dos combobox en el formulario enlazandolos con las misma logica que he comentado
al principio y me ha funcionado bien.

Como debo hacerlo en un datagrid?

Gracias por la respuesta.

Los datos los estoy validando en dos eventos del datagrid.

El primero es dataerror.

        If TypeOf (e.Exception) Is ConstraintException Then
            MsgBox("El producto introducido ya existe")
            e.Cancel = True
        End If
 

Y el segundo es RowValidating

If PRODUCTODataGridView(2, e.RowIndex).Value Is DBNull.Value Then
            MsgBox("Debe introducir un nombre del producto")
            e.Cancel = True
End If
 

Es correcta esta forma?


Por ultimo, al dar el botón nuevo del bindingnavigator se produce el evento BindingNavigatorAddNewItem, cual es el evento que salta cuando la fila ya está insertada? El problema es que al añadir una fila nueva que solamente tiene un campo ya que el campo clave está oculto, no me pone el cursor en el campo sino me lo selecciona en azul.
He visto que con PRODUCTODataGridView.BeginEdit(True) pero no estoy seguro donde tiene que ir ya que no encuentro el evento que se produce cuando se ha añadido un registro nuevo.

Un saludo.

Hola.

Tengo un datagridview enlazado a datos. Tambien tengo un bindingnavigatos. Lo que he hecho es hacerlo manual cuando el usuario cambia de fila pulsando las flechas de bindingnavigator. Para ello por ejemplo en la flecha de siguiente, valido si todo está bien y utilizo bindingsource.movenext Esto lo repito para anterior, primero y ultimo. Al final el el bloque de código es el mismo cambiando solamente el move para cada caso.

DataGridView.EndEdit
 
Try
   BindingSource.EndEdit()
   BindingSource.MoveFirst()
Catch nulo As NoNullAllowedException
   msgbox("Debe introducir un valor")
Catch ex as Exception
   msgobx(ex.Message)
End Try

Puedo hacer esta validación a nivel de dataset? Me refiero a controlar la excepción fuera del formulario para no tener que repetir lo mismo cada vez.

Un saludo.

Hola.

Cual es la forma de validar los campos antes de grabar? EStoy utilizando un bindingSource y BindingNavigator. Cuando estoy en un datagrid le añado un campo y vuelvo a añadir otro (sin rellenar el campo que no puede ser nulo) me salta un error pero no se posiciona en ninguna linea de codigo.
Otra cosa, el me.validating del formulario a quien llama?

Un saludo.