STRING enrolar_rta,nombre,s_parametros[],ind_huella_tomada
oleObject PBobject
long status
integer nro_parametros
SetPointer(HourGlass!)
ind_huella_tomada='N'
PBobject = create oleObject
status = PBobject.ConnectToNewObject("HomRunt.clsPrincipal")
if ( status < 0 ) then
Messagebox('Error','Conectandose a dll HomRunt')
else
PBobject.BOLENCRIPTARRESP=false
PBobject.BOLRESPBASE64=false
// PBobject.BOLINTERFAZVER=true
Enrolar_rta=PBobject.Enrolar(n_doc, tipo, '','','','', '', '', 0, 0,0, 1)
f_descifra_parametros_huellero(s_parametros[],nro_parametros,enrolar_rta)
if nro_parametros > 0 then
If s_parametros[3] = '1' then
Messagebox('Atención...','Huella Registrada '+n_doc+' '+tipo)
templete = PBobject.Rtemplate
huella = PBobject.huella1
// dw_1.SetItem(1,'huella',templete)
// dw_1.SetItem(1,'fotostring',foto)
ind_huella_tomada='S'
Else
Messagebox('Atención...','Huella NO Registrada')
End If
else
Messagebox('Error en la respuesta del huellero',enrolar_rta)
End If
PBobject.DisconnectObject()
End if
destroy PBObject
if ind_huella_tomada='S' then
Return true
Else
Return false
End If