From f8c5460f392f8a3f0534c9872ebf035ce2c0040b Mon Sep 17 00:00:00 2001 From: José Maria Villac Pinheiro Date: Sun, 27 Feb 2022 20:09:05 -0300 Subject: [PATCH] Adiciondo job para atualizar automaticamente dados do sistema comercial. Colocado para não mostrar erro para o usuário quando a divisão da cota do no der zero --- db/SqlServer/jobs/jobAtualizaTabelasSistemaComercial.sql | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss | 2 +- trunk/Modules/Global.bas | 2 +- trunk/classes/CIntBilinear.cls | 2 +- 4 files changed, 70 insertions(+), 3 deletions(-) create mode 100644 db/SqlServer/jobs/jobAtualizaTabelasSistemaComercial.sql diff --git a/db/SqlServer/jobs/jobAtualizaTabelasSistemaComercial.sql b/db/SqlServer/jobs/jobAtualizaTabelasSistemaComercial.sql new file mode 100644 index 0000000..c74cec5 --- /dev/null +++ b/db/SqlServer/jobs/jobAtualizaTabelasSistemaComercial.sql @@ -0,0 +1,67 @@ +USE [msdb] +GO + +/****** Object: Job [jobAtualizaTabelasSistemaComercial] Script Date: 02/24/2022 23:51:46 ******/ +BEGIN TRANSACTION +DECLARE @ReturnCode INT +SELECT @ReturnCode = 0 +/****** Object: JobCategory [[Uncategorized (Local)]]] Script Date: 02/24/2022 23:51:46 ******/ +IF NOT EXISTS (SELECT name FROM msdb.dbo.syscategories WHERE name=N'[Uncategorized (Local)]' AND category_class=1) +BEGIN +EXEC @ReturnCode = msdb.dbo.sp_add_category @class=N'JOB', @type=N'LOCAL', @name=N'[Uncategorized (Local)]' +IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback + +END + +DECLARE @jobId BINARY(16) +EXEC @ReturnCode = msdb.dbo.sp_add_job @job_name=N'jobAtualizaTabelasSistemaComercial', + @enabled=1, + @notify_level_eventlog=0, + @notify_level_email=0, + @notify_level_netsend=0, + @notify_level_page=0, + @delete_level=0, + @description=N'No description available.', + @category_name=N'[Uncategorized (Local)]', + @owner_login_name=N'sa', @job_id = @jobId OUTPUT +IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback +/****** Object: Step [atualizarTodasTabelas] Script Date: 02/24/2022 23:51:46 ******/ +EXEC @ReturnCode = msdb.dbo.sp_add_jobstep @job_id=@jobId, @step_name=N'atualizarTodasTabelas', + @step_id=1, + @cmdexec_success_code=0, + @on_success_action=1, + @on_success_step_id=0, + @on_fail_action=2, + @on_fail_step_id=0, + @retry_attempts=0, + @retry_interval=0, + @os_run_priority=0, @subsystem=N'TSQL', + @command=N'exec dbo.atualizaTabelasSistemaComercial', + @database_name=N'geosan', + @flags=0 +IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback +EXEC @ReturnCode = msdb.dbo.sp_update_job @job_id = @jobId, @start_step_id = 1 +IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback +EXEC @ReturnCode = msdb.dbo.sp_add_jobschedule @job_id=@jobId, @name=N'Final expediente', + @enabled=1, + @freq_type=8, + @freq_interval=62, + @freq_subday_type=1, + @freq_subday_interval=0, + @freq_relative_interval=0, + @freq_recurrence_factor=1, + @active_start_date=20220225, + @active_end_date=99991231, + @active_start_time=10000, + @active_end_time=235959, + @schedule_uid=N'2cf5b330-de94-4dbc-9071-e23bbccc9bd7' +IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback +EXEC @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @jobId, @server_name = N'(local)' +IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback +COMMIT TRANSACTION +GOTO EndSave +QuitWithRollback: + IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION +EndSave: + +GO \ No newline at end of file diff --git a/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss b/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss index f408ea3..aee5cc4 100644 --- a/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss +++ b/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss @@ -1,5 +1,5 @@ #define SetupBaseName "SetupGeoSan-v." -#define AppVersionFile "08.02.00" +#define AppVersionFile "08.02.01" [Setup] AppName=GeoSan diff --git a/trunk/Modules/Global.bas b/trunk/Modules/Global.bas index fc1be15..62b2b34 100644 --- a/trunk/Modules/Global.bas +++ b/trunk/Modules/Global.bas @@ -201,7 +201,7 @@ Public Sub Main() End If 'Configura a versão atual do GeoSan Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision - Versao_Geo = "08.02.00" + Versao_Geo = "08.02.01" glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True 'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações connn = "" diff --git a/trunk/classes/CIntBilinear.cls b/trunk/classes/CIntBilinear.cls index b1e996d..24a388c 100644 --- a/trunk/classes/CIntBilinear.cls +++ b/trunk/classes/CIntBilinear.cls @@ -50,7 +50,7 @@ Trata_Erro: If Err.Number = 0 Or Err.Number = 20 Then Resume Next Else - ErroUsuario.Registra "CIntBilinear", "CalcInterpolacao - divisão por zero no MDT", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails + ErroUsuario.Registra "CIntBilinear", "CalcInterpolacao - divisão por zero no MDT", CStr(Err.Number), CStr(Err.Description), False, glo.enviaEmails End If End Function -- libgit2 0.21.2