Gamaliel

caro amigo, obrigado pela atencao, porem gostaria de mais detalhes. 1º onde posso descobrir que tipo de alteracao necessita de homologacao ou não. 2º o sistema funcionara em rede, porem a existe o Frente de loja onde finaliza as vendas e usa a impressora fiscal e o retaguarda onde controla as informações geradas pelas vendas, controles de cadastros, contas a pagar e receber, etc . . .

Desculpa pegar o bonde, mas tenho duas perguntas. Quando o sistema já esta homologado ele pode sofrer alterações sem precisar homologa-lo novamente? E a respeito de frente de loja e retaguarda, só se precisa homologar o frente de loja? :huh:

If Dir(txtanexo.Text) = "" Then ' Não encontrou Exit Function End If Espero te-lo ajudado :lol:

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Public Function pFncLeArquivoIni(cArquivo As String, cSessao As String, cParametro As String, Optional lVerificaArquivo As Boolean = True) As String Dim nTamanhoRetorno As Long Dim cRetorno As String cRetorno = Space(255) cParametro = UCase(cParametro) If lVerificaArquivo Then If Dir(cArquivo) = "" Then pFncLeArquivoIni = "" Exit Function End If End If nTamanhoRetorno = GetPrivateProfileString(UCase(cSessao), cParametro, "", cRetorno, Len(cRetorno), cArquivo) If nTamanhoRetorno > 0 Then cRetorno = Left(cRetorno, nTamanhoRetorno) pFncLeArquivoIni = cRetorno Else pFncLeArquivoIni = "" End If End Function Public Function pFncEscArqIni(cSecao As String, cNomeChave As String, cValor As String, cArquivoINI As String) As Integer Dim nRetorno As Integer On Error GoTo TrataErro nRetorno = WritePrivateProfileString(cSecao, cNomeChave, cValor, cArquivoINI) If nRetorno = False Then pFncEscArqIni = 1 End If pFncEscArqIni = 0 Exit Function TrataErro: Err.Clear pFncEscArqIni = 2 End Function Espero te-lo ajudado. :lol: