{
==============================================================================
FORMULARIO :       PRFMMT004
OBJETIVO   :       CAPTURAR EL CONTROL DE LOS DEPARTAMENTOS
DISENADO   :       Juan F. Soto
FECHA      :       Septiembre 14, 1994
==============================================================================
}
database marmotech
screen size 24 by 80
{
\g------------------------------------------------------------------------\g
                MANTENIMIENTO CONTROL DEPARTAMENTOS
\g------------------------------------------------------------------------\g

Nomenclatura       [a  ]
Departamento       [f000  ][des1                              ]

Usuario Creador     [f001     ] Fecha Creadcion    [f002            ]
Usuario Modificador [f003     ] Fecha Modificacion [f004            ]

  < Esc > Busca y Actualiza Tabla     < Ctrl-C > Cancela Operacion
}
end
tables
prtb00004,adtb00001
attributes
a = prtb00004.tipo,include=("A","B+C","D"),comments = 
"Valores Permitibles A, B+C, D",upshift;
f000 = prtb00004.departamento, lookup des1=adtb00001.nom_dpto,
                               joining *adtb00001.departamento;
f001 = prtb00004.us_crea,noentry,default=user;
f002 = prtb00004.fech_crea,default=current,noentry;
f003 = prtb00004.us_mod,noentry;
f004 = prtb00004.fech_mod,noentry;
end