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