Árvore de páginas

Versões comparadas

Chave

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

...

M461ADT({cPedido,cItem}) --> lRet

04. PARÂMETROS

Nome Tipo Descrição
PARAMIXB[1]Caractere Número do Pedido de Venda 
PARAMIXB[2]CaractereItem do Pedido de Venda


05. RETORNO

Nome Tipo Descrição Obrigatório 
lRetLógico 

.T. - Item do pedido será faturado

.F. - Não será faturado

X

06. EXEMPLO

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 == "MMMMMM" .AND. cItem != "2" 
    lRet := .F.
    Alert("O Pedido de Venda não será Faturado")
Else 
    lRet := .T.
EndIf         
    
Return lRet 

...