| Abrangência: | Protheus 12.1.23 |
|---|---|
| Versões: | Protheus 12 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas : | Português(Brasil) |
| Rotina: | FINC030 |
Ponto de entrada que permite alterar a ordem de exibição do conteúdo das pastas "Títulos Pagos" e "Faturamento", na opção "Consultar" da rotina de Consulta de Posição de Fornecedores (FINC030).
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| nPasta | Numérico | Número da pasta em que se deseja alterar a ordem, sendo 2 para "Títulos Pagos" e 4 para "Faturamento". | x | ||
| aCampos | Vetor | Array com os campos exibidos na pasta "Títulos Pagos", se informado 2 em nPasta ou "Faturamento", se informado 4 em nPasta. | x |
cCpoUser (caracter)
#include "rwmake.ch"
User Function FC030IND
Local nPasta := ParamIxb[1]
Local aCampos := ParamIxb[2]
Local cCpoUser := ""
If nPasta == 2 // Pasta Títulos Pagos
// Ordena por Data da Baixa
nPos := aScan( aCampos,{ |x| AllTrim( x[1] ) == "BAIXA" })
If nPos > 0
cCpoUser := aCampos[ nPos, 1 ]
EndIf
EndIf
Return cCpoUser