Histórico da Página

...

Portuguese

Pagetitle

	LJ7009 - Validação de Alteração de Pagamento
	LJ7009 - Validação de Alteração de Pagamento

Ponto-de-Entrada: LJ7009 - Validação de Alteração de Pagamento

Descrição:

Esse Ponto de Entrada é chamado na confirmação da tela de alteração das parcelas na rotina Venda Assistida.

Deve retornar um boleano ou um vetor.
Se retornar falso, não permite que os dados informados sejam confirmados. Se retornar um vetor, a parcela atual será atualizada com os dados do vetor.

A estrutura do vetor retornado é:
[1] Data (data)
[2] Valor (numérico)
[3] Descrição da forma de pagamento (x caracteres)
[4] Checkbox "Utiliza nas próximas parcelas" (lógico)
[5] Identificação sequencial do cartão (1 carácter)
[6] Código da forma de pagamento (3 caracteres)

Programa Fonte

LOJA701B.PRW

Sintaxe

LJ7009 - Validação de Alteração de Pagamento ( < Array> ) --> xRet

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

Array

Array of Record

Descrição abaixo (em Observações).

X

Retorno

xRet

2 Tipos de RetornoLógico = False (.F.) para não continuar com o processoArray = Parcelas para considerar na Alteração

Descrição do parâmetro:

Array contendo as informações originais e as que foram alteradas: 1º Array com informações originais e 2º Array com as informações alteradas pelo usuário, ambos conforme as posições indicadas na "descrição".
Importante: A edição é realizada por linha e as informações recebidas correspondem a linha que está sendo editada, quando é realizada uma inserção (escolha de um pagamento pela ação dos botões DINHEIRO, CHEQUE, CARTAO DE CREDITO, etc), o valor correspondente ao "original" é o valor sugerido na tela de edição.

Disponibilizado o sexto parâmetro como código da forma de pagamento, como alternativa ao parâmetro de entrada 3 (descrição da forma de pagamento).
Este parâmetro dispensa colocar no Ponto de Entrada a descrição de sua forma idêntica ao que está na tabela SX5/24, evitando forçar, dentro do ponto de entrada, a substituição do parâmetro 3 da descrição pelo código.

O exemplo abaixo de ponto de entrada altera a data da primeira parcela para Cartão de Crédito para 70 dias após a data da emissão, o Cartão de Débito sem processamento (bloqueio), e o restante das condições de pagamento, finalizados normalmente sem alterações.

User Function LJ7009

User Function LJ7009()
// variáveis com os valores alterados
// e com os valores originais

Local aParams

Local aParams :=

iIf( PARAMIXB<>nil, aClone

 iIf( PARAMIXB<>nil, aClone(PARAMIXB), {} )

Local aParcResul

Local aParcResul :=

iIf

 iIf(

Len

 Len(aParams)

> 0

 > 0,

aParams

 aParams[1], {} )// dados originais do pagamento

Local aParcAlter

Local aParcAlter :=

iIf

 iIf(

Len

 Len(aParams)

> 1

 > 1,

aParams

 aParams[2], {} ) // novos dados para o pagamento

Local xRet

Local xRet := .T.

Local nQtdParcs

Local nQtdParcs :=

Len

 Len(aParcAlter)

Local nI

Local nI :=

0
Local aAuxRet

 0
Local aAuxRet := {} // verifica se possui informação

If ( nQtdParcs > 0 )
If

If ( nQtdParcs > 0 )
    If (Alltrim(aParcAlter[6]) == 'CC' ) // avalia qual o tipo de pagamento CC-Cartão de Crédito

xRet

        xRet := .T. //se cartão de credito, efetua a alteração

aParcAlter

        aParcAlter[1] := (

dDataBase +70

 dDataBase +70 )  //Altera em 70 dias a primeira parcela

aParcAlter

        aParcAlter[4] := .T.

ElseIf

    ElseIf (Alltrim(aParcAlter[6]) == 'CD' ) // avalia qual o tipo de pagamento CD-Cartão de Débito

xRet

        xRet := .F. // do contrário aborta o processamento

Else
xRet

    Else
        xRet := .T. // As demais condições de pagamento irão finalizar normalmente

EndIf

    EndIf
EndIf

If(

xRet

 xRet ) // quando o processo pode continuar, é preciso retornar um vetor com os novos dados

xRet

    xRet :=

aParcAlter

 aParcAlter
EndIf

Return xRet


Return xRet

OBS: Para alterações específicas na validação da condição de pagamento, sugerimos utilizar o ponto de entrada LJ7063 - Parcelas de pagamento.

Árvore de páginas

Versões comparadas

Versão antiga 8

Nova versão Atual

Chave