Alinhar texto justificado com Protheus
Muitos de nós já nos deparamos com esta situação, alinhar um texto justificado em relatórios.
Sabemos que o padrão do sistema é: alinhar a direita, a esquerda e centralizado. Mas o bendito justificar só customizando.Mas pesquisa daqui, pesquisa dali, eis uma função, não justifica o texto 100%, mas já faz muita coisa.
Você pode usar a função praticamente em qualquer lugar de seu fonte, seja num relatório, num formulário ou mesmo num alerta.
Função: AV_Justifica()
Sintaxe: AV_Justifica(SeuTexto)
Exemplos:
|
1 2 3 4 5 6 7 8 |
User Function fJustifica() Local cTexto := "" cTexto := "Caso a variável Private aRotina tenha sido declarada no fonte, o parâmetro nOpc deverá ser informado com o número da linha do vetor aRotina. Caso contrário utilizará sua propriedade com o mesmo nome com seguinte formato:"+CRLF+CRLF cTexto += "Vetor com as rotinas que serão executadas na MBrowse e que definira o tipo de operação que esta sendo executada (inclusão, alteração, exclusão, visualização, pesquisa, ...) no formato:"+CRLF+CRLF cTexto += "A validação dos campos criados na enchoice é executada na seguinte ordem: validação de usuario (X3_VLDUSER) , depois validação do sistema (X3_VALID) e por último a trigger." MsgInfo(AV_Justifica(cTexto)) Return |
ou
|
1 2 3 |
oPrn:Say(100,010,AV_Justifica(cTexto),aFontes:ARIAL_08_BOLD) cMemo := AV_Justifica(MEMOLINE(TRB->MEMO,100,6)) |
ou