Versões: | Todas |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
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
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
aRetAux | Array of Record | Lancamentos dos usuarios que serao faturados | X | ||||||||||||||
cCodInt | Array of Record | Código da Operadora | X | ||||||||||||||
cCodEmp | Array of Record | Codido da Empresa | X | ||||||||||||||
cMatric | Array of Record | Código da Matricula | X | ||||||||||||||
cAno | Array of Record | Ano do Faturamento | X | ||||||||||||||
cMes | Array of Record | Mes do Faturamento | X | ||||||||||||||
aEventos | Array of Record | Evento da familia | X | ||||||||||||||
aLanUsu | Array of Record | Todos lancamentos. | X | ||||||||||||||
cNumCob | Array of Record | Numero da Cobrança | X | ||||||||||||||
nValTot | Array of Record | Valor Total fatura | X |
-
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:{}
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |