Iaster Costa Aki

meu clientes em SP estão com o mesmo problema

Só para constar, no meu caso o antivirus é o Norton. Mesmo desativando ele não estava instalando. Não sei dizer se é isto, meu HD é SSD, então grava e lê muito rápido. NO meu caso para dar certo, no momento da instalação eu abri a pasta onde o arquivo de log ( log_Delphi_10.2_Tokyo.txt ) era gerado. A cada 3 segundos mais o menos eu selecionava e apertava "del " para apagar o arquivo. O Sistema de instalação então criava o arquivo novamente e depois de uns 3 a 5 segundos eu apagava novamente. Desta forma a instalação deu certo.

Gostaria de saber onde posso fazer download dos arquivos fontes da paletra do Regys (NFC-e no mobile: da teoria a prática.) Ele informou na palestra que ia disponibilizar os arquivos.

Todos os meus casos estão sendo resolvidos com o Windows Update. Configurei o componente conforme o informado e a atualização do Windows. Estão funcionando sem problema agora.

Bom dia. Qual vídeo ?

Atualizei o sistemas em varias empresas, todas estão ok. Mas em 2 está aparecendo o erro abaixo. Não sei se pode ser a certificadora, pois estas duas são diferentes das demais. Alguem tem alguma idéia do que pode ser? Certificadora :- AC Sincor e Soluti Erro Interno: 12030 Erro HTTP: 0 URL: https://nfe.fazenda.sp.gov.br/ws/nfestatusservico4.asmx Falha no Envio da Requisição. Erro: 12030 - A conexão com o servidor foi redefinida ou encerrada, ou um protocolo SSL incompatível foi encontrado >>> FIM - Status do Serviço -- Configuração teNormal -- Ambiente de Produção -- WebService 4.00 LT_TLSv1_2 -- Certificado libWinCrypt cryWinCrypt httpWinHttp xsMsXml

Estou com o mesmo problema na impressão de etiquetas! O exemplo em Lazarus também esta dando erro!

Tambem estou encontrando o mesmo problema. O que mais intriga é que se mudar o formato de impressão de Retrato para Paisagem as informações adicionais são impressas corretamente em uma linha separada.

Estou com o trunk2 (acabei de instalar). No Lazarus, fui tentar compilar o exemplo e recebo a mensagem :- utestes.pas(44,34) Error: Incompatible types: got "<procedure variable type of procedure(const TMailStatus) of object;Register>" expected "<procedure variable type of procedure(const TACBrMail,const TMailStatus) of object;Register>"

Ítalo, bom dia. A consulta acima esta retornando o protocolo de envio, não do encerramento!

Italo, acabei de descobrir o problema. minha variavel mdf.EmiCNPJ é do tipo int64. Quando faço a atribuição infEvento.CNPJ := IntToStr(mdf.EmiCNPJ); retorna o CNPJ, mas o CNPJ em questão tem um zero a esquerda! e nesta conversão o zero some! Estou mudando o código do meu sistema para receber o CNPJ do arquivo XML. Assim não terei mais problemas com isto. obrigado.

Inclui a linha e retornou com o mesmo erro.

Italo, bom dia. Agradeço sua ajuda.

Estou tentando fazer o encerramento, mas esta retornando um erro. Estou em ambiente de HOMOLOGAÇÃO. Deve ser uma coisa boba, já revisei minha rotinha e não consegui encontrar o problema. O erro que retorna é :- chMDFe is unspected according to content model of parent element. minha rotina de cancelamento :- frmStatusReceita := TfrmStatusReceita.Create(Self); mdf.carregaMFDe(iMDFe); mdf.IdUsuario := iIdUsuario; mdf.Encerra := Now; Result := False; ACBrMDFe1.Manifestos.Clear; frmStatusReceita.JvMemo1.Lines.Add('================Iniciando==========================='); frmStatusReceita.JvMemo1.Lines.Add('Carregando configurações....'); configuraMDFe(mdf.IdEmpresa); {carrega informações da empresa (configuracao, geral, webservice) no ACBRMDFe1} frmStatusReceita.Show; frmStatusReceita.BringToFront; // carregaMDFe(iMDFe); cArqMDFe := mdf.MDFePath; JvOpenDialog1.Title := 'Selecione o MDFe'; JvOpenDialog1.DefaultExt := '*-MDFe.xml'; JvOpenDialog1.Filter := 'Arquivos MDFe (*-MDFe.xml)|*-MDFe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; JvOpenDialog1.InitialDir := ExtractFileDir(mdf.MDFePath); if not FilesExists(cArqMDFe) then begin if JvOpenDialog1.Execute then cArqMDFe := JvOpenDialog1.FileName; end; if FilesExists(cArqMDFe) then begin frmStatusReceita.JvPanel1.Caption := ' Ecerramento do MDFe'; frmStatusReceita.Label1.Caption := 'Processando... '; Application.ProcessMessages; frmStatusReceita.JvMemo1.Lines.Add('Carregando MDFe [' + IntToStr(mdf.Numero) + ']'); ACBrMDFe1.Manifestos.LoadFromFile(cArqMDFe); with ACBrMDFe1.EventoMDFe.Evento.Add do begin infEvento.chMDFe := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44); infEvento.CNPJ := IntToStr(mdf.EmiCNPJ); infEvento.dhEvento := mdf.Encerra; infEvento.tpEvento := teEncerramento; infEvento.nSeqEvento := 1; infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt; infEvento.detEvento.dtEnc := mdf.Encerra; infEvento.detEvento.cUF := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2)); infEvento.detEvento.cMun := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga; end; frmStatusReceita.JvMemo1.Lines.Add('Lendo o certificado e consultando a receita, AGUARDE...'); try Result := False; ACBrMDFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Result, IntToStr(mdf.TpAmbiente)); ACBrMDFe1.EnviarEventoMDFe( iMDFe ); // Numero do Lote frmStatusReceita.JvMemo1.Lines.Add(''); frmStatusReceita.ativaBotao(True); registraRetorno(iSegundo, True, 1); Result := True; except frmStatusReceita.Label1.Caption := 'ERRO !!! '; frmStatusReceita.ativaBotao(True); registraRetorno(iSegundo, False, 1); end; segue em anexo a mensagem de erro e o xml em questão. 35141101223016000126580000000000021000000255-mdfe.xml

Estava com o mesmo problema. Tirei o intostr conforme o André postou e compilou sem problemas.