IMPORT util

FUNCTION tipos(data)
  DEFINE ptipos DYNAMIC ARRAY OF RECORD
    cod_tipo    SMALLINT,
    descripcion VARCHAR(60)
  END RECORD,
   i SMALLINT
DEFINE  credenciales RECORD
        usuario,clave VARCHAR(50),
        clase,grupo SMALLINT
        
  END RECORD,
  data STRING

  DEFINE mensajes RECORD
     cod_msg  INT,
     mensaje_out STRING
   END RECORD


 CALL util.JSON.parse(data,credenciales)
 IF credenciales.usuario IS NULL THEN
      LET mensajes.cod_msg=3
      LET mensajes.mensaje_out='USUARIO ESTA EN BLANCO'
      RETURN util.JSON.stringify(mensajes)
   END IF 
   
   CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
     IF STATUS < 0 THEN
      LET mensajes.cod_msg = 422
      LET mensajes.mensaje_out="ERROR EN CONEXION ",sqlca.sqlerrm
      DISCONNECT CURRENT
      RETURN util.JSON.stringify(mensajes)
   END IF
     IF credenciales.clase IS NULL THEN
      LET mensajes.cod_msg = 423
      LET mensajes.mensaje_out="ERROR, DEBES ENVIAR LA CLASE DEL PRODUCTO "
      DISCONNECT CURRENT
      RETURN util.JSON.stringify(mensajes)
   END IF
     IF credenciales.grupo IS NULL THEN
      LET mensajes.cod_msg = 423
      LET mensajes.mensaje_out="ERROR, DEBES ENVIAR EL GRUPO DEL PRODUCTO "
      DISCONNECT CURRENT
      RETURN util.JSON.stringify(mensajes)
   END IF
   
 DECLARE c1 CURSOR FOR
   SELECT DISTINCT a.cod_tipo,a.descripcion FROM iptb00024 a 
        INNER JOIN iptb00002 b ON b.cod_n = credenciales.clase AND
                                  b.cod_grupo = credenciales.grupo AND b.status_t IS NULL
    WHERE a.status_t IS NULL AND (a.descripcion IS NOT NULL AND a.descripcion NOT LIKE 'NO TIENE%') 
                                 
    
 LET i = 1
 FOREACH c1 INTO ptipos[i].*
   LET i = i + 1
 END FOREACH

 DISCONNECT CURRENT
 RETURN util.JSON.stringify(ptipos)
END FUNCTION