{
-------------------------------------------------------------------------------
 FORMULARIO        : COFMMT006
 OBJETIVO          : Capturar registros de la Tabla de Requisiciones (COPRMT006)
 PROGRAMADOR       : Ing. Juan Soto.        
 FECHA REALIZACION : Septiembre 1, 1992.
-------------------------------------------------------------------------------
}
DATABASE smarmotech
 LAYOUT
 GRID
{
 <G Generales                                                           >
   Numero    : [f1    ]            Uso: [b1                             ]
   Fecha     : [f2        ]  Prioridad: [f] 
   Depto     : [f3  ] [a                             ]
   Empleado  : [f7  ] [a1                            ]

<G Detalles                                                                   >
   Codigo              Cantidad Cod. Supl.       Valor          Total   Proc.
  [c][d][c1][c2 ] [k1         ][k2]-[k3  ]  [k4          ][k5           ][b]
  [c][d][c1][c2 ] [k1         ][k2]-[k3  ]  [k4          ][k5           ][b]
  [c][d][c1][c2 ] [k1         ][k2]-[k3  ]  [k4          ][k5           ][b]
  Descrip. : [a2                           ] [n1 ] [n2            ]
  Suplidor : [a3                                                  ]

}
end
END
tables
cotb00001,cotb00006,
cotb00008,intb00002,
adtb00001
attributes
f1   = cotb00006.num_req, noentry; 
f2   = cotb00006.fech_req,format="dd/mm/yyyy",noentry; 
f3   = adtb00001.departamento, noentry; 
f7   = cotb00006.cod_emp_sec, noentry; 
b1   = cotb00006.uso, noentry; 
c    = intb00002.cod_n,noentry; 
d    = intb00002.cod_grupo,noentry; 
c1   = intb00002.cod_tipo,noentry; 
c2   = intb00002.cod_sec,noentry; 
k1   = cotb00008.cantidad, 
     comments = "Digite Cantidad a Ordenar. Ctrl-W Modifica Informacion Adicional del Producto."; 
k2   = cotb00001.cod_sp,autonext,reverse,
     comments = "Digite Codigo Del Suplidor Presione Ctrl-W Para Busqueda";
k3   = cotb00001.cod_sp_sec,autonext,reverse,
     comments = "Digite Codigo Del Suplidor Presione Ctrl-W Para Busqueda";
k4   = cotb00008.precio;
k5   = formonly.total_p,noentry;
a2   = formonly.descrip_esp,noentry;
a3   = cotb00001.nom_sp,noentry;
a    = formonly.descrip1,noentry;
a1   = formonly.descrip2,noentry;
f    = cotb00006.prioridad,noentry;
b    = cotb00008.procesada,noentry; 
n1   = formonly.unidad_med,noentry;
n2   = intb00002.base,noentry;
 instructions
     screen record s_requisi[3] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,
                                 cod_sp,cod_sp_sec,precio,total_p,procesada)
end