Descrição

EICSI400 - Edição de cores no MBrowse

Observações

 

Exemplos

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
cStrEnable := "SW0->W0_CONTR == '1' // Contrato como sim
aRdCores := {{cStrDisabl,"DISABLE"},{cStrEnable,"ENABLE" }}

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

EndIf

Return Nil

Preview

Veja também

 

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Windows

Compatível com as Bases de Dados

Topconnect

Updates

 

Parâmetros

"1" : Parâmetro usado pelo ExecBlock para usar ponto de entrada para preencher o array aRdCores

Retorno

 

Eventos de chamada do Ponto de Entrada

 

Variáveis

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

Programa Fonte

EICSI400