Histórico da Página
01. DADOS GERAIS
Produto: |
| ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Linha de Produto: |
| ||||||||||||||||
Segmento: |
| ||||||||||||||||
Módulo: | SIGAWMS - Gestão de Armazenagem | ||||||||||||||||
Função: | WMSA320 - Conferência de Recebimento WMSV090 - Conferência de Recebimento - Coletor de dadosDados | ||||||||||||||||
País: | Todos Países | ||||||||||||||||
Ticket: | -11531670 | ||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado) : | DLOGWMSMSP-12231 |
02. DESCRIÇÃO
Este Ponto de Entrada permite executar uma nova rotina para que quando for incluso/atualizado a tabela DCY possa ser gravado na inclusão/atualização de cada um dos itens da conferência de recebimento (DCY), possibilitando assim a gravação de informações adicionais referentes ao registro do item de conferência de recebimento.
03. LOCALIZAÇÃO
Localizado nos processos de atualização da tabela DCY da rotina de Conferência das rotinas de Conferência de Recebimento (WMSA320 e WMSV090)
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
cRecnonRecno | Inteiro | Número do RECNO do registro da tabela DCY que está sendo processado/atualizado. |
05. RETORNO
Não se aplica
06. VERSÕES
Protheus 12.1.23 ou superiores.
07. OBSERVAÇÃO
Não se aplica.
08. EXEMPLO
------
//No exemplo abaixo somente será atualizado o novo campo DCY_DTCONF, quando este estiver em branco e existir uma quantidade já conferida para o registro.
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"
User Function WMA320DT()
Local cRecno nRecno := paramixb[1]
cAliasQry := GetNextAlias()
BeginSql Alias cAliasQry
SELECT DCY.DCY_DTCONF,
DCY.DCY_QTCONF
FROM %Table:DCY% DCY
WHERE DCY.DCY_FILIAL = %xFilial:DCY%
AND DCY.R_E_C_N_O_ = %Exp:cRecnonRecno%
AND DCY.%NotDel%
EndSql
If (cAliasQry)->(!EoF())
//Se o novo campo DTCONF campo ainda não foi gravado para o registro e ja foi informado Se o novo campo DTCONF campo ainda não foi gravado para o registro e ja foi informada
//quantidado conferida quantidade conferida , atualizar o campo na tabela DCY.
If Empty((cAliasQry)->DCY_DTCONF) .AND. (cAliasQry)->DCY_QTCONF > 0
DCY->(DbGoTo(cRecno))
RecLock('DCY',.F.)
DCY->DCY_DTCONF := dDataBase
DCY->(MsUnlock())
EndIF
EndIf
(cAliasQry)->(dbCloseArea())
Return
------
Templatedocumentos |
---|
...