Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | TOTVS WMS - Linha Protheus - WMS Protheus (SIGAWMS) |
Função: | Execução de serviços - WMSA150/DLGA150 |
País: | Todos Países |
Ticket: | |
Requisito/Story/Issue (informe o requisito relacionado) : | DLOGWMSMSP-15419 |
Ponto de entrada acionado após a marcação do registro no browse de serviços a executar. Programas que contém o ponto de entrada: WMSA150 e DLGA150.
Após a marcação do registro no browse
Nome | Tipo | Descrição | Obrigatório |
---|---|---|---|
cMarca | Character | Marca do registro no browse | Sim |
Nome | Tipo | Descrição | Obrigatório |
---|---|---|---|
lRet | Lógico | Define se o registro poderá ser marcado | Sim |
Protheus 12
------
#INCLUDE "TOTVS.CH"
User Function DLA150MK()
Local cMarca := PARAMIXB
Local lRet := .T.
If xFilial('DCF') == "01" .And. DCF->DCF_SERVIC = "002"
//Alguma coisa aqui
MsgInfo("Mensagem", "Título")
//Posicionando em outro registro para marcar (fazer GetArea e RestArea)
// Reclock('DCF',.F.)
// DCF->DCF_OK := cMarca
// DCF->DCF_STRADI := ' '
lRet := .F.
EndIf
Return lRet
------
<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> |