{
===========================================================================
   Formulario  : infmmt017
   Sistema     : Inventario de Material
   Objetivo    : Formulario a usar para captura de informacion en el modulo
                 inprmt017 (datos referentes a maestra de formulas)
   Autor       : Tadeo A. Ferreras
   Fecha       : Julio 22,1993
===========================================================================
}
database exterior    
screen
{

 Codigo  [a][b] [desc                         ]

\g----------------------------------------------------------------------------\g
  Material                                           Unidad         Cantidad
\g----------------------------------------------------------------------------\g
 [c]-[d]-[g  ]-[f  ] [desc1                        ]  [und]  [cant          ]
 [c]-[d]-[g  ]-[f  ] [desc1                        ]  [und]  [cant          ]
 [c]-[d]-[g  ]-[f  ] [desc1                        ]  [und]  [cant          ]
 [c]-[d]-[g  ]-[f  ] [desc1                        ]  [und]  [cant          ]
 [c]-[d]-[g  ]-[f  ] [desc1                        ]  [und]  [cant          ]
 [c]-[d]-[g  ]-[f  ] [desc1                        ]  [und]  [cant          ]
}
end
tables
intb00016
intb00022
attributes
a     = intb00016.cod_n_p,autonext,include = (3),default = 3,comments =
    "Digite codigo del tipo de pila";
b     = intb00016.cod_grupo_p,autonext,include = (1,2,3),comments =
    "1 = Pila tipo D      2 = Pila tipo C      3 = Pila tipo AA";
desc  = formonly.descrip type char,color = yellow, noentry;
c     = intb00016.cod_n,autonext,comments =
    "Digite codigo del material";
d     = intb00016.cod_grupo,autonext,comments =
    "Digite codigo del material";
g     = intb00016.cod_tipo,autonext,comments =
    "Digite codigo del material";
f     = intb00016.cod_sec,autonext,comments =
    "Digite codigo del material";
desc1 = formonly.descrip1 type char,color = yellow,noentry;
und   = formonly.unidad type char,color = yellow,noentry;
cant  = intb00016.cantidad,comments = "Digite la cantidad Expresada en Millar";
instructions delimiters " "
   screen record arr_form1[6](cod_n,cod_grupo,cod_tipo,cod_sec,descrip1,unidad,
                           cantidad)
end