{
----------------------------------------------------------------------
 FORMULARIO        : ISFMMT036
 OBJETIVO          : Captura Documento Movimiento: REQUISICION DE MATERIALES 
                     de Inventario de Suministro    (INPRMT036).
 PROGRAMADOR       : Ing. Juan Fco. Soto
 FECHA REALIZACION : Octubre 21, 1992. 
----------------------------------------------------------------------
}
database rayovac    
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\g   Codigo Movimiento [p1][ak                             ]                 
\g|\g   Documento Numero  [f000  ]            Fecha  [f001      ]                 \g|\g
\g|\g   Codigo de Dpto.   [f4  ] [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
p1   = formonly.cod_mov,comments="Digite Codigo Movimiento";
ak   = formonly.descrip_mov,noentry;
f000 = intb00006.num_doc,autonext,
       comments = "Digite Numero Documento";
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