×
Linguagem de Programação ADVPL
Perguntas Usando MT097LEG
- netogan
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11219
por netogan
Usando MT097LEG foi criado por netogan
Galera, não conheço muito sobre pontos de entrada e por isso gostaria da ajuda de vocês. Preciso alterar a legenda "Pedido Liberado por Outro Usuário" na rotina MATA097.PRX e sei que existe o ponto de entrada MT097LEG. Alguem tem algum norte para mim ?!
Obrigado !
Obrigado !
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11232
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Usando MT097LEG
User Function MT097LEG
local aLegenda :=Paramixb[1] //Modificações Necessárias
/*BrwLegenda(cCadastro,STR0062,{ ; //Legenda
{"BR_AZUL" , STR0057},; //Bloqueado (Aguardando outros niveis)
{"DISABLE" , STR0058},; //Aguardando Liberacao do usuario
{"ENABLE" , STR0059},; //Pedido Liberado pelo usuario
{"BR_PRETO", STR0060},; //Pedido Bloqueado pelo usuario
{"BR_CINZA", STR0061}}) //Pedido Liberado por outro usuario */
aLegenda[2,2] := 'Aguardando Liberacao do Usuario' // Altera aqui o texto que vc quer
return aLegenda
local aLegenda :=Paramixb[1] //Modificações Necessárias
/*BrwLegenda(cCadastro,STR0062,{ ; //Legenda
{"BR_AZUL" , STR0057},; //Bloqueado (Aguardando outros niveis)
{"DISABLE" , STR0058},; //Aguardando Liberacao do usuario
{"ENABLE" , STR0059},; //Pedido Liberado pelo usuario
{"BR_PRETO", STR0060},; //Pedido Bloqueado pelo usuario
{"BR_CINZA", STR0061}}) //Pedido Liberado por outro usuario */
aLegenda[2,2] := 'Aguardando Liberacao do Usuario' // Altera aqui o texto que vc quer
return aLegenda
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- netogan
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11255
por netogan
Respondido por netogan no tópico Usando MT097LEG
Luiz,
Ao abrir a grid na rotina MATA097.PRX, preciso verificar e pegar a seguinte situação:
IF AllTrim(RetCodUsr()) == SCR->CR_APROV .And. SCR->CR_STATUS == 5
{"BR_LARANJA", STR0061}}) //Troca para laranja diferenciando da cor parecida dos pedidos bloqueados
EndIF
Mais ou menos isso cara.
Obrigado pela ajuda.
Ao abrir a grid na rotina MATA097.PRX, preciso verificar e pegar a seguinte situação:
IF AllTrim(RetCodUsr()) == SCR->CR_APROV .And. SCR->CR_STATUS == 5
{"BR_LARANJA", STR0061}}) //Troca para laranja diferenciando da cor parecida dos pedidos bloqueados
EndIF
Mais ou menos isso cara.
Obrigado pela ajuda.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11256
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Usando MT097LEG
Veja se funfa, compila estes dois pontos de entrada:
User Function MT097COR()
Local aCores := PARAMIXB[1]
aCores[5,1] := '__cUserID <> SCR->CR_APROV .And. SCR->CR_STATUS == "05"'
AAdd(aCores,{ '__cUserID == SCR->CR_APROV .And. SCR->CR_STATUS == "05"', 'BR_LARANJA'})
Return aCores
User Function MT097LEG
local aLegenda :=Paramixb[1] //Modificações Necessárias
AAdd(aLegenda,{"BR_LARANJA", 'Liberado por Você'})
return aLegenda
User Function MT097COR()
Local aCores := PARAMIXB[1]
aCores[5,1] := '__cUserID <> SCR->CR_APROV .And. SCR->CR_STATUS == "05"'
AAdd(aCores,{ '__cUserID == SCR->CR_APROV .And. SCR->CR_STATUS == "05"', 'BR_LARANJA'})
Return aCores
User Function MT097LEG
local aLegenda :=Paramixb[1] //Modificações Necessárias
AAdd(aLegenda,{"BR_LARANJA", 'Liberado por Você'})
return aLegenda
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- netogan
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
- netogan
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11273
por netogan
Respondido por netogan no tópico Usando MT097LEG
Meu código para o tratamento no mbrowse atualmente está assim:
User Function MT097COR
Local aCores := ParamIxb[1]
aCores[5,1] := "__cUserID <> SCR->CR_APROV .And. SCR->CR_STATUS == '05'"
AAdd(aCores,{"__cUserID == SCR->CR_APROV .And. SCR->CR_STATUS == '05'", "BR_LARANJA"})
Return( aCores )
User Function MT097COR
Local aCores := ParamIxb[1]
aCores[5,1] := "__cUserID <> SCR->CR_APROV .And. SCR->CR_STATUS == '05'"
AAdd(aCores,{"__cUserID == SCR->CR_APROV .And. SCR->CR_STATUS == '05'", "BR_LARANJA"})
Return( aCores )
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.122 segundos