Jump to content

Assista tectoy.png

chamada diadoacbr

Arquivo de schema não especificado


  • Este tópico foi criado há 849 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Ao copiar da minha maquina para o cliente os arquivos schema, eles ficarão todos em minusculo, esta parte do código faz a comparação usando sensitivo case:

Fazendo com que não ache os arquivos

Compacte os arquivos que estao na pasta "acbr\Exemplos\ACBrDFe\Schemas\", e descompacte na cliente, que se for este o seu problema vai resolver, ou muda a linha para:  if (LowerCase(copy(ArqAtual, 1, LenNome)) = LowerCase(NomeSchema)) then 

Espero ajudar os que como eu perderão um tempão tentando achar o problema, sendo que a configuração estava toda correta, e na minha maquina funciona tudo certinho.

ARQUIVO: TACBrDFe

TACBrDFe.AchaArquivoSchema

LINHA:       if (copy(ArqAtual, 1, LenNome) = NomeSchema) then

Parte do código:

  if (AVersao = 0) then
    ArqAtual := NomeSchema + CSCHEMA_EXT
  else
    ArqAtual := NomeSchema + FPSeparadorVersaoSchema + VersaoSchemaDoubleToString(AVersao) + CSCHEMA_EXT ;

  P := FListaDeSchemas.IndexOf(ArqAtual);

  if P >= 0 then
  begin
    ArqSchema := FListaDeSchemas[P];
    VersaoMaisProxima := AVersao;
  end
  else if AVersao > 0 then
  begin
    NomeSchema := NomeSchema + FPSeparadorVersaoSchema;
    LenNome := Length(NomeSchema);

    For I := 0 to FListaDeSchemas.Count-1 do
    begin
      ArqAtual := FListaDeSchemas[I];

      if (copy(ArqAtual, 1, LenNome) = NomeSchema) then
      begin
        VersaoArq := VersaoSchemaStringToDouble(ExtrairVersaoNomeArquivoSchema(ArqAtual));
        if (VersaoArq > 0) and
           (VersaoArq > VersaoMaisProxima) and
           (VersaoArq <= AVersao) then
        begin
          VersaoMaisProxima := VersaoArq;
          ArqSchema := ArqAtual;
        end;
      end;
    end;
  end;

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 849 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.