IF (EXISTS (select proc_name from sysprocedure where proc_name='SpaGetSmetkaWithDepozits')) THEN
  Drop function SpaGetSmetkaWithDepozits;
END IF;

GO

CREATE FUNCTION "DBA"."SpaGetSmetkaWithDepozits"(in @SmetkaNo integer)
returns varchar(50)
begin
  declare @Smetki varchar(50);
  set @Smetki='';
  for F as Curs scroll cursor for
    select InvoiceNo as @Inv
      from SpaResMoney
      where GuestNo=any(select max(GuestNo) from SpaResMoney where InvoiceNo=@SmetkaNo)
      and Status=1
      and DepositNo<0 do
    if((locate(@Smetki,@Inv)=0) and(@Inv<>@SmetkaNo)) then
      set @Smetki=@Smetki||@Inv||','
    end if
  end for;
  set @Smetki=substr(@Smetki,1,length(@Smetki)-1);
  return(@Smetki)
end

GO

IF (EXISTS (select proc_name from sysprocedure where proc_name='SpaPreparePrintAgain')) THEN
  Drop function SpaPreparePrintAgain;
END IF;

GO


CREATE PROCEDURE "DBA"."SpaPreparePrintAgain"(in @SmetkaNo integer,in @OkCancel integer)
begin
  delete from #Articles;
  delete from #PaymentTypes;
  for f0 as curs0 scroll cursor for
    select ArticleNo as @ArticleNumber,ArticleName as @ArticleName,Qty as @ArticleQty,Price as @ArticlePrice,
      RegNo as @RegNo,CreditNo as @CreditNo,TotalSum as @ArticleSum,Discount as @Discount,
      TipDDS as @TipDDS,ServiceNo as @Service,Price as @ArticlePrWithDDS,TotalSum as @TotalSumWithDDS,
      RegDate as @RDate
      from SpaArticles where InvoiceNo=@SmetkaNo do
    insert into #Articles(ArticleNumber,ArticleName,Measure,ArticleQty,MaxQty,MinQty,ArticlePrice,RegNo,CreditNo,
      ArticleSum,Discount,TipDDS,ServiceNo,PriceInvWithDDS,ArticleSumWithDDS,RegDate) values(
      @ArticleNumber,@ArticleName,'απ.',@ArticleQty,@ArticleQty,@ArticleQty,
      @OkCancel*@ArticlePrice,@RegNo,@CreditNo,@OkCancel*@ArticleSum,@Discount,@TipDDS,@Service,@ArticlePrWithDDS,@TotalSumWithDDS,@RDate) end for;
  for f1 as curs1 scroll cursor for
    select RM.Sum as @Sum,RM.Currency as @KodCurrency,RM.Payment as @PaymentType,Cr.Symbol as @Symbol,
      RM.AccountNumber as @AccountNumber,RM.GuestNo as @GuestNo,RM.GroupNo as @GroupNo,RM.RoomNo as @RoomNo,RM.ReserveNo as @ReserveNo,
      RM.PTVid as @PTVid
      from "DBA".SpaResMoney as RM,"DBA".Currencies as Cr
      where RM.InvoiceNo=@SmetkaNo
      and RM.DateMoney<>0
      and RM.Currency=Cr.KodCurrency do
    insert into #PaymentTypes(PaymentType,Sum,KodCurrency,AccountNumber,Symbol,GuestNo,GroupNo,RoomNo,ReserveNo,PTVid) values(
      @PaymentType,@OkCancel*@Sum,@KodCurrency,@AccountNumber,@Symbol,@GuestNo,@GroupNo,@RoomNo,@ReserveNo,@PTVid) end for
end