{
-------------------------------------------------------------------------
 FORMULARIO        : INFMCS011
 OBJETIVO          : Pantalla para Consulta Movimientos Materia Prima:
                     Materiales Devueltos al Suplidor (INPRCS011).
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Agosto 14,1992. 
-------------------------------------------------------------------------
}
database smarmotech  
screen size 24 by 80
{

\gp---------------------------------------------------------------------------q\g
\g|\gDocumento Numero [f000  ]                      Orden de Compras  [l   ]    \g|\g
\g|\gFecha            [f001    ]                                                \g|\g
\g|\gSuplidor         [p1][f013] [a1                            ] Bodega: [p2]  \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
attributes
f000 = intb00006.num_doc,autonext,
    comments = 
"Digite Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos ";
l    = intb00006.orden_compra,autonext,
    comments = "Digite Numero de la Orden de Compras";
f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
    comments = "Digite Fecha Documento";
p1   = intb00006.cod_sp,autonext,
    comments = "Digite Codigo Suplidor";
f013 = intb00006.cod_sp_sec,autonext,picture = "####",
    comments = "Digite Codigo Suplidor";
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,autonext;
a1   = cotb00001.nom_sp,noentry,autonext;
p2   = 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