PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
MVC - Legenda no Grid Modelo 3
Versão:
12.1.7
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
TREIN03.PRW (anexo)
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário CHOWGUER CHOWGUER em 23/01/2018, 10:46 h
Local: PR  Registro: 29/05/2015  Postagens: 3
Bom dia amigos

Estou tentando colocar uma legenda no Grid da minha rotina Modelo 3 em MVC, porem se sucesso =,(

pelo FWMBrowse é tranquilo, porem no grid do modelo 3 esta difícil de achar alguma coisa ensinando, deu uma olha na documentação, mas até agora nada, estão gostaria de pedir ajuda :)


alguém ai sabe se é possível colocar e como?

Mensagem do Enviar e-mail Abrir o Perfil do usuário BRUSTOLIN BRUSTOLIN em 23/01/2018, 12:37 h
Local: SP  Registro: 20/06/2011  Postagens: 19
Boa tarde.

      Para este cenário é necessário criar um novo campo sendo ele virtual/real porém seu tipo deve ser BMP.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário JALBERTO JALBERTO em 23/01/2018, 12:53 h
Local: RS  Registro: 20/08/2009  Postagens: 167
Vai ser da maneira antiga ! criando um campo e colocando ali o ícone das cores...

Jorge Alberto

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário CHOWGUER CHOWGUER em 23/01/2018, 13:29 h
Local: PR  Registro: 29/05/2015  Postagens: 3
@BRUSTOLIN

Humm, tem algum exemplo pra me mostrar?

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário EMERSON.EN EMERSON.EN em 23/01/2018, 15:12 h
Local: SP  Registro: 20/08/2010  Postagens: 670
é isso?

// Instanciando a classe
oMark := FWMarkBrowse():New()

// Definição da tabela a ser utilizada
oMark:SetAlias(‘ZA0‘)

// Define se utiliza controle de marcação exclusiva
oMark:SetSemaphore(.T.)

// Define o titulo do browse de marcacao
oMark:SetDescription(‘Seleção do Cadastro de Autor/Interprete‘)

//// Define o campo que sera utilizado para a marcação
//oMark:SetFieldMark( ‘ZA0_OK‘ )

// Define a legenda
oMark:AddLegend( "ZA0_TIPO==‘1‘", "YELLOW", "Autor" )
oMark:AddLegend( "ZA0_TIPO==‘2‘", "BLUE" , "Interprete" )

//// Definição do filtro de aplicacao
//oMark:SetFilterDefault( "ZA0_TIPO==‘1‘" )

// Ativacao da classe
oMark:Activate()

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário FA6RICIO FA6RICIO em 14/01/2019, 16:10 h
Local: DF  Registro: 02/02/2010  Postagens: 9
Consegui fazer, faz da seguinte forma no model você tem que criar um campo virtual do tipo imagem para receber a legenda depois vc tem que o criar no view também segue abaixo exemplo

No model antes de addgrid você adiciona um campo virtual na variável de estrutura da tabela desta forma, é nesta declaração, posição 11 o darray, que colocamos a regra para a legenda

     oStruSE1:AddField( ;
                        AllTrim(‘‘) , ;                // [01] C Titulo do campo
                        AllTrim(‘‘) , ;                // [02] C ToolTip do campo
                        ‘E1_LEGEND‘ , ;               // [03] C identificador (ID) do Field
                        ‘C‘ , ;                     // [04] C Tipo do campo
                        50 , ;                      // [05] N Tamanho do campo
                        0 , ;                      // [06] N Decimal do campo
                        NIL , ;                     // [07] B Code-block de validação do campo
                        NIL , ;                     // [08] B Code-block de validação When do campo
                        NIL , ;                     // [09] A Lista de valores permitido do campo
                        NIL , ;                     // [10] L Indica se o campo tem preenchimento obrigatório
                        { || Iif(SE1->E1_SALDO <> SE1->E1_VALOR, "BR_VERMELHO","BR_VERDE") } , ;           // [11] B Code-block de inicializacao do campo
                        NIL , ;                     // [12] L Indica se trata de um campo chave
                        NIL , ;                     // [13] L Indica se o campo pode receber valor em uma operação de update.
                        .T. )                      // [14] L Indica se o campo é virtual



Depois no grid você cria o campo antes de vincular a estancia do grid a do model da seguinte forma

     oStruSE1:AddField( ;                      // Ord. Tipo Desc.
     ‘E1_LEGEND‘                        , ;        // [01] C   Nome do Campo
     "00"                              , ;     // [02] C   Ordem
     AllTrim( ‘‘    )        , ;     // [03] C   Titulo do campo
     AllTrim( ‘‘ )       , ;     // [04] C   Descricao do campo
     { ‘Legenda‘ }           , ;     // [05] A   Array com Help
     ‘C‘                             , ;     // [06] C   Tipo do campo
     ‘@BMP‘               , ;     // [07] C   Picture
     NIL                             , ;     // [08] B   Bloco de Picture Var
     ‘‘                             , ;     // [09] C   Consulta F3
     .T.                             , ;     // [10] L   Indica se o campo é alteravel
     NIL                             , ;     // [11] C   Pasta do campo
     NIL                             , ;     // [12] C   Agrupamento do campo
     NIL                                        , ;     // [13] A   Lista de valores permitido do campo (Combo)
     NIL                             , ;     // [14] N   Tamanho maximo da maior opção do combo
     NIL                             , ;     // [15] C   Inicializador de Browse
     .T.                             , ;     // [16] L   Indica se o campo é virtual
     NIL                             , ;     // [17] C   Picture Variavel
     NIL                             )       // [18] L   Indica pulo de linha após o campo


Estou colocando um fonte de exemplo em anexo.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário CELIOFAEL CELIOFAEL em 26/03/2021, 13:13 h
Local: MG  Registro: 25/03/2021  Postagens: 2
Não consegui acessar esse fonte em anexo.
Desde já Agradeço

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal