Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Logística WMS

Linha de Produto:

Linha Protheus

Segmento:

Logística

Módulo:SIGAWMS - Gestão de Armazenagem
Função:

WMSA320 - Conferência de Recebimento

País:Todos Países
Ticket:14545141
Requisito/Story/Issue (informe o requisito relacionado) :DLOGWMSMSP-14219


02. DESCRIÇÃO

Este Ponto de Entrada é acionado tanto na finalização quanto na reabertura da conferência do recebimento, já que são processos correlacionados:

  • Na finalização da conferência do recebimento, possibilita que ordem de serviço e movimentos de excesso ou movimentos de falta não sejam gerados.
  • Na reabertura da conferência de recebimento, possibilita que não haja tentativa de estorno de serviço e movimentos de excesso ou falta, já que estes não foram gerados na finalização. não foram gerados na finalização.

03. LOCALIZAÇÃO

Localizado nos processos na finalização e na reabertura da conferência de recebimento.

04. PARÂMETROS

NomeTipoDescrição

cEmbarque

CaractereCódigo do embarque
cTipoMovCaractere

Tipo do movimento:

  • F - Falta
  • E - Excesso
cTpConfCaractere

Tipo de documento que será conferido:

  • 1 - Pré-nota
  • 2 - Nota já classificada

05. RETORNO

Retorno lógico.

06. VERSÕES

Protheus 12.1.23 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE 'TOTVS.CH'
/*/{Protheus.doc} W320DMOV
/*/


User Function W320DMOV() //{cEmbarque,cTipoMov} cTipoMov -> F=Falta, E=Excesso, cTpConf (1=Pré-Nota, 2=Nota já classificada)
    Local aArea     := { GetArea(), DCW->(GetArea()) }
    Local cEmbarque := PARAMIXB[1]
    Local cTipoMov  := PARAMIXB[2]
    Local lRet      := Nil
   
    If  cTipoMov $ "E|F"
        DCW->(DBSetOrder(1))//DCW_FILIAL+DCW_EMBARQ
        DCW->(DBSeek(xFilial("DCW")+cEmbarque))
        cTpConf := DCW->DCW_TPCONF
    Else
        cTpConf := cTipoMov
    Endif
   
    //Conferência gerada com base no documento de entrada já classificado.
    If cTpConf == "2"
        lRet := .F. //Retorna falto para não gerar as movimentações de ajustes das divergências.
    Endif
   
    AEval(aArea, {|area| RestArea(area)})


Return(lRet)

------