Selene » Selene Wrapper

The following function has been created on the file atcl.oblig.sql of the test resources directory:

CREATE OR REPLACE FUNCTION hacer_obligatorios_atributos_clases_diseno()
  RETURNS void AS
$BODY$
DECLARE
    CLASE RECORD;
BEGIN
    FOR CLASE IN SELECT * FROM OBJM WHERE TIOBME='CD'
    LOOP
        UPDATE ATCL SET OBLIG=true WHERE 
            COINOB=(SELECT COINOB FROM OBJM WHERE TIOBME='CD' AND COOBME='OBJM') AND
            SUBCLA='CD' AND
            VACLOB=CLASE.COOBME AND
            CODATR IN (
                SELECT CODATR FROM ATCL WHERE 
                    COINOB=(SELECT COINOB FROM OBJM WHERE TIOBME='CD' AND COOBME='OBJM') AND
                    SUBCLA='CL' AND
                    VACLOB IN (
                        SELECT COOBME FROM OBJM WHERE
                            TIOBME='CL' AND
                            COOBPA=(SELECT COINOB FROM OBJM WHERE TIOBME='CD' AND COOBME=CLASE.COOBME)
                    )
                );
    END LOOP;
END
$BODY$
LANGUAGE plpgsql

The following function has been created on the file atcl.formato.clave.sql of the test resources directory for update unique keys attributes format from design classes:

CREATE OR REPLACE FUNCTION dar_formato_atributos_claves_fichero()
  RETURNS void AS
$BODY$
DECLARE
    CLAVE RECORD;
    ATRIBUTO RECORD;
BEGIN
    FOR CLAVE IN SELECT * FROM OBJM WHERE TIOBME='CL'
    LOOP
        FOR ATRIBUTO IN SELECT * FROM ATCL WHERE
            COINOB=(SELECT COINOB FROM OBJM WHERE TIOBME='CD' AND COOBME='OBJM') AND
            SUBCLA='CL' AND
            VACLOB=CLAVE.COOBME
            LOOP
                UPDATE ATCL SET 
                    FORMATO=
                        (
                        SELECT FORMATO FROM ATCL WHERE 
                            COINOB=(SELECT COINOB FROM OBJM WHERE TIOBME='CD' AND COOBME='OBJM') AND
                            SUBCLA='CD' AND
                            VACLOB=(SELECT COOBME FROM OBJM WHERE COINOB=CLAVE.COOBPA) AND
                            CODATR=ATRIBUTO.CODATR
                        ),
                    LONGITUD=
                        (
                        SELECT LONGITUD FROM ATCL WHERE 
                            COINOB=(SELECT COINOB FROM OBJM WHERE TIOBME='CD' AND COOBME='OBJM') AND
                            SUBCLA='CD' AND
                            VACLOB=(SELECT COOBME FROM OBJM WHERE COINOB=CLAVE.COOBPA) AND
                            CODATR=ATRIBUTO.CODATR
                        )
                WHERE 
                    COINOB=(SELECT COINOB FROM OBJM WHERE TIOBME='CD' AND COOBME='OBJM') AND
                    SUBCLA='CL' AND
                    VACLOB=CLAVE.COOBME AND
                    CODATR=ATRIBUTO.CODATR;
            END LOOP;
    END LOOP;
END
$BODY$
LANGUAGE plpgsql

Applied in changeset selene-wrapper|r654.