01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:SIGAWMS - Gestão de Armazenagem
Função:-
País:Todos Países
Ticket:-
Requisito/Story/Issue (informe o requisito relacionado) :-


02. DESCRIÇÃO

Este Ponto de Entrada permite gerar um novo volume após a gravação do item no volume.

03. LOCALIZAÇÃO

Localizado logo após a gravação do item no volume.

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

cProduto

Caractere

Produto para o qual se está montando os volumes

cVolumeCaractereCódigo do volume corrente
nQtdeNuméricoQuantidade do produto

05. RETORNO

NomeTipoDescrição

cVolume

Caractere

Código do novo volume

06. VERSÕES

Protheus 11.80.19 ou superiores.

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 WV080GVA()
Local cCarga := PARAMIXB[1]
Local cPedido := PARAMIXB[2]
Local cProduto := AllTrim(PARAMIXB[3])
Local cVolume := PARAMIXB[4]
Local nQtde := PARAMIXB[5]
Local cQuery := ""
Local cAliasQry := ""

If cProduto == "WMS01"
      cQuery := "SELECT MAX(DCU_CODVOL) CODVOL"
      cQuery += " FROM " + RetSqlName('DCU')
      cQuery += " WHERE DCU_FILIAL = '"+xFilial('DCU')+"'"
      cQuery += " AND DCU_CARGA = '"+cCarga+"'"
      cQuery += " AND DCU_PEDIDO = '"+cPedido+"'"
      cQuery += " AND D_E_L_E_T_ = ' '"
      cQuery := ChangeQuery(cQuery)
      cAliasQry := GetNextAlias()
      DbUseArea(.T.,'TOPCONN',TcGenQry(,,cQuery),cAliasQry,.F.,.T.)
      If !Empty((cAliasQry)→ CODVOL)
              // Permite avaliar a quantidade do produto para gerar um novo volume
             If nQtde > 10
                   // Remove os espaços em branco e incrementa o valor
                  cVolume := Soma1(AllTrim((cAliasQry)->CODVOL))
                  WmsMessage("Novo volume criado: " + cVolume)
            EndIf
      Else
           cVolume := "01"
     EndIf
EndIf

Return cVolume

------



<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>