Jma

quando tento instalar o pacote ACBr_Serial.dpk, da erro ele acha o arquivo ACBrDeviceBlueTooth.pas a uses e desse arquivo que ele tenta compilar.

Estou utilizando o Delphi7, esta dando o erro abaixo. [fatal error] ACBrDeviceBlueTooth.pas(42): File not found: 'System Bluetooth.dcu' No arquivo antigo do ACBr_serial não estava dando esse erro, uses Classes, SysUtils, StrUtils, ACBrDeviceClass, ACBrBase, System.Bluetooth, System.Bluetooth.Components; como posso resolver esse erro.

Achei o erro não é mais infRespTec.hashCSRT agora é Configuracoes.RespTec.IdCSRT := 1; Configuracoes.RespTec.CSRT := '1234567890123456789001234567890'; agora funcionou e passou na receita a homologação.

Como eu consigo gerar a chave da NFe/NFCe antes de gerar o XML, eu vi que gera e salva, porém eu preciso passar o hashCSRT FieldByName('NFE').AsString := ACBrNFe1.NotasFiscais.Items[F].XMLAssinado; //////////// chave := OnlyNumber(ACBrNFe1.NotasFiscais.Items[F].NFe.infNFe.ID); with ACBrNFe1.NotasFiscais.Add do begin with NFe do begin infRespTec.CNPJ := '12345678901234'; // cNPJ Fixo do responsável pelo sistema infRespTec.xContato := 'teste'; infRespTec.email := 'vendas@teste.com.br'; infRespTec.fone := '4112345678'; infRespTec.hashCSRT := '1234567890123456789001234567890'; infRespTec.idCSRT := 1; end; end; ////////////////////// if FieldByName('NOTA').AsInteger <> Ide.nNF then begin Edit; FieldByName('NOTA').AsInteger := Ide.nNF; if FieldByName('CLI').AsInteger = 0 then FieldByName('CLI').AsInteger := Cli; FieldByName('DATA').AsDateTime := Ide.dEmi; FieldByName('NFE').AsString := ACBrNFe1.NotasFiscais.Items[F].XMLAssinado; FieldByName('NOMEARQUIVO').AsString := OnlyNumber(ACBrNFe1.NotasFiscais.Items[F].NFe.infNFe.ID) + '-NFe.XML'; FieldByName('SITUACAO').AsString := 'P'; with DMPrincipal.AuxDB do begin SQL.Clear; SQL.Add('update PEDIDONOTA set'); SQL.Add('CHAVE_NFE = :CHAVE_NFE'); SQL.Add('where S18NOTA = '+IntToStr(Ide.nNF)+' And MODELO_NOTA = '+IntToStr(_NFc.Modelo)); ParamByName('CHAVE_NFE').AsString := OnlyNumber(ACBrNFe1.NotasFiscais.Items[F].NFe.infNFe.ID); ExecSQL; end; Post; end;

Desculpe, O rapaz que alterava o evento do ACBr sofreu um acidente. Agora estou tentando alterar. Eu achei a função CalcularHashCSRT. Estou alterando para colocar o hashCSRT e não aparece no XML. coloquei junto com o telefone mas não sai no xml. se eu mudar o nome da empresa muda no XML. Você poderia me ajudar a encontar um caminho. with F_NFe, Dados_NFe do begin with ACBrNFe1.NotasFiscais.Add do begin with NFe do begin infNFe.ID := IntToStr(Nota); infRespTec.CNPJ := '12345678901234'; // cNPJ Fixo do responsável pelo sistema infRespTec.xContato := 'empresa'; infRespTec.email := 'vendas@teste.com.br'; infRespTec.fone := '4199999999'; infRespTec.hashCSRT := '5H3H4K2OE3290482095834055808623568450'; infRespTec.idCSRT := '1'; Procurei no pcnNFe e tem esses campos já, Como eu identifico se ele usou ACBr ou Lib ou Monitor. eu acredito que seja o ACBr.

ACBr

Como eu calculo o HashCSRT no ACBr, no Paraná esta liberado na homologação e não sei fazer o calculo. Queria ver se tem o calculo no ACBr e como faz. Obrigado.

Achei onde está, o erro do CNPJ do responsável técnico, está no sefaz na homologação eles estão com problemas. Vou aguardar para fazer mais teste.

Eu vi também hoje que teve atualização do ACBr, no pacote PCNComum no arquivo pcnConversao.pas foi retirado ou modificado da linha 100 TpcnCstIpi = (ipi00, ipi49, ipi50, ipi99, ipi01, ipi02, ipi03, ipi04, ipi05, ipi51, ipi52, ipi53, ipi54, ipi55); linha 992 // CST IPI ********************************************************************* function CSTIPIToStr(const t: TpcnCstIpi): string; begin result := EnumeradoToStr(t, ['00', '49', '50', '99', '01', '02', '03', '04', '05', '51', '52', '53', '54', '55'], [ipi00, ipi49, ipi50, ipi99, ipi01, ipi02, ipi03, ipi04, ipi05, ipi51, ipi52, ipi53, ipi54, ipi55]); end; function StrToCSTIPI(out ok: boolean; const s: string): TpcnCstIpi; begin result := StrToEnumerado(ok, s, ['00', '49', '50', '99', '01', '02', '03', '04', '05', '51', '52', '53', '54', '55'], [ipi00, ipi49, ipi50, ipi99, ipi01, ipi02, ipi03, ipi04, ipi05, ipi51, ipi52, ipi53, ipi54, ipi55]); end; você sabe como posso usar agora para converter _IPI.CST := CSTIPIToStr(Imposto.IPI.CST);

Paraná, será que estão mexendo no servidor deles hoje está dando vários erros.

Agora deu outro erro. Erro na tentativa de Validar e Enviar a NFe CNPJ do responsavel tecnico diverge do cadastrado Sempre mandei com os dados.

O erro era exatamente este: Erro Interno: 12029 HTTP: 0 Erro: Requisição não enviada Erro: 12029 - Conexão com o servidor falhou verifique a TLS 1.2 Fremework 4.8 Não consigo emitir nota de homologação.

Ok consegui, fiz instalação manual. Obrigado,

Mudei o fortes Report ce porem continua dando erro log_Delphi_7_Win32.txt

Continua dando erro segue o log. log_Delphi_7_Win32.txt

segue o arquivo de log. tentei instalar manual mais quando chega na pasta ACBr_NFe.dpk da o erro na hora de abrir depois todos os pacotes se tentar compilar da o erro acima. log.txt

Estou tendo problemas para atualizar o ACBr no delphi 7 no pacote ACBrNFe da Erro ao abrir. Depois todos os outro pacotes já instalados quando tento abrir aparece a mensagem "Não foi possível encontrar o módulo especificado".