tchuck

Boa Tarde Juliomar eu estou usando no OnActive do form mas estou carregando sim o configuracao.modelimpressora com o acfDaruma mas o retorno para o Modelo fico esse erro doido eu ja tive esse problema antes mas no recordo oq eu fiz para solucionar o problema...

Estou tentando selecionar uma nova impressora para cadastrar no sistema mas esta apresentando o retorno (out of bond) -1 isso esta acontecendo com a função FDataModule.ACBrECF.Modelo := TACBrECFModelo( GetEnumValue( TypeInfo(TACBrECFModelo), Configuracao.ModeloImpressora )); estou usando o XE5 e sempre que seleciono uma nova impressora ele me retorna o erro informado.

Testei em uma maquina virtual com o Windows 7 e ocorreu o mesmo problema acima informado...

Vou criar uma maquina Virtual aqui para testar, pq todas as Maquinas aqui usa o Windows 8

Bom dia, Fiz o que vc mencionou mas continua a mesma coisa e tambem o mesmo problema de CNPJ Invalido no emulador

Esse que é o problema ja li o manual todo seguindo passo a passo mas quando vou ativar o SAT pelo ACBrSat me retorna sempre o mesmo erro no emulador fala que o CNPJ é Inválido e no demo me retorna o erro: -- 09:06:38:559 - numeroSessao: 740476 - Comando: AtivarSAT( 1, 11111111111111, 35 ) 09:06:38:720 - numeroSessao: 740476 - Resposta:740476|04099|Erro desconhecido na ativação|| mas se eu fizer tudo pelo os emuladores funciona esse que esta sendo o problema com a mesma chave que uso no demo acbr... Não sei se era para aparecer isso no delphi mas quando eu executo o exemplo em debug quando clico em Ativar o sat me retorma esse problema no delphi na imagem anexo:

A única Mensagem que aparece na janela do SAT é a de CNPJ Inválido mas pelo manual estou passando oq ele pede o 11111111111111 quando eu mando ativar o SAT que me retorna essa mensagem

Bom dia estou usando o Delphi XE5 e estou tendo o seguinte problema com a inicialização do SAT ACBrSAT.Inicializado 10:53:19:181 - numeroSessao: 661032 - Comando: AtivarSAT( 1, 11111111111111, 35 ) 10:53:26:800 - numeroSessao: 661032 - Resposta:661032|04099|Erro desconhecido na ativação|| ja atualizei tudo estou usando o novo emulador 2.7.10 pelo exemplo do ACBr Sat da esses erro ativando pelo emulador sat funciona normal

ok Obrigado Juliomar

Bom dia, gostaria de saber se foi implementada as alterações acima para eu poder atualizar os componentes ou se a mesma vai ser feita ou não no projeto... Obrigado...

Segue anexo a Unit ACBrECF.pas com a alteração Obriado ACBrECF.pas

Olá fiz essas alterações no função DAV_Fechar gostaria se for possivel incorporar ao projeto para quem usa o Desconto no Total do Dav as alterações são as que destacadas procedure TACBrECF.DAV_Fechar(const AObservacao: String; AVlrDesconto, AVlrAcrescimo: Double); var DescrItem: String; TextoRel: TStringList; begin if Self.Estado <> estRelatorio then raise EACBrECFErro.Create('Efetue a abertura do DAV antes de continuar.'); TextoRel := TStringList.Create; try if Trim(AObservacao) <> EmptyStr then begin TextoRel.Add(''); TextoRel.Add(AObservacao); end; if FDAVItemCount > 1 then DescrItem := padL(IntToStr(FDAVItemCount) + ' itens', 12, ' ') else DescrItem := padL(IntToStr(FDAVItemCount) + ' item', 12, ' '); TextoRel.Add('</linha_simples>'); TextoRel.Add(DescrItem + padR('Valor Total: ' + Format('%11.2f', [FDAVTotal]), 36, ' ')); if AVlrDesconto > 0 then TextoRel.Add(padR('Total Desc.: ' + Format('%11.2f', [AVlrDesconto]), 48, ' ')); if AVlrAcrescimo > 0 then TextoRel.Add(padR('Total Acre.: ' + Format('%11.2f', [AVlrAcrescimo]), 48, ' ')); TextoRel.Add(''); TextoRel.Add(''); TextoRel.Add('</linha_dupla>'); TextoRel.Add('<ce>É VEDADA A AUTENTIÇÃO DESTE DOCUMENTO</ce>'); TextoRel.Add('</linha_dupla>'); TextoRel.Add(''); TextoRel.Add(''); LinhaRelatorioGerencial( ACBrStr(TextoRel.Text) ); finally TextoRel.Free; end; FechaRelatorio; FDAVItemCount := 0; FDAVTotal := 0.00; end;

