Mensajes

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:

Código (vbnet) [Seleccionar] Expandir


   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:

Código (vbnet) [Seleccionar] Expandir


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.

Código (vbnet) [Seleccionar] Expandir



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.

Código (vbnet) [Seleccionar] Expandir


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

Código [Seleccionar] Expandir


LICENCIATableAdapter.DeleteQuery(268)


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:

Código [Seleccionar] Expandir


        Dim registro As LicenciaDataSet.LICENCIARow

        registro = LicenciaDataSet.LICENCIA.Rows.Find(268)

        LicenciaDataSet.LICENCIA.Rows.Remove(registro)

        Me.TableAdapterManager.UpdateAll(Me.LicenciaDataSet)


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.

Código [Seleccionar] Expandir


     Dim registro As LicenciaDataSet.LICENCIARow
        registro = LicenciaDataSet.LICENCIA.NewLICENCIARow

        registro.LICENCIA = 11
        registro.VERSION = "11"
        registro.IDPRODUTO = 1
        registro.IDFABRICANTE = 1
        registro.OBSERVACIONES = "hola1"

        LicenciaDataSet.LICENCIA.Rows.Add(registro)

        Me.TableAdapterManager.UpdateAll(Me.LicenciaDataSet)


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.

Código (vb.net) [Seleccionar] Expandir


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


Y el segundo es RowValidating

Código (vb.net) [Seleccionar] Expandir


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.

Código (csharp) [Seleccionar] Expandir


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.