Linha Microsiga Protheus

Árvore de páginas

CONTEÚDO

  1. Dados Gerais
  2. Descrição
  3. Sintaxe
  4. Parâmetros
  5. Retorno
  6. Exemplo

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

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

O ponto de entrada TK27300C é 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

TK27300C() --> lRet

04. PARÂMETROS

Nenhum.

05. RETORNO

Nome

Tipo

Descrição

lRetLógico

Se bloqueia ou não o valor do preço unitário digitado pelo operador, sendo:
.T. - Não bloqueia
.F. - Bloqueia

06. EXEMPLO

#Include 'Protheus.ch'
#Include 'Totvs.ch'

User Function TK27300C()

Local lRet     := .T.
Local nLinha   := 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