EMBarbosa

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

O botão pra marcar melhor resposta está ao lado esquerdo dos posts.

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.

Veja as propriedades "SepararPorAno" e "SepararPorMes". Veja também a propriedade "TArquivosConf.OrdenacaoPath", para a ordem

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á, Talvez você precise especificar a codificação ou converter o arquivo ao trabalhar com ele. Embora eu não trabalho com o COBOL, me parece que ele permite fazer essas conversões. Veja: http://ibmmainframes.com/about39478.html https://stackoverflow.com/q/39706092/460775

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

A última vez que fiz essa homologação, eles não implicaram com essa mensagem. Talvez porque o programa sempre cancelava o cupom nesses em casos de queda de energia após o pagamento. Seria bom você questionar.

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.

Realmente, parece que ainda não está disponível. Mas existe uma outra possibilidade utilizando o modelo não fiscal. Crie/altere o arquivo "ACBrECF001.ini" na pasta do executável. Depois altere nele o parâmetro NumECF dentro da seção Variaveis. Por exemplo: [Variaveis] NumECF=003 Estado=2 Aviso_Legal=NAO IE=012.345.678.90 CNPJ=01.234.567/0001-22 PAF=ACBrMonitor IM=1234-0 NumSerie= CRO=1 NumCupom=0 NumGNF=0 NumGRG=0 NumCDC=0 NumCER=0 GrandeTotal=0 VendaBruta=0 NumCCF=0 DiaMovimento=20/06/2017 HorarioVerao=0 ReducoesZ=0 LeiturasX=0 COOInicial=0 COOFinal=0 SubTotal=0 TotalPago=0 CuponsCancelados=0 CuponsCanceladosTotal=0 Operador= O ACBrMonitor deve buscar os dados dentro deste arquivo e preencher as propriedades concordemente...

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?

Me parece algo semelhante a esse tópico só que para o ACBrMonitor:

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