Geschäftsvorfälle kopieren

USE [*300] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- ============================================= -- Author: Arnd -- Create date: 20120818 -- Description: UserQuery zum Kopieren von Vorfällen -- Kann An Wareneingang und GeschäftsVorfall angehängt werden -- ============================================= CREATE PROCEDURE [dbo].[UserQueryVorfall_kopieren] ( @VorfallKürzel varchar(10), @VorfallNr varchar(8), @Neue_FremdVorfall_Nr varchar(15), @Sicher varchar(5)) AS DECLARE @VNrNeu varchar(8) IF @Sicher <> 'Ja' BEGIN RAISERROR 44447 @Sicher RETURN END IF LEN(@VorfallNr)=0 BEGIN RAISERROR 44447 'Kein Vorfall ausgewählt' RETURN END IF @Sicher='Ja' AND LEN(@VorfallKürzel)> 0 AND @VorfallNr > 0 BEGIN SET @VNrNeu = ( SELECT MAX(VorfallNr) + 1 AS nVNr FROM GeschäftsVorfall GROUP BY VorfallKürzel HAVING (VorfallKürzel = @VorfallKürzel) ) BEGIN INSERT [dbo].[GeschäftsVorfall] ([VorfallKürzel] ,[VorfallNr] ,[Arbeitsplatz] ,[Lieferbedingung] ,[Zahlungsbedingung] ,[KorrNr] ,[VorfallDatum] ,[VKPNr] ,[MwStArt] ,[WartungsvertragNr] ,[Skonto1Prozent] ,[Skonto1Betrag] ,[Skonto2Prozent] ,[Skonto2Betrag] ,[ZahlungsZielNetto] ,[ZahlungsZielSkonto1] ,[ZahlungsZielSkonto2] ,[Status] ,[VersandkostenNetto] ,[AnzahlungBetrag] ,[AnzahlAusdrucke] ,[Zusatztext1] ,[Zusatztext2] ,[Rabatt] ,[Sprache] ,[Währung] ,[Filialnummer] ,[RückstandJN] ,[TeillieferungJN] ,[Wechselkurs] ,[Status1] ,[Status2] ,[GesamtNetto] ,[GesamtBrutto] ,[VersandMwStSatz] ,[Skontofähig] ,[Gewicht] ,[Anzahlung] ,[BonusSumme] ,[PrämienSumme] ,[Abteilung] ,[FremdVorfallNr] ,[FreigabeKz] ,[FreigabeMitarbeiter] ,[Rohertrag] ,[DocumentId] ,[DocumentIdEingang] ,[Ansprechpartner] ,[MemoNr] ,[Gesperrt] ,[ErfasstAm] ,[ErfasstUm] ,[ErfasstVon] ,[VorfallUhrzeit] ,[VerbuchungsParameter]) SELECT VorfallKürzel, @VNrNeu AS VorfallNr, Arbeitsplatz, Lieferbedingung, Zahlungsbedingung, KorrNr, VorfallDatum, VKPNr, MwStArt, WartungsvertragNr, Skonto1Prozent, Skonto1Betrag, Skonto2Prozent, Skonto2Betrag, ZahlungsZielNetto, ZahlungsZielSkonto1, ZahlungsZielSkonto2, 'OFF' AS [Status], VersandkostenNetto, AnzahlungBetrag, AnzahlAusdrucke, Zusatztext1, Zusatztext2, Rabatt, Sprache, Währung, Filialnummer, RückstandJN, TeillieferungJN, Wechselkurs, Status1, Status2, GesamtNetto, GesamtBrutto, VersandMwStSatz, Skontofähig, Gewicht, Anzahlung, BonusSumme, PrämienSumme, Abteilung, @Neue_FremdVorfall_Nr AS FremdVorfallNr, FreigabeKz, FreigabeMitarbeiter, Rohertrag, DocumentId, DocumentIdEingang, Ansprechpartner, MemoNr, Gesperrt, CONVERT(varchar(8), GetDate(), 112) AS ErfasstAm, CONVERT(varchar(5), GetDate(), 108) AS ErfasstUm, ErfasstVon, VorfallUhrzeit, VerbuchungsParameter FROM GeschäftsVorfall WHERE (VorfallKürzel = @VorfallKürzel) AND (VorfallNr = @VorfallNr) END IF (select COUNT(*) from GeschäftsVorfall where VorfallKürzel = @VorfallKürzel and VorfallNr = @VNrNeu)>0 BEGIN INSERT INTO [dbo].[GeschäftsvorfallPosition] ([VorfallKürzel] ,[VorfallNr] ,[ArbeitsPlatz] ,[PositionNummer] ,[ArtikelNr] ,[Einheit] ,[Farbe] ,[Groesse] ,[SerienNummer] ,[FilialNummer] ,[MitarbeiterKürzel] ,[KorrNr] ,[MwStSatzNr] ,[BestellDatenNr] ,[GarantieMonate] ,[VerkaufVermietung] ,[FixKauf] ,[LieferDatum] ,[Text] ,[Menge] ,[GelieferteMenge] ,[EinzelpreisNetto] ,[RabattProzent] ,[RabattBetrag] ,[EinzelpreisBrutto] ,[MwStBetrag] ,[MwStProzent] ,[ZeilenSummeNetto] ,[ZeilenSummeBrutto] ,[RabattBrutto] ,[Status] ,[Status1] ,[Status2] ,[RückstandJN] ,[TeilLieferungJN] ,[Gewicht] ,[BonusBetrag] ,[Abteilung] ,[SammelText] ,[PreisfindungsArt] ,[NatRabattMenge] ,[SerienNummern] ,[Rohertrag] ,[Hierarchie] ,[PositionsArt] ,[Bemerkung] ,[SatzTyp] ,[VKPreis] ,[AnsprechpartnerNr] ,[ReferenzMenge] ,[Paketnummer] ,[FremdPositionsNr] ,[Lagerort] ,[IntraStatID] ,[EAN] ,[Konto] ,[Kostenstelle]) SELECT VorfallKürzel, @VNrNeu AS VorfallNr, ArbeitsPlatz, PositionNummer, ArtikelNr, Einheit, Farbe, Groesse, SerienNummer, FilialNummer, MitarbeiterKürzel, KorrNr, MwStSatzNr, BestellDatenNr, GarantieMonate, VerkaufVermietung, FixKauf, LieferDatum, Text, Menge, GelieferteMenge, EinzelpreisNetto, RabattProzent, RabattBetrag, EinzelpreisBrutto, MwStBetrag, MwStProzent, ZeilenSummeNetto, ZeilenSummeBrutto, RabattBrutto, Status, Status1, Status2, RückstandJN, TeilLieferungJN, Gewicht, BonusBetrag, Abteilung, SammelText, PreisfindungsArt, NatRabattMenge, SerienNummern, Rohertrag, Hierarchie, PositionsArt, Bemerkung, SatzTyp, VKPreis, AnsprechpartnerNr, ReferenzMenge, Paketnummer, FremdPositionsNr, Lagerort, IntraStatID, EAN, Konto, Kostenstelle FROM GeschäftsvorfallPosition WHERE (VorfallKürzel = @VorfallKürzel) AND (VorfallNr = @VorfallNr) END END

