Mike,
Another way of doing the same thing would be:
nHandle = fCreate (AddBS (gStartDir) + gIniFileName)
fPutS (nHandle, "[" + gIniSecName + "]" )
fPutS (nHandle, " " )
fPutS (nHandle, "Login = " + IIf ( gTipoLogin = "A", "Automatico", "Manual"))
fPutS (nHandle, "CargaArquivos = " + IIf ( gCargaArquivos = "A", "Automatica", "Manual"))
fPutS (nHandle, "ItensNoPedido = " + lTrim (Transform (gItensNoPedido, "999999")) )
fPutS (nHandle, "AGCOnetDir = " + gAGCOnetDir )
fPutS (nHandle, "EnviaDir = " + gEnviaDir )
fPutS (nHandle, "RecebeDir = " + gRecebeDir )
fPutS (nHandle, "AprovaDir = " + gAprovaDir )
fPutS (nHandle, "Comunica = " + gStartDir + "Comunica.Exe" )
fClose (nHandle)Fernando
