Ponto-de-Entrada: ACD150VE - Complementa Validação do Endereço
| 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:
LOCALIZAÇÃO : Function ValidEnd()
DESCRIÇÃO : Ponto de entrada utilizado para complementar a validação do ENDEREÇO (ORIGEM E DESTINO) na rotina de Transferência.
Eventos
Programa Fonte
ACDV150.PRW
Sintaxe
ACD150VE - Complementa Validação do Endereço ( < PARAMIXB[1]> , [ PARAMIXB[2] ], [ PARAMIXB[3] ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| PARAMIXB[1] | Caracter | Código do Armazém. | X | ||||||||||||||
| PARAMIXB[2] | Caracter | Código do Endereço. | |||||||||||||||
| PARAMIXB[3] | Numérico | Se o conteudo for igual a 1 - Validação do endereço origem. ; 2 - Validação do endereço destino. |
Retorno
-
lRet(logico)
- Tipo lógico, obrigatório, sendo valor verdadeiro (.t.) para validar o produto
Observações
Exemplos
User Function ACD150VE( )Local lRet := .T.Local cArm := PARAMIXB[1]Local cEnd := PARAMIXB[2]Local nTipo := PARAMIXB[3]Local aAreaAnt := GetArea( )If nTipo == 1 // --- Valida endereco origem // ...ElseIf nTipo == 2 // --- Valida endereco destino // ...EndIfRestArea(aAreaAnt)Return lRet