Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Contabilidade Gerencial - SIGACTB
Função:Grupo de Rateio - CTBA276
País:Brasil
Ticket:Interno
Requisito/Story/Issue :DSERCTR1-29624


02. SITUAÇÃO/REQUISITO

Manipular a validação do percentual no cadastro do grupo de rateio de acordo com os parâmetros

03. SOLUÇÃO

Criado o ponto de entrada CTB276CW1, que permite validar o percentual de rateio caso o total seja diferente de 100%, para definir se o grupo de rateio será gravado bloqueado ou liberado, alterando a validação padrão, mesmo que o percentual seja diferente de 100%.

Observe que pra gravar o grupo liberado, deverá retornar .T.


IMPORTANTE!

A utilização do ponto de entrada é de total autoria de quem o utiliza e os efeitos resultantes dele são de responsabilidade do cliente.

04. DEMAIS INFORMAÇÕES


Retorno 

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Se .T., não bloqueia o grupo de rateio, permitindo digitar percentuais maior ou iguais(>=) à 100 em cada linha, e não valida o total de rateio para bloquear se diferente de 100 como no padrão.

Se .F. Mantém o padrão.

SIM


Parâmetros

Nome

Tipo

Descrição

Obrigatório

 cTpVld

Caractere

Tipo de Validação (L = Linha, T = Total)

SIM

cCw1_Tipo

Caractere

Tipo do Grupo de Rateio (1 = Origem, 2 = Destino)

SIM

cCw1_Entidade

Caractere

Entidade Contábil (1 = Conta Contábil, 2 = Centro de Custo, 3 = Item Contábil, 4 = Classe Valor, 5 = Combinado)

SIM

nTotRat

Número

Percentual total do rateio

SIM

nLinRat

Número

Percentual da Linha digitada (quando cTpVld = T, este parâmetro será NIL)

NÃO



Exemplo de Manipulação do PE 
// Grava o grupo de rateio liberado, quando o tipo for Origem e percentual total >= 100
#Include "Protheus.ch"

User Function CTB276CW1()

    Local aArea := GetArea()
    //Local cTpVld := PARAMIXB[1]
    Local cCw1_Tipo := PARAMIXB[2]
    //Local cCw1_Entidade := PARAMIXB[3]
    Local nTotRat := PARAMIXB[4]
    //Local nLinRat := PARAMIXB[5]
    Local lRet := (cCw1_Tipo == "1" .AND. nTotRat >= 100)

    RestArea(aArea)

Return lRet



05. ASSUNTOS RELACIONADOS

  • Não se aplica.