MarcosRWeimer

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.

Ola! Estou tendo problemas em alguns clientes, ocorre access violation ao assinar. Crio o componente manualmente desta forma: AACBrMDFe := TACBrMDFe.Create(Application); AACBrMDFe.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrMDFe.Configuracoes.Geral.Salvar := False; //Não salvar XML sem valor fiscal AACBrMDFe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\MDFe\'; AACBrMDFe.Configuracoes.Arquivos.PathSalvar := AConexao.LerParametroString('NFE_CAMINHO_XML', True); AACBrMDFe.Configuracoes.Arquivos.SepararPorCNPJ := True; AACBrMDFe.Configuracoes.Arquivos.SepararPorMes := True; AACBrMDFe.Configuracoes.Arquivos.SepararPorModelo := True; AACBrMDFe.Configuracoes.Arquivos.Salvar := True; AACBrMDFe.Configuracoes.Arquivos.EmissaoPathMDFe := True; //se baseia pela data de emissão para montar o path AACBrMDFe.Configuracoes.WebServices.Visualizar := False; AACBrMDFe.Configuracoes.WebServices.Salvar := False; AACBrMDFe.Configuracoes.WebServices.UF := AFilial.xUF; AACBrMDFe.Configuracoes.Certificados.NumeroSerie := AFilial.CertSerie; AACBrMDFe.Configuracoes.Geral.VersaoDF := ve300; AACBrMDFe.EventoMDFe.Versao := '3.00'; AACBrMDFe.SSL.CarregarCertificado; if AACBrMDFe.SSL.DadosCertificado.Tipo = tpcA3 then //A3 begin AACBrMDFe.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; AACBrMDFe.SSL.SSLXmlSignLib := xsMsXml; end else //A1 begin AACBrMDFe.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec; AACBrMDFe.SSL.SSLXmlSignLib := xsXmlSec; end; //Configura sequencia para montar o path (cnpj\anomes\modelo) AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Clear; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opCNPJ; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opData; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opModelo; if AtpAmb = 1 then AACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao else AACBrMDFe.Configuracoes.Webservices.Ambiente := taHomologacao; //Mail if (not Assigned(AACBrMDFe.MAIL)) then AACBrMDFe.MAIL := TACBrMail.Create(Application); AACBrMDFe.MAIL.From := AFilial.Mail_Endereco; AACBrMDFe.MAIL.FromName := AFilial.Mail_NomeEmpresa; AACBrMDFe.MAIL.Host := AFilial.Mail_Servidor; AACBrMDFe.MAIL.Username := AFilial.Mail_Endereco; AACBrMDFe.MAIL.Password := AFilial.Mail_Senha; AACBrMDFe.MAIL.Port := IntToStr(AFilial.Mail_Porta); AACBrMDFe.MAIL.IsHTML := True; AACBrMDFe.MAIL.SetSSL := AFilial.Mail_SSL; AACBrMDFe.MAIL.ReadingConfirmation := False; AACBrMDFe.MAIL.AddReplyTo(AFilial.Mail_ResponderPara); Alimento o componente, e quando chamo o assinar: try ACBrMDFe.Manifestos.Assinar; except on e:exception do raise Exception.Create('Erro ao assinar. Erro: ' + e.Message); end; recebo o access violation, na verdade eu não recebo, por que aqui no meu pc funciona, mas em alguns clientes não, alguns inclusive usam o mesmo windows que tenho aqui (Win 10 Pro). Alguma idéia ? Não consigo fazer debug por que não consigo simular, estou desde ontem batendo cabeça e nada, copiei/registrei as DLLs novamente, instalei cadeia de certificados e nada.

só para complementar, estou passando pela mesma situação. Também não encontrei uma lógica, erro aleatório mesmo

se tomador não for contribuinte, tente usar o CFOP 5357/6357 - Prestação de serviço de transporte a não contribuinte

Conseguiu adequar o componente para este bina?

emulador não tem direto no site do fabricante?

Continuo curioso kkk

O fr3 está sendo adequado por outro setor, quando me passarem ele adiciono a este mesmo tópico.

Ola! Alterei o ACBrMDFeDAMDFEDR para disponibilizar novos campos: - Seg (seguro) - InfCIOT Alterações em anexo ACBrMDFeDAMDFEFR.pas

Blz, esclarecido. Obrigado.

Bom Dia Italo! Certo, concordo, só não ficou claro como altero este caminho. (dos arquivos sem valor fiscal)

