Histórico da Página
...
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 |
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:
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas