Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
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) : | - |
Este Ponto de Entrada permite validar se o veículo é valido.
Sintaxe
OM200VEI → Validação de Veículo ( [ cVeiculo ], [ ] ) → lRet(logico)
Localizado na associação do veículo, na rotina OMSA200 (Montagem de Carga).
Nome | Tipo | Descrição |
---|---|---|
cVeiculo | Caractere | Código do veículo |
Nome | Tipo | Descrição |
---|---|---|
lRet(logico) | Lógico | Permite verificar se o veículo é valido. |
Todas as versões.
Não se aplica.
------
#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)
------
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } .aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { background: #FF9900; !important } .menu-item.active-tab { border-bottom: none !important; } </style> |