Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLSVLRFAM - Alteração de Valores

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

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
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PLSVLRFAM - Alteração de Valores
PLSVLRFAM - Alteração de Valores

Ponto-de-Entrada: PLSVLRFAM - Alteração de Valores
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de Entrada PLSVLRFAM na função PLSBUSFAI, logo após o FOR que é executado para o eventos que devem ser calculados.

Objetivo: No momento do faturamento ou de solicitação de valor de cobrança de uma família com este ponto de entrada e possível alterar todos os valores a serem cobrados de acordo com a regra de negocio da customização.
Programa Fonte 
PLSMCOB2.PRW
Sintaxe

PLSVLRFAM - Alteração de Valores ( < ParamIxb[1]> , < ParamIxb[2]> , < ParamIxb[3]> , < ParamIxb[4]> ) --> aRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]Array of RecordArray com a estrutura a ser cobrada (aRet) que será na seqüência atualizada na tabela BM1.X
ParamIxb[2]CaracterMatricula da família.X
ParamIxb[3]CaracterAno de competência.X
ParamIxb[4]CaracterMês de competência.X
Retorno
    aRet(array_of_record)
  • Array com a estrutura do array enviado no parâmetro 1 alterado de acordo com a regra de negocio.
Exemplos 
User Function PLSVLRFAM()LOCAL aRet := ParamIxb[1]LOCAL nForLOCAL nOrdBI3 := BI3->(IndexOrd())LOCAL nRecBI3 := BI3->(Recno())For nFor := 1 To Len(aRet) //no exemplo abaixo esta sendo alterado o parâmetro de envio 1 que e o aRet neste exemplo.        If aRet[nFor,3] == "102" /       BI3->(DbSetOrder(1))       If BI3->(DbSeek(xFilial("BI3")+BA3->BA3_CODINT+aRet[nFor,4])) .And. BI3->BI3_GRUPO == "001"          aRet[nFor,3] := "101"                                                                           Endif    Endif      Next        BI3->(DbSetOrder(nOrdBI3))BI3->(DbGoto(nRecBI3))Return(aRet)