Ir para conteúdo
  • Cadastre-se

sgeinformatica

Membros Pro
  • Total de ítens

    173
  • Registro em

  • Última visita

Tudo que sgeinformatica postou

  1. Eu nao uso o AcbrMonitor, usamos o componente ACBrSAT. Eu mudei ACBrSAT1.Config.infCFe_versaoDadosEnt := '0.07'; O xml ficou dessa maneira <infCFe Id="CFe35160711111111111111591234567890000062622255" versao="0.06" versaoDadosEnt="0.07" versaoSB="000003"> Ficou um lugar como versao = 0.06 e versaoDadosEnt = 0.07 Alguem sabe onde tenho que alterar para ficar como versao 0.07 ? Estou usando o emulador do governo na versao 2.9.2.
  2. Respondendo a mim mesmo, me parece que essa tag na existe mais. Fiz confusao porque vi no Manual_de_Orientacao_Contribuinte_v_6.00.pdf Mas no NT2014.002_v1.01_WS_Distribuicao_DFE.pdf ela nao existe Vi tambem que no retorno do comando NFE.DistribuicaoDFe alem da chave RESNFE vem outras 2 chaves. PROEVE e INFEVE Alguem saberia me informar onde encontro informacoes sobre essas duas chaves ? Obrigado
  3. Ola Estou utilizando a ultima versão do AcbrMonitorPlus 0.3.5.3 Ao utilizar o comando NFe.DistribuicaoDFe, o retorno não trás a tag CSitConf No XML retornado pela secretaria da fazenda tem essa tag c:\ACBrMonitorPLUS\Arqs\NFe\Down\ Alguem poderia dar uma verificada? Obrigado
  4. vc tem que baixar a NT 2013.005 v.1.22 em http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=tW+YMyk/50s= na pagina 48 vc vai ver todas as tag nos 2 casos tanto da RefNFe quanto RefEcf vc pode referenciar multiplos cupom. Olha os exemplos with NF.NFe.InfNFe.Ide.NFref.Add do begin RefNFe:= FieldByName('CHAVEACESSO').AsString; end; with NF.NFe.InfNFe.Ide.NFref.Add do begin RefECF.Mod_:= FieldByName('MOD').AsString; RefECF.NECF:= FieldByName('ECF').AsString; RefECF.NCOO:= FieldByName('COO').AsString; end;
  5. a chave do SAT tem que ser referenciada em RefNFe http://www.spedbrasil.net/forum/topics/nf-e-sat?commentId=2159846%3AComment%3A867499
  6. Realmente é isso, achei nesse site tambem a mesma explicacao, a chave do SAT tem que ser referenciada em RefNFe http://www.spedbrasil.net/forum/topics/nf-e-sat?commentId=2159846%3AComment%3A867499 Valeu pela ajuda
  7. Obrigado pela resposta hasa e qualidade. O NT mais nova que achei foi essa NT2013.005_v1.22.pdf Mas mesmo essa que o Qualidade enviou eu vi somente como referenciar : NFe NF mod 1/1A NF Produtor Rural Cupom Fiscal Me desculpe se nao estou enxergando direito
  8. Para informar que é cupom fiscal já existe a tag no XML, e para quem já utiliza o SAT? Eu procurei e não encontrei nenhuma norma tecnica incluindo essa tag no XML da NFe.
  9. no meu caso o erro foi depois do comando ACBrSAT1.EnviarDadosVenda(ArquivoXml) mas o arquivo XML autorizado estava na pasta VENDAS porque apos esse comando o componente do ACBrSAT já gravou o xml na pasta
  10. voce esta usando o ACBrMonitorPlus ou vc desenvolveu um autorizador proprio?
  11. Ola Siscomp Na realidade o problema era na nossa aplicacao. Nos temos uma tabela com a lista dos cupom a serem impressos. Temos tambem uma aplicacao autonoma que serve apenas para ler essa tabela e autorizar o cupom. O erro aconteceu logo apos o comando ACBrSAT1.EnviarDadosVenda(ArquivoXml) Nesse ponto o cupom ja havia sido autorizado, mas nao gravamos o XML no banco de dados, entao nosso programa autorizou a venda novamente. Para resolver esse problema criamos um campo para controlar as requisicoes que ja foram feitas ao SAT. Entao quando isso acontece, ao inves de autorizar o cupom uma segunda vez, o programa vasculha a pasta dos XML e grava no banco de dados.
  12. Daniel, bom dia Gostaria de saber a possibilidade de desenvolver um comando no ACBrMonitorPLUS para limpar o conteudo da pasta C:\ACBrMonitorPLUS\Arqs Se der certo, nao precisarei mais compartilhar a pasta do monitor. No meu sistema apaga somente arquivos com mais de 30 dias e fiz mais ou menos assim : var DataArq: TDateTime; PastaXml: String; A: Integer; TS: TStrings; begin PastaXml := 'C:\ACBrMonitorPLUS\Arqs' TS := TStringList.Create; TS.Clear; ArquivosSubDiretorio(PastaXML, TS); // funcao que retorna todos os arquivos dentro da pasta for A := 0 to TS.Count-1 do begin DataArq := TFile.GetCreationTime(TS[a]); if (Now - DataArq) > 30 then DeleteFile(TS[a]); end; TS.Free; end; O comando no monitor poderia passar como parametro a pasta e a qtde de dias o proprio monitor poderia executar ou minha aplicacao passaria um comando para executar, Obrigado Carlo
  13. Daniel, obrigado pela solução da acentuação. No começo do post, perguntei tambem sobre a possibilidade de desenvolver um comando no ACBrMonitorPLUS para limpar o conteudo da pasta C:\ACBrMonitorPLUS\Arqs Se der certo, nao precisarei mais compartilhar a pasta do monitor. No meu sistema apaga somente arquivos com mais de 30 dias e fiz mais ou menos assim : var DataArq: TDateTime; PastaXml: String; A: Integer; TS: TStrings; begin PastaXml := 'C:\ACBrMonitorPLUS\Arqs' TS := TStringList.Create; TS.Clear; ArquivosSubDiretorio(PastaXML, TS); // funcao que retorna todos os arquivos dentro da pasta for A := 0 to TS.Count-1 do begin DataArq := TFile.GetCreationTime(TS[a]); if (Now - DataArq) > 30 then DeleteFile(TS[a]); end; TS.Free; end; O comando no monitor poderia passar como parametro a pasta e a qtde de dias
  14. Estamos utilizando o ACBrMonitorPLUS para fazer o download do arquivo XML de Fornecedores O comando que utilizamos foi NFE.DownLoadNFe(Cnpj, ChaveAcesso) O arquivo XML que o ACBrMonitorPLUS grava nao consigo abrir no internet explorer, parece estar corrompido O que sera que estou fazendo de errado? Segue os arquivos gerado pelo monitor e o arquivo que foi feito download pelo site do governo ArquivosXML.rar
  15. O comando é esse : NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal) Da uma olhada no arquivo 35160942750700010955002000001401000001401-ped-inu.xml que a justificativa esta sem acento 35160942750700010955002000001401000001401-procInutNFe.xml 35160942750700010955002000001401000001401-ped-inu.xml
  16. Delphi XE 10 Professional Nós fizemos uma modificação em nosso TcpClient e conseguimos resolver o problema assim : Client := TIdTCPClient.Create(Application); UTF8Encoding := IndyTextEncoding_UTF8(); Client.IOHandler.DefStringEncoding := UTF8Encoding; A resposta do webservice esta vindo com acento e ja conseguimos salvar o XML no banco de dados com acento. Agora ficou somente um problema, que o ACBrMonitorPLUS está removendo o acento da justificativa NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal) Até o ponto que enviamos para o ACBrMonitorPLUS está com acento, a resposta já esta sem acento. <xJust> PROBLEMA TECNICO OU OPERACIONAL/Nao/Tem/Acentuacao/ </xJust> Essa frase colocamos acento Tenta fazer uma NFe de Inutilização com acentuação na justificativa que você já vai ver o problema.
  17. Daniel, me desculpe a demora. Nós estamos usando o ACBrMonitorPLUS para assinar o XML e enviar. Quando ele autoriza, o XML é salvo na pasta C:\ACBrMonitorPLUS\Arqs Nós recuperamos esse XML autorizado pelo comando NFe.LoadFromFile e gravamos no banco de dados (SQL SERVER) A partir daí nós usamos o componente TAcbrNFe para imprimir o XML autorizado. O XML que o ACBrMonitorPLUS salva na pasta C:\ACBrMonitorPLUS\Arqs está com acentuação correta. O método NFe.LoadFromFile que está perdendo a acentuação. Mas estamos desconfiados que o nosso cliente soket que comunica com o ACBrMonitorPLUS que não esta configurado para UTF8. Você tem algum exemplo de comunicação por soket com o ACBrMonitorPLUS ?
  18. ACBrMonitorPLUS dá uma olhada na justificativa, nesse ponto ja esta ficando errado eu teria que usar o comando AnsiToUTF8 para a justificativa ficar correta? eu usei mas nao deu certo 35160942750700010955002000001363000001363-ped-inu.xml
  19. Daniel, pelo jeito meu projeto inteiro ta com problema de acentuação. O retorno do XML esta correto a acentuação, mas ai eu fui ver o pedido de inutilização, na justificativa já está ficando errado. Na hora de enviar o comando NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal) a justificativa tem que fazer alguma conversão?
  20. function NFeImprimeInutilizacao(Filial, Sequencia: String): Boolean; var XMLInu, S: String; NFe: TACBrNFe; NFeDANFEFR: TACBrNFeDANFEFR; begin Result := True; try // Arquivo XML Initulização S := 'SELECT ARQUIVO_XML FROM NFE_INUT' + ' WHERE FILIAL = ' + Filial + ' AND SEQUENCIA = ' + Sequencia; XMLInu := CodigoExiste(S, 'ARQUIVO_XML'); NFe := TACBrNFe.Create(nil); NFeDANFEFR := TACBrNFeDANFEFR.Create(nil); NFe.DANFE := NFeDANFEFR; NFe.DANFE.Sistema := SH; NFeDANFEFR.FastFileInutilizacao := LeParametros('RelatoriosSistema', PCodigoFilial) + 'INUTILIZACAO.fr3'; NFeDANFEFR.MostrarPreview := True; NFeDANFEFR.MostrarStatus := True; NFeDANFEFR.ShowDialog := True; NFe.InutNFe.LerXMLFromString(XMLInu); NFe.ImprimirInutilizacao; FreeAndNil(NFe); FreeAndNil(NFeDANFEFR); except Result := False; end; end; estamos usando o AcbrMonitorPlus
  21. o xml esta correto, o problema é somente na impressao mesmo 35160942750700010955002000001355000001355-procInutNFe.xml
×
×
  • 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.