Jetzt auch noch für alle bei Delphi-PRAXiS.
[code:1:e9b55a6387]
CREATE PROCEDURE Preisliste AS
SET NOCOUNT ON
/* Deklaration der Variablen für Statements */
declare @ColName nvarchar(100)
declare @
Query nvarchar(1000)
/* Deklaration der Variablen für CURSOR */
declare @adressart_id int
declare @artikel_id int
declare @artikel_name varchar(50)
declare @artikel_artikelnummer varchar(15)
declare @artikel_warengruppe int
declare @artikel_artikelgruppe int
declare @artikel_vk_id int
declare @artikel_vk_preis float
declare @artikel_vk_prozent float
declare @artikel_vk_rabat float
/* Löschen der Temporären Tabelle TEMPPREISLISTE falls diese existiert */
if exists (select * from sysobjects where id =
object_id(N'[dbo].[TempPreisliste]')
and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[TempPreisliste]
/* Erstellen der Temporären Tabelle TEMPPREISLISTE */
CREATE TABLE [dbo].[TempPreisliste] (
[preis_id] [int] IDENTITY (1, 1) NOT NULL ,
[artikel_id] [int] NULL ,
[Name1] [varchar] (50) NULL ,
[Artikelnummer] [varchar] (15) NULL ,
[Warengruppe] [int] NULL ,
[Artikelgruppe] [int] NULL
)
/* CURSOR für Artikeltabelle */
DECLARE artikel_cursor CURSOR FOR