Histórico da Página
CN120PLN- Permite capturar outro número de planilha customizada
Linha de Produto: | Microsiga Protheus® | ||||
Segmento: | Serviços | ||||
Módulo: | Gestão de Contratos | ||||
Rotina: |
| ||||
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 |
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)