IMPORT util

FUNCTION ip_bodegas(pdata)
 DEFINE pdata STRING

 DEFINE p RECORD
    credenciales RECORD
      usuario,clave VARCHAR(50)
    END RECORD,
   pbodegas DYNAMIC ARRAY OF RECORD
    bodega    SMALLINT,
    descripcion VARCHAR(60)
  END RECORD,
    usuarios_bodegas DYNAMIC ARRAY OF RECORD
       bodega SMALLINT,
       usuario VARCHAR(50)
     END RECORD,  
    mensajes RECORD
      cod_msg INT,
      descripcion STRING
    END RECORD
  END RECORD,
   i SMALLINT
   
 #WHENEVER ERROR CONTINUE

 CALL util.JSON.parse(pdata,p)
 IF STATUS < 0 THEN
    LET p.mensajes.cod_msg=STATUS
    LET p.mensajes.descripcion='ERROR JSON ',SQLCA.sqlerrm
    RETURN util.JSON.stringify(p)
 END IF
 DISPLAY "USUARIO ",p.credenciales.usuario," clave ",p.credenciales.clave
 CONNECT TO "smarmotech" USER p.credenciales.usuario USING p.credenciales.clave
 IF STATUS < 0 THEN
    LET p.mensajes.cod_msg=STATUS
    LET p.mensajes.descripcion='ERROR CONEXION ',SQLCA.sqlerrm
    DISCONNECT CURRENT
    RETURN util.JSON.stringify(p)
 END IF
 DECLARE c1 CURSOR FOR
   SELECT a.cod_bodega,a.descripcion FROM intb00009 a   WHERE a.dispositivo_movil='SI'
    
 LET i = 1
 FOREACH c1 INTO p.pbodegas[i].*
 
   LET i = i + 1
 END FOREACH
 DECLARE c2 CURSOR FOR
    SELECT a.bodega,a.usuario FROM iptb00048 a,intb00009 b WHERE a.bodega = b.cod_bodega AND b.dispositivo_movil='SI'

    LET i=1
    FOREACH c2 INTO p.usuarios_bodegas[i].*
 
      LET i = i +1
    END FOREACH
    
    DISCONNECT CURRENT 
 RETURN util.JSON.stringify(p)
END FUNCTION