IMPORT util

FUNCTION condiciones()

    DEFINE   condiciones DYNAMIC ARRAY OF RECORD
        cond_pago  SMALLINT,
         descripcion VARCHAR(30),
         dias        SMALLINT ,
         defecto     VARCHAR(2)
         
    END RECORD
    DEFINE condicion RECORD
     cond_pago  SMALLINT,
         descripcion VARCHAR(30),
         dias        SMALLINT ,
         defecto     VARCHAR(2)
       
    END RECORD,
       i INT

     DECLARE u25 CURSOR FOR SELECT a.cond_pago,a.descrip,a.dias,a.defecto
                                   
      INTO condicion.* FROM vetb00012 a WHERE a.status_t IS null
      LET i=0 FOREACH u25 LET i=i+1 LET condiciones[i].*=condicion.*
    
    END FOREACH; FREE u25
    
    RETURN util.JSON.stringify(condiciones)
END FUNCTION