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