Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

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

Gravado em

comparado com

Nova versão 3

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

aParam[1]Array

Número do Pedido 

aParam[2]ArrayCliente
aParam[3]ArrayLoja

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  SUA->UA_CLIENTEcCliente == "XXXXXXFAT001"
		Alert("Pedido " + SUA->UA_NUMcNum + "do Cliente " + SUA->UA_CLIENTEcCliente + "Loja " + SUA->UA_LOJAcLoja)
	EndIf
EndIf

Return


Templatedocumentos