...
| Ponto de Entrada | PCARAUD1 |
|---|---|
| Fonte | PLAudCarol.PRW |
| Parâmetros | paramixb[01] - cRequestID - Chave da Guia + Sequen paramixb[02] - lFind - Se o evento foi encontrado pelo PLS paramixb[03] - cAlias - Alias do cabeçalho da guia paramixb[04] - cAliasIte - Alias do evento paramixb[05] - cCodPad - Tabela Padrão paramixb[06] - cCodPro - Código do Evento paramixb[07] - cSeqPro - Sequen do Evento paramixb[08] - cCodGlo - Código da glosa encontrada no evento paramixb[09] - cParecer - Parecer da Guia 0=Autorizado / 1=Negado / 2=Encaminha para Auditor paramixb[10] - nQtdSol - Quantidade solicitada paramixb[11] - nQtdAut - Quantidade autorizada paramixb[12] - cMotivo - Motivo da critica paramixb[13] - cObsAna - Observação da análise |
| Retorno | Array de dados contendo: aRet[01] - Boolean - Indica utiliza a gravação padrão do sistema |
Exemplo do ponto de entrada:
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#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 |
...
