Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M410ALOK - Alteração de Pedido de Venda


Descrição:

Executado antes de iniciar a alteração, exclusão ou cópia de um Pedido de Venda.
 

Programa Fonte:
MATA410.PRW

Sintaxe:

M410ALOK() --> lRet


Retorno:
lRet - Variável lógica, sendo:
  • .T. - Prossegue a alteração, exclusão ou cópia do Pedido de Venda
    .F. - Impede a alteração, exclusão ou cópia do Pedido de Venda

Exemplo:

#Include "PROTHEUS.CH"

User Function M410ALOK()

Local lRet := .T.

If !Empty(SC5->C5_NOTA)
    If ALTERA   //Alteração
        MsgAlert("ALTERAÇÂO - Pedido já faturado.","ATENÇÃO")
    ElseIf !INCLUI .And. !ALTERA    //Exclusão
        MsgAlert("EXCLUSÃO - Pedido já faturado.","ATENÇÃO")
    ElseIf INCLUI .And. IsInCallStack("A410COPIA")  //Cópia
        MsgAlert("CÓPIA - Pedido já faturado.","ATENÇÃO")
    EndIf
    lRet := .F.
EndIf

Return lRet