Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (fshyton), última alteração por Usuário desconhecido (felipe.valcanaia) em 03 jul, 2012

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:
Nome Tipo Descrição Default Obrigatório Referência
aPagtos Array of Record Array com todas as parcelas
nParcela Numérico Parcela atual
dDataParc Data Data da parcela
nValorParc Numérico Valor da parcela
cTpParc Caracter Tipo da parcela
aParcela Array of Record Array com todos os tipos de parcelas cadastradas no sistema
cAdm Caracter Administradora escolhida
aAdm Array of Record Array com todas as administradoras cadastradas no sistema
lCheckPag Lógico Variá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