MAIN

  CONNECT TO "smarmotech" AS "MSSQL" USER 'jsoto' USING 'lmmjvsd2014'
  CALL actsueldo()
END MAIN

FUNCTION actsueldo()
  DEFINE idx,numemp INT,
         sueldoant,sueldoact DEC(12,2),
         nombre VARCHAR(100)


  DECLARE buscar CURSOR FOR
    SELECT a.num_emp,SUM(a.valor),b.sueldo_ac,b.nom1_emp+' '+b.apell1_emp
    FROM notb00008 a,adtb00003 b 
    WHERE a.num_emp = b.num_emp AND
          a.fecha BETWEEN '03/01/2023' AND '03/31/2023' AND
          a.cod_mov = 1 AND 
          b.status_t IS NULL
    GROUP BY a.num_emp,b.sueldo_ac,b.nom1_emp,b.apell1_emp

    LET idx = 1
    FOREACH buscar INTO numemp,sueldoant,sueldoact,nombre
      IF sueldoant <> sueldoact THEN
         DISPLAY numemp," ", nombre," ", sueldoant," ",sueldoact," id ",idx
         UPDATE adtb00003 SET fecha_ultimo_aumento = '04/01/2023',us_mod = 'JSOTO',fech_mod=getdate()
         WHERE num_emp = numemp

         LET idx = idx + 1
      END IF 
    END FOREACH
END FUNCTION