| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Localização: Ponto de Entrada PLSCALL, localizado no inicio da função PlsCallCenter - Integração Call Center e PLS, logo após a declaração da variáveis.
Objetivo: Permite executar alguma entrada de dados antes que seja chamada a tela de consulta a dados do beneficiário na integração do Call Center com o modulo Planos de Saúde (PLS).
PLSXTMK.PRW
PLSCALL - Entrada de Dados ( < ParamIxb[1]> , < ParamIxb[2]> ) --> aRet
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ParamIxb[1] | Caracter | Chave da entidade selecionada a partir dos contatos x entidade. | X | ||||||||||||||
| ParamIxb[2] | Caracter | Alias da entidade selecionada a partir dos contatos x entidade. | X |
-
aRet(array_of_record)
- Array com duas posições, conforme detalhado em observações.
Exemplo de parâmetros de envio:
[1] “00000101”
[2] “SA1”
Sendo a primeira posição a chave do arquivo de clientes (código e loja) e a segunda o respectivo alias (SA1)
_________________________________________________________________________________________
aRet ->Array na estrutura abaixo:
[1] .T. caso o processo possa ser continuado ou .F. caso o processo não possa ser continuado
[2] Caso o item acima seja .T. devera ser retornado a chave (primeira posição do array parâmetros enviados) alterado para uma possível outra chave de pesquisa
Abaixo vamos exemplificar um exemplo onde o contato sendo vinculado a vida (BTS) e ao entrar no ponto de entrada será selecionado o usuário (BA1) relativo aquela vida e com isso ser dado seqüência ao processo ou não.User Function PLSCALLLOCAL lRet := .T.Local lSelEntF3 := GetNewPar("MV_TMKF3",.F.)LOCAL cChave := paramixb[1]LOCAL cEntidade := paramixb[2] If cEntidade == "BTS" lRet := selecionausr(.T.,BTS->BTS_MATVID) //função selecionausr e apenas um exemplo If lRet If ! lSelEntF3 cChave := BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPUSU+BA1_TIPREG+BA1_DIGITO) Else cChave := BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO) Endif EndifEndif Return({lRet,cChave})