Ultimi argomenti attivi
» attestazione di avvenuto recupero - art 198 c2bisDa romeo2 Mer Gen 25, 2023 12:54 pm
» MUD Comuni
Da luanap Mer Gen 25, 2023 12:34 pm
» art. 193-bis: INTERMODALE: un passo in avanti o 2 indietro ?
Da vaghestelledellorsa Mer Gen 18, 2023 9:48 pm
» stampa registro r/c in modalità digitale
Da tfrab Mer Gen 18, 2023 10:10 am
» modalità semplificata e ordinaria di gestione dei RAEE
Da tfrab Mar Gen 17, 2023 10:20 am
» RIFIUTI DA EMULSIONI OLEOSE E TRASPORTO MERCI PERICOLOSE
Da tfrab Gio Gen 12, 2023 5:18 pm
» MUD 2023 - ci sono novità?
Da nickcla Mer Gen 11, 2023 1:44 pm
» raggruppamento temporaneo presso la sede o unità locale del manutentore
Da Paolo UD Mer Gen 11, 2023 1:13 pm
» Cantiere edile: come compilare correttamente il mud?
Da erdna79 Mar Gen 10, 2023 1:08 pm
» Comunicazione nomina consulente ADR e sedi operative
Da Maniscalco Mar Gen 10, 2023 12:09 am
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

» 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.