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>
41 lines
1.4 KiB
Plaintext
41 lines
1.4 KiB
Plaintext
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
Mes Inicial [f1] [g4 ]
|
|
Mes Final [f2] [g5 ]
|
|
Ano [f002]
|
|
Codigo [a ]-[b ]-[c ]-[d ][e ] [g ]
|
|
|
|
Costo Estandar [f005 ]
|
|
[j]
|
|
|
|
Usuario Creador [f006 ] Usuario Modificador [f008 ]
|
|
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
|
|
}
|
|
end
|
|
tables
|
|
irtb00013,irtb00002
|
|
attributes
|
|
f1 = irtb00013.mes_ini,autonext,
|
|
comments = "Digite el mes inicial",default = 01,noentry;
|
|
g4 = formonly.descrip1 type char,default = "ENERO";
|
|
f2 = irtb00013.mes_fin,autonext,noentry,
|
|
comments = "Digite el mes final",default = 12;
|
|
g5 = formonly.descrip2 type char,default = "DICIEMBRE";
|
|
f002 = irtb00013.ano,autonext,comments = "Digite el ano";
|
|
a = irtb00013.cod_n,autonext,comments = "Digite el NIVEL";
|
|
b = irtb00013.cod_grupo,autonext,comments = "Digite el GRUPO";
|
|
c = irtb00013.cod_tipo,autonext,comments = "Digite el TIPO";
|
|
d = irtb00013.cod_sec,autonext,comments = "Digite la SECUENCIA";
|
|
e = irtb00002.descrip_esp,noentry;
|
|
g = irtb00002.unidad_med,noentry;
|
|
f005 = irtb00013.costo_st,comments = "Digite el costo";
|
|
j = irtb00013.status_t,noentry;
|
|
f006 = irtb00013.us_crea,noentry;
|
|
f007 = irtb00013.fech_crea,noentry;
|
|
f008 = irtb00013.us_mod,noentry;
|
|
f009 = irtb00013.fech_mod,noentry;
|
|
instructions
|
|
delimiters " "
|
|
end
|