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?

Eu tentei fazer o passo a passo informado, mas quando chega no passo 3 não aparece nenhuma opção para selecionar, alguém ai tem os arquivos atualizados para eu poder usar aqui?

Instalei em um computador recém formatado... Ou seja, instalação limpa.

Não tem como deixar essa propriedade aí com o valor padrão pra que ela não seja salva no DFM? Assim não daria erro em quem não tem a versão correta.

Eu tô utilizando a versão 4.15.10 do Fast e o erro acontece da mesma forma.

Bom, resolvi o problema só removendo a referência da propriedade. Segue anexo o arquivo corrigido. ACBrMDFeDAMDFEFRDM.rar

Mesmo erro do colega acima... alguma solução?

Bom será que não tem solução mesmo? Achei muito inviável as duas soluções até agora: Atualizar o windows dos clientes (que geralmente tem windows pirata), e/ou ficar compilando o executável toda vez em uma versão anterior do Delphi (Ficar sempre dependente de uma versão pra trás pra compilar é tenso).

Eu estou com o mesmo problema em alguns clientes (também sou de MG)... Geralmente os que usam certificados A1. Com A3 não apresenta o problema... Então, resolvi compilar o meu executável em uma versão mais antiga do Delphi (compilei no XE2) e imaginem só... tudo funcionou maravilhosamente!! Acredito que pode ser algum tratamento que o XE6 faz. Outra coisa que não consegui foi fazer cancelamento. Parece que ele conecta ao webservice mas não transmite informações.

Isaque, eu pensei em só fazer um Ord(Bloco_0.Registro0000.COD_VER) > 3, mais coloquei a função CodVerToStr, para caso haja alguma alteração no posicionamento dos items da classe. Mais em todo caso, da forma que você fez funciona. t+

Além do manual, o validador acusa erro de estrutura.