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