{
-------------------------------------------------------------------------
 FORMULARIO        : INFMCS031
 OBJETIVO          : Pantalla para Consulta Movimientos Materia Prima:
                     Requisicion de Materiales (INPRCS031).
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Agosto 14,1992. 
-------------------------------------------------------------------------
}
database smarmotech  
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\g   Documento Numero  [f000  ]          Fecha  [f001    ]                   \g|\g
\g|\g   Codigo de Dpto.   [f3  ] [a1                            ]               \g|\g
\g|\g   Bodega :[a7]                                                            \g|\g
\gb---------------------------------------------------------------------------d\g
                      C A N T I D A D 
 Codigo            Ordenada    Entregada Unidad D e s c r i p c i o n
\g-----------------------------------------------------------------------------\g
[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                              ]
\g-----------------------------------------------------------------------------\g
}
end
tables
intb00001,
intb00002,
intb00006,
adtb00001
attributes
f000 = intb00006.num_doc,autonext,
       comments = 
"Digite Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos ";
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
       comments = "Digite Fecha Documento";
f3 = 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,
       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)
    delimiters " "
end