Ultimi argomenti
» spazzamento spazi industriali
Da magonero Ieri alle 9:20 pm

» ESCLUSIONE NOMINA CONSULENTE ADR
Da cescal64 Ieri alle 4:23 pm

» Trovare la sede legale
Da Spigola Ven Gen 18, 2019 11:06 am

» MUD senza registro c/s
Da vp88 Mer Gen 16, 2019 5:27 pm

» TRACCIAMENTO MACERIE DA SISMA ABRUZZO
Da vp88 Mar Gen 15, 2019 7:10 pm

» Schedario di carico e scarico RAEE
Da simone1980 Lun Gen 14, 2019 2:29 pm

» Cantiere terre e rocce
Da Mike80 Lun Gen 14, 2019 11:15 am

» MUD 2019, si sa qualcosa?
Da Admin Gio Gen 10, 2019 7:49 pm

» Spes ultima dea
Da Admin Gio Gen 10, 2019 7:41 pm

» FIR : Detentore diverso dal Produttore
Da Introzzi Gio Gen 10, 2019 7:23 am


Gestione Caratteristiche di pericolo nella creazione scheda sistri

Andare in basso

Gestione Caratteristiche di pericolo nella creazione scheda sistri

Messaggio  sviluppo il Mar Lug 19, 2011 7:39 pm

Ciao a tutti!
Sto avendo un problema, forse banale, ma che non riesco a risolvere...
Sto creando una scheda sistri con il metodo "PutSchedaSISTRI_Produttore".
Ora, nel momento in cui devo gestire le caratteristiche di pericolo non riesco ad andare avanti.
Per gestire le caratteristiche di pericolo ho dichiarato le seguenti variabili:
Dim CarPer() As SISReference.Catalogo
Dim Car As New SISReference.Catalogo()
Quando le devo impostare uso il seguente codice: (esempio)
Car.idCatalogo = "H1"
CarPer(Cp) = Car
Ora, questo mi va bene se utilizzo una sola caratteristica, ma se sono più di una mi va in errore...
Voi come l'avete gestite?
Come avete dichiarato la matrice di cataloghi per le caratteristiche di pericolo??
Fatemi sapere!!!!
Vi ringrazio in anticipo!!!
Ciaoooooo!!!!!!
sviluppo
sviluppo
Utente Attivo

Messaggi : 255
Data d'iscrizione : 08.03.10
Età : 33
Località : Mercato San Severino

Torna in alto Andare in basso

Re: Gestione Caratteristiche di pericolo nella creazione scheda sistri

Messaggio  Maurizio M il Mer Lug 20, 2011 3:46 pm

Ti posto questo snippet di codice che a me funziona.
E' sviluppato in VB .net.

'definisco la registrazione cronologica
Dim RegCronologica_base As New SIS.RegistrazioneCrono_Base
With RegCronologica_base
'
'omissis
'


' definisco un array di SIS.Catalogo
Dim catarr(20) As SIS.Catalogo

' definisco un array di stringhe
Dim caratteristichePericolo() As String = Split("H4,H5,H14", ",")

' Pulisco l'array
Array.Clear(catarr, 0, catarr.Length)

' lo ridimensiono agli elementi che servono
ReDim catarr(caratteristichePericolo.Length - 1)

'ciclo l'array di stringhe e valorizzo gli elementi dell'array di sis.catalogo
For A = 0 To caratteristichePericolo.Length - 1
catarr(A) = New SIS.Catalogo
catarr(A).idCatalogo = Replace(Trim(caratteristichePericolo(A)), "-", "")
Next

' Passo nel campo caratteristiche di pericolo l'array costruito
.caratteristicaPericolo = catarr

' azzero l'array
caratteristichePericolo = Nothing


A me funziona da un bel pezzo, spero ti sia di aiuto
Maurizio M
Maurizio M
Nuovo Utente

Messaggi : 2
Data d'iscrizione : 01.10.10

Torna in alto Andare in basso

Torna in alto


 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum