SIGAWMS - Gestão de Armazenagem
Todos Países
DLOGWMSMSP-17609
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| 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 |
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.
Localizado na rotina WMSV030 na função de montagem de volume durante a separação do pedido.
| Nome | Tipo | Obrigatório |
|---|---|---|
ASKUS | Array | Sim |
| Nome | Tipo | Descrição |
|---|---|---|
| cVolume | Caractere | Código do volume gerado via customização |
Protheus 12.
Não se aplica.
----------
#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
-----------