Wilson Rabelo

Ainda trava quando ativa a impressora. Coloquei a seguinte linha agora: CupomPrinter.Device. Timeout := 1000; Espero que funcione.

Vou incluir estas linhas para ver se resolve... CupomPrinter.LinhasBuffer := 10; CupomPrinter.Device.SendBytesInterval := 100;

O nome do componente é TACBRPOSPrinter

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

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.

Eu uso true também, mesmo assim a impressora trava e trava o sistema todo. Não retorna nada... Tenho que reiniciar a maquina. Estou usando ACBrPosPrinter para o SAT... Sabe o que pode ser? A impressora é uma Elgin I9 estou usando ppEscPosEpson no modelo Alguem me ajuda?

Muito Obrigado mesmo! Era isso. Sou muito grato! Fiquem com Deus.

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>

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

Obrigado. Vou testar. Estou com o mesmo problema. Já ajudaria interceptar o problema, mas o ideal seria resolver esse travamento.

Tenho a mesma dúvida. A impressão simplesmente trava e não retorna nada. Ou retorna esse erro... Communication error 2: O sistema não pode encontrar o arquivo especificado.

Mas e com relação ao componente? A partir do momento que faço a inclusão de um item usando CFe.Det.Add, tem como excluir o item do cupom? Vi que existe a opção CFeDet.Delete, mas ela exclui o item errado! A função está com problemas?

Obrigado! Aqui resolveu.

Rafa... valeu muito.

Já verificou se seu componente tem os eventos OnGetcodigoDeAtivacao e OnGetsignAC ?

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!

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.

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.

Depois que tento enviar, se eu entrar no D-Manager ele diz que o SAT está em processamento... Ai tenho que desligar e ligar ele.

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?

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

Obrigado a todos.

Tive o mesmo problema aqui. Bastou copiar as dlls e resolveu... Nem precisei copiar. Rodei o instalador em modo administrativo e marquei para copiar as dlls...

Eu testei e é verdade! O uso do With é obrigatório! Não entendi... Como pode isso???

Bom dia a todos. Italo, está dizendo que devemos usar obrigatoriamente o WITH? O código que você escreveu não é igual ao do ALA? Estou falando, porque estou tendo um problema semelhante. Não gosto de usar With e quando uso... SATFiscal.CFe.Det.Add.nItem := Item_Num; SATFiscal.CFe.Det.Add.Prod.cProd := Codigo; SATFiscal.CFe.Det.Add.Prod.cEAN := CodEan; SATFiscal.CFe.Det.Add.Prod.xProd := Descricao; SATFiscal.CFe.Det.Add.Prod.NCM := CodNCM; SATFiscal.CFe.Det.Add.Prod.CFOP := '5120'; SATFiscal.CFe.Det.Add.Prod.uCom := unidade; SATFiscal.CFe.Det.Add.Prod.indRegra := irTruncamento; ele inclui um item para cada propriedade que me referi. Estou ficando maluco aqui... Pode me ajudar? Grato