Daniel Simoes

Não compreendi a sugestão... você está convertendo o mesmo Tipo enumerado (lanNAO_CONECTADO) em Duas Strings diferentes ? function TACBrSATStatus.StrToStatusLan(var ok: boolean; const s: string ) : TACBrSATStatusLan; begin result := StrToEnumerado(ok, s, ['CONECTADO', 'NAO_CONECTADO', 'DESCONECTADO'], [lanCONECTADO, lanNAO_CONECTADO, lanNAO_CONECTADO]); end;

Na dúvida apague o ACBr.INC e baixe a versão original... O Acbr.inc afeta TODOS os fontes, então é necessário rodar novamente o ACBrInstall

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.

Enviei um ajuste para o SVN...

@Waldir Paim, fique confuso... essas duas propriedades não seriam a mesma coisa ? property CodigoInfoExtra: Integer read getCodigoInfoExtra write FCodigoInfoExtra; property CodigoReceita : Integer read getCodigoReceita write FCodigoReceita;

Notei que a nova Classe, TACBrTEFDQuatroS ... não tem nenhuma reescrita dos métodos da classe TACBrTEFDClassTXT ... e apenas redefine novos valores para os diretórios, arquivos e Executável do GP... Não seria mais simples usar uma das classes existentes e apenas ajustar essas propriedades ? Não compreendi a necessidade desses IFs (imagem abaixo)... não é bom ter IFs de um Tipo específico, da Classe mãe... isso fere a OOP, e poderia ser tratado com Polimorfismo, sobrescrevendo alguns métodos na classe TACBrTEFDQuatroS

Obrigado pela analise e correção... já enviei para o SVN...

Por favor anexe as Units modificas, para analise...

Experimente fazer um CleanUp + BuildAll

Veja esse post:

Obrigado pelo log... pelo que notei, o erro 140 não ocorreu mais do que duas vezes, por comando... vou subir para o SVN... Por favor considere apoiar nosso trabalho, contratando o SAC ACBr, ocasionalmente

Se possível, por favor me envie um novo Log, apenas para comprovarmos que a ideia deu certo...

Por favor teste com a Unit em anexo... ela irá tentar o mesmo comando, até 5 Falhas sinalizadas com o erro 140... ACBrECFEscECF.pas

Apenas alguns usuários conseguem efetuar o commit... Você precisaria compactar os fontes, organizando-os por pastas, e anexar nesse tópico, para analise de algum desenvolvedor com acesso ao commit

O ACBrECF não usa as DLLs da Daruma... A Daruma as vezes responde com erro 140, quando está efetuando alguma operação interna... e podemos reparar isso no seu Log... -- 04/04 09:27:47:412 Daruma Erro:140 - RX <- [SOH]J[FF][NUL][16][140][NUL][NUL][NUL][NUL][NUL][242] // ERRO 1 -- 04/04 09:27:47:612 Sincronismo TX -> [22] -- 04/04 09:27:47:613 Sincronismo RX <- [22][NUL] -- 04/04 09:27:47:613 Status TX -> [SOH][SOH][FF][NUL][STX][NUL]1|[188] -- 04/04 09:27:47:613 TX -> [SOH][SOH][FF][NUL][STX][NUL]1|[188] -- 04/04 09:27:47:614 RX <- [ACK] -- 04/04 09:27:47:614 Status TX -> [ENQ][NUL] -- 04/04 09:27:47:615 RX <- [WAK][16][SOH][NUL][NUL][NUL] (1) -- 04/04 09:27:47:665 Status TX -> [ENQ][NUL] -- 04/04 09:27:47:666 Resposta: SEQ:1 CMD:12 EXT:0 CAT:16 RET:[140][NUL][NUL][NUL] TBR:0 BRS:"" CHK:169 -- 04/04 09:27:47:666 RX <- [SOH][SOH][FF][NUL][16][140][NUL][NUL][NUL][NUL][NUL][169] // ERRO 2 -- 04/04 09:27:47:666 ----------------- ERRO ----------------- Erro retornado pela Impressora: DARUMA AUTOMAÇÃO Categoria: 16-Erro específico do Fabricante Motivo: 140-Relógio está travado ---------------------------------------- Nos fontes de ACBrECFEscECF.pas temos o seguinte bloco, para tratar essa situação em específico: if (not fsTentouSincronizar) and IsDaruma and (EscECFResposta.CAT = 16) and (EscECFResposta.RET.ECF = 140) then // 140-Relógio está travado begin GravaLog( ' Daruma Erro:140 - RX <- '+EscECFResposta.Resposta, True); Sleep(200); fsSincronizou := False; // Força a sincronização fsTentouSincronizar := True; // Evita loop infinito, no caso de ocorrer o mesmo erro Self.EnviaComando_ECF(); // Gera chamada recursiva exit; end; Mas parece que ele tenta fazer isso apenas uma vez... e esse ECF está ocorrendo no erro 140 mais vezes...

Estou verificando com os demais moderadores...

Não temos planos recentes de trabalhar nesse arquivo... mas se algum usuário desejar subir alguma contribuição dos fontes, podemos analisar...

Modificações enviadas para o SVN...

Notei que você criou um novo campo.. mas está gravando ele no local de um campo já existente... Isso poderá quebrar aplicações já existentes... Não seria apenas o caso de você preencher a propriedade "Codigo" ?

Tem um propriedade com o número de Dias de validade do arquivo de Cache CacheDiasValidade: Integer default 0 0 - não apaga nunca o Cache

Testei em um Delphi Rio e funcionou a contento... Acho que o seu arquivo de Cache ACBrIBGE.txt, está com o Encoding errado... experimente apagar esse arquivo e testar novamente...

Sim. você precisará de Login e Senha do seu cliente, ou ainda eCNPJ dele.. Não sei dizer... mas é uma tentativa... Você terá que fazer upload de cada XML... (pelo menos era assim da última vez que vi esse site)

Qual a sua IDE ?

https://satsp.fazenda.sp.gov.br/COMSAT/Account/LoginSSL.aspx?ReturnUrl=%2fCOMSAT%2f Fazer login como Contribuinte