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.

...

TMK150DEL() -->NILL

04. PARÂMETROS

Nome

Tipo

Descrição

Obrigatório 
aParam[1]Array

Número do Pedido 

X
aParam[2]ArrayCliente do Pedido X
aParam[3]ArrayLoja do Pedido X

05. RETORNO

NILL

06. EXEMPLO

Bloco de código
languagecpp
#Include 'Protheus.ch'
#Include 'Totvs.ch'

User Function TMK150DEL()

	Local aParam   := PARAMIXB
	Local cNum     := ""
	Local cCliente := ""
	Local cLoja    := ""

	If Len(aParam) > 0

		cNum	 :=  aParam[1] //numero de Pedido
		cCliente :=  aParam[2] //cliente
		cLoja    :=  aParam[3] //loja 

	Endif

	If  cCliente == "FAT001XXXXX"
		Alert("Pedido " + cNum + "do Cliente " + cCliente + "Loja " + cLoja)
	EndIf


Return

...