rogercon

Bom, funcionou em partes, pelo que entendi é o seguinte, tenho uma bematech mp 4200 instalada e funcionando na porta COM11 Se eu passar acbrposprinter1.porta:='COM11' daí entra no except em caso de algum erro, ou senão imprime normalmente. mas se eu passar acbrposprinter1.porta:='MP-4200 TH' daí não entra no except em caso de algum erro, ou senão imprime normalmente. 1 - se a mp-4200 th estiver em estado de erro, é ai que não entra no except 2 - se ela estiver online, imprime normal ACBrPosPrinter1.Modelo := ppEscBematech; ACBrPosPrinter1.Porta := 'MP-4200 TH'; acbrposprinter1.ControlePorta:=false; acbrposprinter1.VerificarImpressora:=true; mimp := TMemo.Create(nil); mimp.parent := self; mimp.visible := false; mimp.lines.add('</zera>'); mimp.lines.add('teste'); mimp.lines.add('teste'); mimp.lines.add('teste'); mimp.lines.add('</corte_total>'); try frmprincipal.acbrposprinter1.ativar; except showmessage('erro ao ativar'); end; frmprincipal.ACBrPosPrinter1.imprimir(mimp.text); frmprincipal.acbrposprinter1.desativar; freeandnil(mimp);

ainda não resolveu, coloquei verificarimpressora True. Tem algo haver eu estar passando CONTROLEPORTA:= TRUE ?

Tentei. Nao entrou no except e continua congelando a aplicação.

Quando a impressora está off-line por algum motivo(cabo desconectado, drive não instalado ou porta com incorreta), realmente não entra no except, já tentei... try frmprincipal.ACBrPosPrinter1.imprimir(mimp.text); except on E: EInOutError do begin mostrarmensagem('Erro de comunicação com a impressora.','Erro de comunicação com a impressora. '+e.message+#13+'Classe: '+e.classname,'ERRO'); end; on e: Exception do begin showmessage('ERRO AO IMPRIMIR'); END; end;

Boa Noite, Utilizando o componente acbrposprinter1, ao tentar imprimir caso a impressora não tenha sido encontrada a aplicação trava e congela. Existe alguma forma de tratar esta excessão ? reparei que no evento do componente possui algumas coisas mas no demo não tem nada.... O erro também ocorreu utilizando o demo. obrigado

Pelo que eu notei, era porque eu estava tentando usar rodando pelo delphi, depois que rodei diretamente o exe, foi.

também estou com este problema. Já atualizei os fontes e dei build na aplicação.

estou fazendo assim para enviar, mvendaenviar:=Tmemo.create(nil); mvendaenviar.visible:=false; mvendaenviar.parent:=self; mVendaEnviar.lines.text := ACBrSAT1.CFe.GerarXML(true); // True = Gera apenas as TAGs da aplicação frmprincipal.mLog.lines.Add('Venda Gerada'); ACBrSAT1.EnviarDadosVenda(mVendaEnviar.text); freeandnil(mvendaenviar);

tanto pela aplicação quanto pelo software da tanca, recebo SAT EM OPERACAO, estou usando um sat tanca sdk, as luzes ligado, operação, rede, e parametrizado estão ok, além do cf-e sat pendente piscando....

Galera, ao executar o método ACBrSAT1.EnviarDadosVenda(mVendaEnviar.text); minha aplicação fecha sozinha, notei que o erro ocorre no arquivo acbrsat.pas na linha abaixo, o que será que está errado ? if EstaVazio(SATResp) then SATResp := fsSATClass.EnviarDadosVenda( dadosVenda );

E quando tenho 6 ctes, ambos teem a mesma uf de origem e a mesma uf de destino, mesmo motorista, mesmo veículo, daí devo fazer apenas 1 mdfe ? pois se eu tentar fazer 1 mdfe para cda cte vai dar rejeição.

cleannup no tortoise resolveu o problema.

Pessoal, Deletei a pasta inteira do acbr, baixei denovo, e recebo o erro em anexo ao tentar rodar o instalador. Obrigado a todos.

[RESOLVIDO] era falha minha aqui, não passando o CUF correto.

Bom dia, já estava assim.

65

Bom dia, Ao executar o comando para validar a nfce conforme abaixo, recebo o seguinte erro: "UF não pode ser vazia" showmessage(acbrnfce.configuracoes.WebServices.uf); acbrnfce.notasfiscais.validar; O componente está devidamente carregado, coloquei um showmessage ali para me certificar que estava com a uf devidamente preenchida...... daí olhando os fontes do acbr, abri o arquivo ACBRDFE.PAS e notei que o parâmetro UF da procedure LerServicoDeParams está chegando vazio. "trecho do código" procedure TACBrDFe.LerServicoDeParams(const ModeloDFe, UF: String; const TipoAmbiente: TpcnTipoAmbiente; const NomeServico: String; var Versao: Double; var URL: String); var Sessao, NomeSchema, ArqSchema: String; VersaoAchada, VersaoSchema: Double; begin if EstaVazio(ModeloDFe) then raise EACBrDFeException.Create('ModeloDFe não pode ser vazio'); if EstaVazio(UF) then raise EACBrDFeException.Create('UF não pode ser vazia'); Obrigado a todos desde já.

obrigado, funcionou.!

Pessoal, usando o acbrinstall, quando chega no pacote acbrsat, dá erro, daí desmarquei e instalei normalmente, daí já dentro do delphi, fui tentar instalar o acbrsat.dpk manualmente, e recebo o erro no print em anexo: Já deletei a pasta inteira do acbr, baixei novamente, e não vai de jeito nenhum.

consegui resolver trocando a carteira de SR para 02, mas se alguem puder responder o seguinte : antes era SR nao era ? pois alguns clientes sempre usaram assim, mudou para 02 faz pouco tempo ? tem alguma nota tecnica dessa alteracao ?

Boa Tarde, O meu boleto estava certo, mas de repente agora a linha digitável está errada e acho tambem que é referente ao nosso número, vejam que tem o numero 82 antes do numero: 82 4239-9 e consequentemente a linha digitável fica errada pelo motivo acima. 10498.2 2 4239.218581 70000.005242 8 69860000064000 tinha que iniciar com 10490.xxxxx

Bom dia, Também tenho o mesmo problema com o RIO DE JANEIRO, desde o dia 01/11/2016, alguém conseguiu resolver?

Obrigado, mas acaba que não ajuda, pois eu queria algo como existe no acbrnfe. valeu mesmo assim.

Boa Noite Galera, Como eu posso fazer para consultar um CF-E SAT usando a chave de acesso do mesmo ? exatamente igual temos hoje usando o ACBRnfe, é possível ?

aproveitando o gancho, No nome do arquivo xml, considerando o seguinte arquivo "35160604211789000180590001127840003923309740.xml" vejo o número do CFE contido neste nome, que no caso é 392 A pergunta é : 1 - Quais as posições no arquivo xml que abordam o numero do cf-e ? 2 - Os demais números, alguém poderia explicar 1 a 1 suas posições ? Procurei até a página 8 do fórum acbr e não encontrei algo a respeito, Obrigado a todos desde já. Abraço