4D Doc Center : WR SET DOCUMENT INFO

4D Write v14

WR SET DOCUMENT INFO


WR SET DOCUMENT INFO ( area ; titulo ; tema ; autor ; empresa ; comentario )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
titulo	cadeia	Título do documento
tema	cadeia	Tema do documento
autor	cadeia	Autor do documento
empresa	cadeia	Nome da empresa
comentario	Texto	Comentários

Descrição

O comando WR SET DOCUMENT INFO INFO salva no documento a informação passada nos parâmetros. Desde o ponto de vista do usuário, a informação se mostra na caixa de diálogo aberta pelo menu Ferramentas, Informação.

O bloqueio do documento se realiza com ajuda do comando WR LOCK DOCUMENT.

Exemplo

Você quer que os usuários possam modificar só o Título, Tema e Comentários. Deve programar um método de chamada ao comando de forma que mostre seu próprio formulário quando o usuário escolha o comando Informação do menu Ferramentas.

1. No método de formulário que contém a área 4D Write, instale o método de chamada no código desta forma:

 Case of

    :(Form event=On Load)

       WR ON COMMAND(WArea;"z65OnCmd")

 End case

2. O método 'z65OnCmd' contém o seguinte código:

 C_LONGINT($1;$2;$3)

 Case of

    :($2=wr cmd doc information) `=801, se o usuário seleciona Ferramentas>Informação...

       DIALOG([TheTable];"InfoArea") `Formulário de informação personalizada

    Else

       WR EXECUTE COMMAND($1;$2) `Se o usuário seleciona as outras linhas de menus

 End case

3. No formulário de informação personalizada, chamada "InfoArea", só as variáveis vTitle, vSubject e vComments são editáveis. O método associado a este formulário é o seguinte:

 Case of

    :(Form event=On Load)

       WR GET DOCUMENT INFO(WArea;vTitle;vSubject;vAuthor;vCy;vComments;DCreat;HCreat;DModif;

       HModif;Lock)

  `Atribuição dos elementos vazios se é necessário

       If(vCy="")

          vCy:="A.C.I."

          vAuthor:=Current user

          vCreation:=String(DCreat)+" at "+Time string(HCreat)

          vModification:=String(DModif)+" at "+Time string(HModif)

       End if

    :(Form event=On Unload) `quando o formulário é fechado

       WR SET DOCUMENT INFO(WArea;vTitle;vSubject;vAuthor;vCy;vComments)

 End case