aplicaicon compila, terminado:

* aplicacion compilando, modularizado la gestion de dispositivos paralelamente
* modularizado la interfaz y la forma, aplicacion se programa en modo procesos/modulos
* ahora la app puede ser compilada
pendiente:
* terminar sincronismo con la DB, establecer un nodo ejemplo y pedir usuarios/trabajadores
* terminar verificacion en modo auxiliar y combinado
* tratar pedir un escaner dactilar y terminar la pruebas
* documentar la instalacion
* agregar las tareas al redmine tato de solognu como del trabajo
* **separar la version GPL de la version especial para la empresa**

interfaztomarasistencia/.settings

@@ -1,5 +1,6 @@
 [Bookmarks]
 DBCon=[12]
+FMain=[]
 
 [Breakpoints]
 Count=0
@@ -9,13 +10,13 @@ Count=0
 
 [OpenFile]
 File[1]=".src/FMain.form"
-File[2]=".src/FMain.class:17.4"
+File[2]=".src/FMain.class:30.0"
 Active=3
-File[3]=".src/Mcaptura.module:88.0"
-File[4]=".src/DData.class:90.18"
+File[3]=".src/Mcaptura.module:89.30"
+File[4]=".src/DData.class:78.23"
 File[5]="dbdata/asistenciatomar_scriptsql.sql:99.0"
-File[6]=".src/MSet.module:26.4"
-File[7]="asistenciatomar.conf:1.0"
+File[6]=".src/MSet.module:12.47"
+File[7]="asistenciatomar.conf:13.5"
 File[8]=".src/DBmandat.class:50.29"
 File[9]=".src/DBConEnroll.module:2.0"
 File[10]=".src/DBConVerify.module:30.109"

interfaztomarasistencia/.src/FMain.class

@@ -27,6 +27,7 @@ End
 '' este proceso inicia y/o prepara la apariencia en el modo normal (sin hacer nada)
 Public Sub iniciarInterfaz()
 
+    Dim dbmanagdat As DBmandat
     ' inicializacion de variables y entorno de captura, asi como de muestra
     mensageusuario.Hide
     tiempotranscurrido_imagenes.Stop

interfaztomarasistencia/.src/Mcaptura.module

@@ -121,7 +121,7 @@ Public Sub funcionando_escaner()
         Endif
     Endif
 
-    Shell comd & "  identify interfaz 2>&1 " To resultado_backend ""
+    Shell comd & "  identify interfaz 2>&1 " To resultado_backend
     LineasProcesamiento = Split(resultado_backend, "\n")
     ' 0 = <nombre humano del escaner> ejemplo en modo dummy: Dummy/Falso Quien carizo eres tu finger/dedo scaner 0000
     ' 1 = <id numerico> : 0063 es dummy
@@ -132,14 +132,11 @@ Public Sub funcionando_escaner()
     FMain.datos.setRutaFprintData(User.Home & "/" & LineasProcesamiento[3])
     FMain.datos.setDataBlob(Null)
 
-    ' mandamos a pedir la ruta al backend, y la guardamos en una variable, alli trabajaremos
-    Shell comd & " path interfaz " & dummy & " 2>&1" To ruta ' nuestro backend esta hecho para que devuelva solo una linea
-
 End
 
 '' proceso para escanear el dedo del esclavo
 
-Public Sub scan_dedo_imagen(usuario As String)
+Public Sub scan_dedo_rostro(usuario As String)
 
     Dim ramdi As Integer ' usado para esconder la imagen
 
@@ -159,6 +156,9 @@ Public Sub scan_dedo_imagen(usuario As String)
     ramdi = Int(Rnd * 100000000)
     foto = usuario & ramdi & ".pgm"   ' configuro el nombre de la foto segun el usuario y una var aleatoria
 
+    ' mandamos a pedir la ruta al backend, y la guardamos en una variable, alli trabajaremos
+    Shell scanerdedocmd & " path interfaz 2>&1" To ruta ' nuestro backend esta hecho para que devuelva solo una linea
+
     ' armo la ruta y el ubicacion de la foto, pa mostrasela, auqnue leonardo se queje, y sea grotesco
     ruta_d_huella = User.Home & "/" & ruta & foto
 
@@ -171,7 +171,7 @@ Public Sub scan_dedo_imagen(usuario As String)
 
     'hProcesamiento = Exec [comd, "frontend" "enroll", "image", ruta_d_huella] For Read As "Procesamiento"
     'Shell comd & " interfaz enroll image " & ruta_d_huella & " 2>&1" To resultado_backend
-    Shell comd & " interfaz enroll finger " & dedo & " image " & ruta_d_huella & dummy & " 2>&1" To resultado_backend
+    Shell scanerdedocmd & " interfaz enroll finger " & dedo & " image " & ruta_d_huella & dummy & " 2>&1" To resultado_backend
     LineasProcesamiento = Split(resultado_backend, "\n")
     ' 0 = nombreimagen=<ruta>/noencontrado.pgm
     ' 1 = rutafiledata =<HOME>/.fprint/prints/<rutadevice>/<dedo> obviado en modo dummy