Buenas tardes amigos es que tengo un dilema tengo un modulo de clase en vba access y necesito convertirlo a json lo que he encontrado en web solo convierte palabras pero no clases, agrego ademas la clase encabezado. estoy llenando las propiedades de la clase encabezado y convirtiéndolo a json pero aparece vació
Public id_factura As String
Public fecha As String
Public hora As String
Public nota As ArrayList
Public moneda As String
Public tipo_factura As Integer
Public metodo_de_pago As Integer
Public tipo_de_pago As Integer
Public identificador_de_pago As String
Public numero_resolucion_facturacion As String
Public fecha_vencimiento As String
Public numero_orden As String
Public prefijo As String
Public Property Get Getid_factura() As Variant
Getid_factura = id_factura
End Property
Public Property Let Setid_factura(ByVal idFactura As Variant)
id_factura = idFactura
End Property
Public Property Get Getfecha() As Variant
Getfecha = fecha
End Property
Public Property Let Setfecha(ByVal fecha As Variant)
fecha = fecha
End Property
Private Sub Comando11_Click()
Dim encabezado As Emcabezado
Set encabezado = New Emcabezado
Dim JsonItems As Collection
Set JsonItems = New Collection
Dim JsonDiccionario As Scripting.Dictionary
Set JsonDiccionario = New Scripting.Dictionary
Dim rs As Recordset
Dim idfac As String
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Facturas where IdFactura=1; ")
Do While Not rs.EOF
idfac = rs("NumeroFactura")
encabezado.id_factura = rs("NumeroFactura")
encabezado.fecha = "2020-02-17"
rs.MoveNext
Loop
MsgBox JsonConverter.ConvertToJson(encabezado)
End Sub
Agradezco su colaboración