JSOTO Alta y compilacion G6 de programas CG, Cheques, Activos, Tesoreria, Repuestos e Informatica
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>
This commit is contained in:
@@ -0,0 +1,35 @@
|
||||
{
|
||||
-----------------------------------------------------------------------------
|
||||
FORMULARIO : IRFMWD068
|
||||
OBJETIVO : Desplegar las maquinas
|
||||
PROGRAMADOR : Lic. Abner Montalvo
|
||||
FECHA REALIZACION : Julio 14, 1998.
|
||||
-----------------------------------------------------------------------------
|
||||
}
|
||||
DATABASE smarmotech
|
||||
SCREEN SIZE 24 by 80
|
||||
{
|
||||
Busqueda De Maquinarias
|
||||
\g-----------------------------------------\g
|
||||
Codigo Descripcion
|
||||
\g-----------------------------------------\g
|
||||
[f1 ] [f2 ]
|
||||
[f1 ] [f2 ]
|
||||
[f1 ] [f2 ]
|
||||
[f1 ] [f2 ]
|
||||
[f1 ] [f2 ]
|
||||
[f1 ] [f2 ]
|
||||
}
|
||||
end
|
||||
tables
|
||||
irtb00009
|
||||
attributes
|
||||
f1 = formonly.maquina,noentry,
|
||||
comments = "Elegir Este Registro Con La Tecla <Esc>";
|
||||
f2 = irtb00009.nombre,upshift,
|
||||
comments = "<Esc> Busca Todos Las Maquinas";
|
||||
instructions
|
||||
screen record s_desp1[6] (maquina,nombre)
|
||||
delimiters " "
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user