{
   PROGRAMA       : pventas_menu
   OBJETIVO       : Desplegar las opciones del menu 
   CREADO POR     : Ing. Juan Soto 
   FECHA CREACION : Se

}
IMPORT os
CONSTANT filename = "puntoventa.data"

GLOBALS
  DEFINE usuario,clave VARCHAR(50),
         pperfil,pprinter1,pprinter2,ckprinter,cambia_c VARCHAR(100)

         DEFINE dirs DYNAMIC ARRAY OF RECORD 
                ddir STRING
         END RECORD
END GLOBALS

MAIN
 DEFER INTERRUPT
  WHENEVER ERROR CALL desplega_error
   CALL STARTLOG("puntoventas.txt")
   CALL autentificacion()
   CALL menu_principal()
END MAIN

{================================================
 FUNCION    : AUTENTIFICACION
 OBJETIVO   : VALIDAR FUNCION DEL USUARIO
 FECHA      : 30/6/2009
 PROGRAMADOR: JUAN SOTO
 ==================================================
 }
 
FUNCTION autentificacion()
  

  OPEN WINDOW inicio AT 1,1 WITH FORM "inicial"
   
  INPUT BY NAME usuario,clave WITHOUT DEFAULTS 
    AFTER INPUT
      IF INT_FLAG THEN
         ERROR "OPERACION CANCELADA"
         EXIT INPUT
      END IF
  
      CONNECT TO "smarmotech"  USER usuario USING clave 
      IF STATUS < 0 THEN
         ERROR "USUARIO NO ES VALIDO"
         CONTINUE INPUT
      END IF
      SELECT a.cod_perfil,a.printerdefecto,a.otro_printer ,a.printer_cheque,a.cambia_clave
      INTO pperfil,pprinter1,pprinter2,ckprinter,cambia_c
      FROM seg0001 a
      WHERE a.usuario = usuario
      
      IF STATUS != 0 THEN
         ERROR "APLICACION ESTA REPORTANDO UN ERROR, COMUNIQUESE CON SU ADMINISTRADOR"
      END IF
      UPDATE seg0001 SET seg0001.fecha_ultimo_login = getdate(),
                         seg0001.clave = clave WHERE seg0001.usuario = usuario
      
      LET cambia_c = UPSHIFT(cambia_c)
      IF cambia_c = "SI" THEN
         CALL fgl_winmessage("INFO","DEBE CAMBIAR LA CLAVE","INFO")
         CALL cambia_clave()
      END IF
    EXIT INPUT
  END INPUT
  
  CLOSE WINDOW inicio
END FUNCTION
FUNCTION menu_principal()

END FUNCTION
FUNCTION desplega_error()
  DEFINE mensaje STRING
  LET mensaje ="FAVOR DE VERIFICAR EL ERROR LOG PUNTOVENTAS.TXT",STATUS CLIPPED
  CALL fgl_winmessage("ERROR",mensaje,"INFO")
END FUNCTION