Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | SIGAWMS - Gestão de Armazenagem |
Função: | WMSA320 - Conferência de Recebimento |
País: | Todos Países |
Ticket: | - |
Requisito/Story/Issue (informe o requisito relacionado) : | - |
Este Ponto de Entrada permite executar a nova rotina na finalização da conferência de recebimento.
Localizado ao final da rotina de finalização da rotina WMSA320 (Conferência de Recebimento).
Nome | Tipo | Descrição |
---|---|---|
cEmbarque | Caractere | Número do recebimento gerado na rotina de Conferência (WMS320). |
Nome | Tipo | Descrição |
---|---|---|
lRet | Logico | Deverá retornar uma variável lógica .T. ou .F., podendo ou não concluir a finalização da conferência de recebimento. |
Protheus 12.1.23 ou superiores.
Não se aplica.
------
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"
User Function W320DFCO()
Local cEmbarque := paramixb[1]
Local cAliasQry := ""
Local lRet := .T.
cAliasQry := GetNextAlias()
BeginSql Alias cAliasQry
SELECT DCY_QTORIG, DCY_QTCONF FROM %Table:DCY% DCY
WHERE DCY.DCY_FILIAL = %xFilial:DCY% AND DCY.DCY_EMBARQ = %Exp:cEmbarque%
AND DCY.%NotDel%
EndSql
If (cAliasQry)→ (!Eof())
IF (cAliasQry)→ DCY_QTORIG <> (cAliasQry)→ DCY_QTCONF
lRet := .F. END IF (cAliasQry)→ (dbSkip())
EndIf
(cAliasQry)→(dbCloseArea())
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> |