Histórico da Página

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 cFilialcFilOri         := 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