Ponto-de-Entrada: TMA050END - Validação de Endereçamento
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Este Ponto de Entrada, localizado no TMSA050 (Notas-Fiscais do Cliente), é executado na validação de endereçamento. Conforme exemplo abaixo o Armazem 01 está bloqueado, não poderemos endereçar nenhum produto para ele.
Eventos
Programa Fonte
TMSA050.PRW
Sintaxe
TMA050END - Validação de Endereçamento ( [ cArmazem ], < cEndereco> ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cArmazem | Array of Record | ||||||||||||||||
| cEndereco | Array of Record | X |
Retorno
-
lRet(logico)
- Se o Retorno for (.F.) bloqueia determinado Armazém/Endereço.
Observações
Exemplos
User Function TMA050END()Local lRet := .T.Local cArmazem := PARAMIXB[1]Local cEndereco := PARAMIXB[2]If cArmazem == '01' lRet := .F. MsgAlert('Armazem bloqueado!!!')Endif Return lRet