Arnaldo Cruz

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.

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.

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

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,

Estou desenvolvendo o Farmacia Popular. Não estou sabendo como pegar o retorno, pois não sei como é que ele vem, se em XML,String. Se alguem já fez e puder mim dá uma dica eu agradeço.

Solivan eu gtentei desse jeito porem fica comentado FormListaCliente.ShowModal(procedure(ModalResult: TModalResult) "TModalResult' Objeto não declared ou não identificate algo assim

Pra resolver o problema da assinatura eu criei o keystore , mas após conseguir abrir o sistema do emuladr android descobri tanta diferença. android 4.3 ShowModal não funciona no android ou não tem suporte, mas dá pra contornar tranquilamente SetFocus também não funciona ou não tem suporte A aplicação não abre como um icone, pra que o usuário aperte ai venha a tela de login, já abre na tela de login. ( esse aqui é o que tá pegando) não sei nem como colocar o icone. da forma tradicional do Delphi não é pois já fiz.

Galera estou começando com o projeto da farmacia popular, e estou com duvidas quanto ao cupom fiscal da venda, percebi que é um cupom diferente, mais longo com mais informações. Alguem poderia mim esclarecer como se faz pra imprimir este cupom, pois pelo que estou acostumado o cupom só imprime oito linhas no rodapé, e este da Farmacia popular imprime pra mais de 50. Obrigado

Estou tentando gerar o APK no delphi XE6 compilação sem erro e sem warning. na geração do apk aparece a seguinte mensagem c:\program files (x86)\embarcadero\studio\14.0\bin\paclient.exe -u8 [Warning Warning] Missing provisioning information for the "Application Store" platform configuration, the file '.\Android\Debug\UsoftCrediario\bin\UsoftCrediario.apk' has been sucessfully generated but it has not been signed and it is a non-instalable package. pela tradução o arquivo não é assinado. pesquisando na net encontrei alguns tópicos dizendo que o delphi não assina APK com mais de 10mb. eu achei estranho, pois qualquer APK no delphi fica enorme e os caras não iam cometer um erro desses. Se alguem tiver alguma dica eu agradeço. Observação. As propriedades do SDK manager está tudo OK, nenhuma com exclamação. o projeto roda certinho em modo windows.

Estou gfazendo o roteiro do TEF payGo da NTK nos teste que tem que desligar a impressora recebo a mensagem "Impressora não responde, Deseja continuar ?" porem mouse e teclado estão travados olhando o fonte do TEFD vi que é usado este comando "BloquearMouseTeclado( True)" Quando então de mensagens não teria que em algum lugar destravar mouse e teclado com o comando "BloquearMouseTeclado( False)". Se já existe desculpem mais somente pra esta mensagem que fica travado, pras demais mensagens do TEFD o mouse e teclado são destravados. Obrigado

Adriano tambem estou fazendo o roteiro de teste do TEF e estou justamente no passo 23. No meu caso recebo a mensagem "Documento não pode ser alterado" estou com o roteiro 2.0 baixado do site da NTK aconteceu com vc tambem ? Resultado esperado pelo teste Venda de 10,00 Recibo impresso Transação confirmada valor total 9,00 valor original 10,00 Desconto 1,00

Daniel o problema é que na minha maquina todos funcionam perfeitamente, o problema é na maquina do cliente com Win7 32 bits, na minha maquina com win7 64bits funciona não dá problema. o cliente veio até o escritorio pra que eu mostrasse pra ele que aqui não dava erro, levei ele também em outro cliente pra mostrar que não dava erro. o bababdo é que só na maquina dele acontece isso. o instalador que usei é o mesmo que usei nos clientes que não dão problema, já revisei toda a configuração da máquina, a unica coisa diferente neste cliente é a versão do windows7 32bit e o antevirus Nod32, que nos outros clientes usam avast ou kapesky e windows 7 64bits. tô quase mandando ele formatar a maquina

Não Daniel ela já é aberta por baixo, para saber que ela esta aberta tenho que teclar Ctrl + Alt+Tab e agora apareceu outro babado. Quando chego nos teste to TEF que tem que desligar a impressora fiscal. ou até mesmo quando faço uma venda aconteceque dá algum problema recebo a mensagem de impressora não respondendo com dois botões; Deseja tentar novamente "SIM" e "NAO", porem a tela está travada pelo Bloqueio do mouse, ai não tem como clicar em uns dos botões. AI tenho que teclar Ctrl+Alt+Del e ao abrir o gerenciador de tarefas clico em "CANCELAR" , com este procedimento a tela desbloqueia ai posso clicar no botão "SIM" ou "NÃO".

Juiomar não tem já fiz a busca no sistema inteiro, todos os forms são style = fsnormal. Daniel todo TEF tem que ter um gerenciador seja PayGo Discado etc. embora o discado tenha caido fora mas existe muita gente usando aida o discado, estou com um cliente que ainda usa aquele gerenciador da redecard, aquele mesmo do icone xadrezinho que eu usei como teste de tef a trocentos anos atrás.Para melhor compreensão vou mostrar as imagens Quando a tela de conclusão da venda com cartão chama o TEF aparece esta imagem(Porem somente com a opção REDECARD Após Selecionar RedeCard Vem a imagem abaixo As Imagens acima ficam todas por baixo da imagem do caixa abaixo que é aberto em tela Cheia. O Babado é que é só com este da rede card, os demais abrem por cima da tela do caixa, é isso que estou encafifado.

Juliomar não entendi, vc diz enviar o foco pro gerenciador ? se sim em que parte do código do ACBrTEFD eu faço isso ?

instalei o sistema em alguns clientes, e em todos que estão usando a REDECard o gerenciador padrão é aberto, porem fica por baixo da aplicação, já os Pay&Go abrem normamente por cima da aplicação. isso é tratado pelo Componente ACBr, Aplicação ou Gerenciador do TEF ? Obrigado

Consegui resolver, é que no link da ntk estva sendo disponibilizado a versão 1.03 entrei em contato com eles e foi acertado o link, baixei novamente, a versão atual é a 2.0

Quando o sistema caixa é aberto sempre aparece aquela mensagem de ArquivoMD5.txt gerado na pasta .................... Esta semana instalei o sistema em 4 clientes. em dois deles tudo OK e nos outros dois quando vou abrir o sistema caixa mim aparece uma mensagem que houve erro ao tentar gerar a assinatura digital para o arquivoMd5.txt. Isso que estou encucado porque em dois clientes não acontece o erro e nos outros dois acontece. fiz a verificação se os arquivos da geração do MD5 estão na pasta e está tudo lá. O mesmo arquivo de instalação,as mesmas dll fiz a comparação de arquivos e está tudo igual, na maquina que não dá erro e na maquina que dá o erro.

Comecei a fazer o roteiro de testes do Pay&Go e mim surgiram algumas duvidas 1 - Estou fazendo os testes pela miha aplicação, ou deve ser feito pelo DEMO ? 2 - Onde tem 4.1.8 Teste de NSU local#1 Onde tem 4.1.9 Teste de NSU local#2 O Que seria este local#1 e local local#2 ? 3 - Fiz até o teste 14 como a imagem abaixo dos teste 08/10/11 Observei que Onde tem 4.1.11 Teste de NSU local#2 Resultado esperado Venda aprovada e confirmada, recibo impresso, com NSU do host igual a “000000”. porem não vem este número que vem é >> REF.HOST: 029414009354 O Resultado do TEste 10 está saindo no teste 08 conforme a imagem para comprovar 1.1.1.Teste de NSU local #1 Resultado esperado Venda aprovada e confirmada, recibo impresso, com NSU local igual a “000000”. Está saindo REF.HOST: A 1.1.1.Teste de NSU local #2 Resultado esperado Venda aprovada e confirmada, recibo impresso, com NSU local igual a “999999”. Está saindo REF.HOST: 999999999999 12 digitos o teste é 6 digitos. Obrigado, qualquer diga eu agradeço.

Bom uma boa noticia, consegui resolver o problema, é que no procedimento de passar os valores pro TEFD estava errado, consegui resolver a partir da dica do Evandro Silva como abaixo a quem deixo meu especial obrigado e agradeço aos demais que se propuseram a mim ajudar. Arnaldo, "Verifique se você está passando o valor pago na operação "ineTotalAPagar" em "onInfoECF", no meu caso foi esse o problema."

Evandro o que deve ser passado Colegas se alguem puder mim dá um help, acessar minhha maquina e ver o que está errado, pois já estou mim descabelando a uma semana e não consigo resolver este babado. poderemos combinar um valor para tal feito. Obrigado. desculpem se for apelação mas estou precisando disso com urgência [email protected] skype = arnaldocruz

Quando falei VisaNet quis dizer pay&goCliente conforme a imagem abaixo. Ao acionar o pagamento por cartão a tela abaixo deveria ser aberta porem não abre, motivado pelos erros citados.

Pesquisando aqui no forum descobri este topico que cita um código anterior Anterior function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String; var Retorno: String; begin Retorno := ''; fTefClass.GravaLog( 'InfoECF: '+ GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ; try OnInfoEcf( Operacao, Retorno ) ; except On E : Exception do begin fTefClass.GravaLog( fTefClass.Name +' Erro: '+E.Message ) ; raise EACBrTEFDECF.Create(E.Message); end; end; fTefClass.GravaLog( ' Ret: '+Retorno ) ; Result := Retorno; end; Atual function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String; var Retorno: String; begin Retorno := ''; fTefClass.GravaLog( 'InfoECF: '+ GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ; while Retorno = '' do begin try OnInfoEcf( Operacao, Retorno ) ; except On E : Exception do begin fTefClass.GravaLog( fTefClass.Name +' Erro: '+E.Message ) ; if DoExibeMsg( opmYesNo, CACBrTEFD_Erro_ECFNaoResponde ) <> mrYes then raise EACBrTEFDECF.Create(E.Message); end; end; end; fTefClass.GravaLog( ' Ret: '+Retorno ) ; Result := Retorno; end; Utilizando o codigo Anterior chega a abrir o a tela do visanet, mas logo em seguida da a mensagem (ERRO COECTANDO AO SERVIDOR PAY&GO(211). Debugan do o codigo descobri que o erro acontece nesta função function TACBrTEFDClass.CRT(Valor: Double; IndiceFPG_ECF: String; DocumentoVinculado: String; Moeda: Integer): Boolean; begin Result := False ; VerificarTransacaoPagamento( Valor ); IniciarRequisicao('CRT'); Req.DocumentoVinculado := DocumentoVinculado; Req.ValorTotal := Valor; Req.Moeda := Moeda; AdicionarIdentificacao; FinalizarRequisicao; Result := ProcessarRespostaPagamento( IndiceFPG_ECF, Valor); end; extamente >>>Result := ProcessarRespostaPagamento( IndiceFPG_ECF, Valor); O problema é que dá o erro e a aplicação fica travada. outro detalhe isso passou acontecer depois que formatei a maquina e baixei um novo ACBr, pois antes estava usando o mesmo gerenciador do TEF e abria a tela do visanet pra ser digitado o numero do cartão. Já estou desesperado preciso homologar o TEF este mês, e ainda nem começei fazer o roteiro de teste por causa desse problema.

Estou utulizando o gerenciador padrão Pay&Go Ao abrir o sistema ele identifica que o gerenciador padrão não está carregado, e carrega, vejo tanto o gerenciador padrao quanto o pay&go cliente no systray do windows. Porem quando tento fazer uma venda a cartão, não é aberto mais aquela tela do gerenciador pra selecionar o tipo de cartao e consequentemente digitar o número do cartão. ACBrTEFD.Inicializar(TACBrTEFDTipo(StrToInt(TipoPagamento.TipoGP))); Quando é chamada esta função e entra no loop Retorno= "" do não sai mais da já deixei por uma hora. já verifiquei a forma de pagamento está sendo passada a mesma da impressora. function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String; var Retorno: String; begin Retorno := ''; fTefClass.GravaLog( 'InfoECF: '+ GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ; while Retorno = '' do begin try OnInfoEcf( Operacao, Retorno ) ; except On E : Exception do begin fTefClass.GravaLog( fTefClass.Name +' Erro: '+E.Message ) ; if DoExibeMsg( opmYesNo, CACBrTEFD_Erro_ECFNaoRespondeInfo ) <> mrYes then raise EACBrTEFDECF.Create(E.Message); end; end; end; fTefClass.GravaLog( ' Ret: '+Retorno ) ; Result := Retorno; end; Obs. já deletei todos os arquivos da pasta TEF_Dia \Req e Resp ; já fechei o gerenciador padrão deixando apenas o cliente pay&go. Segue o arquivo de log. ArqLog.txt

Helderir Esta rotina tem alguma coisas que eu não entedi GravaUltimaConsulta;>>>> já tem logo abaixo uma gravação na tabela Eve_Manifestacao MontaChkLista;>>>>> este eu não sei pra que é