Aproveitado o Tópico eu usao a função em impressora real e funciona perfeitamente a impressão, uma coisa que eu notei que poderia ser usado é o desconto no total do DAV no exemplo usa o Desconto no Item, mas tambem usão o Desconto no Total do DAV no meu caso eu adicionei essa opção junto ao Fecha DAV mas não fica legal a estetica por ela sair acima do Total do DAv gerado. por exempro: Total Desconto: xx,00 ou Acrecimo Total DAV : xx,00

eu nao gravei no banco simplemente eu abro o exemplo e faco o downloads e mendo abrir pelo proprio exemplo e aparece esse problema nos acentos isso no proprio exemplo...

XE5

Bom dia, estou implemento a função de calculod e imposto em um sistema novo que estou desenvolvendo e estou com um problema quando baixo o arquivo do site via o exemplo do componente ACBrIBPTax os Acentos estao ficando com "??" com mostra o exemplo: Reprodutores de ra?a pura, todos estão dessa forma demostrada, mas quando eu abro a atbela que vem como enxemplo as informações vem correta o problema so ocorre quando baixo a tabela atravez do downloads

O meu sistema usa transferência de arquivos para funcionar as comunicações entre o servidor e o pdv, eu dou o ping para verificar se o servidor esta ativos para transferir os arquivos, é para isso q serve a função ping.. Não Uso Skin Não Uso Firemonkey Usamos o desenvolvimento em 32 bits e o erro do EditInscEstadual.EditLabel.Caption isso é aleatório as vezes da em outros componentes como panel, editis ou até mesmo no form mas se eu chegar na linha ICMP.Ping; e comentar o sistema funciona 100% sem nem uma erro mas se eu liberar essa linha ai o bixo pega trava a aplicação, e da esses erros apresentados... lembrado a aplicação so uso Devexpress e ACBr de componentes de terceiros o resta é nativo

Bom regys vou vrificar isso mas o sistema ja foi todo modificado entao todos forms e unit tbm foram salvas e até os novos forms estao apresentando o problema quando ativa o ping, ainda esta meio estrando com a fução de ping justamente nela da erro quando não comentada

Regys foi feito relamente no delphi 2010 mas os componentes usados sao o Devexpress e Acbr o resto é do delphi memso e todos os forms foram abertos corretamente e migrado e todos os componentes são os mais recentes, se eu comentar a função do ping acima não da erro se abilitar ai vira uma loucura

Esses são alguns erros entre tantos q aparece...

è a coisa ta feia mesmo nem umas das opção funcionou retorna os mesmo erros no XE5

Boa Dia a Todos, bom estou passando por uns apuros no Delphi XE5 com relação a PING na rede, ja tentei de toda as formas com o TIdIcmpClient e sempre faz uma bagunça com o delphi da erros de no delphi todo de estou de memoria e afeta até os componentes do delphi dando erro de propriedades, eu tinha até entrado em contato com a ambracadero achando q era problema no delphi mas junto com eles descobrimos q o problemas esta jutamente quando dava o ping na função a baixo: function ExecutaPing(HostName: String): boolean; var PckEntregue : Array[1..3] of Integer; ICMP : TIdIcmpClient; ABuffer: String; begin try ICMP := TIdIcmpClient.Create(nil); try ICMP.PacketSize := 32; ICMP.Host := HostName; ICMP.ReceiveTimeout := 500; ICMP.Ping; if ICMP.ReplyStatus.BytesReceived > 0 then Result := True else Result := False; except Result := False; end; finally ICMP.Destroy; end; end; fiz uma busca aqui no acbr para ver se algum componente poderia fazer essa função de verificar a rede conectada dando os ping se existir algum componente ou função que possa me ajudar usando o DelphiXE5, pois essa função assima funciona no Delphi 2010 eu agradeço Muito, Obrigado

Sim selecionei, esta com a atual mas não é so isso agora até com um showmessagem sem ter nada no form da erro de set focus no delphi aff q dor de cabeça esse delphi esta m dando...

Nossa cara eu me ferrei com isso esta dando erro na aplicação toda agora quando abro o sistema e carrego as aliquotas FDataModule.ACBrECF.CarregaAliquotas; if FDataModule.ACBrECF.Aliquotas.Count <= 0 then -> sempre me retona 0 FDataModule.ACBrECF.DataHoraSB; da erro anexo coloquei para gerar o log mas tambem não gera logo ou seja parou tudo...

sim, eu usava o delphi 2010 agora estou usando o XE5