[[DUVIDA] Homologação Programa]

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 . . .

[[DUVIDA] Homologação Programa]

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:

[Como usar a função Dir?]

If Dir(txtanexo.Text) = "" Then
' Não encontrou
Exit Function
End If

Espero te-lo ajudado :lol:

[arquivo de configuração externo]

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: