87 lines
3.9 KiB
Plaintext
87 lines
3.9 KiB
Plaintext
MAIN
|
|
|
|
CALL actualizacionrep()
|
|
END MAIN
|
|
|
|
FUNCTION actualizacionrep()
|
|
DEFINE datos RECORD
|
|
codn,codgrupo,codtipo,codsec,codn1,codgrupo1,codtipo1,codsec1 INT
|
|
END RECORD,
|
|
idx,pcodsec INT
|
|
CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_Sec,a.cod_n1,a.cod_grupo1,a.cod_tipo1 FROM tmprepuestos a
|
|
# WHERE cod_grupo = 13 AND cod_tipo = 0 AND cod_Sec = 109
|
|
ORDER BY a.cod_n,a.cod_Grupo,a.cod_tipo,a.cod_sec
|
|
LET idx = 1
|
|
# LET pcodsec = 1700
|
|
BEGIN WORK
|
|
FOREACH busca INTO datos.*
|
|
|
|
# Maestra
|
|
SELECT a.cod_n FROM irtb00002 a WHERE a.cod_n =datos.codn AND a.cod_grupo = datos.codgrupo1 AND
|
|
a.cod_tipo = datos.codtipo1 AND a.cod_sec = datos.codsec
|
|
IF status != NOTFOUND THEN
|
|
DISPLAY "NO ENCONBRE ",datos.codn," ",datos.codgrupo1," ",datos.codtipo1," ",datos.codsec," CUENTA: ",idx," DATA: ",pcodsec
|
|
SELECT ISNULL(MAX(cod_Sec),0) INTO pcodsec FROM irtb00002 WHERE cod_n = datos.codn AND cod_Grupo = datos.codgrupo1 AND
|
|
cod_tipo = datos.codtipo1
|
|
|
|
LET pcodsec = pcodsec + 1
|
|
LET datos.codsec1 = pcodsec
|
|
|
|
END IF
|
|
|
|
UPDATE irtb00002 SET cod_n=datos.codn1, cod_grupo = datos.codgrupo1,cod_tipo = datos.codtipo1,
|
|
cod_Sec=datos.codsec1,
|
|
us_mod = 'jsoto',fech_mod = getdate()
|
|
WHERE cod_n = datos.codn AND cod_grupo = datos.codgrupo AND
|
|
cod_tipo = datos.codtipo AND cod_sec = datos.codsec
|
|
DISPLAY "codigo ", datos.codn,datos.codgrupo ,
|
|
datos.codtipo, datos.codsec
|
|
UPDATE irtb00006 SET cod_n=datos.codn1,cod_grupo = datos.codgrupo1,cod_tipo = datos.codtipo1,
|
|
cod_Sec=datos.codsec1,
|
|
us_mod = 'jsoto',fech_mod = getdate()
|
|
WHERE cod_n = datos.codn AND cod_grupo = datos.codgrupo AND
|
|
cod_tipo = datos.codtipo AND cod_sec = datos.codsec
|
|
|
|
|
|
UPDATE irtb00013 SET cod_n=datos.codn1,cod_grupo = datos.codgrupo1,cod_tipo = datos.codtipo1,
|
|
cod_sec=datos.codsec1,
|
|
us_mod = 'jsoto',fech_mod = getdate()
|
|
WHERE cod_n = datos.codn AND cod_grupo = datos.codgrupo AND
|
|
cod_tipo = datos.codtipo AND cod_sec = datos.codsec
|
|
|
|
|
|
UPDATE cotb00008 SET cod_n=datos.codn1, cod_grupo = datos.codgrupo1,cod_tipo = datos.codtipo1,
|
|
cod_sec = datos.codsec1,
|
|
us_mod = 'jsoto',fech_mod = getdate()
|
|
WHERE cod_n = datos.codn AND cod_grupo = datos.codgrupo AND
|
|
cod_tipo = datos.codtipo AND cod_sec = datos.codsec AND tipo_inv='REPUESTOS'
|
|
|
|
UPDATE cotb00015 SET cod_n=datos.codn1,cod_grupo = datos.codgrupo1,cod_tipo = datos.codtipo1,
|
|
cod_sec=datos.codsec1,
|
|
us_mod = 'jsoto',fech_mod = getdate()
|
|
WHERE cod_n = datos.codn AND cod_grupo = datos.codgrupo AND
|
|
cod_tipo = datos.codtipo AND cod_sec = datos.codsec AND tipo='03'
|
|
|
|
|
|
UPDATE cttb00013 SET cod_n=datos.codn1,cod_grupo = datos.codgrupo1,cod_tipo = datos.codtipo1,
|
|
cod_sec=datos.codsec1,
|
|
us_mod = 'jsoto',fech_mod = getdate()
|
|
WHERE cod_n = datos.codn AND cod_grupo = datos.codgrupo AND
|
|
cod_tipo = datos.codtipo AND cod_sec = datos.codsec
|
|
|
|
|
|
UPDATE cttb00032 SET cod_n=datos.codn1,cod_grupo = datos.codgrupo1,cod_tipo = datos.codtipo1,
|
|
cod_sec=datos.codsec1,
|
|
us_mod = 'jsoto',fech_mod = getdate()
|
|
WHERE cod_n = datos.codn AND cod_grupo = datos.codgrupo AND
|
|
cod_tipo = datos.codtipo AND cod_sec = datos.codsec
|
|
|
|
DISPLAY "DATOS ACT ",datos.codn," ",datos.codgrupo1," ",datos.codtipo1," ",datos.codsec1," CUENTA: ",idx," DATA: ",pcodsec
|
|
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
COMMIT WORK
|
|
END FUNCTION |