Ir para conteúdo
  • Cadastre-se

ornei

Membros
  • Total de ítens

    199
  • Registro em

  • Última visita

Posts postados por ornei

  1. Bom  dia

    Juliomar no exemplo também acontece  a mesma coisa o  xml vai no corpo do e-mail logo abaixo do texto. Demorei responder estou de ferias e o pc pessoal deu problema e tive que formatar e instalar tudo novamente. 

  2. Bom dia

    também pelo exemplo (compilado no delphi xe10.1)  esta ocorrendo, o  xml vai  abaixo do texto do email e não como anexo, estou usando o delphi 7 com a ultima atualização, ainda não consegui contornar o problema.

    obrigado

  3. Boa tarde,

    fiz a atualização do acbr hoje, também fiz alguns teste apos a atualização só que na opção de enviar por e-mail percebi que nos anexo só esta o danfe em pdf e o xml esta no corpo do e-mail não esta como  anexo, copei este  xml do corpo do e-mail coloquei em editor para conferi só que não esta completo também, segue o fonte. obrigado

      

        with dmNFE_TR do
        try
          // Busca a Serie da NF-e
           ValidarSQL('SELECT E.EMPRESA FROM TB_EMPRESA E',['E.COD='+CODEMP_COR],[@Remetente]);
          //***
          lcXML := NFEletronica.Configuracoes.Arquivos.GetPathNFe(cdsNFEDATAENT.AsDatetime) + PathDelim + Trim(cdsNFECHAVE_NFE.AsString) + '-nfe.XML';
          { Verifica se o arquivo XML existe }
          if not FileExists(lcXML) then
             Raise Exception.Create('Arquivo ' + lcXML + ' não encontrado.');
          { Adiciona o e-mail para copia }
          CC := TstringList.Create;
          MinhaExtractStrings(';',Copia,CC);
          { Carrega o XML da NFe para enviar e-mail }
          NFEletronica.NotasFiscais.Clear;
          NFEletronica.NotasFiscais.LoadFromFile(lcXML);
          { Configura os dados do ACBr_Email }
          EMail.From := EMail.Username;
          EMail.ReadingConfirmation := Confirmacao;
          EMail.FromName := EMPRESA_COR;
          { Gera mensagem para ser enviada }
          mmEmailMsg.Lines.Text:=format(mmEmailMsg.Lines.Text,[LFill(IntToStr(NFEletronica.NotasFiscais.Items[0].NFe.Ide.cNF),10),
                                                               NFEletronica.NotasFiscais.Items[0].NFe.Emit.xNome,
                                                               FloatToStrF(NFEletronica.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF,ffNumber,10,2),
                                                               NFEletronica.NotasFiscais.Items[0].NFe.Emit.xNome]);
          { Envia o e-mail }
          NFEletronica.NotasFiscais.Items[0].EnviarEmail(Para
                                                         , Trim(FConfiguracaoEmail.EmailAssunto) + ' n. '+ LFill(IntToStr(NFEletronica.NotasFiscais.Items[0].NFe.Ide.cNF),10)
                                                         , mmEmailMsg.Lines
                                                         , True  // Enviar PDF junto
                                                         , CC    //Lista com emails que serão enviado cópias - TStrings
                                                         , nil); // Lista de anexos - TStrings
          ExibirMsg('XML e DANFE da Nota Fiscal ' + LFIll(cdsNFENUMNF.AsString,9) + ' enviada com sucesso!','Nota Fiscal Eletrônica');
        finally
          CC.Free;
        end;

     

  4. Bom dia,

    tenho o delphi 7 com o acbr  instalado uso o instaldor, minha máquina esta com windows 7 32bits rodando sem problemas, precisei instalar o delphi 10.2 tokyo, instalei o fortes, fastreport e o acbr também com o instalador sem nenhum erro com as três instalações, porém quando executo o delphi 10.2 ocorre o seguinte erro:

    PRIMEIRO_ERRO.jpg.da678ee30a7b87e267d497a25d3dcdcc.jpg

    pressionando OK mostra a mensagem a seguir:

    SEGUNDO_ERRO.jpg.9b44d97830083ecd5d02d52e2c82134f.jpg

    já tentei varias vezes e não da certo sempre esse erros acontece isto somente delphi 10.2 o delphi 7 esta funcionando normalmente também se o log e o ini.

    ACBrInstall_Trunk2.ini

    log_Delphi_10.2_Tokyo.txt

     

  5. bom dia, estou instalando o acbr no delphi tokyo utilizando o acbrinstall_trunk2, todos pacotes são compilados e instalados, o estranho e que não gera nada na pasta ..\delphi\lib25, isto ocorre com o instalador do fortes que e igual, o fortes instalei manual para testar e funcionou, a principio terei que fazer a mesma coisa para o acbr. 

  6. Juliomar só consigo fazendo a consulta da NFe para trazer as informações do cancelamento/cce, porque quando faço um cancelamento e da tudo certo gera um xml assim 1101113117053870940800010055001000000362100000362001-procEventoNFe.xml  pois faço a impressão cancelamento sobre ele e alguns cliente envia por e-mail também.

  7. Boa tarde,  tenho um cliente que fez um cancelamento só  que não sei o que ocorreu e ele não soube falar o que aconteceu e  com isso não gerou o xml do cancelamento e isto aconteceu com a carta de correção em um outro cliente, tem alguma maneira de gerar os xml novamente para que possa imprimir o documento do cancelamento e da carta de correção. 

  8. boa tarde,  estou com o seguinte problema, fiz um cce na hora do envio demorou, com isto retornou o erro 1250, e não gerou o xml e se tentar enviar novamente retorna o erro de duplicidade de evento, não sei o que esta acontecendo consultando a NFe no portal nacional nem aparece o registro do envento. Tem como gera o xml para imprimir e enviar por emai.. 

  9. Boa tarde,

    não está no svn pois não teno permissão, alterei os fontes para que possa sair as informações na danfe, com relação se e valida creio que sim pois tem que informar a data e hora da contingência e a justificativa.

    Obrigado

  10. Bom dia, já estou usando o trunk2 alguns meses, em Minas Gerais, esta semana a SEFAZ ficou fora do ar, neste caso as NFe estão sendo enviada em contingência SVC-AN, e percebi que não esta imprimindo os dados referente a contingência, quando usava a danfe do rave era impresso uma marca d'agua, e nas informações adicionais constava informação de contingência. Observando o código fonte vi que os tipos de contingência teSCAN,  teSVCAN,  teSVCRS,   teSVCSP não esta habilitado a ser impresso, somente os teContingencia e  teFSDA. E isso mesmo?

  11. Bom dia, hoje atualizei o acbr e recompilei o meu projeto, so que esta ocorrendo este erro Error reading frlDANFeRLRetrato.ExplicitWidth: Property ExplicitWidth does not exist, a principio so ocorre na impressão da danfe. Antes de instalar o acbr, deletei a pasta LIB, tambem removi do delphi7, limpei o library path, para depois instalar atraves do ACBrInstall_Trunk2.

  12. EMBarbosa, obrigado pela atenção.

    Sobre a questão da vigência, interpretei desta forma pois lá no final da portaria (http://www.fazenda.mg.gov.br/empresas/legislacao_tributaria/portarias/2014/port_subsec132_2014.htm#p132_anexo_i), tem a seguinte descrição "Efeitos de 01/06/2014 a 04/04/2016 - Redação original: (e os links para a redação original)". 

    Agora quanto a oficina de conserto, na portaria 132/2014 o assunto é tratado no Art. 121, observando a seguinte descrição do item I deste artigo: "I - utilizar programa aplicativo que atenda aos requisitos técnicos específicos para oficina de conserto, previstos na Especificação de Requisitos a que se refere o art. 66", o art. 66 é referente ao Anexo I, e neste anexo não tem nenhum requisito técnico específico para oficina de conserto.

    Então esta é minha dúvida; Que caminho seguir para deixar o PAF-ECF de acordo com a legislação de MG quando tratamos de oficina de conserto?

    Como não tem bloco específico para oficina de conserto, podemos considerar que a mesma é tratada pelo BLOCO I - REQUISITOS GERAIS, sendo assim aplicando as regras do REQUISITO IV no caso de DAV?

    Por último, como você mesmo me disse "Você precisa ler a portaria inteira, e não apenas a especificação de requisitos", então qual portaria seguir 132/2014 ou 151/2016, sendo que nesta última não traz nada referente a oficina de conserto.

    Como vou implementar este novo módulo (oficina de conserto) na minha aplicação, penso que o melhor seria implementar já atendendo a portaria mais atual 151/2016 MG.002.

  13. EMBarbosa, obrigado pela atenção.

    Segue...

    Realmente é muito importante o entendimento da portaria como um todo.

    Mas se entendi, acontece que esta portaria http://www.fazenda.mg.gov.br/empresas/legislacao_tributaria/portarias/2014/port_subsec132_2014.htm, de vigência de 01/06/20014 a 04/04/20016, esta sendo alterada por esta http://www.fazenda.mg.gov.br/empresas/legislacao_tributaria/portarias/2016/port_subsec151_2016.htm de vigência 05/04/20016 até...., veja: http://www.fazenda.mg.gov.br/empresas/ecf/informacoes/reqtecpaf.htm.

    Na portaria SRE 151/16 traz o seguinte no Art. 8º: "Art. 8º Os Anexos I e II da Portaria SRE nº 132, de 24 de abril de 2014, passam a vigorar com a redação dada pelos Anexos I e II desta Portaria."

    A portaria SRE 151/16 é a portaria compatível com a MG.002. Portanto se quisermos cadastrar o PAF-ECF na SEF/MG no período de 04/04/20016 até a próxima portaria, teremos que atender as especificações de requisitos MG.002.

    E como já havia observado, esta especificação não traz nada a respeito de oficina de consertos.

    Será que estou enganado.

  14. Na especificação de requisitos do PAF-ECF - Versão MG.002, não traz nada falando sobre os requisitos do PAF-ECF para oficina de conserto. Isto significa que em MG não está mais sendo exigido as informações do veículo no DAV impresso? Que caminho devemos seguir para deixar o PAF-ECF de acordo com a legislação no que tange oficinas de consertos?
  15. Boa tarde,

    De acordo com o manual, para salvar o envio e o resposta da SEFAZ e necessário informar o caminho na propriedade configuracoes.Arquivos.PathSalvar e a propriedade configuracoes.geral.Salvar = True. Minha aplicação esta configurada desta forma e mesmo assim não salva, em um cliente aconteceu o seguinte. Ao enviar a NFe por algum motivo não teve o retorno  e a informação de retorno não pode ser coletadas, se pedir para  enviar novamente retorna a mensagem de duplicidade e para consulta não tenho o XML pois não foi salvo, se gera outro XML para consulta retorna o erro DigestValue  do documento invalido, neste caso tenho que consultar a NFe no site da NFe pela chava para baixar o XML  para fazer a consulta e pegar as informações como protocolo, status, recibo etc.

×
×
  • 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.

The popup will be closed in 10 segundos...