Jump to content

Mario Inacio

Membros
  • Posts

    115
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Mario Inacio

  1. Boa tarde. Use a função Poem_zeros do ACBRUTIL para preencher a esquerda com zeros.
  2. Bom dia. A implementação ficou correta mas somente para quando o emitente for de SC. Num caso específico que tenho, a empresa é do RS e a abriu uma conta na Unicred de SC, então a regra criada não é executada. A regra deveria estar vinculada ao estado da Agência emissora, mas de qualquer forma contornei o problema, já preenchendo o campo com 15 caracteres.
  3. Bom dia. Isso, passei o NumeroDocumento com zeros a esquerda. Obrigado
  4. Bom dia. Recebi o Manual da Unicred, e na página 10 cita o alinhamento a direita. Cobexpess - Boleto padrao + Layout 240.pdf
  5. Bom dia. Realmente o manual não contempla dessa forma, mas na validação em https://cobhomologador.unicred.com.br/motor retorna os seguintes erros.
  6. Bom dia. Aproveitando o tópico, envio em anexo a UNIT do banco, sendo que fez necessária alteração na linha 432, em que o banco solicitou o alinhamento do NumeroDocumento a direita, e estava a esquerda. ACBrBancoUnicredES.pas
  7. Boa tarde. Conforme solicitado pela Homologação da Unicred, alterei na Unit em anexo o nome de 'UNICRED DO BRASIL" para apenas "UNICRED" ACBrBancoUnicredES.pas
  8. fpNome é usado na procedure GerarRegistroHeader240 e o manual exige que o nome seja CREDSOL CONFEDERACAO. fpCodigosMoraAceitos é usado quando se atribui conteudo a propriedade CodigoMora quando dispara o SetCodigoMora que está na unit ACBrBoleto, e manual apenas permite valores 0 ou 1, e o default de fpCodigosMoraAceitos está como 1 e 2 setado no create da mesma Unit.
  9. Boa tarde. Apesar da alteração não ter sido incluido ao SVN, baixei e tentei gerar a remessa do Cresol em CNAB240, pois na homologação, algumas inconsistências ocorreram na versão disponível no SVN. Tento alterar as propriedades abaixo e não são efetivadas, o que estaria errado? constructor TACBrBancoCresol.Create(AOwner: TACBrBanco); begin inherited create(AOwner); fpNumero := 133; fpNome := 'CRESOL CONFEDERACAO'; // alterado por mario 22/02/2022 fpCodigosMoraAceitos := '01'; // incluido por mario 22/02/2022 fpDigito := 3; fpNumeroCorrespondente := 0; FNumeroSequencialRegistroNoLote := 0; fpLayoutVersaoArquivo := 84; fpLayoutVersaoLote := 42; end; ACBrBancoCresol.pas Faltou o Manual manual_cobrança_integrada_cooperado_240.pdf
  10. Boa tarde. Estou homologando o Banco Safra e conforme o manual em anexo para CNAB210, na posição 221 a 221 (Código para Protesto) deve obedecer a lista constante em C026 (Pagina 150), sendo que a versão atual do ACBrBoleto setava para '0' caso não houvesse Protesto. Alterei a Unit ACBrBancoSafra (linha 733) para setar corretamente para 'Instrucao1 := '3'; // Não protestar' Link Manual Safra: https://www.safra.com.br/data/files/47/71/9D/F6/C451971028EDDE77E03EF9C2/Layout padrao CNAB240 V 10 07 - 03_11_20 _1_.pdf Segue em anexo, Unit alterada para avaliação. ACBrBancoSafra.pas
  11. Tentei em todos os modelos e quando emitia, fazia da mesma forma. Consegui contato com o fornecedor, e após analise, o mesmo relatou que esse modelo de placa específico dessa impressora está descontinuado e não atende os novos requisitos. Aquele dilema do cliente, quer comprar barato. Obrigado pela atenção.
  12. Bom dia Daniel. Sim o modelo ppEscDiabold . Emitiu dessa forma. Estou em contato com o fornecedor, pois pelo manual, o firmware nele citado está diferente do atual da impressora. Qualquer novidade, posto aqui.
  13. Boa tarde. Sei que é um tópico antigo, mas foi um dos únicos que encontrei falando de Diebold. Meu cliente comprou 6 impressoras dessas no mercado livre. Pela configuração impressora, é possível saber se o PosPrinter é compatível? Pois até imprime, mas sem formatação nenhuma, e muito menos QrCode.
  14. Bom dia. Vocês também estão recebendo essa rejeição em NFC-e hoje em SC ? Alguma confirmação de que há erro na data do servidor da fazenda?
  15. Boa tarde. Estou com erro ao imprimir em Raw. O demo imprime normal, então fiz um teste criando o método que uso dentro do demo e emite normal, colei o mesmo trecho no meu sistema apresenta o erro no spooler da impressora: Código testado no demo e no meu sistema, no demo funciona: var LocalPosPrinter: TACBrPosPrinter; SL: TStringList; begin try LocalPosPrinter := TACBrPosPrinter.Create(nil); SL := TStringList.Create; sl.Add('teste de impressao'); with LocalPosPrinter do begin Porta := 'RAW:Daruma DR700 Spooler'; Modelo := ppEscDaruma; Ativar ; Buffer.Text := SL.Text; Imprimir; end; finally sl.free; LocalPosPrinter.Free ; end; end; Alguém já passou por isso?
  16. Olá. Realmente, meu método estava para Assincrono. Alterei para Sincrono e autorizou normalmente. Obrigado pela ajuda. Abração
  17. Boa tarde. Com componente devidamente atualizado, estou recendo a rejeição "Rejeicao: Tipo Autorizador do Recibo diverge do Orgao Autorizador" na NFC-e. Chegaram a se depara com o problema? Esqueci de mencionar que está ocorrendo tanto em SC quanto no RS em homologação
  18. Não tinha me atentado no teu primeiro exemplo no parâmetro do tipo TACBrDFe . Agora ficou bom e centralizadas todas as configurações. Obrigado pela ajuda
  19. Ola. Ainda não é assim que imagino, pois o parâmetro dessa função pode ser NFe, CTe ou MDFe. Deveria ser variant. procedure CarregaComponente(vComponente: variant); begin vComponente.Configuracoes.Geral.idCSC := <idCSC>; vComponente.Configuracoes.Geral.VersaoQrCode := veqr200; end;
  20. Ola Big. Não vou usar apenas NF-e, quero chamar para todos os DF-e e parametrizar em um único local. Seria assim as chamadas: CarregaComponente(ACBrNfe) ou CarregaComponente(ACBRCte) ou CarregaComponente(AcbrMDfe) Dentro da função CarregaComponente identificaria o componente que chamou e usaria com "with"
  21. Boa tarde. Estou alterando a forma de configurar o componente em minha aplicação e estava tentando fazer uma função genérica, mas precisava de classe/função que identificasse o componente que chegou ali. Da seguinte forma: procedure CarregaComponente(vComponente: variant); begin // essa funcao abaixo precisaria identificar o componente que chamou with ClasseQueIdentificaOComponenteQueChamou(vComponente) do begin with Configuracoes.Geral do begin SSLLib := TSSLLib(fieldbyname('SSLLib').asInteger); SSLCryptLib := TSSLCryptLib(fieldbyname('CryptLib').asInteger); SSLHttpLib := TSSLHttpLib(fieldbyname('HttpLib').asInteger); SSLXmlSignLib := TSSLXmlSignLib(fieldbyname('XmlSign').asInteger); Salvar := True; ExibirErroSchema := True; RetirarAcentos := True; FormaEmissao := TpcnTipoEmissao(fieldbyname('formaemissao').asInteger); ModeloDF := TpcnModeloDF(1); VersaoDF := TpcnVersaoDF(fieldbyname('versao').asInteger); IdCSC := fieldbyname('idtokenhom').asString; CSC := Trim(fieldbyname('tokenhom').asString); if fieldbyname('ambiente').asInteger = 0 then begin //producao IdCSC := fieldbyname('idtoken').asString; CSC := fieldbyname('token').asString; end; VersaoQRCode := veqr200; end; end; end; Teria alguma nesse sentido?
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.