SetupSoftcomDLL - Inicialização automática das integrações ao iniciar o Softshop
Software: SetupSoftcomDLLs | Grupo: SOFTSHOP
Solução
A partir da versão 3.1.0 do Setupsoftcomdll, as integrações com estão com sincronização automática ativa, iniciarão automaticamente ao abrir o Softshop, contudo é necessário alguns ajustes caso a versão do Softshop seja inferior a 9.6.0.0.
1 - No módulo Util_Aplicacao remover a função Util_VerificarAtualizacaoSetupDLLs e criar a função abaixo:
Public Function Util_ShellExecute(ByVal arquivo As String, ByVal parametros As String)
ShellExecute 0, vbNullString, arquivo, parametros, vbNullString, 0
End Function
2 - No Form entradaatendente criar a função abaixo:
Private Sub EnvioDeConexaoSetupDLLsParaAppsInicializaveis()
Dim caminhoArquivo As String
caminhoArquivo = "SetupSoftcomDLLsStartup.exe"
Dim parametros As String
parametros = "NULL NULL " & _
"{" & _
"'DataBaseServer':'" & Replace(Seguranca_getCampo("SqlServidor"), "", "\") & "'," & _
"'DataBaseUser':'" & Seguranca_getCampo("SqlLogin") & "'," & _
"'DataBasePassword':'" & Seguranca_getCampo("SqlSenha") & "'," & _
"'DataBasePortNumber':" & Seguranca_getCampo("SqlPorta") & "," & _
"'DataBaseTimeout':'" & Seguranca_getCampo("SqlTimeOut") & "'," & _
"'DataBaseName':'" & Seguranca_getCampo("SqlBase") & "'," & _
"'ModuloApp':'" & getModuloApp & "'" & _
"} NULL"
Util_ShellExecute caminhoArquivo, parametros
End Sub
3 - Na função AcessosConfirmarLiberar inserir a chamada para função criada, pode ficar acima da linha 183 que deixa o access transparente, segue abaixo.
If Util_VersaoSetupDLLsCompativel("3.1.0") Then
EnvioDeConexaoSetupDLLsParaAppsInicializaveis
End If
Tags: softshop, integração scanntech, integracao scanntech, scanntech, promocao combo, promoção combo, gestor promocao, gestor promoção, marketplace, market place