DT PE OM200VEI - Validação de veículo

01. DADOS GERAIS

Produto:	TOTVS OMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	SIGAOMS - Gestão de Distribuição
Função:	OMSA200 - Montagem de Carga
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite validar se o veículo é valido.

Sintaxe
OM200VEI → Validação de Veículo ( [ cVeiculo ], [ ] ) → lRet(logico)

03. LOCALIZAÇÃO

Localizado na associação do veículo, na rotina OMSA200 (Montagem de Carga).

04. PARÂMETROS

Nome	Tipo	Descrição
cVeiculo	Caractere	Código do veículo

05. RETORNO

Nome	Tipo	Descrição
lRet(logico)	Lógico	Permite verificar se o veículo é valido.

06. VERSÕES

Todas as versões.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#Include 'Protheus.ch'

User Function OM200VEI()
Local lRet := .T.
Local cVeiculo := PARAMIXB[1]DbSelectArea("DAK")DbSetOrder(1)DAK→(DbGoTop())

While !Eof()
If (DAK→ DAK_ACEFIN == "1"
.AND. DAK→ DAK_ACECAR == "1" .Or. DAK→ DAK_ACEFIN == "2" . AND. DAK→ DAK_ACECAR == "1");
.AND. cVeiculo == DAK→ DAK_CAMINH Alert("Este veiculo ja esta em uso.")
lRet := .F.
Exit
EndIf
DbSkip()
EndDo

Return(lRet)