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 Atual

changes.mady.by.user William Pianheri Batista Silva

Gravado em

Chave

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

...

Este ponto de entrada pertence à rotina de Exclusão de Pedido e está localizado na função TK150Exclusao(). É executado na exclusão de pedido no modulo do via módulo Call Center.

03. SINTAXE

TMK150DEL() -->NILL

04. PARÂMETROS

Nome

Tipo

Descrição

aParam[1]Array

Número do Pedido 

aParam[2]ArrayCliente

ParamIXBVetor

Vetor com os dados do Atendimento, sendo:
[ 1 ]  - cAtend - Código do Atendimento - Tipo: Caracter

[ 2 ]  - cCliente - Código do Cliente - Tipo: Caracter

[ 3 ]  - cLoja - Loja do Cliente - Tipo: Caracter

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 cAtend     := ""
	Local cCliente := ""
	Local cLoja    := ""

	If Len(aParam) > 0

		cNumcAtend	 :=  aParam[1] //numero de PedidoCódigo do Atendimento - Tipo: Caracter
		cCliente :=  aParam[2] //clienteCódigo do Cliente - Tipo: Caracter
		cLoja    :=  aParam[3] //loja Loja do Cliente - Tipo: Caracter

	Endif

	If  cCliente == "FAT001"
		Alert("Pedido Atendimento" + cNumcAtend  + "do Cliente " + cCliente + "Loja " + cLoja)
	EndIf


Return

...