Rave Language
Alguém conseguiu algum documento que fale sobre a Rave Language?Pesquisei na Internet e não consegui encontrar nada mais completo, só coisas basicas como mudar a cor do fonte.Preciso formatar um CPF ou CNPJ de acordo com o tamanho do campo, o tamanho eu consegui pegar via Length, parei por aí !!
_wso
Curtidas 0
Respostas
Edmilson Borges
10/08/2011
Olá _WSO,
Se você está usando a Rave Language, quando vai imprimir alguma informação deve estar usando algum comando do tipo Print, como:
Print();
PrintLeft();
PrintJustify();
Para imprimir o CPF ou CNPJ formatado, você formata antes de mandar imprimir, utilizando comandos do Delphi mesmo, e não Rave language.
Primeira coisa, é a sua informação do CPF ou CNPJ é numérica ou texto ?
Caso seja numérica, você usará o formatfloat, exemplo:
PrintLeft(formatfloat('000.000.000-00',CPF)); ou PrintLeft(formatfloat('000.000.000-00',CNPJ)); Caso seja esteja como texto, você terá que montar sua formatação manualmente, exemplo: Suponhamos que sua informação esteja em uma variável chamada xDoc, então: if (Length(xDoc)=11) then PrintLeft(Copy(xDoc,1,3)+'.'+Copy(xDoc,4,3)+'.'+Copy(xDoc,7,3)+'-'+Copy(xDoc,10,2)) else if (Length(xDoc)=14) then PrintLeft(Copy(xDoc,1,2)+'.'+Copy(xDoc,3,3)+'.'+Copy(xDoc,6,3)+'/'+Copy(xDoc,9,4)+'-'+copy(xDoc,13,2)); Espero ter ajudado, qualquer dúvida posta aí que tentamos novamente. Um Abraço. Edmilson
PrintLeft(formatfloat('000.000.000-00',CPF)); ou PrintLeft(formatfloat('000.000.000-00',CNPJ)); Caso seja esteja como texto, você terá que montar sua formatação manualmente, exemplo: Suponhamos que sua informação esteja em uma variável chamada xDoc, então: if (Length(xDoc)=11) then PrintLeft(Copy(xDoc,1,3)+'.'+Copy(xDoc,4,3)+'.'+Copy(xDoc,7,3)+'-'+Copy(xDoc,10,2)) else if (Length(xDoc)=14) then PrintLeft(Copy(xDoc,1,2)+'.'+Copy(xDoc,3,3)+'.'+Copy(xDoc,6,3)+'/'+Copy(xDoc,9,4)+'-'+copy(xDoc,13,2)); Espero ter ajudado, qualquer dúvida posta aí que tentamos novamente. Um Abraço. Edmilson
GOSTEI 0
_wso
10/08/2011
Boa noite Edmilson, obrigado pela respoosta, mais o que quero mesmo é programar no event editor do rave reports mesmo. Vou postar abaixo um trecho do código que estou tentando desenvolver.
if length(dtvRetencaoImpostoLANCTO_IMPOSTO_DOCTO.AsString) <= 11 then self.COLOR := clBLUE; end if;
if length(dtvRetencaoImpostoLANCTO_IMPOSTO_DOCTO.AsString) <= 11 then self.COLOR := clBLUE; end if;
GOSTEI 0