Histórico da Página

EICSI400 - Edição de cores no MBrowse

User Function EICSI400()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))
Local cStrDisabl,cStrEnable

If cParam == "1"

cStrDisabl := "SW0->W0_CONTR == '2' // Contrato como não contrato = sim
cStrEnable := "SW0->W0_CONTR == '1' // Contrato como sim contrato = não
aRdCores := {{cStrDisabl,"DISABLE"},{cStrEnable,"ENABLE" }}

MsgInfo("Entrou no ponto de entrada '1'.")

EndIf

Return Nil

Português(Brasil)

Microsiga_Protheus11

Windows

Topconnect

"1": Parâmetro usado pelo ExecBlock para usar ponto de entrada para preencher o array aRdCoresPossibilita através da utilização do array aRdCores, para que possibilite customizar legenda na tela do MBrowse na tela de SI, via ponto de entrada.

aRdCores : Array para definir as cores.
cStrDisabl : Validação para a cor vermelha(Disable).
cStrEnable : Validação para a cor verde(Enable).

EICSI400