jpeguero
efdf8953dd
- 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).
56 lines
1.7 KiB
Plaintext
56 lines
1.7 KiB
Plaintext
{
|
|
FUNCION: transportista.4gl
|
|
OBJETIVO: CONSULTAR LA TABLA DE TRANSPORTISTAS
|
|
DESARROLLADO POR: ING. JUAN SOTO
|
|
FECHA : NOVIEMBRE 15, 2023
|
|
|
|
}
|
|
|
|
DEFINE criterio,selec STRING
|
|
|
|
FUNCTION consultaTransportista()
|
|
DEFINE datos_transp DYNAMIC ARRAY OF RECORD
|
|
cod_transp,sec_transp INT,
|
|
nombre VARCHAR(30)
|
|
END RECORD,
|
|
I,pcodtransp,psectransp INT,
|
|
nombreT VARCHAR(30)
|
|
|
|
call ui.Interface.loadStyles("formularios")
|
|
OPEN WINDOW w1 WITH FORM "transportista"
|
|
CONSTRUCT criterio ON a.nombre FROM nombre
|
|
BEFORE CONSTRUCT
|
|
DISPLAY "BUSQUEDA TRANSPORTISTAS" TO encabezado
|
|
AFTER CONSTRUCT
|
|
IF int_flag THEN
|
|
LET int_flag = FALSE
|
|
CLOSE WINDOW w1
|
|
RETURN pcodtransp,psectransp,nombreT
|
|
END IF
|
|
EXIT CONSTRUCT
|
|
END CONSTRUCT
|
|
LET selec = "SELECT a.cod_transp,a.sec_transp,a.nombre FROM vetb00015 a WHERE ",criterio CLIPPED, " and a.status_t is null
|
|
ORDER BY a.nombre "
|
|
PREPARE comando FROM selec
|
|
DECLARE buscar CURSOR FOR comando
|
|
|
|
LET i = 1
|
|
FOREACH buscar INTO datos_transp[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
DISPLAY ARRAY datos_transp TO stransP.*
|
|
AFTER DISPLAY
|
|
IF int_flag THEN
|
|
LET pcodtransp=NULL
|
|
LET psectransp=NULL
|
|
EXIT DISPLAY
|
|
END IF
|
|
LET pcodtransp = datos_transp[arr_curr()].cod_transp
|
|
LET psectransp = datos_transp[arr_curr()].sec_transp
|
|
LET nombreT = datos_transp[arr_curr()].nombre
|
|
|
|
EXIT DISPLAY
|
|
END DISPLAY
|
|
CLOSE WINDOW w1
|
|
RETURN pcodtransp,psectransp,nombreT
|
|
END FUNCTION |