>gIniFileString = "[" + gIniSecName + "]" + Chr (13) + Chr (10) + ; > Chr (13) + Chr (10) + ; > "Login = " + IIf ( gTipoLogin = "A", "Automatico", "Manual") + Chr (13) + Chr (10) + ; > "CargaArquivos = " + IIf ( gCargaArquivos = "A", "Automatica", "Manual") + Chr (13) + Chr (10) + ; > "ItensNoPedido = " + lTrim (Transform (gItensNoPedido, "999999")) + Chr (13) + Chr (10) + ; > "AGCOnetDir = " + gAGCOnetDir + Chr (13) + Chr (10) + ; > "EnviaDir = " + gEnviaDir + Chr (13) + Chr (10) + ; > "RecebeDir = " + gRecebeDir + Chr (13) + Chr (10) + ; > "AprovaDir = " + gAprovaDir + Chr (13) + Chr (10) + ; > "Comunica = " + gStartDir + "Comunica.Exe" > > StrToFile (gIniFileString, AddBS (gStartDir) + gIniFileName) && Creates the .Ini file >>