Leandro Vignoto

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

Italo, o que se pode fazer com relação a esse retorno compactado ? É algum componente para delphi que precisa ? Componente GZip ? Desenvolvimento de algorítimo ? Pesquisei algo sobre isso mas não cheguei a nenhuma conclusão. Att. Leandro

OK, entendi... Obrigado

Boa Tarde ! Estou realizando testes com ACBrNFe1.DistribuicaoDFe. Segue em anexo o XML retornado com NF Encontrada - cStat = 138. Porém, ao ler as informações da chave (ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe) a mesma está em branco. Pelo que observei, não está entrando no ponto abaixo do pcnRetDistDFeInt if (Leitor.rExtrai(3, 'resNFe') <> '') then begin FdocZip.Items.FresNFe.chNFe := Leitor.rCampo(tcStr, 'chNFe'); FdocZip.Items.FresNFe.FCNPJCPF := Leitor.rCampo(tcStr, 'CNPJ'); if FdocZip.Items.FresNFe.FCNPJCPF = '' then FdocZip.Items.FresNFe.FCNPJCPF := Leitor.rCampo(tcStr, 'CPF'); FdocZip.Items.FresNFe.FxNome := Leitor.rCampo(tcStr, 'xNome'); FdocZip.Items.FresNFe.FIE := Leitor.rCampo(tcStr, 'IE'); FdocZip.Items.FresNFe.FdhEmi := Leitor.rCampo(tcDatHor, 'dhEmi'); FdocZip.Items.FresNFe.FtpNF := StrToTpNF(ok, Leitor.rCampo(tcStr, 'tpNF')); FdocZip.Items.FresNFe.FvNF := Leitor.rCampo(tcDe2, 'vNF'); FdocZip.Items.FresNFe.FdigVal := Leitor.rCampo(tcStr, 'digVal'); FdocZip.Items.FresNFe.FdhRecbto := Leitor.rCampo(tcDatHor, 'dhRecbto'); FdocZip.Items.FresNFe.FnProt := Leitor.rCampo(tcStr, 'nProt'); FdocZip.Items.FresNFe.FcSitNFe := StrToSituacaoNFe(ok, Leitor.rCampo(tcStr, 'cSitNFe')); end; Att Leandro Vignoto Retorno WS.xml