Home

Linha Microsiga Protheus

Páginas filhas
  • PLSCALL - Entrada de Dados

Ponto-de-Entrada: PLSCALL - Entrada de Dados
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
Descrição:

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).

Programa Fonte
PLSXTMK.PRW
Sintaxe

PLSCALL - Entrada de Dados ( < ParamIxb[1]> , < ParamIxb[2]> ) --> aRet

Parâmetros:
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
Retorno
    aRet(array_of_record)
  • Array com duas posições, conforme detalhado em observações.
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

Exemplos
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})