EMBarbosa

Moderadores
  • Total de ítens

    5.496
  • Registro em

  • Última visita

  • Days Won

    61

EMBarbosa last won the day on October 31 2016

EMBarbosa had the most liked content!

Reputação

847 Excellent

Sobre EMBarbosa

  • Rank
    Moderador

Profile Information

  • Sexo
    Masculino
  • Localização
    MG

Últimos Visitantes

3.373 visualizações
  1. Olá @naiaragomesp, Por favor, sempre crie um novo tópico para dúvidas diferentes. Isso ajuda nosso fórum ficar mais organizado. Veja nossas regras, neste link aqui, em especial a "2.2 - Permaneça no assunto". Dessa vez eu dividi o tópico para você.
  2. Veja essa apresentação: https://www.firebirdsql.org/file/community/conference-2014/pdf/06_creating_logs_for_data_auditing.pdf Crie um tópico novo para uma dúvida nova conforme as regras. Veja neste link aqui, em especial a "2.2 - Permaneça no assunto". Dessa vez o tópico foi dividido pra você...
  3. Olá Christian, Eu não tenho aqui uma impressora dessas para testar. Talvez a alteração seja algo do tipo: procedure TACBrETQPpla.ImprimirTexto(Orientacao: TACBrETQOrientacao; Fonte, MultiplicadorH, MultiplicadorV, Vertical, Horizontal: Integer; Texto: String; SubFonte: Integer = 0; ImprimirReverso : Boolean = False); var eixoY, eixoX, Smooth: String; ReversoInicia, ReversoTermina: String; begin Cmd := ''; if (Fonte < 0) or (Fonte > 10) then Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 10 para Fonte')); if (SubFonte < 0) or (SubFonte > 999) then Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 999 para SubFonte')); if ImprimirReverso then begin ReversoInicia := 'A5' + CRLF; ReversoTermina := 'A1' + CRLF; end; { Multiplicador Horizontal, Multiplicador Vertical: De 0 a 9 e de A até O representa as escalas de multiplicação (A=10, B=11,..., O=24)} Vertical := ConverterUnidade(Vertical); if (Vertical > 9999) then Raise Exception.Create(ACBrStr('Vertical deve ter no máximo 4 dígitos')); eixoY := IntToStrZero(Vertical, 4); Horizontal := ConverterUnidade(Horizontal); if (Horizontal > 9999) then Raise Exception.Create(ACBrStr('Horizontal deve ter no máximo 4 dígitos')); eixoX := IntToStrZero(Horizontal, 4); if Length(Texto) > 255 then Raise Exception.Create(ACBrStr('Tamanho maximo para o texto 255 caracteres')); if Fonte < 9 then Smooth := '000' else Smooth := IntToStrZero(SubFonte, 3); Cmd := IntToStr(Integer(Orientacao) + 1) + Chr(48+Fonte) + MultiplicadorToStr( MultiplicadorH ) + MultiplicadorToStr( MultiplicadorV ) + Smooth + eixoY + eixoX + Texto; if ImprimirReverso then ListaCmd.Add(ReversoInicia); ListaCmd.Add(Cmd); if ImprimirReverso then ListaCmd.Add(ReversoTermina); end; Se quiser testar, mas é bem possível que eu tenha esquecido de alguma coisa.
  4. O que você mostrou no código é que o parâmetro também é passado para a função da classe PPLA. Mas isso não significa que esteja implementado para a PPLA. O parâmetro é passado e caso a classe PPLA tivesse a implementação poderia utilizá-lo. Mas pelo que você mostrou o parâmetro não é consultado em nenhum momento, certo? Me parece que continua sendo necessário verificar o manual da linguagem PPLA se ela permite esse tipo de impressão (inverso | reverso | tarja) e depois implementar.
  5. Mas no tópico que você citou a implementação foi feita na época para PPLB, não é mesmo?
  6. não entendi... o.o''
  7. Outra opção é você utilizar diretamente o gbak, que é o utilitário de backup do Firebird. Aqui uma lista de perguntas frequentes sobre backup do Firebird.
  8. Como assim? Você está fazendo o debug do código e verificando passo a passo o comportamento do seu código? Qual a mensagem de erro que aparece? Esses comandos parecem os retirados do PosPrinterTeste. Você está salvando e carregando as configurações do componente? Mais uma coisa, por favor, anexe o log do componente.
  9. Verdade. O uso de packers gratuitos é geralmente malvisto pois são muito utilizados por malwares. A heurística de um antivírus geralmente acusa o executável como possível malware.
  10. Como assim travado?
  11. Acho que só quem fez o software pode realmente te falar. Mas se cada um usar a dll de sua respectiva pasta esse problema não vai acontecer, certo?
  12. 2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.
  13. Existem outras ferramentas no mercado que também fazem isso. Basta procurar.