Daniel Carus

Atualizei hj para a revisão 10334 do trunk2 e parou de gerar o QrCode no XML, ja limpei e reinstalei e nada. Tem alguma configuração nova ?? estou enviando em homologação para o RJ.

O que o Juliomar disse é o ACBrECF1.PafMF_ArqMF mas Pelo que entendi você que o txt estilo CAT52, só que com os registros E do tipo MF, se for isso tenta assim ACBrECF1.ArquivoMFD_DLL( dtInicial, dtDtFinal, NomeDoArquivoTxt , [docTodos], finMF); Altera as variaveis de data e a do nome do arquivo.

Valdecir, peguei a unit do svn e alterei para o solicitado e funcionou! Se eu remover a linha sTmp := String(SSLeay_version( 0 )); o erro ocorre; Então no meu caso ta resolvido, parabéns.

Uso o DELPHI XE8 e deu o mesmo problema de não encontrar a dll, após tentar colocar a dll junto com o exe e na syswow64 e nao funcionar, testei com o TRUNK1 e compilou, então peguei o libeay32.pas do TRUNK1 e coloquei no TRUNK2, ai funcionou , não deu mais o erro de não encontrar a dll.

Eu consegui fazer vários terminais enviando venda para um único SAT, e já esta em funcionamento nos clientes. É como o Daniel disse, o SAT funciona local, a rede dele é só para se comunicar com o SEFAZ, então você tem que criar um sistema que receba os comandos pela rede e execute no SAT local, depois envie o retorno ao terminal que solicitou. O que fiz ta funcionando perfeitamente, em teste com 5 terminais ta fazendo vendas normalmente, ja temos clientes em produção com marcas distintas de equipamento SAT. www.gdoor.com.br www.gdoor.com.br/?pag=sat

No meu caso a função CalcularTamanhoDaPagina só funcionou em impressora virtual PDF "doPDF", nas impressoras EPSON, SWEDA, sempre cortando o papel em 30cm. Ai alterei o fonte para que se o CalcularTamanhoDaPagina passar de 250 eu deixo fixo o tamanho 250, assim vai gerar página menores que 30cm, e funcionou, imprimiu tudo. Testem desta forma, se funcionar anexo o fontes. // Ajustando o tamanho da página // RLLayout.PageBreaking := pbNone; RLLayout.PageSetup.PaperSize := fpCustom ; RLLayout.PageSetup.PaperWidth := Round(LarguraBobina/MMAsPixels) ; RLLayout.PageSetup.PaperHeight := CalcularTamanhoDaPagina( RLLayout ); if RLLayout.PageSetup.PaperHeight >250 then RLLayout.PageSetup.PaperHeight := 250;

Eu Resolvi a comunicação só colocando o bemasat.xml junto com minha aplicação, na mesma pasta... a dll ficou em outro local e funcionou. Agora se não tiver o bemasat.xml junto com o exe, da erro e não acha o SAT.

Achei aqui... era a versao do tava como 0.03.

ok vlw

Isso foi resolvido? se foi como, to passando pelo mesmo problema.

Ok, segue em anexo, verificar na linha 908. ACBrSATExtratoFortesFr.zip

Pessoal eu resolvi isso alterando o Margens.TOPO no componente de extrato, coloquei zero e parou de gerar as varias paginas. ACBrSATExtratoFortes1.Margens.Topo := 0

Eu uso uma Sweda dessas aqui e esta funcionando corretamente, só configurar as margens e a largura do papel no componente que funcionou. Aqui testei com Sweda e Epson, as duas estão ok.

Deu certo, gerou o PDF corretamente no local informado no propriedade ACBrSATExtratoFortes1.NomeArquivo Tem onde trocar o titulo da impressão? Quando manda em uma impressora PDF fica muito extenso o nome do arquivo, dai como eu não achei, mudei la na ACBrSATExtratoFortesFR.pas na parte de procedure TACBrSATExtratoFortes.Imprimir; inclui na linha 908 a seguinte parte RLLayout.Title := 'Extrato_Cfe'; Só para o nome da impressão ficar mais intuitivo na lista do Spool ou no arquivo da impressora pdf.

Vlw xará, vou testar o filtro no fortes. Tem um cliente pedindo para enviar por e-mail, como na nfe ou nfc-e.... vai entende né!! Dai vou gerar o pdf e anexar.

