Correção pastas Reinf/GTIN

[IMATECH]

Correção: linha 11965 (GTIN, gnre ficou errado no título)

  else if Configuracoes is TConfiguracoesGTIN then
  begin
    PathSchemaDFe := edtPathSchemasDFe.Text + PathDelim + 'GTIN';
    if DirectoryExists(PathSchemaDFe) then
      TConfiguracoesGTIN(Configuracoes).Arquivos.PathSchemas:= PathSchemaDFe;
  end;

erro: linha 11965

  else if Configuracoes is TConfiguracoesGTIN then
  begin
    PathSchemaDFe := edtPathSchemasDFe.Text + PathDelim + 'GTIN';
    if DirectoryExists(PathSchemaDFe) then
      TConfiguracoesReinf(Configuracoes).Arquivos.PathSchemas:= PathSchemaDFe;
  end;

 

ACBrMonitor1.pas

Editado 28 Setembro, 2023 por IMATECH

[Alexandre de Paula]

Bom dia,

Criada a TK-4517 para avaliação.

Obrigado pela contribuição.

[Alexandre de Paula]

Bom dia,

Foi comitada a sua contribuição.

Por favor atualize os fontes, reinstale os componentes e faça novos testes. Se for testar com o monitor é só baixar a versão mais atualizada.

Obrigado.