Dfox

Resolvi para quem precisar esta ai como eu fiz
procedure TfrmOrcamentoPDV.btvend_imp_ticketClick(Sender: TObject); var OldIndex: Integer; begin frmmodulo.qrconfig.Open; OldIndex := frxPrinters.PrinterIndex; fxOrcamento.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'rel\Ticket-IF.fr3'); fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString; fxOrcamento.PrepareReport; fxOrcamento.PrintOptions.ShowDialog := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 1; if frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 0 then fxOrcamento.Print else fxOrcamento.ShowReport; // Volta a padrão no fast {Uses frxPrinter} frxPrinters.PrinterIndex := OldIndex; end;  

Obrigado consegui enviar a alteração

Obrigado pela atenção
mas consegui assim
 
procedure TfrmPrincipal.Ac_WhatsAppExecute(Sender: TObject);
var
  meulink, minhamsg, meuphone :string;
  num:Integer;
begin
  Randomize;
  num := Round(Random(2) +1);
  case num of
    1: meuphone := '1798573-1231';
    2,3: meuphone := '18 99396-5327';
  end;
  minhamsg    := 'Olà Tudo bem';
  if InputQuery('Sua Menssagem', 'Escreva Algo:', minhamsg) then
  begin
    meulink := 'https://api.whatsapp.com/send?1=pt_BR&phone=' + meuphone + '&text=' + minhamsg + '';
    ShellExecute(handle,'open',PChar(meulink), '', '',SW_SHOWNORMAL);
  end;
end;

O erro era porque, estava assinando o Rps

Agora é só atualizar o acbr e fazer assim
Var
NumeroLote : int64;
NumeroLote := StrToInt64(FormatDateTime('yymmddss', now));

SSLLib coloca wincrypt

bom dia,
fiquei 3 dias tentando emitir, tentei de manhã e deu erro agora pouco fui testar e emitiu normal 🤔😅

Obriga deu certo mas ficou muito lento então fiz assim com duas formas
opção 1
merge into C000050 QRC using (select RC.CODIGO from C000049 RC) as RC on substring(RC.CODIGO from 1 for 10) = QRC.CODCONTA and char_length(QRC.CODCONTA) = 10 when matched then update set QRC.CODCONTA = RC.CODIGO opção 2
execute block as declare variable rccodigo varchar(15); begin for select RC.CODIGO from C000049 RC, C000050 QRC where substring(RC.CODIGO from 1 for 10) = QRC.CODCONTA and char_length(QRC.CODCONTA) = 10 into :rccodigo do begin update C000050 set codconta = :rccodigo where codconta = substring(:rccodigo from 1 for 10); end end; ficou super rápido.

Obrigado achei removi esse linha ACBrCTe1.dacte.PathPDF := edtPathLogs.text; e resolveu!

Sim, Tenta Loadfromstring

de momento consegui resolver assim
var MutexHandle: THandle; hwind:HWND; MutexHandle := CreateMutex(nil, True, 'Dfox'); if MutexHandle <> 0 then begin if GetLastError = ERROR_ALREADY_EXISTS then begin MessageDlg('O Sistema Dfox já está em execução', mtInformation, [mbOK], 0); CloseHandle(MutexHandle); hwind := 0; repeat hwind := FindWindowEx(0,hwind,'TApplication','TfrmPrincipal'); until (hwind<>Application.Handle); if (hwind<>0) then begin ShowWindow(hwind,SW_SHOWNORMAL); SetForegroundWindow(hwind); end; Halt; end end;  

boa noite deu certo aqui faltava um assinar
 
Cte.Conhecimentos.Assinar;
 
podem fechar obrigado

boa noite resolvido
 
with seg.Add do begin respSeg:=rsEmitente; CNPJCPF := ZQryMFDe.FieldByName('RESP_SEGURO_CPF').AsString; xSeg := ZQryMFDe.FieldByName('SEGURADORA_NOME').AsString; CNPJ := ZQryMFDe.FieldByName('SEGURADORA_CNPJ').AsString; nApol := ZQryMFDe.FieldByName('APOLICE_NUMERO').AsString; with aver.Add do begin nAver := ''; end; end;