88 lines
5.5 KiB
Plaintext
88 lines
5.5 KiB
Plaintext
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 ",
|