Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Estoque e Custos (SIGAEST)

Função:ACDV151 - Transferencia de armazem
País:Todos


02. DESCRIÇÃO

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.

03. DEMAIS INFORMAÇÕES

PARÂMETROS

Nome

Tipo

Descrição

nOperNumerico

Armazém a validar 1 = Origem ou 2 = Destino

cArmzCaracter

Código do Armazém


RETORNO

Nome

Tipo

Descrição

lRetLogico

.T. para condinuar a transferencia


EXEMPLO DE UTILIZAÇÃO ADVPL

AV151VLD(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


04. ASSUNTOS RELACIONADOS

  • Não se aplica