Daniel Simoes

Isso provavelmente também ocorrerá em outros modelos... O correto não seria você tentar carregar os relatórios gerências no início de sua aplicação ?

Por favor leia o meu post com mais atenção... Eu não fiz nenhuma modificação no "Trunk"... em relação a impressão do Extrato do SAT... e nem pretendo fazê-lo...

O modificação onde foi efetuadas novas propriedades (Ex: ImprimirApenasUmaLinha) apenas ocorreu no Trunk2... portanto essa correção é apenas para o Trunk2 O trunk deve estar OK, pois a impressão do Extrato do SAT já estava ok... mas não terá os novos recursos de imprimir em apenas uma Linha que foram adicionados apenas no Trunk2...

Vc precisa extrair os Logs do SAT, para obter mais detalhes sobre o erro... (Diversos -> Extrair Log) Ajuste para UTF8, para corrigir a acentuação nas respostas do SAT...

O ACBrECF apenas se limita a comandos relacionados ao ECF... Para acesso aos métodos da DLL da Bematech vc precisará contactar o suporte deles...

Como disse antes... não consigo reproduzir o problema reportado... Favor fornecer um passo a passo, porem usando os fontes originais...

Acho que somente a Bematech possa te ajudar nisso... Repare porém, que a VendeItemEx, não envia nada ao SEFAZ... todo o XML provavelmente será montado e enviado no momento do Fechamento da Venda "FechaCupom"... Então é provável que os erros (se houverem) sejam retornados a chamada desse método...

Obrigado... correção enviada para o SVN...

Por favor tente novamente...

Por favor veja como está no Demo do SATTeste.exe InfAdic.infCpl := ACBrStr('Acesse www.projetoacbr.com.br para obter mais;informações sobre o componente ACBrSAT;'+ 'Precisa de um PAF-ECF homologado?;Conheça o DJPDV - www.djpdv.com.br'); A quebra de linhas nas observações do SAT sempre foi o ';' A Impressão do SAT e do NFCe são fontes completamente diferentes...

Repare bem... o seu problema de loop infinito é devido uma outra customização nos seus fontes... if RG = nil then begin CarregaRelatoriosGerenciais ; // Se não recarregar fica retornando sempre (RG = nil) (Indice := 2) raise EACBrECFERRO.create( ACBrStr('Relatório Gerencial: '+IntToStr(Indice)+ ' não foi cadastrado.' )); Você está chamando o CarregaRelatoriosGerenciais dentro do "if RG = nil then"... Isso nunca existiu nos fontes originais Por favor use os fontes originais para testar e reportar Bugs

No meu último commit, quando fiz um merge de algumas propriedades de impressão que existem no DANFE EscPos da NFCe... acidentalmente removi alguns itens da impressão do Extrato do SAT... No SAT há a possibilidade de demonstrar os Impostos por Item ... Apliquei uma correção no SVN, que deve corrigir

No Lazarus/FPC já estou usando o Trunk2 a mais de 2 meses

Use Pascal... Ex: LeftStr(Variavel, 20) Sempre imprimirá 20 caracteres no máximo...

Notei que o código que você copiou acima estava diferente dos fontes originais... talvez isso explique o problema nos seus fontes... Achei um pequeno problema, com o "encoding".. Relatórios com acentuação no título na funcionariam.. apliquei uma correção

Não consegui reproduzir o problema do Relatório Gerencial... Favor informar um passo a passo... Não compreendi a necessidade da solução proposta... Observe que a "CarregaRelatoriosGerenciais" já é chamada, quando o código passa por: "AchaRGIndice"

Sim, esse fórum novo tem várias vantagens e um Visual mais simples e intuitivo de usar... mas os plugins antigos são incompatíveis... O Invision Power Board é um programa poderoso, e muito customizável.. Porém como a versão é nova, muitos dos antigos plugins precisarão ser reescritos ou revisados...

Nessa nova versão a Invision removeu essa opção... no lugar dela, eles criaram um conceito de fórum "Perguntas e Respostas" parecido com o StackOverflow Tente ajustar alguns dos fóruns para esse modelo, mas achei estranho... Há vários pedidos de retorno da funcionalidade "Resolvido" no fórum deles (Invision)... acho que logo teremos a funcionalidade de volta...

Não compreendi o que você quiz dizer... poderia anexar uma imagem exemplificando ?

Provavelmente retorna o valor correto... mas o ACBr não tem controle sobre o XML retornado

Apliquei uma possível correção no SVN, (trunk2)

Humm.. podemos ver que o A.V. ocorre quando o PosETX = 0...isso pode ser o problema.. mas se compararmos esse bloco do "trunk" com o "trunk2" eles estão identicos... A falha definitivamente é no Delphi (PosEx)... que se perde quando recebe um índice fora da faixa... Veja como está no FPC (há uma verificação do Indice informado) Len := length(S); if (Offset < 1) or (Offset > SizeUInt(Length(S))) then exit(0); Podemos aplicar um workaround para a situação, usando: 992 if PosETX > 0 then 993 PosSTX := PosEx( STX , Result, PosETX); // Acha inicio do proximo Bloco

Por favor anexe (zip) os fontes modificados

Analise os parâmetros de entrada em PosEx... pode ser que esteja algo que a função atual não esteja sendo capaz de tratar.. Na ACBrUtil há uma versão de PosEx, que é usada apenas para versões inferiores ao D7... experimente mudar a classe da Sweda e a ACBrUtil, para usar ela...