Alexandre Faustinoni

Sim esses testes de cancelamento e substituição por enquanto somente em produção.

Bom dia. Estou com um problema na impressão da NFS-e que esta saindo cortada do lado direito na impressão apenas. Na tela sai correta. Alguém poderia me ajudar a ajustar o componente ACBrNFSeXDANFSeRL.

O pessoal da RLZ ajustou o ambiente de homologação, e corrigiu o problema apenas para consulta. Segundo o eles não vai ter o evento de cancelamento e nem substituição em homologação, somente em produção.

Estou em contato com pessoal da RLZ parace que o problema é lá mesmo. Assim que tiver uma posição eu chamo aqui no forum.

Ao realizar a consulta em homologação não retorna absolutamente nada. Passei a mesma informação ao provedor. Não cheguei a fazer o teste em produção. Segue os XMLs do log. 000000000000109000000000000109000001-lista-nfse-fai-soap.xml 000000000000109000000000000109000001-con-nfse-fai.xml 000000000000109000000000000109000001-con-nfse-fai-soap.xml 000000000000109000000000000109000001-lista-nfse-fai.xml

Consegui. Para o provedor RLZ não deve ser informado o CNAE e nem o campo CodigoCnae := ''; Servico.CodigoTributacaoMunicipio := '';

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

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

Aqui deu certo graças a Deus. Obrigado pessoal. Já fiz em 3 clientes e deu tudo certo.

Alguém conseguiu algum retorno da SEFAZ ? OU mesmo a ajuda do André deu certo com alguém ?

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.

Misericórdia. Que vergonha. Esqueci de trocar a versão na emissão.

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;

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

Sim zerei e não localizou nada.

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 ?

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.

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.

Deu certo amigo Renato. Estava copiando da arquitetura do SO. Vou fazer uma troca então nos clientes. Muito obrigado.

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.

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 ?

Fiz outra mudança no mesmo .pas. Agora para pegar a soma das parcelas somente se count das parcelas for > 0. ACBrNFeNotasFiscais.pas

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

Em um tópico novo mesmo igual eu fiz ?

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.