Abel LópezandClaude Sonnet 5
acacf34eea
- coprmt001 (Suplidores): agregar campos faltantes (tipo_doc,rnc,cuenta_no) al RECORD interno de ApiMaintainC() en api_test.4gl, y unificar la aridad de RETURNING en las 3 llamadas (POST/PATCH/DELETE) - el enlazador exige el mismo numero de valores de retorno en todo el modulo. - coprmt009 (Ordenes de Compra): reemplazar fgl_report_loadCurrentSettings/ selectDevice/selectPreview/commitCurrentSettings (no disponibles en este FGL) por om.XmlWriter.createFileWriter en coprorden.4gl; agregar verificacion defensiva en lugarentrega.4gl (ui.combobox.forname puede devolver NULL si el formulario actual no tiene el combo "bodega"); quitar "ordenes.bodega" de los INPUT BY NAME (campo oculto, no se puede enlazar). Pendiente: probar el flujo completo de creacion de orden (se corto por una caida de conexion transitoria durante la prueba). - coprmt016 (Terminos de Pago): CRUD simple, sin cambios de codigo. - mbsERP.4pw: crear modulo COMPRAS (estaba vacio) con librerias FUNCIONES_CO y FORMULARIOS_CO, y registrar los 3 programas. - otrodir/smarmotech.sch: diccionario de esquema completo (antes faltaba en este directorio, causaba fallos de link en api_test.4gl). - .gitignore: excluir logs de STARTLOG() (bin/*.TXT) y archivos .err de compilacion. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
22 lines
670 B
Plaintext
22 lines
670 B
Plaintext
FUNCTION lugarentregas()
|
|
|
|
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
|
cbodegas ui.ComboBox
|
|
LET cbodegas = ui.combobox.forname("formonly.bodega")
|
|
IF cbodegas IS NULL THEN
|
|
-- El formulario actual no tiene un combo "bodega" visible
|
|
-- (ej. cofmmt009); no hay nada que llenar.
|
|
RETURN
|
|
END IF
|
|
DECLARE bbodegas CURSOR FOR
|
|
SELECT a.cod_bodega,a.descripcion FROM intb00009 a WHERE a.lugar_entega = 'SI'
|
|
ORDER BY a.descripcion
|
|
CALL cbodegas.clear()
|
|
|
|
FOREACH bbodegas INTO ketiquetas,detiquetas
|
|
CALL cbodegas.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
|
|
END FUNCTION
|