Senhores.... estou com problemas no CT-e OS. Vejam o código (ACBrCTeDACTEFR) with CTE.infCTeNorm.rodoOS.veic do begin FieldByName('placa').AsString := placa; FieldByName('RENAVAM').AsString := RENAVAM; if (Length(Prop.TAF) > 0) or (Length(Prop.NroRegEstadual) > 0) then begin //Terceiro FieldByName('UF').AsString := Prop.UF; FieldByName('TAF').AsString := Prop.TAF; FieldByName('NroRegEstadual').AsString := prop.NroRegEstadual; FieldByName('CPF/CNPJ').AsString := prop.CNPJCPF; end else begin //Próprio FieldByName('UF').AsString := CTe.infCTeNorm.rodoOS.veic.UF; FieldByName('TAF').AsString := CTe.infCTeNorm.rodoOS.TAF; FieldByName('NroRegEstadual').AsString := CTe.infCTeNorm.rodoOS.NroRegEstadual; FieldByName('CPF/CNPJ').AsString := CTe.Emit.CNPJ; end; end; A pergunta é por que na impressão do DACTE obtém o CNPJ do emitente ? quando o mesmo deveria ir em branco (no XML não vai a TAG por que emitente é transportadora com veículo próprio). No meu ponto de vista (e de um cliente) não deve ser impresso este valor (conforme manual, Leiaute - Rodoviário OS, item 7, "Proprietário do Veículo. Só preenchido quando o veículo não pertencer à empresa emitente do CT-e", no XML está correto.) Na minha opinião deve ser removido, não vejo justificativa para imprimir. P.S. Na revision 13288, foi alterado este item e faz referência a este tópico.

Obrigado @Italo Jurisato Junior E para salvar na mesma pasta, como seria ? ou não tem essa possibilidade ?

