Ir para conteúdo
  • Cadastre-se

Wilson

Membros
  • Total de ítens

    26
  • Registro em

  • Última visita

Posts postados por Wilson

  1. Olá amigos. Saudações a todos. Novamente agradeço pela disposição.

    Estou tendo este problema com uma nota fiscal emitida para Minas Gerais.

    <?xml version="1.0"?>

    -

    1

    SP_NFE_PL_006j

    351001314990734

    225

    Rejeicao: Falha no Schema XML do lote de NFe

    35

    As notas para SP estão ok!

    Alguem pode me ajudar? estou anexando o xml.

    Sou muito grato por qualquer ajuda.

    35120912157146000124550010000030321000030320-nfe.xml

  2. Pessoal! Muito Obrigado.

    Italo e Peterson... Obrigado mesmo.

    Instalei o QR5.2 e o componente funcionou.

    Tive que recompilar e instalar o ACBR e tudo se resolveu... aos poucos.

    Recompilei outras tralhas também.

    Achei um erro na Fonte do ACBrNFeDANFeQRRetrato, as linhas 1333, 1334 e 1335 precisam estar antes do IF da linha 1325.

    Pois estas informações... cnpj, IESubst e IE estão saindo sem nada na nota.

    Acertei aqui, acertem ai.

    Obrigado por recompilarem em QR3, tenho certeza que sera importante para muitos.

    Quando vi já tinha quase terminado aqui, não valia a pena voltar.

    Mesmo assim obrigado!

    Essa comunidade é genial.

  3. Saudações a todos!

    Obrigado por seu tempo.

    Uso Delphi 2007 e Quick Report 4.07.

    Quando utilizo a propriedade "EXPANDIRLOGOMARCA = TRUE" nada acontece.

    If FileExists(exemplo.bmp) then begin

    Danfe.ExpandirLogoMarca := true;

    Danfe.Logo := (exemplo.bmp');

    end;

    exemplo.bmp é o logo...

    A imagem aparece pequena ao lado esquerdo dos dados da empresa.

    Alguém poderia me ajudar?

    Este recurso não funciona?

    Alguém utiliza ele no QR de forma bem sucedida?

    Obrigado e sucesso a todos!

    Parabéns pelo ACBrNFe... o componente é fantástico.

    Wilson Rabelo

  4. Obrigado novamente.

    Foi resolvido, fiz algumas alterações.

    É que no meu caso era a reimpressão de uma nota que foi enviada.

    Fiz assim:

    NFE.Configuracoes.WebServices.Ambiente := taproducao;

    NFE.NotasFiscais.Clear;

    NFE.NotasFiscais.LoadFromFile(emp_dirserv+'\Empresas\'+emp_id+'\NFE\'+DMRetaguarda.TNotaNFE_NumChave.Value+'-NFe.xml');

    NFE.WebServices.Consulta.NFeChave := DMRetaguarda.TNotaNFE_NumChave.Value;

    Try

    NFE.WebServices.Consulta.Executar;

    NFE.DANFE.ProtocoloNFe := NFE.WebServices.Consulta.Protocolo;

    Memo1.Lines.Add(DateToStr(Now)+'-'+TimeToSTr(Now));

    Memo1.Lines.Add(NFE.WebServices.Consulta.Protocolo);

    Try

    NFE.NotasFiscais.Imprimir;

    Except

    on Exc : Exception do

    SHowMessage('Erro na impressão.' + exc.Message);

    End;

    Except

    on Exc : Exception do

    SHowMessage('Erro na consulta.' + exc.Message);

    End;

  5. André, obrigado por responder. Realmente devia ter olhado o exemplo... (Vergonha) rs

    Mudei a rotina para:

    NFE.Configuracoes.WebServices.Ambiente := taproducao;

    NFE.NotasFiscais.Clear;

    NFE.NotasFiscais.LoadFromFile(caminho+numchave+'-NFe.xml'); //caminho onde estão os xmls das notas.

    NFE.WebServices.Consulta.Executar;

    if NFE.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin

    NFE.WebServices.ConsultaDPEC.NFeChave := NFE.NotasFiscais.Items[0].NFe.infNFe.ID;

    NFE.WebServices.ConsultaDPEC.Executar;

    NFE.DANFE.ProtocoloNFe := NFE.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(NFE.WebServices.ConsultaDPEC.retDPEC.dhRegDPEC);

    end;

    Try

    NFE.NotasFiscais.Imprimir;

    Except

    on Exc : Exception do

    SHowMessage('Erro na impressão.' + exc.Message);

    End;

    Ele abre o preview, mas com a seguinte mensagem no rodapé:

    NF-E NÃO ENVIADO PARA SEFAZ.

    Ocorre que foi enviado. Poderia me ajudar? Obrigado.

  6. Olá a todos!

    Preciso novamente da ajuda de vocês.

    Situação: Emiti a nota, validei, enviei e na hora de imprimir a impressora falhou.

    Como havia fechado o programa preciso reimprimir esta DANFE.

    Para isso uso os comandos, no ambiente de produção:

    NFE.NotasFiscais.Clear;

    NFE.NotasFiscais.LoadFromFile('Nome do arquivo NFe.xml');

    Try

    NFE.NotasFiscais.Imprimir;

    Except

    on Exc : Exception do

    SHowMessage('Erro na impressão.' + exc.Message);

    End;

    Acontece que ele abre a nota com uma tarja cinza embaixo dizendo que a nota não foi enviada.

    É como se imprimisse sem enviar. Mas ela já foi enviada.

    O que fazer?

    Obrigado pela ajuda amigos!

×
×
  • 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...
The popup will be closed in 10 segundos...