;** Bib_Bloq *******************************************************************
;*  Biblioteca de Controle de Clientes que usam Rotinas abaixo                 *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 27/06/2015 por Andrey Fillipe
;Ultima Alteracao: 29/07/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE
;Ultima Alteracao: 29/07/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE_0370 SPED e MDF-e
;Ultima Alteracao: 17/08/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE_0343 MDF-e
;Ultima Alteracao: 19/08/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE_0372 SPED
;Ultima Alteracao: 26/08/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE_0372 SPED
;Ultima Alteracao: 27/08/2015 por Kamila Gomes
;Motivo Alteracao: Adicionado parƒmetro "P_DEST"
;                  Adicionado SYS_CODIGO_CLIENTE 0227 P_DEST 
;Ultima Alteracao: 28/08/2015 por Bruno Carvalho
;Motivo Alteracao: Adicionado parƒmetro "TABELA PRECO CONFECCAO"
;                  Adicionado SYS_CODIGO_CLIENTE 0227 TABELA PRECO CONFECCAO
;Ultima Alteracao: 02/09/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE_0318 MDF-e e SPED
;Ultima Alteracao: 14/09/2015 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE_0233 MDF-e
;Ultima Alteracao: 17/09/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0374 SPED 
;                  Adicionado SYS_CODIGO_CLIENTE 0374 e 0375 MDF-e
;Ultima Alteracao: 07/10/2015 por Andrey Fillipe
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0053 SPED
;Ultima Alteracao: 13/10/2015 por Andrey Fillipe
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0318 SPED e MDF-e
;Ultima Alteracao: 15/10/2015 por Andrey Fillipe
;Motivo Alteracao: Corrigido erros da BIB_BLOQ
;Ultima Alteracao: 06/11/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0332 e 0325 SPED 
;Ultima Alteracao: 25/11/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0171 MDF-e 
;Ultima Alteracao: 26/11/2015 por Andrey Fillipe
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0257 MDF-e 
;Ultima Alteracao: 30/11/2015 por Andrey Fillipe
;Motivo Alteracao: Ajustado SYS_CODIGO_CLIENTE por c¢digos
;Ultima Alteracao: 01/12/2015 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0376 e 0377 MDF-e
;Ultima Alteracao: 05/01/2016 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0167 Manifesto
;Ultima Alteracao: 14/01/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0252,0260,0263,0325,0326,0353 Manifesto
;                  Adicionado SYS_CODIGO_CLIENTE 0204 SPED
;Ultima Alteracao: 20/01/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0236 MDF-e
;Ultima Alteracao: 01/02/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0378 SPED
;Ultima Alteracao: 04/02/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0376 SPED
;Ultima Alteracao: 26/02/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0252 SPED
;Ultima Alteracao: 07/03/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0380 SPED e MDF-e
;Ultima Alteracao: 11/03/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0336 SPED
;Ultima Alteracao: 01/04/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0382 SPED e MDF-e 
;Ultima Alteracao: 09/09/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0383 MDF-e 
;Ultima Alteracao: 16/11/2016 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0389 MDF-e 
;Ultima Alteracao: 28/12/2016 por Bruno Carvalho
;Motivo Alteracao: Adicionado Controle de Metas para empresa #0222#, #0227# e #0294# 
;Ultima Alteracao: 05/01/2017 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0338 e 0390 SPED
;Ultima Alteracao: 10/01/2017 por Anivel Auguto Rodrigues
;Motivo Alteracao: Ajustes bloqueio s¢ no modo runtime                
;Ultima Alteracao: 17/01/2017 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0274 SPED
;Ultima Alteracao: 06/02/2017 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0392 SPED
;Ultima Alteracao: 22/02/2017 por Nikolas
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0164 SPED (Frutily)
;Ultima Alteracao: 25/04/2017 por Nikolas
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0396 SPED (Real Tecidos)
;Ultima Alteracao: 11/05/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado Controle de Metas para empresa #0232# 
;Ultima Alteracao: 06/10/2017 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0397 SPED (Tecipam)
;Ultima Alteracao: 12/01/2018 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0404 SPED (Almeida Tecidos)
;Ultima Alteracao: 07/02/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0410 SPED (Esta‡Æo dos Tecidos)
;Ultima Alteracao: 20/03/2018 por Nikolas
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0368 SPED (Casa Bangu)
;Ultima Alteracao: 04/05/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0413 SPED (Pierre)
;Ultima Alteracao: 11/05/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0415 Manifesto
;Ultima Alteracao: 18/05/2018 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0416 SPED 
;Ultima Alteracao: 31/07/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0418 SPED 
;Ultima Alteracao: 13/08/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0268 Manifesto
;Ultima Alteracao: 20/08/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0159 Manifesto
;Ultima Alteracao: 01/10/2018 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0291 Manifesto
;Ultima Alteracao: 28/11/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado Controle de Metas para empresa #0051#  
;Ultima Alteracao: 13/08/2018 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0425 SPED Teodoro
;Ultima Alteracao: 28/12/2018 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Adicionado processos de #0427#
;Ultima Alteracao: 03/01/2019 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0294 SPED
;Ultima Alteracao: 07/01/2019 por NIkolas
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0389 (Sacaria) SPED
;Ultima Alteracao: 31/01/2019 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0427 (Primetex) SPED
;Ultima Alteracao: 01/02/2019 por Kamila Gomes                           
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0389 (Sacaria) SPED
;Ultima Alteracao: 21/02/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0338 SPED
;Ultima Alteracao: 28/03/2019 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0354 e 0430 MDF-e
;Ultima Alteracao: 18/04/2019 por Kamila Gomes
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0417 MDF-e
;Ultima Alteracao: 04/06/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0429 SPED
;Ultima Alteracao: 26/09/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0438 Manifesto
;Ultima Alteracao: 02/12/2019 por Nikolas
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0405 Manifesto (Confort Mov.)
;Ultima Alteracao: 05/12/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0444 e 0443 MDF-e
;Ultima Alteracao: 15/01/2020 por Bruno Carvalho
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0443 Manifesto
;Ultima Alteracao: 04/01/2020 por Heverton Amaral
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0420 SPED
;Ultima Alteracao: 08/07/2020 por Nikolas
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE 0444 SPED

