open FSharp.Data
open System

type Record = {voivoship : Option<int>;  district : Option<int>; community:Option<int>; rozd:Option<int>; name: Option<string>; addinf: Option<string> }

type InputXml = XmlProvider<"Terc.xml">
let tercs = InputXml.GetSample()


let records =
    seq {

        for row in tercs.Catalog.Rows do

            let  vs = ref None
            let  dt = ref None
            let  cy = ref None
            let  rd = ref None
            let  ne = ref None
            let  af = ref None

            for col in row.Cols do
                match col.Name with
                | "WOJ" -> vs := col.Number
                | "POW" -> dt := col.Number
                | "GMI" -> cy :=  col.Number
                | "RODZ" -> rd :=  col.Number
                | "NAZWA" -> ne := col.String
                | "NAZDOD" -> af :=  col.String
                | _ -> ()

            yield {Record.voivoship = !vs; Record.district = !dt; Record.community = !cy; Record.rozd = !rd; Record.name = !ne; Record.addinf = !af}
         }