Daniel Simoes

Acesso negado, é porque alguém já está abrindo a porta COM... ou você está abrindo a porta COM errada

Obrigado por mais essa revisão... Não apliquei as modificações em ACBrUtil.pas Procedure WriteToTXT( const ArqTXT : String; ABinaryString : String; const AppendIfExists : Boolean = True; const AddLineBreak : Boolean = True ); Tudo que é um "String Binário" DEVE ser AnsiString, caso contrário poderá haver perda de dados com caracteres de controle (STX, ETX, NUL) Em ACBrTXTClass.pas procedure TACBrTXTClass.AssignError(MsnError: String); begin if Assigned(FOnError) then FOnError( ACBrStr(MsnError) ); end; Todos os fontes do ACBr usam CP1252, para manter a compatibilidade com o D7... por isso, se a origem de "MsnError" for algo que estava "hardcoded" nos fontes, então é necessário o ACBrStr() para converter para a página de código nativa da IDE (Unicode no Delphi e UTF8 no Lazarus, sem mudanças no D7)

Veja você mesmo os Logs... Em nenhum deles, há qualquer tipo de falha de comunicação ou erro... e o ECF respondeu normalmente (TX, RX) Muito provavelmente o problema está na sua aplicação... Para reportar problemas para a equipe do ACBr, certifique-se de reproduzir o problema nos "Demos" oficiais do projeto... que nesse caso é o ECFTeste.exe

Se mudarmos para Double, ele irá gerar as decimais na Tag... realmente ficaria fora da especificação... @amarildolacerda, Você poderia por favor questionar o seu órgão homologador a respeito dessa situação ?

Amarildo, Apliquei modificações nos fontes, baseados na sugestão... a diferença, é que deixei o evento como Published em ACBrSAT

@Juliomar Marchetti e @Régys Silveira, Aparentemente o manual está errado... concordam ? Deixar como Double causaria problemas ? Tudo que "cabe" no Integer, "cabe" no Double... (mas não o inverso)

Esse código faz parte do projeto Synapse, que não é do ACBr... preferimos mantê-los o máximo possível igual ao original... No entanto, modifiquei o ACBrHTTPDownload -- ACBrHTTPDownload -- [+] Criada propriedade Publica para expor HTTPSend: THTTPSend (por: DSA) Com isso você pode fazer algo como: ACBrHTTPDownload1.HTTPSend.UserAgent := 'Mozilla/5.0 (compatible; Synapse)';

Acredito que o ACBrFramework não contempla o ACBrSAT

o programa para gerar assinatura não precisa ser instalado no cliente... a não ser que você queira deixar o seu certificado lá... No site do fisco há uma documentação bem elaborada sobre o processo de ativação...

Remover o "Result" do método abaixo, causa um Warning no FPC function TDFeSSLClass.VerificarAssinatura(const ConteudoXML: String; out MsgErro: String; const infElement: String; SignatureNode: String; SelectionNamespaces: String): Boolean; begin Result := False; raise EACBrDFeException.Create('"ValidarAssinatura" não suportado em: ' + ClassName); end; Não apliquei todas as modificações semelhantes a essas... Apliquei vários "Casts" em ACBrDFeCapicom.pas, pois o FPC reclamava das conversões de String para WideString Olá Elton, Obrigado pela dica... Já está no SVN...

O seu sistema está compilado para 64 bits ?? Se não... Então você DEVE usar DLLs versão 32 bits

Sim... Isso mesmo, é bem semelhante à esse da Bematech

Acho que não dá, porque o "FieldByName" dispara um exception se o campo não existir (assim como o do Delphi) function TACBrInformacoes.FieldByName(const AName: String): TACBrInformacao; begin Result := FindFieldByName( AName ); if Result = nil then raise Exception.CreateFmt('Campo "%s" não encontrado.', [AName]); end; O "AtualizaVB" pode receber um parâmetro externo, da função que chamou "SalvaRespostasMemoria"... por isso ele é necessário...

-- 14/03 19:21:46:907 19:21:46:907 VerificaFimImpressao: ECF fora de linha o sinal de HandShake do ECF está informando que ele foi desligado... Pode ser cabo, ou serial ruim...

Todo ACBr é OpenSource... use a força, leia os fontes...

Vou fechar esse tópico... já está virando o "Tópico do fim do mundo" por favor abram um novo tópico, para um novo problema...

Já no SVN...

Não sei bem como tratar isso... o importante desse bloco, é a chamada a: RespostasComando.FieldByName('VendaBruta').AsFloat; Se o 'VendaBruta' ainda não existir, será disparado um exception, que é tratado no Bloco...

Já corrigi no SVN...

não... só uso por CEP

Não compreendi o seu post... todos os campos do XML do CFe são mapeados para ACBrSAT.CFe

Feito.. já no SVN (ainda falta analisar algumas Units) Não compreendi o seguinte trecho: procedure TACBrECFEscECF.SalvaRespostasMemoria(AtualizaVB : Boolean) ; Var ValVB : Double; begin (*ele reclama desse trecho*) try ValVB := RespostasComando.FieldByName('VendaBruta').AsFloat; except AtualizaVB := True; end ; (*até aqui, não removi mas acredito que deva ser verificado*) Qual é exatamente a Warning nesse trecho ? A Unit ACBrNFeWebService.pas está muito diferente da atual.. poderia por favor rever as suas modificações ? Obrigado

Não há como... Crie uma tabela de cadastro de administradoras no seu sistema...

Waldir, usamos a JEDI.INC... então podemos usar algo como: {$IFDEF DELPHI7_UP} (fica muito mais legível)

Não uso o FastReport... sugiro abrir um novo tópico..