TMBLOQUE - Altera validações dos Bloqueios da Viagem

Programa Fonte
TMSXFUNC.PRW

Sintaxe 
TMBLOQUE - Altera validações dos Bloqueios da Viagem ( [ cFilOri ], [ cViagem ], [ aBloqueio ], [ ] ) --> aBloqRet  

Exemplo

#Include 'Protheus.ch'  
//-- Exemplo para não bloquear a viagem quando para o Ano de fabricação do veículo.

User Function TMBLOQUE()              

Local cFilOri    := PARAMIXB[1]
Local cViagem    := PARAMIXB[2]
Local aBloqueio  := PARAMIXB[3]
Local nTam       := Len(aBloqueio)
Local nI         := aScan(aBloqueio,{|x| "50"$x[1]})  // Peso Carregado

If nI > 0    
	aDel(aBloqueio,nI)    
	aSize(aBloqueio,nTam-1)
EndIf

Return aBloqueio