Rafael Cruz

Só pra atualizar, consegui resolver o problema da impressão alterando a resolução de tela, verifiquei a maquina que imprimia sem problemas, resolução 1366 x 766, a maquina que não imprimia correto, estava em full HD, 1920 x 1080, ao baixar a resolução e testar, a impressão saiu correta. Agradeço aos tópicos e a atenção de todos pela ajuda!

Diferença dos DACTEs.rar Aqui as imagens nomeados com as respectivas maquinas, e como se a maquina 2(PC2) não estivesse atualizado, se for algo algo externo, estou sem ideia do que possa ser

Uso Fortes, é mesmo executável nos dois terminais

Olá pessoal! Estava gerando CTes de duas maquinas, com um sistema com as mesmas configurações, em questão de arquivos e caminho de banco de dados( 2 terminais pra um mesmo servidor), ambos emitem o CTe sem problemas, da "Autorizado pela sefaz", porem na hora de imprimir, 1 deles(Vou definir como PC1) gera o DACTE correto, com o novo padrão com QRCode, mas a outra(PC2) gera sem o QRCode, mesmo com o xml contendo a tag, tentei trocar pasta schemas, até copiei a pasta completa do sistema do PC1 para o PC2, porem ainda o layout de impressão continuou diferente. Alguem ja passou por algo parecido ou saiba o que possa estar acontecendo?

Bom dia Juliana, Fiz atualização do ACBr em outro pc e continua da mesma forma if DataProtesto <> 0 then begin if TipoDiasProtesto = diCorridos then AStringList.Add(ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dias corridos após o vencimento')) else AStringList.Add(ACBrStr('Protestar no ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dia útil após o vencimento')); end; e não tem a property nova que criei Fico no aguardo

Fiz o seguinte pra resolver isso da impressão na unit ACBrBoleto no private criei fDiasDeProtesto: Integer; criei uma property property DiasDeProtesto: Integer read fDiasDeProtesto write fDiasDeProtesto; no create fDiasDeProtesto := 0; e na impressão if TipoDiasProtesto = diCorridos then AStringList.Add (ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento, DataProtesto)) + ' dias corridos após o vencimento')) else AStringList.Add (ACBrStr('Protestar no ' + IntToStr(DiasDeProtesto) + ' dia útil após o vencimento')); PS: não pude usar property DiasProtesto pq já era usada no banco do brasil só passei o numero de dias de protesto na property nova. Se tiver outra solução ou for essa o componente poderia ser ajustado No aguardo

Boa tarde, Estou verificando a emissão de boleto CNAB 400 para banco Itau e surgiu um detalhe. Cliente com protesto 7 dias uteis, o vencimento do titulo é 21/12.. 7 dias corridos a data do protesto é 30/12. Eu seto então as 2 datas nas respectivas propriedades. O componente então lança faz o seguinte if DataProtesto <> 0 then begin if TipoDiasProtesto = diCorridos then AStringList.Add(ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dias corridos após o vencimento')) else AStringList.Add(ACBrStr('Protestar no ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dia útil após o vencimento')); end; Para dia util portanto, esta usando o DaysBetween, e a mensagem sai com 9 dias úteis após vencimento, quando o correto seria 7 dias. Verifiquei se existe a propriedades DiasUteis no componente ou algo do tipo, ai alteraria essa função acima mais não encontrei. Alguem resolveu esse detalhe?

Daniel, estou testando o demo do ACBrPosPrinter, subi o bmp pelo sw do fabricante, com indice 01. Pelo sw do fabricante imprime a imagem, porem como mando o comando da impressão da imagem pelo componente?

boa tarde, como faço para imprimir uma imagem usando o ACBrPosPrinter, setando impressora Epson. com o comando que o Demo gera </zera> </ce> Logo: - FatorX: 1 - FatorY: 1 </logo> </corte_total> não encontrei como faço a impressão da imagem obrigado

Entendi Juliomar, não vou conseguir fazer os testes então!! obrigado pela ajuda

Bom dia a todos, estou instalando o ACBr com o Seatle Update 1, baixei o ultimo fonte pelo svn, os pacotes que preciso instalam todos com sucesso. quando abro a IDE aparece a mensagem que não pode ler o pacote x conferi os paths na IDE e estão apontando para a pasta ACBr, mais minha pasta C:\ACBr\Lib\Delphi\LibD23 está vazia foi dada permissão Todos na pasta ACBr, foi aberto o install como administrador. Alguma idéia []s.

entendi... é verdade versão 3.10... quase meia noite não me atentei a isso mais enfim vou entrar em contato com o fornecedor pra ele fazer o ajuste obrigado a todos

boa noite amigos, tenho implementado a leitura de xml para entrada de estoque e observei um fato curioso um fornecedor enviou alguns xml mes 11/2015 com a versão 2.0 (imagem1) com a tag <dhEmi>2015-11-19T00:00:00-02:00</dhEmi> como essa tag foi alterada na versão 3.00 o componente não le essa tag, na function LerXML() está if NFe.infNFe.Versao >= 3 then begin (*B09*) NFe.ide.dEmi := Leitor.rCampo(tcDatHor, 'dhEmi'); (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDatHor, 'dhSaiEnt'); end else begin (*B09*) NFe.ide.dEmi := Leitor.rCampo(tcDat, 'dEmi'); (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDat, 'dSaiEnt'); (*B10a*)NFe.ide.hSaiEnt := Leitor.rCampo(tcHor, 'hSaiEnt'); end; na versao 2.00 a tag seria dEmi e não dhEmi, não sei como o fornecedor conseguiu validar a nota

Perfeito pessoal, envio do evento por email funcionando!! Só atualizar os clientes Agora testar CTe e MDFe com trunk2 Obrigado e todos pela ajuda!

Perfeito, funcionou. atualizei novamente o trunk2 e vi no demo que mudou a função LoadXML. O envio do email do evento de carta de correção e cancelamento, não foi implementado no trunk2? Obrigado pela ajuda.