cTitulo := EcfEnfatizar() + EcfExpandidoV() + cTitulo + EcfAvancoLinha()
oImp:ImprimeRelatorioGerencial( cTitulo )
****************************************************************************
function EcfNormal()
****************************************************************************
*
* Coloca a letra em negrito
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 15:44:39
*
****************************************************************************
local Result := ''
if EcfMarca() == ecf_bematech
elseif EcfMarca() == ecf_daruma
elseif EcfMarca() == ecf_sweda
Result := Chr(16) + "N"
elseif EcfMarca() == ecf_elgin
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfEnfatizar()
****************************************************************************
*
* Coloca a letra enfatizada
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 15:44:39
*
****************************************************************************
local Result := ''//, cInicia := '', cCancela := ''
if EcfMarca() == ecf_bematech
If EcfIsMfd()
Result := Chr(27) + Chr(87) + Chr(1)
else
Result := Chr(27) + Chr(69)
end
//cCancela := Chr(27) + Chr(70)
elseif EcfMarca() == ecf_daruma
Result := Chr(17)
//cCancela := Chr(19)
elseif EcfMarca() == ecf_sweda
Result := Chr(16) + "E"
elseif EcfMarca() == ecf_elgin
//Result := ""
Result := "\x1b!"
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfExpandidoV()
****************************************************************************
*
* Coloca a letra expandido na vertical
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 17:52:03
*
****************************************************************************
local Result := ''//, cInicia := '', cCancela := ''
if EcfMarca() == ecf_bematech
If EcfIsMfd()
Result := Chr(27) + Chr(100) + Chr(1)
else
Result := Chr(27) + Chr(15) + Chr(27) + Chr(14)
end
//cCancela := Chr(27) + Chr(100) + Chr(0)
elseif EcfMarca() == ecf_daruma
Result := '<e>'
//cCancela := '</e>'
elseif EcfMarca() == ecf_sweda
Result := Chr(16) + "V"
elseif EcfMarca() == ecf_elgin
//Result := ""
Result := "\x20"
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfAvancoLinha()
****************************************************************************
*
* Salta uma linha
* Parametros:
* Retorno:
*
* Autor: Vagner Miv
* 30/10/2009 - 16:33:41
*
****************************************************************************
local Result := ''
if EcfMarca() == ecf_bematech
If EcfIsMfd()
//-- Desabilitar a formatação antes da proxima linha
Result := Chr(27) + Chr(64)
else
//-- Não necessita de comando especifico
Result := ""
end
//Result := Chr(27)
elseif EcfMarca() == ecf_daruma
Result := ""
//Result := '<br>'
elseif EcfMarca() == ecf_sweda
Result := Chr(10)
elseif EcfMarca() == ecf_elgin
Result := "\x1b!\x0\n"
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfItalico(cText)
****************************************************************************
*
* Coloca a letra em itálico
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 16:02:10
*
****************************************************************************
local Result := ''
//-- Coloca o texto italico -------------------------------------------//
If EcfMarca() == ecf_sweda
Result := Chr(16) + "I" + Chr(16) + "N"
else
Result := Chr(27) + Chr(52) + cText + Chr(27) + Chr(53)
end
Return Result
/*------------------------------------------------------------------------*/