| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | ACDV151 - Transferencia de armazem |
| País: | Todos |
LOCALIZAÇÃO: Function ACDV151 - Transferencia de armazem.
EM QUE PONTO: O Ponto de entrada é executado antes da geração de transferência entre armazéns, é utilizado para realizar validações no código de armazém de origem e no código de armazém de destino informados na transferência entre armazéns.
PARÂMETROS
Nome | Tipo | Descrição |
|---|---|---|
| nOper | Numerico | Armazém a validar 1 = Origem ou 2 = Destino |
| cArmz | Caracter | Código do Armazém |
RETORNO
Nome | Tipo | Descrição |
|---|---|---|
| lRet | Logico | .T. para condinuar a transferencia |
EXEMPLO DE UTILIZAÇÃO ADVPL
#INCLUDE "PROTHEUS.CH"
#INCLUDE "PRTOPDEF.CH"
User Function AV151VLD()
Local nOper := PARAMIXB[1] // 1 = Origem / 2 = Destino
Local cArmz := PARAMIXB[2] // Código do Armazém
Local lRet := .F.
// Validação do Usuário
If nOper == 2
If MsgYesNo("Confirma armazem? " + cArmz)
lRet := .T.
Endif
Else
If MsgYesNo("Confirma armazem? " + cArmz)
lRet := .T.
Endif
EndIf
Return lRet |