Painel de líderes

tem antivirus sim, o teste pra valer mesmo, vou fazer a partir de amanhã, estou finalizando tudo, e aí irei testar em três computadores diferentes, vou vê como se comportará.

Desculpa a demora para responder... Eu descobri o "problema", o que acontece é o seguinte, por mais que minha rede esteja em uma unidade de letra mapeada e eu esteja acessando por esta unidade, eu tenho um método que retorna o caminho dos schemas. Em determinadas máquinas me retorna o caminho G:\win\exe\schemas (funciona), já em outras máquinas me retorna \\192.168.1.10\sistema\win\schemas (não funciona).

Não sei se é o caso de vocês, mas vale lembrar que uma pequena diferença nos dados pode gerar um DigestValue diferente. Por exemplo, uma diferença de segundos na tag <dhEmi> gera um DigestValue diferente. Vejam também: https://www.projetoacbr.com.br/forum/topic/46162-erro-digestvalue-não-confere/

Tente refazer a instalação marcando a opção de apagar arquivos antigos.

Boa tarde, pradilsoncarlos. Não utilizo NFS-e, porém sugiro verificar juntamente ao provedor se não mudou algo...Ou até mesmo a mudança para outro provedor que é atendido. Verifique também se os fontes e as pastas estão atualizados.

ok, vou testar e reporto aqui. Obr por eqto.

Ítalo muito obrigado pelo direcionamento, irei verificar a tabela com os eventos no manual :)

Você tem uma aplicação que emite CT-e? Se sim, então esta na hora de agregar mais valor a ela, deixando-a mais completa e desta forma conquistar clientes mais exigentes. No dia do ACBr estarei apresentando a minha palestra com Dicas de Emissão de CT-e. Mostrarei como resolver questões de CT-e errados que não podem mais ser cancelados, como emitir corretamente um CT-e cujo remetente e ou destinatário é outra transportadora e como globalizar vários CT-e em apenas um só. Não percam a oportunidade, no Dia do ACBr estarei presente com os demais consultores no Stand ACBr para esclarecer quaisquer dúvidas que permanecerem. Inscreva-se para o Dia do ACBr 2019 e aproveite a melhor oportunidade para falar pessoalmente com quem realmente entende do assunto. Se tem dúvidas ou gostaria de mais informações, fale com nossa consultora rapidamente por meio do WhatsApp.

Boa tarde. Deu certo. Esqueci de tentar fazer isso. Consegue fechar esse tópico? Não sei como fazer. Tks

Sim usa. Basta acessar o site do município para conferir. https://servicos.modelo.sc.gov.br/index/detalhes/codServico/4055 Talvez esteja em algum lugar no site deles. Observe que eles confundiram NF-e com NFS-e. Logo na página inicial do site da prefeitura, ao clicar na imagem de NF-e você é jogado pro site da NFS-e da PRONIM. http://187.45.102.66/NFSe.Portal/ Assim, pode ser difícil de encontrar...

Bom dia Milton, O evento de registro de passagem é enviado pelo Fisco e não pelo emitente do MDF-e. Na página 32 do Manual do MDF-e (Visão Geral) temos uma tabela com todos os eventos e quem são os seus autores, ou seja, que é responsável por enviar o evento. Você só tem que implementar os 4 primeiros (Cancelamento, Encerramento, Inclusão de Condutor e Inclusão de DF-e) que são de responsabilidade do emitente.

Bom dia Junior, Notei que a mensagem Obrigado pela Preferencia esta entre aspas. Mude, em vez de aspas coloque "*". Faça um novo teste.

Felipe muito obg setei diretamente no componenete ACBrMDFe as configurações de sll e resolveu muito obg pela atenção!

Os fontes foram atualizados dia 15/07 e não verifiquei depois disso, me desculpe. Acabei de atualizar aqui e funcionou. Muito obrigado.

Você conseguia emitir sem IE antes? Qual a UF do emitente? Até onde sei mesmo em homologação é preciso o emitente ter uma IE válida e estar habilitado a emitir NFe na SEFAZ.

Que saiba já foi removida a validação do cNF na geração do XML. Está com os fontes atualizados?

Entendi. Muito obrigado

Olá Matheus, Muito obrigado pela contribuição. Conferi aqui no manual do SiTef e me parece que está correta sua afirmação. Subi as alterações para o SVN na Revisão 17441. Queira por favor atualizar, testar e reportar qualquer problema. Mais uma vez obrigado.

