IMPORT util

FUNCTION ip_movimientos(pdata)
  DEFINE pdata STRING
  DEFINE credenciales RECORD 
     usuario,clave VARCHAR(50)
  END RECORD
  DEFINE p RECORD
     pmovimientos DYNAMIC ARRAY OF RECORD
    cod_mov    SMALLINT,
    descripcion VARCHAR(60),
    status_mov  CHAR(2),
    control_cliente,control_despacho,control_devolucion,
         control_transferencia,control_departamento,aplicacion_movi_inv,aplicacion_movil_doc CHAR(10)
  END RECORD,
    r_out RECORD
     cod_msg    INT,
     mensaje_out  VARCHAR(100)
     END RECORD
   END RECORD,
   i SMALLINT
   CALL util.JSON.parse(pdata,credenciales)
   DISPLAY "USUARIO ",credenciales.usuario," clave ",credenciales.clave
   CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
   IF STATUS < 0 THEN
      LET p.r_out.cod_msg=-10
      LET p.r_out.mensaje_out='USUARIO NO VALIDO'
      DISCONNECT CURRENT
      RETURN util.JSON.stringify(P)
   END IF

   
 DECLARE c1 CURSOR FOR
   SELECT a.cod_mov,a.descrip_mov,a.status_mov,a.control_clientes,a.control_despacho,
          a.control_devolucion,a.control_transferencia,a.control_departamento,
          a.aplicacion_movil_inv,a.aplicacion_movil_doc
          FROM iptb00005 a
   WHERE a.status_t IS NULL 
    
 LET i = 1
 FOREACH c1 INTO p.pmovimientos[i].*
   LET i = i + 1
 END FOREACH
 DISCONNECT CURRENT
 RETURN util.JSON.stringify(P)
END FUNCTION