EMBarbosa

Obrigado pelo retorno.

Tente o que o BigWings disse antes: Veja também esse tópico:

Daí precisa verificar se realmente essa informação está sendo fornecida. Dá uma olhada em "ACBrTEFD1.Resp.LeInformacao" e nos arquivos da transação.

Isso aí.

Geralmente pela mensagem de erro exibido na tela. Se nenhuma foi exibida, entre em contato com quem lhe forneceu o programa.

Funcionam sim Daniel. Se não me engano, foram introduzidas entre o Delphi 3 ou 5 para atender objetos COM. De qualquer forma, seria bom compilar no Delphi 7 e verificar se há algum problema.

Acho que não dá pra saber só com o código que postou nesse site aí. Sugiro fazer o seguinte: procure no código onde é levantada a exception que tem o texto 'Nenhum WebService selecionado'. Coloque um BreakPoint lá. Execute o programa e faça o seu teste. Quando o programa parar no breakpoint que você adicionou, verifique porque ele não foi para o caminho que esperava.

Como assim fazer cópia pra ficar bem menor?

Basta marcar o post com a resposta que lhe ajudou. Tem um botão "definir como melhor resposta" do lado esquerdo de cada post após o primeiro.

Não sei se leu o tópico mas o criador do tópico disse "Tópico resolvido" há cerca de 4 anos atrás. A propósito, nem sempre o título do tópico é o assunto dele. As vezes o título é mais abrangente.

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.

Geralmente significa que a porta não está disponível. Pode ser que ela esteja sendo utilizada por outro programa, que seu programa não tenha permissão ou até que ela não exista.

Não tinha um requisito do PAF-ECF que pedia pra ler sempre o subtotal? Se você não for ler do ECF, tente armazenar numa variável ao invés de no BD. Use o que está no BD apenas se o ECF for desligado.

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ê.

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ê...

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.

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.

Mas no tópico que você citou a implementação foi feita na época para PPLB, não é mesmo?

não entendi... o.o''

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.

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.

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.

Como assim travado?

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?