lucdepaula
-
Total de ítens
32 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por lucdepaula
-
-
-
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
trysleep(2000);
//processo para executarhtp:= 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 erroend);
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.
-
Estava tentando conforme abaixo:
for i := 0 to pag.Count-1 do begin
pagamento:= pag.Items.tPag;
txtDetPagto.Lines.Add(pagamento);
end;
-
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.
- 1
-
Não sabia, vou fazer o teste e posto o resultado.
Muito obrigado pela atenção.
- 1
-
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!
- 1
-
-
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 smtpif 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!
Erro compilar projeto ACBrDFeHttpOpenSSL
em ACBrMDFe
Postado
Consegui resolver, adicionei no path "C:\Acbr\Fontes\Terceiros\synalist" e compilou, obg.