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 efetuar a customização na geração dos códigos de volume de forma automática.

03. LOCALIZAÇÃO

Localizado antes da solicitação do código do volume a ser montado pelo Operador.

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

cVolume

Caractere

Código do 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 WV080CDV()
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 DCU_CARGA = '"+cCarga+"'"
cQuery += " AND DCU_PEDIDO = '"+cPedido+"'"
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))
        WmsMessage("Novo volume criado: " + cVolume)
Else
        cVolume := "01"
EndIf

RestArea(aAreaAnt)

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>