O Ponto de Entrada PLB7BGRV é utilizado para coleta de dados dos campos dinâmicos criados nas guias do Portal do Prestador.

(Miscelanea\Configurações\Tipos de Guia -> Ações Relacionadas\Cfg. Imp. TISS -> Folder "Campos Portal")

Ponto de Entrada desenvolvido para ser utilizado em conjunto com o ponto de entrada "PLS090GR". Para maiores informações consultar o artigo do mesmo.

O ponto de entrada é acionado após a confirmação da Guia no Portal do Prestador. Nesse momento o usuário poderá realizar a coleta dos dados dos campos criados disponíveis através no client httpPost. Por tratar-se de variáveis dinâmicas que são criadas a partir de parametrizações realizadas por usuários nas configurações de campos do portal, o conteúdo e endereço das mesmas devem ser localizados através da ferramenta de Depuração. Exemplo:

Configuração dos Campos do Portal de Guias SADT:

Note que os campos de sequência 69, 70 e 71 são customizados. O Endereço das variáveis referentes ao campo será "httpPost->(B7B_NOMXMO)", portanto no exemplo acima o nome das variáveis serão "httpPost->cTstNum", "httpPost->cTstCmb" e "httpPost->cTstMem" conforme imagem do mapeamento de variáveis do TDS:

Exemplo de PE Implementado:

PLB7BGRV:

#Include 'Protheus.ch'

Function PLB7BGRV()
Local aRet         := {}

aAdd(aRet,{"BEA_TESTE1",httpPost->cTstNum})
aAdd(aRet,{"BEA_TESTE2",httpPost->cTstCmb})
aAdd(aRet,{"BEA_TESTE3",httpPost->cTstMem})

Return aRet

PLS090GR:

#Include 'Protheus.ch'

User Function PLS090GR()
Local cOpeMov    := ParamIXB[4]
Local cAnoAut    := ParamIXB[5]
Local cMesAut    := ParamIXB[6]
Local cNumAut    := ParamIXB[7]
Local aDadB7B    := ParamIXB[8]
Local lWeb        := ParamIXB[9]
Local nI        := 1

If lWeb
    BEA->(DbSetOrder(1))//BEA_FILIAL+BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT
    
    If BEA->(MsSeek(xFilial("BEA")+cOpeMov+cAnoAut+cMesAut+cNumAut))
        BEA->(RecLock("BEA",.F.))
        For nI := 1 to Len(aDadB7B)
            BEA->&(aDadB7B[nI][1]) := aDadB7B[nI][2]
        Next
        BEA->(MsUnLock())
    EndIf
EndIf

Return

Resultado:

Português(Brasil)

Todas

Todos

Todas

aRet[n]

• aRet[n][1] - Campo customizado para ser gravado.
• aRet[n][2] - Valor.