coprcs009.4gl: fech_ent FROM cotb00025 coprfu009.4gl: fech_crea LIKE cotb00025.fech_crea coprfu009.4gl: fech_ent,us_crea,fech_crea,rowid FROM cotb00025 coprfu009.4gl: DELETE FROM cotb00025 WHERE @num_oc = ordenes.num_oc AND coprfu009.4gl: INSERT INTO cotb00025 (num_oc,tipo,num_req,cod_n,cod_grupo, coprgb000.4gl: num_oc LIKE cotb00025.num_oc, coprgb000.4gl: cantidad LIKE cotb00025.cantidad, coprgb000.4gl: fech_emb LIKE cotb00025.fech_emb, coprgb000.4gl: fech_ent LIKE cotb00025.fech_ent coprgb000.4gl: cantidad LIKE cotb00025.cantidad, coprgb000.4gl: fech_emb LIKE cotb00025.fech_emb, coprgb000.4gl: fech_ent LIKE cotb00025.fech_ent coprmt009.4gl: DEFINE j RECORD LIKE cotb00025.* coprmt009.4gl: DELETE FROM cotb00025 WHERE @tipo = ordenes.tipo AND coprmt009.4gl: DELETE FROM cotb00025 WHERE @tipo = ordenes.tipo AND coprmt009.4gl: DELETE FROM cotb00025 WHERE @num_oc = ordenes.num_oc AND coprmt009.4gl: UPDATE cotb00025 set status_t = "N", coprmt009.4gl: SELECT COUNT(*) INTO total_parc FROM cotb00025 coprmt009.4gl: SELECT UNIQUE b.fech_emb INTO fecha1 FROM cotb00025 b coprmt009.4gl: SELECT a.* INTO j.* FROM cotb00025 a coprmt013.4gl: DEFINE tabla25 RECORD LIKE cotb00025.* coprmt013.4gl: UNLOAD TO "cotb00025.ld" SELECT a.* FROM cotb00025 a,cotb00014 b coprmt013.4gl: SELECT a.rowid,a.* FROM cotb00025 a,cotb00014 b coprmt013.4gl: DELETE FROM cotb00025 WHERE rowid = reg coprmt020.4gl: DEFINE j RECORD LIKE cotb00025.* coprmt020.4gl: DELETE FROM cotb00025 WHERE @tipo = ordenes.tipo AND coprmt020.4gl: DELETE FROM cotb00025 WHERE @tipo = ordenes.tipo AND coprmt020.4gl: DELETE FROM cotb00025 WHERE @tipo = ordenes.tipo AND coprmt020.4gl: UPDATE cotb00025 set status_t = "N", coprmt021.4gl: DEFINE j RECORD LIKE cotb00025.* coprpc001.4gl:FUNCION : Funcion para actualizar campo de la tabla cotb00025, para coprpc001.4gl:DEFINE p_entregas RECORD LIKE cotb00025.* coprpc001.4gl: "FROM cotb00025 ", coprpc001.4gl: SELECT unique num_oc FROM cotb00025 coprpc001.4gl: UPDATE cotb00025 set cantidad_r = pendiente coprpc001.4gl: SELECT rowid,* FROM cotb00025 WHERE fech_ent < fecha_inicial_py and coprpc001.4gl: UPDATE cotb00025 set fech_ent = up_fecha1, coprrp003.4gl: fech_ent LIKE cotb00025.fech_ent, coprrp003.4gl: "FROM cotb00015 a,cotb00025 b,cotb00014 c ", coprrp003.4gl: "FROM cotb00015 a,cotb00025 b,cotb00014 c ", coprrp003.4gl: fech_ent LIKE cotb00025.fech_ent, coprrp005.4gl: "FROM cotb00014 a,cotb00025 b,intb00002 c ", coprrp010.4gl: "FROM cotb00025 a2,cotb00015 x,cotb00026 c2,intb00003 d2,intb00002 e2, ", coprrp010.4gl: "FROM cotb00025 a3,cotb00015 x,cotb00026 c3,intb00004 d3,intb00002 e3, ", coprrp010.4gl: "FROM cotb00025 a1,cotb00015 x,cotb00026 c1,intb00002 e1,cotb00014 f1 ", coprrp011.4gl: "FROM cotb00025 a2, cotb00015 x, cotb00026 c2, ", coprrp011.4gl: "FROM cotb00025 a3, cotb00015 x, cotb00026 c3, ", coprrp011.4gl: "FROM cotb00025 a1, cotb00015 x, cotb00026 c1,", coprrp018.4gl: entregas RECORD LIKE cotb00025.*, coprrp018.4gl: cod_n LIKE cotb00025.cod_n, coprrp018.4gl: cod_grupo LIKE cotb00025.cod_grupo, coprrp018.4gl: cod_tipo LIKE cotb00025.cod_grupo, coprrp018.4gl: cod_sec LIKE cotb00025.cod_grupo, coprrp018.4gl: cantidad_o LIKE cotb00025.cantidad, coprrp018.4gl: SELECT a.* FROM cotb00025 a coprrp018.4gl: cod_n LIKE cotb00025.cod_n, coprrp018.4gl: cod_grupo LIKE cotb00025.cod_grupo, coprrp018.4gl: cod_tipo LIKE cotb00025.cod_grupo, coprrp018.4gl: cod_sec LIKE cotb00025.cod_grupo, coprrp018.4gl: cantidad_o LIKE cotb00025.cantidad, coprrp019.4gl: num_req LIKE cotb00025.num_req, coprrp019.4gl: fech_emb LIKE cotb00025.fech_emb, coprrp019.4gl: fech_ent LIKE cotb00025.fech_ent, coprrp019.4gl: cantidad_p LIKE cotb00025.cantidad, coprrp019.4gl: FROM cotb00015 a, intb00001 c, OUTER cotb00025 b coprrp019.4gl: num_req LIKE cotb00025.num_req, coprrp019.4gl: fech_emb LIKE cotb00025.fech_emb, coprrp019.4gl: fech_ent LIKE cotb00025.fech_ent, coprrp019.4gl: cantidad_p LIKE cotb00025.cantidad, coprrp020.4gl: entregas RECORD LIKE cotb00025.*, coprrp020.4gl: cod_n LIKE cotb00025.cod_n, coprrp020.4gl: cod_grupo LIKE cotb00025.cod_grupo, coprrp020.4gl: cod_tipo LIKE cotb00025.cod_grupo, coprrp020.4gl: cod_sec LIKE cotb00025.cod_grupo, coprrp020.4gl: cantidad_o LIKE cotb00025.cantidad, coprrp020.4gl: SELECT a.* FROM cotb00025 a coprrp020.4gl: cod_n LIKE cotb00025.cod_n, coprrp020.4gl: cod_grupo LIKE cotb00025.cod_grupo, coprrp020.4gl: cod_tipo LIKE cotb00025.cod_grupo, coprrp020.4gl: cod_sec LIKE cotb00025.cod_grupo, coprrp020.4gl: cantidad_o LIKE cotb00025.cantidad, coprrp020.4gl: cod_n LIKE cotb00025.cod_n, coprrp020.4gl: cod_grupo LIKE cotb00025.cod_grupo, coprrp020.4gl: cod_tipo LIKE cotb00025.cod_grupo, coprrp020.4gl: cod_sec LIKE cotb00025.cod_grupo, coprrp020.4gl: cantidad_o LIKE cotb00025.cantidad, coprrp024.4gl: "FROM cotb00014 c,cotb00025 a,intb00002 d,intb00001 b ",