Histórico da Página

Ponto de Entrada: STValidRec - Habilita/Desabilita edição dos valores do recebimento de títulos - TOTVS PDV

Descrição:

Este Ponto de Entrada é executado após acionamento da opção Editar Valores, presente na tela de seleção de recebimentos de títulos do TOTVS PDV. Possui como parâmetros de entrada array com todas as informações do recebimento de título, selecionado para edição de seus valores.

Adição dos parâmetros PARAMIXB[2] até PARAMIXB[4] e desconto global foi ajustado a partir da solicitação do chamado TTXRCB

Programa Fonte:

StwReceiptTitle

Observação: É necessário atualização dos fontes pertencentes a rotina de recebimento de títulos do TOTVS PDV.

Função:

A função recebe os parâmetros:

o parâmetro PARAMIXB[1], que no fonte é passado pela variável aVldTitulo - Array com as informações do recebimento de título selecionado.

PARAMIXB[2], que no fonte é passado pela variável cTpOp - Tipo de Operação do Recebimento , que pode ser R (Recebimento) ou E(Estorno).

PARAMIXB[3], que no fonte é passado pela variável aLista - Array com todos os títulos do cliente selecionado.

PARAMIXB[4], que no fonte é passado pela variável aSelecionado - Array com todos os títulos selecionados na tela.

PARAMIXB[1] [1]	Campo reservado
PARAMIXB[1] [2]	Prefixo do título (E1_PREFIXO)
PARAMIXB[1] [3]	Número do título (E1_NUM)
PARAMIXB[1] [4]	Parcela do título (E1_PARCELA)
PARAMIXB[1] [5]	Valor real do título (E1_VENCREA)
PARAMIXB[1] [6]	Valor do título (E1_VALOR)
PARAMIXB[1] [7]	Valor de multa do título (E1_MULTA)
PARAMIXB[1] [8]	Valor de juros do título (E1_JUROS)
PARAMIXB[1] [9]	Valor de desconto do título
PARAMIXB[1] [10]	Valor do título - saldo do título (E1_VALOR-E1_SALDO)
PARAMIXB[1] [11]	Tipo do título (E1_TIPO)
PARAMIXB[1] [12]	Número do contrato de financiamento (E1_NUMCRD)
PARAMIXB[1] [13]	Cliente do título (E1_CLIENTE)
PARAMIXB[1] [14]	Loja do título (E1_LOJA)
PARAMIXB[1] [15]	Filial do título (E1_FILIAL)
PARAMIXB[1] [16]	Número do RECNO do título (R_E_C_N_O_)
PARAMIXB[1] [17]	Valor de acréscimo do título (E1_ACRESC)
PARAMIXB[1] [18]	Campo reservado
PARAMIXB[1] [19]	Valor dos Abatimentos do título
PARAMIXB[1] [20]	Data de vencimento do título (E1_VENCTO)
PARAMIXB[1] [21]	Campo reservado
PARAMIXB[1] [22]	Moeda do título (E1_MOEDA)
PARAMIXB[1] [23]	Campo reservado
PARAMIXB[1] [24]	Data de baixa do título (E1_BAIXA)
PARAMIXB[1] [25]	Saldo do título (E1_SALDO)

Retorno:

Pode ser de dois modos :

lRet (logico), sendo :

- Verdadeiro (.T.) - caso seja permitido alterar os valores dos campos multa, juros e desconto do título selecionado.
- Falso (.F.) - caso não seja permitido alterar os valores dos campos multa, juros e desconto do título selecionado.

aRet(array), sendo:

-aret[1] - Reservado

-aret[2] - habilita/desabilita a edição do campo de Multa.

-aret[3] - habilita/desabilita a edição do campo de Juros.

-aret[4] - habilita/desabilita a edição do campo de Desconto.

-aret[5] - habilita/desabilita a edição do campo Valor Total.

Exemplo:

#Include 'Protheus.ch'

User Function STValidRec()

#INCLUDE 'PROTHEUS.CH'

Local lRet := .F.

Local aRet := {.T.,.T.,.T.,.T.,.T.}
Private _cCodSup := ""
lRet

Local nI := 0

Local nVlrTot := 0

Local nMulta := 0

Local nJuros := 0

Local nDesconto := 0 // Valor do desconto a ser aplicado

Local _aVldTitulo := PARAMIXB[1]

Local _cTpOp := PARAMIXB[2] // tipo de Operacao , R- recebimento , E - Estorno de recebimento

Local _aLista := PARAMIXB[3]

Local _aSelec := PARAMIXB[4]

lRet := .T.

aRet[2] := .F. // lAtuValMultahabilita campo Multa

aRet[3] := .F. // lAtuValJuros habilita campo Juros

aRet[4] := lRet lRet // lAtuValDescontohabilita campo Desconto

aRet[5] := .F. // lAtuValtotal

Return aRet

// habilita campo total

For nI := 1 To Len(_aSelec) //tutilos selecionados na tela

If _aSelec[nI]

/* logica cliente */

// Exemplo:se desejar alterar os valores em tela, usar o bloco abaixo

nDescTit := 10

nValTot := (_aLista[nI][06]+_aLista[nI][07]+_aLista[nI][08]) - ( nDescTit /*desconto*/ )

nMulta := _aLista[nI][07] // preserva o valor que ja esta informado

nJuros := _aLista[nI][08] // preserva o valor que ja esta informado

STIUpdTit(.T.,nI,nDescTit,nValTot,nMulta,nJuros)

EndIf

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

Ponto de Entrada: STValidRec - Habilita/Desabilita edição dos valores do recebimento de títulos - TOTVS PDV