Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
M410ALOK - Alteração de pedido Pedido de vendaVenda
M410ALOK - Alteração de pedido Pedido de vendaVenda

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, nas opções de Alteração, Exclusão e Cópia.
 

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:

Bloco de código
languagejs
linenumberstrue
#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