{----------------------------------------------------------------------------
 AUTOR:       JUAN FCO SOTO
 FECHA:
 DECRIPCION:  FORMATO DE PANTALLA PARA EL REPORTE DE ENTRADA
 MODIFICA:    ING. JOSE ALFREDO PAULINO
 FECHA:       15 DE OCTUBRE DEL 1992
 DESCRIPCION: ADAPTACION PARA SISTEMA DE INVENTARIO DE HERRAMIENTAS 
----------------------------------------------------------------------------
}
database smarmotech   
 
screen size 24 by 80
{
Tipo Movimiento:[t ][t1                                      ]Doc. No. [f00   ]
\gp-------------------------------------------------------------------------q\g
\g|\gSuplidor:[p1]-[f01 ][a                          ] Orden de Compra:[f02 ] \g|\g
\gp-------------------------------------------------------------------------q\g
\g|\gConduce:[f03       ] Factura No.[f04       ] Fecha:[f05     ]            \g|\g
\gb-------------------------------------------------------------------------d\g
                         C A N T I D A D            Exceso  o
  Codigo             Ordenada        Recibida       Diferencia  Maquina      
\gp---------------------------------------------------------------------------q\g
[b         ] [f06            ][f07           ][c             ]  [ma ]       
Descripcion: [g                             ]              Unidad: [f08]
[b         ] [f06            ][f07           ][c             ]  [ma ]       
Descripcion: [g                             ]              Unidad: [f08]
[b         ] [f06            ][f07           ][c             ]  [ma ]
Descripcion: [g                             ]              Unidad: [f08]
\gb---------------------------------------------------------------------------d\g
}
end
tables

irtb00006,
cotb00001,
irtb00002,
irtb00005 
attributes
ma   = irtb00006.maquina,noentry;
f00  = irtb00006.num_doc,       
      comments = 
"Digite el Numero Documento o Presione  <Esc> Para Buscar Todos Los Documentos";
p1  = irtb00006.cod_sp,picture = "##",autonext,
      comments = "Digite el Codigo del Suplidor";
f01  = irtb00006.cod_sp_sec,picture = "####",
      comments = "Digite el Codigo del Suplidor";
f02  = irtb00006.orden_compra,  
      comments = "Digite el Numero de la Orden de Compras";
f03  = irtb00006.conduce_no,       
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = irtb00006.fact_no,       
      comments = "Digite el Numero de la Factura del Suplidor";
f05  = formonly.fecha type date,format = "dd/mm/yy",
      comments = "Digite la Fecha Correspondiente al Documento";
f06  = irtb00006.cantidad_1,
      comments = "Digite la Cantidad Pedida ";
f07  = irtb00006.cantidad_2,
      comments = "Digite la Cantidad Llegada desde el Suplidor";
f08  = irtb00002.unidad_med,noentry;
a    = cotb00001.nom_sp,noentry;
b    = formonly.codigo,noentry; 
c    = formonly.diferencia, noentry; 
g    = irtb00002.descrip_esp,noentry;
t    = irtb00006.cod_mov,autonext,
      comments = 
      "Digite Codigo Movimiento de Entrada (01 - Local  02 - Exterior)",
      include = (1 to 2);
t1   = irtb00005.descrip_mov,noentry;
  INSTRUCTIONS
    screen record s_movi1[3] (codigo,cantidad_1,cantidad_2,diferencia,
                              descrip_esp,unidad_med,maquina)
delimiters " "
end