{
----------------------------------------------------------------------------
FORMULARIO     : IRFMCS011
OBJETIVO       : Consultar Los Embarques
DISENADO POR   : JUAN F. SOTO
FECHA          : MARZO 18, 1997.
----------------------------------------------------------------------------
}
database marmotech
screen size 24 by 80
{
Orden No.      [f000  ] Tipo Orden[a0] Fecha[f001    ]Cierre [n]
Codigo Suplidor[f2][f003] [a1                                           ] 
Puerto [p1 ][p2                        ] Codigo Moneda [cm  ][dem            ]
\g------------------------------------------------------------------------------
Requis.  Codigo            Cantidad     Precio        Valor      Recibido
\g------------------------------------------------------------------------------
[re    ][a][g][t ][se ][f3         ][f6          ][f7          ][fr1         ]
[re    ][a][g][t ][se ][f3         ][f6          ][f7          ][fr1         ]
[re    ][a][g][t ][se ][f3         ][f6          ][f7          ][fr1         ]
Descripcion  [des                           ]                 Unidad [f8 ]
No. Embarque[e4]    Recibidos[e5]  
 EMBARQUE ------ ESTATUS EMB. -------  FECHA SALIDA      
 [f18     ]    [f0][f67              ] [f77     ]  
 [f18     ]    [f0][f67              ] [f77     ]  
}
end
tables
cotb00005, 
intb00001, cotb00008,
cotb00014, cotb00024,
cotb00001, cotb00015
attributes
f18  = formonly.cod_emb,noentry;
f0   = formonly.cod_st,comments = 
" <Ctrl-N Informacion Sobre Este Embarque <Esc> Actualiza Informacion"; 
f67  = formonly.nomb_st,noentry; 
f77  = formonly.fecha_salida type date,format="dd/mm/yy",noentry;
re   = formonly.num_req,autonext,comments =
"<Ctrl-P> Busca Embarques De Este Codigo, <Ctrl-B> Busca Descr. Item";
a    = intb00001.cod_n;
g    = intb00001.cod_grupo,noentry; 
t    = intb00001.cod_tipo,noentry; 
se   = intb00001.cod_sec,noentry; 
des  = intb00001.descrip_esp,noentry;
f8   = intb00001.unidad_med,noentry;
f3   = cotb00008.cantidad,noentry;
f6   = cotb00008.precio,noentry;
f7   = formonly.valor,noentry;
f000 = cotb00014.num_oc,noentry;
a0 = cotb00014.tipo,upshift,autonext,
     include = ("01","02","03","04"),
     comments ="01=Generales, 02=Rov-Ltd, 03=Locales, 04=Miscelaneas";
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yy",
       comments ="Digite la fecha de elaboracion de la orden";
f2 = cotb00014.cod_sp,autonext,
       comments = 
"Digite el codigo del suplidor ";
f003 = cotb00014.cod_sp_sec,autonext,
     comments =
"Digite la secuencia del suplidor";
a1   = cotb00001.nom_sp,noentry;
n    = cotb00014.cierre,noentry; 
p1   = formonly.cod_pt,autonext; 
p2   = formonly.nombre_p,noentry;
cm   = formonly.cod_mon,autonext; 
dem  = formonly.nombre_mon,noentry;
fr1  = formonly.recibido,noentry;
e4   = formonly.emb_no; 
e5   = formonly.emb_rec;
instructions
    screen record consart[3] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
                              cantidad,precio,valor,recibido)
    screen record emb[2] (cod_emb,cod_st,nomb_st,fecha_salida)
end