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