certo, acho que compliquei mais do que expliquei kk Eu estava configurando o path do CT-e e dos eventos com o mesmo caminho. Porém depois que atualizei, não funcionou mais, os eventos não eram salvos na pasta correta. Então oque fiz foi, para o path do ct-e passar apenas a pasta raiz (exemplo "c:\xml\") e para os eventos a pasta inteira ("c:\xml\cnpj\201808\CTe\"). Claro que tem a variante da configuração de path. Observa no componente ACBrCTe1 a opção CONFIGURACOES, depois ARQUIVOS e por fim ORDENACAOPATH, veja como está configurado ali, observe se está marcado tambem as opções SepararPorAno, SepararPorMes. Para ficar mais claro de entender, tente debugar o método GetPath que está dentro do ACBrDFeConfiguracoes

Também fui "pego" depois de atualizar, procurei agora no change-log mas não encontrei. O que fiz foi quando gerar o caminhoPDF passar o caminho inteiro (ACBrCTeDACTEFR.PathPDF), e para o XML passo apenas a pasta principal, que os XMLs são gerados conforme configurado (ACBrCTeDACTEFR.Configuracoes.Arquivos.OrdenacaoPath)

Ola! Estou configurando o ACBrCTe da seguinte forma: class procedure TCTeFunc.ConfigurarACBrCTe(var AACBrCTe: TACBrCTe; AModelo, AtpAmb: Integer); var fOrd: TOrdenacaoPath; begin if (not Assigned(AACBrCTe)) then AACBrCTe := TACBrCTe.Create(Application); AACBrCTe.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrCTe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\CTe\'; AACBrCTe.Configuracoes.Arquivos.PathSalvar := AConexao.Parametro('NFE_CAMINHO_XML'); AACBrCTe.Configuracoes.Arquivos.SepararPorCNPJ := True; AACBrCTe.Configuracoes.Arquivos.SepararPorMes := True; AACBrCTe.Configuracoes.Arquivos.SepararPorModelo := True; AACBrCTe.Configuracoes.Arquivos.Salvar := True; AACBrCTe.Configuracoes.Arquivos.EmissaoPathCTe := True; //se baseia pela data de emissão para montar o path AACBrCTe.Configuracoes.WebServices.Visualizar := False; AACBrCTe.Configuracoes.WebServices.Salvar := False; AACBrCTe.Configuracoes.WebServices.UF := AFilial.xUF; AACBrCTe.Configuracoes.Certificados.NumeroSerie := AFilial.CertSerie; AACBrCTe.Configuracoes.Geral.VersaoDF := ve300; AACBrCTe.EventoCTe.VersaoDF := ve300; AACBrCTe.EventoCTe.Versao := '3.00'; //Configura sequencia para montar o path (cnpj\anomes\modelo) AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Clear; with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opCNPJ; with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opData; with AACBrCTe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opModelo; //Modelo if AModelo = 67 then AACBrCTe.Configuracoes.Geral.ModeloDF := moCTeOS else AACBrCTe.Configuracoes.Geral.ModeloDF := moCTe; //Ambiente if AtpAmb = 1 then AACBrCTe.Configuracoes.WebServices.Ambiente := taProducao else AACBrCTe.Configuracoes.Webservices.Ambiente := taHomologacao; //Mail if (not Assigned(AACBrCTe.MAIL)) then AACBrCTe.MAIL := TACBrMail.Create(Application); AACBrCTe.MAIL.From := AFilial.Mail_Endereco; AACBrCTe.MAIL.FromName := AFilial.Mail_NomeEmpresa; AACBrCTe.MAIL.Host := AFilial.Mail_Servidor; AACBrCTe.MAIL.Username := AFilial.Mail_Endereco; AACBrCTe.MAIL.Password := AFilial.Mail_Senha; AACBrCTe.MAIL.Port := IntToStr(AFilial.Mail_Porta); AACBrCTe.MAIL.IsHTML := True; AACBrCTe.MAIL.SetSSL := AFilial.Mail_SSL; AACBrCTe.MAIL.ReadingConfirmation := False; AACBrCTe.MAIL.ReplyTo.Clear; AACBrCTe.MAIL.AddReplyTo(AFilial.Mail_ResponderPara); AACBrCTe.Conhecimentos.Clear; AACBrCTe.EventoCTe.Evento.Clear; end; Mas estou tendo problemas com o arquivos, os arquivos "-procEventoCTe", "-cte" estão sendo salvos corretamente pasta/cnpj/anomes/cte/ porem alguns arquivos ("-inu", "-ped-inu", "-env-lot", "-rec", "-pro-rec", "-ped-rec") estão sendo salvos direto dentro da pasta, sem separar. Pelo que entendi, os arquivos sem valor fiscal estão sendo salvos na pasta configurada no ACBrCTe.Configuracoes.Arquivos.PathSalvar e os demais não. Estou errando em alguma configuração para salvar na mesma pasta? para não salvar os arquivos basta setar esta propriedade: ACBrCTe.Configuracoes.Arquivos.Salvar := False ? P.S. Atualizei o ACBr a pouco (rev. 13749)

Acertou em cheio, estava na pasta mas não no Library Path, utilizei o ACBrInstall_Trunk2, estranhamente as outras pastas (synalist, zlibexgz...) estavam no library. Obrigado.

Desculpe, falhei, é a mesma mensagem acima... [dcc32 Fatal Error] ACBrCompress.pas(48): F2613 Unit 'GZIPUtils' not found.

acabei de atualizar e continua não compilando (xe8)

Ola! no XE8 estou fazendo assim: procedure TFWebCam.IniciarCamera(); begin handler := capCreateCaptureWindowA('', WS_CHILD OR WS_VISIBLE, 2, 15, 334, 322, Self.Handle, 0); //handler := capCreateCaptureWindowA('', WS_CHILD OR WS_VISIBLE, 2, 15, 334, 322, Application.ActiveFormHandle, 0); -> abre no owner... //handler := capCreateCaptureWindowA('CaptureWindow', $40000000 and $10000000, 0, 0, 0, 0, GetDesktopWindow, 0); -> abre em novas janelas (no desktop) try SendMessage(handler, WM_DRIVER_CONNECT, 0, 0); SendMessage(handler, WM_SET_PREVIEWRATE, 40, 0); SendMessage(handler, WM_SET_PREVIEW, 1, 0); raise EValidation.Create('Ocorreu um erro ao obter as imagens'); end; end; procedure TFWebCam.btnCapturarClick(Sender: TObject); begin if (handler <> 0) then begin SendMessage(handler, WM_SAVEDIB, 0, LongInt(PAnsiChar(AnsiString(caminhoBmp)))); //manter as conversões do caminhoBmp (se não manter (mesmo alterando o tipo da variavel) não salva corretamente (salva com caminho/nome/extensão avariados) Image1.Picture.LoadFromFile(caminhoBmp); //carrega a imagem capturada end; end;

Ola! Alguém já teve de fazer integração com a Losango TRS ? funciona mais ou menos assim (bem resumido): loja vende parcelado, mas quem financia é a losango, são enviados os dados da venda, (valor, produto, dados do cliente, imagens dos documentos pessoais, comprovantes de endereço...) e a losango retorna autorização ou não do financiamento. Se alguém já fez poderia dar umas dicas, a ideia é fazer um componente e doar ao projeto.

to na mesma, atualizei agora e me deparo com isso.... remover funcionalidades pré existentes é complicado

Ola Paulo! Desculpe desenterrar o tópico, surgiu a necessidade aqui de desensolver NFS-e para Foz, vc ainda está usando ? está funcionando no trunk 2?? A idéia aqui era ir migrando para o ACBr, se estiver funcionando seria o ponta pé inicial.