Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

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

...

Produto:

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:SIGATMK - CALL CENTER
Função:

TMKA273 - Atendimento do Televendas

Versões:Microsiga Protheus 12
Compatível Países:Todos
Idiomas:Todos

02. DESCRIÇÃO

Este O ponto de entrada pertence à rotina de Exclusão de Pedido e está localizado na função TK150Exclusao(). É executado na exclusão de pedido via módulo Call CenterTK27300C é executado no momento da digitação do preço unitário (UB_VRUNIT) do item no atendimento do Televendas, e é utilizado para validar o preço unitário antes da atualização dos valores do rodapé do atendimento.

03. SINTAXE

TMK150DELTK27300C() -->NILL> lRet

04. PARÂMETROS

Nenhum.

05. RETORNO

Nome

Tipo

Descrição

ParamIXB
lRet
Vetor
Lógico

Se bloqueia ou não o valor do preço unitário digitado pelo operador

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

05. RETORNO

NILL

.T. - Não bloqueia
.F. - Bloqueia

06. EXEMPLO

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

User Function TMK150DELTK27300C()

	Local lRet  aParam   := PARAMIXB.T.
	Local nLinha cAtend   := ""
	Local cCliente := ""
	Local cLoja    := ""

	If Len(aParam) > 0

		cAtend	 :=  aParam[1] //Código do Atendimento - Tipo: Caracter
		cCliente :=  aParam[2] //Código do Cliente - Tipo: Caracter
		cLoja    :=  aParam[3] //Loja do Cliente - Tipo: Caracter

	Endif

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


Return

N	//Linha da linha da grid de produtos
Local nPosProd := Ascan(aHeader, {|x|AllTrim(x[2]) == "UB_PRODUTO"})//Posição do campo de produto na grid
Local nPosQtd  := Ascan(aHeader, {|x|AllTrim(x[2]) == "UB_QUANT"})	//Posição do campo de quantidade na grid
Local nVrUnit  := M->UB_VRUNIT	//Valor do preço unitário que foi digitado pelo operador 

//Não permite que o operador digite um valor menor que R$10,00, se a quantidade do produto 02 for maior que 1.
If AllTrim(aCols[nLinha][nPosProd]) == "02" .And. aCols[nLinha][nPosQtd] > 1 .And. nVrUnit < 10
    lRet := .F.
EndIf

Return lRet


Templatedocumentos