luciano_f

Vixi que coisa chata isso fica tudo desorganizado, pois o cliente coloca a quantidade do serviço prestado e o valor unitario e valor total mais nessa NFSe fica tudo misturado e confuso, me desculpe dizer mais esses analista que inventaram esses layouts estavão com algum parafuso solto. Sobre esse codigo do serviço você diz é aquela lista de atividades prestadas ou existe outro codigo dos serviços onde posso achar essa tabela ???

Hum entendi e sobre esse fato ::

Pessoal em primeiro lugar parabelizo a todos os desenvolvedores desse Projeto. Eu estou começando a imprementar a Nota Fiscal de Serviços e não estou conseguindo entender a logica do Demo Na Unit "ACBrNFSeDANFSeQRRetrato.Pas" para mostrar os dados de quem emitiou a NFSe é usado os campos com base na estruturar "PrestadorServico" mais para gerar não encontrei nada que acesse essa estrutura Porém eu só vi acesso a "Prestador" e não a "PrestadorServico" qual a diferença entre os dois ??? vi que cada um tem uma acesso diferente usando TDadosPrestador e TIdentificacaoPrestador Não estou conseguindo entender o Demo que apesar de estar todo comentado para mim está meio confuso alguem teria alguma outra rotina de geração da NFSe para me ajudar ??? Estou meio que perdido pois acredito que deveria ser assim : Dados da Nota como Numero da Nota Data de Emissão, Numero do RPS Etc... Emitente da Nota Destinatario da Nota Serviços Totais Impostos Outras Informações. Outra coisa que percebi na Danfe não exite colunas certinhas para o codigo do Serviço, Descrição, Quantidade, Valor Unitario e Valor Total está tudo junto em um Memo só isso não fica extranho ?? não seria melhor ser tudo organizado por colunas como é no Danfe da NFe ? Se algum puder me ajudar ficarei muito grato.

Outra questão eu posso usar a mesma Danfe da NFE para NFSe ??? pois a Danfe da NFE tem os campos de impostos do ISSQN

Pessoal alguem já fez a Danfe da nota de serviços para o Fast-Report ??? Grato a todos.

Pessoal já encontrei o problema estava faltando esse codigo if (not CartaoTEF.TEF.Inicializado) and // Está na inicialização ? (Operacao = ineEstadoECF) and // Quer Saber o estado do ECF ? (mas se chegou aqui é pq o ECF já está com problemas) (CartaoTEF.GPAtual in [gpCliSiTef, gpVeSPague]) then Begin dentro do evento InfoECF(Operacao: TACBrTEFDInfoECF; var RetornoECF: string); begin

Pessoal a sequencia 38 diz o seguinte - Realizar uma transação com cartão de Crédito magnético - Selecionar a opção á vista - Quando receber o retorno de aprovação e começar a imprimir o cupom TEF, desligar o computador (reset) e em seguida desligar a impressora. - Ligar novamente o computador e não ligar a impressora - Ao entrar na aplicação, enviar a função “Finaliza” confirmando a transação. - Somente após tratar o TEF, ligar a impressora - Entrar na função de Transações Gerenciais (110) e selecionar a opção de Reimpressão do último comprovante. - Imprimir o cupom normalmente. a mensagem espera é “Transação TEF efetuada. Favor re-imprimir último cupom”. porém estou recebendo a mensagem “Transação não foi efetuada. Favor reter o Cupom.” O que estou fazendo de errado Grato a todos.

Eu desistalei o ACBR completo retirando e apagando todos os BPLs e DCP peguei a ultima versão hoje quanto tento instalar a ultima versão da o seguinte erro Undeclared Identifier : TpcnTpEvento Linha 84 da unit pcnEnvEventoNFe.pas "FTpEvento: TpcnTpEvento;" o interessante que a Pasta PCN2 esta declarada na library do meu delphi

Hum acabei de receber uma ligação do suporte que estava aguardando e o interessante foi que o suporte me disse que o Digito verificador faz parte do nosso numero assim como em todos os documento que tem tem digito verificador como "Codigo de Barras", CPF etc. Então eu acredito que não terá problemas com outros usuarios pois o Digito verificador da forma como foi feito no RLBoleto ao ver do suporte não é correto pois ele está inerente ao NossoNumero assim como já foi feito na função "MontarCampoNossoNumero".

