Tempo aproximado para leitura: 00:03:00 min
Dúvida
Exemplo de utilização do Ponto de Entrada TK27300C - Validação do Preço Unitário dos itens do Televendas.
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGATMK - A partir da release 12.
Soluçã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.
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 "000001" for maior que 1.
If AllTrim(aCols[nLinha][nPosProd]) == "000001" .And. aCols[nLinha][nPosQtd] > 1 .And. nVrUnit < 10
lRet := .F.
EndIf
Return lRet
Saiba Mais
0 Comentários