From Bistre Porcupine, 3 Months ago, written in Text.
Embed
  1. USE [CMP_PHC]
  2. GO
  3. /****** Object:  StoredProcedure [dbo].[CRIA_PAGAMENTO]    Script Date: 04/17/2018 11:54:26 ******/
  4. SET ANSI_NULLS ON
  5. GO
  6. SET QUOTED_IDENTIFIER ON
  7. GO
  8. -- =============================================
  9. -- Author:              <Author,,Name>
  10. -- Create date: <Create Date,,>
  11. -- Description: <Description,,>
  12. -- =============================================
  13. ALTER PROCEDURE [dbo].[CRIA_PAGAMENTO]
  14.          @no  int
  15.         ,@nome varchar(60)
  16.         ,@nome2 varchar(60)
  17.         ,@morada varchar(60)
  18.         ,@Local  varchar(60)
  19.         ,@codpost  varchar(60)
  20.         ,@ncont varchar(60)
  21.         ,@zona varchar(20)
  22.         ,@nib  varchar(60)
  23.         ,@cobranca varchar(60)
  24.         ,@tipo  varchar(20)
  25.         ,@pais  numeric(1)
  26.         ,@estab int
  27.         ,@moeda varchar(60)
  28.         ,@adoc  varchar(60)
  29.         ,@olcodigo varchar(12)
  30.         ,@cm   numeric(6)
  31.         ,@cmdesc varchar(20)
  32.         ,@olLocal  varchar(50)
  33.         ,@process int
  34.         ,@procdata datetime
  35.         ,@etotal numeric(10,2)
  36.         ,@desc1 varchar(60)
  37.         ,@contado int
  38.         ,@fcstamp varchar(60)
  39.         ,@iban varchar(60)
  40.         ,@u_nrecmed varchar(60)
  41.         ,@numeropagamento varchar(60)
  42.         ,@valorIRS numeric(10,2)
  43. AS
  44. BEGIN
  45.         -- SET NOCOUNT ON added to prevent extra result sets from
  46.         -- interfering with SELECT statements.
  47.         SET NOCOUNT ON;
  48.  
  49.         declare @postamp varchar(25), @plstamp varchar(25), @rno int
  50.         --, @rno int
  51.  
  52.         select @postamp=left(newid(),24)
  53.  
  54.         print @postamp
  55.  
  56.         select @rno=max(rno)+1 from po  where poano=year(getdate())
  57.  
  58.         print @rno
  59.  
  60.         -- PO
  61.  
  62.         insert into po ( postamp,  no
  63.                                         ,nome
  64.                                         ,nome2
  65.                                         ,morada
  66.                                         ,Local
  67.                                         ,codpost
  68.                                         ,ncont
  69.                                         ,zona
  70.                                         ,nib
  71.                                         ,cobranca      
  72.                                         ,tipo
  73.                                         ,pais
  74.                                         ,estab
  75.                                         ,moeda
  76.                                         ,adoc
  77.                                         ,olcodigo
  78.                                         ,cm
  79.                                         ,cmdesc
  80.                                         ,olLocal
  81.                                         ,process
  82.                                         ,procdata
  83.                                         ,desc1
  84.                                         ,contado
  85.                                         ,rno
  86.                                         ,poano
  87.                                         ,rdata
  88.                                         ,etotal
  89.                                         ,ousrdata
  90.                                         ,usrdata
  91.                                         ,iban
  92.                                         ,usrhora
  93.                                         ,ousrhora
  94.                                         ,u_nrecmed
  95.                                         ,u_recibome
  96.                                         ,evirs
  97.                                         ,virs
  98.                                         ,memissao
  99.                                         ,txirs)
  100.                                         values ( @postamp
  101.                                                         ,@no
  102.                                                         ,@nome
  103.                                                         ,@nome2
  104.                                                         ,@morada
  105.                                                         ,@Local
  106.                                                         ,@codpost
  107.                                                         ,@ncont
  108.                                                         ,@zona
  109.                                                         ,@nib
  110.                                                         ,@cobranca
  111.                                                         ,@tipo
  112.                                                         ,@pais
  113.                                                         ,@estab
  114.                                                         ,@moeda
  115.                                                         --,@adoc
  116.                                                         ,@numeropagamento
  117.                                                         ,@olcodigo
  118.                                                         ,@cm
  119.                                                         ,@cmdesc
  120.                                                         ,@olLocal
  121.                                                         ,@process
  122.                                                         ,@procdata
  123.                                                         ,'Honorários no. '+ @desc1 + '.'
  124.                                                         ,@contado
  125.                                                         ,@rno
  126.                                                         ,year(getdate())
  127.                                                         ,getdate()
  128.                                                         ,@etotal
  129.                                                         ,getdate()
  130.                                                         ,getdate()
  131.                                                         ,@iban
  132.                                                         ,cast(DATEPART(HOUR, GETDATE()) as varchar)+':'+ cast(DATEPART(MI, GETDATE()) as varchar)+':'+cast(DATEPART(SS, GETDATE()) as varchar)
  133.                                                         ,cast(DATEPART(HOUR, GETDATE()) as varchar)+':'+ cast(DATEPART(MI, GETDATE()) as varchar)+':'+cast(DATEPART(SS, GETDATE()) as varchar)
  134.                                                         ,@u_nrecmed
  135.                                                         ,case when @u_nrecmed<>'' then 1 else 0 end
  136.                                                         ,@valorIRS
  137.                                                         ,@valorIRS*200.482
  138.                                                         ,'EURO'
  139.                                                         ,0)
  140.          -- PL
  141.  
  142.          select @plstamp=left(newid(),24)
  143.  
  144.          insert into pl (plstamp,
  145.                                          postamp,
  146.                                          rno,
  147.                                          cdesc,
  148.                                          adoc,
  149.                                          datalc,
  150.                                          fcstamp,
  151.                                          cm,
  152.                                          eval,
  153.                                          erec,
  154.                                          process,
  155.                                          moeda,
  156.                                          rdata,
  157.                                          fcorigem,
  158.                                          evsujirs,
  159.                                          ousrdata,
  160.                                          usrdata,
  161.                                          usrhora,
  162.                                          ousrhora,
  163.                                          evirs,
  164.                                          virs,
  165.                                          evsujirs,
  166.                                          vsujirs)
  167.                                          values
  168.                                          ( @plstamp
  169.                                           ,@postamp
  170.                                           ,@rno
  171.                                           ,'Honorários'
  172.                                           ,@adoc
  173.                                           ,getdate()
  174.                                           ,@fcstamp
  175.                                           ,162
  176.                                           ,@etotal+@valorIRS
  177.                                           ,@etotal+@valorIRS
  178.                                           ,1
  179.                                           ,'PTE ou EURO'
  180.                                           ,getdate()
  181.                                           ,'FO'
  182.                                           ,0.00
  183.                                           ,getdate()
  184.                                           ,getdate()
  185.                                           ,cast(DATEPART(HOUR, GETDATE()) as varchar)+':'+ cast(DATEPART(MI, GETDATE()) as varchar)+':'+cast(DATEPART(SS, GETDATE()) as varchar)
  186.                                           ,cast(DATEPART(HOUR, GETDATE()) as varchar)+':'+ cast(DATEPART(MI, GETDATE()) as varchar)+':'+cast(DATEPART(SS, GETDATE()) as varchar)
  187.                                           ,@valorIRS
  188.                                           ,@valorIRS*200.482
  189.                                           ,@etotal+@valorIRS
  190.                                           ,(@etotal+@valorIRS)*200.482)
  191.  
  192.                 print @rno
  193.  
  194.        
  195.  
  196. END
  197.