ÿþALTER PROCEDURE PRFT150Validacao
(@IdProcessamento INT,   
 @Origem smallint,  -- 0- Antes do -Processamento, 1 - Após Processamento  
 @IdNotaFiscal int,  
 @MensagemERRO varchar(max) Output)  
AS  
BEGIN  
 Declare @TipoItemPermitido bit
 Declare @ValorParcelas decimal
 Declare @ValorTotalPedido decimal

 Set @MensagemERRO = ''  

 --Francisco #481824 - Verificação se a série aceita pedidos com produtos e serviços
 Select @TipoItemPermitido = IsNull(serie.TipoItemPermitido,0) 
 From tmpPRFT150 t left join fiSerieNF serie on t.Serie = serie.Serie
 Where t.IdProcessamento = @IdProcessamento
 
 select @ValorParcelas = sum(ValorParcela)
 from tmpPRFT150Vencimento
 where IdProcessamento = @IdProcessamento

 select @ValorTotalPedido = ValorTotalPedido 
 from tmpPRFT150Pedido tmp left join ftPedido ped on ped.IdPedido = tmp.IdPedido
 where tmp.IdProcessamento = @IdProcessamento

 if @ValorParcelas <> @ValorTotalPedido
 begin  
 	Set @MensagemErro = @MensagemErro + ' - Valores de Vencimento diferem do valor total dos pedidos.'
 end  

 If @Origem = 0 and @TipoItemPermitido = 0 and exists 
 (
   Select top 1 1
   From tmpPRFT150Pedido tmp left join ftPedidoItem item on tmp.IdPedido = item.IdPedido
   Where tmp.IdProcessamento = @IdProcessamento
     And item.IdServico is not null
 )
 begin  
 	Set @MensagemErro = @MensagemErro + ' - Não é possível processar a nota na série indicada pois a mesma não aceita Serviços. É necessário fazer o desmembramento do mesmo.'
 end  

 If @Origem = 0 and @TipoItemPermitido = 1 and exists 
 (
   Select top 1 1
   From tmpPRFT150Pedido tmp left join ftPedidoItem item on tmp.IdPedido = item.IdPedido
   Where tmp.IdProcessamento = @IdProcessamento
     And item.IdProduto is not null
 )
 begin  
 	Set @MensagemErro = @MensagemErro + ' - Não é possível processar a nota na série indicada pois a mesma não aceita Produtos. É necessário fazer o desmembramento do mesmo.'
 end  
   
 --Verificar se o registro ainda está na tabela temporaria
 if not exists (Select top 1 1   
    from tmpPRFT150Pedido t    
    where t.IdProcessamento = @IdProcessamento	)  
 begin  
   Set @MensagemErro = ' - Os pedidos referentes a este processamento já foi finalizado.'  
 end  

 if @Origem = 0 and exists (Select top 1 1   
            from tmpPRFT150Pedido t    
              Left Join ftPedido p on (p.IdPedido = t.IdPedido)  
            where t.IdProcessamento = @IdProcessamento  
              and isNull(p.StatusPedido,0) = 0)  
 begin  
   Set @MensagemErro = @MensagemErro + ' - Existem Pedidos em Aberto.'  
 end  
   
 if @Origem = 0 and exists (Select top 1 1   
            from tmpPRFT150Pedido t    
              Left Join ftPedido p on (p.IdPedido = t.IdPedido)  
            where t.IdProcessamento = @IdProcessamento  
              and isNull(p.StatusPedido,0) = 2)  
 begin  
   if (@MensagemErro <> '')   
     Set @MensagemErro = @MensagemErro + '<br>'  
     
   Set @MensagemErro = @MensagemErro + ' - Existem Pedidos já Processados.'  
 end  
  
  
 if @Origem = 0 and exists(Select Top 1 1    
            from tmpPRFT150 t    
            where t.IdProcessamento = @IdProcessamento  
              and isnull(t.idEmpresa,0) = 0)  
 begin  
	if (@MensagemErro <> '')   
		Set @MensagemErro = @MensagemErro + '<br>'  
     
	Set @MensagemErro = @MensagemErro + ' - Empresa está nula. Hove problemas no processamento .'  
     
 end 
 
 if @Origem = 0 and exists (Select top 1 1   
            from tmpPRFT150Pedido t    
              Left Join ftPedidoMotivoBloqueio bloq on (bloq.IdPedido = t.IdPedido)
            where t.IdProcessamento = @IdProcessamento  
              and isNull(bloq.TipoBloqueio,0) = 1)  
 begin  
   Set @MensagemErro = @MensagemErro + ' - Existem Pedidos Bloqueados.'  
 end                  
   
 Return  
END  

go

alter table fnBanco
add FlagAtivoFluxo bit

go

if exists (select 1
            from  sysobjects
           where  id = object_id('tbFeriado')
            and   type = 'U')
   drop table tbFeriado
go

/*==============================================================*/
/* Table: tbFeriado                                             */
/*==============================================================*/
create table tbFeriado (
   IdEmpresa            int                  not null,
   Data                 datetime             not null,
   Descricao            varchar(255)         null,
   constraint PK_TBFERIADO primary key (Data, IdEmpresa)
)
go

