GLOBALS
 DEFINE archivo,usuarios,clave CHAR(50)
END GLOBALS
MAIN
 #WHENEVER ERROR CONTINUE
 DEFER INTERRUPT
 CALL arg_val(1) RETURNING usuarios
 CALL arg_val(2) RETURNING clave
 CALL startlog("inf001.log")
 CONNECT TO "smarmotech" USER usuarios USING clave
 CALL importar()
END MAIN

FUNCTION IMPORTAR()
 DEFINE filedestino,FILEPATH,FILEPATHt CHAR(80),
        OPERATIVO CHAR(30),
        caracter CHAR(2)
 
 DEFINE  eorden,progreso INT,
  ptipo_cliente SMALLINT,
  psec_cliente,interr  INT,
  pnombre CHAR(50),
  pcod_zona SMALLINT,
  pcod_provincia SMALLINT,
  ptelefono CHAR(16),
  pfax CHAR(16),
  ptelex CHAR(16),
  ppatente CHAR(11),
  plimite_credito dec(10,2)                                                          ,
  pzona_postal CHAR(10),
  pnum_rnc CHAR(11),
  pnombre_patente CHAR(11),
  accion CHAR(1)
        
  OPEN FORM f FROM "inf001"
  DISPLAY FORM f
        
   # LET OPERATIVO = FGL_GETENV("OP") 
   # IF operativo IS NULL THEN
   #     CALL FGL_WINMESSAGE( "Servero","LA VARIABLE <OP> NO ESTA SETADA, FAVOR DE INDICAR EL SISTEMA OP", "stop" ) 
   #     EXIT PROGRAM
   #END IF     
 
 
# EXTRAER INFORMACION
   
      # LET filepath = FGL_GETENV("FILEPATH")
      # IF filepath IS NULL THEN
      #    CALL FGL_WINMESSAGE( "Servero","LA VARIABLE <FILEPATH> NO ESTA SETADA, FAVOR DE INDICAR LA DIRECCION DEL FOLDER DONDE SE GENERAN LAS INFORMACIONES TEMPORALES","stop")
      #    EXIT PROGRAM
      # END IF
      
      LET progreso = 10    
      DISPLAY progreso TO progreso 
      CALL ui.Interface.refresh()
      
 
 #IF operativo = 'LINUX' THEN
 #   LET caracter = '/'
 #ELSE
    LET caracter = '\\'
  
 #END IF
 
 
 INPUT BY NAME accion
  AFTER INPUT 
       IF Int_flag THEN
          ERROR "OPERACION ABORTADA"
          EXIT PROGRAM
       END IF
     
 ON ACTION abrir
  IF accion = "I" THEN
      LET archivo = "*.mbs"
      CALL ui.interface.frontcall("standard","openfile",[archivo,"mbs","mbs","Busca Archivo MBS"],filepath)
      IF filepath IS  NULL THEN
         CALL fgl_winmessage("ERROR","EL NOMBRE DEL FILE ESTA EN BLANCO","STOP")
         CONTINUE INPUT
      ELSE
         #EXPORTA MAESTRA EMPLEADOS
         DISPLAY BY NAME filepath
         LOAD FROM filepath INSERT INTO adtb00003 
         
         #LET filedestino = filedestino CLIPPED,"\\",emplea.num_emp USING "&&&&&",".jpg"      
        # CALL FGL_WINMESSAGE("W",filedestino,"stop")
        # CALL fgl_getfile(filepath,filedestino)
      END IF
     END IF 
     IF accion = "E" THEN
        
      LET archivo = "*.mbs"
      LET filepatht = FGL_GETENV("FGLSPOOL"),caracter CLIPPED,"empleados.txt"
      
         #EXPORTA MAESTRA EMPLEADOS
         UNLOAD TO filepatht SELECT A.NUM_EMP,A.NOM1_EMP FROM adtb00003 A WHERE A.status_t is null
         CALL fgl_getfile(filepatht,"c:\\empleados.txt")
         
     END IF 
  
      DISPLAY BY NAME filepath 
      END INPUT
        CALL FGL_WINMESSAGE( "Mensaje","FIN PROCEO EXPORTACION / IMPORTACION", "stop" ) 
END FUNCTION