PL992PCT - classificação de pacote para o SIP

Classifica pacote para o SIP

O ponto de entrada foi criado para que o cliente possa classificar eventos do tipo pacote durante o processamento do SIP.

User Function PL992PCT

Local cChaveGuia    := ParamIxb[1]

Local cTipoTabela    := ParamIxb[2]

Local cCodigoProc    := ParamIxb[3]

Local aClassif    := {}

Local aAreaBR8    := BR8->(GetArea())

        dbSelectArea("BR8")

        BR8->(DbSetOrder(1)) //BR8_FILIAL + BR8_CODPAD + BR8_CODPSA + BR8_ANASIN

        If BR8->(MsSeek(xFilial("BR8")+cTipoTabela+cCodigoProc))    

           aClassif:={BR8->BR8_CLASIP,BR8->BR8_TPCONS,'0'}//BR8->BR8_TPPROC}

        Endif            

RestArea(aAreaBR8)

Return aClassif

Português(Brasil)

Versões_Anteriores

Todos

TOTVSDBAccess

ChaveGuia - BD7_CODOPE+BD7_CODLDP+BD7_CODPEG+BD7_NUMERO+BD7_ORIMOV
TipoTabela - BR8_CODPAD
CodProc - BR8_CODPSA

cClaSip - classificao para o SIP
cTpCons - tipo consulta
cTipoPro - tipo de procedimento

Classificação de eventos do SIP

plsa992.prw