Ir para conteúdo
  • Cadastre-se

Arnaldo Cruz

Membros
  • Total de ítens

    549
  • Registro em

  • Última visita

  • Days Won

    2

Tudo que Arnaldo Cruz postou

  1. 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 []
  2. 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)
  3. 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
  4. 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
  5. 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.
  6. 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
  7. 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.
  8. 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
  9. 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
  10. 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.
  11. 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.
  12. 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
  13. Ja tentou mudar tag <cUF> para 13 lembrando que a tag UF cliente tem ser a mesma
  14. è isso mesmo Regis tratei dentro da exceção e con seghui pegar o retorno Obrigado
  15. 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
  16. 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.
  17. 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.
  18. 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.
  19. Alguem já está imprimindo o Danfe da NFC-e em relatorio Gerencial ? Se sim como passar do componente para o relatório ? Obrigado
  20. 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
  21. Arnaldo Cruz

    Cancelacupom Anterior

    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
  22. Não sei se é a mesma coisa, mais rescentemente baixei da devmedia um sincronizador. ele sincroniza dados de 5 bases diferentes. Access Firebird SqlServer paradox mysql o procedimento vc monta via xml, se alguma tabela for alterada basta mudar o xml ou atualizar pelo proprio sistema. ele está manual, mais foi feito para aprendizado, a pessoa querendo colocar automático basta implementar. Eu fiz o teste com dois bancos e funcionou perfeitamente. Access para Firebir / Firebird para Firebird. e da forma que foi feita basta implementar outras base de dados.
  23. Arnaldo Cruz

    Acbrecf Fechacupom

    Estou fazendo o farmacia popular Estou com dificuldades no fechamento do cupom, estou usando o codigo abaixo Impressora Daruma FS-700 UECF.AbreCupom(edtCPFPaciente.Text , edtNomePaciente.Text ,'',''); UECF.VendeItem(cdsMedicamentoCODIGO.AsString , cdsMedicamentoMEDICAMENTO.AsString , cdsMedicamentoECFICMSST.AsString , cdsMedicamentoQTDEAUTO.AsFloat , cdsMedicamentoVENDA.AsFloat ,cdsMedicamentoUNIDADE.AsString); UECF.EfetuaFormaPagamento(Formas.Codigo, edtvlPaciente.Value); FDataModule.ACBrECF1.IdentificaOperador(edtoginvendedor.Text); FDataModule.ACBrECF1.InfoRodapeCupom.ParaibaLegal := true; VarMensagem := 'Val.Aprox.Tributos R$ ' + FormataFloat('V',valorMG ) + '(' + FormataFloat('V',perca) + '%)Fonte IBPT'; FDataModule.ACBrECF1.FechaCupom(VarMensagem); Aqui acontece o erro (Impressora Daruma não está respondendo) Pelo caixa o fechamento do cupom é utilizado o ACBRTEFD não acontece o erro.
  24. Arnaldo Cruz

    Formas De Pagamento

    tenho um sistema fiscal que utiliza formas 06 formas de pagamento e 6 relatórios gerenciais. fui instalar este sistema em uma loja que tem 8 caixa, esta loja já utilizava um outro sistema. Eu emiti uma leitura X nas impressoras e só tem cadastrados duas formas de pagamento e 01 relatório gerencial. Pergunto. Eu posso cadastrar outras formas de pagamento e outros relatórios gerenciais sem precisar de intervenção ? 150X8 = 1.200,00 custo da intervenção -- um verdadeiro assalto
  25. Juliomar obrigado por responder A minha duvida é a seguinte. Pelo meu entedimento os dados do envio e recebimento são em formato xml, porem no manual fala que o envio e resposta são em formata txt, inclusive passam até o layout de cada arquivo. Eu já trabalho com o sngpc que é em formato XML, e o problema da farmacia popular é que não existe um espaço pra que se possa fazer testes,
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.