Histórico da Página
...
Totvs custom tabs box | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
...
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 |
...
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 |
...