Histórico da Página

...

06. PONTOS DE ENTRADA

O Ponto de entrada PCARAUD1 permite manipular o retorno de um evento auditado pela Carol. O ponto pode receber 3 modelos de retorno:

• Retornando o array aRet vazio, o sistema assume as condições já analisadas pela Carol/PLS.
• Retornando .T. na primeira posição do Array, o sistema vai gravar o evento utilizando o modelo padrão e nas posições posteriores, é possível manipular os dados desejados.
• Retornando .F. na primeira posição do Array, o sistema não vai gravar o evento utilizando o modelo padrão, sendo necessário realizar toda a gravação de dados no ponto de entrada.

Exemplo do ponto de entrada:

#INCLUDE "PROTHEUS.CH"

User Function PCARAUD1()

Local cRequestID := paramixb[01] //Chave da Guia + Sequen
Local lFind := paramixb[02] //Se o evento foi encontrado pelo PLS
Local cAlias := paramixb[03] //Alias do cabecalho da guia
Local cAliasIte := paramixb[04] //Alias do evento
Local cCodPad := paramixb[05] //Tabela Padrao
Local cCodPro := paramixb[06] //Codigo do Evento
Local cSeqPro := paramixb[07] //Sequen
Local cCodGlo := paramixb[08] //Codigo da glosa encontrada no evento
Local cParecer := paramixb[09] //Parecer da Guia 0=Autorizado / 1=Negado / 2=Encaminha para Auditor
Local nQtdSol := paramixb[10] //Quantidade solicitada
Local nQtdAut := paramixb[11] //Quantidade autorizada
Local cMotivo := paramixb[12] //Motivo da critica
Local cObsAna := paramixb[13] //Observacao da analise
Local aRet := {}

/* ---------------------------
Array de Retorno

Posicao 01 - lGrvPadrao
Posicao 02 - lFind
Posicao 03 - cCodPad
Posicao 04 - cCodPro
Posicao 05 - cSeqPro
Posicao 06 - cCodGlo
Posicao 07 - cParecer
Posicao 08 - nQtdSol
Posicao 09 - nQtdAut
Posicao 10 - cMotivo
Posicao 11 - cObsAna
--------------------------- */

//Utiliza a gravacao padrao do PLS, alterar os dados desejados alterando as variaveis abaixo
Aadd(aRet,.T.)
Aadd(aRet,lFind)
Aadd(aRet,cCodPad)
Aadd(aRet,cCodPro)
Aadd(aRet,cSeqPro)
Aadd(aRet,cCodGlo)
Aadd(aRet,cParecer)
Aadd(aRet,nQtdSol)
Aadd(aRet,nQtdAut)
Aadd(aRet,cMotivo)
Aadd(aRet,cObsAna)

//Retornando aRet vazio, o PLS ignora o resultado do PE e realiza a gravacao padrao
aRet := {}

//Indica que vai realizar a gravacao manual do Registro (Importante: toda a gravacao referente ao evento informado deve ser realizado neste ponto)
Aadd(aRet,.F.)

Return aRet

O Ponto de entrada PCARAUD2 permite manipular a transferência de uma guia para um departamento quanto todos os eventos foram respondidos pela Carol. O ponto pode receber 3 modelos de retorno:

• Retornando o array aRet vazio, o sistema assume as condições já analisadas pela Carol/PLS.
• Retornando .T. na primeira posição do Array, o sistema realiza a transferência para o departamento definido na segunda posição do array.
• Retornando .F. na primeira posição do Array, a guia não é transferida.

Importante: este ponto será acionado somente se pelo menos um dos eventos da guia estiver indicado como Análise do Auditor do PLS no Json de resposta.

Exemplo do ponto de entrada:

#INCLUDE "PROTHEUS.CH"

User Function PCARAUD2()

Local cGuia := paramixb[1]
Local cAliCab := paramixb[2]
Local cAliEve := paramixb[3]
Local lTransfere := paramixb[4]
Local cDepartRet := paramixb[5]
Local nQtdEncam := paramixb[6]
Local nQtdAudit := paramixb[7]
Local aRet := {}

/*
---------------------------
Array de Retorno

Posicao 1 - lTransfere
Posicao 2 - cDepartRet
---------------------------
*/

//Utiliza a gravacao padrao do PLS, e possivel indicar se a guia vai ser transferida e para qual departamento
Aadd(aRet,lTransfere)
Aadd(aRet,cDepartRet)

//Retornando aRet vazio, o PLS ignora o resultado do PE e realiza a gravacao padrao
aRet := {}

Return aRet

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>