CREATE OR REPLACE FUNCTION Pedro_ResolverDImg0(INTEGER)
RETURNS INTEGER AS
$BODY$
DECLARE
limite ALIAS FOR $1;
rec RECORD;
BEGIN
FOR rec IN SELECT c.folio, c.empcapturo, c.promotortitular, fxp.claveconsar FROM colsolicitudes c INNER JOIN colpromotor p ON c.folio=p.folio
INNER JOIN colpromotortitular pt ON p.folio=pt.folio INNER JOIN colinfxpromotores fxp ON p.empnomina=fxp.empleado
WHERE c.promotortitular=0 LIMIT limite
LOOP
UPDATE colpromotor SET claveconsar=rec.claveconsar, empnomina=rec.empcapturo WHERE folio=rec.folio;
DELETE FROM colpromotortitular WHERE folio=rec.folio;
END LOOP;
RETURN 1;
END;
$BODY$
LANGUAGE 'plpgsql' VOLATILE;