[Substituição de nota fiscal de serviço]

Pra quem tiver o mesmo problema, depois de dias quebrando cabeça, deu certo.

Na geração da substituição eu estava enviando o CNPJ e estava faltando a "Inscrição Municipal", após informar a inscrição municipal deu certo.

[Substituição de nota fiscal de serviço]

Estou com o erro abaixo ao tentar emitir uma nota fiscal de serviço em substituição por outra.

O provedor é Fiorilli, estou emitindo substituir a nota número 8 por exemplo por uma atual

Erro(s):
Código  : L69
Mensagem: Número da Nota Fiscal de Serviço informado no pedido de substituição incorreto.
Correção: O Número da Nota Fiscal de Serviço informado no pedido de substituição deve ser o mesmo Número da Nota do RPS substituído.

 

 

 

8-ped-sub.xml

[pcteEventoCTe]

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.

[pcteEventoCTe]

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.

 

[Erro compilar projeto ACBrDFeHttpOpenSSL]

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

[Erro compilar projeto ACBrDFeHttpOpenSSL]

Meu path está assim, nos dois projetos

[Erro compilar projeto ACBrDFeHttpOpenSSL]

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.

[Erro compilar projeto ACBrDFeHttpOpenSSL]

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

[post firemonkey fecha app]

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

[Forma de pagamento tPag]

   

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

[Forma de pagamento tPag]

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.

[Instalação ACBr Lazarus]

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

Obrigado pela ajuda.

[Instalação ACBr Lazarus]

Não sabia, vou fazer o teste e posto o resultado.

Muito obrigado pela atenção.

[Instalação ACBr Lazarus]

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

[Instalação ACBr Lazarus]

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.

[Problema impressão qrcode]

Vou tentar. Obrigado!

[Problema impressão qrcode]

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.

[Erro ao gerar sat]

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

[Anexo.7z AcbrMail]

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

[Anexo.7z AcbrMail]

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;
 

 

[Arquivo de relatório não informado]

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!

 

[Arquivo de relatório não informado]

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!

 

[Consultar Status Operacional - SAT]

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

[Quebra de linha ACBrSATExtratoFortes]

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!

 

[Consultar Status Operacional - SAT]

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