unit UnVersoes;

interface

Uses
  SysUtils, Firedac.comp.client,firedac.stan.option, unPoolConexaoFD;

Const
  VersaoEficaz = '20.325';
  VersaoPDV = '2.193';
  VersaoSistemaPedido = '1.186';
  VersaoEFIPedidosFMX = '43';
  VersaoEfiSuprimento = '0.009';
  NomeSistema = 'Sistema Corporativo';
  PR_CONTASARECEBER = 1;

Type
  TRBAtualizaDescritivoVersao = class
    private
      procedure AtualizaDescritivo1(VpaNumVersao : Double);
      function ExisteDescritivo(VpaNumVersao : Double):Boolean;
    public
      constructor cria;
      destructor Destroy;override;
      procedure AtualizaDescritivoVersao;
  end;


implementation

Uses FunSql, FunString;

{******************************************************************************}
{ TRBAtualizaDescritivoVersao }
{******************************************************************************}

{******************************************************************************}
procedure TRBAtualizaDescritivoVersao.AtualizaDescritivoVersao;
var
  VpfTabela: TFDQuery;
begin
  VpfTabela := TFDQuery.create(nil);
  try
    VpfTabela.FetchOptions.Mode := fmAll;
    VpfTabela.Connection := FunPoolConexaoFD.GetConnection;
    try
      AdicionaSQLAbreTabela(VpfTabela,'Select N_ULT_DVE FROM CFG_GERAL');
      AtualizaDescritivo1(VpfTabela.FieldByName('N_ULT_DVE').AsFloat);
      VpfTabela.close;
    Finally
      FunPoolConexaoFD.LiberarConnection;
    end;
  Finally
    VpfTabela.free;
  end;
end;

{******************************************************************************}
constructor TRBAtualizaDescritivoVersao.cria;
begin
  inherited create;
end;

{******************************************************************************}
destructor TRBAtualizaDescritivoVersao.Destroy;
begin
  inherited;
end;

{******************************************************************************}
function TRBAtualizaDescritivoVersao.ExisteDescritivo(VpaNumVersao: Double): Boolean;
var
  VpfTabela: TFDQuery;
begin
  VpfTabela := TFDQuery.create(nil);
  try
    VpfTabela.FetchOptions.Mode := fmAll;
    VpfTabela.Connection := FunPoolConexaoFD.GetConnection;
    try
      AdicionaSQLAbreTabela(VpfTabela,'Select 1 from DESCRITIVOVERSAO ' +
                                   ' Where NUMVERSAO = ' + SubstituiStr(FloatToStr(VpaNumVersao),',','.'));
      result := not VpfTabela.Eof;
      VpfTabela.close;
    Finally
      FunPoolConexaoFD.LiberarConnection;
    end;
  Finally
    VpfTabela.free;
  end;
end;

{******************************************************************************}
procedure TRBAtualizaDescritivoVersao.AtualizaDescritivo1(VpaNumVersao: Double);
var
  VpfTabela: TFDQuery;
begin
  VpfTabela := TFDQuery.create(nil);
  try
    VpfTabela.FetchOptions.Mode := fmAll;
    VpfTabela.Connection := FunPoolConexaoFD.GetConnection;
    try
      if VpaNumVersao < 5.168 then
      begin
        if not ExisteDescritivo(VpaNumVersao) then
        begin
          ExecutaComandoSql(VpfTabela,'INSERT INTO DESCRITIVOVERSAO(NUMVERSAO,DESTITULO,DESLINKAJUDA,DESOBSERVACAO, NOMAUTOR)   ' +
                                     ' VALUES (5.168,''Importação XML Conhecimento Transporte'','''',''É possível importar os dados do conhecimento de transporte  direto do xml enviado pela transportadora'',''Rafael Heiden'')');
        end;
        ExecutaComandoSql(VpfTabela,'UPDATE CFG_GERAL SET N_ULT_DVE = 5.168' );
      end;
      if VpaNumVersao < 5.182 then
      begin
        if not ExisteDescritivo(VpaNumVersao) then
        begin
          ExecutaComandoSql(VpfTabela,'INSERT INTO DESCRITIVOVERSAO(NUMVERSAO,DESTITULO,DESLINKAJUDA,DESOBSERVACAO, NOMAUTOR)   ' +
                                     ' VALUES (5.182,''LOG DE ALTERACAO DO VALOR DE CUSTO'','''',''Sempre que é feito uma alteração do valor de custo do produto o sistema grava em um arquivo '+
                                     'log, para visualizar o historico de alterações do valor de custo  entre no cadastro de produtos na pagina Preços e clique com o botão direito do mouse sobre a grade e selecione o item do menu "Visualiza Log Valor Custo"'',''Rafael Budag'')');
        end;
        ExecutaComandoSql(VpfTabela,'UPDATE CFG_GERAL SET N_ULT_DVE = 5.182' );
      end;
      if VpaNumVersao < 5.227 then
      begin
        if not ExisteDescritivo(VpaNumVersao) then
        begin
          ExecutaComandoSql(VpfTabela,'INSERT INTO DESCRITIVOVERSAO(NUMVERSAO,DESTITULO,DESLINKAJUDA,DESOBSERVACAO, NOMAUTOR)   ' +
                                     ' VALUES (5.227,''Relatorio de Margem Bruta de Produtos Vendidos'','''',''Relatorio que mostras as margens de cada produto vendido no periodo'',''Rafael Budag'')');
        end;
        ExecutaComandoSql(VpfTabela,'UPDATE CFG_GERAL SET N_ULT_DVE = 5.227' );
      end;
      if VpaNumVersao < 5.363 then
      begin
        if not ExisteDescritivo(5.363) then
        begin
          ExecutaComandoSql(VpfTabela,'INSERT INTO DESCRITIVOVERSAO(NUMVERSAO,DESTITULO,DESLINKAJUDA, NOMAUTOR,DATVERSAO,DESOBSERVACAO)   ' +
                                     ' VALUES (5.363,''Historico consulta SERASA'',''http://ajuda.eficaciaconsultoria.com.br/index.php?title=Guardar_historico_consulta_SERASA_do_cliente'',''Rafael Heiden'',trunc(sysdate),'+
                                     '''O sistema guarda o histórico das consultas feitas no SERASA para posterior consulta.''' +
                                      ')');
        end;
        ExecutaComandoSql(VpfTabela,'UPDATE CFG_GERAL SET N_ULT_DVE = 5.363' );
      end;

      VpfTabela.close;
    Finally
      FunPoolConexaoFD.LiberarConnection;
    end;
  Finally
    VpfTabela.free;
  end;
end;
end.