Linha Microsiga Protheus

Á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:WMSV030.prw
País:

Todos Países

Ticket:24259820
Requisito/Story/Issue (informe o requisito relacionado) :

DLOGWMSMSP-17609


02. DESCRIÇÃO

Ponto de entrada que permite informar um código de volume de forma automática no processo de montagem de volume durante a separação de pedido.

03. LOCALIZAÇÃO

Localizado na rotina WMSV030 na função de montagem de volume durante a separação do pedido.

04. PARÂMETROS

NomeTipoDescrição

cCarga

Caractere

Carga para a qual se está montando os volumes

cPedido

Caractere

Pedido para o qual se está montando os volumes

05. RETORNO

NomeTipoDescrição
cVolumeCaractereCódigo do volume

06. VERSÕES

Protheus 12.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização

08. EXEMPLO

----------

#INCLUDE "PROTHEUS.CH"

User Function WV030CDV()
Local aAreaAnt := GetArea()
Local cCarga := PARAMIXB[1]
Local cPedido := PARAMIXB[2]
Local cVolume := ""
Local cQuery := ""
Local cAliasQry := GetNextAlias()

cQuery := "SELECT MAX(DCU_CODVOL) CODVOL"
cQuery += " FROM " + RetSqlName('DCU')
cQuery += " WHERE DCU_FILIAL = '"+xFilial('DCU')+"'"
cQuery += " AND D_E_L_E_T_ = ' '"
cQuery := ChangeQuery(cQuery)
DbUseArea(.T.,'TOPCONN',TcGenQry(,,cQuery),cAliasQry,.F.,.T.)

If !Empty((cAliasQry)->CODVOL)
    // Remove os espaços em branco e incrementa o valor
    cVolume := Soma1(AllTrim((cAliasQry)->CODVOL))
EndIf

RestArea(aAreaAnt)

Return cVolume


-----------

09. ANEXO

  • Não se aplica