Boa noite, esse link do Italo me ajudou a resolver esse problema.

No caso dos serviços o IBPT calcula pelo código NBS (coluna tipo = 1) ou o código do serviço conforme a LC 116/03 (tipo = 2).

Será que não tem algum serviço rodando em segundo plano que possa estar interferindo? Exemplo, antivírus, firewall, sistemas bancários, etc...

Tive esse problema e a solução foi copiar as DLLs do ACBR (tambem as do OPENSSL) para a pasta System32 e SysWOW64 do Windows

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Fiz a atualização do meu windows e deu certo. Pode finalizar.

Certo, é isso mesmo obrigado pela força.

Bom dia, Notei que a nota é do modelo 55 e não 65 (NFC-e) sendo assim acredito que a mesma tem que ter os grupos PIS e COFINS. Favor entrar em contato com o contador e confirmar com ele a obrigatoriedade de constar os referidos grupos em uma nota modelo 55 (NF-e).

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

Houveram várias alterações nos CEPs das cidades do Brasil e continuam acontecer mudanças, separando um CEP principal em vários outros. Então, quando recebe um erro assim, você precisa validar o CEP no site dos correios. Se fizer isso vai notar que o CEP 58700-000 na linha 4 realmente não existe, e que a cidade mencionada tem vários outros CEPs... mas não esse. Veja nesse site: http://www.buscacep.correios.com.br/sistemas/buscacep/buscaEndereco.cfm

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Agora com os arquivos corretos. Me desculpem. ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas

