Marcelo Bill

Daniel nem tinha reparado nisso, TSSLLib = (libNone, libOpenSSL, libCapicom, libCapicomDelphiSoap); Vou chutar, acho que isso é que determina se eu estou usando Capicom ou OpenSSL tah, mas porque voce me disse para tentar usar a libCapicomDelphiSoap, qual a diferencça entre libCapicomDelphiSoap e libCapicom ? obrigado

Nooooosssa Daniel, por favor, explique isso melhor obrigado

Boa tarde a todos Mudei para Trunk2 depois disso começou a dar Rejeição cStat 493 Rejeição : Evento não atende o Schema XML específico a) Já atualizei o schemas junto do aplicativo b.) Verifiquei o Exemplo de Evento CCe no pacote de exemplo do ACBR e efetuei as modificações conforme o exemplo ai passou a dar um erro feio ###################### Erro Interno: 12002 Erro HTTP: 0 Requisição não enviada 12002 Tempo Limite da operação foi atinigdo ###################### Estou usando desta forma ----------------------------- NumeroLote:=dm15.NFENOTA.AsString+dm15.ListaCCorrecaoIDEVENTO.AsString; dm00.CNFE.EventoNFe.Evento.Clear; with dm00.CNFE.EventoNFe.Evento.Add do Begin { // infEvento.cOrgao := dm15.ListaCCorrecaoCODUF.AsInteger; // infEvento.tpAmb := iif(dm.SETUPAMBIENTE.Asstring='T',taHomologacao,taProducao); } infEvento.chNFe := dm15.ListaCCorrecaoCHAVE.AsString; infEvento.CNPJ := dm15.ListaCCorrecaoCNPJ.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := dm15.ListaCCorrecaoIDEVENTO.AsInteger; infEvento.versaoEvento := dm15.ListaCCorrecaoVERSAO.AsString; infEvento.detEvento.xCorrecao := dm15.ListaCCorrecaoCORRECAO.AsString; end; Try dm00.CNFE.EnviarEvento(StrToInt(NumeroLote)); except on E: exception do Begin Dedoduro('ERRO-CCE','Erro '+e.ClassName+' - '+e.Message,dm.LoginFANTASIA.AsString); mBox('Erro '+e.ClassName+' - '+e.Message,'E',[mbok]); End; end; --------------- Agradeço se alguem puder dar uma dica

Daniel Obrigado pela informação

Daniel bom dia ainda não tive tempo para procurar e nem nunca soube, como eu posso dizer que esse assunto foi resolvido ? vou postar isso e qq coisa me informa que farei direitinho nos proximos, é que eu sou novinho ainda, preciso aprender muita coisa abraço a todos [RESOLVIDO]

Bom dia Amarildo Acredito que não terei problema com esses detalhes que voce colocou, eu só tenho clientes de pequeno porte, pequeno mesmo, tipo no maximo o cara tem umas 10 masquinas, mais a maioria é de 1 a 3 maquinas, e também não faço uso de TEF em nenhum cliente, então acredito que se tudo der certo, poderemos compartilhar o SAT via acbr Muito obrigado por responder

Daniel Peço desculpas em 1000 Desculpas em atrapalhar o seu trabalho. Foi uma leve desviada no pensamento nas madrugadas de trabalho até as 5:00 da manhã que me permitiu errar desse jeito. Estava errando no preenchimento da forma de pagamento, onde iniciei um While infinito veja Iniciei o ciclo com dmSat.CFESubRec.Eof sem ter colocado o dmSat.CFESubRec.next, ou seja o .Next estava sendo executado com outra SQL dmSat.CFESubRec_Ler.next ##################### dmSat.CFESubRec_Ler.Close; dmSat.CFESubRec_Ler.Params.ParamByName('pVenda').AsInteger:=dmSat.CFE.FieldByName('Venda').AsInteger; dmSat.CFESubRec_Ler.Open; While not dmSat.CFESubRec.Eof do begin with Pagto.Add do begin Case dmSat.CFESubRec_Ler.FieldByName('Genero').AsInteger of 1:cMP := mpDinheiro; 2:cMP := mpCheque; 3:cMP := mpCartaodeCredito; 4:cMP := mpCartaodeDebito; 5:cMP := mpOutros; 6:cMP := mpOutros; 7:cMP := mpOutros; 8:cMP := mpOutros; 9:cMP := mpOutros; Else cMP := mpDinheiro; end; vMP := dmSat.CFESubRec_Ler.FieldByName('Valor').AsFloat; // cAdmC := 999; Desnecessário end; dmSat.CFESubRec_Ler.Next; end; #################### Envergonhado Procedure que Gera XML.txt Procedure que Envia.txt

Daniel Não acredito que seja a DLL Veja o Log dá pra perceber direitinho As 16:22 quando Enviou e deu rejeição: foi enviado pelo SATTeste As 16:59 eu enviei pelo aplicativo, veja que ele nem chega a registrar o LOG dizendo que tentei enviar algo, simplesmente aperece como Consulta ##################### 20150909162239|AC-SAT|info|nvl 2:(ConsultarSAT) mensagem recebida 20150909162239|SAT-AC|info|nvl 2:(ConsultarSAT) mensagem enviada 20150909162239|AC-SAT|info|nvl 2:(EnviarDadosVenda) mensagem recebida 20150909162239|SAT-AC|erro|nvl 1:(EnviarDadosVenda) falha na geracao do CF-e-SAT (6010|1999|Rejeição: Erro não identificado) 20150909162239|SAT-AC|info|nvl 2:(EnviarDadosVenda) mensagem enviada 20150909162806|SAT|info|nvl 2:(dispatcher) nenhum CF-e-SAT na memoria interna 20150909162806|SAT|info|nvl 2:(dispatcher) aguarda proxima transmissao (tempo:010000) 20150909162809|SAT-SEFAZ|info|nvl 2:(CFeComandos) acessado o webservice 20150909162811|SEFAZ-SAT|info|nvl 2:(CFeComandos) assinatura da SEFAZ validada com sucesso 20150909162811|SEFAZ-SAT|info|nvl 2:(CFeComandos) não existem comandos pendentes 20150909162811|SAT|info|nvl 2:(comando) aguarda proxima verificacao de comandos na SEFAZ (tempo:010000) 20150909165905|AC-SAT|info|nvl 2:(ConsultarSAT) mensagem recebida 20150909165905|SAT-AC|info|nvl 2:(ConsultarSAT) mensagem enviada 20150909165905|AC-SAT|info|nvl 2:(ExtrairLogs) mensagem recebida ##################### Agora vou verificar o que exatamente ele esta gerando como XML, isso ainda não parei para ver. Obrigado

Daniel Desculpe o incomodo mas poderia dar uma olhadinha neste XML que gerei com o SATTeste.exe ########################## ACBrSAT.Inicializado Venda Gerada -- 16:16:43:656 - numeroSessao: 587030 - Comando: EnviarDadosVenda( <?xml version="1.0" encoding="UTF-8"?> <CFe> <infCFe versaoDadosEnt="0.06"> <ide> <CNPJ>68050350000104</CNPJ> <signAC>u8zrOk1frJVkOjjm05UENPq8UHsMwcRQAS2vtMjrNjSj/7TMMtCl0//bJdRVmbcosQybKhev6HzjtBpDp6gd3qmgr2cbsSNMje6pYxWZdYzY5gR8LngiZABhEC57CvpeUHWvQuDZ0AEyA4g+e+xcLrc9tUNA/wdncW6Ep4cUBSPqYcCKPOPvO9rIMJzilgo6Wf8aJG0E2D9lm15tocWT3hxrskgAQ1FWuKEJ9mEOnXWfkhnZN1ocnQNIjJib5+GIOy5RM8/coX6fJXo9gnqRmmL3ZcIYjc6MhSwFpWuBKF2bHL1hB41kUO5cq8komC2j3TeqLkQi2xyyOrm9l3sOig==</signAC> <numeroCaixa>001</numeroCaixa> </ide> <emit> <CNPJ>54763792000185</CNPJ> <IE>528022397115</IE> <indRatISSQN>S</indRatISSQN> </emit> <dest> <CNPJ>05481336000137</CNPJ> <xNome>D.J. SYSTEM AEIOUaeiouCc</xNome> </dest> <entrega> <xLgr>logradouro</xLgr> <nro>112233</nro> <xCpl>complemento</xCpl> <xBairro>bairro</xBairro> <xMun>municipio</xMun> <UF>RJ</UF> </entrega> <det nItem="1"> <prod> <cProd>ACBR001</cProd> <cEAN>6291041500213</cEAN> <xProd>Assinatura SAC</xProd> <NCM>99</NCM> <CFOP>5120</CFOP> <uCom>UN</uCom> <qCom>1.0000</qCom> <vUnCom>120.00</vUnCom> <indRegra>A</indRegra> <vDesc>1.00</vDesc> <obsFiscoDet xCampoDet="campo"> <xTextoDet>texto</xTextoDet> </obsFiscoDet> </prod> <imposto> <vItem12741>14.40</vItem12741> <ICMS> </ICMS> <PIS> <PISSN> <CST>01</CST> </PISSN> </PIS> <COFINS> <COFINSSN> <CST>01</CST> </COFINSSN> </COFINS> </imposto> <infAdProd>Informacoes adicionais</infAdProd> </det> <det nItem="2"> <prod> <cProd>6291041500213</cProd> <cEAN>6291041500213</cEAN> <xProd>Outro produto Qualquer, com a Descricao Grande. Ok, vamos deixar a descricao realmente Grande, para testar a impressao</xProd> <CFOP>5529</CFOP> <uCom>un</uCom> <qCom>1.1205</qCom> <vUnCom>1.21</vUnCom> <indRegra>A</indRegra> <vOutro>2.00</vOutro> </prod> <imposto> <vItem12741>0.41</vItem12741> <ICMS> </ICMS> <PIS> <PISSN> <CST>03</CST> </PISSN> </PIS> <PISST> <qBCProd>1.3558</qBCProd> <vAliqProd>1.0223</vAliqProd> </PISST> <COFINS> <COFINSSN> <CST>03</CST> </COFINSSN> </COFINS> </imposto> </det> <det nItem="3"> <prod> <cProd>abc123</cProd> <cEAN>6291041500213</cEAN> <xProd>ACBrSAT rules</xProd> <NCM>99</NCM> <CFOP>5844</CFOP> <uCom>un</uCom> <qCom>1.1205</qCom> <vUnCom>1.21</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <ICMS> <ICMSSN102> <Orig>1</Orig> <CSOSN>102</CSOSN> </ICMSSN102> </ICMS> <PIS> <PISSN> <CST>04</CST> </PISSN> </PIS> <PISST> <qBCProd>1.3558</qBCProd> <vAliqProd>1.1826</vAliqProd> </PISST> <COFINS> <COFINSSN> <CST>06</CST> </COFINSSN> </COFINS> </imposto> <infAdProd>Informacoes adicionais</infAdProd> </det> <total> <DescAcrEntr> <vDescSubtot>5.00</vDescSubtot> </DescAcrEntr> <vCFeLei12741>1.23</vCFeLei12741> </total> <pgto> <MP> <cMP>03</cMP> <vMP>61.36</vMP> </MP> <MP> <cMP>01</cMP> <vMP>71.36</vMP> </MP> </pgto> <infAdic> <infCpl>Acesse www.projetoacbr.com.br para obter mais;informacoes sobre o componente ACBrSAT;Precisa de um PAF-ECF homologado?;Conheca o DJPDV - www.djpdv.com.br</infCpl> </infAdic> </infCFe> </CFe> ) NumeroSessao: 587030 - Resposta:DLLSAT.dll necessita zlib.dll ########################## Não sei o que fazer, essa ZLIB.DLL vem junto com a instalação do D-Sat, já coloquei ela no system32, na pasta do aplicativo agora estou revisando o que fiz no aplicativo obrigado

Valeu Verissimo muito obrigado vou testar aqui

Daniel ou alguem ai Por gentileza será que alguem tem um SATTeste.EXE já compilado para me fornecer, estou atrasando demais meus clientes, gostaria de testar rapidamente o problema usando o SATTeste, pois estou tendo problemas ao compilar esse fonte. obrigado

Daniel estou tentando gerar EXE do SatTeste e está dando a seguinte mensagem: isso, tanto faz, se eu tentar executar o projeto ou se tentar criar um EXE veja Sem contar que quando mandei compilar ele deu aquele lance de incompatibilidade de AnsiString com String ai eu deixei como String no eventos aguardo apoio obrigado

Daniel Estou com o aparelho aqui, e de fato ocorre o congelamento quando mando acbrSat.enviarDadosVenda; (percebi que o Led de AC do aparelho, nem pisca, quando antes ele ficava piscando quando enviava uma venda) no acbrSAT tem os eventos, embora eu use XP com D7, eu reparei que tem o ongetcodigodeAtivacao, ongetSignAC e por ser XP eu não consigo mudar para AnsiString eles estão como String, mas independente disso, antes de avaliar esse fato estava funcionando mesmo com String. ta travando no EnviarDadosVenda; Depois de 3 min ela da msg Out Of Memory Ja atualizei o componente duas vezes Por favor, me dê uma Luz Obrigado

Esse é que é o Problema, no Log, onde deveria aparecer tipo "Tentou enviar....", aparece "Consultar SAT" Veja Daniel, o LOG eu peguei direto do da DLL Até 8:41 ele estava enviando normal, inclusive esse ultimo envio ocorreu um errro que não tem nada haver. Depois das 9:00 eu atualizei o Sistema, obviamente que com o ACBR atualizado. Depois disso onde devia aparecer EnvioDadosdeVenda, aparece Consultar SAT Achei que o problema era do Aparelho, mas agora complicou, pois os outros clientes tb atualização o sistema e todos na mesma situação. Veja, não vamos nos descabelar, talvez eu tenho pego uma versao do ACBR com problemas e logo em seguida, alguem ja corrigiu o problema. Bom. infelizmente terei que pegar o aparelho para fazer a tentativa de envio por aqui. Vou fazer o teste e retorno log Dimep.txt

