database smarmotech
screen size 24 by 80
{
Codigo del movimiento       [f0]                         Material[f002    ]
Descripcion  [f001                                    ]  Labor   [f003    ]
Status del movimiento       [a]                          Gastos  [f004    ]
[j]


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