Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

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

Localização:

Atualizações \ Mov Oficina \ Fechamento Os Mod 2 (OFIXA100)

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

Programa Fonte:

OFIXX100.PRW

Função:

OX100SNEG()

Retorno:

N/A

Exemplo:

#Include 'Protheus.ch'

User Function OX100DGN()

MsgAlert("Ponto de Entrada OX100DGN executado com sucesso!","Atenção")

Return()