28 lines
1.0 KiB
Plaintext
28 lines
1.0 KiB
Plaintext
MAIN
|
|
|
|
CONNECT TO "smarmotech" AS "MSSQL" USER 'jsoto' USING 'lmmjvsd2014'
|
|
CALL buscaprecios()
|
|
END MAIN
|
|
FUNCTION buscaprecios()
|
|
DEFINE data RECORD
|
|
rowid INT,
|
|
codn,codgrupo,codtipo,codsec INT,
|
|
precio DEC(12,2),
|
|
us_mod VARCHAR(50),
|
|
fech_mod DATETIME YEAR TO MINUTE
|
|
END RECORD,
|
|
updata STRING
|
|
|
|
LET updata = "UPDATE crmindata.dbo.precios Set precio =?,us_mod = ?,fech_mod=? where idrow = ? and cod_n = ? and cod_grupo = ? and cod_tipo = ? and cod_sec = ?"
|
|
PREPARE actualiza FROM updata
|
|
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT a.idrow,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.precio,a.us_mod,a.fech_mod
|
|
FROM vetb00025 a WHERE a.cod_lista = 1 AND a.cod_n > 28
|
|
|
|
FOREACH buscar INTO data.*
|
|
|
|
EXECUTE actualiza USING data.precio,data.us_mod,data.fech_mod,data.rowid,data.codn,data.codgrupo,data.codtipo,data.codsec
|
|
DISPLAY "ACTUALICE ",data.codn," ",data.codgrupo," ",data.codtipo," ",data.codsec," ",data.precio
|
|
END FOREACH
|
|
END FUNCTION |