Home

Linha Microsiga Protheus

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Wiki Markup
||Descrição|| PLSGROPE-Criado ponto de entrada PLSGRUOPE para regra especifica de grupo de operadora x regra de intercambi 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}

...