47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
FUNCTION files_ordenes(xnum_oc,xusuario,xclave)
|
|
DEFINE xnum_oc INT,
|
|
files_ordenes DYNAMIC ARRAY OF VARCHAR(100),
|
|
idx SMALLINT,p_res INT,
|
|
file_orden VARCHAR(100),
|
|
xusuario,xclave VARCHAR(50)
|
|
|
|
CONNECT to "decomarmol" USER xusuario USING xclave
|
|
|
|
OPEN WINDOW w1 WITH FORM "ccfmwd007"
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.url_file_destino FROM prtb00029 a
|
|
WHERE a.num_oc = xnum_oc
|
|
|
|
LET idx = 1
|
|
FOREACH busca INTO files_ordenes[idx]
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
IF idx = 1 THEN
|
|
CALL fgl_Winmessage("INFO","ORDEN SELECCIONADA NO TIENE DOCUMENTOS ASIGNADOS","INFO")
|
|
ELSE
|
|
DISPLAY ARRAY files_ordenes TO sfiles.*
|
|
ON ACTION abrir
|
|
LET idx = arr_curr()
|
|
TRY
|
|
|
|
LET file_orden=files_ordenes[idx] CLIPPED
|
|
CALL ui.Interface.frontCall("standard","launchurl", [file_orden],[p_res])
|
|
|
|
CATCH
|
|
CALL fgl_winmessage("ERROR",err_get(STATUS),"INFO")
|
|
END TRY
|
|
|
|
AFTER DISPLAY
|
|
LET idx = arr_curr()
|
|
LET file_orden = files_ordenes[idx]
|
|
EXIT DISPLAY
|
|
END DISPLAY
|
|
IF INT_FLAG THEN
|
|
CALL fgl_winmessage("INFO","OPERACION CANCELADA","INFO")
|
|
LET INT_FLAG = FALSE
|
|
LET file_orden = NULL
|
|
END IF
|
|
END IF
|
|
CLOSE WINDOW w1
|
|
RETURN
|
|
END FUNCTION |