SistriForum - Il social network italiano sui rifiuti
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Ultimi argomenti attivi
» www.rentri.gov.it
Da 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

Andare in basso

Fase 2 Sviluppo VB "Movimentazione" Empty Fase 2 Sviluppo VB "Movimentazione"

Messaggio  lucky2005 Mar Apr 19, 2011 1:24 pm

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
lucky2005
lucky2005
Utente Attivo

Messaggi : 69
Data d'iscrizione : 07.02.11
Località : Catania

Torna in alto Andare in basso

Fase 2 Sviluppo VB "Movimentazione" Empty PUTREGISTRAZIONECRONOCARICO / SCARICO

Messaggio  oasis58 Lun Mag 23, 2011 7:29 pm

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 !!!
oasis58
oasis58
Membro della community

Messaggi : 11
Data d'iscrizione : 05.04.11

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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