Árvore de páginas

Versões comparadas

Chave

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

...

RetornoURET(qualquer)Variavel logica, sendo:
.T. Prossegue alteracao do Pedido de Venda
.F. Impede alteracao no pedido de venda
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:

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
Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas:Espanhol , Inglês
Pedido de Venda


Descrição:

Descrição:EXECUTA ANTES DE ALTERAR PEDIDO VENDA

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

Programa Fonte:
MATA410.PRW

Sintaxe:

M410ALOK - Alteração de pedido de venda ( < UPAR> ) --> URETlRet

Parâmetros

Retorno:
NomeTipoDescriçãoDefaultObrigatórioReferênciaUPARQualquerNenhumX
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