U0
11/06/2012 21:28
Campo libero: 
|
U0
Si, credo che siano state fatte in effetti delle modifiche relative alle aree collegate ai siti web, legate alle condizioni di visualizzazione.
|
|
U0
12/06/2012 08:33
|
U0
Quindi ? come risolvo ?
|
|
U0
12/06/2012 14:37
Campo libero:
|
U0
Ti direi di rendere visibile l'area per poter usare lo script.
Oppure prova ad allegare qui lo script cosi' vediamo come e' fatto
|
|
U0
12/06/2012 15:22
|
U0
Ti direi di rendere visibile l'area per poter usare lo script.
Fabio !!!!!
Citazione:
Oppure prova ad allegare qui lo script cosi' vediamo come e' fatto
Già meglio 
Ti allego la parte iniziale dello script che identifica l'area Web:
' Script per gli articoli con classe di sconto per Minibox della Area Riservata
' ========================================================================
' Questo script inserisce automaticamente in un gruppo di inserzioni
' e per un'area web specifica, ed una classe di sconto specifica
' i 10 articoli con data di creazione piu' recente
' ========================================================================
Option Explicit
' ======================================================
' PARAMETRI
Dim IdWebSite, NomeAreaWeb, MaxInserzioni, NomeGruppo
Dim CodiceClasseSconto
IdWebSite = 1 ' Identificativo del sito web
NomeAreaWeb="Area Riservata" ' Nome Area web in cui pubblicare le inserzioni (vuoto=tutte le aree)
CodiceClasseSconto="Mese" ' Codice della classe di sconto da filtrare (vuoto=tutte le classi di sconto)
MaxInserzioni = 50 ' Numero massimo di articoli da inserire nel gruppo
NomeGruppo="CONSIGLIATI"
' I nomi dei 4 gruppi di inserzioni sul template standard sono i seguenti
' 1° gruppo = 'INPRIMOPIANO'
' 2° gruppo = 'CONSIGLIATI'
' 3° gruppo = 'OFFERTE'
' 4° gruppo = 'IVENDUTI'
' 5° gruppo = 'GRUPPO5'
' 6° gruppo = 'GRUPPO6'
' 7° gruppo = 'GRUPPO7'
' 8° gruppo = 'GRUPPO8'
' ======================================================
Dim MyLayout, GruppoInserzioni, AreaWeb
Dim Articolo, ContaInserzioni, NewInserzione, Inserzione
Dim IdAreaWeb, ClasseArticolo
CodiceClasseSconto = Trim(Ucase(CodiceClasseSconto))
NomeAreaWeb = Trim(Ucase(NomeAreaWeb))
If Not(Rdy.ReadyVersionGreaterOrEqualThan("12.6.0")) Then
Rdy.ShowMessage "Per utilizzare questo script occorre Ready Pro v12.6.0 o superiore"
Else
Set MyLayout = Rdy.Website(IdWebSite).WebLayout
IdAreaWeb = 0
If NomeAreaWeb<>"" Then
For Each AreaWeb In MyLayout.WebAreas
If Trim(Ucase(AreaWeb.Name))=Trim(Ucase(NomeAreaWeb)) Then
IdAreaWeb=AreaWeb.id
Exit For
End If
Next
If IdAreaWeb<=0 Then
Rdy.ShowMessage "Area web <" & NomeAreaWeb & "> non trovata. Impossibile generare automaticamente le inserzioni."
IdAreaWeb=-1
End If
End If
If IdAreaWeb>=0 Then
' Svuota il gruppo di inserzioni
Set GruppoInserzioni = MyLayout.SearchInsertions(NomeGruppo,IdAreaWeb,False)
For Each Inserzione In GruppoInserzioni
Inserzione.Delete()
Next
|
|
U0
12/06/2012 16:09
Campo libero:
|
U0
1) Aggiorna Ready Pro alla versione 14.6.4 (dal menu ? / CONTROLLA AGGIORNAMENTI)
2) Modifica questa riga dello script
For Each AreaWeb In MyLayout.WebAreas
in questo modo
For Each AreaWeb In MyLayout.WebAreasFull
|
|
U0
12/06/2012 16:28
|
U0
Ok...
Domanda... Visto che la Versione è cambiata dalla 14.3...... alla 14.6....
Sicuramente ci sarà un aggiornamento degli archivi ?
Se si... devo attendere stasera.... perchè adesso non posso spegnere l'applicazione.
P.s.
In pratica devo solo aggiungere Full (credo che intenda per "Tutte") nella ricerca delle aree Web 
Cmq grazie Anticipatamente
|
|
U0
12/06/2012 17:42
Campo libero:
|
U0
Citazione:
Visto che la Versione è cambiata dalla 14.3...... alla 14.6....
Sicuramente ci sarà un aggiornamento degli archivi ?
In questo caso no (normalmente pero' si, al cambio di major release serve un aggiornamento degli archivi)
Se stai utilizzando la versione 14.3 scarica l'aggiornamento alla 14.6 da
http://www.readypro.it/software-gestionale-download.aspx
prima di usare il liveupdate per aggiornare alla 14.6.4
|
|
U0
12/06/2012 20:02
|
U0
Non ha funzionato la Correzione .... 
Ricevo questo errore:
Errore nell'esecuzione dello script
Riga : 43 Colonna : 8
Source : Errore di run-time di Microsoft VBScript
Dettaglio errore : Proprietà o metodo non supportati dall'oggetto: 'WebAreasFull'
|
|
U0
12/06/2012 20:59
Campo libero:
|
U0
Prova cosi'
For Each AreaWeb In Rdy.Website(IdWebSite).WebAreasFull
Altrimenti mi serve tutto lo script per provare, non solo un pezzo
|
|
U0
13/06/2012 09:35
|
U0
PERFETTO !!!!
Adesso Funziona Tutto 
Grazie
|
|
U0
13/06/2012 11:31
|
U0
Scusa Fabio... per non aprire un post nel quale poi non ci sarebbe proseguimento...
è possibile nello script impostare anche la Data di Validità ?
|
|
U0
13/06/2012 12:55
Campo libero:
|
U0
No, da script non e' prevista questa possibilita'
|
