Histórico da Página

01. DADOS GERAIS

Produto:

Solucoes_totvs

Solucao	TOTVS Logística WMS

Solucoes_totvs_cross

SolucaoCross

Solucoes_totvs_parceiros

SolucaoParceiros

Solucoes_totvs_parceirosexptotvs

SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Logística

Módulo:

SIGAWMS - Gestão de Armazenagem

Função:

WMSV030 - Separação Via Coletor

País:

Todos Países

Ticket:

-

Requisito/Story/Issue (informe o requisito relacionado) :

-

02. DESCRIÇÃO

Este Ponto de Entrada permite a execução de ações complementares antes do encerramento da separação via coletor.

Exemplo

Nas separações de origem SD4 (Ordem de Produção) é necessário montar kits para o produto separado.

03. LOCALIZAÇÃO

Localizado na rotina WMSV030 (Separação Via Coletor), antes de gravar a quantidade movimentada na tabela D12, ou seja, neste ponto o armazém, o endereço, o produto, o lote e a quantidade já foram informados.

04. PARÂMETROS

Nome	Tipo	Descrição
nQtde	Numérico	Quantidade da movimentação
cOrigem	Caractere	Origem da movimentação
cProduto	Caractere	Produto da movimentação
cLoteCtl	Caractere	Lote da movimentação
cNumLote	Caractere	Sublote da movimentação
cUnitiz	Caractere	Unitizador da movimentação
cRecHum	Caractere	Recurso Humano logado no coletor
cIdDCF	Caractere	Id da ordem de serviço
lUltiAti	Lógico	Indica se é a última atividade da tarefa

05. RETORNO

Não se aplica.

06. VERSÕES

12.1.23 e superiores

07. OBSERVAÇÃO

Todos 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 'APVT100.CH'

User Function WMSV030E()
Local nQtde := PARAMIXB[1] //Quantidade da movimentação
Local cOrigem := PARAMIXB[2] //Origem da movimentação
Local cProduto := PARAMIXB[3] //Produto
Local cLoteCtl := PARAMIXB[4] //Lote
Local cNumLote := PARAMIXB[5] //Sub-lote
Local cUnitiz := PARAMIXB[6] //Unitizador
Local cRecHum := PARAMIXB[7] //Recurso Humano
Local cIdDCF := PARAMIXB[8] //Id da Ordem de Serviço
Local lUltiAti := PARAMIXB[9] //Indica se é a última atividade da tarefa
Local cKit := " "

If cOrigem == "SD4"
    WMSVTCabec("Informe o codigo do kit",.F.,.F.,.T.) 
    @ 01, 00 VTSay PadR("KIT", VTMaxCol())
    @ 02, 00 VTGet cKit Pict '@!'
    VTRead
    If (VTLastKey()==27)
        return
    EndIf
    If lUltiAti
        //Grava tabela específica
        Reclock("XAA",.T.)
        XAA->XAA_QUANTI := nQtde
        XAA->XAA_PRODUT := cProduto
        XAA->XAA_LOTECT := cLoteCtl
        XAA->XAA_NUMLOT := cNumLote
        XAA->XAA_UNITIZ := cUnitiz
        XAA->XAA_RECHUM := cRecHum
        XAA->XAA_IDDCF := cIdDCF
        XAA->XAA_KIT := cKit
        XAA->(MsUnlock())
    EndIf
EndIf

Return

Templatedocumentos

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>

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave