01. DADOS GERAIS
| Produto: | | Solucoes_totvs |
|---|
| Solucao | TOTVS Logística WMS |
|---|
|
| Solucoes_totvs_parceirosexptotvs |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | SIGAWMS - Gestão de Armazenagem |
|---|
| Função: | WMSA560 - Bloqueio de Saldo WMS |
|---|
| País: | Todos Países |
|---|
| Ticket: | - |
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | - |
|---|
02. DESCRIÇÃO
Permite a inclusão de mais cláusulas de filtro no comando SQL, que faz a busca de um registro de movimentação pendente existente para aglutinar (juntar) com a nova quantidade que está sendo solicitada para movimentação, ao tentar criar um novo registro de movimentação.
Caso seja encontrado um registro, apenas a quantidade solicitada é somada ao registro já existenteEste Ponto de Entrada permite incluir um filtro personalizado na tela inicial e ao pressionar a tecla F12 na rotina WMSA560 (Bloqueio de Saldo WMS).
03. LOCALIZAÇÃO
Localizado antes da abertura da tela, na função principal WMSA560Este Ponto de Entrada é chamado somente quando a atividade a ser gerada permite aglutinação.
04. PARÂMETROS
...
| Nome | Tipo | Descrição |
|---|
| nTipoAglut | Numérico | Forma de aglutinação conforme cadastro em Tarefas x Atividades. |
| cOrigem | Caractere | Origem da solicitação de movimentação. |
| cCarga | Caractere | Número da carga associada a solicitação de movimentação. |
05. RETORNO
...
| Nome | Tipo | Descrição |
|---|
| cQueryPE | Caractere | Instrução SQL completar a ser adicionada ao comando de busca de uma movimentação para aglutinação. |
06. VERSÕES
12.1.27_e_superiores.
07. OBSERVAÇÃO
Não se aplicaTodos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.
08. EXEMPLO
| Bloco de código |
|---|
| language | cpp |
|---|
| title | Exemplo |
|---|
| linenumbers | true |
|---|
| collapse | true |
|---|
|
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"
User Function DL560FIL()
Local cRet := ""
cRet := " EXISTS (SELECT 1 FROM " + RetSQLName("SA1") + " WHERE A1_COD = '000001')"
Return cRetUser Function WMSAGLU()
Local nTipoAglu := PARAMIXB[1]
Local cOrigem := PARAMIXB[2]
Local cCarga := PARAMIXB[3]
Local cCampo := ''
Local cQuery := ''
If nTipoAglu == 4 //-- Aglutina por Carga
If cOrigem == 'SC9' //-- Movimentos de Separação
//-- Busca informação específica com base na carga
cCampo := U_FUNCUST(cCarga)
//-- Utiliza informação específica para complementar a Query
cQuery := " AND SDB.DB_CMPCUST = '"+cCampo+"'"
EndIf
EndIf
Return cQuery |
| HTML |
|---|
<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>
|
