none
Lector de huella para leer y Guardar en caso de no encontrar el registro no me funciona RRS feed

  • Pregunta

  • Necesito su ayudo espero puedan ayudarme.

    Tengo que hace una búsqueda con la huella de paciente pero en caso de que no se encuentre registro se aguarde automáticamente la huella como desconocido con un id.

    El problema está en  que tengo dos eventos y no sé cómo unirlos porque solo me lee el de búsqueda  y el otro me lo deja  a lado pero no encuentro la manera de juntarlos en uno solo:

    Este es el código de los dos eventos uno es de un control y otro una herencia de una clase:



    miércoles, 10 de agosto de 2016 23:50

Todas las respuestas

  • Private Sub DPFP_Huella_OnComplete(Control As Object, FeatureSet As DPFP.FeatureSet, ByRef EventHandlerStatus As DPFP.Gui.EventHandlerStatus) Handles DPFP_Huella.OnComplete

          Lbl_Mensaje.Text = "Buscando..."

            Lbl_Mensaje.Visible = True

            Me.Refresh()

            Dim ver As New DPFP.Verification.Verification()

            Dim res As New DPFP.Verification.Verification.Result()

            Dim vDt As New DataTable

            Dim vArr As Byte() = Nothing

            Dim vHuella As DPFP.Template = New DPFP.Template()

            Dim vCURP As String = ""

            If TxtCredencial.Text.Trim = "" Then

                vDt = Fp_Query(

                    "SELECT PH.IdPaciente,PH.Huella,PH.Dedo " & vbCrLf &

                    "FROM HcCuliacan.dbo.CTL_Pacientes AS P (NOLOCK) " & vbCrLf &

                    "   INNER JOIN HcCuliacan.dbo.Reg_HuellaPacientes PH(NOLOCK) ON P.IDPaciente=PH.IdPaciente " & vbCrLf &

                    "WHERE P.cStatus='A' " & vbCrLf &

                    "   AND P.cPaterno LIKE @Paterno+'%' " & vbCrLf &

                    "   AND P.cMaterno LIKE @Materno+'%' " & vbCrLf &

                    "   AND P.cNombre LIKE '%'+@Nombre+'%' ", "HIS",

                    "@Paterno", Txt_Paterno.Text.Trim, "@Materno", Txt_Materno.Text.Trim, "@Nombre", Txt_Nombre.Text.Trim)

            Else

                vDt = Fp_Query(

                    "SELECT PH.IdPaciente,PH.Huella,PH.Dedo " & vbCrLf &

                    "FROM HcCuliacan.dbo.CTL_Pacientes AS P (NOLOCK) " & vbCrLf &

                    "   INNER JOIN HcCuliacan.dbo.Reg_HuellaPacientes PH(NOLOCK) ON P.IDPaciente=PH.IdPaciente " & vbCrLf &

                    "   INNER JOIN HcCuliacan.dbo.Det_PacientesTipo C(NOLOCK) ON P.IDPaciente=C.IDPaciente AND C.IDTipoPaciente='04' " & vbCrLf &

                    "WHERE P.cStatus='A' " & vbCrLf &

                    "   AND P.cPaterno LIKE @Paterno+'%' " & vbCrLf &

                    "   AND P.cMaterno LIKE @Materno+'%' " & vbCrLf &

                    "   AND P.cNombre LIKE '%'+@Nombre+'%' AND ISNULL(SUBSTRING(C.cFolio1,7,4),'') LIKE '%'+@Credencial+'%' ", "HIS",

                    "@Paterno", Txt_Paterno.Text.Trim, "@Materno", Txt_Materno.Text.Trim, "@Nombre", Txt_Nombre.Text.Trim, "@Credencial", TxtCredencial.Text.Trim)

            End If

            

    miércoles, 10 de agosto de 2016 23:51
  • For Each vRen As DataRow In vDt.Rows

                vArr = vRen("Huella")

                vHuella.DeSerialize(vArr)

                If Not vHuella Is Nothing Then

                    ver.Verify(FeatureSet, vHuella, res)

                    If res.Verified Then

                        EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Success

                        vCURP = vRen("IdPaciente")

                        Exit For

                    End If

                End If

            Next

            If vCURP = "" Then

                EventHandlerStatus = DPFP.Gui.EventHandlerStatus.Failure

                Fp_Mensaje("Paciente no encontrado."Frm_UtiMensaje.Tipo.MensajeAdvertencia)

            Else

                BuscarHuella(vCURP)

            End If

            Lbl_Mensaje.Visible = False

            End Sub

    miércoles, 10 de agosto de 2016 23:51
  •   Public Sub OnComplete(Capture As Object, ReaderSerialNumber As String, Sample As Sample) Implements EventHandler.OnComplete

            Try

                vCapture.StopCapture()

                vEstadoHuella = EstadoHuella.vacio

                Dim vFE As New FeatureExtraction

                Dim vFS As New FeatureSet

                vFE.CreateFeatureSet(Sample, DataPurpose.Enrollment, CaptureFeedback.Good, vFS)

                Dim vEnrollment As New Enrollment

                vEnrollment.AddFeatures(vFS)

                vEnrollment.AddFeatures(vFS)

                vEnrollment.AddFeatures(vFS)

                vEnrollment.AddFeatures(vFS)

                If vEnrollment.TemplateStatus = Enrollment.Status.Ready Then

                    Dim vDt As New DataTable()

                    vDt.TableName = "Tbl"

                    vDt.Columns.Add("Huella", GetType(Byte()))

                    vDt.Columns.Add("Dedo", GetType(Integer))

                    vDt.Columns.Add("idUsuario", GetType(Integer))

                    vDt.Columns.Add("Fecha", GetType(Date))

                
    miércoles, 10 de agosto de 2016 23:52
  • For Each vfila As DataRow In vD.Rows

                        vDt.Rows.Add(0, vEnrollment.Template.Bytes, 2, vpEntUsuario.Id, Fp_FechaServidor())

                    Next

                    vEstadoHuella = EstadoHuella.listo

                    vE.Huellas = vDt

                    Dim vRes As Ent_Resultado = vN.GuardarHuella(vE)

                    If vRes.Exito Then

                        Fp_Mensaje(vRes.Mensaje)

                    Else

                        Fp_Mensaje(vRes.Mensaje, Frm_UtiMensaje.Tipo.MensajeError)

                    End If

                ElseIf vEnrollment.TemplateStatus = Enrollment.Status.Failed Then

                    Exit Sub

                End If

            Catch ex As Exception

                vE.Huellas = Nothing

            Finally

                vCapture.StartCapture()

            End Try

        End Sub

    miércoles, 10 de agosto de 2016 23:52