Dfox

Boa tarde a todos, estive procurando um componente para mudar a cor dos edits memo etc, não encontrei então fiz um, mais gostaria da ajuda de vocês mestres de componentes para poder analisar para ver se esta tudo certo ou ate usar a ideia para criar um para o acbr! { DWinControlFocusColor - Mudando as cores no focus em seus programas Delphi Copyright (C) 2021 DfoxSys Email: [email protected] } unit DWinControlFocusColor; interface uses Windows, Vcl.Forms, Vcl.Controls, Vcl.Dialogs, Messages, SysUtils, StrUtils, Classes, Vcl.Graphics, Vcl.StdCtrls; type TCloneWinControl = class(TWinControl); type TDWinControlFocusColor = class(TComponent) private {Private Declarations} FFormOwner: TForm; FOldOnDestroy : TNotifyEvent; FOldOnCreate : TNotifyEvent; FAbout: string; FAtivo: Boolean; FEnterColor : TColor; FExitColor : TColor; procedure SetEnterColor(const Value: TColor); procedure SetExitColor(const Value: TColor); procedure SetAtivo(const Value: Boolean); protected {Protected Declarations} public {Public Declarations} Constructor Create(AOwner: TComponent); override; Destructor Destroy; override; procedure ControlChange(Sender: TObject); procedure DOnDestroy(Sender: TObject); procedure DOnCreate(Sender: TObject); published {Published Declarations} property About: string read FAbout; property Ativo: Boolean read FAtivo write SetAtivo default false; property EnterColor: TColor read FEnterColor write SetEnterColor default $00AEFFFF; property ExitColor: TColor read FExitColor write SetExitColor default clWindow; end; procedure Register; implementation procedure Register; begin RegisterComponents('DfoxSys', [TDWinControlFocusColor]); end; procedure TDWinControlFocusColor.ControlChange(Sender: TObject); var I: Integer; begin for I := 0 to Owner.ComponentCount -1 do begin if (Owner.Components[I] is TWinControl) and not (ContainsText(Owner.Components[I].ClassName , 'Combo')) and not (ContainsText(Owner.Components[I].ClassName , 'Panel')) then begin if TCloneWinControl(Owner.Components[I]).Focused then TCloneWinControl(Owner.Components[I]).Color := FEnterColor else TCloneWinControl(Owner.Components[I]).Color := FExitColor; end; end; end; Destructor TDWinControlFocusColor.Destroy; begin inherited Destroy; end; procedure TDWinControlFocusColor.DOnCreate(Sender: TObject); begin try if FAtivo then begin if not (Sender is TForm) then exit ; Screen.OnActiveControlChange := ControlChange; end; finally if Assigned(FOldOnCreate) then FOldOnCreate(Sender); end; end; procedure TDWinControlFocusColor.DOnDestroy(Sender: TObject); begin try if FAtivo then begin if not (Sender is TForm) then exit ; Screen.OnActiveControlChange := nil; end; finally if Assigned(FOldOnDestroy) then FOldOnDestroy(Sender); end; end; procedure TDWinControlFocusColor.SetAtivo(const Value: Boolean); begin FAtivo := Value; end; procedure TDWinControlFocusColor.SetEnterColor(const Value: TColor); begin FEnterColor := Value; end; procedure TDWinControlFocusColor.SetExitColor(const Value: TColor); begin FExitColor := Value; end; Constructor TDWinControlFocusColor.Create(AOWner: TComponent); var RealOwner: TComponent; begin inherited; FFormOwner := nil; FAbout := '(c) 2021 Dfox Inc, ver 1.0.0.0'; FAtivo := False; FEnterColor := $00AEFFFF; FExitColor := clWindow; if (not Assigned(FFormOwner)) then begin RealOwner := Owner; while Assigned(RealOwner) and (not (RealOwner is TCustomForm)) do RealOwner := RealOwner.Owner; FFormOwner := TForm(RealOwner); { Salvando estado das Propriedades do Form, que serão modificadas } with FFormOwner do begin FOldOnDestroy := OnDestroy; FOldOnCreate := OnCreate; end ; if not (csDesigning in ComponentState) then begin with TForm(Owner) do begin OnDestroy := DOnDestroy; OnCreate := DOnCreate; end; end; end; end; end.

