Jump to content

fefevilela

Membros Pro
  • Posts

    115
  • Joined

  • Last visited

Everything posted by fefevilela

  1. Pessoal. ao compilar a revisão, está apresentando esse erro (Delphi Rio e Sydney) Compiling package D:\Programas\ACBr\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk d:\Programas\Embarcadero\Studio\20.0\bin\dcc32.exe "D:\Programas\ACBr\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk" Embarcadero Delphi for Win32 compiler version 33.0 Copyright (c) 1983,2018 Embarcadero Technologies, Inc. D:\Programas\ACBr\Fontes\ACBrTCP\ACBrIBGE.pas(386) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' D:\Programas\ACBr\Fontes\ACBrTCP\ACBrIBGE.pas(429) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' D:\Programas\ACBr\Fontes\ACBrTCP\ACBrIBGE.pas(443) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' D:\Programas\ACBr\Fontes\ACBrTCP\ACBrIBGE.pas(742) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' D:\Programas\ACBr\Fontes\ACBrTCP\ACBrIBGE.pas(767) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' D:\Programas\ACBr\Fontes\ACBrTCP\ACBrIBGE.pas(782) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' D:\Programas\ACBr\Fontes\ACBrTCP\ACBrIBGE.pas(796) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' D:\Programas\ACBr\Fontes\ACBrTCP\ACBrCEP.pas(2338) Fatal: F2063 Could not compile used unit 'ACBrIBGE.pas' Compilation failure Erro ao compilar o pacote "ACBr_TCP.dpk". Abortando... Ocorreram erros na compilação dos pacotes.
  2. Sim... eu sei.. mas acredito que a DEMO que foi feita em Fortes está bem mais "detalhado".... Acho que se tivermos duas versão IGUAIS com Geradores de Relatórios distintos vai ficar mais didático, concorda? Caso não seja de interesse, eu faço apenas o DACTE então.. voces decidem ok? Abraço forte e Fast..
  3. Ok... darei minha contribuição montando um DEMO em FASTReports para NFe e para CTe.
  4. É.. posso montar isso, porem esclarece uma duvida. O problema é no DANFE (NFe) ou é DACTE (Cte) ????
  5. Eu tenho aplicação gerando DACTE em FAST.. mas não sei como posso ajudar....
  6. Esclarecido. Favor finalizar o assunto. obrigado
  7. Bom dia, Procurei algo a respeito e não encontrei. Porque ao criar o evento OnTransmit do componente de emissão de NF-e, o serviço de Consulta de Status de Serviço responde que a SEFAZ está fora do ar? Rastreei o código e constatei isso: if Assigned(FPDFeOwner.OnTransmit) then // Envio por Evento... Aplicação cuidará do envio e na linha linha 217 sobe o exception Teoricamente esse evento não seria usado para reportar notificações enquanto a transmissão está ocorrendo?
  8. ok, então deixarei de atender essa necessidade. Obrigado Juliomar Peço encerrar o assunto.
  9. Olá Juliomar, Obrigado pelo retorno. Esclarecendo... Esse projeto foi desenvolvido ao cliente em WEB e fizemos um serviço para retornar o DANFE e XML da NFe. Ele não possui interface, e roda em background. Neste caso, como hoje ele possui o SAP e as informações da DIFAL e FCP só alinhadas numa determinada tela do sistema, eles vasculham essa tela e levantam as informações para gerar a GNRE no site da sefaz correspondente. Como o ACBr possui o componente para emissão, pensamos em adicionar esse serviço para ser até um diferencial em relação ao atual sistema de forma que o usuário não precise mais fazer essa tarefa manualmente, porem, como eles não estão confiantes que nossa aplicação funciona em sua plenitude, gostaria de disponibilizar o formulário GNRE junto com o preview da NFe para que possam conferir e terem a certeza que tudo está correto e de forma mais organizada. Em relação ao Componente, eu fiz a alimentação dele, porem o método de impressão está na função ACBrGNRE.GuiasRetorno.ImprimirPDF, mas esses são só estão disponíveis depois do envio para a SEFAZ correto? Pelo menos ao chagar no FastReport o teste se o componente está alimentado retorna FALSO, e aborta. Estou fazendo algo errado? Abraço
  10. Olá, É possível gerar um PDF da GNRE que não foi enviada para a SEFAZ, semelhante ao processo de Danfe de Homologação ? Estou implementando a geração de GNRE porem gostaria de gerar um preview para que o usuário possa validar as informações antes de oficializar.
  11. Obrigado pessoal. Realmente funcionou com a correção citada. Abraço
  12. ou o correto é usar: XML_Evento := trim(AnsiToNativeString(EventoRetorno.retEvento.Items[0].RetInfEvento.XML)); ?
  13. Olá Juliomar. Eu pego o retorno do envio da CCe da mesma forma que os demais serviços: XML_Evento := CompCte.WebServices.EnvEvento.RetWS; Estou errando aqui ?
  14. Pessoal, Ao tentar re-imprimir um evento de carta de correção de CTe em HOMOLOGAÇÃO, estou recebendo o seguinte erro: Unknown variable or dataset: HOMOLOGACAO. Observando a classe: ACBrCTeDACTEFR, na linha 1848: case Evento.Evento.InfEvento.tpEvento of a propriedade tpEvento está setada como "tpNaoMapeada", apesar do XML estar carregado corretamente no componente. envio anexo o XML da carta de correção que está sendo carregado para que eu possa sanar esse problema. A unica coisa que achei que possa ser o problema, seria os caracteres especiais que estão na tag <xEvento>Carta de CorreA�A?o</xEvento> Mas acredito que a rotina utilize a tag <tpEvento>110110</tpEvento> para identificar o tipo de evento, estou certo? Estou carregando o componente dessa forma=> CompCte.EventoCTe.LerXMLFromString(XML); Gerando o PDF => CompCte.ImprimirEventoPDF; O Interessante é que na emissão do CTe essa mesma rotina gera o PDF normalmente. Essa mesma rotina para CANCELAMENTO tambem gera normalmente. O problema só está ocorrendo na CCe. Se puderem me ajudar no assunto eu agradeço. 35200505366444000169570010000000061663425753_evento.xml 35200505366444000169570010000000061663425753_evento.pdf
  15. Obrigado.. falha imperdoável. problema sanado.
  16. with infDoc.infOutros.New do begin tpDoc := TpCteTipoDocumento(99); descOutros := Movimentos_Documentostipo.AsWideString; nDoc := Movimentos_Documentosdocumento.AsWideString; dEmi := Movimentos_Documentosdt_emissao_nf.AsDateTime; vDocFisc := Movimentos_Documentosvl_documento.AsFloat; end;
  17. Não... usando apenas o componente TACBrCte.. Estou investigando o motivo dessa tag não estar sendo preenchida e sendo recusada pela SEFAZ. Pelo manual, ela deveria ser preenchida com 99, porem algo está fazendo com que ela seja anulada no xml...
  18. Olá Juliomar, Verificando a Classe: Constatei que na linha 1675, existe a referencia a um item do TMemIniFile que não foi definido, tpDoc := StrToTpDocumento(OK,INIRec.ReadString(sSecao,'tpDoc','01')); Não seria esse o problema??
  19. Bom dia. Ao incluir um registro de Documento com o tipo 99, o componente não está gerando a tag <tpDoc>99 </tpDoc>. segue trecho correspondente: <infDoc> <infOutros> <tpDoc/> <descOutros>PED</descOutros> <nDoc>1</nDoc> <dEmi>2020-05-23</dEmi> <vDocFisc>1000.00</vDocFisc> </infOutros> </infDoc> Isto tem alguma relação com os schemas ?
  20. Segue anexo a classe com a correção para usar o NOMEDOCUMENTO setado no componente Dacte para impressão FastReports. Quaisquer duvidas, estamos a disposição para ajudar. ACBrCTeDACTEFR.pas
  21. Olá Barbosa, Estou com os fontes atualizados e constatei que a Classe está com o nome CHUMBADO no padrão IncludeTrailingPathDelimiter(PathPDF) + OnlyNumber(CTE.infCTe.Id) + '-cte.pdf' conforme codigo abaixo: Posso efetuar uma alteração e submeter para voces publicarem em Trunk ??? procedure TACBrCTeDACTEFR.ImprimirDACTePDF(ACTE: TCTe); const TITULO_PDF = 'Conhecimento de Transporte Eletrônico'; var OldShowDialog: Boolean; begin if PrepareReport(ACTE) then begin frxPDFExport.Author := Sistema; frxPDFExport.Creator := Sistema; frxPDFExport.Producer := Sistema; frxPDFExport.Title := TITULO_PDF; frxPDFExport.Subject := TITULO_PDF; frxPDFExport.Keywords := TITULO_PDF; OldShowDialog := frxPDFExport.ShowDialog; try frxPDFExport.ShowDialog := False; frxPDFExport.FileName := IncludeTrailingPathDelimiter(PathPDF) + OnlyNumber(CTE.infCTe.Id) + '-cte.pdf'; if not DirectoryExists(ExtractFileDir(frxPDFExport.FileName)) then ForceDirectories(ExtractFileDir(frxPDFExport.FileName)); frxReport.Export(frxPDFExport); finally frxPDFExport.ShowDialog := OldShowDialog; FPArquivoPDF := frxPDFExport.FileName; end; end; end;
  22. Obrigado pela Dica.... Eu estava passando o valor para a função desta forma: Icms.CST := StrToCSTICMS(ok, intToStr(nCodST)); ou seja.. o valor passado era "0" e a função espera um numero com 2 caracteres...
  23. Pessoal, boa tarde. Fiz a atualização hoje e constatei que o DANFE não está impriminto a CST corretamente quando o codigo é TRIBUTADO INTEGRALMENTE (00). Ele está mostrando apenas o primeiro digito correspondente a ORIGEM. Alguem sabe o que está causando isso ? No exemplo anexo, o codigo deveria ser seguido de 00 por exemplo... 600.. 500 etc....
  24. Coloquei o shape atrás e pra mim continua funcionando. BigWings... veja se resolve pra voce. DANFeRetrato_2019.fr3
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.