32 lines
994 B
Plaintext
32 lines
994 B
Plaintext
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 |