Boa tarde todos, peço a quem pode me ajudar, tem tenho o seguinte cenário um projeto com três forms primeiro form1 o principal segundo form2 terceiro form3 no form1 com um botão eu chamo o form2 em modal form2 := TForm2.Create(self); Form2.ShowModal; no form2 eu chamo o form3 que esta como formstyle = fsStayOnTop form3 := TForm3.Create(Self); Form3.Show; ate ai tudo bem, agora o problema é que ao apertar a tecla Windows + D ou clicar no canto direito do taskbar para mostrar a área de trabalho o form3 não minimiza aguem poderia me ajudar com uma solução, preciso muito!

Pelo que testei aqui só está funcionando no Fortes Reportes, no Fast Report não aparece!

Arquivo atualizado DANFeRetrato.fr3 e não sai a informação "NFE SEM AUTORIZAÇÃO DE USO DA SEFAZ" ou eu tenho que informar a propriedade <ACBrNFeDANFeFR>.MarcaDaguaMSG := 'RASCUNHO'; ?

Boa tarde, Eu uso o DANFeRetrato.fr3 e não sai nenhuma informação qual vocês usa

boa tarde, alguém me da uma luz de como calcular esses campos? // Percentual do diferimento do ICMS relativo ao Fundo de Combate à Pobreza (FCP). // No caso de diferimento total, informar o percentual de diferimento "100" pFCPDif := 0; // Valor do ICMS relativo ao Fundo de Combate à Pobreza (FCP) diferido vFCPDif := 0; // Valor do ICMS relativo ao Fundo de Combate à Pobreza (FCP) realmente devido. vFCPEfet := 0;

Boa tarde, Já posso enviar nfce no modo sincrono em produção? ACBrNFe.Enviar(nLote, True, True)

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

Bom dia, a todos em produção esta emitindo normal, mais em homologação recebo o erro 0 como faço para saber se o link em homologação mudou?

Boa tarde a todos, antes eu usava assim para salvar o xml no banco TBlobField(qrnota.fieldbyname('xml')).LoadFromFile(sXML); // grava no campo após atualizar para o zeosdbo-7.2.14-stable ele salva o conteúdo tudo como ??????????????????????????????????????????? alguém passou por isso?

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.

bom dia a todos, tenho o seguinte comando sql update C000050 QRC set QRC.CODCONTA = (select RC.CODIGO from C000049 RC where substring(RC.CODIGO from 1 for 10) = QRC.CODCONTA and char_length(QRC.CODCONTA) = 10) where char_length(QRC.CODCONTA) = 10 porem da erro por ter registros repetidos multiple rows in singleton select. alguém teria uma solução?

coloquei assim -9 : begin MessageDlg('Verifique a Comunicação com a Balança !',mtWarning,[mbOk],0); rqtde.SetFocus; end; será que todo retorno -9 é falha de comunicação com a balança?

Bom dia, a todos com o componente ACBrBAL1 tem como verificar a conexão com a balança?

Ata acho que entendi https://www.drbalanca.com.br/configuracao-ean13-quantum/

Só um detalhe acho que tem um T a mais na estrutura do ean13 2CCCC0TTTTTTDV será que não seria assim 2CCCC00TTTTTDV para ler etiquetas onde o código do produto é de 6 casas decimais 2CCCCCCTTTTTDV

Obrigado, vou verificar aqui

Não tipo ler o peso da etiqueta Ex código da etiqueta 2001100015244

Bom dia, o acbr tem um componente para ler etiqueta de balança?

Obrigado, é que vi os logos da queles bancos, achei que tava implementado já .

