QuebraTexto

Esta função pega o texto indicado e faz assinalamentos de quebra de linha conforme o Tamanho_Linha especificado, retornando a quantidade de linhas que será usada para imprimir o texto.

Sintaxe: Funcao QuebraTexto (Alfa Texto,Numero Tamanho_Linha,Numero Qtde_Linhas);

Parâmetros:

Nome	Tipo	Descrição
Texto	Alfa	Campo/Variável que se deseja imprimir em mais de uma linha.
Tamanho_Linha	Numero	Variável que indica a quantidade máxima de caracteres por linha.
Qtde_Linhas	Numero	Variável que indica qual é a quantidade de linhas que serão necessárias para imprimir o texto.

Tipo de retorno: Qtde_Linhas: Variável Numérica que indica qual é a quantidade de linhas que serão necessárias para imprimir o texto.

Exemplo:

@ Deseja-se imprimir o texto 'Vamos ver o que acontece quando usamos estas funções para controle de impressão de linhas de um texto mais extenso' @

@ em linhas de no máximo 30 caracteres cada. @

Definir Alfa vTexto;

Definir Alfa vFrase;

vTexto = "Vamos ver o que acontece quando usamos estas funções para controle de impressão de linhas de um texto mais extenso";

QuebraTexto (vTexto,30,vNumLin);

vLinAtu = 1;

Enquanto vLinAtu <= vNumLin

Inicio

BuscaLinhaTexto (vTexto,vLinAtu,vFrase);

ListaSecao ("Adicional_1");

vLinAtu++;

Fim;

Utilização da Função (dependentes): BuscaLinhaTexto(Alfa Texto,Numero NroLin,Alfa End LinTex);

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.3 (XTended)