Histórico da Página

01.

...

DATOS GENERALES

Línea de producto

...

Linha de Produto :	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Financeiro Financiero
Função Función:	FINA240 - Borderô de Pagamentos Borderó de pagos
Requisito/Story/Issue (informe el requisito relacionado) :	DFINTES-16328

02.

...

DESCRIPCIÓN

La finalidad del punto de entrada F240IND es permitir que se modifique el orden de los títulos en la pantalla.

El punto de entrada F240IND se ejecuta en dos puntos dentro de la rutina FINA240 (Borderó de pagos), siendo estas:

Durante la carga de la pantalla de registro de los títulos para borderó (después de informar los parámetros iniciales).
Dentro de la opción "Actualizar", es posible efectuar el cambio del
Durante o carregamento da tela de marcação dos títulos para borderô (após informar os parâmetros iniciais);

Dentro do botão "Atualizar", sendo assim possível efetuar a troca do

índice.

Obs. 1: somente os índices selecionados na tela de seleção de índices poderão ser utilizados para atualizar o browse de marcação de títulos. Durante a primeira execução do ponto de entrada (após a seleção solamente los índices seleccionados en la pantalla de selección de índices podrán utilizarse para actualizar el browse de registro de títulos. Durante la primera ejecución del punto de entrada (después de la selección manual de índices), caso seja retornado um índice que não tenha sido marcado manualmente o mesmo será adicionado aos índices da tela de marcação si se devolviera un índice que no haya registrado manualmente este se incluirá a los índices de la pantalla de registro de títulos.

Obs. 2: caso o índice seja alfanumérico (exemplosi el índice fuera alfanumérico (ejemplo: A, B, C), o retorno do ponto la devolución del punto de entrada deve seguir a mesma regra da função debe seguir la misma regla de la función "DBSetOrder", ou seja, o retorno deve ser numérico.es decir, la devolución debe ser numérica.

EjemploExemplo: índice 1 e índice 2 marcados manualmente na tela seleção abaixo registrados manualmente en la pantalla siguiente selección e índice 6 retornado através do ponto devuelto por medio del punto de entrada: os títulos serão ordenados pelo índice 6 e os três índices poderão ser utilizados na execução do ponto de entrada através do botão atualizarlos títulos se ordenarán por el índice 6 y los tres índices podrán utilizarse en la ejecución del punto de entrada por medio de la opción actualizar.

03.

...

PARÁMETROS

Ejecución en la activación de la pantalla de selección

...

Execução no carregamento da tela de seleção de títulos:

Conteúdo vazio apenas compatibilidade O mesmo estará preenchido na execução onde o lRefresh estiver como verdadeiro

NomeNombre	Tipo	DescriçãoDescripción	Contenido
paramIXB[1]	logical	lRefresh - se a execução é através do botão Atualizar ou nãosi la ejecución fuera por medio de la opción Actualizar o no.	Falso
paramIXB[2]	array	aIndices - array	vacío (	solamente por	compatibilidad.	Este estará completado en le ejecución donde el lRefresh estuviera como verdadero.	{}

Execução através do botão "AtualizarEjecución por medio de la opción "Actualizar":

Conteúdo contendo os selecionados previamente na tela de seleção posição do ; posição Descrição do índice conforme tabela

NomeNombre

Tipo

DescriçãoDescripción

Contenido

paramIXB[1]

logical

lRefresh - se a execução é através do botão Atualizar ou nãosi la ejecución fuera por medio de la opción Actualizar o no.

Falso

paramIXB[2]

array

aIndices - Array (matriz)

con los índices

seleccionados previamente en la pantalla de selección de índices.

1ª

posición = Número

del índice

.

2ª

posición =

Descripción del índice de acuerdo con la tabla SIX.

04.

...

DEVOLUCIÓN

Nombre	Tipo	DescripciónDescrição
nIndex	Numérico	Número do del índice que deverá debe reordenar os los títulos apresentados mostrados para marcaçãoregistro.

05.

...

EJEMPLO DE

...

UTILIZACIÓN

Bloco de código

language	vb
theme	Midnight
firstline	1
title	F240IND
linenumbers	true

#Include "TOTVS.CH"

/*/{Protheus.doc} F240IND
PontoPunto de entrada para manipulaçãomanejo de índice de dala telapantalla de borderôborderó (FINA240).

@version    P12
@since      10/09/2021
@return     numeric, índice aque serserá posicionadomarcado
@obs        FunçãoFunción utilizada nasen las rotinasrutinas FINA240
/*/
User Function F240IND() As Numeric

    Local aIndices  As Array
    Local lRefresh  As Logical
    Local nIndex    As Numeric

    nIndex      := 1
    lRefresh    := paramIXB[1]
    aIndices    := paramIXB[2] //somentesolamente se éactiva carregadoen nala execuçãoejecución viavía botãoopción AtualizarActualizar (quandocuando lRefresh está como verdadeiroverdadero)

    //EscolhaSelección dodel indice inicial de dala tabelatabla
    If !lRefresh
        If MsgYesNo("Desejar¿Desea ordenar por Código dodel Fornecedorproveedor?", "F240IND - AlterarModificar oel Indiceíndice")
            nIndex := 6
        EndIf
    Else
        //ChamadaActivación viavía botãoopción refresh dade la tabelatabla de borderôborderó - Permite ael trocacambio dodel índice atualactual
        //SuaSu lógica para seleçãoselección de índice - ExemploEjemplo utilizando List Box
        nIndex := U_SelIndex(aIndices)
    EndIf

Return nIndex

/*/{Protheus.doc} SelIndex
RotinaRutina para seleçãoselección de índice en nola botãoopción refresh de dala telapantalla de seleçãoselección de borderôborderó.

@version    P12
@since      10/09/2021
@param      aIndices array, array de índices que poderãopodrán ser selecionadosseleccionarse
@return     numeric, índice indiceque ase serutilizará utilizadoen nala telapantalla de seleçãoselección de borderôborderó
/*/
User Function SelIndex(aIndices As Array) As Numeric

    Local nVar      As Numeric
    Local nOpca     As Numeric
    Local nSE2Index As Numeric
    Local oList     As Object
    Local oDlg      As Object

	nOpca       := 2

	DEFINE MSDIALOG oDlg TITLE "SeleçãoSelección de Índiceíndice" From 9, 0 To 32, 74 OF oMainWnd

	@0.5, 0.3 TO 12.2, 32.2 LABEL "Índices" OF oDlg
	@2.3, 3.0 Say OemToAnsi("  ")
	@1.0, 0.7 LISTBOX oList VAR nVar Fields HEADER "Índice" SIZE 250, 150 NOSCROLL ON DBLCLICK (nSE2Index := aIndices[oList:nAt][1], nOpca := 1, oDlg:End())

	oList:SetArray(aIndices)
	oList:bLine := {|| {aIndices[oList:nAt][2]}}

	DEFINE SBUTTON FROM 10.0, 260 TYPE 1 ACTION (nOpca := 1, nSE2Index := aIndices[oList:nAt][1], oDlg:End()) ENABLE OF oDlg
	DEFINE SBUTTON FROM 22.5, 260 TYPE 2 ACTION oDlg:End() ENABLE OF oDlg

    ACTIVATE MSDIALOG oDlg CENTERED

    //CasoSi se canceladaanulara ala seleçãoselección, automaticamenteautomáticamente selecionaselecciona oel primeiroprimer índice
    If nOpca == 2
        nSE2Index := 1
    EndIf

Return nSE2Index

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.