USE [*300] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- ============================================= -- Author: Arnd -- Create date: 20120818 -- Description: UserQuery zum Löschen von OFF Vorfällen -- Kann An Wareneingang und GeschäftsVorfall angehängt werden -- ============================================= CREATE PROCEDURE [dbo].[UserQueryVorfall_löschen] ( @VorfallKürzel varchar(10), @VorfallNr varchar(8), @Sicher varchar(5)) AS DECLARE @Status varchar(3) SET @Status = (select [Status] from GeschäftsVorfall where VorfallNr = @VorfallNr and VorfallKürzel = @VorfallKürzel) IF @Status <> 'OFF' BEGIN RAISERROR 44447 'VerbuchungsStatus ist nicht OFF. Vorfall kann hier nicht gelöscht werden' RETURN END IF @Sicher <> 'Ja' BEGIN RAISERROR 44447 @Sicher RETURN END IF LEN(@VorfallNr)=0 BEGIN RAISERROR 44447 'Kein Vorfall ausgewählt' RETURN END IF @Sicher='Ja' AND LEN(@VorfallKürzel)> 0 AND @VorfallNr > 0 BEGIN BEGIN DELETE FROM [dbo].[GeschäftsvorfallPosition] WHERE (VorfallKürzel = @VorfallKürzel) AND (VorfallNr = @VorfallNr) END BEGIN DELETE FROM [dbo].[GeschäftsVorfall] WHERE (VorfallKürzel = @VorfallKürzel) AND (VorfallNr = @VorfallNr) END END