Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada COMXACOR

Linha de Produto:

Microsiga Protheus

Segmento:

Backoffice

Módulo:

Compras (SIGACOM)

Rotina:

Rotina

Nome Técnico

COMXCOL

Monitor Totvs colaboração                                        



Ponto de Entrada:

COMXACOR

País(es):

Brasil

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SDS / SDT

Sistema(s) operacional(is):

Windows/Linux

Ponto de Entrada

Descrição:

Ponto de Entrada utilizado no monitor TOTVS Colaboração para manipular o array com as regras para apresentação das cores dos status na Mbrowse.

Localização:

Função COMXCOL - Monitor de Compras para Totvs Colaboracao.

Eventos:

No início da rotina COMXCOL, antes da Mbrowse do Monitor TOTVS Colaboração.

Programa Fonte:

COMXCOL.PRW

Função:

COMXCOL

Observações:

1) - Deve ser utilizado em conjunto com o ponto de entrada COMXLEG que tem o objetivo de adicionar legendas na dialog Brwlegenda.

2)- Ao abrir a tela (Browse) do Monitor do Totvs Colaboração, será avaliado documento a documento em qual regra de legenda o documento se encaixa. O primeiro que encontrar, a legenda ficara com sua cor definida.

Ex:

Legenda[1,1] esta com "EMISSAO = dDatabase" / Legenda[1,2] esta WHITE
Legenda[2,1] esta com "USER = 'admin'" / Legenda[2,1] esta PINK


Entrando em tela de liberação de documentos, sendo a emissão do documento = ddatabase e com o usuário admin
Legenda ficara: WHITE, pois a primeira condição (legenda[1,1]) é verdadeira


Entrando em tela de liberação de documentos, sendo a emissão do documento = "01/01/2021" e com o usuário admin
Legenda ficara: PINK, pois a primeira condição (legenda[2,1]) é verdadeira

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB

Array

Regras de legenda e cores padrão do monitor TOTVS Colaboração.

X

 Retorno:

Nome

Tipo

Descrição

Obrigatório

aCoresNewArray

Regras de legenda e cores customizadas para o monitor TOTVS Colaboração.

aCoresNew{"condição","cor","legenda"}

 X

 

Exemplo:

#Include 'Protheus.ch'

User Function COMXACOR()
        Local aNewCores := aClone(PARAMIXB[1])        // Customização do cliente

//Adicionando legenda
aAdd(aNewCores,{ 'Alltrim(DS_TIPO)=="I"' , 'BR_MARROM' })


//Alterando legenda
aNewCores[1,2]:= "BR_PINK"

Return( aNewCores )