database marmotech
screen size 24 by 80
{
   Origen       [f000  ]
   Descripcion  [f001                ]
   Departamento [f002  ]   [nd                                      ]
   Cuenta       [f003    ] [nc                                      ]

   Usuario Creador [f004     ]         Usuario Modificador [f006     ]
   Fecha Creacion  [f005            ]  Fecha Modificacion [f007            ]
}
end
tables
iptb00022
attributes
f000 = iptb00022.cod_cia,comments="Digite Codigo de Origen";
f001 = iptb00022.descripcion,upshift;
f002 = iptb00022.departamento;
f003 = iptb00022.cuenta_no;
nd   = formonly.nombre_dpto,noentry;
nc   = formonly.nombre_cta,noentry;
f004 = iptb00022.us_crea,noentry;
f005 = iptb00022.fech_crea,noentry;
f006 = iptb00022.us_mod,noentry;
f007 = iptb00022.fech_mod,noentry;
instructions delimiters " "
end