jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
972f2f1f47c2be430bff37296ff9c0b9c0cee6d6
MBS/PROYECTO/indir/inprmt004.4gl
T
jpeguero efdf8953dd Reorganiza MATERIA PRIMA a PROYECTO y avanza inprmt002/005/013/046 
- Mueve todo el contenido de PROYECTOS/indir y varias funciones
  compartidas de PROYECTOS/otrodir hacia PROYECTO, siguiendo
  instruccion de Johnny (PROYECTOS se va a eliminar).
- inprmt002: agrega campo Desglose faltante, corrige typo "eLiminar".
- inprmt005: agrega formulario y 3 campos faltantes (Consumo,
  Requiere Autorizacion, Requisiciones), corrige typo "eLiminar".
- inprmt013: agrega formulario, titulo, corrige typo "eLiminar".
- inprmt046: agrega formulario y varias funciones/dependencias
  faltantes (cincodmov, clasf_bloque, medidas, defecto,
  buscaEmp, consultaTransportista, busca_departamento);
  corrige nombres de campo desalineados con el codigo
  (depto_a, bodega) y los convierte a ComboBox donde el
  codigo lo requiere.
- Corrige dependencia faltante de FORMULARIOS_IN a la libreria
  Database (bloqueaba todo el modulo de MATERIA PRIMA).
2026-08-26 13:31:09 -04:00

636 lines
23 KiB
Plaintext
Raw Blame History

