63 lines
1.8 KiB
Plaintext
63 lines
1.8 KiB
Plaintext
database marmotech@demo_se
|
|
screen size 24 by 80
|
|
{
|
|
\g----------------------------------------------------------------------------\g
|
|
MANTENIMIENTO CUENTAS Y DEPARTAMENTO ESTADO Q
|
|
\g----------------------------------------------------------------------------\g
|
|
|
|
DEPARTAMENTO [f000 ] [a ]
|
|
ESTADO M [f001]
|
|
CUENTA CONTABLE [f004 ] [b ]
|
|
ESTADO Q [f007]
|
|
|
|
USUARIO CREADOR [f005 ]
|
|
FECHA CREACION [f006 ]
|
|
|
|
|
|
|
|
<Esc> Adiciona Registro y/o <Ctrl-C> Cancela Operacion
|
|
Modifica Registro
|
|
}
|
|
end
|
|
tables
|
|
adtb00037,
|
|
adtb00001,
|
|
cgtb00001
|
|
attributes
|
|
|
|
f000 = adtb00037.departamento, comments =
|
|
"1-GENERAL 2-FINANCIERA 3-PERSONAL 4-VENTAS 5-MATERIALES 6-PLANTA 7-INFORMATICA";
|
|
a = displayonly type char;
|
|
f001 = adtb00037.estado_m,comments =
|
|
"Digite Punto de Referencia Del Estado";
|
|
f004 = adtb00037.cuenta_no, lookup b = cgtb00001.descripcion
|
|
joining cgtb00001.cuenta_no,required;
|
|
f007 = adtb00037.estado_q,required;
|
|
f005 = adtb00037.us_crea,noupdate,noentry,default = "usgfi01";
|
|
f006 = adtb00037.fech_crea,noupdate,noentry,default=current;
|
|
instructions
|
|
|
|
after add update query of adtb00037
|
|
if f000 = 1 then
|
|
let a = "GERENCIA GENERAL"
|
|
else
|
|
if f000 = 2 then
|
|
let a = "GERENCIA FINANCIERA"
|
|
else
|
|
if f000 = 3 then
|
|
let a = "GERENCIA PERSONAL"
|
|
else
|
|
if f000 = 4 then
|
|
let a = "GERENCIA DE VENTAS"
|
|
else
|
|
if f000 = 5 then
|
|
let a = "GERENCIA MATERIALES"
|
|
else
|
|
if f000 = 6 then
|
|
let a = "GERENCIA PLANTA"
|
|
else
|
|
if f000 = 7 then
|
|
let a = "GERENCIA INFORMATICA"
|
|
|
|
end
|