From d8d4e7ce6724f77d2e892e411495b9e3efb8d9c4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 6 Jun 2022 12:55:05 -0700
Subject: [PATCH] - mejoras en timbrado 4.0

---
 App_Code/CFDITimbre.vb |   2 +
 App_Code/ClsPaginas.vb |  19 ++++-
 App_Code/Timbrado.vb   | 163 +++++++++++++++++------------------------
 Bin/GoCfdi.dll         | Bin 551936 -> 552448 bytes
 4 files changed, 85 insertions(+), 99 deletions(-)

diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index e51b8636f..2ce881836 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -466,6 +466,8 @@ Public Class CFDIComplementoPagos
             tRetorno.TotalTrasladosImpuestoIVA8 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.08 Select c.Importe).Sum()
             tRetorno.TotalTrasladosImpuestoIVA16 = (From c In Traslados Where c.Impuesto = "002" And c.TasaOCuota = 0.16 Select c.Importe).Sum()
 
+            tRetorno.TotalRetencionesIEPS = (From c In Retenciones Where c.Impuesto = "003" Select c.Importe).Sum()
+
             Return tRetorno
         End Get
     End Property
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 6ef8dab01..1297e28ae 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -730,7 +730,7 @@ Public Class ClsPaginas
         End Set
     End Property
 
-    Property GlobalDTRegimenesFiscales() As DataTable
+    Property GlobalDTRegimenesFiscales(Optional TipoPersona As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTRegimenesFiscales")
             'sino existe, recarga los datos
@@ -739,7 +739,18 @@ Public Class ClsPaginas
                 If ObjGral.GetRegimenFiscal(-1) Then Application(AppNombre) = ObjGral.DtResultados
                 ObjGral.Dispose()
             End If
-            GlobalDTRegimenesFiscales = DirectCast(Application(AppNombre), DataTable)
+            If TipoPersona <> -1 Then
+                Dim Str As New StringBuilder
+                If TipoPersona = 0 Then Str.Append("AplicaPersonaFisica = 1") '0 - Fisica
+                If TipoPersona = 1 Then Str.Append("AplicaPersonaMoral = 1") '1 - Moral
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                GlobalDTRegimenesFiscales = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTRegimenesFiscales = DirectCast(Application(AppNombre), DataTable)
+            End If
+
+
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = String.Format("GlobalDTRegimenesFiscales")
@@ -8965,7 +8976,7 @@ Public Class ClsPaginas
             Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos")
             If Version = "3.3" Then
                 cfdVer = "http://www.sat.gob.mx/cfd/3"
-                namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos10")
+                namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
                 PagoVersion = "pago10"
             Else ' se considera que es la version 4.0
                 cfdVer = "http://www.sat.gob.mx/cfd/4"
@@ -8990,7 +9001,7 @@ Public Class ClsPaginas
             End If
 
             Dim nodePagos As XmlNodeList
-            nodePagos = XmlDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Complemento/pago20:Pagos/pago20:Pago", Prefijo), namespaces)
+            nodePagos = XmlDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Complemento/{1}:Pagos/{1}:Pago", Prefijo, PagoVersion), namespaces)
 
             For Each Pagos As XmlNode In nodePagos
                 If Version = "4.0" AndAlso Pagos.Name = "pago20:Totales" Then
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 1b4b48413..f9341507e 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -4113,40 +4113,44 @@ Public Class Timbrado
                 Totales.TotalTrasladosBaseIVA16 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA16.RoundSQL
                 Totales.TotalTrasladosBaseIVA16Specified = Totales.TotalTrasladosBaseIVA16 > 0
                 Totales.TotalTrasladosImpuestoIVA16 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosImpuestoIVA16.RoundSQL
-                Totales.TotalTrasladosImpuestoIVA16Specified = Totales.TotalTrasladosBaseIVA16 > 0
+                Totales.TotalTrasladosImpuestoIVA16Specified = Totales.TotalTrasladosImpuestoIVA16 > 0
 
                 Totales.TotalTrasladosBaseIVA8 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA8.RoundSQL
                 Totales.TotalTrasladosBaseIVA8Specified = Totales.TotalTrasladosBaseIVA8 > 0
-                Totales.TotalTrasladosImpuestoIVA8 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA8.RoundSQL
-                Totales.TotalTrasladosImpuestoIVA8Specified = Totales.TotalTrasladosBaseIVA8 > 0
+                Totales.TotalTrasladosImpuestoIVA8 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosImpuestoIVA8.RoundSQL
+                Totales.TotalTrasladosImpuestoIVA8Specified = Totales.TotalTrasladosImpuestoIVA8 > 0
 
                 Totales.TotalTrasladosBaseIVA0 = ObjCFDITimbre.ComplementoPagos.Totales.TotalTrasladosBaseIVA0.RoundSQL
                 Totales.TotalTrasladosBaseIVA0Specified = Totales.TotalTrasladosBaseIVA0 > 0
                 Totales.TotalTrasladosImpuestoIVA0 = 0
-                Totales.TotalTrasladosImpuestoIVA0Specified = Totales.TotalTrasladosBaseIVA0 > 0
+                Totales.TotalTrasladosImpuestoIVA0Specified = Totales.TotalTrasladosBaseIVA0 > 0 ' si hay base > 0, debe de ponerse aunque sea en cero
+                If ObjCFDITimbre.ComplementoPagos.Totales.TotalRetencionesIEPS > 0 Then
+                    Totales.TotalRetencionesIEPS = ObjCFDITimbre.ComplementoPagos.Totales.TotalRetencionesIEPS.RoundSQL
+                    Totales.TotalRetencionesIEPSSpecified = True
+                Else
+                    Totales.TotalRetencionesIEPSSpecified = False
+                End If
 
-
-                Totales.TotalRetencionesIEPSSpecified = False
                 ComPag.Totales = Totales
 
-                ComPag.Pago(0).DoctoRelacionado = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado(ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados.Count - 1) {}
-                Dim i As Integer
-                For Each doc As CFDIComplementoPagosDocsRelacionados In ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados
-                    ComPag.Pago(0).DoctoRelacionado(i) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado()
-                    ComPag.Pago(0).DoctoRelacionado(i).IdDocumento = doc.IdDocumento
-                    If Not String.IsNullOrEmpty(doc.Serie) Then
-                        ComPag.Pago(0).DoctoRelacionado(i).Serie = doc.Serie
-                    End If
-                    ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio
-                    ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR
-                    ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString
-                    ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoAnt = doc.ImpSaldoAnt.RoundSQL
-                    ComPag.Pago(0).DoctoRelacionado(i).ImpPagadoSpecified = True
-                    ComPag.Pago(0).DoctoRelacionado(i).ImpPagado = doc.ImpPagado.RoundSQL
-                    ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoInsoluto = doc.ImpSaldoInsoluto.RoundSQL
-                    ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDR = doc.EquivalenciaDR
-                    ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDRSpecified = True
-                    ComPag.Pago(0).DoctoRelacionado(i).ObjetoImpDR = doc.ObjetoImpuesto
+                    ComPag.Pago(0).DoctoRelacionado = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado(ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados.Count - 1) {}
+                    Dim i As Integer
+                    For Each doc As CFDIComplementoPagosDocsRelacionados In ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados
+                        ComPag.Pago(0).DoctoRelacionado(i) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionado()
+                        ComPag.Pago(0).DoctoRelacionado(i).IdDocumento = doc.IdDocumento
+                        If Not String.IsNullOrEmpty(doc.Serie) Then
+                            ComPag.Pago(0).DoctoRelacionado(i).Serie = doc.Serie
+                        End If
+                        ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio
+                        ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR
+                        ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString
+                        ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoAnt = doc.ImpSaldoAnt.RoundSQL
+                        ComPag.Pago(0).DoctoRelacionado(i).ImpPagadoSpecified = True
+                        ComPag.Pago(0).DoctoRelacionado(i).ImpPagado = doc.ImpPagado.RoundSQL
+                        ComPag.Pago(0).DoctoRelacionado(i).ImpSaldoInsoluto = doc.ImpSaldoInsoluto.RoundSQL
+                        ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDR = doc.EquivalenciaDR.RoundSQL(6)
+                        ComPag.Pago(0).DoctoRelacionado(i).EquivalenciaDRSpecified = True
+                        ComPag.Pago(0).DoctoRelacionado(i).ObjetoImpDR = doc.ObjetoImpuesto
 
                     If doc.Impuestos IsNot Nothing Then
                         ComPag.Pago(0).DoctoRelacionado(i).ImpuestosDR = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDR
@@ -4154,8 +4158,9 @@ Public Class Timbrado
                         ''retenciones
                         If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "R").Count > 0 Then
                             Dim j As Integer = 0
