Antonio Carlos L

Oi @RicardoVoigt eu modifiquei as units em anexo, ( RLPreviewForm.pas e RLSaveDialog.pas ) Com isso o componente RLPreviewSetup passou a ter a propriedade InitialDir do SaveDialog O RLReport sozinho não tem essa propriedade, apenas se for colocado o componente RLPreviewSetup no form onde esta o RLReport. Se você julgar que o pessoal do Fortes incorporaria aos fontes, poderia passar para eles ? No form do ACBr que é responsavel pela impressão do modelo 55 , existe um RLPreviewSetup ? Em havendo, então poderia ser chamado diretamente ( não precisaria modificar os fontes ) ou teria que ser criado uma propriedade ? Obrigado SourceInitialDir.zip

Boa tarde a todos. Na impressão do modelo 55 no Fortes Report, SEM mexer nos fontes, é possível quando em PREVIEW, ao clicar em SALVAR o Path Default que é onde o executável se encontra, ser alterado por exemplo para a Área de Trabalho sem alterar os fontes ? Obrigado Antonio Carlos

Obrigado @Filipe Natividade de certo jeito vai de encontro com sua forma.

Em tempo, não informar a TAG Ide.tpTransp := ttNenhum e não informar o proprietário do veículo permitiu a emissão normal em homologação. Na página 10 da NT diz : "A regras de validação associadas a essa NT passam a ser aplicadas em produção no dia 02/08/2021" mas parece que não foi seguido.

Caros amigos, devido a NT 2021.002 versão 1.01 fui solicitado a fazer modificações em um software proprietário que usa o ACBr. A empresa usuária não é transportadora ela é um distribuidor e possui veículos próprios. Antes na TAG Ide.tpTransp := ttTAC; entretanto passou a dar a rejeição 744 se eu mudava para ttETC e dava rejeição 745 : O tipo de transportador não ser informado quando não estiver informado proprietário do veículo de tração Resolvi a situação não mais informando as tags // prop.CNPJCPF := '999999999000191'; // prop.RNTRC := '04111111'; // prop.xNome := 'EMPRESA LTDA'; // prop.IE := 11111111'; // prop.UF := 'RJ'; Ao observar a seguinte questão A contabilidade do cliente ate o momento não se pronunciou. Outros aqui passaram por isso e esse foi a forma de resolver ? Obrigado Antonio Carlos.

@Sérgio De Oliveira Santos você poderia detalhar como fez esse contato / pedido na agencia do Itau ? Explico, tem uns 15 dias que entrei em contato com o gerente do Itau ( tenho conta ) e falei que queria acesso a API de BOLETO para testes. Ele não sabia o que eu estava falando, disse que iria ver com o pessoal de cobranças e hoje voltei a perguntar e o "setor de cobranças" não dá retorno. Obrigado.

KKKKKK, sim é verdade.

https://sigaofisco.com.br/icms-cfops-de-substituicao-tributaria-serao-extintos-a-partir-de-2022/ Existe também o ajuste SINIEF 11/2019 https://sigaofisco.com.br/icms-confaz-altera-cst-e-crt-e-extingue-csosn/ Não localizei em https://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=tW+YMyk/50s= Nenhuma NT que trate do assunto. Não tenho dúvidas que o Time do ACBr vai implementar SE houver NT, por isso não entendam minha postagem como cobrança, apenas uma reflexão preparatória. Como os ajustem falam a partir de Janeiro de 2022 teoricamente ainda tem tempo, mas vejam que nos ajustes não existe menção a CEST e pelo que vi, muitas regras de negócio de vendas se baseiam justamente nisso ter ST ou não ter ST. Coisa complexa esse Brasil.

Voltou a funcionar, vai entender. Moderador pode fechar

Caros estou desce cedo tentando obter resposta do processamento no ambiente de homologação de NFe modelo 55 no RJ a nota é enviada e o retorno é sempre lote em processamento. No ambiente de consulta https://hom.nfe.fazenda.gov.br/portal/disponibilidade.aspx?versao=0.00&tipoConteudo=Skeuqr8PQBY= consta como normal. Em homologação consigo enviar normal NFe modelo 65 no RJ Fiz o teste pelo exemplo e fui acompanhando e o retorno é o mesmo. Mais alguém com esse problema ?

Oi @Daniel Simoes eu tive que abandonar minha ideia de dentro da thread controlar o tempo, deixar ela rodando ate que fosse interrompida com Terminated. Simplesmente, Thread.Terminated não faz com que a Thread se encerre de imediato, com exemplos mexendo em controles da VCL isso pode ate dar certo, mas depende muito da operação que esta sendo feita. Pra usar WaitFor e FreeAndNil somente se eu fizesse Self.FreeOnTerminate := False; Não sei se isso pode ser útil a alguém mas a solução que resolveu partiu de algo bem simples. Form1 Timer1: TTimer; private _FLAG : boolean; oDFeThead : TDfeThread; procedure ReportFimThreadDfe(Sender: TObject); public procedure TForm1.Timer1Timer(Sender: TObject); begin GeraLogDFe('ThreadDfe iniciada !'); _FLAG := True; Timer1.Enabled := not _FLAG; oDFeThead := TDfeThread.Create(True); oDFeThead.OnTerminate := ReportFimThreadDfe; oDFeThead.Start; end; procedure TForm1.ReportFimThreadDfe(Sender: TObject); begin _FLAG := False; Timer1.Enabled := not _FLAG; end; Agradeço de qualquer forma a ajuda

