Jump to content

Elvis Hotz

Membros
  • Posts

    39
  • Joined

  • Last visited

Recent Profile Visitors

1,227 profile views

Elvis Hotz's Achievements

Contributor

Contributor (5/14)

  • Dedicated Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done

Recent Badges

0

Reputation

  1. boa tarde, carlosinfoteen obrigado pelo retorno, removendo as tag referente ao FCP autoriza normal, vou verificar se não deve ser informado essas tag para NFCe
  2. Bigwings obrigado pelo retorno. Entendi a sua explanação. Mas vou explicar melhor o que acontece é que quando tentando emitir uma nfce para consumidor não identificado, por exemplo com CFOP 5656 gás de cozinha. Ele retorna erro não catalogado. Se informado um CPF autoriza normalmente. Eu citei as tags do destinatário pq foi a única coisa que é diferente de um xml para o outro.
  3. Boa noite, estou com um problema na geração de nfce para consumidor não identificado, quando cfop 5656 (gas de cozinha) ou com cfop 5405, em ambos cfop não gera o grupo de tag referente ao destinatário. Se informar um cliente com cpf ele gera normal, só acontece quando é cliente não identificado.Se alguém já passou por isso e poder dar uma dica agradeço.
  4. Bom dia, implementei usando minhas próprias funções, pois a Elotech não tem o padrão ABRASF
  5. Acredito que seja na hora de configurar o componente, esta dando Agencia\Conta do arquivo inválido, na hora que vai ler o arquivo, me tira uma duvida, as configurações para ler o retorno são as configurações da conta Sicoob, ou do banco correspondente?
  6. Uma duvida Joel, os retornos você esta conseguindo ler normalmente com essa unit que você disponibilizou?
  7. Bom Dia, realmente se for colocar o tamanho do nosso numero conforme pede o manual, ele fica do jeito que vc falou, e como estava com pressa para homologar e para não alterar os fontes do acbr eu setei o tamanho máximo do nosso número para 1, assim deu certo. outro detalhe ao gerar a remessa tem duas funçoes que tive que alterar no ACBrBancoBradescoSICOOB na function GerarRegistroHeader400 deixei assim -> with ACBrBanco.ACBrBoleto.Cedente do begin wLinha:= '0' + // ID do Registro '1' + // ID do Arquivo( 1 - Remessa) 'REMESSA' + // Literal de Remessa '01' + // Código do Tipo de Serviço PadRight( 'COBRANCA', 15 ) + // Descrição do tipo de serviço PadLeft( Agencia, 13, '0') + // Código da Cooperativa estava assim -> PadLeft( Agencia + AgenciaDigito, 13, '0') PadLeft( CodigoCedente, 7, '0') + // Código de Cobrança PadRight( Nome, 30) + // Nome da Empresa IntToStr( 756 ) + PadRight('BANCOOB', 15) + // Código e Nome do Banco(756 - Sicoob) FormatDateTime('ddmmyy',Now) + Space(08) + // Data de geração do arquivo + brancos 'SX' + // Identificação do Sistema IntToStrZero(NumeroRemessa,7) + Space(277) + // Nr. Sequencial de Remessa + brancos IntToStrZero(1,6); // Nr. Sequencial de Remessa + brancos + Contador ARemessa.Text:= ARemessa.Text + UpperCase(wLinha); end; outra function GerarRegistroTransacao400 linha 1347 with ACBrBoleto do begin if Mensagem.Text <> '' then aMensagemCedente:= Mensagem[0]; wLinha:= '1' + // ID Registro StringOfChar( '0', 19) + // Dados p/ Débito Automático PadLeft( Cedente.Agencia, 10, '0') + // Código da Cooperativa Estava assim ->PadLeft( Cedente.Agencia + Cedente.AgenciaDigito, 10, '0') + PadLeft( Cedente.CodigoCedente, 7, '0') + // Código de Cobrança PadRight( SeuNumero, 25, ' ') + // Número de Controle de Participantes StringOfChar( '0', 8) + // ZEROS PadRight(aNossoNumero , 11, '0') + // Nosso Número aDigitoNossoNumero + // Digito Verificador do Nosso Número IntToStrZero( round( ValorDescontoAntDia * 100), 10) + // Desconto bonificação por dia TipoBoleto + 'N' + Space(14) + // Tipo Boleto(Quem emite) + 'N'= Nao registrar p/ Débito automático aOcorrencia + // Identificação da Instrução PadRight( NumeroDocumento, 10) + // Número do Documento FormatDateTime( 'ddmmyy', Vencimento) + // Data do Vencimento do Título IntToStrZero( Round( ValorDocumento * 100 ), 13) + // Valor do Título StringOfChar('0',8) + PadRight(aEspecie,2) + 'N' + // Zeros + Especie do documento + Idntificação(valor fixo N) FormatDateTime( 'ddmmyy', DataDocumento ) + // Data de Emissão aProtesto + // 1ª Instrução + 2ª Instrução IntToStrZero( round(ValorMoraJuros * 100 ), 13) + // Valor a ser cobrado por dia de Atraso IfThen(DataDesconto < EncodeDate(2000,01,01),'000000', FormatDateTime( 'ddmmyy', DataDesconto)) + // Data Limite para Concessão de Desconto IntToStrZero( round( ValorDesconto * 100 ), 13) + // Valor do Desconto StringOfChar('0',13) + // Zeros IntToStrZero( round( ValorAbatimento * 100 ), 13) + // Valor do Abatimento a ser concedido ou cancelado aTipoSacado + PadLeft(OnlyNumber(Sacado.CNPJCPF),14,'0') + // Tipo de inscrição do sacado + Número de inscrição do sacado PadRight( Sacado.NomeSacado, 40, ' ') + // Nome do Sacado PadRight( Sacado.Logradouro + ' ' + Sacado.Numero + ' ' + Sacado.Bairro + ' ' + Sacado.Cidade + ' ' + Sacado.UF, 40) + // Endereço Completo space(12) + PadRight( Sacado.CEP, 8 ) + // 1ª Mensagem + CEP space(1) + // Branco PadLeft(OnlyNumber(Sacado.SacadoAvalista.CNPJCPF),14,'0') + // Inscrição do Sacador / Avalista aTipoSacador + // Tipo do Documento do Sacador / Avalista PadRight( Sacado.SacadoAvalista.NomeAvalista , 43, ' ') ; // Sacador / Avalista wLinha := wLinha + IntToStrZero(aRemessa.Count + 1, 6); // Nº SEQÜENCIAL DO REGISTRO NO ARQUIVO wLinha := wLinha + DoMontaInstrucoes1; aRemessa.Text:= aRemessa.Text + UpperCase(wLinha); end; end;
  8. Bom dia, Juliana Tamizou fiz a alteração sugerida e funcionou certinho, muito obrigado, boleto e arquivo remessa homologados. Muito Obrigado. Sobre os fontes, como funcionaria? sera aplicada essa alteração no svn?
  9. Boa Tarde, Joel também estou homologando para este mesmo banco na mesma situação, com correspondente Bradesco, estou fazendo o procedimento de remessa, e estao me retornando erros, um dos erros, que se refere ao código da cooperativa eu tive que alterar a unit ACBrBancoBradescoSICOOB.pas nas funcoes GerarRegistroHeader400 e GerarRegistroTransacao400 ele concatenava -> PadLeft( Cedente.Agencia + Cedente.AgenciaDigito, 10, '0') + // Código da Cooperativa fincando assim PadLeft( Cedente.Agencia, 10, '0') -- nas duas funções o mesmo detalhe, agora o erro no digito verificado que pede a letra 'P' isso ainda não consegui arrumar. vocêis teriam alguma dica? Obrigado a todos
  10. Régys Obrigado pela dica. Eu instalei o user software, mas não consegui ter sucesso. Não sei se estou fazendo errado, na net não consegui nada... sem querer abusar da sua boa vontade teria como me passar o nome ou link do software para limpar essa logo da impressora e como fazer isso?
  11. Bom dia. Estou imprimindo NFCe usando o componente DANFE SCPOS, ate entao tudo normal, mas chegou uma nova remessa de impressoras Bematech, que ao imprimir uma nova NFCe ou re-imprimir uma já autorizada, ela começou a imprimi a logo da própria Bematech! alguém já passou por algo parecido. Tenho duas Bematech que executo os testes, é a impressão da logo só acontece nas impressoras adquiridas recentemente. Desde já Obrigado a Todos. Segue em anexo uma impressão. NFCE.pdf
  12. Bom dia, o meu problema foi resolvido, exclui os fontes antigos, rodei o .bat e logo baixei novamente os fontes pelo svn, instalei os componentes pelo acbrInstall e o erro parou. Obrigado a todos.
  13. Juliomar vc estava certo, eu rodei o .bat e instalou tudo certinho. mas o erro na inutilização continua: Versão Layout : 3.10 Ambiente : 2 Versão Aplicativo : PR-v3_2_5 Status Código : 502 Status Descrição : Erro na Chave de Acesso - Campo Id não corresponde à concatenação dos campos correspondentes UF : PR Recebimento : 15/12/2014 17:06:54 ERRO: Erro na Chave de Acesso - Campo Id não corresponde à concatenação dos campos correspondentes eu uso esta função para enviar a Inutilização, DM.ACBrNFe1.WebServices.Inutiliza(trim(SomenteNumeros(CNPJ)), Justificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal);
  14. Eu recompilei os fontes com o ACBrinstall, mas deu erro. Então eu deletei os .dcu arquivos temporarios, rodei o apagarAcbr.bat, baixei novamente os fontes acbr mas o erro continuou. Em anexo esta o log gerado pelo ACBrInstall. Desde já obrigado a Todos log_Delphi_XE3.txt
×
×
  • 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.