Histórico da Página

...

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), permitindo 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 de Recebimento (WMSA320 e WMSV090)

04. PARÂMETROS

...

//Neste Exemplo abaixo, somente será atualizado o novo campo DCY_DTCONF quando o mesmo este estiver em branco e existir uma quantidade já conferida para o registro. 

...

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

------

...