Linha Microsiga Protheus

Árvore de páginas


Ponto de Entrada

Descrição:

Este Ponto de Entrada permite modificar a ordenação do array de pagamento na tela do Venda Assistida.

Programa Fonte:

LOJA701B

Parâmetros:

TipoDescrição
ArrayArray com as informações do pagamento da venda.

Retorno:

Array com o mesmo conteúdo que foi passado por parâmetro, modificando apenas a ordem dos pagamentos no array.


Observação:

O ponto de entrada é executado diversas vezes, ou seja, toda vez que o sistema fica recalculando o pagamento da venda.


Atenção:

A forma de pagamento "Dinheiro", sempre será considerar como a primeira da lista, mesmo que seja alterada a sua ordem neste ponto de entrada, o sistema à retornará para a primeira posição da lista de pagamentos.


Exemplo:

#Include 'Protheus.ch'

User Function LJORDFP()
Local aPagamento := aClone(PARAMIXB[1])

If Len(aPagamento) > 1

aSort( aPagamento, Nil, Nil, {|x,y| Dtos(x[5])+x[1] > Dtos(y[5])+y[1] } ) //Faz a ordenação decrescente por: Data + Forma de Pagamento

EndIf

Return aPagamento