achei essa função, é só esses bancos suportado pelo acbr mesmo? function TACBrBoleto.GetTipoCobranca(NumeroBanco: Integer; Carteira: String = ''): TACBrTipoCobranca; begin case NumeroBanco of 001: Result := cobBancoDoBrasil; 003: Result := cobBancoDaAmazonia; 004: Result := cobBancoDoNordeste; 008,033,353: Result := cobSantander; 021: Result := cobBanestes; 041: Result := cobBanrisul; 070: Result := cobBRB; 091: Result := cobUnicredRS; 097: Result := cobCrediSIS; 099: Result := cobUniprime; 104: Result := cobCaixaEconomica; 136: Result := cobUnicredES; 237: Result := cobBradesco; 341: Result := cobItau; 389: Result := cobBancoMercantil; 748: Result := cobSicred; 756: Result := cobBancoob; 399: Result := cobHSBC; 422: Result := cobBancoSafra; 085: Result := cobBancoCECRED; 047: Result := cobBanese; 745: Result := cobCitiBank; 246: Result := cobBancoABCBrasil; 707: Result := cobDaycoval; 084: Result := cobUniprimeNortePR; 643: begin if StrToInt(Carteira) = 9 then Result := cobBancoPineBradesco else Result := cobBancoPine; end; else raise Exception.Create('Erro ao configurar o tipo de cobrança.'+ sLineBreak+'Número do Banco inválido: '+IntToStr(NumeroBanco)); end; end;

Boa tarde a todos, estou mapeando cada banco do boleto // DADOS DO BANCO with ACBrBoleto1.Banco do begin case StrToInt(frmmodulo.qrconfig_cobrebemcodigo_banco.AsString) of 001: TipoCobranca := cobBancoDoBrasil; 003: TipoCobranca := cobBancoDaAmazonia; 004: TipoCobranca := cobBancoDoNordeste; 008,033,053,353: TipoCobranca := cobSantander; 021: TipoCobranca := cobBanestes; //024: TipoCobranca := cob; //027: TipoCobranca := cob; //028: TipoCobranca := cob; //029: TipoCobranca := cob; //031: TipoCobranca := cob; //036: TipoCobranca := cob; //038: TipoCobranca := cob; 041: TipoCobranca := cobBanrisul; 047: TipoCobranca := cobBanese; 070: TipoCobranca := cobBRB; 084: TipoCobranca := cobUniprimeNortePR; 085: TipoCobranca := cobBancoCECRED; 097: TipoCobranca := cobCrediSIS; 099: TipoCobranca := cobUniprime; 104: TipoCobranca := cobCaixaEconomica; 133: TipoCobranca := cobBancoCresolSCRS; 136: TipoCobranca := cobUnicredRS; //151: TipoCobranca := cob; //231: TipoCobranca := cob; 237: TipoCobranca := cobBradesco; //244: TipoCobranca := cob; //246: TipoCobranca := cob; //263: TipoCobranca := cob; //275: TipoCobranca := cob; //291: TipoCobranca := cob; //320: TipoCobranca := cob; 341: TipoCobranca := cobItau; //347: TipoCobranca := cob; //356: TipoCobranca := cob; 389: TipoCobranca := cobBancoMercantil; //392: TipoCobranca := cob; 399: TipoCobranca := cobHSBC; //409: TipoCobranca := cob; //422: TipoCobranca := cob; //424: TipoCobranca := cob; //453: TipoCobranca := cob; //479: TipoCobranca := cob; //600: TipoCobranca := cob; //604: TipoCobranca := cob; //610: TipoCobranca := cob; //623: TipoCobranca := cob; //633: TipoCobranca := cob; //637: TipoCobranca := cob; //641: TipoCobranca := cob; //702: TipoCobranca := cob; //707: TipoCobranca := cob; //721: TipoCobranca := cob; //741: TipoCobranca := cob; //745: TipoCobranca := cob; 748: TipoCobranca := cobSicred; //749: TipoCobranca := cob; 756: TipoCobranca := cobBancoob; else TipoCobranca := cobNenhum; end; alguém pode me ajudar com esses códigos comentados?

deu certo obrigado.

boa tarde, ao imprimir um MDFE a impressão sai direto na impressora padrão, tem como poder selecionar a impressora tipo assim

Boa tarde, tenta essa função function SerialNum(): string; var DriveLetter : string; NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of AnsiChar; VolumeSerialNumber: DWORD; begin try DriveLetter := GetEnvironmentVariable('SystemDrive'); GetVolumeInformation(PChar(DriveLetter + '\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := IntToHex(VolumeSerialNumber, 8); except Result := '????????'; end; end;