Exemplos »»

O exemplo abaixo demonstra como visualizar e imprimir arquivos TXT com a sintaxe do Cobol NetExpress:

       WORKING-STORAGE SECTION.

       01 CMD-EXEC-PRG.
          02  COMANDO-LINE         PIC x(250)         VALUE SPACES.
          02  COMANDO-LINE-LEN     PIC x(4)   COMP-5  VALUE 250.
          02  RUN-UNIT-ID          PIC x(8)   COMP-5  VALUE 01.
          02  STACK-SIZE           PIC x(4)   COMP-5.
          02  FLAGS                PIC x(4)   COMP-5  VALUE 0.
          02  TTY-CMD              PIC x(1)           VALUE SPACES.
          02  TTY-CMD-LEN          PIC x(4)   COMP-5  VALUE 1.
          02  STATUS-CODE          PIC x(2)   COMP-5.

       PROCEDURE DIVISION.

          MOVE "VisRel.exe /R C:\Arquivo.Rel /T NomeDaEmpresa /SV"
               TO COMANDO-LINE.
         
          CALL "CBL_EXEC_RUN_UNIT" USING  COMANDO-LINE
               BY value       COMANDO-LINE-LEN
               BY reference   RUN-UNIT-ID
               BY value       STACK-SIZE  FLAGS
               BY reference   TTY-CMD
               BY value       TTY-CMD-LEN
               RETURNING      STATUS-CODE.

Veja também:

  Visualizar e imprimir relatórios matriciais (padrão Epson) com o VisRel

  Linha de comando do modo gráfico no NetExpress

No computador de seus clientes instale apenas a Run-Time do VisRel (RunTimeVisRel.exe).

Para evitar alguns dos problemas com permissão de acesso ao registro ou instalação de arquivos no Windows XP SP3 e mais recentes como Vista e Win7, foi criada uma nova opção de instalação na pasta "Instalar no cliente" do VisRelEdit com o nome de "Versão Compacta.zip", com os arquivos abaixo:

VisRel.exe (reduzido de 3,9MB para 1,7MB)
VisRel.exe.manifest
VisRelPDF.dll
MSMAPI32.ocx
MSWINSCK.ocx
RICHTX32.ocx
vbPDF417.dll
vbZip232.dll
Msvbvm60.dll

Basta copiar esses arquivos para a sua pasta de programas.

Obs.: Se você não tem clientes com Windows 95 ou 98 não precisa enviar junto o arquivo Msvbvm60.dll acima, pois já existe nas novas versões do Windows. A versão com 3,9MB e o RuntimeVisrel.exe continuam funcionando como antes. Nunca copie o arquivo Msvbvm60.dll da pasta system de um computador para outro, ou para a sua pasta de programas, pois cada versão ou service pack do Windows tem sua própria DLL (exceto o Windows 9x).

IMPORTANTE: Ao utilizar o DialogSystem do NetExpress é necessário adicionar na linha de comando o parâmetro /SV, caso contrário a tela do VisRel pode ficar oculta pelo seu programa. E no caso de relatórios no modo gráfico (VisRelEdit), selecione o menu Configurar - Manter o relatório visível. Isso ocorre devido ao comando "REFRESH-OBJECT" que é disparado depois do comando "RETC".

Veja mais detalhes das linhas de comando do VisRel clicando aqui. Também é possível fazer relatórios mais elaborados utilizando o VisRelEdit. Por exemplo numa listagem do cadastro de produtos.


Página Principal Página Principal Página Principal Página Principal Página Principal Comprar Comprar Comprar Comprar Comprar Comprar Contato Contato Contato Contato Contato Contato + Produtos + Produtos + Produtos + Produtos + Produtos + Produtos Download Download Download Download Download Download Sobre Sobre Sobre Sobre Sobre Sobre