Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Usuário desconhecido (fernando.gabriel)

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Usuário desconhecido (fernando.gabriel)

Gravado em

Chave

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

...

Bloco de código
languageactionscript3
linenumberstrue
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"

User Function M461ADT()

Local cPedido  := PARAMIXB[1] //Número do Pedido de Venda 
Local cItem    := PARAMIXB[2] //Item do Pedido de Venda
Local lRet     := Nil
    
iF cPedido == "MMMMMMTOTVS" .AND. cItem != "2" 
    lRet := .F.
    Alert("O Pedido de Venda não será Faturado")
Else 
    lRet := .T.
EndIf         
    
Return lRet

...