Bom dia FND Na realidade, o suporte Dimep me disse para remover a dll discovery no caso de XP, eu informei que podia renomear, somente isso Apos instalado no XP, com o D-Sat Manager Fechado, Renomeie ou Exclua a DLL DiscoverySat.DLL eu não a tenho aqui mas acho que o nome dela é esse mesmo. Flw

ok Daniel obrigado pela informação

Daniel Tipo assim como esta na imagem

Ao ajustar o SAT, eu informo a localização da DLL Ex: acbrSat.NomedaDLL:='C:\DSAT\DLLSAT.DLL'; Vinha funcionando bem desde o dia 4, hoje, ta fazendo gracinha Eu instalei na Sexta passada não tem o que atualizar acredito eu, não está bloqueado, ta tudo certinho. veja, talvez o aparelho esteja com algum problema, eu só estou postando, pois pode ser que tenha havido alguma alteração que venha ocorrer a Out Of Memory. Mas se tiver mais algo que possa me informar eu agradeço.

Pessoal boa tarde Estou tentando enviar um Cf-e contem 15 itens, não esta havendo resposta do aparelho, ja reiniciei a maq, e o SAT não responde nada, olho no LOG ele só diz que foi feita uma consulta e não um envio depois de muito tempo aguardando ocorre Classe=EoutOfMemory Erro=out of Memory pode me dar alguma dica ? Já passei o caso para o suporte da Dimep, eles ainda estão verificando, mas se alguem já passou por isso e for do componente por favor me informe, estou usando D-SAT e envio a venda atraves do acbrSat.EnviarDadosVenda; cfe_InicializarSAT.Execute; cfe_GerarXML.Execute; dm.acbrSAT.EnviarDadosVenda; CodRetorno:=dm.acbrSAT.Resposta.codigoDeRetorno; Mensagem:=dm.acbrSAT.Resposta.mensagemRetorno; if CodRetorno=6000 then begin Try {> Efetuar as alteraç~çoes no registro para info que foi Enviado} Obrigado

Gente já passei por isso, depois de instalado o d-SAT (Dimep), vai na pasta D-SAT manager e renomeia a DiscoverySAT.DLL ou algo assim. Pronto, ja funciona normal no XP, para OS acima, nada precisa ser feito

AmarildoLacerda Desculpe me meter na conversa, mas isso também me interessa, será que podia expor um pouco mais do assunto ? Se achar desnecessario ou petulancia de minha parte, por favor nem responda obrigado

Bom dia Pessoal Bom, com a chegada do Trunk2, ocorreu a obrigatoriedade de enviar junto com o EXE as lib necessárias para o OpenSSL. Eu só utilizo CAPICOM.DLL Analisando o Install Packages do Delphi 7, pergunto? Se eu desligar esse componente "Acbr - OpenSSL através do LibXMLSec" vai trazer algum problema para os demais componentes ? Obrigado

Olá Daniel Estou falando das duas Epson e Diebold. Embora, da Epson, foi instalado meio que remotamente, ainda não estive no estabelecimento para fazer mais averiguações. Já a Diebold, de fato, estive no local, e tentei varias configs da marvada e e nenhuma foi válida. mas, já que informou esse detalhe, vou avaliar melhor a epson e aguardar als alterações do fontes para Diebold. Obrigado

Bom dia pessoal Ufa, muito Feliz, pois começou a funcionar a minha implantação de SAT nos clientes. Já alguns detalhes sobre o assunto aqui no forum, mas percebi que nenhum tópico trouxe algum texto com mais expressão que pudesse trazer a luz para o problema. Tenho dois clientes um com Epson não fiscal e o outro com uma tal de DieBold Bom tentei todos os modelos especificados no acbrExtratoEscPos e em nenhum deles o QRCode está sendo impresso, no local sai a mensagem de codigo inválido e abaixo sai um o codigo da chave contido no XML. Nos demais clientes com Daruma e Bematech funciona legalzinho. Tentei também alterar algumas configurações da impressora, mas acabei deixando como padrão pra não piorar. No entanto, conforme o site do fabricante, esses modelos estão aptos a imprimer o QRCode. Se alguem tiver algum comentário que possa auxiliar, agradecemos. abraço a todos, bom final de semana e bom feriado para quem vai passear. Felizmente eu ficarei trabalhando para deixar o mais perfeito possível obrigado

Marciano Talvez seja porque voce já tem essas dlls, afinal elas ficam rodando em memoria e quando voce já as tem na maquina de fato ela, acredito que não sabe o que fazer. é mais ou menos quando voce tenta substituir uma dll que está sendo usada na memoria. Sua idéia tb é legal, se puder descrever os passos quem sabe eu possa diminuir o tamanho do EXE com a sua forma.