Home

Linha Microsiga Protheus

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

...

Descrição

PLSGROPE - Criado

...

ponto

...

de

...

entrada

...

PLSGRUOPE

...

para

...

regra

...

especifica

...

de

...

grupo

...

de

...

operadora

...

x

...

regra

...

de

...

intercâmbio pagar

...

e

...

receber

...

Observações

Preview

Veja também

Idioma

Português(Brasil)

...

Versões

Versões_Anteriores

...

Sistemas

...

Operacionais

...

Suportados

...

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

LOCAL cTipo //"1"

...

Cobranca

...

"2"

...

Pagamento

...

LOCAL

...

cOpeOri

...

//Operadora

...

no

...

caso

...

de

...

pagamento

...

operadora

...

da

...

RDA

...

no

...

caso

...

de

...

cobranca

...

Operadora

...

Origem

...

do

...

do

...

Usuario

...

LOCAL

...

dData

...

//Data

...

do

...

Evento

...

LOCAL

...

cCodPro

...

//Codigo

...

Procedimento

...

LOCAL

...

cCodPad

...

//cCodPad

...

LOCAL

...

cCodPla

...

//Codigo

...

do

...

Plano

...

LOCAL

...

cGruOpe

...

//Grupo

...

Operadora

...

Retorno

Array Logigo lOK , Grupo Operadora

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

PLSRETCOP.PRW

||Exemplos||User Function PLSGROPE LOCAL cTipo       := paramixb[1] //"1" Cobranca "2" Pagamento LOCAL cOpeOri     := paramixb2] //Operadora no caso de pagamento operadora da RDA no caso de cobranca Operadora Origem do do Usuario LOCAL dData       := paramixb[3] //Data do Evento LOCAL cCodPro     := paramixb[4] //cCodPro LOCAL cCodPad     := paramixb[5] //cCodPad
LOCAL cCodPla     := paramixb[6] //cCodPla LOCAL cGruOpe     := paramixb[7] //cGruOpe LOCAL lOK         := .F.         //se vai alterar a regra padrao ou nao LOCAL cGruOpeRet  := ""          //caso altere especifique qual grupo de operadora deseja ser entendido LOCAL lFundacao   := .T. //Coloque aqui sua regra... LOCAL nOrdBA0     := BA0->(IndexOrd()) LOCAL nRecBA0     := BA0->(Recno()) //lOK mude para .t. se deseja TROCAR o codigo do grupo de operadora ou nao //se lok for .t. altere o cGruOpeRet para o seu caso especifico Return{lOK,cGruOpeRet}