klipvirtual

Obrigado Osmar, estava fazendo errado. []s,

Faço da seguinte maneira desde que começou o SAT: DMgpl_mvt.cds_nfcupom.First; while not DMgpl_mvt.cds_nfcupom.eof do begin with Ide.NFref.Add do begin RefECF.modelo := ECFModRef2D; RefECF.nECF := DMgpl_mvt.cds_nfcupomX_EcfNumero.Value; // // Grava número do CFe SAT se existir, caso contrário é impressora fiscal e gravo o cupom (COO). // if DMgpl_mvt.cds_nfcupomNum_Cfe.Value > 0 then RefECF.nCOO := DMgpl_mvt.cds_nfcupomNum_Cfe.AsString else RefECF.nCOO := DMgpl_mvt.cds_nfcupomNfCupomNumero.AsString; end; // DMgpl_mvt.cds_nfcupom.Next; end; De tempos em tempos pesquiso se já colocaram algo especifico para o SAT na NFe mas até aqui não encontrei nada. Se algum colega souber de algo a respeito do assunto agradeço se compartilhar. Rogério

Valeu Daniel, Com rAuto ficou na mesma mas com o rNao saiu impresso !!!

Daniel, obrigado por tentar me ajudar, qual propriedade que devo usar, confesso que procurei mas não consegui encontrar... Só encontrei esses: ACBrPosPrinter1.ConfigBarras.MostrarCodigo := WbPosP_HRI; ACBrPosPrinter1.ConfigBarras.LarguraLinha := WnPosP_BarrasLargura; ACBrPosPrinter1.ConfigBarras.Altura := WnPosP_BarrasAltura;

Obrigado pelos retornos, vou fazer conforme disseram, qualquer dúvida posto aqui novamente. []s, Rogério

Pessoal, Bem antigamente no trunk1 quando eu Gerava e Enviava a NFe o sistema automaticamente salvava o xml em 2 lugares, ele salvava na pasta NFe e também salvava (sozinho) na pasta AnoMes que ficava dentro da NFe e isso era muito bom pois o cliente no final do mês pegava essa pasta AnoMes (201607 por exemplo) e enviava para sua Contabilidade. Depois do trunk2 isso não mais aconteceu e todas as tentativas que fiz resultaram em gravações únicas, ou seja, ou ele cria a pasta AnoMes e salva lá ou ele salva na pasta NFe... Isso me gera uma tremenda dor de cabeça pois se deixo para gravar nas pastas AnoMes quando ele precisa reimprimir a NFe o sistema procura na pasta NFe (parametrizado) e não encontra e se deixo para gravar na pasta NFe o cliente tem a dor de cabeça de no final do mês ficar separando os xml do mês para enviar para a contabilidade. O melhor mesmo é conseguir fazer como era automático no trunk1. Imagino que seja apenas questão de parametrizar corretamente o componente mas confesso que tentei de inúmeras formas mas não consegui encontrar a correta. Agradeço de antemão a ajuda. Rogério

Pessoal, Estou com problema na Epson TM-T81, primeiro os cupons saiam 'tortos' mas depois descobri que essa impressora tem 42 colunas e não 48 como a Epson TM-T20 e a Bematech 4200 que tenho usado sem problemas, depois de resolvido o problema das colunas reparei que não imprime as barras, todo o restante sai em ordem. Fiz o teste usando o Demo da Acbr e deu o mesmo resultado. Abaixo segue a tela dos parametros que estou usando e também o cupom. De antemão agradeço a ajuda. Rogério

Juliomar, Obrigado por tentar me ajudar - as NFe´s já são emitidas através do ACBrNFe - o que o cliente quer é que quando ele receba um xml e faça a entrada dele pelo sistema o sistema na hora da leitura do xml já faça a manifestação. Eu vi que no DEMO do ACBrNFe existe um botão 'Manif.Dest - Conf. Operação', mas imaginei que talvez houvesse algo separado, exclusivo para esse fim. Estive pensando que além de fazer o manifesto na hora da importação do XML também eu poderia ter um form que apresentasse todas as notas em aberto da SEFAZ para que ele pudesse escolher e manifestar e também baixar os xml, como ele já tem no programa do governo. Rogério

