USE [SOAP_Repos]
GO
/****** Object:  StoredProcedure [dbo].[sp_SOAP_SetWoningGegevens]    Script Date: 03/27/2007 19:37:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:   Ian Smith
-- Create date: 22-03-2007
-- Description:  Bewaard XML document en extraheert relationele data
-- Source:   Soap Service
-- =============================================
ALTER PROCEDURE [dbo].[sp_SOAP_SetWoningGegevens] (@vheupdate AS XML)
AS
BEGIN TRY
  SET NOCOUNT ON;
  DECLARE @WoningXML_id AS int

  PRINT 'STAP1:  Insert XML document in tb_Import_WoningGegevensXML'
   INSERT dbo.tb_Import_WoningGegevensXML(woningGegevensXML) VALUES (@vheupdate)

  PRINT 'STAP2:  Pak primaire sleutel om secundaire sleutel te vullen' 
   SELECT @WoningXML_id = (
             SELECT id FROM tb_Import_WoningGegevensXML
             WHERE id in (SELECT max(id) FROM tb_Import_WoningGegevensXML)
            ) 

  PRINT 'STAP2A: Insert Corporatie en Woning sleutel gegevens'
   INSERT INTO tb_Import_WoningGegevensRelationeel
   (
    WoningXML_id,
    vhe,
    corporatieNummerNCCW
   )
   SELECT
    @WoningXML_id,
    VHE.C.value('(./vhe)Ώ]','nvarchar(max)') As VheNummerUitgebreid,
    identificatiecode.C.value('(.)Ώ]','nvarchar(max)') Identificatiecode
   FROM @vheupdate.nodes('//row') VHE(C)
    OUTER APPLY VHE.C.nodes('./identificatiecode') identificatiecode(C)

  PRINT 'STAP2B: Update Woning adresgegevens plus aantal kamers'
   UPDATE tb_Import_WoningGegevensRelationeel
   SET
     complexnummer = q.complexnummer,
     straatnaam = q.straatnaam,
     huisnummer = q.huisnummer,
     toevoeging = q.toevoeging,
     postcodeCijfers = q.postcodeCijfers,
     postcodeLetters = q.postcodeLetters,
     plaats = q.plaats,
     aantalKamers = q.aantalKamers
   FROM
     (
      SELECT
       VHE.C.value('(./vhe)Ώ]','nvarchar(max)') As VheNummerUitgebreid,
       complexnummer.C.value('(.)Ώ]','nvarchar(max)') complexnummer,
       straatnaam.C.value('(.)Ώ]','nvarchar(max)') straatnaam,
       huisnummer.C.value('(.)Ώ]','nvarchar(max)') huisnummer,
       toevoeging.C.value('(.)Ώ]','nvarchar(max)') toevoeging,
       postcodeCijfers.C.value('(.)Ώ]','nvarchar(max)') postcodeCijfers,
       postcodeLetters.C.value('(.)Ώ]','nvarchar(max)') postcodeLetters,
       plaats.C.value('(.)Ώ]','nvarchar(max)') plaats,
       aantalKamers.C.value('(.)Ώ]','nvarchar(max)') aantalKamers
      FROM @vheupdate.nodes('//row') VHE(C)
       OUTER APPLY VHE.C.nodes('./complexnummer') complexnummer(C)
       OUTER APPLY VHE.C.nodes('./straatnaam') straatnaam(C)
       OUTER APPLY VHE.C.nodes('./huisnummer') huisnummer(C)
       OUTER APPLY VHE.C.nodes('./toevoeging') toevoeging(C)
       OUTER APPLY VHE.C.nodes('./postcodeCijfers') postcodeCijfers(C)
       OUTER APPLY VHE.C.nodes('./postcodeLetters') postcodeLetters(C)
       OUTER APPLY VHE.C.nodes('./plaats') plaats(C)
       OUTER APPLY VHE.C.nodes('./aantalKamers') aantalKamers(C)
     )q
     WHERE vhe = q.VheNummerUitgebreid AND WoningXML_id = @WoningXML_id

  PRINT 'STAP2B: Update Woning oppervlaktes'
   UPDATE tb_Import_WoningGegevensRelationeel
   SET
     oppwoonkamer1 = q.oppwoonkamer1,
     oppwoonkamer2 = q.oppwoonkamer2,
     oppvertrektotaal = q.oppvertrektotaal,
     oppovvertrek1 = q.oppovvertrek1,
     oppovvertrek2 = q.oppovvertrek2,
     oppzolder = q.oppzolder,
     oppslaapkamer1 = q.oppslaapkamer1,
     oppslaapkamer2 = q.oppslaapkamer2,
     oppslaapkamer3 = q.oppslaapkamer3,
     oppslaapkamer4 = q.oppslaapkamer4
   FROM
     (
      SELECT
       VHE.C.value('(./vhe)Ώ]','nvarchar(max)') As VheNummerUitgebreid,
       oppwoonkamer1.C.value('(.)Ώ]','nvarchar(max)') oppwoonkamer1,
       oppwoonkamer2.C.value('(.)Ώ]','nvarchar(max)') oppwoonkamer2,
       oppvertrektotaal.C.value('(.)Ώ]','nvarchar(max)') oppvertrektotaal,
       oppovvertrek1.C.value('(.)Ώ]','nvarchar(max)') oppovvertrek1,
       oppovvertrek2.C.value('(.)Ώ]','nvarchar(max)') oppovvertrek2,
       oppzolder.C.value('(.)Ώ]','nvarchar(max)') oppzolder,
       oppslaapkamer1.C.value('(.)Ώ]','nvarchar(max)') oppslaapkamer1,
       oppslaapkamer2.C.value('(.)Ώ]','nvarchar(max)') oppslaapkamer2,
       oppslaapkamer3.C.value('(.)Ώ]','nvarchar(max)') oppslaapkamer3,
       oppslaapkamer4.C.value('(.)Ώ]','nvarchar(max)') oppslaapkamer4
      FROM @vheupdate.nodes('//row') VHE(C)
       OUTER APPLY VHE.C.nodes('./oppwoonkamer1') oppwoonkamer1(C)
       OUTER APPLY VHE.C.nodes('./oppwoonkamer2') oppwoonkamer2(C)
       OUTER APPLY VHE.C.nodes('./oppvertrektotaal') oppvertrektotaal(C)
       OUTER APPLY VHE.C.nodes('./oppovvertrek1') oppovvertrek1(C)
       OUTER APPLY VHE.C.nodes('./oppovvertrek2') oppovvertrek2(C)
       OUTER APPLY VHE.C.nodes('./oppzolder') oppzolder(C)
       OUTER APPLY VHE.C.nodes('./oppslaapkamer1') oppslaapkamer1(C)
       OUTER APPLY VHE.C.nodes('./oppslaapkamer2') oppslaapkamer2(C)
       OUTER APPLY VHE.C.nodes('./oppslaapkamer3') oppslaapkamer3(C)
       OUTER APPLY VHE.C.nodes('./oppslaapkamer4') oppslaapkamer4(C)
     )q
   WHERE vhe = q.VheNummerUitgebreid AND WoningXML_id = @WoningXML_id

  PRINT 'STAP2C: Update Woning huur en kost gegevens'
   UPDATE tb_Import_WoningGegevensRelationeel
   SET
     subshuur = q.subshuur,
     streefhuur = q.streefhuur,
     nettohuur = q.nettohuur,
     servicekosten = q.servicekosten,
     stookkosten = q.stookkosten,
     wozwaarde = q.wozwaarde
   FROM
     (
      SELECT
       VHE.C.value('(./vhe)Ώ]','nvarchar(max)') As VheNummerUitgebreid,
       subshuur.C.value('(.)Ώ]','nvarchar(max)') subshuur,
       streefhuur.C.value('(.)Ώ]','nvarchar(max)') streefhuur,
       nettohuur.C.value('(.)Ώ]','nvarchar(max)') nettohuur,
       servicekosten.C.value('(.)Ώ]','nvarchar(max)') servicekosten,
       stookkosten.C.value('(.)Ώ]','nvarchar(max)') stookkosten,
       wozwaarde.C.value('(.)Ώ]','nvarchar(max)') wozwaarde
      FROM @vheupdate.nodes('//row') VHE(C)
       OUTER APPLY VHE.C.nodes('./subshuur') subshuur(C)
       OUTER APPLY VHE.C.nodes('./streefhuur') streefhuur(C)
       OUTER APPLY VHE.C.nodes('./nettohuur') nettohuur(C)
       OUTER APPLY VHE.C.nodes('./servicekosten') servicekosten(C)
       OUTER APPLY VHE.C.nodes('./stookkosten') stookkosten(C)
       OUTER APPLY VHE.C.nodes('./wozwaarde') wozwaarde(C)
     )q
   WHERE vhe = q.VheNummerUitgebreid AND WoningXML_id = @WoningXML_id

  PRINT 'STAP2C: Update Woning huur en kost gegevens'
   UPDATE tb_Import_WoningGegevensRelationeel
   SET
     cv_aanwezig = q.cv_aanwezig,
     stadsverwarming = q.stadsverwarming,
     cv_combi = q.cv_combi,
     warmtemeter = q.warmtemeter,
     oppberging = q.oppberging,
     verhuurdatum = q.verhuurdatum,
     garage_carport = q.garage_carport,
     bouwjaar = q.bouwjaar,
     lift_aanwezig = q.lift_aanwezig,
     codebuitenruimte = q.codebuitenruimte,
     marktkenmerk = q.marktkenmerk,
     gebruik = q.gebruik
   FROM
     (
      SELECT
       VHE.C.value('(./vhe)Ώ]','nvarchar(max)') As VheNummerUitgebreid,
       cv_aanwezig.C.value('(.)Ώ]','nvarchar(max)') cv_aanwezig,
       stadsverwarming.C.value('(.)Ώ]','nvarchar(max)') stadsverwarming,
       cv_combi.C.value('(.)Ώ]','nvarchar(max)') cv_combi,
       warmtemeter.C.value('(.)Ώ]','nvarchar(max)') warmtemeter,
       oppberging.C.value('(.)Ώ]','nvarchar(max)') oppberging,
       verhuurdatum.C.value('(.)Ώ]','nvarchar(max)') verhuurdatum,
       garage_carport.C.value('(.)Ώ]','nvarchar(max)') garage_carport,
       bouwjaar.C.value('(.)Ώ]','nvarchar(max)') bouwjaar,
       lift_aanwezig.C.value('(.)Ώ]','nvarchar(max)') lift_aanwezig,
       codebuitenruimte.C.value('(.)Ώ]','nvarchar(max)') codebuitenruimte,
       marktkenmerk.C.value('(.)Ώ]','nvarchar(max)') marktkenmerk,
       gebruik.C.value('(.)Ώ]','nvarchar(max)') gebruik
      FROM @vheupdate.nodes('//row') VHE(C)
       OUTER APPLY VHE.C.nodes('./cv_aanwezig') cv_aanwezig(C)
       OUTER APPLY VHE.C.nodes('./stadsverwarming') stadsverwarming(C)
       OUTER APPLY VHE.C.nodes('./cv_combi') cv_combi(C)
       OUTER APPLY VHE.C.nodes('./warmtemeter') warmtemeter(C)
       OUTER APPLY VHE.C.nodes('./oppberging') oppberging(C)
       OUTER APPLY VHE.C.nodes('./verhuurdatum') verhuurdatum(C)
       OUTER APPLY VHE.C.nodes('./garage_carport') garage_carport(C)
       OUTER APPLY VHE.C.nodes('./bouwjaar') bouwjaar(C)
       OUTER APPLY VHE.C.nodes('./lift_aanwezig') lift_aanwezig(C)
       OUTER APPLY VHE.C.nodes('./codebuitenruimte') codebuitenruimte(C)
       OUTER APPLY VHE.C.nodes('./marktkenmerk') marktkenmerk(C)
       OUTER APPLY VHE.C.nodes('./gebruik') gebruik(C)
     )q
   WHERE vhe = q.VheNummerUitgebreid AND WoningXML_id = @WoningXML_id
END TRY
BEGIN CATCH
  EXEC dbo.sp_SOAP_SetWoningGegevensError 'sp_SOAP_SetWoningGegevens','Onbekend','local'
END CATCH