MarcosRWeimer

Excelente Ítalo, funcionou perfeitamente. Só não entendi a causa, se antes estava funcionando e parou depois de atualizar o ACBr (não lembro exatamente em qual versão estava antes, mas deve ser de uns 2 meses atrás). Será que haverá problemas em deixar para todos os municípios este mesmo padrão de assinatura?

Ola Italo! Estou configurando da mesma maneira que NF-e/CT-e.... AACBrNFSe.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrNFSe.Configuracoes.Geral.Salvar := False; AACBrNFSe.Configuracoes.Geral.Emitente.CNPJ := AFilial.CNPJ; AACBrNFSe.Configuracoes.Geral.Emitente.InscMun := AFilial.IM; AACBrNFSe.Configuracoes.Geral.Emitente.RazSocial := AFilial.RazaoSocial; AACBrNFSe.Configuracoes.Geral.Emitente.WebUser := AFilial.NFSeUsuario; AACBrNFSe.Configuracoes.Geral.Emitente.WebSenha := AFilial.NFSeSenha; AACBrNFSe.Configuracoes.Geral.CodigoMunicipio := AFilial.cMun; AACBrNFSe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\NFSe\'; AACBrNFSe.Configuracoes.Arquivos.PathSalvar := AFilial.CaminhoXML; AACBrNFSe.Configuracoes.Arquivos.Salvar := False; AACBrNFSe.Configuracoes.Arquivos.EmissaoPathNFSe := True; //se baseia pela data de emissão para montar o path AACBrNFSe.Configuracoes.WebServices.Visualizar := False; AACBrNFSe.Configuracoes.WebServices.Salvar := False; AACBrNFSe.Configuracoes.WebServices.UF := AFilial.xUF; AACBrNFSe.Configuracoes.WebServices.TimeZoneConf.ModoDeteccao := tzManual; AACBrNFSe.Configuracoes.WebServices.TimeZoneConf.TimeZoneStr := AFilial.FusoHorario; AACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; AACBrNFSe.SSL.SSLXmlSignLib := xsMsXml; if (AFilial.CertificadoSenha.IsEmpty and AFilial.CertificadoTipo.IsEmpty) then raise Exception.Create('Certificado não configurado no cadastro da filial'); AACBrNFSe.SSL.Senha := AFilial.CertificadoSenha; AACBrNFSe.SSL.NumeroSerie := AFilial.CertificadoNumeroSerie; AACBrNFSe.SSL.DadosPFX := AFilial.CertificadoDadosPFX; AACBrNFSe.SSL.CarregarCertificado; if (not AACBrNFSe.SSL.CertificadoLido) then raise Exception.Create('Certificado digital não pode ser carregado! ' + 'Verifique certificado cadastrado no cadastro de filiais.'); if (AACBrNFSe.SSL.CertDataVenc < Now) then raise Exception.Create('Certificado da filial ' + IntToStr(AFilial.CODFILIAL) + ' venceu em ' + DateTimeToStr(AACBrNFSe.SSL.CertDataVenc));

Ola! Estou tendo problemas com Lexsom em Foz do iguaçu, certificado dentro da validade, estava funcionando perfeitamente até que atualizei o ACBr, a exceção é lançada no ACBrDFeXMsXml nesta linha aqui: // Assinando com MSXML e CryptoLib // signedKey := xmldsig.sign(dsigKey, CERTIFICATES); A exceção lançada é do tipo EOleException, CT-e, MDF-e, NF-e, NFC-e, tudo esta assinando corretamente, mas neste caso não. Não achei nada que pode estar influenciando a assinatura, alguem mais está passando por isso? ou já passou e tem o caminho das pedras?

