MarcosRWeimer

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.

Consegui. Peguei o XML completo aqui: ACBrCTe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML

Desculpem reativar o tópico de janeiro, mas estou com problemas. Envio o evento de cancelamento, é autorizado o acbr salva o arquivo xml do evento em disco, mas a referida propriedade (ACBrCTe.EventoCTe.XML) está vazia. Alguma sugestão ?

Blz!! Estou curioso para saber o funcionamento.

Ola! E ai, conseguiu alguma coisa com este bina pela placa de som ?

O componente utiliza interface, por enquanto são 3 units... o componente propriamente dito: https://bitbucket.org/marcosweimer/acbrbina/src/ec9f5522e88b7d9c0fc93a6bd1d8eaa9b1b200b0/Fontes/ACBrBina/ACBrBINA.pas?at=master&fileviewer=file-view-default a interface (generica): https://bitbucket.org/marcosweimer/acbrbina/src/ec9f5522e88b7d9c0fc93a6bd1d8eaa9b1b200b0/Fontes/ACBrBina/ACBrBINAInterface.pas?at=master&fileviewer=file-view-default e a interface (toptron): https://bitbucket.org/marcosweimer/acbrbina/src/ec9f5522e88b7d9c0fc93a6bd1d8eaa9b1b200b0/Fontes/ACBrBina/ACBrBINATopTron.pas?at=master&fileviewer=file-view-default a idéia é que cada fabricante tenha sua própria interface.

1,2 e 4 funciona no toptron (eles tem equipamentos para varias linhas inclusive aceitando cascata entre os equipamentos e apenas um deles conectado na USB do PC) Se tiver um simulador funcional vai ser excelente.

Usa a placa de som... isso vai ser interessante

Não conhecia esse equipamento, qualquer duvida só perguntar, se quiser subir a SDK para o repositório temporario me manda msg em private

Respondendo a @LIDERNetwork O site deles realmente está abandonado, acho que nem tem no site o modelo USB, pelo que parece só tem os antigos seriais, (USB não deixa de ser serial, eles apenas usam um conversor interno). Por que TOPTRON e não outros? Simplesmente por que era o equipamento que o cliente já tinha, estava sem saída, ou fazia funcionar no nosso sistema, ou fazia, cliente não iria comprar outro, por que "no sistema antigo funcionava". Vale uma indicação que o pessoal da TOPTRON sempre me ajudou, o suporte foi excelente, sempre que precisei, bastava enviar um e-mail e a resposta vinha. Algumas alterações sugeridas pelo @Daniel Simoes foram feitas, veja algumas postagens anteriores tem a URL do repositório no bitbucket, sua colaboração será bem vinda, inclusive se conseguir implementar as alterações restantes para incluir oficialmente no ACBr antes de adicionar novos equipamentos (para não ter retrabalho), será excelente e irá expandir ainda mais, já que acredito que muitas pessoas não estão utilizando por não acreditar muito. (apesar de já ter ultrapassado os 1000 downloads do source).

CT-e 3.00 PR Homologação continua com erro não catalogado

@Daniel Simoes Vlw! Já vou sincronizar e testar Testei aqui no XE8 com a versão que vc subiu para o SVN e está funcionando corretamente. Obrigado!