IMPORT util

FUNCTION ip_fechaconteo(pdata)
DEFINE pdata STRING 
DEFINE p RECORD
    credenciales RECORD
      usuario,clave VARCHAR(50)
   END RECORD,   
   pfechas DYNAMIC ARRAY OF RECORD
     tipo_inventario  STRING, 
     fechaConteo      DATE
   END RECORD,
   mensajes RECORD
     cod_msg INT,
     descripcion STRING
    END RECORD
   END RECORD, 
   i SMALLINT
 CALL util.JSON.parse(pdata,p)
 CONNECT TO "smarmotech" USER p.credenciales.usuario USING p.credenciales.clave
 IF STATUS < 0 THEN
    LET p.mensajes.descripcion = 'ERROR CONEXION ',SQLCA.sqlerrm
    LET p.mensajes.cod_msg=STATUS
    RETURN util.JSON.stringify(p)
 END IF
 DECLARE c1 CURSOR FOR
   SELECT a.tipo_inventario,a.fecha_conteo  FROM intb00044 a
    
 LET i = 1
 FOREACH c1 INTO p.pfechas[i].*
   LET i = i + 1
 END FOREACH
 DISCONNECT CURRENT
 RETURN util.JSON.stringify(p)
END FUNCTION