Correto vou dar uma olhada se consigo criar uma propriedade para o digito do nosso numero, e com respeito aos exeptions não seria melhor colocar uma messagedlg de aviso para o usuario no lugar de erro, eu liguei para o banco e o mesmo me disse que por se tratar de um cliente antigo que emite boletos a mais de 7 anos o retorno dele é assim mesmo.

Sim isso seria bom mais acredito que apenas pegando no retorno o digito com a função Copy(Linha,47,11); já resolve. pois na hora de gerar eu já consigo pegar o digito verificador com a função MontarCampoNossoNumero agora se for analisar o RLBoleto ele realmente te um propriedade de retorno especifica só para o digito verificador. Grato.

não é necessario remover a validação mais meu cliente recebe os retornos sem esses dados e dai como proceder ??? e sobre o digito verificador que tive que aumentar de 10 para 11 o retorno ? Copy(Linha,47,11);

Eu registro o nosso numero completo inclusive com o digito verificador no banco de dados e depois preciso dele para fazer baixa automatica mais o poblema não é só ele como disse está pegando o nosso numero incompleto pois começa da posição 48 e no RLBoleto começa em 47

Pessoal eu usava o RLBoleto como migrei todos os meus relatorios para o Fast Report estou migrando também o componente de boleto. Porém quando faço a leitura do Arquivo de retorno no Layout 240 que está em anexo nessa mensagem não consigo pegar o nosso Numero completo inclusive com o digito verificador o RLBoleto trazia todo o nosso numero e tinha uma variavel para pegar o digito do nosso numero como não encontrei forma de pegar o digito verificar do nosso numero pelo ACBR tive que alterar os fontes bem como a forma como é feito a captura do Nosso numero Porém gostaria de saber o que está certo e o que está errado o RLBoleto ou o AcbrBoleto o problema está na linha 548 NossoNumero := copy( Copy(Linha,48,9),Length( Copy(Linha,48,9) )-TamanhoMaximoNossoNum ,TamanhoMaximoNossoNum); no RLBoleto é Copy(Linha,47,10); Porém como não consigo pegar o digito do nosso numero eu mudei para Copy(Linha,47,11); Ainda tive que comentar as seguintes linhas { if (not LeCedenteRetorno) and (rCNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then raise Exception.Create(ACBrStr('CNPJ\CPF do arquivo inválido')); if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or (rConta+rDigitoConta <> OnlyNumber(Cedente.CodigoCedente))) then raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido')); } Pois meu cliente recebe arquivo retorno sem esses dados que geram essa Exception e que no RLBoleto consegue fazer a leitura. A unit alterado também está em anexo. Grato a todos. RETORNOCEF1429.cmp.txt ACBrCaixaEconomica.pas

Hum entendo por isso meu TEF vai ser tudo usando minhas telas sem essa se outro programa. Agora eu consegui uma proesa aqui, consegui criar todo o teclado como HOTKEY e com isso meu programa não perde o focu nunca, bem estou testando isso ainda mais a principio parece ter ficado muito bom.

gostei desse ideia de registrar no Shell do windows mais me responda mesmo com isso precisa de um hotkey para voltar o foco pois pelo que pude testar aqui o foco fica exclusivo no PDV pois fica sem outra aplicação no windows, em sua experiencia mesmo assim precisa disso ??? outra coisa percebi que criando o HotKey eu não consigo usar mais aquela tecla exemplo se eu usar o "F" de foco e o usuario quiser fazer uma busca de produto ele não vai conseguir digitar a Letra "F" mais tem como resolver isso. Grato.

Como você fez isso "Outra modificação foi colocar o sistema no shell" Você mata o processo "Explorer.exe" na abertura do seu PDV e abre novamente quando fecha o PDV ?? que codigo o colega usou para fazer isso poderia postar ? pois eu já usei alguns codigo mais sempre que fecha o "Explorer.exe" ele reinicia automaticamente, e não consigui nada que abra novamente o Explorer.exe sem travar o meu PDV.

Pessoal sei que minha duvida não é especifica sobre o ACBR porém como muitos aqui tem PDV acredito que alguns já tenha passado com esse problema. Eu estou num dilema eu fiz um PDV que usa apenas o teclado ele dispensa completamente o uso do Mouse, porém percebo que em algumas situações a aplicação perde o focu. eu já fiz rotinas matando o processo "Explorer.exe" assim que abre o meu PDV e volta a executar o "Explorer.exe" quando o meu PDV é fechado mais mesmo assim não tenho tido os resultados esperados Eu já usei esse tipo codigo em um Timer if Not Application.Active then begin if Assigned(Screen.ActiveForm) Then ForceWindow(Screen.ActiveForm.Handle); end; Aqui em minha cidade existe uma rede grande de supermercados que o PDV deles é muito interessante pois o mesmo tem um Interface muito bonita, não sei a linguagem que é feito se é Delphi, Visual Studio, Java ou outra mais o interessante que ele não tem Focu nos campos, não aparece o cursor nos campos e trabalha completamente sem o Mouse como isso é possivel será algo feito em eventos do formulario como o "FormKeyDown" seria isso possivel. Bem gostaria de algumas ideias e conselho dos colegas.

Caso a gente não ative a propriedade Autofinalizar do AcbrTefD e usar o VesPague e desliguar a impressora durante a entrada de dados vai dar erro de "Impressora fora de Linha ACK = 0" para resolver isso eu adicionei algumas linha de codigo que apenas copiei o que o Daniel já tinha feito e dupliquei parte do codigo para resolver o problema está a partir da linha 1605. Gostaria que os Administradores dessem uma analisada nisso. ACBrTEFDVeSPague.pas

Sim entendi mais as mensagem que sem usar o evento são mostradas nos Form azul em cima quando ativado a propriedade "ExibeMensagem" que são do tipo impressora trabalhando não deveriam ser mostradas por esse evento ??? e aqui para mim nenhuma mensagem é mostrada nesse evento

Estou tentanto trazer as mensagens do AcbrEcf por esse evento mais não consigo Eu fiz um teste : procedure TForm1.ACBrECF1MsgAguarde(const Mensagem: string); begin Showmessage(Mensagem); end; Com a propriedade ExibeMensagem = True o meu teste sempre traz o Showmessage Vazio se eu colocar ExibeMensagem = False Só me traz algum resultado quando mando fazer uma pesquisa por modelo de Ecf ou Porta O interessante que se eu não usar o evento e ativar "ExibeMensagem" e mandar fazer uma redução X ou Z vai me trazer um form azul em cima Como devo proceder estou usando o "ACBrECF Ver: 1.0.0" Grato a todos.

Muito grato pessoal é que andei lendo um pouco sobre Paf-Ecf e essa parte de trabalhar off-line é a parte mais complicada que achei até agora.

Régys só uma questão viu em outro topico que os homologadores não testam essa questão de ser Off-Line isso realmente procede. Vi isso nesse topico ::: viewtopic.php?f=12&t=2494&p=11409&hilit=Off+Line#p11409

Pessoal estou começando a ler sobre o Paf-Ecf e gostaria de saber dos colegas de forma mais detalhada possivel se não for incomodo para os colegas pois estou completamente perdido nessa questão do sistema trabalhar de forma Off-Line. Meu sistema é feito com banco Firebird 2.1 assim gostaria de saber como se tem projetado essa questão de trabalhar Off-Line, devo colocar um banco de dados em cada estação e ao ser ligado as estações se conectam no servidor para buscar o estoque e tabela de produtos, ou isso deverá ser feito na redução Z do ECF atualizando tanto os cadastro de produtos como a vendas realizadas ?? Esse processo de carga de produtos e descarga de vendas no servidor como os colegas tem feito ? um modulo automatizado especifico para isso ou os usuario fazem isso de forma manual abrindo alguma tela para poder carregar os produtos e descarregar as vendas realizadas. Alguem já fez isso com Tabelas em XML pelo TClientDataSet nas estações será que dá certo ??? Isso realmente tem que trabalhar no dia a dia das empresas ou posso fazer isso só para a homologação e já deixar uma configuração no sistema para poder fazer o sistema trabalhar sempre On-Line ??? deixando a cargos das empresas optarem pela melhor forma de trabalho. Enfim fico agradecido desde já aos colegas que puderem me detalhar como fizeram isso.

Agradeço a atenção colega "markapollo" mais isso eu já faço e não é a solução para meu problema eu gostaria de saber sobre as questões que levantei no topico. com respeito ao meu codigo se está correto e sobre as propriedades : AguardarConsultaRet AjustaAguardaConsultaRet IntervaloTentativas Tentativas e sobre os Loop existentes no metodo Enviar() como aludi acima. Grato.