Ir para conteúdo
  • Cadastre-se

Daniel Alves Barreto

Membros
  • Total de ítens

    9
  • Registro em

  • Última visita

Daniel Alves Barreto's Achievements

Rookie

Rookie (2/14)

  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputação

2

Community Answers

  1. Era isso mesmo, funcionou! obrigado.
  2. Incompatible types: 'pcnInutNFe.TinutNFe' and 'ACBrNFe.Inut.TinutNFe' Incompatible types: 'pcnEnvEventoNFe.TEventoNFe' and 'ACBrNFe.EnvEvento.TEventoNFe'
  3. Depois de aatualizar os fontes do ACBR estou encontrando erros em duas procedures são elas procedure TACBrNFeDANFeESCPOS.ImprimirDANFECancelado(NFE: TNFe); begin if NFE = nil then begin if not Assigned(ACBrNFe) then raise Exception.Create(ACBrStr('Componente ACBrNFe não atribuído')); if TACBrNFe(ACBrNFe).NotasFiscais.Count <= 0 then raise Exception.Create (ACBrStr('XML da NFe não informado, obrigatório para o modelo ESCPOS')) else FpNFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFE; end else FpNFe := NFE; FpEvento := TACBrNFe(ACBrNFe).EventoNFe; //[dcc32 Error] ACBrNFeDANFeESCPOS.pas(1016): E2010 Incompatible types: 'pcnEnvEventoNFe.TEventoNFe' and 'ACBrNFe.EnvEvento.TEventoNFe' if not Assigned(FpEvento) then raise Exception.Create('Arquivo de Evento não informado!'); AtivarPosPrinter; GerarCabecalho; GerarDadosEvento; FPosPrinter.Buffer.Add(GerarInformacoesConsumidor); GerarObservacoesEvento; FPosPrinter.Buffer.Add(GerarInformacoesQRCode(CalcularDadosQRCode, True)); GerarRodape; FPosPrinter.Imprimir('', False, True, True, NumCopias); end; e em: procedure TACBrNFeDANFeESCPOS.ImprimirINUTILIZACAO(ANFe: TNFe); var fpInutNFe: TinutNFe; sJustificativa: string; begin if ANFe = nil then begin if not Assigned(ACBrNFe) then raise Exception.Create(ACBrStr('Componente ACBrNFe não atribuído')); if TACBrNFe(ACBrNFe).NotasFiscais.Count > 0 then FpNFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFE; end else FpNFe := ANFe; fpInutNFe := TACBrNFe(ACBrNFe).InutNFe; //[dcc32 Error] ACBrNFeDANFeESCPOS.pas(1122): E2010 Incompatible types: 'pcnInutNFe.TinutNFe' and 'ACBrNFe.Inut.TinutNFe' if not Assigned(fpInutNFe) then begin raise Exception.Create(ACBrStr('Objeto de inutilização não atribuído.')); end; // Salvar TACBrNFe(ACBrNFe).InutNFe, ANFe GerarIdentificacaoInutilizacao; if Assigned(FpNFe) then begin GerarCabecalho; FPosPrinter.Buffer.Add('</linha_simples>'); end; GerarDadosInutilizacao(fpInutNFe); sJustificativa := ACBrStr(fpInutNFe.RetInutNFe.xJust); if sJustificativa <> '' then begin FPosPrinter.Buffer.Add('</fn></ce><n>JUSTIFICATIVA</n>'); FPosPrinter.Buffer.Add('</fn></ae>' + sJustificativa); FPosPrinter.Buffer.Add('</linha_simples>'); end; GerarRodape; FPosPrinter.Imprimir('', False, True, True, NumCopias); end;
  4. consegui encontra com a linha: OnlyNumber(dmt.NFePrincipal.EventoNFe.Evento.Items[0].InfEvento.ID) + '-procEventoNFe.pdf'; obrigado a todos pela ajuda.
  5. Boa tarde, consegui salvar na pasta que precisava. YearMonth := FormatDateTime('yyyymm', Now); FormattedCNPJ := TRegEx.Replace(dmt.QryEmpresaNFe.FieldByName('cpf_cnpj').AsString, '[./-]', ''); path_nfe := 'c:\nfe\pdf\' + FormattedCNPJ + '\' + YearMonth + '\'; dmt.NFePrincipal.DANFE.PathPDF := path_nfe; dmt.NFePrincipal.imprimirEventoPdf; Mais continuo sem saber como pegar o nome do arquivo pdf, alguem pode me ajudar?
  6. Boa Noite, preciso imprimir o evento carta de correção, para tanto estou usando o seguinte codigo if msgError = '' then begin dmt.NFePrincipal.imprimirEventoPdf; tipoEvento := dmt.NFePrincipal.EventoNFe.Evento[0].InfEvento.tpEvento; ArqEvento := dmt.NFePrincipal.EventoNFe.ObterNomeArquivo(tipoEvento); ArqEvento := PathWithDelim(dmt.NFePrincipal.Configuracoes.Arquivos.GetPathEvento(tipoEvento))+ArqEvento; with dmt.NFePrincipal.WebServices.EnvEvento do begin ArqEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe + TpEventoToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.tpEvento) + IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.nSeqEvento) +'-procEventoNFe.xml'; end; mais nao esta apontando para o local real do arquivo que e C:\NFE\PDF, preciso que os arquivos fiquem na pasta cnpj / data como as nfes pdf, como posso fazer isso e recuperar via codigo o local e nome do arquivo ?
  7. Boa tarde, estou enviando uma NFCe normalmente no ambiente de homologação, salvando os dados depois de aprovada pela sefaz com o a seguinte linha de código Dm.NFCePrincipal.NotasFiscais.Items[0].XMLOriginal; ate ai tudo bem, mais quando tento imprimir o xml, no primeiro campo de descrição aparece a msg NOTA FISCAL EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL em vez da descrição do produto, isso e normal em ambiente de homologação? Aproveitando o tema qual e a maneira correta de imprimir uma segunda via de NFCe na impressora Epson TM-T20x 53231101606458000151650010000000381000000435-nfe.pdf
  8. Realmente esse era o problema, o windows atualizou e colocou uma scala de texto 125%, muito obrigado.
  9. Boa tarde, na última atualização que fiz dos arquivos do Acbr, notei que começou a mostrar 2 valores estranhos da descrição do produto, estou enviando em anexo um PDF da nota, qual que solução será bem vinda. Erro fortes.pdf
×
×
  • 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...