Bom dia Italo A princípio o capicom é para estar desativado, veja como está o ACBR.INC // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2, LibXMLSEC, {.$DEFINE DFE_SEM_OPENSSL} // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXMLSEC, mas continue suportando a LibXML2 {$DEFINE DFE_SEM_XMLSEC} // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2, mas continue suportando LibXMLSEC {.$DEFINE DFE_SEM_LIBXML2} // Descomente a linha abaixo, se você não utiliza a obsoleta Capicom para Criptografia (recomendado) {$DEFINE DFE_SEM_CAPICOM} // Descomente a linha abaixo, se você não utiliza a obsoleta MSXML para Assinatura de XML(recomendado) {.$DEFINE DFE_SEM_MSXML} // Descomente a linha abaixo, se você não deseja adicionar a Dependência da INDY nos seus Projetos {.$DEFINE DFE_SEM_INDY}

Como o tópico está fechado, abri um novo, o problema da thread abaixo voltou: Mudei localmente no ISSCuritiba.ini de URI=1 para URI=0 e voltou a funcionar. Procurei mas não encontrei se houve algum motivo para retornar para 1. Obrigrado

Ola! Para obter o XML de uma NF-e faço o seguinte: ACBrNFe.NotasFiscais.Items[0].XML; e como faço para obter o XML do evento ? //Esta opção não existe //acho que esta seria a melhor opção para obter o XML completo (procEventoNFe) ACBrNFe.EventoNFe.Evento.Items[0].XML e esta sempre retorna vazia ACBrNFe.EventoNFe.Evento.Items[0].retInfEvento.XML enfim, a questão é como obter o XML do evento sem ter de salvar o xml e ler o arquivo para depois subir para o banco

Complementando: - o XML salva na pasta correta

Ola! Estamos tendo problemas para salvar o PDF separando por pastas (modelo). Usamos "OrdenacaoPath" com a seguinte ordem: opCNPJ, opData, opModelo Porem ao salvar NFC-e, salva na pasta NF-e. Tem algum problema ao obter o modelo (Configuracoes.Geral.ModeloDF sempre fica como moNFe e não como moNFCe). Para corrigir tive de setar na mão: if FModelo = 65 then AACBrNFe.Configuracoes.Geral.ModeloDF := moNFCe else AACBrNFe.Configuracoes.Geral.ModeloDF := moNFe; AACBrNFe.NotasFiscais.ImprimirPDF; Assim resolve, fiz debug da impressão até encontrar esta falha, mas não encontrei onde exatamente carrega este campo. O processo está assim: 1 - Carrega os dados no componente 2 - assinda 3 - valida 4 - envia 5- se autorizou, já gera o PDF Está emitindo corretamente NF-e/NFC-e (versão 4.00), mas ao gerar PDF tive de setar manualmente (não carregou do modelo do documento que está no componente).

ajudo, so acertarmos como, mandei meu email em pvt para combinarmos alguma maneira

Não tenho mais delphis antigos aqui, então não consigo testar no momento, mas como falei, na época usávamos D6 (a não ser que esteja muito enganado e usávamos XE8) No trabalho acesso ao celular é restrito, e em casa nem PC eu tenho (é tenho, um amd duron 750 so pra emergencias mas por causa de licença nem tem delphi instalado)

Na época que foi desenvolvido usávamos D6, depois compramos o XE8, e agora temos assinatura e estamos no Tokyo 10.2, em ambos os casos funciona. Consegue especificar mais detalhes das incompatibilidades?

volte umas paginas, tem o repositório no bitbucket, se fizer alguma melhoria não esqueça de enviar.

Bom pessoal, algumas pessoas me pediram inbox, então ai está: https://bitbucket.org/marcosweimer/pkgbr/ por enquanto com recursos limitados, vejam lá para não desfocar o tópico

Temos aqui para uso interno, pessoal não gostou da idéia e não foi pra frente

Olha, quando comecei a ver sobre NFS-e (primeira vez que desenvolvo NFS-e com o ACBr) atualizei, deve fazer pouco uns 30... 40 dias por que tive outras tarefas para fazer com prioridade maior, e não existia a cidade. Tentei ver aqui no Tortoise qual a revision que estou mas não encontrei onde ver.

