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:

TOTVS WMS - Linha Protheus - WMS Protheus (SIGAWMS)

Função:WMSV030.prw
País:Brasil
Ticket:24259820
Requisito/Story/Issue (informe o requisito relacionado) :DLOGWMSMSP-17609


02. DESCRIÇÃO

Inclusão de novo ponto de entrada (WV030CDV) para informar um código de volume de forma automática no processo de montagem de volume durante a separação de pedido.

03. DEMAIS INFORMAÇÕES

Exemplo de uso: 


Exemplo Ponto de Entrada
#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




04. ASSUNTOS RELACIONADOS