Ir para conteúdo
  • Cadastre-se

Geraldo Rodrigues

Membros Pro
  • Total de ítens

    153
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Geraldo Rodrigues

  1. Prezados, estou tentando ler um XML de fornecedor e está ocorrendo o mesmo erro, tanto no meu programa como no DemoACBr.

    Como resolvemos isto, pois, o arquivo está autorizado normalmente.

     

    Erro Completo: 
    Exception: Falha na validação dos dados da nota: 84758

    Erro: Falha na validação dos dados da nota: 84758

    Erro Completo: Falha na validação dos dados da nota: 84758

    Element '{http://www.portalfiscal.inf.br/nfe}vBCSTDest' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}ICMS60'.

     

    Obrigado.
     

  2. Prezados, voltei a ter problema com a leitura de XML de fornecedores de clientes.

    Uso o componente;

    Testei no ACBrNFe_demo com a condição:

    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False);

    Usei XML enviado pelo cliente e o que baixei na sefaz.

     

    O que pode estar acontecendo???

     

    Obrigado.

     

    Abraço.

     

     

    31170408223221000130550010000049681130621309_sefaz.xml

    31170408223221000130550010000049681130621309_cliente.xml

    Erro_XML_Sefaz.png

    Erro_XML_Cliente.png

  3. Olá Daniel,

    1- Uso o componente;

    2-     DMFuncao.ACBrNFe.NotasFiscais.Clear;
        DMFuncao.ACBrNFe.NotasFiscais.LoadFromFile(strArquivo, True);
        try
            DMFuncao.ACBrNFe.NotasFiscais.Validar;
          if DMFuncao.ACBrNFe.NotasFiscais.Items[0].Alertas <> '' then
              MemoDados.Lines.Add('Alertas: '+DMFuncao.ACBrNFe.NotasFiscais.Items[0].Alertas);
                Result:=True;
        except
            on E: Exception do begin
                    TabPagina.ActivePage:=TabAlertas;
            MemoDados.Lines.Add('Exception: '+E.Message);
            MemoDados.Lines.Add('Erro: '+DMFuncao.ACBrNFe.NotasFiscais.Items[0].ErroValidacao);
            MemoDados.Lines.Add('Erro Completo: '+DMFuncao.ACBrNFe.NotasFiscais.Items[0].ErroValidacaoCompleto);
              Mensagem('NFe INVÁLIDA.||'+strArquivo+'||');
          end;
        end;

     

    3- No Demo também dá erro.

        Uso a opção Validar XML, informando o arquivo XML.

     

     

    Obrigado.

     

    Abraço.

     

     

     

    Demo1.png

    Demo2.png

  4. Juliomar, eu já tentei várias situações:

    - Indicando como no demo:

      cbxGP.Items.Clear ;
      For I := Low(TACBrTEFDTipo) to High(TACBrTEFDTipo) do
         cbxGP.Items.Add( GetEnumName(TypeInfo(TACBrTEFDTipo), integer(I) ) ) ;
      cbxGP.Items[0] := 'Todos' ;
      cbxGP.ItemIndex := 0 ;

      Nesta opção escolho no combobox a opção gpTefDial;

    - Indicando: cbxGP.ItemIndex := 1 ;

    -  Indicando direto: ACBrTEFD1.Inicializar( gpTefDial );

     

     

  5. Olá Juliomar.

     

    Sim, programei todos os eventos e também escolhi a solução tef.

    A mensagem surge na   ' procedure TACBrTEFD.Inicializar(GP : TACBrTEFDTipo);' - em:

     

         GPAtual := GP ;
         try
           fTefClass.Inicializado := True;   -  aqui .....
           fTefClass.Habilitado   := True;
         except
           fTefClass.Inicializado := False;
           raise ;
         end;
     

     

  6. Prezados, estou tentando colocar o TEF num projeto.

    No create carrego os dois combobox igual ao exemplo ACBr, mas quando mando inicializar recebo a mensagem 'argument out of range'.

    O que estou fazendo errado ou não fazendo?

    Obrigado.

     

    Abraço.

     

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.