| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
Este ponto de entrada é utilizado para alterar as validações dos bloqueios da viagem, inclusive permitindo desativar os bloqueios.
Parâmetros:
| Nome | Tipo | Descrição | Referência | |||
| cFilOri | Caractere | Filial de Origem da Viagem | ||||
| cViagem | Caractere | Número da Viagem | ||||
| aBloqueio | Vetor com registros | Bloqueios gerados na viagem | Informações do vetor: Cod. Bloqueio, Cliente, Loja, Produto, Limite Máximo, Carregado, Disponível, Veiculo, |
Retorno
| Nome | Tipo | Descrição | Referência | |||
| aBloqueio | Vetor com registros | Bloqueios gerados na viagem | Informações do vetor: Cod. Bloqueio, Cliente, Loja, Produto, Limite Máximo, Carregado, Disponível, Veiculo, |
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