Histórico da Página

...

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
aRet[02] - lFind - Indica que o evento foi encontrado
aRet[03] - cCodPad - Tabela Padrão
aRet[04] - cCodPro - Código do Evento
aRet[05] - cSeqPro - Sequen do Evento
aRet[06] - cCodGlo - Código da glosa encontrada no evento
aRet[07] - cParecer - Parecer da Guia 0=Autorizado / 1=Negado / 2=Encaminha para Auditor
aRet[08] - nQtdSol - Quantidade solicitada
aRet[09] - nQtdAut - Quantidade autorizada
aRet[10] - cMotivo - Motivo da critica
aRet[11] - cObsAna - Observação da analise

Exemplo do ponto de entrada:

Bloco de código

title	Exemplo do Ponto de Entrada
linenumbers	true

#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

...

Árvore de páginas

Versões comparadas

Versão antiga 29

Nova versão 30

Chave