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. | ||||||||||||||||||||||||||||||||||||||||||||||||||
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.
| ||||||||||||||||||||||||||||||||||||||||||||||||||
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. 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'
#INCLUDE 'PROTHEUS.CH'
Local lRet := .F.
Local aRet := {.T.,.T.,.T.,.T.,.T.}
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. // habilita campo Multa
aRet[3] := .F. // habilita campo Juros
aRet[4] := lRet // habilita campo Desconto
aRet[5] := .F. // 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
Next
Return aRet