{
----------------------------------------------------------------------------
 FORMULARIO        : INFMMT056   
 OBJETIVO          : Capturar registros de los Movimientos de Materia Prima
                     (INPRMT056).
 PROGRAMADOR       : Ing. Juan Soto(Johnny) 
 FECHA REALIZACION : Septiembre 4, 1992.
----------------------------------------------------------------------------
}
database exterior   
screen size 24 by 80
{
 Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
\gp-------------------------------------------------------------------------q\g
\g|\gFecha [f05       ] Conduce no.[f03        ]                                \g|\g
\g|\gFactura No.[f04       ]  Orden Compra:[ti][f02 ]                         \g|\g
\g|\gSuplidor:[p1]-[f01 ][a                             ]                     \g|\g
\g|\gDepartamento De[f8  ] [p5                            ]                   \g|\g
\g|\gDepartamento a [f9  ] [p2                            ]                   \g|\g
\g|\gBodega:[k ]                                                              \g|\g
\gb-------------------------------------------------------------------------d\g
                    C A N T I D A D 
    Codigo       Ordenada       Recibida/ Unidad    D e s c r i p c i o n
                                Ordenada
\g------------------------------------------------------------------------------\g
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
\g------------------------------------------------------------------------------\g
}
end
tables
intb00006,
cotb00001,
intb00001,
intb00005 
attributes
f00  = intb00006.num_doc,       
      comments = "Digite el Numero Documento";
p1  = intb00006.cod_sp,noentry; 
f01  = intb00006.cod_sp_sec,noentry;
f02  = intb00006.orden_compra,noentry;
f03  = intb00006.conduce_no,autonext,
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = intb00006.fact_no,autonext,
      comments = "Digite el Numero de la Factura del Suplidor";
f8   = intb00006.depto_de,autonext; 
f9   = intb00006.depto_a,autonext;
p5   = formonly.nom_dpto,noentry;
p2   = formonly.nom_dpto1,noentry;
f05  = formonly.fecha type date,format = "dd/mm/yyyy",
      comments = "Digite la Fecha Correspondiente al Documento";
f06  = intb00006.cantidad_1,
      comments = "Digite la Cantidad Pedida ";
f07  = intb00006.cantidad_2,
      comments = "Digite la Cantidad Llegada desde el Suplidor";
f08  = intb00001.unidad_med,noentry;
a    = cotb00001.nom_sp,noentry;
b    = intb00006.cod_n,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";

ti   = intb00006.tipo,
comments = "Digite 01-Generales  02-Rov-Ltd  03-Locales  04-Micelaneas";
c    = intb00006.cod_grupo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
d    = intb00006.cod_tipo,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
f    = intb00006.cod_sec,autonext,comments =
"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
g    = intb00001.descrip_esp,noentry;
t    = intb00006.cod_mov,autonext;
t1   = intb00005.descrip_mov,noentry;
k    = intb00006.bodega,autonext;
  INSTRUCTIONS
    screen record s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                             cantidad_2,unidad_med,descrip_esp)
end