| Exemplos »» | |
|
Neste exemplo veremos como é simples integrar layouts de relatórios feitos com o VisRelEdit ao COBOL (tomamos como base o COBOL Micro Focus 4.5, entretanto o VisRel é independente de linguagem, ou seja, pode ser facilmente migrado para qualquer linguagem ou versão do COBOL). | |
|
O boleto abaixo é um layout que é instalado junto com o VisRelEdit, e conforme o caso também pode ser facilmente alterado ou adaptado (Ele utiliza o código de barras Intercalado-25 que é o padrão febraban para emissão de boletos): | |
 | |
|
Depois de montar ou alterar o layout no VisRelEdit de forma visual (veja o tutorial), basta clicar no menu "Editar -> Copiar como -> Cobol - Micro Focus 4.5", que neste momento o VisRelEdit vai gerar o código fonte em COBOL e coloca-lo na área de transferência do Windows. Assim você pode cola-lo no seu programa, como abaixo em azul (Se precisar no futuro alterar o layout, basta copia-lo novamente e substituir todo o bloco em azul). Em vermelho estão as variáveis que você eventualmente utiliza no layout e consequentemente deve definir também no seu programa: | |
|
Leve em consideração que o programa abaixo é apenas demonstrativo, e foi simplificado ao máximo para facilitar o entendimento. Portanto você pode adaptar a sintaxe e/ou variáveis e pictures ao seu estilo de programação. Inclusive a forma e sintaxe que o VisRelEdit utiliza para gerar o código fonte pode ser alterada no menu "Editar -> Linguagens". | |
|
$set ans85 noosvs mf ********** O bloco em Cobol a seguir é
gerado automaticamente pelo VisRelEdit. ********** O Programador pode colar dentro do seu fonte ou tratá-lo em um copybook. ********** Comentários ou Comandos iniciais move spaces to w-linha move "MS" to w-RH-A move w-margem-superior to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "ME" to w-RH-A move w-margem-esquerda to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QJ 92" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 159900002007640001100010" to w-texto-A move "Para evitar impressão de parte do boleto em uma folha e - "o resto em outra!" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00386" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 101000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000184010111000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002001801010100010" to w-texto-A move w-banco to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 101000Times New Roman" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990018400080000110000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900186000761010100010" to w-texto-A move w-cod-1 to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990026400392010110000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900266003881010100010" to w-texto-A move w-cod-2 to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RT" to w-RH-A move "-09999" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00026" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002004920000100010" to w-texto-A move "Local do Pagamento:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "Vencimento:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 081000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010101000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002004920010100010" to w-texto-A move w-local-pag to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 101000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-vencimento to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002004920000100010" to w-texto-A move "Nome do Cedente:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "Agência/Código Cedente:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010101000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002004920010100010" to w-texto-A move w-cedente to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-agencia to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000128010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002001240000100010" to w-texto-A move "Data do Documento:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990012800136010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900130001320000100010" to w-texto-A move "Nș do Documento:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990026400080010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900266000760000100010" to w-texto-A move "Espécie Doc.:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990034400048010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900346000440000100010" to w-texto-A move "Aceite:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990039200104010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900394001000000100010" to w-texto-A move "Data Processamento:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "Nosso Número:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000128010101000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002001241010100010" to w-texto-A move w-data-doc to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990012800136010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900130001321000100010" to w-texto-A move w-numero to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990026400080010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900266000760000100010" to w-texto-A move w-especie to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990034400048010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900346000440000100010" to w-texto-A move w-aceite to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990039200104010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900394001001000100010" to w-texto-A move w-data-proc to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-nosso-num to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000128010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002001240000100010" to w-texto-A move "Uso do Banco:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900130000600000100010" to w-texto-A move "Carteira" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990019200072010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900194000680000100010" to w-texto-A move "Espécie Moeda:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990026400128010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900266001240000100010" to w-texto-A move "Quantidade:" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990039200104010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900394001000000100010" to w-texto-A move "(x) Valor" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "( = ) Valor do Documento" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000128010101000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990012800064000100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900130000601000100010" to w-texto-A move w-carteira to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990019200072010101000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900194000681000100010" to w-texto-A move w-moeda to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990026400128010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900266001240100100010" to w-texto-A move w-quantidade to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990039200104010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900394001000100100010" to w-texto-A move w-valor to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-valor-doc to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002004920000100010" to w-texto-A move "Instruções (Texto responsábilidade do Cedente)" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "( - ) Descontos/Abatimentos" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 121000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496000001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002004920000010010" to w-texto-A move w-instrucoes to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00122" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-desconto to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RT" to w-RH-A move "-09999" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "( - ) Outras deduções" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-outras-ded to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "( + ) Mora/Multa" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-mora-multa to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "( + ) Outros Acréscimos" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-acrescimos to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560000100010" to w-texto-A move "( = ) Valor Cobrado" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000496010101000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990049600160010100000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900498001560100100010" to w-texto-A move w-valor-cobrado to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000048000001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900002000440000100010" to w-texto-A move "Sacado" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990004800336010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900050003320000100010" to w-texto-A move w-sac-nome to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 140000Times New Roman" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990038400272010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900386002681000100110" to w-texto-A move "Ficha de Compensação" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000048000001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990004800336010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900050003320000100010" to w-texto-A move w-sac-end to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 140000Times New Roman" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990038400272010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 070000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000048000001000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900050001240000100010" to w-texto-A move w-sac-bairro to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900178001640000100010" to w-texto-A move w-sac-cidade to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990034400040010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 009900346000360000100010" to w-texto-A move w-sac-uf to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 140000Times New Roman" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990038400272010000000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00010" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "F 100000Arial" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000000008000111000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "L 00990000800648010110000001" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "Bg009900010006440010100010" to w-texto-A move w-cod-barras to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00060" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "T 159900002006520000100010" to w-texto-A move "Separador" to w-texto-B move w-texto to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "RH" to w-RH-A move "00018" to w-RH-B move w-RH to w-linha move function length(w-linha) to w-seq-size write seq-reg move spaces to w-linha move "QL" to w-linha move function length(w-linha) to w-seq-size write seq-reg END-PERFORM ********** FINAL: BLOCO COLADO DO VisRelEdit ********** close seq-arq STRING "VisRel.exe ", "/g Boleto.Rel /t Titulo" DELIMITED BY SIZE INTO COMANDO DISPLAY COMANDO UPON COMMAND-LINE CALL X"91" USING CODERRO-2, FUNCAO-35, COMMAND-LIN . | |
|
No computador de seus clientes instale apenas a Run-Time do VisRel (RunTimeVisRel.exe), ou então copie o arquivo C:\Windows\VisRel.exe e o arquivo Msvbvm60.dll para a sua pasta de programas. | |
|
Obs.: 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. | |
