lucdepaula

Consegui resolver, já tinha visto o post da remoção das units, mas mesmo assim continuava adicionei pcteConversaoCTe no uses em todos os formulários que tinha pcnConversao. Obrigado.

Boa tarde! Meu projeto fica dando este abaixo: [dcc32 Fatal Error] uEmailContador.pas(162): F2613 Unit 'pcteEventoCTe' not found. Atualizei os fontes do Acbr, removi pelo Apaga ACBR tb e instalei tudo novamente, mas o erro persiste.

Consegui resolver, adicionei no path "C:\Acbr\Fontes\Terceiros\synalist" e compilou, obg.

Meu path está assim, nos dois projetos

Eu tenho dois projetos no mesmo computador, um compila normal outro não, aparece a msg de erro que coloquei acima, eu já apaguei o acbr pelo "apagarAcbr", removi tudo, instalei tudo novamente, continua da mesma forma, um projeto compila normal e o outro não.

Atualizei os componentes e agora estou recebendo esta msg abaixo ao compilar o projeto "[dcc32 Fatal Error] uVendas.pas(191): F2051 Unit ACBrDFeHttpOpenSSL was compiled with a different version of ssl_openssl_lib.LibVersionIsGreaterThan1_0_0" Utilizo o Delphi XE8

Bom dia! Estou à dias quebrando cabeça, quando envio o POST o aplicativo fecha e não aparece nenhuma mensagem de erro na tela. Abaixo está o trecho do botão para enviar a solicitação: procedure TfmMenu.Button1Click(Sender: TObject); var htp: TIdHTTP; url : string; lst : TStringList; jso : TJSONObject; jsod : TJSONObject; jsa : TJSONArray; psn, vErro : string; sts : integer; begin TThread.CreateAnonymousThread( procedure() begin try sleep(2000); //processo para executar htp:= TIdHTTP.Create(nil); lst:= TStringList.Create; lst.Add('cpf=19628590880'); lst.Add('senha=123'); url:= 'https://agilizee.com.br/webService/loginParceiro.php'; try try //url:= htp.Post(url, lst, retorno); vErro:= htp.Post(url, lst); ShowMessage(vErro); except on e : exception do ShowMessage('Erro ao enviar solicitação! Detalhes: ' + e.Message); end; finally FreeAndNil(htp); lst.Free; end; begin jso:= TJSONObject.ParseJSONValue(url) as TJSONObject; psn:= jso.GetValue('message').Value; sts:= strToInt(jso.GetValue('value').Value); if sts=200 then begin ShowMessage('OK ' + psn); Application.CreateForm(TfmMenu, fmMenu); fmMenu.Show; end else begin ShowMessage(psn); end; jso.Free; end; TThread.Synchronize (TThread.CurrentThread, procedure () begin //após o click sincroniza end); except TThread.Synchronize (TThread.CurrentThread, procedure () begin // caso aja erro end); end; end).Start; end; Se alguém puder me ajudar por favor agradeço desde já. Este mesmo código acima tenho em outro aplicativo firemonkey e roda normal, neste fecha o app e não aparece nada na tela. Vou anexar tb o arquivo em php que criei para receber os dados. inseriClienteApp.php

Estava tentando conforme abaixo: for i := 0 to pag.Count-1 do begin pagamento:= pag.Items.tPag; txtDetPagto.Lines.Add(pagamento); end; 35200428216664000292550010000004191000807445-nfe.xml

Boa noite! Tudo bem? Carreguei o xml da NFe no componente ACBRNFe e não estou conseguindo ler estas tags: <pag> <detPag> <tPag>01</tPag> <vPag>10.00</vPag> </detPag> </pag> Alguém pode me ajudar por favor? Agradeço desde já pela ajuda.

Deu certo, após desinstalar a versão 64 bits e instalar a versão 32 bits do Lazarus deu certo. Obrigado pela ajuda.

Não sabia, vou fazer o teste e posto o resultado. Muito obrigado pela atenção.

Não, eu posso baixar a instalador de 32 bits e instalar no windows 64 bits?

Bom dia! Tenho o Delphi XE8 instalado e estou migrando para o Lazarus. Tenho no meu computador instalado Windows 7 64 bits, realizei o download do instalador do Lazarus 64 bits e instalei normalmente. Tentei fazer a instalação manual do pacote do ACBr compilei e instalei conforme o manual em pdf "Bem vindo ao trunk 2", realizei as etapas abaixo: ACBrComum → Synapse ACBrDiversos → ACBrComum PCNComum → ACBrDiversos ACBr_Integrador ACBrOpenSSL → ACBrComum ACBrTCP → ACBrDiversos ACBrNFe → ACBrDFeComum Fiz todo o processo sem reconstruir a IDE do Lazarus, ao finalizar fui em "Ferramentas, Construir o Lazarus com Perfil: IDE normal". Quando o Lazarus vai reabrir após a reconstrução aparece a msg de erro "acess violation" e não abre. Lazarus instalado versão v2.0.6 - 64 bits. Fiz um teste e fui instalando os pacotes e reconstruir um a um, quanto realizo a instalação do pacote ACBrNFe que aparece o erro. Pode ser que eu tenha algum conflito por ter o Delphi XE8 instalado e com o ACBr compilado e instalado nele? Alguém pode me ajudar por favor. Agradeço desde já a todos.

Vou tentar. Obrigado!

Boa tarde! Tenho um cliente com 3 impressoras epson tm-t20, porém um o qrcode sai perfeito, nas outras duas sai com umas letras. Alguém tem uma sujestão. Obrigado.

Bom dia! Estou com esta msg de erro ao enviar o sat 20190829090543|SAT-AC|info|Resposta enviada para AC com sucesso. 20190829090544|AC-SAT|info|Recebido comando AC EnviarDadosVenda sessão 951021 20190829090544|SAT|info|Erro xml: Element '{http://www.w3.org/2000/09/xmldsig#}Signature': This element is not expected. 20190829090544|SAT-AC|info|Venda CF-e-SAT: xml invalido 20190829090544|SAT|info|Rejeição: Erro não identificado 20190829090544|SAT-AC|erro|Venda CF-e-SAT: FALHA

Alterei como você sugeriu acima, mas o antivírus continua bloqueando o anexo, para envio ele não está bloqueando mais, mas no navegador web quando abro o e-mail e vou fazer o download do anexo que está em .7z ele detecta como virus...

Boa tarde! Fiz uma rotina para anexar dois arquivos um .pdf ou .7z porém se eu enviar somente o .pdf vai normal seu eu enviar o .7z nem envia da "unable to send mail". Se eu desativar o antivirus que no caso é o Avast ele envia normal e também realiza o download no e-mail pelo navegador. Minha dúvida é o seguinte, tenho uma outra rotina utilizando apenas os componentes da paleta indy10, no caso desta rotina o anexo vai normal com o antivirus ativo, agora usando o AcbrMail não vai tenho que desabilitar o antivirus, será que vcs podem me ajudar se errei em algum ponto, abaixo segue a rotina pra anexar e enviar os anexos, agradeço desde já pela ajuda de todos. try //envia email ACBrMail1.Clear; ACBrMail1.From := cdstbConfigEmailemail_remetente.AsString; ACBrMail1.FromName := cdstbConfigEmailnome_remetente.AsString; ACBrMail1.Host := cdstbConfigEmailhost_smtp.AsString; // troque pelo seu servidor smtp ACBrMail1.Username := cdstbConfigEmailusuario.AsString; ACBrMail1.Password := cdstbConfigEmailsenha.AsString; ACBrMail1.Port := cdstbConfigEmailporta.AsString; // troque pela porta do seu servidor smtp if cdstbConfigEmailssl.AsInteger = 1 then begin ACBrMail1.SetSSL:= true; end else begin ACBrMail1.SetSSL:= false; end; if cdstbConfigEmailtls.AsInteger = 1 then begin ACBrMail1.SetTLS:= true; end else begin ACBrMail1.SetTLS:= false; end; ACBrMail1.AddAddress(query.FieldByName('pa_email_contador').AsString,''); ACBrMail1.Subject := 'Arquivos XML e PDF NFe - [' + query.FieldByName('pa_cnpj').AsString + '] ' + query.FieldByName('pa_razao').AsString; // assunto ACBrMail1.IsHTML := True; // define que a mensagem é html ACBrMail1.ReadingConfirmation := True; //solicita confirmacao de leitura ACBrMail1.Body.Text := '<html>'+#13+#10+ '<head>'+#13+#10+#13+#10+ ' <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">'+#13+#10+ '</head>'+#13+#10+ '<body text="#000000" bgcolor="#FFFFFF">'+#13+#10+ '<h1>' + 'Segue anexo arquivos XML e PDF das NFe emitidas no periodo de ' + DateEdit1.Text + ' à ' + DateEdit2.Text + '.'+ '<br><br>' + fm_menu.Edit2.Text + '<br>' + query.FieldByName('pa_fantasia').AsString + ' - Fone: ' +query.FieldByName('pa_fone').AsString + '</h1><br>'+#13+#10+ '</body>'+#13+#10+ '</html>'+#13+#10; ACBrMail1.AltBody.Text := 'Segue anexo arquivos XML e PDF das NFe emitidas no periodo de ' + DateEdit1.Text + ' à ' + DateEdit2.Text + '.'; anexos:= TStringList.Create; anexos.Add(dm.vPastaTemporaria + '\NFeexport\NFe.7z'); anexos.Add(dm.vPastaTemporaria + '\NFeexport\NFe_relatorio.pdf'); for I := 0 to anexos.Count-1 do begin ACBrMail1.AddAttachment(anexos); end; ACBrMail1.Send; except on E:Exception do begin application.MessageBox(pChar('Erro ao enviar e-mail !' + #13 + #13 + E.Message + #13 + #13 + 'Consulte suporte técnico (16)98133-6597/(16)98164-3146!' + #13 + #13),'Aviso',MB_ICONINFORMATION); exit; end; end; anexos.Free;

Bom dia! Queria salvar o PDF da danfe carregando o xml, está aparecendo um erro "Arquivo de relatório não informado", estou utilizando o código abaixo que copiei do demo do AcbrNfe. OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; ACBrNFe1.NotasFiscais.Clear; if OpenDialog1.Execute then ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFe1.NotasFiscais.ImprimirPDF; Obrigado!

Bom dia! Queria salvar o PDF da danfe carregando o xml, está aparecendo um erro "Arquivo de relatório não informado", estou utilizando o código abaixo que copiei do demo do AcbrNfe. OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; ACBrNFe1.NotasFiscais.Clear; if OpenDialog1.Execute then ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFe1.NotasFiscais.ImprimirPDF; Obrigado!

Resolvi, estava informando os dados errados. Obrigado a todos pela ajuda!

Boa tarde! Estou utilizando o ACBrSATExtratoFortes para impressão do comprovante CFe, não estou conseguinda no campo observações do contribuinte pular linha queria como no exemplo abaixo: Venda: 0001 Operador: [1] TESTE está saindo um na frente do outro, "Venda: 0001 Operador: [1] TESTE". Oquê devo informar para pular de linha. Obrigado!

Alguém poderia me passar qual os parametros que tenho que enviar para realizar a consulta do status operacional para conferir se estou passando todos...

Estou usando o modelo no acbrsat 'Dinamico_stdcall' e a dll da dimep "dllsat.dll" mas eu consigo realizar a função consultar sat ele trava é na outra consultar status operacional.

Bom dia! Não sei onde estou errando, estou com um sat dimep ativo para produção, quando envio o comando para "Consultar SAT" ele retorna o status mas quando envio "Consultar Status Operacional" ele trava o meu sistema, teste no demo do ACBRSAT lá funciona normal, eu copie as rotinas do demo e está acontecendo somente no meu, alguém passou por algo parecido ou pode me ajudar, talvez não estou enviando todos os parâmetros para consulta. Agradeço desde já pela ajuda...