jsotoandClaude Opus 5.5
d8764b3bda
Merge de main (ipprrp013/014/046/053) con conflictos resueltos: - mbsERP.4pw: ipprrp014 conserva ambos 4rp y su 4fd. - bin/ipprrp014.4rp: columnas MARGEN/CLASIF. + titulo IPPRRP014. Programas agregados a mbsERP.4pw (53 compilan y enlazan con fgl602): - CONTABILIDAD GENERAL, ACTIVOS FIJOS, REPUESTOS; grupos nuevos TESORERIA, CHEQUES e INFORMATICA (segprmt001 = seguridad2.0/segprmt0001.4gl). - irdir copiado de 3.20 PROYECTOS/irdir a PROYECTO/irdir; helpers de PROYECTOS/otrodir en FUNCIONES_IR (departamento -> irdepartamento.4gl). - Fuentes mas nuevos de 3.20: edprrp118, edprrp080, acprrp010, cgprmt022. - FUNCIONES: GeneraEntradaDiario.4gl a la version 3.20 + costoLiquidacion.4gl. - Ajustes G6: existe duplicado en irprgb000, fakeData de 22 campos y answer2 en irprmt036/020 (ApiMaintainC), selectOutputSimple en irprcs008, schemas de forms a smarmotech, referencia declarada en cgprmt005. - cgprmt005 sigue sin enlazar: requiere funciones de EXTERIOR. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
18 lines
512 B
Plaintext
18 lines
512 B
Plaintext
FUNCTION cseccion(almacen)
|
|
DEFINE kcod_seccion,almacen SMALLINT,
|
|
kdescripcion CHAR(30),
|
|
pseccion ui.ComboBox
|
|
|
|
LET pseccion = ui.combobox.forname("formonly.seccion")
|
|
|
|
DECLARE busca_sec CURSOR FOR
|
|
SELECT a.cod_seccion,a.descripcion FROM Intb00010 a
|
|
WHERE a.cod_bodega = almacen
|
|
|
|
CALL pseccion.clear()
|
|
FOREACH busca_sec INTO kcod_seccion,kdescripcion
|
|
CALL pseccion.additem(kcod_seccion,kdescripcion)
|
|
END FOREACH
|
|
CALL pseccion.additem(99,"TODAS")
|
|
END FUNCTION
|