Ponto-de-Entrada: TM500BLQ - Bloqueia a alteração do serviço de transporte
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) , Português (Portugal) , Espanhol , Inglês |
Descrição:
Este Ponto de Entrada, localizado no TMSA500 (Manutenção Doctos.) tem por objetivo bloquear a alteração do serviço de transporte quando a filial de origem for diferente da filial destino.
Programa Fonte
TMSA500.PRW
Sintaxe
TM500BLQ - Bloqueia a alteração do serviço de transporte ( [ ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
lRet(logico)
- Retorno lógico para verificar se ira alterar ou nao o serviço.
Exemplos
#Include 'Protheus.ch'User Function TM500BLQ()Local lRet := .T.Local cCdrOri := DT6->DT6_CDRORILocal cCdrDes := DT6->DT6_CDRDESIf cCdrOri <> cCdrDes Alert("Não é permitido realizar a Manut. Transp. quando a Filial de Origem for diferente da Filial Destino.") lRet := .F.EndIfReturn( lRet )
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |