Ir para conteúdo
  • Cadastre-se

fefevilela

Membros Pro
  • Total de ítens

    156
  • Registro em

  • Última visita

Tudo que fefevilela postou

  1. 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
  2. fefevilela

    Preview de GNRE

    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.
  3. Obrigado pessoal. Realmente funcionou com a correção citada. Abraço
  4. ou o correto é usar: XML_Evento := trim(AnsiToNativeString(EventoRetorno.retEvento.Items[0].RetInfEvento.XML)); ?
  5. 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 ?
  6. 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
  7. Obrigado.. falha imperdoável. problema sanado.
  8. 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;
  9. 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...
  10. 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??
  11. fefevilela

    tpDoc 99 - Não gera tag

    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 ?
  12. 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
  13. 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;
  14. 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...
  15. fefevilela

    Danfe Retrato FR - CST

    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....
  16. Coloquei o shape atrás e pra mim continua funcionando. BigWings... veja se resolve pra voce. DANFeRetrato_2019.fr3
  17. Que estranho.. Todos os formulários que deram problema depois da modificação referente as margens foram sanados com a alteração do alinhamento das bandas que possuiam a propriedade CLIENT habilitada. Com a alteração, o defeito foi resolvido e inclusive os administradores publicaram no repositório os formulários alterados. Se eu puder ajudar, me avise., abraço
  18. Eu utilizo o FastReports 5 Version 6.3. não seria problema de versão ?
  19. Não estou entendendo.... anexo a visualização do trecho questionado. (duplicatas.png) segue novamente o fonte que gerou o anexo DANFeRetrato_2019.fr3
  20. Uai... ja foi corrigido. Pedi que voces possam publicar o fonte enviado em produção. Falta algo ou entendi errado ?
  21. Sim... Conforme ja informado anteriormente, para atendimento a modificação que os componentes sofreram para ajustar margem através das propriedades, as bandas precisam ter alinhamento NONE e todas as bandas corrigidas estavam com alinhamento CLIENT o que ignora a configuração. Abraço
  22. Peço aos administradores que postem essa ultima versão em produção. Agradeço
  23. é.. tinha algumas bandas que não estavam corretas.. essa versão agora corrige todas... já verifiquei uma por uma... abraço DANFeRetrato_2019.fr3
  24. A alteração ocorreu apenas na banda, substituindo o parametro ALINHAMENTO para NONE visto que a classe faz a alteração da margem de forma automática. abraço
  25. Segue o formulário padrão corrigido DANFSEPadrao.fr3
×
×
  • 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.