Ir para conteúdo
  • Cadastre-se

Alexandre Faustinoni

Membros
  • Total de ítens

    74
  • Registro em

  • Última visita

Tudo que Alexandre Faustinoni postou

  1. Consegui. Para o provedor RLZ não deve ser informado o CNAE e nem o campo CodigoCnae := ''; Servico.CodigoTributacaoMunicipio := '';
  2. Prezado Alexandre de Paula. Duas coisas em contato com o pessoal lá da RLZ me disseram que o link para homologação é HomRecepcionar=https://barretos.prefeitura.rlz.com.br/webservice/nfse Outra coisa também estou recebendo um erro: Erro(s): Código : E35??? Mensagem: Código de tributação inexistente. Correção: Consulte a legislação vigente para saber o Código de tributação que deverá ser informado. Consegue me ajudar ? temp1.xml temp2.xml
  3. Boa tarde, paz e bem. No ultimo dia 5/3 a prefeitura de Barretos trocou o formato da emissão da NFS-e da SigCorp para RLZ utilizando layout 2.03 da ABRASF. Anexo esta o manual que eles enviaram. Gostaria de uma ajuda para Configurar o componente ACBrNFSeX. Hash_documentos_NFS-e_versao_ 2.03.pdf wsdl_nfs-e_ v2.03.zip NFS-e_Modelo_Conceitual_versao_2.03_alteracoes (1).pdf schema_xml_nfs-e_ v2.03.zip Manual_de_Integracao_WebService_Barretos-RLZ.pdf
  4. Aqui deu certo graças a Deus. Obrigado pessoal. Já fiz em 3 clientes e deu tudo certo.
  5. Alguém conseguiu algum retorno da SEFAZ ? OU mesmo a ajuda do André deu certo com alguém ?
  6. Estou tendo problemas para buscar notas na SEFAZ em alguns clientes. Erro Interno: -2146893815 Erro HTTP:0 URL: https://www1.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx Erro: 2148073481 Não consegui anexar a imagem.
  7. Misericórdia. Que vergonha. Esqueci de trocar a versão na emissão.
  8. Juliomar, Coloquei todas as configurações que acredito sejam necessárias: //Certificado por número de série if (dmADS.tbEmp.fieldbyname('CERTIFDIGSERIAL').AsString <> '') then begin ACBrCTe1.Configuracoes.Certificados.NumeroSerie := dmADS.tbEmp.fieldbyname('CERTIFDIGSERIAL').AsString; ACBrCTe1.Configuracoes.Certificados.ArquivoPFX := ''; ACBrCTe1.Configuracoes.Certificados.Senha := ''; end else if (dmADS.tbEmp.fieldbyname('CERTPASS').AsString <> '') then begin ACBrCTe1.Configuracoes.Certificados.ArquivoPFX := dmADS.tbEmp.fieldbyname('CERTIFDIG').AsString; ACBrCTe1.Configuracoes.Certificados.Senha := dmADS.tbEmp.fieldbyname('CERTPASS').AsString; ACBrCTe1.Configuracoes.Certificados.NumeroSerie := ''; end; if (not (ACBrCTe1.SSL.CertificadoLido)) then begin try ACBrCTe1.SSL.DescarregarCertificado; ACBrCTe1.Configuracoes.Geral.SSLLib := TSSLLib(StrToIntDef(LerArqINI('', 'Certificado', 'SSLLib' , '4'), 4)); ACBrCTe1.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(StrToIntDef(LerArqINI('', 'Certificado', 'CryptLib' , '3'), 3)); ACBrCTe1.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(StrToIntDef(LerArqINI('', 'Certificado', 'HttpLib' , '2'), 2)); ACBrCTe1.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(StrToIntDef(LerArqINI('', 'Certificado', 'XmlSignLib' , '4'), 4)); ACBrCTe1.SSL.SSLType := TSSLType(StrToIntDef(LerArqINI('', 'WebService', 'SSLType2' , '0'), 0)); ACBrCTe1.SSL.CarregarCertificadoSeNecessario; except //Exceção on E: Exception do begin MensErro('', 91, '(InificalizaCTe_LerCertificado) ' + E.ClassName + ' - ' + E.Message, true, true); end; end; end; with ACBrCTe1.Configuracoes.WebServices do begin UF := sUFEmit; if (dmADs.tbEmpNFEPRODUCAO.asstring = 'P') then Ambiente := taProducao else Ambiente := taHomologacao; //Se true visualiza mensagens diretamente do componente ACBr //Bom para quando se quer depurar algum retorno Visualizar := false; //Valida o arquivo INI para definir os padrões básicos das consultas if (LerArqINI('', 'NFe', 'TimeOutConsulta', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'TimeOutConsulta', '5000'); if (LerArqINI('', 'NFe', 'Tentativas', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'Tentativas', '10'); if (LerArqINI('', 'NFe', 'TimeOutTentativas', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'TimeOutTentativas', '3000'); if (LerArqINI('', 'NFe', 'TimeOut', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'TimeOut', '18000'); Salvar := (dmADS.tbEmpGERAARQLOG.value = 'S'); AjustaAguardaConsultaRet := true; AguardarConsultaRet := StrToIntDef(LerArqINI('', 'NFe', 'TimeOutConsulta', '5000'), 5000); Tentativas := StrToIntDef(LerArqINI('', 'NFe', 'Tentativas', '10'), 10); IntervaloTentativas := StrToIntDef(LerArqINI('', 'NFe', 'TimeOutTentativas', '3000'), 3000); TimeOut := StrToIntDef(LerArqINI('', 'NFe', 'TimeOut', '18000'), 18000); end; with ACBrCTe1.Configuracoes.Geral do begin ExibirErroSchema := true; FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; FormaEmissao := teNormal; ModeloDF := moCTe; VersaoDF := ve400; Salvar := (dmADS.tbEmpGERAARQLOG.value = 'S'); RetirarAcentos := true; ValidarDigest := true; end; with ACBrCTe1.Configuracoes.Arquivos do begin Salvar := true; SepararPorMes := true; AdicionarLiteral := false; EmissaoPathCTe := true; SepararPorCNPJ := false; SepararPorModelo := false; PathSalvar := ExtractFilePath(paramstr(0)) + 'Temp'; PathSchemas := ExtractFilePath(paramstr(0)) + 'EsquemasCTe'; PathCTe := sPastaSis; PathEvento := sPastaSis + '\Eventos'; end;
  9. Estou com o seguinte erro na transmissão da CT-e. CTeRecepcaoSinc não encontrada na sessão CTe_SP_P no arquivo ACBrCTeServicos Comando para enviar: ACBrCTe1.Enviar(iLote, true, true); tentei também: ACBrCTe1.Enviar(iLote, true, false); Não estou conseguindo colar a imagem do erro
  10. Recentemente fechamos um cliente na Bahia. Em SP, MG, RS, SC a busca das notas destinadas (DF-e) ocorre normalmente a busca das notas e dos eventos. Porém na BA não esta baixando a pesar do cliente ter várias notas emitidas contra o cnpj deles. Se utilizar o download pela chave ele faz a busca mais pela sequencia de NSU não. Alguém já teve um problema desses ?
  11. Boa tarde, Juliomar não sei o que era ao certo mais funcionou. Removi a pasta do componente e baixei tudo de novo. Ai foi. Muito obrigado.
  12. amigos, vi que tem um tópico sobre o assunto mais acredito que estou fazendo tudo certo. - atualizado com data de hoje - comando para enviar a MDF-e: ACBrMDFe1.Enviar(1, true, false); - verifiquei com o exemplo também tentei enviar como: ACBrMDFe1.Enviar(1); Erro que esta dando: Erro Interno: 0 Erro HTTP: 404 URL: https://mdfe-homologacao.svrs.rs.gov.br/ws/mdferetrecepcao/MDFeRetRecepcao.asmx <!DOCTYPE html> <html> <head> <title>The resource cannot be found.</title> <meta name="viewport" content="width=device-width" /> <style> Porém a MDF-e é transmitida, acredito que seja um problema de retorno. Alguém poderia me ajudar por favor.
  13. Deu certo amigo Renato. Estava copiando da arquitetura do SO. Vou fazer uma troca então nos clientes. Muito obrigado.
  14. Boa tarde amigo Renato. Fiz a cópia, incluisive usando o app de exemplo, mais sem sucesso. A consulta não retorna nada. Copiei inclusive outras dlls da mesma pasta do ACBr.
  15. Amigos, boa noite A consulta pelo ACBrConsultaCNPJ só funciona e retorna os campos dentro do meu computador. Nos computadores de clientes não apresenta erro porém não retorna erro, simplismente os campos vem tudo vazios. Algo que esqueci de configurar ?
  16. Fiz outra mudança no mesmo .pas. Agora para pegar a soma das parcelas somente se count das parcelas for > 0. ACBrNFeNotasFiscais.pas
  17. blz vou acabar de fazer alguns ajustes e vou anexar. Segue sugestão de mudança para GravaLog('Validar: 894-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de Emissão (id:B09)'); if (Trunc(nfe.Cobr.Dup.Items.dVenc) < Trunc(NFe.Ide.dEmi)) then AdicionaErro('894-Rejeição: Data de vencimento da parcela não informada ou menor que Data de Emissão'); GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)'); if (Trunc(nfe.Cobr.Dup.Items.dVenc) < Trunc(UltVencto)) and (i > 0) then AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior'); GravaLog('Validar: 894-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de Emissão (id:B09)'); if (Trunc(nfe.Cobr.Dup.Items[I].dVenc) < Trunc(NFe.Ide.dEmi)) then AdicionaErro('894-Rejeição: Data de vencimento da parcela não informada ou menor que Data de Emissão'); GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)'); if (Trunc(nfe.Cobr.Dup.Items[I].dVenc) < Trunc(UltVencto)) and (i > 0) then AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior'); ACBrNFeNotasFiscais.pas
  18. Em um tópico novo mesmo igual eu fiz ?
  19. Uma sugestão para implementação no fonte d GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)'); if (nfe.Cobr.Dup.Items[I].dVenc < UltVencto) then AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior'); para: GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)'); if (nfe.Cobr.Dup.Items[I].dVenc < UltVencto) and (i > 0) then AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior'); Gostaria de saber como colaborar no projeto.
  20. Pessoal, SP Voltou ou não. em homologação pelo que estou vendo ainda está bugado mais em produção também não estou conseguindo enviar. ???
  21. No ambiente de Homologação está também dando a mesma Rejeição. SP
  22. Também estou com o mesmo problema. NFe mesmo informando grupo fatura está dando erro. Alguém sabe me dizer se o vDesc esta obrigatório mesmo zerado ?
  23. Amigos, boa noite. Estou com o seguinte erro ao configurar o componente com as configurações acima citada: SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; //httpWinINet; SSLXmlSignLib := xsLibXml2; //xsXmlSec; Falha no envio da requisição Erro: 12175 um ou mais erros foram encontrados no certificado secure Sockets layer (ssl) enviado pelo servidor. Mesmo no acbrnfe_demo está dando esse erro.
  24. Pessoal do fórum quem tiver o problema parecido com o SAT Linker I eu falei com o pessoal da Elgin (Bruno), que aliás um pessoal bem atencioso e ele liberou uma nova DLL que em todos os meus clientes que deram problema foi resolvido. Obrigado ao Daniel também pela atenção. Ok. Segue as DLLs. Abraços a todos. dlls.zip
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...