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).
35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
FUNCTION codmov()
|
|
|
|
DEFINE ketiquetas SMALLINT, detiquetas STRING,
|
|
cbmovimiento ui.ComboBox
|
|
|
|
LET cbmovimiento = ui.combobox.forname("formonly.cod_mov")
|
|
DECLARE bmovimiento CURSOR FOR
|
|
SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM iptb00005 a
|
|
|
|
ORDER BY a.descrip_mov
|
|
CALL cbmovimiento.clear()
|
|
|
|
FOREACH bmovimiento INTO ketiquetas,detiquetas
|
|
CALL cbmovimiento.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION cmovimientos_t()
|
|
|
|
DEFINE ketiquetas SMALLINT, detiquetas STRING,
|
|
cbmovimiento ui.ComboBox
|
|
|
|
LET cbmovimiento = ui.combobox.forname("formonly.codigo_mov_transferencia")
|
|
DECLARE bmovimiento_t CURSOR FOR
|
|
SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM iptb00005 a
|
|
ORDER BY a.descrip_mov
|
|
CALL cbmovimiento.clear()
|
|
|
|
FOREACH bmovimiento_t INTO ketiquetas,detiquetas
|
|
CALL cbmovimiento.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|