Private tipiRk As Dictionary(Of String, String)
Private tipiRkDoc As Dictionary(Of String, String)
Private tipiRkOrd As Dictionary(Of String, String)
Private tipiRkOff As Dictionary(Of String, String)
Private tipiRkDiff As Dictionary(Of String, String)
Me.tipiRkDoc = New Dictionary(Of String, String)
.Add("A", "Fattura immediata")
.Add("C", "Corrispettivo emesso")
.Add("D", "Fattura differita emessa")
.Add("E", "Nota di addebito emessa")
.Add("F", "Ric. Fiscale emessa")
.Add("I", "Riemissione Ric. fiscale")
.Add("J", "Nota accr. ricevuta")
.Add("L", "Fattura immediata ricevuta")
.Add("M", "DTT ricevuto")
.Add("K", "Fattura differita ricevuta")
.Add("N", "Nota accr. emessa")
.Add("T", "Carico da produzione")
.Add("W", "Nota di prelievo")
.Add("Z", "Bolla di mov. interna")
Me.tipiRkOrd = New Dictionary(Of String, String)
.Add("R", "Impegno cliente")
.Add("O", "Ordine fornitore")
.Add("H", "Ordine di produzione")
.Add("X", "Impegno di trasferimento")
.Add("#", "Impegno di commessa")
.Add("V", "Impegno cliente aperto")
.Add("$", "Ordine fornitore aperto")
Me.tipiRkOff = New Dictionary(Of String, String)
Me.tipiRkDiff = New Dictionary(Of String, String)
.Add("P", "Fatt. ric. fisc. differita")
.Add("£", "Nota accred. diff. emessa")
.Add("(", "Nota accred. diff. ricevuta")
Public Function GetTipiRk() As Dictionary(Of String, String) Implements Irk.GetTipiRk
Me.tipiRk = New Dictionary(Of String, String)
For Each tipoRkDoc As KeyValuePair(Of String, String) In tipiRkDoc
tipiRk.Add(tipoRkDoc.Key, tipoRkDoc.Value)
For Each tipoRkOrd As KeyValuePair(Of String, String) In tipiRkOrd
tipiRk.Add(tipoRkOrd.Key, tipoRkOrd.Value)
For Each tipoRkOff As KeyValuePair(Of String, String) In tipiRkOff
tipiRk.Add(tipoRkOff.Key, tipoRkOff.Value)
For Each tipoRkDiff As KeyValuePair(Of String, String) In tipiRkDiff
tipiRk.Add(tipoRkDiff.Key, tipoRkDiff.Value)
Public Function ToDtt(dictionaryRk As Dictionary(Of String, String)) As DataTable Implements Irk.ToDtt
Dim dttOut As New DataTable
dttOut.Columns.Add("cod")
dttOut.Columns.Add("val")
For Each tipoRk As KeyValuePair(Of String, String) In dictionaryRk
dttOut.Rows.Add(tipoRk.Key, tipoRk.Value)
Public Function getTipiRkDoc() As Dictionary(Of String, String)
Public Function getTipiRkOrd() As Dictionary(Of String, String)
Public Function getTipiRkOff() As Dictionary(Of String, String)
Public Function getTipiRkDiff() As Dictionary(Of String, String)
Public Function RemoveRk(dictRk As Dictionary(Of String, String), tipoRk As String) As Boolean
If Not dictRk.ContainsKey(tipoRk) Then Return False
Return dictRk.Remove(tipoRk)
Public Sub AddRk(dictRk As Dictionary(Of String, String), codiceRk As String, descrizioneRk As String)
dictRk.Add(codiceRk, descrizioneRk)