database marmotech    
screen size 24 by 80
{
Forma de Embarque    [a1] [f002                                              ]
Codigo del Furgon    [a0] [f000                                              ]
Codigo del Articulo  [b]-[c]-[d1]-[e01] [f001                          ]
Cantidad             [f004       ]   [g01]
[j]


Usuario Creador  [f005     ]            Usuario Modificador  [f007     ]
Fecha Creacion   [f006            ]     Fecha Modificacion   [f008            ]
}
end
tables
cotb00004, cotb00003,
intb00001, cotb00027
attributes
a1   = cotb00004.cod_embarque,autonext,
       comments = "Digite el codigo de la forma de embarque";
f002 = cotb00027.descrip_emb,noentry;
a0   = cotb00004.cod_furg,autonext,
       comments = "Digite el codigo del furgon";
f000 = cotb00003.descrip_furg, upshift;
b    = cotb00004.cod_n,autonext,
       comments = "NIVEL del articulo";
c    = cotb00004.cod_grupo,autonext,
       comments = "GRUPO del articulo";
d1   = cotb00004.cod_tipo,autonext,
       comments = "TIPO del articulo";
e01  = cotb00004.cod_sec,autonext,
       comments = "SECUENCIA del articulo";
f001 = intb00001.descrip_esp, upshift;
f004 = cotb00004.cantidad,
       comments = "Digite la cantidad del articulo";
g01  = intb00001.unidad_med, upshift;
f005 = cotb00004.us_crea, noentry;
f006 = cotb00004.fech_crea, noentry;
f007 = cotb00004.us_mod, noentry;
f008 = cotb00004.fech_mod, noentry;
j = cotb00004.status_t, noentry;
instructions
delimiters " "
end