105 lines
2.9 KiB
Plaintext
105 lines
2.9 KiB
Plaintext
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
|
|
|