39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
IMPORT util
|
|
|
|
TYPE t_sync_cmd RECORD
|
|
oper STRING,
|
|
data STRING
|
|
END RECORD
|
|
|
|
FUNCTION bodegas(url)
|
|
DEFINE url,cmd,res,msg STRING,
|
|
ret INT,
|
|
i SMALLINT,
|
|
bodegas DYNAMIC ARRAY OF RECORD
|
|
cod_bodega SMALLINT,
|
|
descripcion VARCHAR(60)
|
|
END RECORD
|
|
|
|
DEFINE r_cmd t_sync_cmd
|
|
DISPLAY "bodegas" TO tabla_Download
|
|
LET r_cmd.data = util.JSON.stringify(bodegas)
|
|
LET r_cmd.oper='bodegas'
|
|
LET cmd = util.JSON.stringify(r_cmd)
|
|
|
|
CALL sync_send_command(url, cmd) RETURNING ret, res
|
|
IF ret == 0 THEN
|
|
CALL util.JSON.parse(res,bodegas)
|
|
ELSE
|
|
LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n",url,"\n",res
|
|
CALL show_sync_err(msg)
|
|
END IF
|
|
DELETE FROM bodegas
|
|
FOR i = 1 TO bodegas.getLength()
|
|
INSERT INTO bodegas
|
|
VALUES (bodegas[i].*)
|
|
DISPLAY i TO registro_download
|
|
END FOR
|
|
LET msg=SFMT(%"Download Clases '%1' ",r_cmd.oper),"\n",bodegas.getLength()
|
|
CALL fgl_winmessage(" ",msg,"info")
|
|
END FUNCTION
|