CONTEÚDO
- Dados Gerais
- Descrição
- Sintaxe
- Parâmetros
- Retorno
- 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 |
---|---|---|
lRet | Lógico | Se bloqueia ou não o valor do preço unitário digitado pelo operador, sendo: |
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas