{
----------------------------------------------------------------------
 FORMULARIO        : INFMMT036
 OBJETIVO          : Captura Documento Movimiento: REQUISICION DE MATERIALES 
                     de Inventario de Materia Prima (INPRMT036).
 PROGRAMADOR       : Ing. Juan Fco. Soto
 FECHA REALIZACION : Agosto 10, 1992. 
----------------------------------------------------------------------
}
SCHEMA smarmotech  

TOOLBAR 
  ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento")
  ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="REQUISICION MATERIALES")
 GRID
{

 <g                                                                           >
  Documento      [f000  ]    Fecha [f001      ]                              
  Codigo de Dpto [f4  ] [a1                            ]              
  Bodega :       [a7]                                                         
  
 <g                                                                                    >
                    C A N T I D A D 
   Codigo          Ordenada     Entregada  Unidad     D e s c r i p c i o n

   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]

}
end
tables
intb00001,
intb00002,
intb00006,
adtb00001
attributes
f000 = intb00006.num_doc,noentry;
f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
       comments = "Digite Fecha Documento";
f4 = intb00006.depto_a,autonext,
       comments = "Digite Codigo Departamento";

a1   = adtb00001.nom_dpto,noentry; 
a    = intb00006.cod_n,autonext,
       comments = "Digite Codigo Articulo";
b    = intb00006.cod_grupo,autonext,
       comments = "Digite Codigo Articulo"; 
c    = intb00006.cod_tipo,autonext,
       comments = "Digite Codigo Articulo"; 
d    = intb00006.cod_sec,autonext,
       comments = "Digite Codigo Articulo"; 
f02  = intb00006.cantidad_1,autonext, 
       comments = "Digite La Cantidad Ordenada";
f03  = intb00006.cantidad_2,autonext, 
       comments = "Digite La Cantidad Entregada";
a7   = intb00006.bodega,autonext,
       comments = "Digite el codigo de la bodega de almacenamiento"; 
k    = intb00001.descrip_esp,noentry,autonext; 
p    = intb00001.unidad_med,noentry;

  INSTRUCTIONS
    SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                              cantidad_2,unidad_med,descrip_esp)
end