Ir para conteúdo
  • Cadastre-se

Diogo Camelo

Membros
  • Total de ítens

    6
  • Registro em

  • Última visita

Posts postados por Diogo Camelo

  1. Esse é o código

    Para um consulta ou segunda via

    o resultado é : PROCOTO ESTÁ sem autorização  de uso  pela sefaz.

    Peço ajuda

     

    var
      sXML: string;
    begin
      if qrnota.RecordCount = 0 then
        exit;

      sXML := qrnota.fieldbyname('nfe_xml').asstring;
      if sXML = '' then
        exit;
      try
        if FileExists(sXML) then begin
          ACBrNFeDANFEFR1.Protocolo := '';
          ACBrNFeDANFEFR1.FastFile := 'C:\WG\Server\danfe\DANFE.fr3';
          ACBrNFe1.NotasFiscais.clear;
          ACBrNFe1.NotasFiscais.LoadFromFile(sXML);
          ACBrNFe1.NotasFiscais.Imprimir;
          //ACBrNFe1.NotasFiscais.Imprimirpdf;
        end
        else begin
          Application.messagebox('Arquivo XML não econtraddo!', 'Erro', mb_ok + mb_iconerror);
        end;
      except
        on E: exception do begin
          Application.messagebox(PWideChar('Erro ao criar/imprimir NFe!' + #13 + 'Mensagem: ' + E.message), 'Erro', mb_ok + mb_iconerror);
        end;
      end;
    end;

  2. 2 horas atrás, BigWings disse:
    
    NotaF.NFe.Ide.dEmi := Date + Time;
    NotaF.NFe.Ide.dEmi := Now;
    NotaF.NFe.Ide.dEmi := StrToDate('18/05/2021') + StrToTime('17:20:00');
    NotaF.NFe.Ide.dEmi := StrToDateTime('18/05/2021 17:20:00');
    NotaF.NFe.Ide.dEmi := MinhaQuery.FieldByName('DATA_HORA').AsDateTime;

    Show funcionou. Obrigado

     

     

    Obrigado funcionou!

    • Curtir 1
  3. Em 17/05/2021 at 09:23, BigWings disse:

    Aqui tem que informar data e hora, se usar Date vai gerar com hora 00:00:00 e dar rejeição.

    Obrigado pela dica,

    NotaF.NFe.Ide.dEmi      := Date;

    NotaF.NFe.Ide.dEmi      := Time;

     

    Agora deu erro na data a data ficou 1899-12-30, a hora ficou certa

     

    Agora, Diogo Camelo disse:

    Obrigado pela dica,

    NotaF.NFe.Ide.dEmi      := Date;

    NotaF.NFe.Ide.dEmi      := Time;

     

    Agora deu erro na data a data ficou 1899-12-30, a hora ficou certa

     

    E agora  o que faço ou como faria?

     

  4. //DADOS DA NOTA FISCAL

      NotaF.NFe.Ide.natOp     := 'VENDA';
      NotaF.NFe.Ide.indPag    := ipVista;
      NotaF.NFe.Ide.modelo    := 65;
      NotaF.NFe.Ide.serie     := 1;
      NotaF.NFe.Ide.nNF       := StrToInt(idVenda);
      NotaF.NFe.Ide.dEmi      := Date;
      NotaF.NFe.Ide.dSaiEnt   := Date;
      NotaF.NFe.Ide.hSaiEnt   := Now;
      NotaF.NFe.Ide.tpNF      := tnSaida;
      NotaF.NFe.Ide.tpEmis    := teNormal;
      NotaF.NFe.Ide.tpAmb     := taHomologacao;  //Lembre-se de trocar esta variável quando for para ambiente de produção
      NotaF.NFe.Ide.verProc   := '1.0.0.0'; //Versão do seu sistema
      NotaF.NFe.Ide.cUF       := 33;
      NotaF.NFe.Ide.cMunFG    := 3304557;    // alterar de acordo com a estado e cidade
      NotaF.NFe.Ide.finNFe    := fnNormal;

    Está dando erro que. Rejeição 704. Da- Hora de emissão  atrasada.

    Alguém pode ajudar?

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