database smarmotech
screen size 24 by 80
{
Codigo del movimiento       [f0]                         Afecta     [f002    ]
Descripcion  [f001                                    ]  Cuenta_2   [f003    ]
Status del movimiento       [a]                          Cuenta_3   [f004    ]
[j]

Consumo [f009]  Requiere Autorizacion [f010]  Requisiciones [f011]


Usuario creador   [f005            ]      Usuario modificador  [f007          ]
Fecha creacion    [f006            ]      Fecha modificacion [f008            ]
}
end
tables
intb00005
attributes
f0   = intb00005.cod_mov, autonext, required,
       comments = "Digite el codigo del movimiento";
f001 = intb00005.descrip_mov, autonext, upshift,
       comments = "Digite la descripcion del movimiento";
a = intb00005.status_mov, required, autonext, include = ("1","2"),
       comments = "1.- Entradas    2.- Salidas" ;
f002 = intb00005.cuenta_1, autonext, required,
       comments = "Digite el numero de la cuenta";
f003 = intb00005.cuenta_2, autonext,required,
       comments = "Digite el numero de la cuenta";
f004 = intb00005.cuenta_3, comments = "Digite el numero de la cuenta";
f005 = intb00005.us_crea, noentry;
f006 = intb00005.fech_crea, noentry;
f007 = intb00005.us_mod, noentry;
f008 = intb00005.fech_mod, noentry;
j = intb00005.status_t, noentry;
RADIOGROUP f009 = intb00005.consumo,ITEMS=(("SI","SI"),("NO","NO")),DEFAULT="NO";
RADIOGROUP f010 = intb00005.requiere_autorizacion,ITEMS=(("SI","SI"),("NO","NO")),DEFAULT="NO";
RADIOGROUP f011 = intb00005.requisiciones,ITEMS=(("SI","SI"),("NO","NO")),DEFAULT="NO";
instructions
delimiters " "
end