Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: QNC100INT - Envia resultados do Follow-Up estatistico
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Espanhol , Inglês
Descrição: 
Este ponto de entrada envia, através de uma matriz os dados apurados no Follow-Up Estatistico para ser usado na Função do Usuário.

É Acionado antes da tela de resultado do Follow-Up.
Programa Fonte 
QNCA100.PRW
Sintaxe

QNC100INT - Envia resultados do Follow-Up estatistico ( [ ParamIXB ] ) --> Nil

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB Array of Record 1-Objeto (Odlg)
2-Nr.Total FNCs
3-Nr.Total Plano de ação
4-Nr.FNCs Baixadas
5-Nr.Planos Baixados
6-Nr.FNCs Pendentes
7-Nr.Planos Pendentes
8-Matriz FNCs e planos por mes/ano
  • 8.1-Ano
  • 8.2-Mes
    • 8.2.1-Nr.FNCs Mes
    • 8.2.1-Nr.Planos Mes
    9-Nr.Total FNC no ano
    10-Percentual FNC no ano
    11-Nr.Total Plano no ano
    12-Percentual Plano no ano
    Retorno
      Nil(nulo)
    Exemplos 
    USER FUNCTION QNC100INT()    Local ODLG       := PARAMIXB[1]    Local nTotFNC  := PARAMIXB[2]    Local nTotPla     := PARAMIXB[3]    Local nFNCBai   := PARAMIXB[4]    Local nPLABai    := PARAMIXB[5]    Local nFNCPen  := PARAMIXB[6]    Local nPlaPen     := PARAMIXB[7]    Local aNFIPLMANO := PARAMIXB[8]    Local nTotFNCAno   := PARAMIXB[9]    Local nPerFNCAno  := PARAMIXB[10]    Local nTotPLAAno    := PARAMIXB[11]    Local nPerPLAANO  := PARAMIXB[12]    Local nCAno    Local nCMes        Alert ("Total FNCs: "+cvaltochar(nTotFNC)+" Baixadas : "+cvaltochar(nFNCBai)+" Pendentes: "+cvaltochar(nFNCPen))    Alert ("Total Plano de ação:"+cvaltochar(nTotPla)+" Baixados : "+cvaltochar(nPLABai)+" Pendentes: "+cvaltochar(nPlaPen))	    For nCAno = 1 to len(aNFIPLMANO)           For nCMes = 1 to len(aNFIPLMANO[nCAno,2])                  if aNFIPLMANO[nCAno,2,nCmes,1] > 0 .OR. aNFIPLMANO[nCAno,2,nCmes,2] > 0	Alert (cvaltochar(aNFIPLMANO[nCAno,2,nCmes,1])+" Fichas e "+cvaltochar(aNFIPLMANO[nCAno,2,nCmes,2])+ ;	" Plano de ação em "+cvaltochar(nCMes)+"/"+cvaltochar(aNFIPLMANO[nCAno,1]))                  EndIf           Next nCmes           Alert ("Total FNC ANO "+cvaltochar(aNFIPLMANO[nCAno,1])+": "+cvaltochar(nTotFNCAno)+" Percentual : "+cvaltochar(nPerFNCAno))           Alert ("Total Plano Ação ANO "+cvaltochar(aNFIPLMANO[nCAno,1])+": "+cvaltochar(nTotPLAAno)+" Percentual : "+cvaltochar(nPerPLAANO))    Next nCAnoRETURN
    Variáveis
    Nome Tipo Escopo Pode Alterar descrição
    Array of Record Global Não