Sumário

Este artigo pretende descrever como “esconder” o botão “Novo documento word” nos Orçamentos de venda:

Descrição

Este botão é adicionado aos Orçamentos de venda através da função de supervisor em $LIENS (SUBSQHA):

LRET_VALUE=func AOFFDOC.OFFICE_DOC("SQH", "SQUOTE", "SQUOTE", [F:SQH]SQHNUM, isomess, GSOCIETE, GCURLEG, "")

Assim, e uma vez que não existe ponto de entrada que permita “ignorar” esta linha, terá que ser criado um SPESQH com a seguinte informação:

$ACTION
Case ACTION
    When "LIENS" : Gosub LIENS
Endcase
Return
$LIENS
  Local Integer ZRET
  ZRET = 1
  Call OUINON("hide ?", ZRET) From GESECRAN
  If ZRET=2
    Call HIDE_OFFICE
  Else
    Call DISPLAY_OFFICE
  Endif
Return
# Hide the button
Subprog HIDE_OFFICE
Local Clbfile DEF
Local Clbfile STA
Local Char ID(20)
ID = "office_link"
STA = '{"$isHidden": true}'
DEF = '{}'
Calliu "XDT_OFFICE:SETLINK" With ID, DEF, STA, "main"
End
# Display the button
Subprog DISPLAY_OFFICE
Local Clbfile DEF
Local Clbfile STA
Local Char ID(20)
ID = "office_link"
STA = '{"$isHidden": false}'
DEF = '{}'
Calliu "XDT_OFFICE:SETLINK" With ID, DEF, STA, "main"
End

Dessa forma, o botão já não estará visível: