From c0f933e415feb29a1f4f037b397ffb3152550473 Mon Sep 17 00:00:00 2001
From: Jos Migo <jos.migo@aareon.nl>
Date: Wed, 22 Sep 2021 11:18:24 +0000
Subject: [PATCH] SKAF#67168 -- Import Artikelcatalogi voor Viking met Prijzen
 inclusief btw

svn path=/Customer/trunk/; revision=53109
---
 SKAF/skaf.sql | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/SKAF/skaf.sql b/SKAF/skaf.sql
index 732b46166..2e4139b56 100644
--- a/SKAF/skaf.sql
+++ b/SKAF/skaf.sql
@@ -1257,6 +1257,49 @@ BEGIN
 END skaf_update_prs;
 /
 
+-- Import voor Viking - catalogus Boodschappen - Beperkt Assortiment
+CREATE OR REPLACE PROCEDURE skaf_import_catalogus (p_import_key IN NUMBER)
+AS
+
+   CURSOR c
+   IS
+      SELECT ins_srtdeel_nr, ins_srtdeel_prijs, ins_srtdeel_btw
+      FROM fac_imp_catalogus
+      WHERE ins_srtdeel_prijs IS NOT NULL and ins_srtdeel_btw IS NOT NULL;
+
+   v_ins_srtdeel_prijs   NUMBER(8,2);
+
+
+BEGIN
+-- standaard catalogus-import aanroepen
+fac_import_catalogus(p_import_key) ;
+
+
+-- updaten prijzen: Wordt door Viking exclusief btw aangeleverd en zetten we hier om naar prijzen inclusief btw
+      FOR rec IN c
+      LOOP
+         BEGIN
+            v_ins_srtdeel_prijs := rec.ins_srtdeel_prijs * ((100 + rec.ins_srtdeel_btw)/100);
+            
+            UPDATE fac_imp_catalogus
+               SET ins_srtdeel_prijs = v_ins_srtdeel_prijs
+             WHERE ins_srtdeel_nr = rec.ins_srtdeel_nr ;
+
+         END;
+      END LOOP;
+
+END skaf_import_catalogus;
+/
+
+CREATE OR REPLACE PROCEDURE skaf_update_catalogus (p_import_key IN NUMBER)
+AS
+BEGIN
+-- standaard catalogus-update aanroepen
+fac_update_catalogus(p_import_key);
+
+END skaf_update_catalogus;
+/
+
 
 CREATE OR REPLACE VIEW skaf_v_factuur_bestand (fin_factuur_key, fin_factuur_bestand)
 AS