lucdepaula

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...

Obrigado vou procurar...

Boa Noite, a nfe foi obrigatória a atualização para a versão 3.10 a partir de hoje dia 01/04/2015, queria saber se ouve alguma alteração no componente da acbr pois atualizei mas não encontrei nada para corrigir e estou com problemas em todos meu clientes que não estão conseguindo emitir nota. Obrigado!