{
----------------------------------------------------------------------------
 FORMULARIO          : INFMMT006
 OBJETIVO            : Pantalla para la captura de reporte de entrada    
                       inventario materia prima.
 MODULOS Q. UTILIZAN : inprmt006
 PROGRAMADOR         : Juan F. Soto               
 FECHA REALIZACION   : Agosto 6, 1992.
 MODIFICADO POR      : Juan F. Soto
 DESCRIPCION         : Agregar el tipo de la orden a la captura de datos
 FECHA               : Agosto 24, 1993.
----------------------------------------------------------------------------
}
database smarmotech
screen size 24 by 80
{
 Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
\gp---------------------------------------------------------------------------q\g
\g|\gOrden Compra:[ti][f02    ]Suplidor:[p1]-[f01 ][a                          ]\g|\g
\gp---------------------------------------------------------------------------q\g
\g|\gConduce:[f03       ] Factura No.[f04       ] Fecha:[f05     ] Bodega:[k ]  \g|\g
\gb---------------------------------------------------------------------------d\g
                    C A N T I D A D 
    Codigo       Ordenada       Recibida Unidad    D e s c r i p c i o n
\g------------------------------------------------------------------------------\g
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
\g------------------------------------------------------------------------------\g
                     Para Uso de Compra Exterior
      Condicion de Recepcion: [h]   Uso Inmediato en Produccion: [i]
}
end
tables

intb00006,
cotb00001,
intb00001,
intb00005 
attributes
t    = intb00006.cod_mov,autonext,include = (34),default=34,
  comments= "Digite Codigo Movimiento de Entrada (34 - Exterior)";
f00  = intb00006.num_doc,       
      comments = "Digite el Numero Documento";
ti   = intb00006.tipo,autonext,include = ("01","02","03","04"),comments=
"Digite Tipo de Orden 01-Generales   02-Rov-Ltd.  03-Locales   04-Micelaneas";
f02  = intb00006.orden_compra,  autonext,
      comments = "Digite el Numero de la Orden de Compras";
p1  = intb00006.cod_sp,picture = "##",autonext,noentry;
f01  = intb00006.cod_sp_sec,picture = "####",autonext,noentry;
f03  = intb00006.conduce_no,       autonext,
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = intb00006.fact_no,       autonext,
      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  = intb00006.cantidad_1,noentry;
f07  = intb00006.cantidad_2,
      comments = "Digite la Cantidad Llegada desde el Suplidor";
f08  = intb00001.unidad_med,noentry;
a    = cotb00001.nom_sp,noentry;
b    = intb00006.cod_n,autonext,noentry;
c    = intb00006.cod_grupo,autonext,noentry;
d    = intb00006.cod_tipo,autonext,noentry;
f    = intb00006.cod_sec,autonext,noentry;
g    = intb00001.descrip_esp,noentry;
h    = intb00006.cond_recep,autonext,
      comments = "Digite Condicion";          
i    = intb00006.uso_tiempo,autonext,
      comments = "Digite el Tiempo";           
t1   = intb00005.descrip_mov,noentry;
k    = intb00006.bodega,autonext;
  INSTRUCTIONS
    screen record s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                             cantidad_2,unidad_med,descrip_esp)
end