Boa noite, Segue: // remessa procedure TForm1.Remessa; var nValorMora : Currency; //.. outros begin ACBrBoleto.ListadeBoletos.Clear; TituloACBr := ACBrBoleto.CriarTituloNaLista; TituloACBr.TipoDiasProtesto := diCorridos; TituloACBr.CarteiraEnvio := Iif(Trim(sBancoEmite)='SIM', tceBanco, tceCedente); TituloACBr.SeuNumero := sConrecSeq; TituloACBr.Aceite := atNao; TituloACBr.NumeroDocumento := sNumNotaFiscal; TituloACBr.Sacado.CNPJCPF := sCpfCnpj; if(length(trim(TituloACBr.Sacado.CNPJCPF)) > 11) then TituloACBr.Sacado.Pessoa := pJuridica else TituloACBr.Sacado.Pessoa := pFisica; TituloACBr.Sacado.Logradouro := sEndereco; TituloACBr.Sacado.Numero := ''; TituloACBr.Sacado.Complemento := ''; TituloACBr.Sacado.Bairro := sBairro; TituloACBr.Sacado.Cidade := sCidade; TituloACBr.Sacado.UF := sEstado; TituloACBr.Sacado.CEP := sCep; TituloACBr.Sacado.Email := sEmail; TituloACBr.Sacado.Fone := sTelefone; TituloACBr.Vencimento := StrToDate(FormatDateTime('dd/mm/yyyy', dDataVencto)); TituloACBr.DataDocumento := StrToDate(FormatDateTime('dd/mm/yyyy', dDataDocto)); TituloACBr.DataProcessamento := StrToDate(FormatDateTime('dd/mm/yyyy', Date)); TituloACBr.ValorDocumento := rValorDocto; TituloACBr.CodigoMora := '1'; TituloACBr.ValorMoraJuros := 0; TituloACBr.DataMoraJuros := 0; if njuromensal>0 then TituloACBr.PercentualMulta := njuromensal; if nMoraDiaria>0 then begin nValorMora:=(TituloACBr.ValorDocumento*(nMoraDiaria/30))/100; if(nValorMora >= 0.01) then begin TituloACBr.ValorMoraJuros := nValorMora; TituloACBr.DataMoraJuros := TituloACBr.Vencimento+1; end; end; if(iDiasProtesto = 0) then TituloACBr.DataProtesto := 0 else TituloACBr.DataProtesto := StrToDate(FormatDateTime('dd/mm/yyyy', TituloACBr.Vencimento+iDiasProtesto) ); TituloACBr.EspecieDoc := 'DM'; TituloACBr.OcorrenciaOriginal.Tipo := toRemessaRegistrar; TituloACBr.Carteira := sCarteira; TituloACBr.LocalPagamento := sLocalPagto; // nosso numero TituloACBr.NossoNumero := sNossoNum; TituloACBr.Instrucao1 := ''; TituloACBr.Instrucao2 := ''; TituloACBr.Parcela := iParc; end; // ler retorno procedure TForm1.Retorno; var i : Integer; begin if OpenDialog1.Execute then begin //Configurar ConfiguracoesACBr; // ACBrBoleto.NomeArqRetorno := OpenDialog1.FileName; ACBrBoleto.LerRetorno; for i := 0 to ACBrBoleto.ListadeBoletos.Count-1 do begin if ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido > 0 then begin SQLAux.Close; SQLAux.SQL.Clear; SQLAux.SQL.Add('update conrec set'); SQLAux.SQL.Add('data_baixa = :pData,'); SQLAux.SQL.Add('valor_pago = :pValor,'); SQLAux.SQL.Add('taxa_cobranca = :pTaxa'); SQLAux.SQL.Add('where nosso_numero = :pNossoNum'); SQLAux.Params.ParamByName('pData').AsDate := ACBrBoleto.ListadeBoletos.Objects[i].DataCredito; SQLAux.Params.ParamByName('pValor').AsFloat := ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido; SQLAux.Params.ParamByName('pNossoNum').AsString:= Copy(ACBrBoleto.ListadeBoletos.Objects[i].NossoNumero,1,ACBrBoleto.Banco.TamanhoMaximoNossoNum); // vir sem o dígito, se quiser SQLAux.Params.ParamByName('pTaxa').AsFloat := ACBrBoleto.ListadeBoletos.Objects[i].ValorDespesaCobranca; SQLAux.ExecSQL(False); end; end; SQLAux.Close; end; end; procedure TForm1.ConfiguracoesACBr; begin ACBrBoleto.ACBrBoletoFC.DirLogo := sPathLogo; ACBrBoleto.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto.ACBrBoletoFC.LayOut := lPadrao; ACBrBoleto.ACBrBoletoFC.MostrarSetup:= true; ACBrBoleto.ACBrBoletoFC.SoftwareHouse:= 'SUA EMPRESA'; ACBrBoleto.Banco.TipoCobranca := cobSantander; // escolha o seu tipo de cobrança ACBrBoleto.Banco.Digito := iDigBanco; // 33 ACBrBoleto.Banco.Numero := iBanco; // 7 ACBrBoleto.Banco.Nome := sBanco; // 'Santander'; ACBrBoleto.Banco.TamanhoMaximoNossoNum := iTamNossoNum; // 12 ACBrBoleto.Cedente.CaracTitulo := tcSimples; // simples com registro ACBrBoleto.Cedente.Nome := sNomCedente; ACBrBoleto.Cedente.Telefone := sTelefoneCedente; ACBrBoleto.Cedente.UF := sUFCedente; ACBrBoleto.Cedente.Bairro := sBairroCedente; ACBrBoleto.Cedente.CEP := sCepCedente; ACBrBoleto.Cedente.Cidade := sCidadeCedente; ACBrBoleto.Cedente.CNPJCPF := sCnpjCedente; ACBrBoleto.Cedente.Complemento := ''; ACBrBoleto.Cedente.Conta := sContaCorrente; ACBrBoleto.Cedente.ContaDigito := sContaCorrenteDig; ACBrBoleto.Cedente.Logradouro := sLogradouroCedente; ACBrBoleto.Cedente.NumeroRes := ''; ACBrBoleto.Cedente.Convenio := sConvenio; // ACBrBoleto.Cedente.Modalidade := sModalidade; // ACBrBoleto.Cedente.CodigoCedente := sCodCedente; ACBrBoleto.Cedente.CodigoTransmissao:= sCodigoTransmissao; // no santander tem ACBrBoleto.Cedente.ResponEmissao := Iif(Trim(sBancoEmite)='SIM', tbBancoEmite, tbCliEmite); ACBrBoleto.Cedente.TipoInscricao := pJuridica; ACBrBoleto.Cedente.TipoCarteira := Iif(Trim(sRegistrar)='SIM', tctRegistrada, tctSimples); ACBrBoleto.DataArquivo := Date; ACBrBoleto.NomeArqRemessa := FormatDateTime('DDMMYYYYHHMMSS',Now)+'.TXT'; ACBrBoleto.DirArqRemessa := sPathRemessa; ACBrBoleto.DirArqRetorno := sPathRetorno; ACBrBoleto.ImprimirMensagemPadrao := False; ACBrBoleto.LayoutRemessa := Iif(Pos(sLayoutArqRet,'400')>0,c400,c240); ACBrBoleto.LeCedenteRetorno := true; end; Veja se te ajuda. Até mais,