Arnaldo Cruz

Alguem já implantou o recebimento TEF da NFC-e usando o componente TEFD ? e que possa mim dá umas dicas de como posso adaptar o componente. Obrigado.

Colega eu tive este mesmo problema não faz um mês, depois de quebrar muito a cabeça descobri que era o antevirus. Até cheguei a desativar o danado mas mesmo assim continuava o problema. Por fim entrei em contato com o supore do Avast, via TeamView eles acessaram a maquina e fizeram uma correção, era um BUG no SandBox que mesmo desativando ele continuava sendo executado.

Embora o Titulo do Post tenha a palavra Android a duvida é referente ao Delphi. Bom Isaque eu sei que o foro é sobre o ACBr mais lá na opção onde este post foi adicionado está bem claro. Object Pascal Delphi, que é do que se trata este post, mas caso meu entendimento não esteja correto desculpas.

Fiz um sisteminha no Delphi XE6 pra android coloquei no formulário um campo Edit. Compilo e instalo no celular o apk Neste campo não tem evento nenhum 1 - abro a tela clico no campo abre o teclado Hora sim hora não acontece o seguinte erro Access violation at address 742F7318; accessing addres 000009 Outra hora abrindo e fechando a tela Access violation at address 742F7318; accessing addres 000008 Outra hora Access violation at address 742F7318; accessing addres 000033 Em outra tela coloquei um combobox com 60 itens quando ele abre preciso rolar para selecionar uma das opções. basta eu toca que ele já seleciona , ou as vezes eu rolo o scrool quando ele para já seleciona. As duas coisas deve ser algum macete que não estou sabendo tratar. se alguem puder mim dá uma dica eu agradeço Observação para teste eu criei dois formulários e coloquei apenas um componente por tela. sem evento nenhum. Só pra verificar o erro do teclado.

No Android se não me engano quando tive esse problema era um Def do beforeconnection do DB xyberx como vc fez pra resolver este problema ? coloquei o deploy e o Before connection como vc indicou e continua dando a mesma mensagem de erro [FireDac][stan]{Def]-254 Definition[nomedaConexao] is not found in []

O projeto tinha sido migrado do XE5, então resolvi começar um do Zero no XE6 1 - Primeira parte sem conexão com banco de dados fiz a tela principal, e + uma tela. compilei instalei no smartfone fuciona direitinho. 2 Parte Com conexão com banco de Dados SQLite Adicionei um componente de conexao FDConnection e um FDPhySQL LiteDriverLink. Assim abro a tela principal e coloquei um botão que e xecuta a conexao. FDConnection = Autostart Evento BeforeCnnection do FDConnection FDCoonection1.Params .Values['ColummnMetadataSuported'] := false; FDCoonection1.Params .Values['Database'] := GetHomePath + PathDelim + BancoDados.db3'; meu deployment está como abaixo LocalPath = vazio localname = bancodados.db3 Type = File Platforms = [android] Remoth Path = .\assets\internal\ RemoteName = bancodados.db3 testando no windows tudo funciona Quando instalo no celular dá a seguinte mensagem [FireDac][stan]{Def]-254 Definition[nomedaConexao] is not found in [] Alguem sabe como resolver este erro ? Obrigado Observação na uses tem esta Unit (FireDac. stan.Def)

POde usar uma serie para cada caixa ? Caixa 1 Serie 1 Caixa 2 Serie 2 Caixa 3 Serie 3 Se isso for possivel está resolvido a questão. Obrigado

Ao utilizar os skin no delphi XE6 automaticamente é desativado todo tratamento de cores que seja feita para fonte e focu. porem nos componentes nativos tem uma Propriedade StyleElement que desmarcando as cores de fonte e do componente ao receber focu ficam da cor que foi planejada. O problema é que uso dois componentes do JEDI que não tem estas propriedades. TjvCalcEdit TjvDataEdit Alguem sabe se tem como nestes componentes mesmo usando SKIN fazer com que ao receber focu a cor seja alterada. Obrigado

reSOLVI DA SEUINTE FORMA no Datamodule coloquei na Uses o midasLIb e o dbxfirebird. e no codigo fonte em geral retirei a codificação que tratava eventos de mouse.

