CrasH

Vasculhando o código e as propriedades, acabei encontrando uma forma de informar isso. Existe um evento do componente chamado "QuandoEfetuarPagamento" e lá é possivel informar isso. if fPagtoDinheiro then begin Det.indPag := TpcnIndicadorPagamento.ipVista; Det.tPag := TpcnFormaPagamento.fpDinheiro; end else if DM.IBQNumerariosTipo.AsString = 'C' then begin Det.indPag := TpcnIndicadorPagamento.ipPrazo; Det.tPag := TpcnFormaPagamento.fpCreditoLoja; end else if DM1.IBQNumerariosTipo.AsString = 'Q' then begin Det.indPag := TpcnIndicadorPagamento.ipPrazo; Det.tPag := TpcnFormaPagamento.fpCheque; end else if DM1.IBQNumerariosTipo.AsString = 'T' then begin Det.indPag := TpcnIndicadorPagamento.ipPrazo; Det.tPag := TpcnFormaPagamento.fpCartaoCredito; if RemoveAcentos(AnsiLowerCase(DM1.IBQNumerariosLookForma.AsString)).Contains('debito') then begin Det.indPag := TpcnIndicadorPagamento.ipVista; Det.tPag := TpcnFormaPagamento.fpCartaoDebito; end; end else if DM1.IBQNumerariosTipo.AsString = 'O' then begin Det.indPag := TpcnIndicadorPagamento.ipVista; Det.tPag := TpcnFormaPagamento.fpOutro; end else begin Det.tPag := TpcnFormaPagamento.fpOutro; Det.xPag := DM1.IBQNumerariosLookForma.AsString; end;

Hoje, dia 01/07/2024 foi ativada uma NT que retorna rejeição caso o grupo card esteja informado e o campo tpPag = 99. Como utilizo ECF Virtual, não encontrei uma forma de informar o tipo da forma de pagamento, e nesse caso, o componente sempre marca como 99. Se alguem puder me ajudar, agradeço imensamente.

Obrigado meu querido.

Tem como postar esse instalador recompilado? Não tenho os componentes pra compilar. Agradeço.

Segue a correção das descrições dos tipos de ocorrencia. Aconteceu esse mesmo problema a um tempo atrás e eu subi a correção. Tem que sempre adicionar no array das descrições quando adicionar um tipo novo de remessa/retorno. ACBrBoleto.pas

Tentando compilar o projeto em modo CONSOLE, apresentava um erro solicitando WSRegisterDialog. Verificando o código, achei o problema: Deve-se trocar a linha 1845: Uses Forms, Math, dateutils, strutils, ACBrBoletoWS, para Uses {$IFNDEF NOGUI}Forms,{$ENDIF} Math, dateutils, strutils, ACBrBoletoWS, Segue o arquivo corrigido abaixo. ACBrBoleto.pas

Mesmo erro aqui. Delphi 10.4.2

Segue o arquivo com as modificações para o funcionamento para cidade de Governador Valadares. O provedor continua o mesmo (SigISS) porém o layout é um pouco diferente para essa cidade. pnfsNFSeW_SigISS.pas

Bom, corrigido não foi. Estou com a última versão do acbr.

Estava com um problema sério quando baixava os retornos do banco. A ocorrência nunca batia com o que o banco enviava. Analisando o código do ACBrBoleto.pas eu descobri que o campo o array que salva as descrições das ocorrências não estão coerentes com a classe TACBrTipoOcorrencia. Estão faltando 3 itens nessa lista. 'Remessa Sustar Protesto e baixar', 'Remessa Sustar Protesto e manter em carteira', 'Remessa Resusa Alegação do Sacado', Segue o arquivo corrigido. ACBrBoleto.pas

Consegui fazer como vc disse, muito obrigado!

Boa tarde, quando eu informo zero ele retorna um erro: "Rejeição: Consumo Indevido (Deve ser utilizado o ultNSU nas solicitações subsequesntes."

Bom dia, existe alguma forma de consultar o valor do UltNSU? Eu sei que é de responsabilidade do sistema manter esse número, porém devido a uma perda do banco de dados, um cliente meu não possui mais esse codigo. Além disso, em casos de subistituição do sistema de gestão, o usuário perde o acesso à consulta? Obrigado.

Muito obrigado.. Eu acabei marcando no componente pra ignorar o logo. Vou olhar como funciona na impressora.

Bom dia, estou utilizando o componente TACBrNFeDANFeESCPOS pra fazer a impressão NFCe e sempre que imprime na impresssora Bematech, sai uma foto de uma mulher no topo da impressão. Alguem sabe o que fazer?