Histórico da Página

01. DADOS GERAIS

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

05. RETORNO

        Não se aplica

06. VERSÕES

Protheus 12.1.23 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

//Neste Exemplo No exemplo abaixo , somente será atualizado o novo campo  campo DCY_DTCONF, quando o mesmo 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

------

...