Pessoal estou montando uma automação para buscar os xmls das notas a cada x horas, ate então o processo era manual. Tenho uma Thread que é criada suspensa setado FreeOnTerminate = True; e o evento OnTerminate := ReportarFimThread; é onde verifico a finalização da Thread; No bloco execute da Thread um while not Self.Terminated do begin Sleep(tempo em horas); if Terminated then Abort; Rotina Consulta; if Terminated then Abort; Rotina BuscaXmls; if Terminated then Abort; Rotina manifestar Ciência; if Terminated then Abort; end; Acontece que se eu no form principal dou Thread.Terminate; no evento Thread.OnTerminate não consigo acusar a finalização através de if Thread.Finished then ... o que verifico é que sempre é criado uma exceção if Assigned(TThread(Sender).FatalException) then GeraLogDFe('<SinalizaFinalThreadDfe> '+ Exception(TThread(Sender).FatalException).Message); OnTerminate sempre causa uma exceção ?

Muito obrigado @BigWings eu não havia testado desabilitar essa Flag

Obrigado pela atenção @Juliomar Marchetti. O estranho é que essas pastas não estavam sendo geradas antes e agora uma rotina que verifica o xml na pasta deixou de funcionar. Aguardo por favor @Italo Giurizzato Junior me puder dar uma luz, obrigado.

@Daniel Braz de Oliveira Logado na conta de e-mail no navegador, vc pode abrir outra aba e verificar https://www.google.com/settings/security/lesssecureapps se esta habilitado o acesso de aplicações menos seguras do Gmail, outra coisa é que se a autenticação dupla estiver ativa também não funciona o envio de email. Espero que ajude.

Caros, pode ser que tenha havido uma mudança no componente e eu não tenha ciência, se for o caso desculpem. Estou com o componente na revisão 21170 e ao efetuar o download da Nfe pelo ultimo NSU esta sendo criado dentro da pasta uma outra pasta Down e outra Evento. Isso é configurável ? Obrigado.

Obrigado aos dois, @Daniel Simoes e @Juliomar Marchetti. Moderador pode fechar o tópico por favor

Oi @Juliomar Marchetti, então os ClientDataSet não são ligados a nenhuma Query, eu uso eles apenas como tabela em memoria. Eu crio os Fields deles em runtime no evento Create do DataModule. Se eu fizer simplesmente fizer ClientDataSetITENS.Close isso não some os itens ANTERIORES. Sempre que preciso limpar o ClientDataSet estou tendo que fazer um ClientDataSet.Close e um ClientDataSet.DataSetCreate ai limpa. Como em debug não mostrava o conteudo dos Fields o que aparecia era que FNFe mesmo depois de fazer ACBrNFe.NotasFiscais.Clear mantinha os dados eu fui para um caminho errado. Ou se após o Open dar um EmptyDataSet funciona da mesma forma, acho que é mais rápido

Pessoal, agradeço, mas o problema era outro bem diferente. Eu criei os fields dos ClientDataSet ( componente no datamodule ) em runtime no evento create do datamodule. Eu lia do ACbrNFe para o dataset esta em memoria. Por algum motivo fazer ClientDataSet.Close simplesmente não elimina da memória

@Daniel Simoes e @Juliomar Marchetti obrigado pela resposta. Vou testar sua indicação @Juliomar Marchetti, confesso que ignorava isso do debug ou rodar pela IDE , ja estava a pensar em usar ponteiros. "Porém se você tentar usar as propriedades de FNFe, após o Clear, receberá um A.V." então @Daniel Simoes isso que me deixou doido, exemplificando, eu carregava um xml com um item, limpava e ao carregar outro, aquele item ficava presente.

Creio que aqui seja o local devido para essa postagem. Tenho um DataModule onde está o componente ACBrNFe existe no private a declaração FNFe : TNFe; Logo depois do XML ser lido é atribuído assim : FNFe := ACBrNFe.NotasFiscais.Items[0].NFe; O processamento é feito sem problema e é feito ACBrNFe.NotasFiscais.Clear; Entretanto quando leio outro XML e faço a nova atribuição FNFe := ACBrNFe.NotasFiscais.Items[0].NFe; Verifico que os valores que existiam em FNFe não são apagados quando é feito ACBrNFe.NotasFiscais.Clear; Como FNFe não é criado explicitamente não tenho como dar Free e não existe nesse nível Clear. No ACBR vi que são criados coleções e elas são excluídas quando se faz o Clear Alguém já teve que lidar com algo do tipo ? Obrigado.

Obrigado, @BigWings vou ver sim.

Caros, preciso carregar xml em um dataset em memoria, mas queria criar os fields do clientdataset em runtime. Qual classe e em qual(is) unit(s) eu deveria focar para extrair essas informações ? Muito obrigado.

Bastou acrescentar o caminho do certificado, a senha dele, e o numero de série que já estava. Vou pensar nessa mudança quando portar para linux.

Caros tive que fazer um emissor que roda como serviço em uma VPS. Quando rodo ele standalone nenhum problema, mas se coloco como serviço diz que não consegue falar com o provedor de criptografia que é o certificado que esta instalado no windows. O Certificado A1 esta com essa configuração apontado para o numero de série que esta registrado no windows. SSLLib = libWinCript CryptLib = cryWinCrupt HttpLib = httpWinHttp XmlSignLib = xslibXml2 Para usar como serviço eu teria que usar OpenSSL e apontar fisicamente para o arquivo do certificado ?