Ir para conteúdo
  • Cadastre-se

Wilson Rabelo

Membros
  • Total de ítens

    55
  • Registro em

  • Última visita

Posts postados por Wilson Rabelo

  1. To desesperado...

    Crio o componente assim: Trago informação de outro componente... Coloquei os valores na frente.

            CupomPrinter := TACBRPOSPrinter.Create(nil);
            CupomPrinter.Modelo := TACBrPosPrinterModelo(SAT_PosPrinter_Modelo); //ppEscPosEpson
            CupomPrinter.PaginaDeCodigo := TACBrPosPaginaCodigo(SAT_PosPrinter_Paginadecodigo); //2
            CupomPrinter.Porta := SAT_PosPrinter_Porta; //COM11
            CupomPrinter.ColunasFonteNormal := SAT_PosPrinter_colunas; //48
            CupomPrinter.LinhasEntreCupons := SAT_PosPrinter_espacolinhas; //0
            CupomPrinter.EspacoEntreLinhas := SAT_PosPrinter_linhasentrecupons; //5
            CupomPrinter.ConfigGaveta.SinalInvertido := sGaveta_Sinal; //false
            CupomPrinter.ControlePorta := false;

    Imprimo assim:

      While CupomPrinter.Ativo = false do CupomPrinter.Ativar;
      CupomPrinter.Imprimir('texto', True, True, True, 1); //trava aqui! 
      While CupomPrinter.Ativo do CupomPrinter.Desativar;

    Ele trava e congela o aplicativo. Para finalizar com ctrl alt del preciso desligar a impressora

  2. Olá a todos. 
    Estou usando o acrbescpos.
    Em alguns momentos a impressão trava e o aplicativo congela.
    Existe uma forma de saber se a impressão travou? 
    A impressora é USB, Elgin i9 e estou controlando a abertura e fechamento da porta.
    Usando o controle automático do componente ele também trava.

     

    Poderiam me ajudar?

    Obrigado a todos.



     

  3. Vou transcrever parte do XML aqui.


    -<det nItem="1">

     

    -<prod>

    <cProd>8</cProd>

    <xProd>VINHO BORDO 4,6 LITROS</xProd>

    <NCM>22042900</NCM>

    <CFOP>5405</CFOP>

    <uCom>UN</uCom>

    <qCom>2.0000</qCom>

    <vUnCom>67.00</vUnCom>

    <indRegra>A</indRegra>

    <vDesc>0.35</vDesc>

    </prod>


    -<imposto>


    -<ICMS>


    -<ICMSSN102>

    <Orig>0</Orig>

    <CSOSN>102</CSOSN>

    </ICMSSN102>

    </ICMS>


    -<PIS>


    -<PISSN>

    <CST>49</CST>

    </PISSN>

    </PIS>


    -<COFINS>


    -<COFINSSN>

    <CST>49</CST>

    </COFINSSN>

    </COFINS>

    </imposto>

    </det>


    -<det nItem="2">


    -<prod>

    <cProd>1</cProd>

    <xProd>VINHO 1 LITRO</xProd>

    <NCM>22042911</NCM>

    <CFOP>5405</CFOP>

    <uCom>UN</uCom>

    <qCom>1.0000</qCom>

    <vUnCom>16.00</vUnCom>

    <indRegra>A</indRegra>

    <vDesc>0.08</vDesc>

    </prod>


    -<imposto>


    -<ICMS>


    -<ICMSSN102>

    <Orig>0</Orig>

    <CSOSN>102</CSOSN>

    </ICMSSN102>

    </ICMS>


    -<PIS>


    -<PISSN>

    <CST>49</CST>

    </PISSN>

    </PIS>


    -<COFINS>


    -<COFINSSN>

    <CST>49</CST>

    </COFINSSN>

    </COFINS>

    </imposto>

    </det>


    -<det nItem="3">


    -<prod>

    <cProd>2</cProd>

    <xProd>VINHO 2 LITROS</xProd>

    <NCM>22042911</NCM>

    <CFOP>5405</CFOP>

    <uCom>UN</uCom>

    <qCom>1.0000</qCom>

    <vUnCom>32.00</vUnCom>

    <indRegra>A</indRegra>

    <vDesc>0.17</vDesc>

    </prod>


    -<imposto>


    -<ICMS>


    -<ICMSSN102>

    <Orig>0</Orig>

    <CSOSN>102</CSOSN>

    </ICMSSN102>

    </ICMS>


    -<PIS>


    -<PISSN>

    <CST>49</CST>

    </PISSN>

    </PIS>


    -<COFINS>


    -<COFINSSN>

    <CST>49</CST>

    </COFINSSN>

    </COFINS>

    </imposto>

    </det>


    -<det nItem="4">


    -<prod>

    <cProd>22</cProd>

    <xProd>PIMENTA CONSERVA</xProd>

    <NCM>20019000</NCM>

    <CFOP>5405</CFOP>

    <uCom>UN</uCom>

    <qCom>1.0000</qCom>

    <vUnCom>10.00</vUnCom>

    <indRegra>A</indRegra>

    <vDesc>0.05</vDesc>

    </prod>


    -<imposto>


    -<ICMS>


    -<ICMSSN102>

    <Orig>0</Orig>

    <CSOSN>102</CSOSN>

    </ICMSSN102>

    </ICMS>


    -<PIS>


    -<PISSN>

    <CST>49</CST>

    </PISSN>

    </PIS>


    -<COFINS>


    -<COFINSSN>

    <CST>49</CST>

    </COFINSSN>

    </COFINS>

    </imposto>

    </det>


    -<total>

    <vCFeLei12741>0.00</vCFeLei12741>

    </total>


    -<pgto>


    -<MP>

    <cMP>01</cMP>

    <vMP>191.00</vMP>

    </MP>

    </pgto>

     

  4. Olá amigos. 
    -Estou enviando um cupom e ele está retornando o erro abaixo que extrai do log do D-SAT.
    10040 09/06/2016 12:53:12 nvl 2 info (EnviarDadosVenda) mensagem recebida
    10041 09/06/2016 12:53:12 nvl 1 erro (EnviarDadosVenda) falha na geracao do CF-e-SAT (6010|1408|Rejeição: Valor total do CF-e-SAT maior que o somatório dos valores de Meio de Pagamento empregados em seu pagamento.)
    10042 09/06/2016 12:53:12 nvl 2 info (EnviarDadosVenda) mensagem enviada

    -Testei enviar a venda com o D-SAT e deu o seguinte erro:
    000012|06010|1408|Rejeição: Valor total do CF-e-SAT maior que o somatório dos valores de Meio de Pagamento empregados em seu pagamento.||

    -Testei o XML no programa da TANCA e ele diz que está ok, porem não tenho sat Tanca para enviar, mas ele diz que o XML está ok.

    Sem o uso de desconto o programa envia normalmente. Olhei o manual da Sefaz e não acho nada.
    Poderiam me dizer qual o erro que estou cometendo?
    Vou anexar o xml...

    Agradeço muito.
    Wilson Rabelo


     

    AD20160609141846-785498-env.xml

  5. Olá. Bom dia a todos. 
    Utilizo o componente sat junto ao componente escpos para impressão. Basicamente, depois de criar tudo e enviar com retorno 6000 de aprovação, uso o comando:

    SATFiscal.ImprimirExtrato;

    Em seguida utilizo no escpos o seguinte:

    Escpos.PularLinhas(iSaltoCupom);
    Escpos.CortarPapel(True);

    Raramente, mas com consequências TERRÍVEIS.... a impressora falha. Perde a conexão com o computador... Sei lá porque.
    Acontece que tudo trava e não obtenho retorno da impressão. 
    Como trato os erros do EscPos? O IMPRIMIRESTRATO também não retorna nada?
    Tenho tido dificuldade com o retorno do componente de impressão.

    Podem me ajudar com isso?
    Grato!
    Sucesso a todos!

     

  6. Olá a todos, voltei.
    Realmente o Marcio tinha razão. O problema era o carregamento da dll.
    No meu sistema tenho oito ecfs, balanças, leitores e etc... uma festa de dlls.
    Porém terei que fazer funcionar nele mesmo.
    Alguém tem uma dica que possa me ajudar a resolver esse problema?

    Marcio... no seu caso, como fez com as dlls? Pode mostrar um exemplo pratico com uma delas?
    Hoje tenho uma unit contendo as declarações de dlls do ecf, bematech por exemplo e chamo a função ou procedure diretamente desta unit...
    Como faço para carregar a dll só na hora que for usar? 
    Ou como carrego a dll da DIMEP antes de todo mundo?

    Bom dia a todos e sucesso!

    Em 06/01/2016 at 09:27, marcio.bonfim disse:

    Opa Wilson. 

     

    O que a gente fez foi tirar o carregamento da dll da impressora da abertura do sistema, deixamos para carregar somente no momento da impressão. 

     

    []'s

     

  7. 53 minutos atrás, marcio.bonfim disse:

    Opa Wilson. 

     

    O que a gente fez foi tirar o carregamento da dll da impressora da abertura do sistema, deixamos para carregar somente no momento da impressão. 

     

    []'s

    Tomei uma decisão meio drástica, mas funcionou.
    Removi todas as impressoras do sistema  e vou implementar do zero. Somente sat, sem impressoras fiscais.
    Realmente era alguma dll que estava travando o sat. 
    Obrigado a todos. Obrigado Marcio.

  8. 21 horas atrás, marcio.bonfim disse:

    Wilson, tive um problema parecido com o D-SAT e estava relacionado com o problema de descoberta das portas pelo equipamento.

    No meu caso, qdo abria o sistema ele carregava algumas dlls de impressoras, que também tinham o esquema de descobrir as portas seriais. Ai, o que acontecia é que a porta estava ficando "presa" por uma dessas dlls.

    Não sei se pode ser o seu caso, mas de repente ... 

    []'s

    Marcio, tudo bem? No seu case o que fez efetivamente? Lembra? Talvez possa me ajudar.
    Falei com eles hoje e me enviaram uma nova dll... vou testar.

  9. 22 minutos atrás, Daniel Simoes disse:

    Certifique que você tem a última versão das DLLs do fabricante... baixe-as no site da DIMEP

    Informe um passo a passo de como reproduzir o problema, usando o Projeto Demo SATTeste

    Olá Daniel, Obrigado pela força. Por via das dúvidas atualizei as dlls, atualizei o driver usb também. Tudo funciona, porém meu sistema não.
    O SATTeste funciona perfeitamente...  Existe alguma configuração da porta do sat? Algum lugar que devo informar isso no programa? Não achei...
    Como meu sistema sabe a serial do sat? Ele está na COM5 e não achei onde informo isso no ACBRSAT. Pode ser isso?

  10. Saudações. Estou implementando o SAT no sistema. Após várias etapas cumpridas, empaquei em um problema.
    Estou usando SAT DIMEP. KIT Desenvolvedor.
    O Exemplo ACBR funciona perfeitamente e o arquivo xml que estou gerando no meu sistema é enviado normalmente pelo D-SAT Manager.
    Porem, no meu sistema no comando EnviarDadosVenda ele retorna "Resposta:Timeout na comunicação com o equipamento."
    Estou anexando o xml, o retorno e as configurações do SAT.
    Podem me dar uma luz? Alguma sugestão? Tô chateado aqui... Meu fim de ano foi pra cucuia por causa disso... 

    No delphi estou usando o comando assim:
                SAT_ArqXML é tipo string...

                SAT_ArqXML :=  SATFiscal.CFE.GerarXML( true );
                SATFiscal.EnviarDadosVenda(SAT_ArqXML);
                if SATFiscal.Resposta.codigoDeRetorno = 6000 then
                begin
                  LoadXML(SATFiscal.CFe.AsXMLString,SAt_Recebido);
                  SATFiscal.ImprimirExtrato;
                end
                else
                Begin
                  ShowMessage('Erro Codigo/Mens:' + IntToStr(SATFiscal.Resposta.codigoDeErro) + ' - ' +
                                           RetornaMensagemSATPorCodigo(SATFiscal.Resposta.codigoDeErro) + #10 + #13 +
                                          'Numero Sessão   :' + Inttostr(SATFiscal.Resposta.numeroSessao) + #10 + #13 +
                                          'Retorno String  :' + SATFiscal.Resposta.RetornoStr + #10 + #13 +
                                          'Codigo SEFAZ    :' + Inttostr(SATFiscal.Resposta.codigoSEFAZ) + #10 + #13 +
                                          'Mensagem SEFAZ  :' + SATFiscal.Resposta.mensagemSEFAZ + #10 + #13 +
                                          'Codigo Retorno  :' + Inttostr(SATFiscal.Resposta.codigoDeRetorno) + #10 + #13 +
                                          'Mensagem Retorno:' + SATFiscal.Resposta.mensagemRetorno);
                End;

    AD20160105092212-725340-env.xml

    LOG_SAT_120160105.log

    config.txt

    • Curtir 1
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.