Antonio Carlos L

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 ?

@Juliomar Marchetti tenho a inscrição do Dia do Acbr mas não consegui ver ontem, acessei e não vi onde consigo rever, não é possível ?

Caros, sempre procedo a inutilização numero a numero, nunca por faixa. Acontece que ou por latência, queda da internet ou demora na resposta da SEFAZ o numero é inutilizado mas não se obtém a resposta, quando se vai tentar inutilizar novamente vem a resposta "Ja existe pedido de Inutilizacao com a mesma faixa de inutilizacao". E ai é quando se consulta na SEFAZ esta lá, sendo necessário acertar manualmente. Existe uma forma de consultar a inutilização para corrigir de forma automática ? Obrigado.

Moderador, marque como resolvido. A StringList ao enviar como texto entre cada linha mandava #$D#$A isso quando a linha era ocupada totalmente era substituído por ; mas se a linha é variável cortava,. Obrigado a todos

@BigWings obrigado pelo retorno. No caso é um sistema especifico para um cliente e a nota será sempre impressa por ESCPOS . Veja se estou fazendo algo errado por favor S := TStringList.Create; S.Add('PROCON/RJ : Tel.151 Rua da Ajuda, 5 Centro - Rio de Janeiro '); S.Add('ALERJ : Tel.08002827060 Rua Primeiro de Março, s/n Praca XV RJ'); S.Add('sequencia de 6 linhas com exatos 60 caracteres incluindo espaços'); //// InfAdic.infCpl := S.Text; ( ao inspecionar o conteúdo todo o texto esta presente , mas ao gerar o XML simplesmente uma parte é cortada, não tem quebra de linha ou ; no texto //// finally FreeaNIL(S); FreeaNIL(T); end; Já que as linhas adicionais são informações relativas a entrega como referência e coisa do tipo, nada fiscal, eu pensei em logo após a emissão do cupom emitir logo abaixo esse texto pois ai sim poderia usar a formatação da ESCPOS, você acha que isso pode dar problema em relação a questões legais ?

@Juliomar Marchetti primeiro obrigado. Acabei fazendo duas perguntas em um único tópico, desculpe. a - Você sabe me dizer se é possível ao gerar o xml a tag <infCpl> manter todos os caracteres informados ou ela corta em 255 caracteres mesmo ? Gostaria de frisar que não estou enviando nenhum tipo de caractere diferente de alfabéticos e numéricos b - Desculpe não entendi "se estiver entre as tags remova elas senão vai tentar trocar e não achando vai limpar o campo" Isso quer dizer que se eu passar por exemplo <n>qualquer texto</N> ligaria o negrito ? Obrigado.

Caros, estou necessitando imprimir na NFCe ESCPOS algumas informações além das obrigatórias aqui no RJ. Monto tudo numa StringList e mesmo sendo criada corretamente ao passar para ela para InfAdic.infCpl := lMonta.Text nem todas as informações são impressas . No manual diz que a tag suporta 5000 caracteres parece que acaba havendo a limitação de 255 caracteres. É possível em ESCPOS passar formatação sem correr o risco de haver rejeição devido as tags <> ? Obrigado.

Resolvi @BigWings da seguinte forma : Unit2 ( data module ) // criado pelo form principal type TAtualizaTotal = procedure (pTotal, pTroco:Currency) of object; cdecl; private FAtualizaTotal : TAtualizaTotal; public property AtualizaTotal: TAtualizaTotal read FAtualizaTotal write FAtualizaTotal; Unit1 ( form principal ) private procedure SetDisplay(pTotal, pTroco:Currency); cdecl; evento onCreate do form principal Application.CreateForm(TDM, DM); DM.AtualizaTotal := @SetDisplay;

Diz que os parametros não correspondem

Amigos estou iniciando em Lazarus. Tenho um procedimento que funciona 100% em Delphi mas nem compila em Lazarus ( última versão ) Unit2 ( data module ) // criado pelo form principal type TAtualizaTotal = procedure (pTotal, pTroco:Currency) of object; private FAtualizaTotal : TAtualizaTotal; public property AtualizaTotal: TAtualizaTotal read FAtualizaTotal write FAtualizaTotal; Unit1 ( form principal ) private procedure SetDisplay(pTotal, pTroco:Currency); evento onCreate do form principal Application.CreateForm(TDM, DM); DM.AtualizaTotal := SetDisplay; simplesmente não compila Poderiam me dar uma luz por favor

Obrigado

Então @Juliomar Marchetti eu entrei em Projeto, Opções de Projeto , Opções do Compilador, Configuração e Alvo e mudei o modo de construção para 64 bits e compilou. @Daniel Simoes obrigado pelo retorno, você teria um link que eu pudesse ter como referencia para instalar esse Cross Compile ? Obrigado aos dois pela atenção