Senhores, favor adicionar no Cidades.ini [4128559] Nome=Vera Cruz do Oeste UF=PR Provedor=Betha EDIT: Desenvolvi e está funcionando sem problemas.

seria mais ou menos assim (devido a limitação de espaço) 0=REMETENTE 1=DESTINATARIO 2=TERCEIROS 3=PROP/REMET 4=PROP/DEST 9=SEM FRETE Mas não sei como faria isso na pcnConversao.modFreteToDesStr sem causar problemas as NF-es anteriors a 4.00

Ola! Na impressão no Danfe em Fast Report está imprimindo incorretamente a descrição da modalidade de frete. Segundo a NT 2016.002: 0=Contratação do Frete por conta do Remetente (CIF); 1=Contratação do Frete por conta do Destinatário (FOB); 2=Contratação do Frete por conta de Terceiros; 3=Transporte Próprio por conta do Remetente; 4=Transporte Próprio por conta do Destinatário; 9=Sem Ocorrência de Transporte. Porem ao imprimir obtem do pcnConversao.modFreteToDesStr que retorna o seguinte: 0 - EMITENTE' 1 - DEST/REM 2 - TERCEIROS 3 - PROP/REMT 4 - PROP/DEST 9 - SEM FRETE O que não condiz com a NT. A dúvida é se vai ser alterada a pcnConversao, ou como vai ser feito (mantendo a compatibilidade ao imprimir NFs anteriores).

Iniciada conversa em PVT para não fugir o foco do topico

está uns posts atrás... https://bitbucket.org/marcosweimer/acbrbina também temos clientes em cascavel, inclusive usando o componente kkk

Ola Daniel! Veja no repositório no bitbucket, estamos usando em produção (para o bina toptron) há vários meses, o colega LIDERNetwork irá (ou tentará) adicionar suporte ao bina da Mamut. Foi desenvolvido usando interfaces que não agrada o pessoal do ACBr, então teria de mudar tudo. Estamos próximos, vi que vc é de Cascavel, qualquer coisa me chame no pvt

Ola! Os retornos datetime do sefaz incluem o timezone. Por exemplo, consulto o status tem o retorno dhRecbto, no pcteRetConsStatServ executa um Leitor.rCampo(tcDatHor, 'dhRecbto'); A questão é como obter o timezone, ou não estou encontrando ou não existe esta informação. Gostaria desta informação para validar o timezone com a da filial (filiais em vários estados). No envio seto o timezone para tzManual e o fuso horário carrego do cadastro da filial, toda vez que muda horario de verão/inverno clientes ligam falando que não está autorizando e são orientados em corrigir o fuso horario. (sei, não deixo em automático por outros motivos, não vem ao caso neste momento), assim iria automatizar, receberia rejeição 703,704, verificaria o timezone recebido com o da filial, e se fosse diferente faria iria alterar e reenviar.

nada feito, continuo com problemas, é duro não conseguir efetuar o debug.

Acho que está faltando coisa ai, veja como faço aqui: with Seg.Add do begin case qSeg.FieldByName('resp').AsInteger of 1: respSeg := rsEmitente; 2: respSeg := rsTomadorServico; end; CNPJCPF := TStringUtils.OnlyNumbers(qSeg.FieldByName('resp_cnpjcpf').AsString); xSeg := qSeg.FieldByName('infseg_xseg').AsString; CNPJ := TStringUtils.OnlyNumbers(qSeg.FieldByName('infseg_cnpj').AsString); nApol := qSeg.FieldByName('napol').AsString; Conexao.OpenForEach('select ' + ' m.naver ' + ' from seg_averbacao m ' + ' where m.mdfE_id = :mdfe_id ' + ' and m.seq_seg = :seq ' + ' order by m.seq', [MDFE_ID, qSeg.FieldByName('seq').AsInteger], procedure (qAver: TFDQuery) begin with aver.Add do nAver := qAver.FieldByName('naver').AsString; end); end;

pode ser que tenha, mas na maquina que tenho acesso agora, não tem nenhum módulo de banco.