CN120PLN- Permite capturar outro número de planilha customizada

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

Gestão de Contratos

Rotina:

Rotina	Nome Técnico
CNTA120	Medições do Contrato

Parâmetro(s):

Código do Contrato

Numero da Revisão

Ponto de Entrada:

CN120PLN

Uso:

Exclusivo para projeto CNI

Versão:

Protheus 12.1.23

Ponto de Entrada

Descrição:	Este Ponto de Entrada de uso exclusivo para o projeto CNI, tem como objetivo, permitir com que altere o número da planilha usado para validar da medição do contrato. Quando as tabelas CNA (Cabeçalho Planilhas Contratos) e CNB (Itens das Planilhas Contratos) são substituídas por outras (customizadas), se faz necessário informar o código da planilha do contrato da tabela customizada para que o processo de validação feita na função padrão CNTVldPlan() não bloqueie a realização da medição.
Eventos:	Na função da rotina CNTA120
Programa Fonte:	CNTA120.prw
Função:	CN120Compet()
Retorno:	Caractere cNewPlan : Novo código da planilha

Exemplo:

User Function CN120PLN()

Local cContra := PARAMIXB[1]

Local cRevisa := PARAMIXB[2]

Local cNewPlan := ""

Local cAliZNA := GetNextAlias()

Local aArea := GetArea()

BeginSql Alias cAliZNA

SELECT ZNA_NUMERO

FROM %Table:ZNA% ZNA

WHERE ZNA.%notdel%

AND ZNA_FILIAL = %Exp:xFilial("ZNA")%

AND ZNA_NUMERO = %Exp:cContra%

AND ZNA_REVISA = %Exp:cRevisa%

EndSql

cNewPlan := (cAliZNA)->ZNA_NUMERO

If Select(cAliZNA) > 0

(cAliZNA)->(dbCloseArea())

EndIf

RestArea(aArea)

Return(cNewPlan)