Pessoal, Um cliente (posto de combustivel) pediu para que eu implementasse no sistema a "Manifestação" pois ele usa o programa do governo para manifestar as notas que recebe e informou que a partir de 2017 o governo não irá mais disponibilizar esse programa, então ele pediu para que eu tenha isso no sistema. Pelo que entendi ele vai nesse programa de Manifestação e o sistema mostra para ele quais notas foram emitidas para o seu CNPJ e ele simplesmente vai marcando (reconhecendo) como verdadeiras. Tenho a principio duas perguntas: 1-Entendi direito? É isso mesmo que esse programa do governo faz? 2-O componente ACBRMDFe também tem essa finalidade? Abri os fontes, li os comentários aqui no fórum e me pareceu ser voltado para as transportadoras. Agradeço de antemão a atenção. Rogério

Oi Sérgio, Obrigado pela dica, imprimiu 100% agora. []s, Rogério

Pessoal, Estou com o seguinte problema: Na tela de vendas do SAT tenho um botão de SANGRIA que sempre usaram numa boa na impressora fiscal, é uma tela simples, aparece a forma da sangria (dinheiro, cheque) e o valor e em seguida sai um cupom impresso com essas informações. O problema é que agora com o SAT (uso Delphi XE2, trunk2, PosPrinter no cupom, Dimep e Epson TM-20) esse botão da sangria imprime apenas antes de ser impresso qualquer cupom SAT, ou seja, se o usuário quiser imprimir a sangria e já tiver impresso um cupom SAT ele precisa sair do sistema e entrar novamente, aí o sistema imprime a SANGRIA, caso contrário não imprime, entendo com isso que o SAT não está liberando a impressora/porta. Abaixo está a rotina da impressão do cupom da Sangria. cds003ePdvFpagDescr.Value := DMgpl.cds_ve_fpagsangriaPdvFPagDescr.Value; // try AssignFile(WcFIle, DMsat.WcPosP_Porta); Rewrite(WcFile); // Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,copy(FoMenu.XcNomeEmp,1,40)); Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,'Data: ' + DateToStr(Date) + ' Hora: ' + TimeToStr(Time)); Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,Space(48)); Writeln(WcFile,'SANGRIA'); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,copy(DMgpl.cds_ve_fpagsangriaPdvFPagDescr.Value,1,26) + ': R$ ' + Format('%8.2f',[cds003eSangriaValor.Value])); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile, #27 + #105''); // corta papel Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); finally CloseFile(WcFile); end; O cupom eu imprimo assim: DMsat.DM_PrepararImpressao; // DMsat.ACBrSAT1.ImprimirExtrato; Se alguém puder me ajudar a liberar a impressora/porta de antemão agradeço. Rogério

Pessoal, Uso o trunk2 e até hoje usei apenas SAT da Dimpe com Epson TM-20, mas um cliente comprou uma Epson TM-81 e a impressão está saindo diferente, abaixo segue os parâmetros que uso na TM-20, se alguém usar a TM-81 por favor me passe os parâmetros. Obrigado. Rogério

Pessoal, Bom dia, atualizei hoje o ACBR (trunk2) e agora apresenta a tela em anexo quando abro o form de envio da NFe na minha aplicação, até antes da atualização estava tudo normal, parece ser problema com o DANFE FAST pois no ACBR DEMO assim que coloco o componente DANFE FAST começa a apresentar o mesmo problema, o form carregado na tela (vejo o form) e fica aparecendo essa tela com as mensagens erros... De antemão agradeço. Rogério