JUliomar fiz como vc indicou, sorte minha ter feito um backup pois ferrou foi tudo, nem compilar da certo. Olha aparentemente é a conexão com o banco de dados. pois da o erro de access violation e a tela de login e aberta. entro com a senha mestre e o sistema é aberto. porem quando tento acessar qualuqer tela que acessa o banco de dados da o erro de access violation. o que está mim encabulando é porque em algu mas maquinas a conexão é feita e em outras não, se todos usam firebird 2.1

resolvi da seguinte forma no momento da gravação eu pego o ultimo numero da nfc gravada e incremento + 1, nesse caso nunca vai acontecer um pulo ou repetição. o unico BO é que pro caixa mata o StandAlone pois deve ser feito na tabela do servidor.

Descobri era um bug no Avast , pois desativei o avast e parou de acontecer - ativava o avast voltava a acontece, entrei em contato com o suporte do avast o cara acessou a minha maquina fez um upgrade do avast e voltou tudo ao normal

Colegas tenho um sistema do SNGPC feito no delphi 2010 Firebird 2.1 sem componentes de terceiros( só componentes nativos do Delphi) Migrei este sistema para Delphi XE6 Na atualização nos clientes. Substituo as dlls --- Midas,dbxfb e o executavel 1 - Em alguns clientes funciona o sistema é aberto e tudo funciona. 2 - Em outros clientes da Erro Access Violation logo na abertura, porem se eu volto o executavel anterior abre sem erro. Alguem sabe mim dizer se tem alguma coisa a mais neste tipo de atualização. tanto no Win7 quanto no XP em alguns lugares funciona e em outros não funciona

Eu faço isso O problema é exatamente este Compilo executo é instalado do Emulador no emulador quando clico no icone pra abrir o sistema, fica uma tela preta e depois de muito tempo(uma Hora ou mais) dá uma mensagem que o sistema não está respondendo se eu quero esperar ou não.

Uso Firebird porem ma sua dica não funciona Caixa 1 pega o generator e envia uma NFC no intervalo entre pegar o generator e enviar o segundo caixa pega o mesmo generator o que pensei foi somente incremetar mo numero da NFc no momento do envio, até funciona porem caso haja uma rejeição ou qualquer motivo que não efetive o envio vou ficar com numeração pulado e sem uso.

Colegas estou com uma certa dificuldade para gerar a numeração da NFC Criei no bco de Dados do Servidor uma tabela Numero_NFC a cada emissão eu incremento esta tabela com +1 Isso funciona correto somente quando é usado um caixa, quando mais de um caixa corre o risco de usarem o mesmo numero para NFc, lógico que no envio vai acontecer a recusa por duplicidade, mas fica chato acontecer isso. Como é que os colegas fazem este tipo de controle ? Obrigado

Ja tentou mudar tag <cUF> para 13 lembrando que a tag UF cliente tem ser a mesma

è isso mesmo Regis tratei dentro da exceção e con seghui pegar o retorno Obrigado

Preciso imprimir o Danfe da NFc-e em 3 impressoras diferentes, em duas estou fazendo pela dll da impressora se alguem conhecer uma forma mais simples.. Bematech MP4200 estou fazendo pela dll MP2032.dll. Daruma DR700 Estou fazendo pelo dll DarumaFramework. Impressora Fiscal Relatório Gerencial não sei como imprimir o QRCode pelo Acbr. enviando Linha a linha ============================= Fiz um Danfe no FAstReport para tenhtar imprimir na Daruma e Bematech. habilitei a propriedade endLess do fast, ativei a propriedade cosrtar no final da impressão direto na impressora. Porem quando envio o relatório ele imprime, mas dependendo do tamanho do relatório acaba dando um pulo. tipo uma NFC com 50 itens ele imprime 33 itens da um espaço e continua até o final. Pedi suporte a Bematech e eles mim disseram que eu só irira conseguir se mandasse linha a linha. Estou disesperado, minha homologação e mês que vem e ainda não conclui a nfc. se alguem puder mim dá umas dicas eu agradeço, pode ser que eu esteja seguindo o caminho mais longo. Abrigado

colegas não estou sabendo capturar o retorno do envio da Nfc No exemplo ACBrNFe1.Enviar(vNumLote,True,Sincrono); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS); LoadXML(MemoResp, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); Coloquei um BreakPoint >>> MemoResp.Lines.Text Quando acontece um rejeição ele nunca para para exibir o retorno do envio.

