Omtrent sånn skal bilfar brukes:
Dette innebører bla følgende spørring
q <- bilfar::bildata(dry_run = TRUE)
#> SELECT
#> SLU.FRTY_NASJON,
#> SLU.REG_MERKE,
#> SLU.LANDINGSDA_TI,
#> SLU.SALGSLAG_ID,
#> SLU.SEDDELNUMMER,
#> CASE
#> WHEN SLU.SEDDELTYPE='0' THEN 'SALESNOTE'
#> WHEN SLU.SEDDELTYPE='1' THEN 'LANDINGNOTE'
#> ELSE 'TRANSIT' END AS "SEDDELTYPE",
#> NS_.NAVN_ENGELSK AS "NS_EnGELSK_NAVN",
#> NFF.ICES_KODE,
#> FAO.KODE_TIL AS "FAO_KODE_TIL",
#> KOD1.KOMMUNENAVN,
#> COUNT(DISTINCT SLU.LINJE_ID) AS "Antall linjer",
#> KOD.KODE_TIL AS "KOD_KODE_TIL",
#> sum(SLU.NETTOKVANTUM_KG)AS "Sum nettokvantum",
#> CASE
#> WHEN SLU.DAGBOK_NR='NULL' THEN 'KGM'
#> ELSE 'KGM' END AS"MEASURE",
#> sum(SLU.BEREGNET_RUNDVEKT) AS "Beregnet rundvekt",
#> sum(SLU.FANGSTVERDI) AS "Sum fangstverdi" ,
#> CASE
#> WHEN SLU.DAGBOK_NR='NULL' THEN 'NOK'
#> ELSE 'NOK' END AS "VALUE",
#> NS_1.NAVN_ENGELSK AS "NS1_NAVN_ENGELSK"
#> /*, SLU.SEDDELTYPE , SLU.FANGSTFELT, SLU.JSON_MOTTATT_DA_TI*/
#> FROM
#> SLUWEBEIER.SLUTTSEDLER_XML_ALLE_VERSJONER SLU,
#> KODEEIER.NS_REDSKAP_TBL NS_,
#> KODEEIER.NFFR_OMRKOD_TBL NFF,
#> KODEEIER.NS_PRODTILST_TBL NS_1,
#> KODEEIER.FAO_OMRAADE_OMK_NS_TBL FAO,
#> KODEEIER.FAO_FISKESLAG_OMK_NS_TBL KOD,
#> KODEEIER.KODE_KOMMUNE_TBL KOD1
#> WHERE
#> SLU.REDSKAP=NS_.KODE
#> AND SUBSTR(SLU.FANGSTFELT,2,2)=NFF.HOVEDOMRÅDE
#> AND SLU.TILSTAND=NS_1.KODE
#> AND NFF.HOVEDOMRÅDE=FAO.KODE_FRA
#> AND SLU.FISKESLAG=KOD.KODE_FRA
#> AND SLU.MOTTAK_KOMMUNE=KOD1.KOMMUNENR
#> AND SLU.FANGSTAAR = 2026
#> AND SLU.FRTY_NASJON not in ('NOR')
#> AND SLU.MOTTAK_NASJON ='NOR'
#> AND SLU.ER_GJELDENDE = ('1')
#> GROUP BY
#> SLU.SALGSLAG_ID,
#> SLU.FRTY_NASJON,
#> SLU.REG_MERKE,
#> SLU.LANDINGSDA_TI,
#> SLU.SEDDELNUMMER,
#> NS_.NAVN_ENGELSK,
#> NS_1.NAVN_ENGELSK,
#> KOD.KODE_TIL,
#> KOD1.KOMMUNENAVN,
#> FAO.KODE_TIL,
#> NFF.ICES_KODE,
#> SLU.SEDDELTYPE,
#> SLU.FANGSTFELT,
#> SLU.JSON_MOTTATT_DA_TI,
#> SLU.DAGBOK_NR
#> ORDER BY
#> SLU.FRTY_NASJON DESC,
#> slu.landingsda_ti ASC;
cat(q)