Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Dfox

Membros
  • Posts

    150
  • Joined

  • Last visited

  • Days Won

    1

Dfox last won the day on March 14

Dfox had the most liked content!

Recent Profile Visitors

1,533 profile views

Dfox's Achievements

  1. Fizemos testes agora com simples nacional, e com o grupo informando valores, com grupo zerado e sem grupo tudo passou
  2. Empresas do Simples, recebi as informações abaixo: EMPRESAS DO SIMPLES NACIONAL – DISPENSA DE RECOLHIMENTO DA DIFERENÇA Quando o remetente da mercadoria ou prestador do serviço for optante pelo Simples Nacional, este deverá calcular o ICMS próprio no PGDAS e recolher no DAS, para o Estado remetente, com as regras do Simples Nacional, incidente sobre sua receita. De acordo com a cláusula nona do Convênio ICMS 93/2015, a partir de 2016 os optantes pelo Simples Nacional deveriam recolher fora do DAS para o Estado de destino apenas a parte da diferença cabível na divisão, o que representaria um aumento da carga tributária para as empresas enquadradas no Simples Nacional. No entanto, de acordo com a Ação Direta de Inconstitucionalidade 5.464/2016, o Supremo Tribunal Federal suspendeu a aplicação das novas regras de partilha do ICMS nas operações e prestações interestaduais destinadas a consumidor final não contribuinte do imposto, quando realizadas por optantes pelo Simples Nacional. De acordo com a orientação as empresas Optantes pelo Simples Nacional estão dispensadas do recolhimento
  3. Também estou com essa duvida estou informando assim ICMSUFDest.vICMSUFDest := RoundTo(((ICMSUFDest.vBCUFDest * ICMSUFDest.pICMSUFDest)/100 - (qrnota_item.fieldbyname('base_calculo').AsFloat * ICMSUFDest.pICMSInter)/100) * ICMSUFDest.pICMSInterPart/100, -2); ICMSUFDest.vICMSUFRemet := RoundTo(((ICMSUFDest.vBCUFDest * ICMSUFDest.pICMSUFDest)/100 - (qrnota_item.fieldbyname('base_calculo').AsFloat * ICMSUFDest.pICMSInter)/100) - ICMSUFDest.vICMSUFDest, -2); para simples nacional e esta passando normalmente sendo que simples nacional não tem base de calculo
  4. alguém sabe como posso verificar se o componente Owner.Components[I] é do tipo texto?
  5. 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.
  6. 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!
  7. Pelo que testei aqui só está funcionando no Fortes Reportes, no Fast Report não aparece!
  8. 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'; ?
  9. Boa tarde, Eu uso o DANFeRetrato.fr3 e não sai nenhuma informação qual vocês usa
  10. 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;
  11. Boa tarde, Já posso enviar nfce no modo sincrono em produção? ACBrNFe.Enviar(nLote, True, True)
  12. bom dia, fiquei 3 dias tentando emitir, tentei de manhã e deu erro agora pouco fui testar e emitiu normal
  13. 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?
  14. 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?
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.