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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ParamIxb[1] | Array of Record | Array com a estrutura a ser cobrada (aRet) que será na seqüência atualizada na tabela BM1. | X | ||||||||||||||
| ParamIxb[2] | Caracter | Matricula da família. | X | ||||||||||||||
| ParamIxb[3] | Caracter | Ano de competência. | X | ||||||||||||||
| ParamIxb[4] | Caracter | Mê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)