DT PE WMA320DT- Executado após a atualização da tabela de itens de conferência DCY

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada permite executar uma nova rotina 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 item.

03. LOCALIZAÇÃO

Localizado nos processos de atualização da tabela DCY 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

------

//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 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:nRecno%
           AND DCY.%NotDel%
    EndSql
    If (cAliasQry)->(!EoF())
        //Se o novo campo DTCONF campo ainda não foi gravado para o registro e ja foi informada 
        //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

------