Painel de líderes

Beto eu fiz para importar dados da NF-e XML mas a idéia é a mesma é só mudar os nomes do campo... Obs.: Sempre pego informações diretamente do componente não sendo necessário ler o XML... mas caso queira segue o meu exemplo abaixo... var vXMLDoc: TXMLDocument; NodePrim, NodePai, NodePriEmi, NodePaiEmi, NodeCabecalho, NodePrim2, NodePai2, NodePai3, Nocab2, NodePrim3, NodePai4, NodePai5, Nocab3, NodePrim4, NodePai6, NodePai7, NodePai8, NodePai9, Nocab4 : IXMLNode; AuxChave, AuxData, AuxPesoB, AuxVNF : String; begin vXMLDoc := TXMLDocument.Create(self); AbrirXML.Title := 'Selecione o XML'; AbrirXML.DefaultExt := '*.xml'; AbrirXML.Filter := 'Arquivos XML (*.xml)|*.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; if AbrirXML.Execute then begin vXMLDoc.LoadFromFile(AbrirXML.FileName); //Le Arquivo Recibo XML'); vXMLDoc.Active := True; NodePrim := vXMLDoc.DocumentElement.ChildNodes.FindNode('protNFe'); NodePai := NodePrim.ChildNodes.FindNode('infProt'); NodePriEmi := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePaiEmi := NodePriEmi.ChildNodes.FindNode('infNFe'); NodeCabecalho := NodePaiEmi.ChildNodes['ide']; NodePrim2 := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePai2 := NodePrim2.ChildNodes.FindNode('infNFe'); NodePai3 := NodePai2.ChildNodes.FindNode('transp'); Nocab2 := NodePai3.ChildNodes['vol']; NodePrim3 := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePai4 := NodePrim3.ChildNodes.FindNode('infNFe'); NodePai5 := NodePai4.ChildNodes.FindNode('total'); Nocab3 := NodePai5.ChildNodes['ICMSTot']; NodePrim4 := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); NodePai6 := NodePrim4.ChildNodes.FindNode('infNFe'); NodePai7 := NodePai6.ChildNodes.FindNode('transp'); Nocab4 := NodePai7.ChildNodes.FindNode('vol'); AuxChave := NodePai.ChildNodes['chNFe'].text; AuxChave := FormataChave(AuxChave); txtChave.Text := Trim(AuxChave); txtChaveExit(Self); AuxData := NodeCabecalho.ChildNodes['dEmi'].text; txtEmissao.Text := Copy(AuxData,9,2)+'/'+Copy(AuxData,6,2)+'/'+Copy(AuxData,1,4); AuxPesoB := Nocab2.ChildNodes['pesoB'].text; AuxPesoB := StringReplace(AuxPesoB, '.', ',', [rfReplaceAll]); txtPBruto.Text := FormatFloat('###,##0.000', StringFloat(AuxPesoB)); txtPCalc.Text := Trim(txtPBruto.Text); AuxVNF := Nocab3.ChildNodes['vNF'].text; AuxVNF := StringReplace(AuxVNF, '.', ',', [rfReplaceAll]); txtVlNota.Text := FormatFloat('###,##0.00', StringFloat(AuxVNF)); txtVolume.Text := FormatFloat('###,##0.000', StringFloat(Nocab4.ChildNodes['qVol'].text)); txtVlNota.SetFocus; end; Espero que tenha te ajudado...

Boa tarde J. Humberto Munhoz, A partir do momento em que você carrega o XML no componente através do comando: ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); , você tem acesso a todos campos do mesmo. Para pear o CNPJ do remetente por exemplo, você consegue acessar este valor da seguinte forma: cnpj := ACBrCTe1.Conhecimentos.Items[n].CTe.Emit.CNPJCPF; ou wiht ACBrCTe1.Conhecimentos.Items[n].CTe do begin cnpj := Emit.CNPJCPF; end; Espero ter ajudado Atenciosamente.

Vai depender da versão do xml do CT-e e a versão que você está compilando dos componentes no acbr.inc