+                            ComPag.Pago(0).DoctoRelacionado(i).ImpuestosDR.RetencionesDR = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRRetencionDR(doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "R").Count - 1) {}
+
                             For Each docimp As CFDIConceptosImpuestos In doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "R")
-                                ComPag.Pago(0).DoctoRelacionado(i).ImpuestosDR.RetencionesDR = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRRetencionDR(doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "R").Count - 1) {}
                                 If docimp.TrasladooRetencion = "R" Then
                                     Dim Tra As New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRRetencionDR
                                     Tra.BaseDR = docimp.Base.RoundSQL(6)
@@ -4169,12 +4174,13 @@ Public Class Timbrado
                             Next
                         End If
 
-                        ''traslados
+                        ''traslados 
                         If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "T").Count > 0 Then
                             Dim j As Integer = 0
+                            ComPag.Pago(0).DoctoRelacionado(i).ImpuestosDR.TrasladosDR = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRTrasladoDR(doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "T").Count - 1) {}
+
                             For Each docimp As CFDIConceptosImpuestos In doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "T")
 
-                                ComPag.Pago(0).DoctoRelacionado(i).ImpuestosDR.TrasladosDR = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRTrasladoDR(doc.Impuestos.Where(Function(x) x.TrasladooRetencion = "T").Count - 1) {}
                                 If docimp.TrasladooRetencion = "T" Then
                                     Dim Tra As New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoDoctoRelacionadoImpuestosDRTrasladoDR
                                     Tra.BaseDR = docimp.Base.RoundSQL(6)
@@ -4191,83 +4197,50 @@ Public Class Timbrado
                         End If
                     End If
                     i += 1
-                Next
-
-                If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 Then
-                    Dim x As Integer
-                    If ComPag.Pago(0).ImpuestosP(0) Is Nothing Then ComPag.Pago(0).ImpuestosP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosP(0) {}
-                    ComPag.Pago(0).ImpuestosP(0).RetencionesP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPRetencionP((ObjCFDITimbre.ComplementoPagos.Retenciones).Count - 1) {}
-                    For Each Ret As CFDIRetenciones In ObjCFDITimbre.ComplementoPagos.Retenciones
-                        ComPag.Pago(0).ImpuestosP(0).RetencionesP(x) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPRetencionP()
-                        ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImpuestoP = Ret.Impuesto
-                        ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImporteP = Ret.Importe
-                        x += 1
                     Next
-                End If
 
-                If ObjCFDITimbre.ComplementoPagos.Traslados.Count > 0 Then
-                    Dim x As Integer
+                If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 OrElse ObjCFDITimbre.ComplementoPagos.Traslados.Count > 0 Then
                     ComPag.Pago(0).ImpuestosP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosP(0) {}
                     ComPag.Pago(0).ImpuestosP(0) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosP()
-                    ComPag.Pago(0).ImpuestosP(0).TrasladosP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPTrasladoP((ObjCFDITimbre.ComplementoPagos.Traslados).Count - 1) {}
-                    For Each Tra As CFDITraslados In (ObjCFDITimbre.ComplementoPagos.Traslados)
-                        ComPag.Pago(0).ImpuestosP(0).TrasladosP(x) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPTrasladoP()
-                        ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImpuestoP = Tra.Impuesto
-                        ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TipoFactorP = Tra.TipoFactor
-                        ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TasaOCuotaP = Tra.TasaOCuota.RoundSQL(6)
-                        ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.Importe.RoundSQL(6)
-                        ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).BaseP = Tra.Base.RoundSQL(6)
-                        x += 1
-                    Next
+
+                    If (ObjCFDITimbre.ComplementoPagos.Retenciones).Count > 0 Then
+                        Dim x As Integer
+                        ComPag.Pago(0).ImpuestosP(0).RetencionesP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPRetencionP((ObjCFDITimbre.ComplementoPagos.Retenciones).Count - 1) {}
+                        For Each Ret As CFDIRetenciones In ObjCFDITimbre.ComplementoPagos.Retenciones
+                            ComPag.Pago(0).ImpuestosP(0).RetencionesP(x) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPRetencionP()
+                            ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImpuestoP = Ret.Impuesto
+                            ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImporteP = Ret.Importe
+                            x += 1
+                        Next
+                    End If
+
+                    If ObjCFDITimbre.ComplementoPagos.Traslados.Count > 0 Then
+                        Dim x As Integer
+                        ComPag.Pago(0).ImpuestosP(0).TrasladosP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPTrasladoP((ObjCFDITimbre.ComplementoPagos.Traslados).Count - 1) {}
+                        For Each Tra As CFDITraslados In (ObjCFDITimbre.ComplementoPagos.Traslados)
+                            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPTrasladoP()
+                            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImpuestoP = Tra.Impuesto
+                            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TipoFactorP = Tra.TipoFactor
+                            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TasaOCuotaP = Tra.TasaOCuota.RoundSQL(6)
+                            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.Importe.RoundSQL(6)
+                            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).BaseP = Tra.Base.RoundSQL(6)
+                            x += 1
+                        Next
+                    End If
                 End If
 
 
-
-
-                ''Estos impuestos aplicarían para anticipos
-                'If ObjCFDITimbre.ComplementoPagos.tota > 0 OrElse ObjCFDITimbre.ComplementoPagos.TotalImpuestosTrasladados > 0 Then
-                '    ComPag.Pago(0).ImpuestosP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosP(0) {}
-                '    ComPag.Pago(0).ImpuestosP(0) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosP()
-
-                '    If (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(x) x.TrasladooRetencion = "T").Count > 0 Then
-                '        Dim x As Integer
-                '        ComPag.Pago(0).ImpuestosP(0).TrasladosP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPTrasladoP((ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(w) w.TrasladooRetencion = "T").Count - 1) {}
-                '        For Each Tra As CFDIConceptosImpuestos In (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(w) w.TrasladooRetencion = "T")
-                '            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPTrasladoP()
-                '            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImpuestoP = Tra.Impuesto
-                '            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TipoFactorP = Tra.TipoFactor
-                '            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).TasaOCuotaP = Tra.TasaOCuota
-                '            ComPag.Pago(0).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.Importe
-                '            x += 1
-                '        Next
-                '    End If
-
-                '    If (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(x) x.TrasladooRetencion = "R").Count > 0 Then
-                '        Dim x As Integer
-                '        ComPag.Pago(0).ImpuestosP(0).RetencionesP = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPRetencionP((ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(w) w.TrasladooRetencion = "R").Count - 1) {}
-                '        For Each Ret As CFDIConceptosImpuestos In (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(w) w.TrasladooRetencion = "R")
-                '            ComPag.Pago(0).ImpuestosP(0).RetencionesP(x) = New Profact.TimbraCFDI40.Complementos.Pagos20.PagosPagoImpuestosPRetencionP()
-                '            ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImpuestoP = Ret.Impuesto
-                '            ComPag.Pago(0).ImpuestosP(0).RetencionesP(x).ImporteP = Ret.Importe
-                '            x += 1
-                '        Next
-                '    End If
-
-
-                'End If
-
-
                 Dim nsComp As New System.Xml.Serialization.XmlSerializerNamespaces()
-                nsComp.Add("pago20", "http://www.sat.gob.mx/Pagos20")
-                Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComPag, GetType(Profact.TimbraCFDI40.Complementos.Pagos20.Pagos), nsComp)
-                Dim docComp As New XmlDocument()
-                docComp.LoadXml(xmlComp)
-                'comprobante.PagosSpecified = True
-                LXmlComplementos.Add(docComp.DocumentElement)
-                TieneComplemento = True
-            End If
+                    nsComp.Add("pago20", "http://www.sat.gob.mx/Pagos20")
+                    Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComPag, GetType(Profact.TimbraCFDI40.Complementos.Pagos20.Pagos), nsComp)
+                    Dim docComp As New XmlDocument()
+                    docComp.LoadXml(xmlComp)
+                    'comprobante.PagosSpecified = True
+                    LXmlComplementos.Add(docComp.DocumentElement)
+                    TieneComplemento = True
+                End If
 
-        End If
+            End If
 #End Region
 
 
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index 8375b7d16f033cc02a05a42a7caf06629f53613f..7e2aee54eee6ecd5964a11d414171d09950b4937 100644
GIT binary patch
delta 12941
zcmY-03s@CJ{|E4yy$*=7oSTP(DJmg~DF!P2!%K-u21G{6AyGu|78R)_-a4GblPRxx
zK@XM^B`F%Fl_i#$7c?r%OIBK_lxSp_c<VK@`p@j|_Y(Cy_B@~Y?(FW_GdnvoXDK?_
zwWz-9^2J^6ahB&0{I7v@3vWkb2${?X(V+0l6`RM>`Ku`Hp(Z}hNGJc>xvcjpH|-H<
z%jH{z^Q|VYT0*1g)K%}(9yEW|8QQJK_Jus+|0VH%5>ZKAyhIY6GNEQEAwdtTB)*?4
z_SN&<G^uEOdy7N}uM<L~8MPx<-8VjZ6`Ob`ty$G)VzzpZpI2M8eBv`Sd{u`WM;9h_
zjEaU6l;$afC^PDuq#&w4A%RvkL|xTAXY0ZvIXjQ!&}m<Knv29SeI#PiCd+A3?FAi+
ze$slD#4H3k?wxIIB=w6xXOmvAwve<JKu>3^w%#J-MbO2-a_irub}1-$l0kxLK?&%i
zd*87dG~+)Yt-~&>m8N@^0gnXkvv#CKFM%R^N0Lr7eL1M`q0g+Hsj>oeAt%<_l}4=u
zg~UXXD0&n1XV5WgFIrIw+3je9#Lx!RHGbOtXyO{kdMBk=@1?nGJ-}^=-&;q~{8vD6
z{92^b-s?b@2XD2Ep+W0GBNP9&WYBTtAR}{=WgIPh6;vMQu#TsR6`-wL6KVKspt<yC
zYc6ek9W-jpEt*fOHxO}rA2GD8mZxY&C4>!QZdjkDL7RlUWK>8y+d`VL8M0Y}B8iVS
zqb5FPu`Q+%Z$j2_NSN(EG`$+MBWIIkB_&%y<v|g)Qrd*-_MpX9MuWByaeN=SJ*c;B
zJx$sUo7x}SWO<!dz6}~RINDlCOWy$nCPiDTXv7ZCTO<10s%Zsk=h*+VZKY}NL6#MA
zpKUv>c;A%swJ{obm)^J26#Mp0H`fC~9^zx??ld^lAtdu6Qt1v_Tm!qY#`lumqxGou
z5xu1MY4I+|-c5-lJLwjXd5B$f2Z(KZ)J=BL!>Ij_W=XqfqbV;N9*|_)MQ@w(_*ixS
z6i(X*aBf$b*t9ol#W1m(L{$9{p>d|X?8+peS(ptRcwFB_OHl4HBCAC0N*3CUiszqx
z7d-*;u<jiMn=#yIhRTO<G8<HpbwU~ah2l`NgM^YzdCBV!X<WZShSx&hZSIB3;90n-
zT5>8zBOlNV$cX3tVFqV2^8I1Mqz`G*M{t3sO9t6ZkD{goJYxHZmhFLT>OBV8Lo@b*
zo}L;>KBg!3friAp$v$fA2VIwhGEl`@D&0q04nS7r(G0Sm+71E#B&qZOjYGvMskD}+
zqo&YQdXUaC<t6d=s`L<D{0Y?SGtq6Uqla5H-u5X?t`nJ;^qH7z`<zyP2KvmckuPY~
z7oc*@lW+TimK*_Ym^{<=B^`Pcw0zt-%MrR5^>&AImSa>o23h9RRQeUoMqTSS*LH&L
zFy$jZPWIZqrn`^BmcyqkwVk2`Cxm=tTF=$C?`fkcFPYqPoyS)HuNHio7JqGS%9Jr#
z(rH>^%FAqHC^=16V|IeK?lW{fX6GL@xHe*TWuQUM(ru`p2f9fE-H8$nxPg9*Y8qk?
zPXnz(re{*}1HFP;+utBR(pxAWZ+hpb^bMTaoG76{Q(m?t%HXnMwlUUC8fh42J7Nv4
z2+UUU#(kdl#%vwG?azB?e+)Z5;3gO7APl=cU~rAVY&yT4exj+E74r7{6CI1$v-~qP
z(FvHnz&}$Hor+mAzkhzF1(@AX4X!zuok?_)i`3)AuqDypT!P_YepCKJS7P=<2ZQSs
z%%0$VLNncfnTOv$&9oY`EBCv}CAtGM%Ck%KBg}T?y2-EfAZCYh4X!Ue7=ALsO)k@K
zFg!lO;5v(0$XGXNp+8|3G1lN}!K`_ZL9Wo>QT2n|<SM1#!q=1^dtARt15ib=cAi;K
z?GsAWYt;2EJpWj?gblW9v^$1bfyedhG#WK8&`z$?IMj_8H@QI*Pyzi6uHmTlY_sh*
znu6NOwsB>E$a&tE{Fm0CSgJv8(xE5u`PV?-xBX7{)|=-|Dkd64ml98d7V|HLNeO2_
zFYyOwfRu0+v~p~nEl5gl09{BvW($#SpZlNA*j!S{PoVU~a!Yq9=x0#N@N!F(6!Qx{
z|J*?axl2lDhVU-l^7}|Jmq77+EYMeCEg*HsR!cuA;|gdd9}C1v%ddgNSYV)3a~&kc
z0{2LzH$Y-6kRTQP1`?yIA(C>Fi$DK}7+xhxdv8G~hF57)+-;B;US&!*{{)HQ)dcCN
zIZpHuF}!+8T1+VqeMAhe3Zx<lB!*WrrNuHxjIL%&wF*d#uI5W+s*uM=#PI4lDP4n5
z46nS>d>tf)SBs?#1`@-oB@zh)iQ(09X(&nzuU1Hv?I07QomZsn_8>9Z*&xMr0ExlQ
zMyUnlA!4*sB~^!r5Jo#6NH?vpsTl2iB$e4fVzl$I)My8Z(N3)t(Ges@JD*AoC^6dk
zTsq-|OpJDpNI@=;80?&o#)W}AVzhHgs_O(4qn+=i+B-mEv~yO<?gA2{opVw%N{n_I
zrRs3V#AxRyiFE@lq<>p3O8F5WpQ>Abm1aeO=Bf_s?^1J5P^~BPZ_90IcQkN!<{efd
zSM>$WPjpxV<@A1_-tD8U?d9FEposRd))4vn0MJ|H7n@VAP5|}e{bP4Ic@XFT|6(F!
z+Yr#H2O>!yIesYU;1~}dBFnpxv&ZrwvRr&Wgo_@yWxH2iJ{<IJV4!`ZTs9KaHFJR_
zMXpK$RgqitVY%c%(4QfZBwa2@2K~Ul*fDZq3h0iB8W}6cq=FVj+C28L^3aEY>4Uo4
zbL5goK(V8G+o#AukAk}J#`d^;7}Y+y&XzBijD_q?HO~IDe9{f7<Xg^`mB&CU_?Cro
z%{b6rzU2a0nE(=V0M9}>A_pku04wF8xgaqISSK5KATb9hm&s(1m;+SE*;7EzWe&Dh
z%Dtz9I+GOZHn~0@RF;@+-6Jo467=@O!S*^i=4nt?N}cU%k6bVlczwu2_U~l&jF6Xn
zHat%LQBFWL2E@td<O0+Qo;Au9rhMemw8!k{<%DNpFCqMq(<B$nhP||ZFvtG0oLmT6
z8<<L)<qFiD$r`yNdrId*xUZMs$)&KH334jEBs)tW8_o5roMFmG2-jt~3MB>d$C2EO
zx>t%MSLDOXU@xUwB)KLhyaam*;N#;Pa^iBxh@MJ+lM6k_nJKCCzp`xwgz0=paZ|SO
z>5I4)Ge$*{-{qU8e56{cv;868UIkn3(r!_r6qbT=Qg2aN$zBbrof1hjrFlK*c=t%c
z6jmwZC1(b_YY9{`Dm}o%c`MX*N|_n@$jc8Mw*)Em8zGxFe1#gUByWP<bPJkhH<Vn|
z=dm;Fc7<(*EIM_rJyfYd{W$p+?V?0&fh;O-n!THH0u`YZ+j}TwZ&LC6^^$|y3VV!_
zT@9OlqqVceDV?^01|}S{4pa`K!cy1T2Pw&KL3UI+W=&G6wt*hyCzGly-~K;U*+(n!
zZwq<JxP%?{Ol2?X+<+DK@k-(j3iH3WB0i%zO8t9KacYE{<S6+&L2vOXSB?^119~^b
zAd{3N)Vd^t<SH$uyyV)bkL-C$(k|HY)1Gy<Davisk(6WBd}ZnfkTu30u+LB;KI9V5
zzZ)qpSm!Baf?Pv$kJ=Y0;k!+lGno=)JII{Xl_+&6F{>+48c<@YR-)WQiOE@sVti!o
zg$-6u+e?%v5bpCHQyw2@B;PdMButN%DK)Su8Oxu4%ap1;aB5>?&e@kM%3hG0xAm1u
z9ZF1HN|h#*n7XW1*gn`&OkLI}k)~j(=2tR69&;w+SF-oRrea#PR&myX#6;?4Wt=H5
zY2lNsmz5I-Mdl@sOzS1BQwk1&(nnsjuU9(Nf!^g=xl)4~F!HMXRVDlj$ZF`H_Scl;
zFF~HJeA7)z6SDoZi}os|<QRn0xHc<MUxOA*Ywy^i-2Mji<1~k(S}FY&BxXR{lqQrs
zy{lupl6DHRJu!DVb|^vLfy#5^9PcUlsQW#W5*#~~Vx*XI)hP9*#23S7s!GiFqN0x-
z>O0Kwfs%y!u5S`oI_e<5P9G}ys4wCTt{ten?Bn`w<uJ;VZ6~{x29)gbq&hxQob_-B
zmn+q=M@d5+4o!D_tSm-d;M%L~MeTNFI`%0yQ75?eD>0{GFV(he#{p$3Y9CjvQi0lN
znd~^IoJ4(One1^KQj9ZDG02|p_(VxUb>*s4iclS_GaR2PHK;qeK2usy&shr{pDR&k
zVJ~aB4lCKHF1F_!Unpg$fm~lIM^Pg~iyfXL3TuFhS)50ep{ND6rH*4tA!-%Zab-J*
zjLuu>_)2L&Z7~dTLTPSQnd56E{s*y7FFD#VIp|wuu_+%Jo>%TTsnnp#c)e2|rM8u2
zj_(xXN2s`sSFBgEP5Fp@O1a~-vK)1hS3IMvYgL)!tkQ(_204?1eo*4inIDOq?b*)u
zqf&sn8GMVLSBhFy>1a|sCrx@usUtb4S&3?dir>(cj!Q}gDk+%H)s);;l{qde+f8{%
zrad|6io&P0X6MxsTkW{23_{tB1(x5Gv{t?6xTRE^@{%L`cz-LmJs75HdmKa^d;xYd
zEx696s%iho5vXoA<t1zR0S%Q;fXxFgZGYSmqNbyk1y|Wa)xuVtb#zsmOnFH?uh&bB
zZ-RRFL^M01)q*Aua6i8^ebgch_Xk%x`l%;PdC4Gtrv25ZpJB`UvyVFlsPj=Xj4JzJ
zwW3vL9V1lZqS%r@a`;#HkeY4EN51J<?MPGCqb>$7u%xTo`TX1b6c>Zvb7ZJNzd*&=
z{D4_%rYRrkW+VrVSEphY91$l^P!B`KUhLr}*=i$dZ4ZO11@(A$H<_riX7jY!yzT~<
z4b?dIx+6#J&Bc%JV=ZI<;2Z#<+3ieHhvKGtCuT{L)C|<oiIhxIb5S>WmaEQ3sX3J7
zs*6$UGP9&SwE|V0NlBhsjhe~pO;&4##QNv+e5aGuqZsB5&yuF7O{jw5luS{tqlWXf
zj;U(UCHPE_^0khsYTNbCX{r;mC4A9sni_*z!zbU<)C80`!gMv=6kq=ohnTKrV<-;s
zxLSx3hj{#7hsalpG3y)cCi&_*)ct(eov&7*1_rvx6Y5^neSD1ggnAftn=fZPsWyT<
zOv^AhTQEG?%T1nA*{|>kn|tvYu4+SxQ!7w=qr|BdsPU-uURl!9Y8q;MFG`;N*J;mC
z$6+Scl4hv0P#&?EG(#;yUg6<PwG2i1Qp-%W5+xSTW~sYTV)1O2T89!VThFKsD6z8j
zjM|J63tP{s%4PUSVqxo9)j%!w40e;*Y7}zaU_N(I<4^`)%_&rqQQi4UPobKDl2hDd
zj#_}S^I_Q>bv|k>zlL+wQq)#{4d<#As35*-JWs7bbqw+toVCb(?c8L(T95j?ox#<F
z8pelL3sk=HByL!i!KWDu)F9L_zUKFw8i7jYYktqEF{nv=t<a+;p`PRedykrq;$LVV
zQl#c1#Wz}{7NW#A>Q$Gc#5d|yxA@<FP#PZmvRSy0->IEDE>*Yt)ns1yO`F0pwb}0$
zg_bMgd|}Hs)F}T}QJC7M@EtYRPg8i|k~W1Os}=r7Md6_~g@@I8|7KojNLT;a=PA{B
z)&EzDlo&j?P3Z+S-T!bZuRpg<;Wc%+{|!<2ew#v~9rpju3q4oc6t>scHMq>n^44?=
z(PBVm#}uL!V<yHtA=)~W81sZ^jVLkZv1qqZV$5UFjO(z^Z!OGe)sj$GxNKUH2l<pG
z*lE{lP%m;hv=&rgsKeP&i@E{3>A~gHvQa+g9nMg#47HKVr5#0$wnaF@H1-?Ro6OZo
z8w%nppwZ4dv=zVMV`yw}ytBJjh2hxXVa}eK^S`2^mlX2nSBy5*l#kp=9&+~6wxI?D
zKjs{u)wU|nd9N0A6YAZ=>)odnn(~pDaRtu%wXLWuqrYvKw)-YNhO&&=&P2`l9V*82
z=hp}=+mw$ScyNJpr1m<hk5Ok!)^_|O$HSWK7S#KNKfcClxu$&Ntq7kpLn}oc=OYQX
zR?(_5N2b=y#UDfbfypb5)7n1wvb2OhV5j1_H(skS<zu1;pP<#CL<c@Wt3`=kGFz)h
ziF+zrYeFqd`Hb=vnA>8XKK4?|FlnM@K0o}s9+vJ44m1O}TOQZK{Q;wSa~;v9uuvQ4
z&k}{tw<%ntmHFQmg?ri*uGCKW)kk>4zSXAiRn7Pl4!taIgL8ux4>B9}2CW1$(XcmY
zl_=4$H)zc$(XcBu<uBNaXxNpS6ZLGU9{PrshI)}}qqf+Cd^NN~=q7D1Y6n-9b`wOp
z<=I0wYcYSDJ0(TNEn2M&ZB?aXn^tDZOXlz<@vhc{*&tqThZfF%!RJ?#EamlfYB8;<
zbbO#KCLR%b$tqrP&%eIfkF}HLrd}ex+Pzu=HFslvwfnSml=y1*Y1t_8)$Z2{QR1uJ
zuN9-j)9HY=4keyW2ec|Gnd2)ao_V#}UJS(}uU0#Z5|6xtS|dt4@(yY(sAG9<a!6wm
zoZ6W@gUg2cg=e2=y-_!L_K6mcYX6X%)M;s46GTIEJ!Ei>!!T)pn|!LxLX93^a227(
zk8+dGv@+DxQ3h8fs-5g6pKH5O4%y(^;(y~&-trEah0t)n*6RJg^Fog#i_?a}A2p{b
zA6u3e7kWV(3Nl;X1+5e_(ef^6)hN;OE@;<LqUHUh1u1YTM9ce03rBrxNegY#GEi5z
ze%6+Ikb$9NLoaG|s2*IuXhenG_?+WIo3(h<My^X*0cx}@FZ5Tf3N@MQvep3N-DZAh
zi`Gvw_d-Ok`J0y1s$tICT8)M+Pjs8I&UDyRbbpFI2qn5dRZni!Y^SDInBqUM@)pbV
z7R*HN7ogwGU@xNg>!2t8BZpP5H033t_Y2jpGiZ6d`<oN$(jx+(qUip@^q5waIXda{
zO+oM1S#R6>b<q!FCT@{%JtolHi+PK5)ss--7U`;|qr@%JP0#1*AzGfeN4n{S7>e$%
zyS^MHy1(xF7XQQy-hy5>3!$;xrEmAYCknr5Q}};+vp>Mi3oY%$S-_Sf^(cQ9FZ86g
zDNNUMO^LR)CNx7Y0hw(rLvO%Lw6zTVCQ7um41H)2en8&V+<FE|v^BS$kJ@QH6Pl@4
zqQ2mIOt1F<$^Q1|L&xbs?cr*_#;^8x-Px)##{@msl$ZR)o5jR`UF{rw2WH}GPtu(o
z;AGPH&z8A*3@V5JY?-Skpz?;hNuHkG0S>`u5(eiM|JF=?NyeMoz;${`pM^D+<w>rY
z`Z|z#NoMLTn2Ad=Q)j_&TyaTe>S-u(`_0m)qQoVcrO!v5vN6{)`VQ0;u4naT4|2CF
z*fm>^Fkq)AxC-@gs3BH|YmQ!u%Ho=<A4bKw?r_c1l@O>mhHJi_fcn%K;aZ^2LN#$c
zr&pscyP{nly)neR{d~+47VRq1JBin~cyqj9z1!v0(^1rRx9fSm1U1ifk87b`i+Y)>
zSicP-6Jv+E7U@Y=b1y_S7FkO4{8pv7R_P~AdC7Ku`@Nz^+3@zWPjS1}>De}@c#%J%
zUeya)Rq1$LuQSDG`F!DIqwciBmZ9x(T$}U>sKVf5)~))iRz2x@S3haWOLp>x^no7b
zfO@}9&T)OHKgGo#JU+6^IA-0a7h|}~c+&NW-ek&4e&rp^mwJ3hsMvX&+jT@QK#kxh
zdR#ARRi)!={iG=`vG97Q^e89P3+Es3J3Sk9i`P4?7YK=k<y%Ijqd~7TL*BvgPuQqC
zL!si69p<>s>-nf{eBtDhzPwdu9XE915?gvn7{8={>1n2XM4mFo^|xM$`iifA=&Y_)
zXC1*TK1|f}cu7ZoKqqV4qlL1?W(W^`7i%^J<GC=VbTUuPoREhx10{O2PAm!~I<!tK
z4kh01xPv95#G4;?FkBDtm^W8vmVu$TjXSdfl(>yMv-v1-8+T!)C~+5eVHK!;k!}*s
zYEbt_8eFxgClcJGE2~EpCm3A+TaNHw94`$HzF=n12}HBo{(%#C58CYx@j0O|p2ho@
zio)@23Wu{<{<EU+<u-+**>-<yHZT09P2mLA?0-QNS~~x;&wLi;|6UZPwke#$a{YZL
z@_uPan?fI}FeSR`^{yrCP-~`<CG4oFRje*;P}maY>>`e^ik*uZ#?=>fIqCtfc+`ph
z_tK>-8x<i5EjG1=J)f5rwv<(PO#0X;>LyEBEvk_(RxM>ssHS^`g2JIW^ftGQL3J>d
zj#`@`wtN<3e&b7-$J7evJ7Z$oEp7ci#A5nVwmRGcJGJnyd?{OxyXnTi@}+De>K5N=
z3406G&TVk*L>1?_$$!|#sMR?JR~@Q`*IUMpqCU+qxK4r0Q+tVZ=!yeUv8whGb99B1
z5vyu1u`VdFs<xc<K#5hg<tzpzR@GLpc$8RGTfy!_iB+|g>;aTmR9pG4Prr(d=9%c1
zn0UEq6?+Uf6)!iHvPmfMa#JaL93@_EDrK`!;^n5*Y(7f7+_ai4LWw1yHS9kqu>`b+
ztwD(;AU`V?5(|D}4am<nVJKc;Dr4JF;svHMR)g9Y;3jL?UewzG{Kp~oDaxJ1e;i`R
zP*eGDaWAv)P-4LU3i}Zy2K=wEUrg}@Kk+`%I(7|1@jlTyb{i$$m|D-2Zt%s3H>TFJ
z_9*ejR5`Pw#0yj9tTRfyF!d^nM2Q!sUS)kz;)SUSHW1`t;*F^aHWWkg#?)&p2_@c`
zdW}7d5^qes&fF;R#?<R92ldrRK1*cNQH>+{ERoGbiI<`(*?g3EDe4VYjPi&#t=?cI
zNb#oC8*DYmY^597X3X;WgkvLn8#RwlI5x5mP*J&K!Zxw}sJPs5T%Uu?y;QMFn2DEN
ztJn?HIS+3bRqQWhzoaZ_Gt;`m<xWVVWHSo}nY-D-?!-)V^;_6orue(3ysO{B24E&$
z2Yiza#!S2p_$Et&jEsI@Qdl)R8etxR3>n}#X02iQcLHCGUS!$BIz@tBd2D9bLAD%q
zfvb)wJs>+j(PI0YRig%E%nUoq!lNL&@Zj9AuUJq|(BvMG<XcvP3J%oBDHhdBWL}bx
zqj@;XO~Ma+r`S6nCc2$d>;shOc22PaDA8Sg$391i?&>>s0u?*r`LOR<y(upnG-5H=
zdCbJcuV<Gq6E7Nj>e)>Q$;c6Ww7_bk&GR-dcLO^IGG9?{V8591nr|pKu<MYK(<5FA
z`+=4A`KMm<zdD*`R%K=vXmL-CG_xJ1YPsyB*~2cksd$MQea+pN2fW0brr>~=SXazO
z@_Xc0))SR^KmRp~-3{WW&0iH{i6HWAtV&y$5(Afe!h;9wS6OmDka(@&59VnyxrVfV
zusrN9*86S|t|2=H^4CEEa#0iHvxEjzqDFH`0gb4V%<?cfAR!j&r6r{hHDD_0m8dMD
z1&}z%Mv=-e7BCBSH&<YQ;^`0J-t5Y-pnyVDm!Xwm9Rk<@$o}ZtnHmArs3E=oOKbu6
z4-}b?iTj{qz$jC2A9M_O1T%3TI0GKTOxy>~fLzG<b&4dR0VVM}bEiqgQ*9^sUtsj1
zjr{+8>2?197^)P%aQm3V|H(UVA5#>Y5#OQs*{JDv4SjucgtxNmn#vc93kv_I@_*V+
z<AUDlx!(W#;}CIbo%r%mHvbEdZ2o5-qaR6pWafA8@4h<Qle*^Y;!EqcJbiX&MlNHt
yeI@?s2d_c)_@BsQVRXCy#XPoXXZUpfOYDjmWoL)U?3OGYjoleCon7W7`u_ta+|r2v

delta 12922
zcmY-03s@CJ`vCBny$*=7a4sGWXrPEFWEiOQ7cVI)nIfN&atIX=6pM`160gUTM1Dzz
zVuDF#NlJxjMR~~#6${G}jY|8xP$H3`VUd|p{b%-lBjS1R@i*_x?w;M*xt(FvxsX+7
zLW<XfJoDX_OoBg+q)%`+8bwGJBSeG5x7NQpou-#i+FuQSf{~!oQ&}vs#6|mi-<-{J
z1@l~4B~Q}`I;Z4a+MhmHa)I{gzi~AW@t*|#D-o4c#Y!aJAroq*64I8WlGwqrIM#r-
zlcZHMyZ_2VeF*U*(t_FvC3nw^C}A1>=nEx-GSa0;cS%XcW4)QwGd#k)E@_!Uh_ay0
zLGr?f5aMl7{FIWBnY&iEX6|jxq&c6t>sN_06_U`|JN?g-Vh`w4#C*#|VqFcg4_|C)
zA~jEfE+#x>X(KUDfgVkH&T@-1tpQ!}-fH=aRIUa2&NhfIO)dhxKm09=LF1kQX+8E^
zEHu`=4tUc0u%#!>dKMHG8AgI=Y%wT*%Ey-8v<20i8EpxnJ{utB7Zpar={eLNKBp`L
zX~9N_bwn5>iq@ij=9fK~hHrvcWWr?2aGJ2$4cs07Kg&d#v;`Ey??o~-%0WMl+~q%w
zwxK4(|K*=TM{k9gk-F1Aji$W_+8SfG%%tJlK)bjysPYnMDgEA(MeAM$O`LX%=F;Nr
zM4Z2n7}_rXM`&CH1RJOQVtJId?GW;iiGJOzt7+V;5L+}Nj1<y(RK^4T)-{y94zZr2
z0<F)`*eXzU=1%_&v<bD<C)B!;p4bJkKKJ@t%V^shM4Z2nbc~3!zCa`QK+yKUPXCwb
znm0icM@CpGX#QIu?}P|TC1us1H^vXKR?z~~-s%5m-9=;Gf!GYcyRCa@!Mmm$FHO_P
z+qB<aQ|zmLF0R{!+@z3Q>Su7qLXa#AO{CQ{XCEBK5<5_Oht{B82puTBOLO)^?Cr^6
zWG`I@GEcFemVwyr`(0!|-Ge%E{|sqAtuy6e<Gd2A`)Q*ocOk19GMV!xX8nnYti}Pj
z()DA-VZu@8MhT5J<zd%n3#DLe*s#<3ewv4JO%t&-sQr_KwxMGAr{7Qaf!wTb55am2
z?l6NbsO_qVk@w(Yj3Gh})M6i@C{rHt@)V8hYlz{!_@Pq<k0}SmQEJKAD2*JTai$81
z``xhyXFc-Wv16t8Xyp6m3CV+!K@QSt)LgIotnbt1hai@7mq8BExEj!-Ibq}jy6-S(
zRIG~}rtPS9Nht0J#0s=TdYCpG1y#B=gB+nZj{*N6iS#ISd<cqG5@{`sMa`v&^cYPs
z<sq@dRr(>#{Rnan%5Yih=$=l^v>vBXbt2{=gEF$LpU~ouK_9y`@+mF)6tq=y=UP9d
zc_)F}=Pa~-MnmgC#c7xPPtsh}n>{Z1pQ0_O)SN{6IgLLBIe#9!)Y?GHOcj!E=Xk7N
z&~2w7Hg4`(>sgxIAXG@^4S3G_KU!zXL*@)9cU#Z>s|KH^IbWDrnKEsLbe`s!@-XW(
zO3u?I7;E6Q`vUb~?DG8v*V7ogKFlB&X$k84VJ^~0x1dA?Zlv2$Eu#$LZlqPn<Wx$&
zp<kdj4>8EM^a84oSG`NL8MP!_=$a`Hdpg|U`W0h4qFtnk{)MsXXoHJ=2_I<#uiTfZ
zVamhG`D=gKO#?94^BxyzrXd&%xyRrdh_MIx>+~JH6Jz<)46flAdz^o!7CIJVPw~&x
zLMLIYmA^mV(`1bOq8eN?Fm@r{MXpeHHU`_`4bJ%(Ji%YeAL!#4`=*D%<;K{<yiI7O
zPhrf>-=9`mjIrxuT;wV(!x-hUtMny|?ay+NYxGr&eVAo%z4iA&KN{~MKhgsjJU!mv
zI*JATrn^WR{RCs7(+#c$jJ1w1$aQ)ib#8=<{6sIKa-&b{KhdkGRnaycyMgK+SET+-
z|NIjAKh`I1yY*+Pe+AEJhWBZ`o%*7ddD}=kb)bHUa*<zXFv@GN!8HK&0(;eZgAPXR
zV!OHGK;$xSOMa#0D3)lDn>6$c_J57^UF&bO;+%PUvMs|Px)gpMw1z(zCIw#rJ<B^z
zFDdvUXv6e6tB(}h2x^{m%IYUIUiw=XtWGKKJ5X}`R{y?ITMMXd+*bc^$@&BKe=Z+`
z+%5&TLhyE8^9M=RtDsmu7Pv!d{Sl;&+T}l3in|V4$j1WF(xRV1Vk|IBDsKmgvA|tY
z{x2Xg7KoFwZh*w-YLwLSD;Mwoh!|eQOBJ^uD27)_lA{A8hF7W5xj#T+cr{C^Hb;kr
zL=3MUk#Z^J!9pU2S9wyF1QNrmg;K5z5~HidQl$bCqpRi8a#hG(NW}1Jr4*|{Pz<j;
zQo0Tj!>ct?90Q5r)zeaw7f1}RiltC*kQiRAm)3LxiP6p$DZV>MjCQt5jvgQ}*x4a9
zfZRlkb}FS}KM{n{&H?G11+t3K&im4GD@crXK9K5cATiphl~_-Z80{RFYEfde^NF<2
z0WmS!IVrUTfW%;@K^h$ha*NT<S*a=rC`LQ~lPY_G#AxTD6n`5?jCL+b^(ZmgX_AVA
zAtpvU-$|_@pw;v*|0_~bD5y}?E!U)!aL`iKZuw2B9{{R#r~c*NA#IBQ9!%|JA#%|j
zpyly)i?<v*7!=t(!qQ#d77YsR9&PcH&kO~<L4L40<l;EcVBS9Vm7_+0j`9Z+D&HIl
zI(ttT86*dd1|6H`=0jw88*=e<K17yt#z64Ndu~~W%ZtW=-uCvkO^}yQ0EMKk@SiLf
zC4ef)E&3lh?_SU!eqkh8PM!q%hCkS8a`<FWuMCY$m#vAQC&R36+jKefKfvS>eQlX?
z-hH6xiIKLsa$7R!HeT5tlK0#X>K;*N&6V?}gI-r-Y>&zZU7!k{bFtjQJ2UZCtmirN
z<?=L84bQnkZkY)Za{%{hnPmdS9AJYSngtSbfO5GVCFTHI<)&<ii8;VFIeso^W$H*v
zg={<s>P;qFcFQ%nptAUM%ON>;KIqMik+wS7`Y33|<T~pYZaH}&uzl1N+t+gIA|Vg?
zcwCJ9tsMLqsL3lvz9c838hETpE-+O{uFiYFc3BR79FF40yPOs|c`=mhes8AjdpRl}
zwAnk6w#o&lev>qERd(kuh2Y_Vf(O^aVP?sR^s3xp%0s4dU6bRAAV#=;l#5W3H}8(*
zdem?!j9i!Ztb?2zwJ`Ft9Q-Vt!HbWNf04tB@hEyCy&<Q$kqaj$(qHA9sAN8*xGCRU
z4+R%Y3?skE=QcpWDyh!;yWCg;+OOTBL`mBS%1pdPWhMSOQ0?3>qAB$+fKK-fBTQ-C
zF61E>hQ96Zt;AKhfhV%ptKF346_EA$DX0B?l$sq7TQ+XJ>Z?TUgjgS+c{W2yKz$Ou
zz-CigD<Kw<xYQP)l)no4cFrw&o8t2tC_H<ft&g$~6{;23`YX#{r=tJ$kYn0<Ta*%C
z1zEq;x>;isvI{gU?v!PivIiBIxY;&BiFyNK_0lOzf>N{_bU(kCL}k&Qzg20Qssz0$
z<RNKs)wWcn0(EKVdfQATyqb#sw~)LM`Z3K^YTki@IiW6+sU+<My}_qknToOx^!8+f
z%vK^%<p~DKQW{Ko$j=ksw`D7le7+)%d3->fb*|EgIyw22C0Chr0AfwiM{Nrf_8yn$
z|9+YLlx3N+T###YR=w>>MLB57oXHd^8$sr*u1KjuiCJBdQi~E(wIbylN=(j*ly=le
z^}MY}@p-@NF?*SE7xGht@vN~XVS2PqDTl0NI`9A1DMg3i(xyjUvK1>WAAnrEu5VDP
zYCvM@vQasK5>uDwlvb3Ox@=Os4~v{IRV!8EKyGs;Q>w%tfy0Pt)n=vRC`e4Co>xZK
zLcumZ$$DPdcMNpjyn#}=lKdekdBPRj3ks<Nz0G4=m2%Y32|w9hRFqF4wvYZ{dr67<
z4CD^sS$8TYklp89u~jO0ryw|w>s7_)3($&r-R-X_jbDPkooBaKDfwT4#0+S+asnkk
z7-HX}#GHlLp{U#K)k+&`YgUZ?9VO{&h>da2j<fGoa*$%mwNI%rB_0f)sVaQFB<cnG
z@Q$(e14<<7>pK#-Vo}HVeR@wxLVX%*aFwC5(@*OMl|3kTx{VxEYEiP&ooIhw=|DQ2
ziS|QE%sDvWiGXDL2TCrgnX5*rKpk|Z+7Bz|Pz_v16zh2?S7lANA5|uy4s+Ei1*jeV
zbL_{IgQ)lY=eX@3D(y%gTdw^hCGr9sCWNa_$wKw8EU+I}%2EBeK2{n~D=qo<PZXbv
zP;N8V2_+tNn{}oAQ)M}77}sY?HEKdYf!%#lX+_T9tXD!C;V>(#Ywf3$G*k)KX=Njb
zOwHb4|6Hj>y=EAsL8<Rlnf(hT=o@hq52^1t$>%F2*Hj@Hm%Y_~Mkz;?@p5O~N@XX@
z>|ZPGSa3HlcutA`*1Q;Eo4eJ1URi{?!V6wdR&}b(eo;AL%0ostCi#4$1YLr17YB5+
zeyb#-Zu;J$mzAteRoGh;_d$~$ve7=tr&aN3f`VVt4fd-_94f(=&()NKPL<hzR5qIO
zkW||wpX*8!#@eE*>^~_Xm+`WV75+Drm`=T8zoitL@{p7Ke19p8ZVV=BhwMb{(+maY
z`PNxgHRd1Lz15ATJY+LJp`kWmY;E_`c0V=tJ1Do#x6&4%rgiF~Jw!cW%0tfaas$<%
z7RY&5XsbO!O>S`mkMLVFNX^3F5#I{?VD+FWeoOh44pDu+hn!>5Puqv8>8J%prER2I
z(5Z{|@oKv%-sSK|I7N-W0_DCOP-Rb2J*X?bEBuqyjeP!Xw)t0l-?68tZD!Cz7V{I%
zP)Gg%1^XD2d}gYXOnHcJXpB5d-2*Z9-~KL=uGXP8_cyp2P!IKWkqosJwXCnfbraPz
zz1^Ov8m-X(v9{^Ib2>SBLt{2Ov(-=#tI3!l%~s=3^%<1RRufP+c`Qp!N2!^VWU0BR
z^3)kpwpxIyN~I)QEk-Tm<>siBLSp^%34YKyYBdJ4$IX!DswYr+<0zS{o<WV{YaKai
z8|r?(){&!jUH_b?c3|vjzUVejwO%zp65GTl-}BU9lsLnKYOE=~{wYrJpc;=saf*l3
zG?X~SL;pHOu9}0fJ0e^pS6zh~!-w6uY7uIfw~IWiR-o?YW5kEmJ*W=8oH1Xm1G$-&
zVsJKK@XSCLc|>hRwGQMnT=gbOTw0!LT!YUfE-g<DLM0EJAw8<bpk@xF<k5d!_5yV@
z#>86E0yPEY7K=#>)GXw69$cs{M^V1ivQS-v5{qYx)NLrSc(zEbLWz~F$JAPsSlN0^
ztw)K4t;f|Clvvn$Ty00KagTJ7#j4Mb@R`a-^0|xZKpA{BCtr<1_2nx)`Dz?Wp6nt^
z)MS*656hOQ>8Q>89xhe$QM>p(T&fnJeE6#IGPNAl)5mRaRw55~bCKn04eFC_2G<GH
zSU$X3p*EpX_%vgM+V*#hulcQ1SsQ$aNqo(3rD{dZ=4*v+H4-(S5A5A)EQ&wSL1dMh
zgcMJ7m70bUPt>C>LWw8pQP-7zdapFjccq!Qn!l;Nd#+VCmWE8?i3hqQmZ|lnkBP(^
zT@qhWeM*mu#5=Ex3x(ousR^aMCiBGkT@pV~3rZgqiLZ4@JfYT<9^;8dbC<-kYRC0b
zXQCAE+vlf$4%)27mOh-w%g^kR__MmG^sq>LzDpv}_LSPDNaNgJc1i56wVEnq>#{fX
z^waptTxY}Nr{#c{81wjPt59Oh<EPc3#F)olYeb1LkH6NA`pTa<ELvncJgn<nRxQho
ze8k_^VbjV{|K+l44JhvbyQ8P(^9vO0&*jkKQH73PjsR^rY6q87t42+=hB^YZR@5A>
zAT9KUc@(|^8sX@rJ$3`Tq3OP{j=owE2B-UubqvrtOnFE?@4uq7NxwqDeq@ScuvUT^
z>id9Ws8-pjY{ziT=cdT%A$Rd|cWY^;3Q1I2o@0!*9yP-lVjZh(yNTV<3}dk)UTepK
zvAq8puf_icCp>!Z3daPk5H-lCvrf{={*nDZ+D%g)@&oU_rfUhepxhgwg^m<0A9b3K
zBwSiSr^@W9T0Ix<26>0c3#MsZ`@I=j@bB;`M87vvD=<~aL<>GkD@Tb2e3n*;60Kyq
zR)Z4nRJwKowR-Z$G(&4bJv(`<l%bjZN9h;;k?!`rW(MHJct}%9`%UH5bzq0M0!Yl)
zMwc!TiF3LnKB+A){Zu5r+$C{?wy!kgK3=gebV+<sYd0k-_IAg1E$9#P9+^Gvb}bKN
zR_yKC8kDHm+qHU>sMr-+3rbY%3atb6cz_=8iWc*yc}(_St{qyg8~I{DkAR(81*)2>
zQacACeX?x<uWHu6%z|W<af?=Ip`EI*@79)^@{lFGO1!O|z}N_0u3A(0_x57mx|WyQ
zt64i$VLzbd61NC?NC_`^=wFZa1MQ%h6^1l5S}-*aV?Nr$S}aOD+QV8rN<7*lS{h0`
z+9O&HO7u=gwN)t5I~~=EsAP_>nCSCrwF(T1F0WSGgA!fdF|7_Iy1Zjr1L{<^i+rfH
zqAp|`TsKia@YqM1A;D$e<gt&mAXN7$E>fq(aLp1^H|G?Cb2J7MhPudcEd@1osKJ$m
znmN%$KGv3_awZyFYf#-}7x_fnhO)~B*SgZf_w$<fnwbc7^b4(~)HaRRyyh;6-)bFL
zZe4avK(iJqo0o0Yyk;#QWY)Z9tr#V0UbA)vC2HPxS{q8#yzewcfe-(ce^Nk;7Kggd
z^}V*pjr0zf9&kmgLiOkRL2E)4I%Wp6YC$R-W(U_*Eg3b{njLUWD?-iT`cbO|@n$nO
zpiQ%BW;r5S%^O-|r^Y%uv~mq=o@h2@y%mF^`BU@|9SVx(Pt~J3wb-HQ1*Z5Hth~lD
zy#ZsQ_4Cs049bbtuZJG~kL(tGjVWmT0`xNsY93!&S`y&YnHLlk&0nBy?NpgPNKZEf
ztzU1wYwLHLz6WEX^$XUm-sVxvS0qG_M2S}<M2|&@SEP@g#MNKaJn@e7(bF&}n!mpK
zB9v(U`s(XSSETS7w9-t38g#q9vGkNkJkTZa|MdFOelDJPqf6oh-KTU3PjuheO<Woj
zPu3Gmnca6lik=5D>spFli!srCr|9QUqOPUrp+5Kld0lhqaVSyOTzV2}ujN8Os=fyG
zDc1vfjT=agbiW*srnjM9;&*$d-qEQt`z$@7yEui1{K>0D#=q`%re20Iakppd9i|Fd
z693vVOSkrbOUvY6TW0COsO)hrlC8(~z^r-W49<0>$5Z(&8Dr*wTk?pWf+f~vOU{M*
zDv)_g7U~Tc6Sric-ii{pWT778`_C;|q)$SLTe3(`N1e4Y=VN*q>N?lsdc7NY(CO=3
ztTO`+)4-Llk4BBM*quxCeAEoCrTQLJjI)<>ncjk$#<g4z_JgAwcZ51u=qaccu9bQ*
z>PKgU)2-L}nXg|V^AC)0uF{D=6l}KK>GbHaC~Cda`GlT_TIRgVxmvG8J<nC3H-bn;
z^l0akdZfiX3Q>(G{fqRZPEB@}=m$-C$R0k1*rNMb@%6LKbveuRcq<gV!n>#!_2f=f
z*k9JGOu@p*4!r|o0o^j4JN2<PD3|Yh%CbvO>C}AZ+xkIM9<rBLqyxH-9dcfqlj(d<
zzmJP|JcVSxamsR7&%xk+W4`kv{e&qGxyBoq&-9?4P_TEJ%Xv~yMvdnedRouwRE7Nu
z{h%oi@#p2v>OKxA7tBB4*Lpna7B6>RPZkmj%eRaQd!t@u26+R+mxh}34$L~g#}emd
zJt+VVvzsrRT-6tK>Z1J@y~&h^1oB(@ryk>kobucy&cF0EsL%QOht8@xb<yt2f&xWO
zw}<rPCv>o`Em{D}HG|OUJ6XLc7|#W=7L;hw0$Dpsv}i%hC&)a#*`Nh62TJVj=*6N?
zV&_LMhU)=t^X2Nz;xH&)<K8S8C0^s+EFC3Y<J(w1O1#Clu>#cKFc%4C<)|@X23IBO
z;W!rwVKu0NID_l&<%m*kmNe4$V>1SgKm=<ny>Aw8LA74uvp`}j3o6|y6328&9LG{h
ze;0`>yChC!8%w98^TY#P5@)gc((NMgMwi4~=2QBsNW8Q6KPOtk5=!sQ;O)}<E{TP#
zz?5jJUvNInUh9l$<Y`uIs)W@gjR<_2b)YVVkL9x5CJtS~ehj~dD+tvvWH?>R;!&ZJ
zP_C&>?1}88z_qNvZL*L}q%N|SRic{sV%1u90@X5Hs0|fq=ClSw1?XWa7PUD=<V*#b
zPkb$#ZEC&at!dHS)^<J*v6#M=EeUqRVf^_cU&}mrm_GcGuVqi8Zt;T_u??thE`w_e
zsvy%vo?+Wj&t)21Rj7Tu+&Wf`I-X*1y$>=k?OFCyFb+t?s@k*c7G@QzYR@t`1TIai
zsui<tD6y(m%&aJ}s<xg5p~R}%de#pmR@FAJ+fiasZNtAleF+=NW1?MRVsldo8--cL
z=BABo0!nOd+Q_D$#O9`rECnStH$BJFQDSq`b8H?;ECFp|kD|m9&?dGNC6<6n*%Lxy
z!B4CKm9n)M6dRbzSP4pOU@Bwfs2yG|vYAz&-t^*M4zXP*R|5ZXh`oc#;orqQ&kmu)
zfPV}75G4luTi8ice8ErbCn{%OVNmQRDrb!-v1955)`Ai{re0vzQDVo`R`wf8Y?#{0
zq(1P_#D=LCnKw#on0k>}P-4T>HWmnSGqGc88w<st*fI4Ii$sYXQ!lY0D6wPeWi|pO
zc1*p@#-l!;;3C^uBC2TupCz*CD6uK3f~BLxrl?m~4$3WdTD`*ZkYcCRD{KkKtff2H
zGZ@R|6OJA1In**f;n=~pqQbML1@2@!P%&9)T)RQ$Q7YLfjET*zmFz6)lABkIO7<;s
zaKa4fRdxjxmq5v@>}Qa9nAezBU%0`dseg_6nc{m-c~k!yb7D+v2Yj9N!I;<%_&SS(
z7@2y{?7%8k9cmthj2h}bW!cA)`T_qN@udGDM#4Z_9#|N7j4eVnbJejH)a49+>nE(Z
zKja*mvM{ioDdC{zdzS`&&e~9O`iGIPSl$4L`Fd;QEb|#C<RNjHnw#?pld#f$mTdwt
z(d?XMTT!CfIm>pUM052u+l>;<)z@qvDti1Af&XJQraWxK_%&R|F(z*QId%$TVxzJ9
z96JX=GGRO)EwIW6^GeOz-N-%ynOl?_*-29#bBA&xI|DIte*Ck6-?02a|CDR}S3}dv
zip*FuEf}DYR#s-Jmdi$3-R$!&1+TJpka@zZtiu$X@G4X9Fi*iI@OR`I>yAnt!@rGU
zb`Za8zEzNggUDCWDs5veraWZUy+>_7v8cgt^ToD;-<kV_$xWpDy;}qSWX7E$xQSE`
z<J&>J5>T_`i-dZuK~3e7yy{RzsapeOui$7Xmy|G>s9uv$Tf%1$&8rDDkyHdSuap?b
zc_){*SBo22lU@<%<CQi9g13#X2<+k2iu(PI-qi3a9tyEhk-rkFSJ*J2LMGmWo?e4Y
z!F$ltYZ%7Fd*JXIg)#9SIJ^=d#_v-Y3Gm8`-Mea@RFGrc$N%nP5Uu0?-a*gsf1_y2
z>Zcs1CH^b#b(~fdt5G~?z+8JFx#t-rdCaI^*WLG2WV6D5RsO5(jcnF~R!08)Cn4g}
zg81@LJpa3oc>X6LQ}2tvZ(7Fc1EKd9-2Gy-_4_+79c|saD2p-bzlNXe@1K{&|AW_u
b*y+a7SF+iYdwb-tTe4Igz1MFJyFvdSy{Omt