Ultimi argomenti attivi
» www.rentri.gov.itDa fabiodafirenze Ieri alle 7:11 pm
» Sul registro di Intermediaizone (modello B) va indicato il progressivo di registrazione?
Da tfrab Mar Apr 16, 2024 1:32 pm
» multimodal - quantità totale
Da tfrab Ven Apr 12, 2024 2:35 pm
» Tubi fluorescenti ADR SI/NO
Da homer Lun Mar 25, 2024 7:14 pm
» grado riempimento cisterna... e dove cavolo trovo le densità
Da lotus1 Ven Mar 22, 2024 3:54 pm
» quiz esame ADR 2023
Da massimilianom Ven Mar 22, 2024 11:45 am
» MUD 2024 quando si farà?
Da fabiodafirenze Mer Mar 13, 2024 5:52 pm
» abbandono rifiuti all'interno di manufatti
Da marcos79 Dom Mar 10, 2024 3:51 pm
» Abbandono rifiuti su suolo pubblico
Da marcos79 Dom Mar 10, 2024 3:24 pm
» Relazione annuale consulente ADR
Da tfrab Lun Mar 04, 2024 3:10 pm
Fase 2 Sviluppo VB "Movimentazione"
2 partecipanti
Pagina 1 di 1
Fase 2 Sviluppo VB "Movimentazione"
Iniziamo la seconda fase di sviluppo del nostro applicativo in visual basic.
Ribadisco che operiamo in ambiente effettivo.
******** Metodo GetAzienda per estrapolare IDSIS *********
Dim obj1 As ServiceReference1.SIS_WSDLClient = New ServiceReference1.SIS_WSDLClient
Dim identity = "userid"
Dim codfisc1 = "codicefiscale"
Dim obj2 As ParametriAggiuntivi = New ParametriAggiuntivi
Dim mysedesummary = obj1.GetAzienda(identity, obj2, codfisc1).sediSummary
Dim myidsissede = mysedesummary(0).idSIS
' **** Interroghiamo i registri attivi ***********
Dim myelencoregistri = obj1.GetRegistroCronologico(identity, obj2, myidsissede)
Dim i As Integer
i = 0
For i = 0 To UBound(myelencoregistri)
Dim mycampocodice = (myelencoregistri(i).codiceRegistroCronologico)
Dim mycampodescr = (myelencoregistri(i).idSIS)
MsgBox(mycampocodice + " " + mycampodescr)
Next i
Successivamente posterò l'interrogazione delle movimentazioni
Ribadisco che operiamo in ambiente effettivo.
******** Metodo GetAzienda per estrapolare IDSIS *********
Dim obj1 As ServiceReference1.SIS_WSDLClient = New ServiceReference1.SIS_WSDLClient
Dim identity = "userid"
Dim codfisc1 = "codicefiscale"
Dim obj2 As ParametriAggiuntivi = New ParametriAggiuntivi
Dim mysedesummary = obj1.GetAzienda(identity, obj2, codfisc1).sediSummary
Dim myidsissede = mysedesummary(0).idSIS
' **** Interroghiamo i registri attivi ***********
Dim myelencoregistri = obj1.GetRegistroCronologico(identity, obj2, myidsissede)
Dim i As Integer
i = 0
For i = 0 To UBound(myelencoregistri)
Dim mycampocodice = (myelencoregistri(i).codiceRegistroCronologico)
Dim mycampodescr = (myelencoregistri(i).idSIS)
MsgBox(mycampocodice + " " + mycampodescr)
Next i
Successivamente posterò l'interrogazione delle movimentazioni
lucky2005- Utente Attivo
- Messaggi : 69
Data d'iscrizione : 07.02.11
Località : Catania
PUTREGISTRAZIONECRONOCARICO / SCARICO
Mi trovo nei pasticci per la gestione PUTREGISTRAZIONECRONOCARICO
ho provato con questa porzione si codice ma niente da fare (ovviamente ci sono degli omissis)
Dim objSIS As SIS_WSDLClient = New SIS_WSDLClient
Dim identity = "miaidentity0123"
Dim codfisc = "MIOCODICEFISCALE"
Dim objPA As ParametriAggiuntivi = New ParametriAggiuntivi
Dim obj_registrazione As RegistrazioneCrono_Base = New RegistrazioneCrono_Base
Dim objIDSISregistro as String = "15033"
Dim lngQta As SIS.ServiceReference_SIS.LongNumber = New LongNumber
'******************
' autenticazione
......................
'******************
' assegno i valori da qui
lngQta.long = <quantita>
...............
...............
' a qui
Dim obj_UUID_Transazione As String
obj_UUID_Transazione = "TMP0123456"
Dim objregcronocar = objSIS.PutRegistrazioneCronoCarico(identity, objPA, objIDSISregistro, obj_registrazione, obj_UUID_Transazione)
La procedura va in errore ovviamente.
In particolare come faccio ad assegnare i valori alla classe obj_registrazione, quali sono i campi obbligatori ?
Qualcuno ha un esempio funzionante per gestire le PUTREGISTRAZIONECRONOCARICO ?
Grazie 1000 a chi ci da una mano !!!
ho provato con questa porzione si codice ma niente da fare (ovviamente ci sono degli omissis)
Dim objSIS As SIS_WSDLClient = New SIS_WSDLClient
Dim identity = "miaidentity0123"
Dim codfisc = "MIOCODICEFISCALE"
Dim objPA As ParametriAggiuntivi = New ParametriAggiuntivi
Dim obj_registrazione As RegistrazioneCrono_Base = New RegistrazioneCrono_Base
Dim objIDSISregistro as String = "15033"
Dim lngQta As SIS.ServiceReference_SIS.LongNumber = New LongNumber
'******************
' autenticazione
......................
'******************
' assegno i valori da qui
lngQta.long = <quantita>
...............
...............
' a qui
Dim obj_UUID_Transazione As String
obj_UUID_Transazione = "TMP0123456"
Dim objregcronocar = objSIS.PutRegistrazioneCronoCarico(identity, objPA, objIDSISregistro, obj_registrazione, obj_UUID_Transazione)
La procedura va in errore ovviamente.
In particolare come faccio ad assegnare i valori alla classe obj_registrazione, quali sono i campi obbligatori ?
Qualcuno ha un esempio funzionante per gestire le PUTREGISTRAZIONECRONOCARICO ?
Grazie 1000 a chi ci da una mano !!!
oasis58- Membro della community
- Messaggi : 11
Data d'iscrizione : 05.04.11
Argomenti simili
» Gestione formulari in fase transitoria
» vademecum filiera sistri da creare
» Registrazioni nei registri per la fase di cernita R13
» DL Sviluppo approvato
» è necessaria la compilazione della fase di carico ?
» vademecum filiera sistri da creare
» Registrazioni nei registri per la fase di cernita R13
» DL Sviluppo approvato
» è necessaria la compilazione della fase di carico ?
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.