Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLSAUT01 - Críticas
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLSAUT01 - Críticas
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11
Descrição: 
Validação do usuário
 
Ponto de Entrada: PLSAUT01
Parâmetros de Entrada: 
 
                                   aRet (A)            Todas as criticas que o PLS ja fez ate o momento. A documentação do aRet será descrita logo abaixo.
 
                                   cMatric (C 17)   Matrícula do usuário com digito
                                                           017600010001000001001
 
                                   dData (D 8)       Data do evento
 
 
                                   cCdTbPd (C 2)  Codigo Tipo de Tabela
                                                           01
 
                                   cCdTbPd (C 16) Codigo do Procedimento
                                                           00010014
 
Retorno:           O mesmo do aRet que esta descrito no fim desse documento
 
Exemplo de montagem de um aRet:
 
     aCriticas := {}
     PLSPOSGLO('0176','501','Desc Critica','1')           
     //Funcao PLSPOSGLO posiciona em uma critica previamente cadastrada no cadastro de critica. Se a critica nao existir no cadastro o sistema inclui automaticamente...
     //0176                     Operadora
     //501                       Codigo da critica cadastrada
     //Desc Critica           Descricao da critica
     //1                           '1' Esta sendo executado do processamento de contas
    
     //funcao PLSBCTDESC() retorna a descricao de uma critica
     cCdTbPd := '01'
     cCodPro := '00010014'
 
      aadd(aCriticas,{'501',PLSBCTDESC(),'',BCT->BCT_NIVEL,BCT->BCT_TIPO,cCdTbPd,cCodPro})
      aadd(aCriticas,{''   ,'Idade Minima',AllTrim(Str(nIdaMin)),'','',cCdTbPd,cCodPro})
      aadd(aCriticas,{''   ,'Idade Maxima',AllTrim(Str(nIdaMax)),'','',cCdTbPd,cCodPro})
      aadd(aCriticas,{''   ,'Idade Usuario',AllTrim(Str(nIdade)),'','',cCdTbPd,cCodPro})
 
      aRet := {.F.,aCriticas,'','3'}
 
Importante!!!!
 
1) O aRet tem a mesma estrutura no primeiro parametro de entrada e deve ter o mesmo no Retorno, a incorreta devolucao do Retorno pelo ponto de entrada ira ocasionar erro de sistema (erro de implementacao de ponto de entrada no cliente)
 
 
Programa Fonte 
.PRW
Sintaxe

PLSAUT01 - Críticas ( < aRet (A)> , < cMatric> , < dData> , < cCdTbPd> , < cCdTbPd> ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aRet (A) Array of Record Todas as criticas que o PLS ja fez ate o momento. A documentacao do aRet sera descrita logo abaixo.
aRet - {lOK, aCriticas,cNivAut,cNivCri}
sendo: lOK - Autorizada ou nao (.T. ou .F.)
aCriticas - Matriz na estrutura abaixo
[1] Codigo da Critica C 3
[2] Descricao da Critica C 120
[3] Informacao da critica C 120
[4] Nivel C 1
[5] Tipo C 1
[6] Cod.TpProced C 2 [7] Codigo do Procedimento C 16
cNivAut - Nivel onde foi autorizado na codificacao abaixo. Este campo no retorno so deve ser atualizado quando lOK for .T.
1 - Cobertura Usuario
2 - Grupo de Cobertura do Usuario
3 - Cobertura Familia
4 - Grupo de Cobertura Familia
5 - Cobertura Produto
6 - Grupo de Cobertura Produto
7 - Cobertura SubContrato
8 - Grupo de Cobertura SubContrato
9 - Tabela Padrao
cNivCri - Nivel onde foi autorizado na codificacao abaixo. Este campo no retorno so deve ser atualizado quando lOK for .F.
1 - Usuario/Empresa/Familia
2 - Rede de Atendimento
3 - Especialidade
4 - Solicitante
 X
cMatric Array of Record cMatric (C 17) Matricula do usuario com digito
017600010001000001001
 X
dData Array of Record (D 8) Data do evento X
cCdTbPd Array of Record Codigo Tipo de Tabela 01

 X
cCdTbPd Array of Record cCdTbPd (C 16) Codigo do Procedimento
00010014
 X
Retorno
    aRet(vetor)
  • O mesmo do aRet