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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas