Leandro Vignoto

Boa Tarde ! Ao utilizar a propriedade MostraDadosISSQN := False, na impressão do Danfe Fortes a linha referente as informações do ISS continuam aparecendo no fim da página. Depurando, podemos notar que primeiro é chamado o código abaixo dentro de procedure TfrlDANFeRLRetrato.AplicaParametros if (fMostraDadosISSQN = False) then rlbISSQN.Visible := False; Porém, posteriormente é chamado procedure TfrlDANFeRLRetrato.ISSQN, voltando a impressão do mesmo if FNFe.Emit.IM > '' then begin .... End; Segue em anexo um XML de exemplo. Att. Leandro Vignoto 41160210377952000182550010000956631514282338-nfe.xml

Boa Noite ! Continuando os testes, o problema final ocorre no seguinte ponto: procedure TfrlDANFeRLRetrato.InitDados; // Carrega logomarca if (FLogo <> '') then begin if FileExists (FLogo) then rliLogo.Picture.LoadFromFile(FLogo) else begin LogoStream := TStringStream.Create(FLogo); try rliLogo.Picture.Bitmap.LoadFromStream(LogoStream); finally LogoStream.Free; end; end; end; No meu caso a variável FLogo estava vindo com espaço em branco ' ', gerando o problema. Att. Leandro Vignoto

Boa Tarde ! Continuando os testes pude identificar que o erro ocorre no seguinte ponto: Arquivo RLReport.pas function TRLCustomReport.PreviewModal: Boolean; if FReportState = rsAbout then if not Prepare then Exit; Att. Leandro Vignoto

Bom dia, Italo.. Obrigado pelo retorno. Anteriormente utilizava dessa forma que você falou, porém me deparei com a seguinte situação: - Tenho processos que são executados de forma independente. Exemplo: Envio para sefaz, impressão de documentos, envio para clientes... etc. Se eu utilizar somente um componente no DM as informações carregadas no componente poderão entrar em conflito, pois posso iniciar um processo de autorização e ao mesmo tempo disparar um processo de envio de e-mail de outro xml, por isso crio e elimino o componente dentro do processo que estou executando. Att. Leandro Vignoto

Somente complementando os testes... para o CT-e também funciona normalmente da maneira que foi escrito na abertura do post. O problema só ocorre para NF-e Att. Leandro

verdade, vamos esperar mais um pouco então

Boa Tarde ! Me desculpe, não estou cobrando nada do que você está pensando (tipo assim, até agora ninguém viu), não foi essa a intenção. Inclusive tento ao máximo não abrir posts. Só coloquei mesmo para não ficar no esquecimento o post que a princípio possa parecer um erro. Fica tranquilo, responda quem puder sobre o assunto. Att. Leandro

Boa Tarde ! Alguém ? Att. Leandro

Boa Tarde ! Já estava utilizando o Trunk2 e após efetuar um update na data de ontem estou com o seguinte problema: 1) Ao executar a função AcbrNfe.NotasFiscais.Imprimir, apresenta a seguinte mensagem: RLNFe: Erro durante a preparação do relatório EReadError(Stream read error) Detalhes: - Em máquina local o problema não ocorre; - Ocorre em uma máquina de cliente; - Na maquina do cliente: - se executar a função utilizando os componentes o problema NÃO OCORRE. - se utilizar o ACBR-Demo o problema NÃO OCORRE; - Se criar variáveis locais para a execução da impressão o problema OCORRE. Isso já era utilizado anteriormente, conforme exemplo abaixo. var nQtdLin: Integer; localAcbrNfe: TACBrNFe; localACBrNFeDANFeRL: TACBrNFeDANFeRL; Begin localAcbrNfe := TACBrNFe.Create(nil); localACBrNFeDANFeRL := TACBrNFeDANFeRL.Create(nil); localAcbrNfe.NotasFiscais.LoadFromString(DMDBE.cdsDOC002HIS.FieldByName('XMLRET').AsString,False); localAcbrNfe.DANFE := localACBrNFeDANFeRL; localAcbrNfe.NotasFiscais.Imprimir; // nesse ponto que ocorre o problema; End; - Executando o mesmo processo acima, porém para MDF-e o problema NÃO OCORRE. Att. Leandro Vignoto

Obrigado Italo... Só para deixar registrado, no manual da NFE na página 50 está igual ao do item que você passou, porém as duas funções tem comportamentos diferentes no ACBR Mas vlw, agora está entendido. t+ Leandro

Ok, Italo.... Comparando com a mesma rotina do componente do NFe, realmente ele faz o que você falou, porem tem uma pequena diferença entre eles, sendo: No CT-e ele considera os dados somente se estiver autorizado (function TRetInutCTe.LerXml: boolean;) if cStat = 102 then begin (*DR10 *)Fano := Leitor.rCampo(tcInt, 'ano'); (*DR11 *)FCNPJ := Leitor.rCampo(tcStr, 'CNPJ'); (*DR12 *)FModelo := Leitor.rCampo(tcInt, 'mod'); (*DR13 *)FSerie := Leitor.rCampo(tcInt, 'serie'); (*DR14 *)FnCTIni := Leitor.rCampo(tcInt, 'nCTIni'); (*DR15 *)FnCTFin := Leitor.rCampo(tcInt, 'nCTFin'); (*DR16 *)FdhRecbto := Leitor.rCampo(tcDatHor, 'dhRecbto'); (*DR17 *)FnProt := Leitor.rCampo(tcStr, 'nProt'); end; No NF-e ele considera os dados, independente do cStat. (function TRetInutNFe.LerXml: Boolean) Att. Leandro Vignoto

Boa Tarde ! Estou importando o arquivo XML em anexo referente a teste para inutilização de um CT-e. Ao executar o procedimento localAcbrCte.InutCTe.LerXMLFromString("texto do arquivo xml") as opções localAcbrCte.InutCTe.Serie, localAcbrCte.InutCTe.nCTIni, localAcbrCte.InutCTe.nCTFin, localAcbrCte.InutCTe.CNPJ entre outras não são preenchidas. Pelo que notei nessa função "function TinutCTe.LerXMLFromString(const AXML: String): boolean;", está considerando como se fosse um arquivo de RETORNO DE INUTILIZAÇÃO já confirmado, mas na verdade é um arquivo de envio para SOLICITAR A INUTILIZAÇÃO. Att. Leandro Vignoto Inu41150710377952000182570010000028191000028281_20150730114056-ped-inu.xml

OK, obrigado pelo retorno. Só não consegui ainda baixar desse novo endereço e nem atualizar o atual. Mas isso já é outro assunto. Att. Leandro Vignoto

Reforço a pergunta.. existe outra forma de baixar ?

Bom Dia ! Quando emitimos nota com a descrição do produto ultrapassando mais de uma linha, ou ainda com os detalhamento específicos ativo, o Danfe apresenta uma linha a mais sem a terminação correta, conforme arquivos em anexo. É possível configuração para isso ? Att. Leandro Vignoto 41150710377952000182550010000955181635266827-nfe.xml 41150710377952000182550010000955181635266827-nfe.pdf

Juliomar, obrigado pelas dicas Com o novo instalador não ocorreu mais esse problema. Att Leandro

Isso já foi feito e o problema persistia. Estou baixando outro instalador

Alguma sugestão que eu possa seguir para corrigir isso ? Att. Leandro

Complementando.... Se comentar a linha // {$WEAKPACKAGEUNIT} das units Jwa..., compila sem erros. Mas quero entender o motivo disso, pois não sei o que pode influenciar. Imagino que deveria compilar sem esses comentários. Att. Leandro

A instalação não foi feita pelo Instalador, mas sim INICIADA manualmente. Windows 7 64 Bits, ao iniciar pelo instalador já apresenta a mensagem "doc32.exe not found". Falta library justamente porque a instalação está sendo feita manualmente passo a passo, e parou no ACBrCapicom Tem algum lugar documentado quais são todas a library que devem ser utilizadas ? Att Leandro

Boa Tarde ! Já procurei no fórum, encontrei algumas referências mas nenhuma delas resolveu o problema. Ao compilar o pacote ACBrCapicom apresenta a seguinte mensagem: [Error] JwaWinDLLNames.pas(129): $WEAKPACKAGEUNIT 'JwaWinDLLNames' cannot have initialization or finalization code [Fatal Error] JwaWindows.pas(103): Could not compile used unit '..\..\Fontes\ACBrCapicom\JwaWinDLLNames.pas' Baixei hoje duas vezes os fontes e estão atualizados e está na versão 7886. Segue em anexo imagem das librarys. Será que tem relação com esse link ? http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/cm_weakpackage_body_xml.html Utilizo o Delphi 7. Alguém pode me ajudar ? Att. Leandro

