OX100DGN Atualização das Informações da Tabela de Negociação VZ1

Descrição:

Ponto de entrada depois da gravação da Negociação, dentro da transação, na rotina Fechamento de OS Modelo 2.

Eventos:

// Exclui registros nao alterados da VZ1

For nCntFor := 1 to Len(aVZ1RecAtu)

    If (nPos := aScan( aVZ1RecAlt , aVZ1RecAtu[nCntFor]) ) == 0

        dbSelectArea("VZ1")

        VZ1->(dbGoTo(aVZ1RecAtu[nCntFor]))

        RecLock("VZ1",.F.,.T.)

        VZ1->(dbDelete())

        VZ1->(MsUnlock())

    EndIf

Next nCntFor

If lOX100DGN

    ExecBlock("OX100DGN",.F.,.F.)

Endif

End Transaction

Função:

OX100SNEG()