Está acontecendo algo estranho. no Desktop eu tenho um icone pra abrir meu executavel. o procedimento deveria ser 1 - Clicar no icone 2 - Abrir a Tela de Login(digitar usuário e senha) 3 - Abrir formulário Principal Mas está acontecendo como segue 1 - Clico no Icone 2 - Abre a tela de login e se fecha 3 - Abre a tela de login novamente e se fecha 4 - Passa uns 10 segundos 5 - Abre a tela de login novamente(na terceira vez ela não fecha - ai digito usuario e senha e é aberto o Formulario principal) Como eu sei disso ? Porque ao carregar o sistema é aberto um sistema de moni toramento que fica no systray ai fico observando que aparece 3 vezes o systema no systray.. Já passei o antevirus e nada foi detectado.

Já consegUi gerar a imagem com o QRCode e montar o relatório gerencial. Agora não sei como enviar para impressora a imagem do QrCode (Observação a impressora aceita impressão de imagem) fiz a impressão sem QRCode. Fica simplesmemnte ridiculo. Quando impresso a relação de produtos 1 - no meio da lista de produtos é impresso aquela maldita frase - NÃO É DOCUMENTO FISCAL Quando sem relação no meio dos dados do emitente a mesma frase NÃO É DOCUMENTO FISCAL. fiz o mesmo danfe na MP4200 TH não fiscal fica Show de bola.

Alguem já está imprimindo o Danfe da NFC-e em relatorio Gerencial ? Se sim como passar do componente para o relatório ? Obrigado

Já descobri o motivo Ao imprimir o Cupom Fiscal Cupom Fiscal COO = 5637 Relatorio Gerencial COO = 5638 Quando envio o comando de cancelar o cupom ele tenta cancela o COO 5638 porem ele é de um relatório gerencial. por isso não cancela ALguem sabe como posso resolver isso ? Obrigado

Estou tendo problemas para cancelar o ultimo cupom emitido Na Homologação da farmacia popular ao concluir a operação se cancela o cupom fiscal. vou colocar o processo inteiro 1 - FDataModule.ACBrECF.AbreCupom(edtCPFPaciente.Text , edtNomePaciente.Text ,'',False); 2 - FDataModule.ACBrECF.VendeItem(cdsMedicamentoCODIGO.AsString, cdsMedicamentoMEDICAMENTO.AsString, cdsMedicamentoECFICMSST.AsString, cdsMedicamentoQTDEFA.AsFloat, cdsMedicamentoVENDA.AsFloat,0, cdsMedicamentoUNIDADE.AsString); 3 - FDataModule.ACBrECF.SubtotalizaCupom(0); 4 - Quando tem valor a ser pago pelo paciente 4.1 Valor do MS FDataModule.ACBrECF.EfetuaPagamento(FormaPagto, edtVlSaude.Value); 4.2 Valor Pago pelo Paciente FDataModule.ACBrECF.EfetuaPagamento(Formas.Codigo, edtvlPaciente.Value); 5 - Quando não tem valor a ser pago pelo Paciente 5.1 FDataModule.ACBrECF.EfetuaPagamento(FormaPagto, edtVlSaude.Value); 6 - FDataModule.ACBrECF.InfoRodapeCupom.Imposto.Fonte := 'IBPT'; 7 - FDataModule.ACBrECF.InfoRodapeCupom.Imposto.ValorAproximado := valorMG; 8 - FDataModule.ACBrECF.InfoRodapeCupom.ParaibaLegal := true; 9 - FDataModule.ACBrECF.FechaCupom(Mensagem); 10 - FDataModule.ACBrECF.AbreRelatorioGerencial(StrToInt(RelatorioGe)); 11 - FDataModule.ACBrECF.LinhaRelatorioGerencial(Texto); (Aqui as linhas do gerencial) 12 - FDataModule.ACBrECF.FechaRelatorio; Até aqui perfeito sem problemas Se Ambiente for de homologação já delete o CUpom fiscal emitido FDataModule.ACBrECF.CancelaCupom; COOCAN:= STRTOINT(FDataModule.ACBrECF.NumCOO )- 1; Aqui le entra na Unit da Daruma que retonra que não existe cupom a ser camcelado procedure TACBrECFDaruma.CancelaCupom; if fpMFD then begin RetCmd := EnviaComando( FS + 'R' + #200 + '046'); // Verifica se precisa cancelar CCD; end else raise EACBrECFCMDInvalido.Create( ACBrStr('Não existe documento para cancelar.') ); /////////Já Cai aqui