IF (EXISTS (select proc_name from sysprocedure where proc_name='SpaFillServicesForBill')) THEN
DROP procedure SpaFillServicesForBill
END IF

GO

CREATE PROCEDURE "DBA"."SpaFillServicesForBill"(in @ArticleNumber integer,in @ArticleName varchar(40),in @Qty integer,in @ArticlePrice double,in @CreditNo integer,in @TipDDS integer,in @ServiceNo integer,in @Discount double,in @RegDate date,in @SpaN integer)
// Tazi procedura se izpolzva za popylwane vuv wremennata tablica #Articles
// na opredelen red ot ServiceCredits
begin
  declare @MaxQty integer;
  declare @MinQty integer;
  declare @ArticlePrWithDDS double; //nt
  message 'tuk sme pri FillServicesForBill @RegDate='||@RegDate;
  if @Qty<0 then
    set @MaxQty=0;
    set @MinQty=@Qty
  else
    set @MaxQty=@Qty;
    set @MinQty=0
  end if
  ;
  set @ArticlePrWithDDS=@ArticlePrice; //nt
  message 'Cenata s dds - >'+cast(@ArticlePrWithDDS as varchar);
  if @TipDDS=1 then
    set @ArticlePrice=@ArticlePrice/(bvrDDSPart+1);
    set @TipDDS=2
  end if
  ;
  insert into #Articles(ArticleNumber,ArticleName,Measure,ArticleQty,MaxQty,MinQty,ArticlePrice,Discount,RegNo,
    CreditNo,ArticleSum,TipDDS,ServiceNo,PriceInvWithDDS,ArticleSumWithDDS,RegDate,SpaResID) values(@ArticleNumber,@ArticleName,'απ.',@Qty,@MaxQty,@MinQty,@ArticlePrice,@Discount,0, //nt
    //   CreditNo,ArticleSum,TipDDS,ServiceNo) values(@ArticleNumber,@ArticleName,'απ.',@Qty,@MaxQty,@MinQty,@ArticlePrice,0,0,
    @CreditNo,((@ArticlePrice*@Qty)-((@ArticlePrice*@Qty)*@Discount)/100),@TipDDS,@ServiceNo,@ArticlePrWithDDS,
    ((@ArticlePrWithDDS*@Qty)-((@ArticlePrWithDDS*@Qty)*@Discount)/100),@RegDate,@SpaN)
end
//[v 18.02.2003]