database marmotech
screen size 24 by 80
{
Codigo del Material [a]-[b]-[c ]-[d  ] [k                             ]
Procedencia         [f004                          ]
Puerto              [f1]  [m                             ]
Via                 [a0]  [h         ]
Porc. Seguro        [f005  ]%

[j]
Usuario Creador  [f006     ]            Usuario Modificador  [f008     ]
Fecha Creacion   [f007            ]     Fecha Modificacion   [f009            ]
}
end
tables
cotb00017
attributes
a = cotb00017.cod_n,autonext,
    comments = "Digite el nivel del Articulo";
b = cotb00017.cod_grupo,autonext,
    comments = "Digite el grupo del Articulo";
c = cotb00017.cod_tipo,autonext,
    comments = "Digite el tipo del Articulo";
d = cotb00017.cod_sec,autonext,
    comments = "Digite la secuencia del Articulo";
k = formonly.descrip1,noentry;
f004 = cotb00017.procedencia,upshift,autonext;
f1   = cotb00017.cod_pt,autonext,
  comments = "Digite el codigo del puerto o Presione Ctrl_W para busqueda";
m    = formonly.nombre_pt,noentry;
a0 = cotb00017.via_t,autonext,include = ("01","02","03"),
     comments = "Digite 01 = Maritima, 02 = Aerea, 03 = Terrestre";
h  = formonly.nombre_via,noentry;
f005 = cotb00017.seguro;
j = cotb00017.status_t,noentry;
f006 = cotb00017.us_crea,noentry;
f007 = cotb00017.fech_crea,noentry;
f008 = cotb00017.us_mod,noentry;
f009 = cotb00017.fech_mod,noentry;
instructions
  delimiters " "
end