PL627PER - Valor de Cobrança

Ponto de Entrada PL627PER na função PLSVLRFAM->Retorna o valor de cobrança de uma família.O ponto de entrada permite que seja tratada regras de periodicidade na cobrança de uma fatura. Por exemplo retornar o valor de cobrança de N(meses)de uma familia.

#include "PROTHEUS.CH"
User Function PL627PER()

LOCAL aRetAux    := aClone(Paramixb[1]) // Retorno dos Lancamentos dos usuarios que serao faturados
LOCAL cCodInt    := Paramixb[2]    // Codint
LOCAL cCodEmp    := Paramixb[3]    // Codemp
LOCAL cMatric    := Paramixb[4]    // Matricula
LOCAL cAno       := Paramixb[5]    // Ano do Faturamento
LOCAL cMes       := Paramixb[6]    // Mes do Faturamento
LOCAL aEventos   := Paramixb[7]    // Evento da familia
LOCAL aLanUsu    := Paramixb[8]    // Lançamentos dos usuarios
LOCAL cNumCob    := Paramixb[9]    // Numero da Cobrança
LOCAL nValTot    := Paramixb[10]  // Valor Total
LOCAL nPeriod    := 0                                                          
LOCAL lPeriod    := .F.
LOCAL cCodCri    := ""

DbSelectArea("BA3")
BA3->(DbSetOrder(1)) // BA3_FILIAL + BA3_CODINT + BA3_CODEMP + BA3_MATRIC + BA3_CONEMP + BA3_VERCON + BA3_SUBCON + BA3_VERSUB
If BA3->(DbSeek(xFilial("BA3")+cCodInt+cCodEmp+cMatric))
   
    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
 //³ Tratativa do Usuario  ...                               ³
 //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 

Endif

Return {lPeriod, nPeriod, aRetAux, nValTot,cCodCri}
 

PLSMCOB2

PL627PER - Valor de Cobrança ( < aRetAux> , < cCodInt> , < cCodEmp> , < cMatric> , < cAno> , < cMes> , < aEventos> , < aLanUsu> , < cNumCob> , < nValTot> ) --> aRet

aRet(array_of_record)
• Array Contendo os parametros:1posição: lPeriod - Se a familia contém periodicidade?2posição: Se contiver periodicidade o numero de meses que foi faturado.3posição:aRetAux - Retorno com todos os lançamentos de todos os meses a serem faturados.4posição: nValTot - Valor total da fatura com todos os meses a ser faturado5posição: cCodCri - Se houver critica, qual o codigo da critica. (Este codigo de critica deve existir no sistema e quando retornar um codigo de critica nao deve retornar nenhum lançamento no aRetAux, inicializando ela.Exemplo aRetAux:{}