SetNoUpdateLine e SetNoDeleteLine

Bom dia!

Possuo uma tela em MVC onde algumas linhas não podem ser alteradas ou deletadas caso o conteúdo de um campo for igual a Automático (ZKB->ZKB_ORIGEM == 'A').

Como posso estar realizando essa tratativa? Consegui fazer a não alteração da seguinte maneira, mas achei que ficou de forma fixa pois é necessário fazer para cada campo do grid.

oStruGrid:SetProperty('ZKB_RECPAG', MODEL_FIELD_WHEN, {|| FwFldGet('ZKB_ORIGEM') == 'A' })

Existe alguma maneira de fazer isso usando os métodos SetNoDeleteLine e SetNoUpdateLine, diretamente no ModelDef, ou é necessário utilizar o bloco bLinePre do MpFormModel?

Segue exemplo da tela:

advpl
mvc

criado 13 de Sep de 2019
Giordano Trabach Xavier
4298 pontos
editado 13 de Sep de 2019

0

Boa tarde Giordano, não consegue criar essa validação do WHEN direto no SX3, acredito que seja a maneira mais correta de efetuar essa validação.
— Daniel Mendes 13 de Sep de 2019

0

Boa tarde, Daniel! É possível sim, mas como eu resolveria a questão da deleção das linhas?
— Giordano Trabach Xavier 13 de Sep de 2019

Anexos

Capturar.PNG

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 1 down
Giordano, boa tarde.

Tem um jeito sim só você criar uma função para a PréValidação do Modelo Grid,

Segue exemplo
```
oModel:AddGrid( 'ZA2DETAIL', 'ZA1MASTER', oStruZA2, { |oModelGrid, nLine,cAction, cField| COMP021LPRE(oModelGrid, nLine, cAction, cField) }

Static Function COMP023LPRE( oModelGrid, nLinha, cAcao, cCampo )

  Local lRet := .T.
  Local oModel := oModelGrid:GetModel()
  Local nOperation := oModel:GetOperation()
  // Valida se pode ou não apagar uma linha do Grid
  If cAcao == 'DELETE' .AND. nOperation == MODEL_OPERATION_UPDATE
    lRet := .F.
    Help( ,, 'Help',, 'Não permitido apagar linhas na alteração.' +;CRLF + 'Você esta na linha ' + Alltrim( Str( nLinha ) ), 1, 0 )
  EndIf

Return lRet
```
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 13 de Sep de 2019
  FELIPE CAIADO ALMEIDA
  3766 pontos
- editado 13 de Sep de 2019
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

SetNoUpdateLine e SetNoDeleteLine

Comentário

1 resposta

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl mvc ou faça a sua própria pergunta.