{
--------------------------------------------------------------------------
 FORMULARIO        : INFMCS021
 OBJETIVO          : Pantalla para Consulta Movimientos Materia Prima: 
                     Materiales Devueltos Desde Produccion (INPRCS021).
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Agosto 14,1992. 
--------------------------------------------------------------------------
}
database smarmotech  
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\gDocumento Numero [f000  ]                                                  \g|\g
\g|\gfecha            [f001    ]                                                \g|\g
\g|\gDel Depto.: [f1  ] [a1                            ]                        \g|\g
\g|\gAl  Depto.: [f2  ] [b1                            ] Bodega :[h ]           \g|\g
\gb---------------------------------------------------------------------------d\g
                         C A N T I D A D
     Codigo           Devuelta     Recibida 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
intb00006,
intb00001,
cotb00001,
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";
f1   = intb00006.depto_de,autonext,
    comments = "Digite Codigo Departamento";
f2   = intb00006.depto_a,autonext,
    comments = "Digite Codigo Departamento";
a1   = adtb00001.nom_dpto,noentry,autonext;
b1   = formonly.nom_dpto1,noentry;
a    = intb00006.cod_n,autonext,
    comments = "Digite el NIVEL";
b    = intb00006.cod_grupo,autonext,
    comments = "Digite el GRUPO"; 
c    = intb00006.cod_tipo,autonext,
    comments = "Digite el TIPO  "; 
d    = intb00006.cod_sec,autonext,
    comments = "Digite la SECUENCIA"; 
f02  = intb00006.cantidad_1,autonext,
    comments = "Digite La Cantidad Ordenada";
f03  = intb00006.cantidad_2,autonext,
    comments = "Digite La Cantidad Entregada";
k    = intb00001.descrip_esp,noentry,autonext;
p    = intb00001.unidad_med,noentry;
h    = 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)
    delimiters " "
end