Juliomar, obrigado pelo retorno Fiz, mas não entendi. Não sei qual a diferença entre with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.id := xx; InfEvento.cOrgao := yyy; e ACBrNFe1.EventoNFe.Evento.Add.InfEvento.id := xx; ACBrNFe1.EventoNFe.Evento.Add.InfEvento.cOrgao := yyy; se realmente for esse o problema, pois só isso que alterei.... Até onde eu sabia With era para simplificar. The With keyword is a convenience provided by Delphi for referencing elements of a complex variable, such as a record or object. It simplifies the code by removing the need to prefix each referenced element with the complex variable name. For example : myObject.colour := clRed; myObject.size := 23.5; myObject.name := 'Fred'; can be rewritten : With myObject do begin colour := clRed; size := 23.5; name := 'Fred'; end; Sinceramente, voei... Vou olhar com calma depois Vlw. Leandro

Quando você diz "antes de começar você faz um código assim:", você está me perguntando ou me orientando ? Já fiz testes utilizando e não utilizando "ACBrNFe1.EventoNFe.Evento.Clear"; Acredito que o fórum é para cooperar e não para criar enigmas. Tento ao máximo buscar informações nos posts já abertos e só registro um novo em última instância que é o caso. Pelo forma que você falou, deve ser uma situação MUITO SIMPLES que estou errando e me desculpe por não ter entendido o retorno, mas as vezes passamos por isso. Att. Leandro

Bom Dia ! Já realizei vários testes e não consegui identificar o problema. Também já procurei vários assuntos relacionados no fórum. A situação é a seguinte: Estou tentando enviar um evento de "Ciência de Operação", mas ao executar a função, o ACBrNFe retorna a mensagem "Campo cOrgao não informado" da unit pcnEventoNFe. Aparentemente os valores não estão sendo carregados, pois a chave de acesso da mesma unit também está em branco. PS: Não tem XML para ser carregado antes, pois justamente quero fazer a ciência da operação para baixar o XML. ACBrNFe1.EventoNFe.idLote := StrToInt(UDModule.IBQryDOC_EVENTOSIDLOTE.AsString); ACBrNFe1.EventoNFe.Evento.Add.InfEvento.id := 'ID' + UDModule.IBQryDOC_EVENTOSTPEVENTO.AsString + UDModule.IBQryDOC_EVENTOSNSEQ.AsString; ACBrNFe1.EventoNFe.Evento.Add.InfEvento.cOrgao := StrToInt(Copy(UDModule.IBQryDOC_EVENTOSCHNFE.AsString,1,2)); ACBrNFe1.EventoNFe.Evento.Add.InfEvento.tpAmb := StrToTpAmb(bBoolean,IntToStr(UDModule.IBQryDOC_EVENTOSTPAMB.AsInteger)); ACBrNFe1.EventoNFe.Evento.Add.InfEvento.CNPJ := UDModule.IBQryDOC_EVENTOSCGCCPF_EMPRESA.AsString; ACBrNFe1.EventoNFe.Evento.Add.InfEvento.chNFe := UDModule.IBQryDOC_EVENTOSCHNFE.AsString; ACBrNFe1.EventoNFe.Evento.Add.InfEvento.dhEvento := Now; ACBrNFe1.EventoNFe.Evento.Add.InfEvento.tpEvento := StrToTpEvento(bBoolean,IntToStr(UDModule.IBQryDOC_EVENTOSTPEVENTO.AsInteger)); ACBrNFe1.EnviarEventoNFe(ACBrNFe1.EventoNFe.idLote); ACBrNFe1.EventoNFe.Evento.Add.InfEvento.nSeqEvento := UDModule.IBQryDOC_EVENTOSNSEQ.AsInteger; Att. Leandro

Italo, para os passos 1 e 2, foram usados componentes ? Se positivo, qual componente ? Onde posso encontrar ? Então também poderia tentar ver algo Att. Leandro