Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
LJ220APARC - Bloqueio de alteração na parcela de pagamento
LJ220APARC - Bloqueio de alteração na parcela de pagamento

Ponto-de-Entrada: LJ220APARC - Bloqueio de alteração na parcela de pagamento
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11
Idiomas: Espanhol , Inglês
Descrição:

Esse ponto de entrada tem por objetivo bloquear a alteração de uma parcela no pagamento no FrontLoja e na Venda Rápida.

Exemplo:

Parcelas:
1 - 01/01/05 - Financiado
2 - 01/02/05 - Financiado
3 - 01/03/05 - Financiado

Se o usuário precisar alterar o tipo da 2a parcela para cheque, porém, devido à regra de negócio, só pode alterar a 1a parcela, a alteração da 2a parcela poderá ser bloqueada.

Programa Fonte
LOJXFUNA.PRX
Sintaxe

LJ220APARC - Bloqueio de alteração na parcela de pagamento ( [ aPagtos ], [ nParcela ], [ dDataParc ], [ nValorParc ], [ cTpParc ], [ aParcela ], [ cAdm ], [ aAdm ], < lCheckPag> ) --> xRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
aPagtosArray of RecordArray com todas as parcelas
nParcelaNuméricoParcela atual
dDataParcDataData da parcela
nValorParcNuméricoValor da parcela
cTpParcCaracterTipo da parcela
aParcelaArray of RecordArray com todos os tipos de parcelas cadastradas no sistema
cAdmCaracterAdministradora escolhida
aAdmArray of RecordArray com todas as administradoras cadastradas no sistema
lCheckPagLógicoVariável do check-box "utiliza nas próximas parcelas"X
Retorno
    xRet()
  • Para tipo lógico, .T. = Confirma as alterações / .F. = Desfaz alterações.Para tipo array, [1] = Nova data para o vencimento da parcela.
Exemplos
Exemplo de alteração na data de vencimento das parcelas:User Function LJ220APARC   Local aRet        := Paramixb[1] // Array com as parcelas Local nParcela    := Paramixb[2] // Parcela Atual Local lUtProParc  := Paramixb[9] // Flag "Utiliza nas proximas parcelas". Local nCont       := 0      // Contador   aRet[nParcela][1]:= Date() + 10 // Altera a parcela atual. If lUtProParc  // Utiliza nas próximas parcelas.      nParcela ++      For nCont := nParcela to Len(aRet)             aRet[nCont][1] := aRet[nCont-1][1] + 15  //Altera as demais parcelas.      Next nCont EndIf   Return aRet