Envio Lento e sem conclusao

[Marcelo Bill]

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

 

Editado 8 Setembro, 2015 por marcelonarezzi

[Daniel Simoes]

Verifique se as DLLs da DIMEP estão atualizadas e na mesma pasta da aplicação (.EXE)...

Em qual ponto do programa ocorre a lentidão ? É na chamada de "EnviarDadosVenda" ?

[Marcelo Bill]

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.

[Daniel Simoes]

Não ficou claro pra mim... de onde vem o erro... Se você postar o Log do ACBrSAT e do SAT, pode ajudar

 

[Marcelo Bill]

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

[Marcelo Bill]

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

[Daniel Simoes]

Por favor testes com o SATTeste.exe...

Forneça um passo a passo de como reproduzir o problema, usando o SATTeste.exe

Forneça o Log  do ACBrSAT...

 

[Marcelo Bill]

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

[Marcelo Bill]

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

[Verissimo]

Marcelo,

Baixe-o aqui: http://www.projetoacbr.com.br/forum/files/file/316-sattesteexe/

[Marcelo Bill]

Valeu Verissimo

muito obrigado

vou testar aqui

 

[Marcelo Bill]

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

 

[Daniel Simoes]

O erro vem da DLL...

Certifique-se de que você tem a Zlib.dll distribuída pela DIMEP ( você pode ter uma versão antiga ou errada no seu sistema)

Acione o suporte da DIMEP para resolver esse problema de dependência da DLL

Editado 9 Setembro, 2015 por Daniel Simoes

[Marcelo Bill]

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

[Marcelo Bill]

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

[Marcelo Bill]

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]

[Daniel Simoes]

Oi Marcelo,

Desculpa pela demora na resposta... estive fora do escritório por esses dias...

Que bom que você conseguiu identificar o problema... 

 

Nessa nova versão do Invision... eles removeram o recurso de marcar o tópico como resolvido... eles criaram um novo modo de Fórum, parecido com o o StackOverflow, mas que muda muito a maneira que estamos acostumados a usar o Fórum... 

Já solicitamos e imploramos para voltarem com o botão "Resolvido"... Quem sabe nas próximas atualizações do "Invision Power Board"..

[geanjesus]

Independente de ter resolvido, a melhor coisa a fazer  eh cair fora do xp, pois tera problemas futuros, logo,logo,esta ai o windows 7 bem  estavel e com menos problemas ....estou arrancando tudo que eh xp dos meus clientes e ponto.

nem suporte tem mais, a muito tempo...

[Daniel Simoes]

Sem dúvida WinXP hoje em dia é um problema... Os novos divers não o suportam corretamente 

A MS tem o Windos PosReady, que seria ótimo para automação... Mas curiosamente, nenhum fabricante de PC para automação, fornece máquinas com ele...

http://www.microsoft.com/windowsembedded/en-gb/windows-embedded-posready-7.aspx

[Marcelo Bill]

Daniel 

Obrigado pela informação