{
----------------------------------------------------------------------------
 FORMULARIO          : IRFMMT006
 OBJETIVO            : Pantalla para la captura de reporte de entrada
 MODULOS Q. UTILIZAN : irprmt006
 PROGRAMADOR         : Juan F. Soto               
 FECHA REALIZACION   : Febrero 1, 1993     
----------------------------------------------------------------------------
}
database smarmotech
TOOLBAR 
  ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Reporte Entradan")
  ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
  
LAYOUT (TEXT="REPORTES ENTRADA", STYLE="basic")
    GRID 


{
 <G Encabezado                                                                 >
   Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
   Orden Compra:[ti][f02   ]  Suplidor:[p1]-[f01 ][a                         ] 
   Conduce:[f03       ]     Factura No.[f04       ] Fecha:[f05       ]Dep[d100] 

<G Detalle                                                                                >
                                                 C A N T I D A D
    Codigo                                    Ordenada      Recibida  Maquina

   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
  Descripcion Maquina :[h                             ] 

}
end
tables

irtb00006,
cotb00001,
irtb00002,
irtb00005 
attributes
f00  = irtb00006.num_doc,noentry;
p1  = irtb00006.cod_sp,noentry;
f01  = irtb00006.cod_sp_sec,noentry;
f02  = irtb00006.orden_compra,  autonext,
      comments = "Digite el Numero de la Orden de Compras";
f03  = irtb00006.conduce_no,       autonext,
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = irtb00006.fact_no,       autonext,
      comments = "Digite el Numero de la Factura del Suplidor";
f05  = formonly.fecha type date,format = "dd/mm/yyyy",default=today,
      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;
f09 = irtb00006.maquina,autonext,
     comments = "Digite la maquina que pertence el repuesto";
h   = formonly.nombre,noentry;
a    = cotb00001.nom_sp,noentry;
b    = irtb00006.cod_n,autonext,
      comments = "Digite el Codigo De la herramienta";  
c    = irtb00006.cod_grupo,autonext,
      comments = "Digite el Codigo De la herramienta";  
d    = irtb00006.cod_tipo,autonext,
      comments = "Digite el Codigo De la herramienta";  
f    = irtb00006.cod_sec,autonext,
      comments = "Digite el Codigo De la herramienta";  
g    = irtb00002.descrip_esp,noentry;

ti   = formonly.tipo type char,autonext;

t    = irtb00006.cod_mov,autonext;
      
d100 = formonly.sec_a,comments = "Digite Departamento Nomina";
t1   = irtb00005.descrip_mov,noentry;
  INSTRUCTIONS
    screen record s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
                              unidad_med,cantidad_1,cantidad_2,maquina)    

end