Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Gestão de Contratos (SIGAGCT)

Função:

CNTA300 - Contratos

País:Brasil
Ticket:Não há
Issue :DTEXPRO-2646


02. SITUAÇÃO/REQUISITO

O sistema não permitia ignorar a validação relacionada ao artigo 65 em contratos oriundos de editais.

03. SOLUÇÃO

Disponibilizado o ponto de entrada A300VLART, que permite ignorar as validações relacionados ao artigo em questão.


04. DEMAIS INFORMAÇÕES

Exemplo
#INCLUDE "Protheus.ch"  

/*/{Protheus.doc} A300VLART
    Se o PE retornar .F. a validação do padrão pergunta sobre o artigo. 
    Se retornar .T. será inibida a validação do padrão no caso do artigo 65 para aditivo nas leis 1 e 3
@type function
@version  
@since 14/11/2023
@return Logical, Se .F. segue a validação padrão pergunta sobre o artigo. 
/*/
User Function A300VLART()
Local cTipo := PARAMIXB[1]
Local cLei  := PARAMIXB[2]
Local oModel:= FWModelActive()
Local lRet  := .T.
Local cTipoRev := oModel:GetValue("CN9MASTER","CN9_TIPREV")

If cTipo == 'ADITIVO' .And. cLei $ '1*3*5'
    If cTipoRev $ '001/004'
        lRet := .F.
    EndIf
EndIf
Return(lRet)
  

05. ASSUNTOS RELACIONADOS