;*******************************************************************************
@ 22,28 ?? "Gerando Biblioteca Bib_Bloq.Lib"
Style Blink
?? "... "

If IsFile("\\Sistemas\\Cadastro\\Bib_Bloq.Lib")
   Then Run NoRefresh "Del \\Sistemas\\Cadastro\\Bib_Bloq.Lib>Nul"
EndIf
CreateLib "\\Sistemas\\Cadastro\\Bib_Bloq" Size 100

;*******************************************************************************
;* Rotina para Checagem de Clientes                                            *
;*******************************************************************************
Proc Bloqueia_Rotina(PARAM_ROTINA)
Private PARAM_ROTINA, PARAM_BLOQUEIA, MSG
If Not IsAssigned(SYS_CODIGO_CLIENTE) Then SYS_CODIGO_CLIENTE="" EndIf
;PARAM_ROTINA       = "ROTINA QUE DESEJA BLOQUEAR - Caso nao exista, criar"
;PARAM_BLOQUEIA     = "SE BLOQUEIA A ROTINA SIM OU NAO - True ou False"
;SYS_CODIGO_CLIENTE = "" (Padrao para o suporte ter acesso por dentro do Paradox)

If not IsRunTime()
   then return false
endif   

If IsAssigned(SYS_CHAPA_USUARIO) And SYS_CHAPA_USUARIO="9999"
   Then PARAM_BLOQUEIA=False
        Return PARAM_BLOQUEIA
EndIf      

PARAM_BLOQUEIA=True
MSG = "Rotina n„o liberada !//Verificar com o Suporte Vise !"

