mjtamanhoni

Como eu posso resolver esse problema para compilar no Delphi 7 "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\conesoft\Componentes\06 - Acbr\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\conesoft\Componentes\06 - Acbr\ACBr\Fontes\ACBrDFe\ACBrDFe.Conversao.pas(554) Error: Identifier expected but '<' found C:\conesoft\Componentes\06 - Acbr\ACBr\Fontes\ACBrDFe\ACBrDFe.Conversao.pas(555) Error: ',' or ')' expected but identifier 'tcgMunicipios' found C:\conesoft\Componentes\06 - Acbr\ACBr\Fontes\ACBrDFe\ACBrDFe.Conversao.pas(556) Error: Illegal character in input file: '|' ($7C) C:\conesoft\Componentes\06 - Acbr\ACBr\Fontes\ACBrDFe\ACBrDFe.Conversao.pas(563) Error: Number of elements differs from declaration C:\conesoft\Componentes\06 - Acbr\ACBr\Fontes\ACBrComum\ACBrUtil.Strings.pas(51) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrComum\ACBrConsts.pas' Compilation failure Erro ao compilar o pacote "ACBr_Comum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

Atualizei o ACBr para instalar os componentes no Delphi 13 que acabei instalar, mas não aparece na lista de IDE's. Aparece as Ide do Rad Studio 11 E uma mensagem "Erro ao det Imagem em anexo

Bom dia a todos. Tenho um serviço de Windows que executa determinadas funções em horários específicos. Um desses serviços e a Distribuição DFe por último NSU que funciona perfeitamente dentro de uma TThread (rotina retirada de curso do ACBr). O problema é que eu implementei a Manifestação (Ciência, Confirmação...) no serviço também, respondendo a um Método externo onde é passado um JSon via verbo POST contendo (Lote, Chaves, CNPJ e o tipo de evento de cada chave), mas o sistema trava no momento em que o evento é enviado (ACBrNFe1.EnviarEvento(FLote)), ate dar tempo limite esgotado no Metodo. E se eu chamo o evento via Postman fica o dia todo esperando a resposta. JSon do Método: [ { "lote": 1, "chaves": [ { "id": 1, "chNfe": "32240433009911001704550260013106541768710493", "cnpj": "33009911001701", "tpEvento": "ciencia", "dtEvento": "" }, { "id": 2, "chNfe": "32240433009911001704550260013106541768710494", "cnpj": "27151620000182", "tpEvento": "confirma", "dtEvento": "" } ] } ] Código delphi: if Assigned(FChave_JSon) then begin ACBrNFe1.EventoNFe.Evento.Clear; for J := 0 to (FChave_JSon.Size - 1) do begin FChNFe := FChave_JSon[J].GetValue<String>('chnfe',''); FCnpj := FChave_JSon[J].GetValue<String>('cnpj',''); FTpEvento := FChave_JSon[J].GetValue<String>('tpevento',''); fDtEvento := FChave_JSon[J].GetValue<String>('dtevento',''); SalvarLog(FChNFe + ' - ' + FCnpj + ' - ' + FTpEvento + ' - ' + fDtEvento,1,FEnderLog); {$Region 'Adicionando as chaves ao lote'} with ACBrNFe1.EventoNFe.Evento.New do begin InfEvento.cOrgao := 91; InfEvento.chNFe := FChNFe; InfEvento.CNPJ := FCnpj; InfEvento.dhEvento := Now; if FTpEvento = 'ciencia' then InfEvento.tpEvento := teManifDestCiencia else if FTpEvento = 'confirma' then InfEvento.tpEvento := teManifDestConfirmacao else if FTpEvento = 'desconhece' then InfEvento.tpEvento := teManifDestDesconhecimento else if FTpEvento = 'nrealizada' then begin InfEvento.tpEvento := teManifDestOperNaoRealizada; InfEvento.detEvento.xJust := fDtEvento; end; end; {$EndRegion 'Adicionando as chaves ao lote'} end; ACBrNFe1.EnviarEvento(FLote); with ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin SalvarLog('cStat ' + cStat.ToString,1,FEnderLog); if cStat = 135 then Codigo := 200 else Codigo := 500; Mensagem := Mensagem + '['; Mensagem := Mensagem + '{'; Mensagem := Mensagem + '"cStat":'+cStat.ToString+','; Mensagem := Mensagem + '"retorno": ['; Mensagem := Mensagem + '{'; Mensagem := Mensagem + '"id":"'+Id+'",'; Mensagem := Mensagem + '"tpAmb":"'+TpAmbToStr(tpAmb)+'",'; Mensagem := Mensagem + '"verAplic":"'+verAplic+'",'; Mensagem := Mensagem + '"cOrgao":"'+IntToStr(cOrgao)+'",'; Mensagem := Mensagem + '"cStat":"'+IntToStr(cStat)+'",'; Mensagem := Mensagem + '"xMotivo":"'+xMotivo+'",'; Mensagem := Mensagem + '"chNFe":"'+chNFe+'",'; Mensagem := Mensagem + '"tpEvento":"'+TpEventoToStr(tpEvento) +'",'; Mensagem := Mensagem + '"xEvento":"'+xEvento+'",'; Mensagem := Mensagem + '"nSeqEvento":"'+IntToStr(nSeqEvento)+'",'; Mensagem := Mensagem + '"CNPJDest":"'+CNPJDest+'",'; Mensagem := Mensagem + '"emailDest":"'+emailDest+'",'; Mensagem := Mensagem + '"dhRegEvento":"'+DateTimeToStr(dhRegEvento)+'",'; Mensagem := Mensagem + '"nProt":"'+nProt+'"'; Mensagem := Mensagem + '}'; Mensagem := Mensagem + ']'; Mensagem := Mensagem + '}'; Mensagem := Mensagem + ']'; SalvarLog(Mensagem,1,FEnderLog); end; end else begin raise Exception.Create('JSon com as chaves não informadas'); end;

Bom dia. Tenho uma Impressora BlueTooth ZIJiang e enviando impressões via device. Da noite para o dia começou a aparecer a mensagem "Porta não Definida", no momento de configurar e ativar o AcbrPosPrinter. Acontece que não foi mudada nenhuma configuração, nem no device nem a impressora.

Bom dia. Não estou conseguindo usar o componente TACBrCTeDACTeQR. As units estão todas na pasta correta mas quando abro o projeto apresenta a seguinte mensagem e não carrega o componente. "Error reading aCTe.Configuracoes.Geral.ExibirErroSchema: Property ExibirErroSchema does not exist. Ignore the error and continue? Note: Ignoring the erro may cause components to be deleted or property values to be lost." Obs: Essa é meu primeiro contado com as bibliotecas ACBr. O projeto que estou trabalhando já existia, estou apenas dando manutenção. Obrigado