fefevilela

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?

ok, então deixarei de atender essa necessidade. Obrigado Juliomar Peço encerrar o assunto.

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

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.

Obrigado pessoal. Realmente funcionou com a correção citada. Abraço

ou o correto é usar: XML_Evento := trim(AnsiToNativeString(EventoRetorno.retEvento.Items[0].RetInfEvento.XML)); ?

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 ?

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

Obrigado.. falha imperdoável. problema sanado.

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;

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

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??

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 ?

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

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;

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

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

Coloquei o shape atrás e pra mim continua funcionando. BigWings... veja se resolve pra voce. DANFeRetrato_2019.fr3

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

Eu utilizo o FastReports 5 Version 6.3. não seria problema de versão ?

Não estou entendendo.... anexo a visualização do trecho questionado. (duplicatas.png) segue novamente o fonte que gerou o anexo DANFeRetrato_2019.fr3

Uai... ja foi corrigido. Pedi que voces possam publicar o fonte enviado em produção. Falta algo ou entendi errado ?

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

Peço aos administradores que postem essa ultima versão em produção. Agradeço

é.. tinha algumas bandas que não estavam corretas.. essa versão agora corrige todas... já verifiquei uma por uma... abraço DANFeRetrato_2019.fr3