if exists(select 1 from sys.extended_properties p where
      p.major_id = object_id('tbFeriado')
  and p.minor_id = (select c.column_id from sys.columns c where c.object_id = p.major_id and c.name = 'IdEmpresa')
)
begin
   declare @CurrentUser sysname
select @CurrentUser = user_name()
execute sp_dropextendedproperty 'MS_Description', 
   'user', @CurrentUser, 'table', 'tbFeriado', 'column', 'IdEmpresa'

end

select @CurrentUser = user_name()
execute sp_addextendedproperty 'MS_Description', 
   'IdEmpresa = 0 serve para todas as Empresas',
   'user', @CurrentUser, 'table', 'tbFeriado', 'column', 'IdEmpresa'
go

CREATE FUNCTION [dbo].[Calc_ProximoDiaUtil](            
  @DataVencimento datetime,            
  @DiasLiberacao numeric(3),
  @TipoCarteira smallint,
  @IdEmpresa int = 0
)            
Returns Datetime            
as            
begin            
  If @DataVencimento is null             
     Return @DataVencimento            
            
  If @DiasLiberacao is Null            
     Set @DiasLiberacao = 0              
            
  Declare @DataAux Datetime    
  declare @FlagDiaUtil smallint            
  declare @DiasLiberacaoRestantes smallint    
        
  /*****        
    EXEMPLO PRATICO: 12/12/2015 - SÁBADO  DIAS DE LIBERAÇÃO - 0          
    DATA VALIDA - 14/12/2015        
    
	SE DIAS DE LIBERAÇÃO FOR <> 0 - EXEMPLO 2 DIAS COM DATA = 23/12/2015
    ADICIONA + 2 DIAS... 25/12/2015 E VALIDA ESTA DATA PARA CHECAR SE CAI EM UM DIA ÚTIL         
    OU NÃO.          
	DATA VALIDA - 28/12/2015
  *****/        
      
  if DatePart(yyyy,@DataVencimento) >= 9999     
  begin    
    Set @DataAux = @DataVencimento    
  end    
  else    
  begin
    Set @DataAux = @DataVencimento    
    Set @FlagDiaUtil = 0    
    Set @DiasLiberacaoRestantes = 0    
        
    if (@DiasLiberacao > 0) and (@TipoCarteira = 2)
      Set @DiasLiberacaoRestantes = @DiasLiberacao              
        
    while (@FlagDiaUtil = 0) or (@DiasLiberacaoRestantes > 0)    
    begin    
      /*pula final de semana*/    
      Select @DataAux = @DataAux + Case DatePart(dw,@DataAux)    
                           When 1 Then 1    
                           When 7 Then 2    
                           Else 0 End    
                               
      /*pula o feriado*/                         
      if Exists(select top 1 1 from tbFeriado where Data = @DataAux and ((IdEmpresa = @IdEmpresa) or (IdEmpresa = 0)))
        set @DataAux = @DataAux + 1       
      else    
      begin    
        Set @FlagDiaUtil = 1    
        if @DiasLiberacaoRestantes > 0     
        begin    
          Set @DiasLiberacaoRestantes = @DiasLiberacaoRestantes - 1    
          Set @DataAux = @DataAux + 1    
          Set @FlagDiaUtil = 0    
        end      
      end      
          
    end    
  end       
         
  Return @DataAux            
end    

go

update fwEventoObjeto
set MetodoSistema = '//Substitui a função de SUBMIT do formulario
if (!MultiplasConexoes) {
    $(''#login_labelIdConexao'').parent().hide();
}
$(''#form'').submit(function(event) {
event.preventDefault();
function VerificaLogin(response) {   
                var dados = $.parseJSON(response);
                if  ((dados.length > 0) && (dados[0].LoginSucesso = true))   
                {   
                    //Chama o método de login, que salva as variaveis no server
                    configuracao.RealizarLogin(dados[0].IdUsuario, dados[0].IdEmpresa, dados[0].IdConexao);
                    try{
                        $.ajax({
                            type: ''POST'',
                            url: utils.UrlSistema() + "Empresa/SetEmpresa",
                            contentType: ''application/json; charset=utf-8'',
                            async: false,
                            dataType: ''json'',
                            success: function () {
                                window.location = urlSistema + "Formularios/Index";
                            }                    
                        });
                    }
                    catch (e){
                        window.location = urlSistema + "Formularios/Index";
                    }
                }
   
                else {
                       alert("Apelido e Senha não conferem !");           }
           };

var params = $("#form input, #form select").serializeArray();
params.push({name: "grupoComando", value:  "Acesso"});
params.push({name: "nomeComando", value:  "Login"});
params.push({name: "IdEmpresa", value:  1});  //TEMPORARIAMENTE ESTA SETANDO A EMPRESA 1

//metodosServerBD.FormSubmit(''Acesso'', ''Login'', params, VerificaLogin);
configuracao.SubmitDadosLogin(params, VerificaLogin);
   
});
$(''#statusRegistro'').hide();
Novo();'
where IdFormularioPai = 'login'
and NomeEvento = 'ready'
go

insert into fwVersao values(1,4,1)

go