Como faço para gerar um PDF do extrato do SAT ? Não achei as funções de PDF que nem tem na NFe. Não encontrei tópico sobre este assunto, então abri um.

Olá Daniel, o post citado ta fora, teria algum outro link ou outro post que resolva a situação dos 172 caracteres ?

Eita... e eu achando que tava tudo ok, ja que ta funcionando. Então qual seria a forma correta de instalar o Fortes? tem alguma dica?

Ola Amigos! Utilizo o Delphi XE7 e instalei o Fortes Report pelo svn do fabricante, após ao compilar o ACBr_SAT_Extrato_Fortes.dproj me deparo com um erro RLReport.pas(34): F1026 File not found: 'Qt.dcu' Dai me lembro que este arquivo era la do delphi 7, achei estranho estar solicitando no XE7, então notei que ao compilar o pack do acbr, os arquivos do fortes não estavam entendendo os $DEF, não estava entrando na codição de VCL, então me deparei que o o "Build Configurations" do ACBr_SAT_Extrato_Fortes.dproj estava somente com "DEBUG", alterei as configurações de build adicionando o DELPHI;VCL; e funcionou corretamente. SOLUÇÃO: Então para quem está tendo este problema basta abrir o ACBr_SAT_Extrato_Fortes.dproj, clicar com o direito sobre o "Build Configurations", após clicar em "Edit", na tela apresentada altere o "Conditional defines" para DEBUG;DELPHI;VCL; Clique em OK, compile o pack e instale. Com isto os arquivos do Fortes e o pack do acbr vão compilar corretamente no XE7. Aqui funcionou desta forma, espero que ajude. Abraços.

No comando AbreNaoFiscal do modelo escECF não esta levando em conta os parâmetros de cliente que envio. Ta pegando direto o que esta preenchido no consumidor. ta faltando o seguinte codigo no inicio da função: if Trim(CPF_CNPJ) <> '' then Consumidor.AtribuiConsumidor(CPF_CNPJ,Nome,Endereco); Este código tem nos outros modelos, copiei de la e coloquei isso no ACBrECFEscECF.pas e funcionou. procedure TACBrECFEscECF.AbreNaoFiscal(CPF_CNPJ: String; Nome: String; Endereco: String); begin if Trim(CPF_CNPJ) <> '' then Consumidor.AtribuiConsumidor(CPF_CNPJ,Nome,Endereco); /// EscECFComando.CMD := 16; EscECFComando.AddParamString(LeftStr(OnlyNumber(Consumidor.Documento),14)) ; EscECFComando.AddParamString(LeftStr(Consumidor.Nome,30)) ; EscECFComando.AddParamString(LeftStr(Consumidor.Endereco,79)) ; EnviaComando; estou com a svn atualizada com a versão mais recente até o momento (8980) deste arquivo e não tinha esta opção, fica a sugestão de implementação. Obrigado pela atenção.

OK então Julio, eu estava com o release atualizado, mas vou fazer a atualização e limpeza do svn, e instalar novamente.

Galera consegui uma façanha, deixei um cupom aberto de um dia para outro, em uma escECF (Bema MP 4200 TH Fi), só que pelo AcbrECF ele se perde, o primeiro estado que vem é de Z pendente, dai quando vai fazer a Z ele diz que tem um cupom pendente, mas quando vou fechar o cupom o componente retorna que tem Z pendente, e fica nesse loop; Tentei fazer um cancelamento do cupom, mas me retornou que tem Z pendente. A forma que consegui resolver foi entrando no função de cancelamento de cupom do ACBrECFEscECF.pas e alterar para ignorar a verificação de estado, dai fez o cancelamento normal e fecho o cupom, depois conseguir fazer a Z, claro que voltei o arquivo ACBrECFEscECF.pas ao original depois. Gostaria de dar a sugestão para ajustar este caso, lembro que nas ECFs MFD da para cancelar um documento ou fechar um documento mesmo com a Z pendente, fica a sugestão. Obrigado.

Só Avisar que no XE7 acontece a mesma coisa e o que o "Oneide Luiz" passou funcionou!

Opa valeu!!! Ja vou baixar no svn. Abraços.

é possivel fazer SHA-512 agora?