IF (EXISTS(Select * from sys.sysprocedure where LCase(proc_name) = LCase('FinishProformBill')))
THEN Drop procedure FinishProformBill
END IF

GO

create function
DBA.FinishProformBill(in @PayHow integer,in @InvoiceType integer,in @InvoiceDate integer,in @KodAdmin integer,in @Whom varchar(50),in @TotalNoVAT decimal(12,2),in @VAT decimal(12,2),in @GrandTotal decimal(12,2),in @WithoutVAT decimal(12,2),in @BillType integer,in @No integer,in @IsInvoice integer,in @VidSmetka integer,in @ExchangeRate decimal(12,4),in @ContractNo integer,in @DDSType integer)
returns numeric(10) --Maria +
--returns integer
--Maria -
//Insertva dannite fakturata vuv Proform i ProArticles i sled tova po tazi Proforma moje da se izdava faktura
begin atomic
  --Maria +
  --declare @ProformNo integer;
  declare @ProformNo numeric(10);
  --Maria -
  declare @DepositNo integer;
  --Maria +
  --declare @TrueInvoiceNo integer;
  declare @TrueInvoiceNo numeric(10);
  --Maria -
  declare @CancelInvoiceNo integer;
  declare @ServiceNo integer;
  declare @CreditNo integer;
  declare @ResMoneyStatus integer;
  declare @SmetkaCurrency integer;
  --Maria +, 1924
  declare @GuestNo integer;
  --Maria -
  //declare @NullDepositCount integer;
  //Vzima Tipa valuta ot vida smetka
  select KodCurrency into @SmetkaCurrency from VidSmetki where N = @VidSmetka;
  //Iztriva nulevite kolichestva
  delete from #Articles where ArticleQty = 0;
  //Vmukva dannite za fakturata
  --Maria +
  --set @ProformNo=GetCounter('TrueProfNo');
  set @ProformNo=GetFakturaCounter('TrueProfNo');
  --Maria -
  //Trqbva da se dobavi i nomera na dogovora pri insert-a na nova smetka
  insert into Proform( ProformNo,PayHow,InvoiceType,InvoiceDate,BankTown,Upolnomosten,
    UpolnomDate,UpolnomNum,KodAdmin,Whom,MOL,WhomTown,WhomDanNum,Bulstat,KodCurrency,
    TotalNoVAT,VAT,GrandTotal,TrueInvoiceNo,WithoutVAT,TrueInvoiceDate,ExchangeRate,VidSmetka,ContractNo,DDSType) values( 
    @ProformNo,@PayHow,@InvoiceType,@InvoiceDate,'','','','',@KodAdmin,
    @Whom,'','','','',1,@TotalNoVAT,@VAT,@GrandTotal,@TrueInvoiceNo,@WithoutVAT,FloatToDate(@InvoiceDate),1.0,@VidSmetka,@ContractNo,@DDSType) ;
  for f as curs scroll cursor for
    select ArticleNumber as @ArticleNumber,ArticleName as @ArticleName,ArticleQty as @ArticleQty,
      ArticlePrice as @ArticlePrice,RegNo as @RegNo,CreditNo as @CreditNum,ArticleSum as @ArticleSum,
      TipDDS as @TipDDS,Discount as @Discount,ServiceNo as @Service,ArticleSumInvCurrency as @SumInvCurrency from #Articles do
    //Ako e swobodna smetka vmukva vuv uslugite na gosta uslugite ot svobodnata smetka
    //Insertva zapis vuv Articles
	--Maria +, 1924
	if @BillType = 5 then
	 set @GuestNo=@No
	else 
	  set @GuestNo = 0
	end if;
       --Maria -
    --Maria +, 1924 - dobaveno da se insert-va i GuestNum
    insert into ProArticles( ProformNo,RegNo,Price,CreditNo,TotalSum,TotalSumInvCurrency,Qty,KodCurrency,ArticleNo,
       ArticleName,TipDDS,Discount,ServiceNo,GuestNum,DDSType) values( @ProformNo,@RegNo,@ArticlePrice,@CreditNum,@ArticleSum,@SumInvCurrency,
       @ArticleQty,1,@ArticleNumber,@ArticleName,@TipDDS,@Discount,@Service,@GuestNo,@DDSType) end for;
  //Promenia noshtuvkite
  //Ako e anulirane na smetka i anuliranata smetka ima slujebni zapisi za markirane na depositi gi iztriva
  //Promenia CancelInvoiceNo na anuliranata smetka na -1
  return(@ProformNo)
end
//[v 00.11.18]
//[v 01.07.09] - Niki - za vidovete smetki
//[v 18.09.02] - Dobaven e parametyr za N na Dogovora vyv vryska s Smetki po dogovori
//[v 14.03.2008] - Maria - TrueInvoiceNo i ProformNo da sa numeric i funkcia GetFakturaCounter