{
-------------------------------------------------------------------------
NOMBRE          : cgfmwd003
OBJETIVO        : Consulta de los bienes y servicios                    
DISENO          : Ing. Juan F.Soto
FECHA REALIZADO : Septiembre 30, 1993.
MODULO UTILIZA  : cgprmt003
--------------------------------------------------------------------------
}
 database marmotech   
 screen
{ 
         Consulta Bienes y Servicios
 \g------------------------------------------------------\g
    Codigo            Descripcion                  Unidad
 \g------------------------------------------------------\g
    [a][b][c ][d  ][d1                             ][u  ]
    [a][b][c ][d  ][d1                             ][u  ]
    [a][b][c ][d  ][d1                             ][u  ]
    [a][b][c ][d  ][d1                             ][u  ]
    [a][b][c ][d  ][d1                             ][u  ]
    [a][b][c ][d  ][d1                             ][u  ]
}
end
tables
intb00001
attributes
a = intb00001.cod_n,comments = "Digite codigo bienes o servicio";
b = intb00001.cod_grupo,comments = "Digite codigo bienes o servicio";
c = intb00001.cod_tipo,comments = "Digite codigo bienes o servicio";
d = intb00001.cod_sec,comments = "Digite codigo bienes o servicio";
d1 = intb00001.descrip_esp,upshift,comments = "Digite descripcion";
u  = formonly.unidad type char,noentry;

instructions
 screen record s_bien[6](cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,unidad)

  delimiters " "
end