Punto de entrada COMXACOR

Línea de producto:

Microsiga Protheus

Segmento:

Backoffice

Módulo:

Compras (SIGACOM)

Rutina:

Rutina

Nombre técnico

COMXCOL

Monitor Totvs colaboración                                        



Punto de entrada:

COMXACOR

País(es):

Brasil

Base(s) de datos:

Todos

Tablas utilizadas:

SDS / SDT

Sistema(s) operativo(s):

Windows/Linux

Punto de entrada

Descripción:

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.

Ubicación:

Función COMXCOL - Monitor de Compras para Totvs Colaboración.

Eventos:

Al inicio de la rutina COMXCOL, antes de la Mbrowse del Monitor TOTVS Colaboración.

Programa funte:

COMXCOL.PRW

Función:

COMXCOL

Observaciones:

1) - Se debe utilizar en conjunto con el punto de entrada COMXLEG que tiene el objetivo de agregar leyendas en la dialog Brwlegenda.

2)
Al abrir la pantalla (Browse) del Monitor del Totvs Colaboración, se evaluará documento por documento la regla de leyenda en que se encaja el documento. El primero que se encuentre, la leyenda quedará con su color definida.

Ej:

Leyenda[1,1] está con "EMISSAO = dDatabase" / Legenda[1,2] esta WHITE
Leyenda[2,1] está con "USER = 'admin'" / Legenda[2,1] esta PINK


Accediendo a la pantalla de liberación de documentos, donde la emisión del documento = ddatabase con el usuario admin
Leyenda quedará: WHITE, porque la primera condición (leyenda[1,1]) es verdadera


Accediendo a la pantalla de liberación de documentos, donde la emisión del documento = "01/01/2021" con el usuario admin
Leyenda quedará: PINK, porque la primera condición (leyenda[2,1]) es verdadera

Parámetros:

Nombre

Tipo

Descripción

Obligatorio

PARAMIXB

Array

Reglas de leyenda y colores estándar del monitor TOTVS Colaboración.

X

 Respuesta:

Nombre

Tipo

Descripción

Obligatorio

aCoresNewArray

Reglas de leyenda y colores personalizadas para el monitor TOTVS Colaboración.

aCoresNew{"condición","color","leyenda"}

 X

 

Ejemplo:

#Include 'Protheus.ch'

User Function COMXACOR()
        Local aNewCores := aClone(PARAMIXB[1])        // Personalización del cliente

//Agregando leyenda
aAdd(aNewCores,{ 'Alltrim(DS_TIPO)=="I"' , 'BR_MARROM' })


//Modificando leyenda
aNewCores[1,2]:= "BR_PINK"

Return( aNewCores )