Dfox

Boa tarde , tenho sim. É esse mesmo aqui Leiaute-WebServices-Consulta-XML.pdf leiaute-WebServices-NFSe-XML.pdf https://www.projetoacbr.com.br/forum/topic/63675-acbrnfsex-presidente-venceslausp/?do=findComment&comment=416106

AssessorPublico não esta aceitando essa tag <SITUACAO>0</SITUACAO>

O nome NOMEFANTASIA era que no exemplo não tinha essa linha Tomador.NomeFantasia:= 'INSCRICAO DE TESTE'; agora o SITUACAO o que pode ser?

e também Campo: SITUACAO Tag: SITUACAO Valor: 0 Erro: A situação informada não pode ser utilizada.

Bom na verdade a nota está chegando no provedor, o ACBrNFSeX_Exemplo não consta erro mais no provedor tem um pdf dos erros NOMEFANTASIA Campo: Lote: 91 Seq: 91 Valor: Erro: O nome fantasia não foi informado. e o estranho é que esta sendo informado a fantasia!

Boa tarde estou emitindo umas nfse em homologação, repetindo o número da nfse e não está dando rejeição isso e normal?

Obrigado vou testar aqui!

Bom dia a todos eu testando o componente ACBrNFSeX e não consigo selecionar o provedor, isso vai possível futuramente ou tenho que colocar via código?

Fizemos testes agora com simples nacional, e com o grupo informando valores, com grupo zerado e sem grupo tudo passou

Verdade, e se não informar o grupo da rejeição 694

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

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

alguém sabe como posso verificar se o componente Owner.Components[I] é do tipo texto?

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?