SCHEMA smarmotech
 LAYOUT (TEXT="NCF")
  GRID
{
              TIPO FACTURA
   ---------------------------------------------------
      Codigo           Descripcion
   ---------------------------------------------------
     [i             ][f2                               ]
     [i             ][f2                               ]
     [i             ][f2                               ]
     [i             ][f2                               ]
     [i             ][f2                               ]
}
END
END 

tables
vetb00020
attributes
i   = formonly.codigodgii;
f2  = formonly.descripcion;
   
instructions
   screen record s_tipo[5] (codigodgii,descripcion) 
   delimiters " "
end