Pesquisar na Comunidade

Bom dia, Estou com um problema para ler arquivos XML com a função ACBrSAT1.CFe.LoadFromFile, fiz uma estrutura para selecionar múltiplos arquivos XML e um laço que passa pelos itens e quando finaliza, volta para o início e pula para o próximo arquivo XML. O que acontece atualmente quando executo o código. Ex: Seleciono 3 XML's, a estrutura lê todos os itens do primeiro, mas não passa para o próximo arquivo, faz o mesmo processo 3x (Número do count de arquivos selecionados). Código: if (OpenDialog1.Execute) then begin SOMA5405 := 0.0; SOMA5102 := 0.0; SOMA5101 := 0.0; while a <= OpenDialog1.Files.Count do begin v := 0; i := 0; ACBrSAT1.CFe.LoadFromFile(OpenDialog1.FileName); ShowMessage('quant itens ' + IntToStr(ACBrSAT1.CFe.Det.Count) ); while i < ACBrSAT1.CFe.Det.Count do begin edtN_CFE.Text := IntToStr(ACBrSAT1.CFe.ide.nCFe); edt_CLIENTE.Text := ACBrSAT1.CFE.Emit.xNome; //edtN_ITEM.Text := IntToStr(ACBrSAT1.CFe.DeT.Items[v].nItem); //edtNOME_PROD.Text := ACBrSAT1.CFe.Det.Items[v].Prod.xProd; //edtCFOP.Text := ACBrSAT1.CFE.Det.Items[v].Prod.CFOP; //edtV_ITEM.Text := FloatToStr(ACBrSAT1.CFe.Det.Items[v].Prod.vItem); if Pos(CFOP5405, ACBrSAT1.CFe.Det.Items.Prod.CFOP)<> 0 then begin SOMA5405 := SOMA5405 + ACBrSAT1.CFe.Det.Items.Prod.vItem; end; if Pos(CFOP5102, ACBrSAT1.CFe.Det.Items.Prod.CFOP)<> 0 then begin SOMA5102 := SOMA5102 + ACBrSAT1.CFe.Det.Items.Prod.vItem; end; if Pos(CFOP5101, ACBrSAT1.CFe.Det.Items.Prod.CFOP)<> 0 then begin SOMA5101 := SOMA5101 + ACBrSAT1.CFe.Det.Items.Prod.vItem; end; i := i+1; end; edt_SOMA5405.text := FloatToStr(SOMA5405); edt_SOMA5102.text := FloatToStr(SOMA5102); edt_SOMA5101.text := FloatToStr(SOMA5101); SOMATOTAL := (SOMA5405) + (SOMA5102) + (SOMA5101); edt_SOMATOTAL.text := FloatToStr(SOMATOTAL); a := a+1; end; end; end;

Pessoal bom dia, No componente do Sat existe a propriedade "ACBrSAT1.RespostaComando" que me retorna o Retorno que o Sat devolveu, gostaria de saber se existe o Load dele, para podermos informar a Resposta do Sat para o componente? Obrigado!

Eu instalei o ACBr e após abrir o meu projeto, em alguns momentos ele dar a mensagem de erro abaixo, contudo não tenho nenhum componente ACBr no modulo que estou abrindo. Can´t load package D:\Desenvolvimento\Componentes\ACBr\Lib\Delphi\LibD25\ACBr_SPEDImportar Não foi possível encontrar o módulo especificado. Ignore the error and continue? NOTE: Ignoring the error may cause componentes to be deleted or property values to be lost.

Boa tarde a todos estou fazendo a migração para o Trunk2, e me deparei com o erro: "Não Encontrei o atributo: versao", este erro ocorreu tanto no MDFe, quanto na NFe. Estou fazendo a chamada da seguinte forma: ACBrNFe1.NotasFiscais.LoadFromFile(wArquivo,false); O erro está dando no seguinte ponto: VersaoInfNFe := Leitor.rAtributo('versao='); if StringToFloatDef(VersaoInfNFe,-1) = -1 then raise Exception.Create('Não encontrei o atributo: versao'); o que está sendo carregado para a variavel VersaoInfNFe neste ponto é o seguinte valor: 'http://www.portalfiscal.inf.br/nfe' Gostaria de saber o que posso fazer para solucionar este problema. Segue em anexo o xml Obrigado a todos que puderem me ajudar. 51150219779606000103650010000291281695433607-nfce.xml

Bom dia, Estou com um problema em relação a NFC-e e caso alguém tenha passado por algo parecido agradeço se puder me ajudar. OBS: Se gerar a nota e enviar logo em seguida funciona tudo perfeitamente. Estou testando o modo Offline: Ide.tpEmis := teOffLine; Após preencher as tags executo o trecho abaixo: ACBrNFe1.NotasFiscais.GerarNFe; // gera o xml corretamente ACBrNFe1.NotasFiscais.Assinar; // assina utilizando o certificado ACBrNFe1.NotasFiscais.Validar; // valida o xml perante os schemas ACBrNFe1.NotasFiscais.Imprimir; // imprime via consumidor E fica salvo o XML para ser enviado posteriormente, mas ao executar o trecho abaixo para enviar o XML me ocorre um erro. OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFe1.WebServices.Envia(Alote); Alguém teria uma ideia do que posso estar fazendo de errado? Desde já agradeço a atenção.

Pessoal, estou tentando instalar uma cópia do meu sistema emissor de NFe num cliente. Quando abro o executável, recebo aquele erro do Windows dizendo "Esse programa encontrou um problema e precisa ser fechado". Pois bem, para tirar dúvidas, copiei a pasta do DEMO que acompanha o ACBr, e ao dar abrir o executável desse demo , recebo a mesma mensagem (imagem em anexo). Esse mesmo DEMO instalado em outro computador funciona normalmente. Andei lendo tópicos que citam aquelas configurações na página AVANÇADO nas Propriedades da Internet, e deixei os campo "Usar SSL 3.0", "Usar TLS 1.0" assinalados, mas evitei alterar outras configurações pelo fato do programa emissor da Receita estar funcionando. Também já verifiquei vírus e não encontrei nada. Alguma sugestão ??? Cenário: 1) Certificado A3 instalado e com cartão inserido. 2) Usando o programa emissor da Receita funciona normalmente 3) Windows XP SP3 4) Internet Explorer versão 8 5) Nesse computador vários outros programas funcionam corretamente (emissor de ECF, administrativo, Ofiice, etc..) J.Humberto Munhoz MHZ Sistemas Mococa - SP