{
-------------------------------------------------------------------------
PROGRAMA : INPRMT004
OBJETIVO : Programa Captura, Modifica, Elimina Registros
Archivo Maestro Equivalentes Materia Prima.
PROGRAMADOR : Juan Fco. Soto (Johnny)
FECHA REALIZACION : Julio 27, 1992.
-------------------------------------------------------------------------
}
GLOBALS
"inprgb000.4gl"
FUNCTION inprmt004()
CLEAR SCREEN
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 21
OPEN FORM infmmt004 FROM "infmmt004"
DISPLAY FORM infmmt004
CALL pantalla()
DISPLAY "Materias Primas Equivalentes" AT 6,26
DISPLAY "inprmt004" AT 4,2
MENU "OPCIONES"
COMMAND "Adicionar"
"<Esc> Adiciona Registro <Ctrl-C> Cancela Operacion"
LET INT_FLAG = FALSE
LET numero_msg = 0
LET INT_FLAG = FALSE
CALL inpcad004()
COMMAND "Consultar-modificar"
"<Esc> Realiza Busqueda <Ctrl-C> Cancela Operacion"
LET numero_msg = 0
CALL inpcmf004()
COMMAND "Salir" "Retorna Menu Anterior"
EXIT MENU
END MENU
END FUNCTION
### FUNCION PARA AGREGAR REGISTROS SUSTITUTOS A MAESTRA SUSTITUTOS ###
FUNCTION inpcad004()
DEFINE cerrada CHAR(1)
DEFINE total_cantidad,porciento,recibida,ordenada,r_cantidad_1,r_cantidad
DECIMAL(12,2)
WHENEVER ERROR CONTINUE
CLEAR FORM
LET INT_FLAG = FALSE
##### CAPTURA INFORMACION PARA LA MAESTRA SUSTITUTOS
INPUT BY NAME c_equivalente.*
AFTER FIELD cod_sec
SELECT descrip_esp,descrip_ing
INTO descrip1,descrip3 FROM intb00001
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec and
status_t is null
## CHEQUEA QUE EL CODIGO SE ENCUENTRE EN LA TABLA DE ARTICULOS
IF status >= 0 THEN
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD COD_N
END IF
ELSE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
END IF
## DESPLEGA LA DESCRIPCION EN ESPANOL(descrip1) Y EN INGLES(descrip3
DISPLAY BY NAME descrip1,descrip3 ATTRIBUTE (YELLOW)
AFTER FIELD cod_sec_e
SELECT UNIQUE descrip_esp,descrip_ing
INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e
## CHEQUEA QUE EL CODIGO ESTE EN LA TABLA DE ARTICULOS GRALES.
IF status >= 0 THEN
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD COD_N_E
END IF
ELSE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
END IF
# Cheque que un codigo tenga su equivalencia.
SELECT UNIQUE * INTO c_equivalente.* FROM intb00004
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec and
cod_n_e = c_equivalente.cod_n_e and
cod_grupo_e = c_equivalente.cod_grupo_e and
cod_tipo_e = c_equivalente.cod_tipo_e and
cod_sec_e = c_equivalente.cod_sec_e
IF status >= 0 THEN
IF status != NOTFOUND THEN
IF c_equivalente.status_t = "E" THEN
LET numero_msg = 36
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
LET numero_msg = 8
CALL msg(numero_msg)
DISPLAY BY NAME descrip2,descrip4,descrip1,descrip3,
c_equivalente.us_crea,
c_equivalente.fech_crea, c_equivalente.us_mod,
c_equivalente.fech_mod ATTRIBUTE (YELLOW)
NEXT FIELD cod_n
END IF
ELSE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
END IF
# Busca Descripcion Materia Prima
### DESPLEGA LA DESCRIPCION EN ESPANOL(descrip1) Y EN INGLES(descrip4)
DISPLAY BY NAME descrip2,descrip4
IF c_equivalente.cod_n = c_equivalente.cod_n_e and
c_equivalente.cod_grupo = c_equivalente.cod_grupo_e and
c_equivalente.cod_tipo = c_equivalente.cod_tipo_e and
c_equivalente.cod_sec = c_equivalente.cod_sec_e THEN
LET numero_msg = 11
CALL msg(numero_msg)
NEXT FIELD COD_N
END IF
AFTER FIELD cod_uso_e
IF c_equivalente.cod_uso_e != "0" AND c_equivalente.cod_uso_e != "1" THEN
LET numero_msg = 7
CALL msg(numero_msg)
NEXT FIELD cod_uso_e
END IF
AFTER INPUT
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
END IF
IF c_equivalente.cod_uso_e != "0" AND c_equivalente.cod_uso_e != "1" THEN
LET numero_msg = 7
CALL msg(numero_msg)
NEXT FIELD cod_uso_e
END IF
SELECT descrip_esp,descrip_ing
INTO descrip1,descrip3 FROM intb00001
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec AND
status_t is NULL
## CHEQUEA QUE EL CODIGO SE ENCUENTRE EN LA TABLA DE ARTICULOS
IF status >= 0 THEN
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD COD_N
END IF
ELSE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
END IF
# Busca Descripcion Materia Prima
SELECT UNIQUE descrip_esp,descrip_ing
INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e and
status_t is null
## CHEQUEA QUE EL CODIGO ESTE EN LA TABLA DE ARTICULOS GRALES.
IF status >= 0 THEN
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD COD_N_E
END IF
ELSE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
END IF
## DESPLEGA LA DESCRIPCION EN ESPANOL(descrip1) Y EN INGLES(descrip3
IF c_equivalente.cod_n = 0 and
c_equivalente.cod_grupo = 0 and
c_equivalente.cod_tipo = 0 and
c_equivalente.cod_sec = 0 then
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
IF
c_equivalente.cod_n_e = 0 and
c_equivalente.cod_grupo_e = 0 and
c_equivalente.cod_tipo_e = 0 and
c_equivalente.cod_sec_e = 0 THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
SELECT UNIQUE * INTO c_equivalente.* FROM intb00004
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec and
cod_n_e = c_equivalente.cod_n_e and
cod_grupo_e = c_equivalente.cod_grupo_e and
cod_tipo_e = c_equivalente.cod_tipo_e and
cod_sec_e = c_equivalente.cod_sec_e
IF status >= 0 THEN
IF status != NOTFOUND THEN
IF c_equivalente.status_t = "E" THEN
LET numero_msg = 36
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
LET numero_msg = 8
CALL msg(numero_msg)
DISPLAY BY NAME descrip2,descrip4,descrip1,descrip3 ATTRIBUTE (YELLOW)
NEXT FIELD cod_n
END IF
ELSE
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
end if
IF c_equivalente.cod_n = c_equivalente.cod_n_e and
c_equivalente.cod_grupo = c_equivalente.cod_grupo_e and
c_equivalente.cod_tipo = c_equivalente.cod_tipo_e and
c_equivalente.cod_sec = c_equivalente.cod_sec_e THEN
LET numero_msg = 11
CALL msg(numero_msg)
NEXT FIELD COD_N
END IF
INSERT INTO intb00004 VALUES
(c_equivalente.cod_n,c_equivalente.cod_grupo,
c_equivalente.cod_tipo,c_equivalente.cod_sec,
c_equivalente.cod_n_e,
c_equivalente.cod_grupo_e,
c_equivalente.cod_tipo_e,
c_equivalente.cod_sec_e,c_equivalente.cod_uso_e, null,user,current,null,null)
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
LET numero_msg = 1
CALL msg(numero_msg)
SELECT UNIQUE us_crea,fech_crea,us_mod,fech_mod
INTO c_equivalente.us_crea,c_equivalente.fech_crea,
c_equivalente.us_mod,c_equivalente.fech_mod
FROM intb00004
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e
DISPLAY BY NAME descrip2,descrip4,c_equivalente.us_crea,
c_equivalente.fech_crea ATTRIBUTE (YELLOW)
NEXT FIELD cod_n
AFTER FIELD fech_mod
EXIT INPUT
END INPUT
#### CHEQUE QUE LA VARIABLE BOLEANA DE INTERRUPCION (INT_FLAG) ESTE FALSA O
#### VERDADERA, SI ESTA VERDADERA EL USUARIO PRESIONO LA TECLA (DEL)A
END FUNCTION
## FUNCION QUE BUSCA Y MODIFICA SI ES NECESARIO LAS INFORMACIONES EN PANTALLA
FUNCTION inpcmf004()
WHENEVER ERROR CONTINUE
LET INT_FLAG = FALSE
## AQUI SE PREPARA PARA LA CAPTURA DEL CRITERIO DE SELECCION
CLEAR FORM
CONSTRUCT criterio ON intb00004.* FROM intb00004.*
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
end if
LET SELEC = " SELECT UNIQUE * FROM intb00004 where ",
" status_t is null and ",
criterio clipped,
" ORDER BY 1,2,3,4"
PREPARE busca FROM selec
CALl integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
DECLARE datos SCROLL CURSOR WITH HOLD FOR BUSCA
OPEN datos
FETCH NEXT datos INTO c_equivalente.*
IF status >= 0 THEN
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
RETURN
END IF
ELSE
CALl integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
END IF
SELECT descrip_esp,descrip_ing INTO descrip1,descrip3
FROM intb00001
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec
SELECT descrip_esp,descrip_ing INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e
DISPLAY BY NAME c_equivalente.*,descrip1,descrip3,descrip2,descrip4
MENU "OPCIONES"
COMMAND "Siguiente"
"Presenta en pantalla el proximo registro encontrado"
FETCH NEXT datos INTO c_equivalente.*
IF status = NOTFOUND THEN
LET numero_msg = 4
CALL msg(numero_msg)
END IF
SELECT descrip_esp,descrip_ing INTO descrip1,descrip3
FROM intb00001
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec
SELECT descrip_esp,descrip_ing INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e
DISPLAY BY NAME c_equivalente.*,descrip1,descrip2,descrip3,descrip4
COMMAND "Anterior"
"Presenta en pantalla el registro anterior encontrado"
FETCH PREVIOUS datos INTO c_equivalente.*
IF status = NOTFOUND THEN
LET numero_msg = 5
CALL msg(numero_msg)
END IF
SELECT descrip_esp,descrip_ing INTO descrip1,descrip3
FROM intb00001
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec
SELECT descrip_esp,descrip_ing INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e
DISPLAY BY NAME c_equivalente.*,descrip1,descrip2,descrip3,descrip4
COMMAND "Primero"
"Presenta en pantalla el primer registro encontrado"
FETCH FIRST datos INTO c_equivalente.*
SELECT descrip_esp,descrip_ing INTO descrip1,descrip3
FROM intb00001
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec
SELECT descrip_esp,descrip_ing INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e
DISPLAY BY NAME c_equivalente.*,descrip1,descrip2,descrip3,descrip4
LET numero_msg = 5
CALL msg(numero_msg)
COMMAND "Ultimo"
"Presenta en pantalla el ultimo registro encontrado"
FETCH LAST datos INTO c_equivalente.*
SELECT descrip_esp,descrip_ing INTO descrip1,descrip3
FROM intb00001
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec
SELECT descrip_esp,descrip_ing INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e
DISPLAY BY NAME c_equivalente.*,descrip1,descrip2,descrip3,descrip4
LET numero_msg = 4
CALL msg(numero_msg)
COMMAND "Escoger" "<Esc> Actualiza Registro <Ctrl-C> Cancela Operacion"
INPUT BY NAME c_equivalente.* WITHOUT DEFAULTS
BEFORE FIELD cod_n
NEXT FIELD cod_n_e
AFTER FIELD cod_sec_e
# Busca Descripcion Materia Prima
SELECT UNIQUE descrip_esp,descrip_ing
INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e and
status_t is null
## CHEQUEA QUE EL CODIGO ESTE EN LA TABLA DE ARTICULOS GRALES.
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD cod_n_e
END IF
SELECT UNIQUE us_crea,fech_crea,us_mod,fech_mod
INTO c_equivalente.us_crea,c_equivalente.fech_crea,
c_equivalente.us_mod,c_equivalente.fech_mod
FROM intb00004
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e and
status_t is null
### DESPLEGA LA DESCRIPCION EN ESPANOL(descrip1) Y EN INGLES(descrip4)
DISPLAY BY NAME descrip2,descrip4,c_equivalente.us_crea,
c_equivalente.fech_crea,c_equivalente.us_mod,
c_equivalente.fech_mod
AFTER INPUT
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
END IF
SELECT UNIQUE descrip_esp,descrip_ing
INTO descrip2,descrip4
FROM intb00001
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e and
status_t is null
## CHEQUEA QUE EL CODIGO ESTE EN LA TABLA DE ARTICULOS GRALES.
IF status = NOTFOUND THEN
LET numero_msg = 3
CALL msg(numero_msg)
NEXT FIELD COD_N_E
END IF
SELECT UNIQUE us_crea,fech_crea,us_mod,fech_mod
INTO c_equivalente.us_crea,c_equivalente.fech_crea,
c_equivalente.us_mod,c_equivalente.fech_mod
FROM intb00004
WHERE cod_n = c_equivalente.cod_n_e and
cod_grupo = c_equivalente.cod_grupo_e and
cod_tipo = c_equivalente.cod_tipo_e and
cod_sec = c_equivalente.cod_sec_e and
status_t is null
IF c_equivalente.cod_n = 0 and
c_equivalente.cod_grupo = 0 and
c_equivalente.cod_tipo = 0 and
c_equivalente.cod_sec = 0 then
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
IF
c_equivalente.cod_n_e = 0 and
c_equivalente.cod_grupo_e = 0 and
c_equivalente.cod_tipo_e = 0 and
c_equivalente.cod_sec_e = 0 THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD cod_n
END IF
IF c_equivalente.cod_n = c_equivalente.cod_n_e and
c_equivalente.cod_grupo = c_equivalente.cod_grupo_e and
c_equivalente.cod_tipo = c_equivalente.cod_tipo_e and
c_equivalente.cod_sec = c_equivalente.cod_sec_e THEN
LET numero_msg = 11
CALL msg(numero_msg)
NEXT FIELD COD_N
END IF
IF INT_FLAG THEN
LET numero_msg = 13
CALL msg(numero_msg)
LET INT_FLAG = FALSE
RETURN
END IF
AFTER FIELD fech_mod
EXIT INPUT
END INPUT
#### CHEQUE QUE LA VARIABLE BOLEANA DE INTERRUPCION (INT_FLAG) ESTE FALSA O
#### VERDADERA, SI ESTA VERDADERA EL USUARIO PRESIONO LA TECLA (DEL)A
IF INT_FLAG THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
UPDATE intb00004 set cod_n_e = c_equivalente.cod_n_e,
cod_grupo_e = c_equivalente.cod_n_e,
cod_tipo_e = c_equivalente.cod_tipo_e,
cod_sec_e = c_equivalente.cod_sec_e,
cod_uso_e = c_equivalente.cod_uso_e,
us_mod = user,
fech_mod = current
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec
CALL integridad()
if bandera = 1 THEN
LET bandera = 0
RETURN
end if
LET numero_msg = 13
CALL msg(numero_msg)
COMMAND KEY ("L") "eLiminar"
UPDATE intb00004 set status_t = "E"
WHERE cod_n = c_equivalente.cod_n and
cod_grupo = c_equivalente.cod_grupo and
cod_tipo = c_equivalente.cod_tipo and
cod_sec = c_equivalente.cod_sec
LET numero_msg = 39
CALL msg(numero_msg)
SLEEP 2
COMMAND "Retornar"
CLEAR FORM
EXIT MENU
END MENU
END FUNCTION
{FUNCTION inpcmt003()
LET pa_act = arr_curr()
LET scr_l = scr_line()
OPEN WINDOW consulta AT 3,10 WITH FORM "infmco004"
ATTRIBUTE (BORDER,FORM LINE 2)
DECLARE CONSULTA CURSOR FOR
SELECT i.cod_n_e,i.cod_grupo_e,i.cod_tipo_e,i.cod_sec_e,
d.descrip_esp,d.descrip_ing
FROM intb00004 i,intb00001 d
WHERE i.cod_n = c_equivalente.cod_n AND
i.cod_grupo = c_equivalente.cod_grupo AND
i.cod_tipo = c_equivalente.cod_tipo AND
i.cod_sec = c_equivalente.cod_sec AND
i.cod_n = d.cod_n and
i.cod_grupo = d.cod_grupo and
i.cod_tipo = d.cod_tipo and
i.cod_sec = d.cod_sec
FOREACH consulta INTO c_busca[idx].*
LET idx = idx + 1
END FOREACH
CALL set_count(idx -1)
DISPLAY ARRAY c_busca to s_desplega.*
LET idx = arr_curr()
CLOSE WINDOW consulta
END FUNCTION}
Reference in New Issue View Git Blame Copy Permalink