Linha Microsiga Protheus

Árvore de páginas

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