Pessoal, Alguns clientes não querem digitar a data de vencimento na NFe, colocam apenas o número do boleto e o valor, não tenho problema no envio, o site recebe a NFe sem problema nenhum MAS o xml não fica gravado corretamente, o componente não consegue salvar os dados de retorno no xml e com isso ao ser enviado para o cliente o mesmo retorna dizendo que o xml não é válido e não consigo mais arrumar o xml, a consulta dá ok,mas o componente não consegue mais arrumar o xml. A única solução é entrar no site e baixar por lá o xml e enviar esse xml para o cliente. Estou reportando isso pois acredito que seja um pequeno bug ou simplesmente algo que ainda não havia sido visto pois ninguém teve um cliente com essa necessidade. Ao imprimir um xml nessa condição através do DANFeRetrato_Basic.fr3 a data de vencimento sai como 1899 e o cliente então precisa usar o DANFEView para imprimir o DANFE (vide anexo). Também estou anexando um xml que ilustra esse caso, a consulta acusa que a nfe está válida mas o xml não contem os dados de retorno. Obrigado. Rogério 35151004645433000155550010000017511000017512-nfe.pdf 35151004645433000155550010000017511000017512-nfe.xml 35151004645433000155550010000017511000017512-ped-sit.xml 35151004645433000155550010000017511000017512-ped-sit-soap.xml 35151004645433000155550010000017511000017512-sit.xml 35151004645433000155550010000017511000017512-sit-soap.xml

Pessoal, Consegui pegar agora no cliente uma NFe que está com o problema que relatei acima, uma coisa que me chamou a atenção é que na rotina da consulta a data do xml aparece atualizada para o momento da consulta, então ele continua a atualizar o xml (eu pensava inicialmente que não) MAS na hora de imprimir o xml continua errado, não sai a marca d'água, sendo que na consulta é apresentado a mensagem que de a NFe foi aceita. Em anexo segue todos os xml relacionados com essa Nfe. Reparem que no PDF (que foi gerado em 09/10) a NFe sai correta, mas qualquer motivo desconhecido o xml foi gravado com problema. Antes dessa versão quando isso acontecia eu apenas clicava no botão para consultar novamente a NFe e o ACBR automaticamente atualizava o xml e ficava em ordem a NFe para impressão. De antemão agradeço a atenção. Rogério 35151004645433000155550010000017461000017466-nfe.pdf 35151004645433000155550010000017461000017466-nfe.xml 35151004645433000155550010000017461000017466-ped-sit.xml 35151004645433000155550010000017461000017466-ped-sit-soap.xml 35151004645433000155550010000017461000017466-sit.xml 35151004645433000155550010000017461000017466-sit-soap.xml

Juliomar, Concordo com a ideia de vocês em limitar as opções dos relatórios mas acessei esse tópico pois tinha esperança do Rave ter sido adicionado pois os clientes tem reclamado do leiaute da NFe no Fast, no Rave cabia muito mais itens, quando a NFe tem poucos itens fica tudo bem, caso contrário o pessoal tá reclamando pra caramba... Minha sugestão seria deixarem o leiaute do FAST igual era no RAVE, blz? []s, Rogério

Oi Pessoal, Obrigado pela tentativa de me ajudar, Rafael eu faço algo bem parecido com você também nas vezes (muito raro) de a NFe ser enviada e aceita e o sistema não conseguir gravar no banco (Firebird) os dados do protocolo, etc... MAS meu problema é no xml... a nota foi, no banco está tudo tudo gravado certinho, o pdf foi gravado corretamente MAS o xml ficou errado, quando imprime sai com a marca d'água, ANTES de atualizar era só pedir uma CONSULTA que o xml se arrumava sozinho, mas agora isso não ocorre mais... Em anexo segue os xmls (O ìtalo havia solicitado). 35151055560239000108550010000002131000002138-nfe.xml 35151055560239000108550010000002141000002143-nfe.xml

Agnaldo, Usei sua sugestão e resolveu o problema da impressão (saiu a marca d'água) MAS o xml continua com problema, ele não atualiza mais automaticamente o xml como fazia antes de eu atualizar... então o cliente manda o pdf certo pro cliente mas o xml vai errado. []s, Rogério

O Eventos.fr3 do SVN continua dando a mesma mensagem de erro, baixei o .rar do Warquia Pereira e funcionou. Deixei a mensagem para agradecer e também para deixar um lembrete para que quando puderem realizem a atualização do repositório, blz? []s, Rogério

Oi Agnaldo, Se puder coloque aqui por favor a sua rotina pois não consegui imaginar como você faz :-). Obrigado por tentar me ajudar. Rogério