Switch
  Case PARAM_ROTINA="MANIFESTO" And
       (SYS_CODIGO_CLIENTE = ""     Or
        SYS_CODIGO_CLIENTE = "0053" Or     ;Ind. Couros SÆo SebastiÆo
        SYS_CODIGO_CLIENTE = "0110" Or     ;Tecidos Andrade
        SYS_CODIGO_CLIENTE = "0112" Or     ;Michelle Cosm‚ticos
        SYS_CODIGO_CLIENTE = "0144" Or     ;Pintacor
        SYS_CODIGO_CLIENTE = "0167" Or     ;Fun. SÆo Geraldo
        SYS_CODIGO_CLIENTE = "0171" Or     ;Venus
        SYS_CODIGO_CLIENTE = "0216" Or     ;HF Tecidos
        SYS_CODIGO_CLIENTE = "0233" Or     ;DM Textil
        SYS_CODIGO_CLIENTE = "0236" Or     ;Martins Textil
        SYS_CODIGO_CLIENTE = "0252" Or     ;Ecobink
        SYS_CODIGO_CLIENTE = "0257" Or     ;GF Confeccoes
        SYS_CODIGO_CLIENTE = "0260" Or     ;Uai Textil
        SYS_CODIGO_CLIENTE = "0263" Or     ;Metalurgica 3 Luiz
        SYS_CODIGO_CLIENTE = "0266" Or     ;Cacharrel
        SYS_CODIGO_CLIENTE = "0287" Or     ;Sarah Moveis
        SYS_CODIGO_CLIENTE = "0288" Or     ;Metalurgica Brassol
        SYS_CODIGO_CLIENTE = "0291" Or     ;Lassal
        SYS_CODIGO_CLIENTE = "0318" Or     ;Aquarela Tecidos
        SYS_CODIGO_CLIENTE = "0325" Or     ;Roli Jeans
        SYS_CODIGO_CLIENTE = "0326" Or     ;H Roper
        SYS_CODIGO_CLIENTE = "0343" Or     ;Thardely Tecidos
        SYS_CODIGO_CLIENTE = "0345" Or     ;Vitoria Textil
        SYS_CODIGO_CLIENTE = "0353" Or     ;Alumax
        SYS_CODIGO_CLIENTE = "0354" Or     ;Marmoraria Rezende
        SYS_CODIGO_CLIENTE = "0370" Or     ;Charmy Tecidos
        SYS_CODIGO_CLIENTE = "0374" Or     ;Pitangui Tecidos
        SYS_CODIGO_CLIENTE = "0268" Or     ;Rig Fundidos
        SYS_CODIGO_CLIENTE = "0375" Or     ;Lutiane
        SYS_CODIGO_CLIENTE = "0376" Or     ;Atual
        SYS_CODIGO_CLIENTE = "0377" Or     ;Pralum
        SYS_CODIGO_CLIENTE = "0380" Or     ;Disparada
        SYS_CODIGO_CLIENTE = "0382" Or     ;Tecidos Janon
        SYS_CODIGO_CLIENTE = "0383" Or     ;Lute Aluminio
        SYS_CODIGO_CLIENTE = "0389" Or     ;Lute Aluminio
        SYS_CODIGO_CLIENTE = "0415" Or     ;San Loren
        SYS_CODIGO_CLIENTE = "0417" Or     ;CRS Aluminios
        SYS_CODIGO_CLIENTE = "0430" Or     ;Marmoraria Remagram
        SYS_CODIGO_CLIENTE = "0438" Or     ;Jofran
        SYS_CODIGO_CLIENTE = "0405" Or     ;Confort Moveis
        SYS_CODIGO_CLIENTE = "0443" Or     ;Leotex
        SYS_CODIGO_CLIENTE = "0444" Or     ;Leotex
        SYS_CODIGO_CLIENTE = "0443" Or     ;San Loren
        SYS_CODIGO_CLIENTE = "0159") :     ;Carol Distribuidora
        PARAM_BLOQUEIA=False
        
  Case PARAM_ROTINA="METAS" And
       (SYS_CODIGO_CLIENTE = ""     Or
        SYS_CODIGO_CLIENTE = "0222" Or     ;Lupus
        SYS_CODIGO_CLIENTE = "0227" Or     ;Siri
        SYS_CODIGO_CLIENTE = "0232" Or     ;Zuggi zi
        SYS_CODIGO_CLIENTE = "0051" Or     ;ModaMil 
        SYS_CODIGO_CLIENTE = "0294") :     ;Divina Panela
       PARAM_BLOQUEIA=False
          
  Case PARAM_ROTINA="PROBLEMAS" And
       (SYS_CODIGO_CLIENTE = ""     Or
        SYS_CODIGO_CLIENTE = "0227") :     ;Siri
       PARAM_BLOQUEIA=False          
       
  Case PARAM_ROTINA="SPED" And
       (SYS_CODIGO_CLIENTE = ""     Or
        SYS_CODIGO_CLIENTE = "0051" Or     ;Modamil
        SYS_CODIGO_CLIENTE = "0053" Or     ;Ind. Couros SÆo SebastiÆo
        SYS_CODIGO_CLIENTE = "0059" Or     ;Volks Bens
        SYS_CODIGO_CLIENTE = "0066" Or     ;Rural Centro
        SYS_CODIGO_CLIENTE = "0079" Or     ;Isabela Garcia
        SYS_CODIGO_CLIENTE = "0110" Or     ;Tecidos Andrade
        SYS_CODIGO_CLIENTE = "0112" Or     ;Michelle Cosm‚ticos
        SYS_CODIGO_CLIENTE = "0164" Or     ;Frutily
        SYS_CODIGO_CLIENTE = "0173" Or     ;Ponto Con
        SYS_CODIGO_CLIENTE = "0175" Or     ;Cotta Agro.
        SYS_CODIGO_CLIENTE = "0204" Or     ;Uzze Buzze
        SYS_CODIGO_CLIENTE = "0215" Or     ;Art M¢veis
        SYS_CODIGO_CLIENTE = "0216" Or     ;HF Tecidos
        SYS_CODIGO_CLIENTE = "0227" Or     ;Siri
        SYS_CODIGO_CLIENTE = "0228" Or     ;MigTextil
        SYS_CODIGO_CLIENTE = "0232" Or     ;Zuggi Zi
        SYS_CODIGO_CLIENTE = "0235" Or     ;Paladar
        SYS_CODIGO_CLIENTE = "0239" Or     ;Brasil Textil
        SYS_CODIGO_CLIENTE = "0252" Or     ;EcoBrink
        SYS_CODIGO_CLIENTE = "0274" Or     ;Podium Camisaria   
        SYS_CODIGO_CLIENTE = "0286" Or     ;Construbel
        SYS_CODIGO_CLIENTE = "0289" Or     ;Agro Op‡Æo loja
        SYS_CODIGO_CLIENTE = "0290" Or     ;Agro Op‡Æo Fabrica
        SYS_CODIGO_CLIENTE = "0294" Or     ;Divina Panela
        SYS_CODIGO_CLIENTE = "0298" Or     ;MG Tecidos
        SYS_CODIGO_CLIENTE = "0309" Or     ;Construbase
        SYS_CODIGO_CLIENTE = "0318" Or     ;Aquarela
        SYS_CODIGO_CLIENTE = "0325" Or     ;Roli Jeans
        SYS_CODIGO_CLIENTE = "0326" Or     ;H Roper
        SYS_CODIGO_CLIENTE = "0328" Or     ;Ecl‚tica
        SYS_CODIGO_CLIENTE = "0332" Or     ;TDF Jeans
        SYS_CODIGO_CLIENTE = "0334" Or     ;Casa Fonseca
        SYS_CODIGO_CLIENTE = "0336" Or     ;Casa do Fazendeiro
        SYS_CODIGO_CLIENTE = "0343" Or     ;Thardely Tecidos
        SYS_CODIGO_CLIENTE = "0344" Or     ;Imp‚rio Rural
        SYS_CODIGO_CLIENTE = "0345" Or     ;Vit¢ria Textil
        SYS_CODIGO_CLIENTE = "0350" Or     ;Constr¢i Gomes
        SYS_CODIGO_CLIENTE = "0352" Or     ;Decorart
        SYS_CODIGO_CLIENTE = "0357" Or     ;Imp‚rio Tecidos
        SYS_CODIGO_CLIENTE = "0359" Or     ;Tecidos Total
        SYS_CODIGO_CLIENTE = "0361" Or     ;Igaratinga Tecidos
        SYS_CODIGO_CLIENTE = "0368" Or     ;Casa Bangu
        SYS_CODIGO_CLIENTE = "0370" Or     ;Charmy Tecidos
        SYS_CODIGO_CLIENTE = "0371" Or     ;Geec
        SYS_CODIGO_CLIENTE = "0372" Or     ;Bela Vista Tecidos
        SYS_CODIGO_CLIENTE = "0373" Or     ;floren‡a Tecidos
        SYS_CODIGO_CLIENTE = "0374" Or     ;Pitangui Tecidos
        SYS_CODIGO_CLIENTE = "0376" Or     ;Atual Textil
        SYS_CODIGO_CLIENTE = "0378" Or     ;Araujo Textil   
        SYS_CODIGO_CLIENTE = "0380" Or     ;Disparada Tecidos
        SYS_CODIGO_CLIENTE = "0382" Or     ;Tecidos Janon
        SYS_CODIGO_CLIENTE = "0388" Or     ;Manutex
        SYS_CODIGO_CLIENTE = "0389" Or     ;Sacaria Igaratinga
        SYS_CODIGO_CLIENTE = "0390" Or     ;Polar
        SYS_CODIGO_CLIENTE = "0392" Or     ;FB Tecidos
        SYS_CODIGO_CLIENTE = "0396" Or     ;Real Atacadista
        SYS_CODIGO_CLIENTE = "0397" Or     ;Tecipam
        SYS_CODIGO_CLIENTE = "0404" Or     ;Almeida Tecidos
        SYS_CODIGO_CLIENTE = "0410" Or     ;Esta‡Æo dos Tecidos
        SYS_CODIGO_CLIENTE = "0413" Or     ;Pierre
        SYS_CODIGO_CLIENTE = "0416" Or     ;Flex Engenharia
        SYS_CODIGO_CLIENTE = "0418" Or     ;Atlantica
        SYS_CODIGO_CLIENTE = "0389" Or     ;Sacaria Igaratinga
        SYS_CODIGO_CLIENTE = "0420" Or     ;Martins e Rios
        SYS_CODIGO_CLIENTE = "0425" Or     ;Teodoro
        SYS_CODIGO_CLIENTE = "0338" Or     ;Gonfer/Leonardo
        SYS_CODIGO_CLIENTE = "0427" Or     ;Gonfer/Leonardo
        SYS_CODIGO_CLIENTE = "0444" Or     ;Leotex
        SYS_CODIGO_CLIENTE = "0429") :     ;MV Tecidos
        PARAM_BLOQUEIA=False
  
  Case PARAM_ROTINA="P_DEST"     And                           
        (SYS_CODIGO_CLIENTE = ""    Or
         SYS_CODIGO_CLIENTE = "0227"):     ;Siri
        
        PARAM_BLOQUEIA=False
        MSG = "Op‡„o n„o liberada !//Verificar com o Suporte Vise !"
  
  Case PARAM_ROTINA="P_EXPEDOF" And 
       ( SYS_CODIGO_CLIENTE = "0319" or    ;GM Comercial
         SYS_CODIGO_CLIENTE = "0377")  :   ;Pralum
        PARAM_BLOQUEIA=False
        MSG = "Op‡„o n„o liberada !//Verificar com o Suporte Vise !"
  
  Case PARAM_ROTINA="TABELA PRECO CONFECCAO" And
       (SYS_CODIGO_CLIENTE = ""     Or
        SYS_CODIGO_CLIENTE = "0227") :     ;Siri
        
        PARAM_BLOQUEIA=False      
EndSwitch  

If PARAM_BLOQUEIA
   Then Mensagem(MSG)
EndIf  

Return PARAM_BLOQUEIA

EndProc ; (Bloqueia_Rotina)

;******************************************************************************
;* Monta Procedures                                                           *
;******************************************************************************
WriteLib "\\Sistemas\\Cadastro\\Bib_Bloq" Bloqueia_Rotina