Bom dia EFV, A CC-e é um evento, sendo assim, estude o programa exemplo do componente ACBrCTe. Ele esta na pasta: ...\Exemplos\ACBrCTe\Delphi.

Olá Marco, bom dia! Eu utilizo o Delphi 7, mas tive um problema similar... Resolvi meu problema instalando o QuickReport versão 5.02, pois me informaram aqui mesmo no Forum ACBR que é necessário utilizar a versão 5 em diante para funcionar. No meu caso funcionou. Espero que esta informação seja útil para você. Obrigado, Herivelton

Veja minha assinatura que a resposta esta nela. Abraços

Aparentemente esse "Websocket" espera por um protocolo específico... O ACBrMonitor usa TCP/IP apenas, os dados não são encapsulados dentre de outro protocolo como HTTP... Seria muito semelhante a uma comunicação com "Telnet" http://acbr.sourceforge.net/ACBrMonitor/ACBrMonitor.html?ComousaroACBrMonitor.html (veja o modo TCP/IP)

Roney de Lima Melo SCV Sistemas Ltda Campo Grande/MS Delphi xe5 Firebird 2.5 Olá pessoal boa noite, bom mais um caso de sucesso, homologamos PAF-ECF ER 02.01 pela UCDB Campo Grande MS Laudo UDB0072014, DAV, DAV-OS, Pré-Venda, NF-e, Venda Concomitante, TEF dedicado. Componentes Utilizados: ACBrECF, ACBrAAC, ACBrEAD, ACBrPAF, ACBrTEFD, ACBrGAV, ACBrBAL, ACBrIBPTax, ACBrSPEDFiscal, ACBrSintegra, ACBrNFe. Mais uma vez deixo aqui minha gratidão a toda equipe e parceiros do projeto ACBr, Muito obrigado pessoal, fiquem em paz e com Deus....

Boa tarde galera, Eu estava utilizando a imagem .pcx da pasta de exemplos, porém ela saia toda preta, como um borrão. "ACBr\Exemplos\ACBrETQ\Delphi\LOGOACBR.pcx" Consegui resolver o problema convertendo a imagem para um Bitmap Monocromático, e depois convertendo ela novamente para PCX através do Photoshop, e funcionou perfeitamente!

Para certificados mais novas o XP não funciona mais, pois as novas cadeias de certificados e a criptografia utilizada não são suportadas, mesmo estando no SP3.

Segue em anexo solução para resolver os impostos de produtos serviço na versão 3.1 devido não existir mais o campo cSitTrib. pcnNFeW.pas

Boa Tarde, Caso não resolva, faça o passo-a-passo abaixo. Copie as dll's abaixo para a pasta SysWOW64 - capicom.dll - msxml5.dll - msxml5r.dll Depois execute o CMD como administrador e logo depois execute as seguintes linhas de comando. - regsvr32 %windir%\SysWOW64\capicom.dll - regsvr32 %windir%\SysWOW64\msxml5.dll Ate Mais ... -

W. E. LOGUS INFORMATIC LTDA - ME Software...................: Eficaz PAF-ECF v1.0 Dt. Homologação......: 20/11/2013 Órgão Homologador.: POLIMIG - MG Laudo.......................: POL3382013 ER............................: 02.01 Linguagem...............: Delphi XE2 SGBD.......................: Firebird 2.5 Rotinas.....................: Cupom Fiscal, NF-e, NF Consumidor, DAV, Pré-Venda, TEF Discado e Farmácia Popular. Componentes ACBr..: ACBrECF, ACBrAAC, ACBrEAD, ACBrPAF, ACBrTEFD, ACBrGAV, ACBrBAL, ACBrValidador, ACBrIBPTax, ACBrSPEDFiscal, ACBrSintegra, ACBrNFe, ACBrNFeDANFERaveCB. Agradecimento especial a todos os administradores e moderadores do fórum especialmente ao Regys, Daniel, Juliomar, Elton e Ítalo que tiraram muitas das minhas dúvidas aqui pelo fórum e que com certeza me ajudou muito a obter o conhecimento sobre PAF-ECF.