Oi Ítalo, Boa tarde, obrigado por se dispor a me ajudar, o xml preciso pegar no cliente amanhã, mas abaixo segue a rotina do botão Consulta, como disse anteriormente não mexi em nada apenas atualizei. procedure TFoGpl024_3.BiBtConsultarClick(Sender: TObject); begin cds024_3.First; while not cds024_3.Eof do begin if not cds024_3GeraNFe.Value then begin cds024_3.Next; Continue; end; // if cds024_3NfeChave.Value = '' then begin ShowMessage('ATENÇÃO: Nota escolhida AINDA não foi enviada!'); cds024_3.Next; Continue; end; // WcNomeNfe := PathWithDelim(ACBrNFe1.Configuracoes.Arquivos.PathSalvar) + cds024_3NfeChave.Value + '-nfe.xml'; // ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(WcNomeNFe); ACBrNFe1.Consultar; // ShowMessage(ACBrNFe1.WebServices.Consulta.Protocolo); // MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); LoadXML(MemoResp, WBResposta); // cds024_3.Edit; cds024_3GeraNFe.Value := False; cds024_3.Post; // cds024_3.Next; end; end;

Pessoal, Verifiquei o seguinte problema (após alguns clientes reclamarem): Algumas vezes o xml fica 'errado' (no Danfe aparece mar d'água avisando que a NFe não é válida) mesmo a NFe ter sido enviada, é bem raro acontecer, mas acontece - antes não tinha problema quando isso ocorria porquê eu clicava novamente na nota e pedia para consultar, a rotina automaticamente retornava o OK da consulta e já mudava o XML. Depois da atualização isso não ocorre mais, imagino que seja um parâmetro mas não consegui encontrar, no DEMO tem um cbxAtualizarXML mas ele não é vinculado a nenhum parâmetro (pelo menos não consegui enxergar isso). De antemão agradeço pela atenção. Rogério

Obrigado Juliomar, esse é realmente o meu problema, vou fazer alguns testes seguindo sua sugestão pegando a Emissão e criando o caminho adicional. Valeu !! []s,

Juliomar, Trabalho com Delphi XE-2 e uso o componente direto, vou tentar explicar melhor meu problema: Antes porem vale destacar: Pasta do sistema: C:\SIST_WIN\KLIP_GPLP Pasta da NFe: C:\SIST_WIN\KLIP_GPLP\NFe Antes do trunk2 o sistema funcionava (automaticamente) da seguinte forma: 1-Todo xml era gravado na pasta NFe (acima) e também era criado uma subpasta com AAAAMM (exemplo: 201508). Agora, após a atualização passou a fazer o seguinte: 1-Todo xml é gravado APENAS n pasta AAAAMM e ainda por cima dentro dessa pasta é criada outra pasta chamada NFe. Isso NÃO teria nenhum problema se quando eu pedisse para Imprimir novamente a NFe o sistema conseguisse ir buscar no lugar certo, mas o mesmo não acontece... Em anexo os parametros que estou usando e também as pastas (como era e como está). Rotina de GRAVAÇÃO: if WnProcNFe = 1 then // Grava Nfe begin ACBrNFe1.NotasFiscais.Items[0].GravarXML; ShowMessage('Arquivo gerado em: '+ACBrNFe1.NotasFiscais.Items[0].NomeArq); MemoResp.Lines.LoadFromFile(PathWithDelim(ACBrNFe1.Configuracoes.Arquivos.PathSalvar)+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml'); LoadXML(MemoResp, WBResposta); end; Rotina de Reimpressão: // WcNomeNfe := PathWithDelim(ACBrNFe1.Configuracoes.Arquivos.PathSalvar) + cds024_3NfeChave.Value + '-nfe.xml'; // ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(WcNomeNfe); ACBrNFe1.NotasFiscais.Imprimir; O sistema NÃO consegue achar mais o xml pois ele está indo buscar no C:\SIST_WIN\KLIP_GPLP\NFE e como falei acima ele não está mais gravando nessa pasta. Grato pela atenção.

Oi Juliomar, Obrigado por se dispor a me ajudar, em anexo segue o ini, antes estavam sem a '\" no final do caminho, coloquei na última tentativa de fazer funcionar como antigamente. Rogério ProjSDT.ini