- activación de timbrado con cfdi. Información Global, timbrado Global

App_Code/CFDITimbre.vb

@@ -16,6 +16,7 @@ Public Class CFDITimbre
     Public Property ComplementoPagos As CFDIComplementoPago
     Public Property ComplementoPagos20 As CFDIComplementoPagos20
     Public Property Complementos As CFDIComplementos
+    Public Property InformacionGlobal As CFDIInformacionGlobal
     Public Property Timbrado As Boolean
     Public Property IStimbreFiniquito As Boolean
 
@@ -111,6 +112,7 @@ Public Class CFDITimbre
         StrMsg = New StringBuilder
         Comprobante = New CFDIComprobante
         CFDIRelacionados = New CFDIRelacionados
+        InformacionGlobal = New CFDIInformacionGlobal
         Conceptos = New List(Of CFDIConceptos)
         Emisor = New CFDIEmisor
         Receptor = New CFDIReceptor
@@ -257,6 +259,18 @@ Public Class CFDIComplementos
 
 End Class
 
+<Serializable>
+Public Class CFDIInformacionGlobal
+    Public Property Perioricidad As String = ""
+    Public Property Meses As String = ""
+    Public Property Año As String = ""
+
+    Sub New()
+
+    End Sub
+
+End Class
+
 <Serializable>
 Public Class CFDIRelacionados
     Public Property TipoRelacion As String

App_Code/Timbrado.vb

@@ -2341,6 +2341,9 @@ Public Class Timbrado
                 cfdi.CfdiRelacionado(uid)
             Next
         End If
+        If ObjCFDITimbre.InformacionGlobal IsNot Nothing AndAlso ObjCFDITimbre.InformacionGlobal.Perioricidad <> "" Then
+            cfdi.InformacionGlobal(ObjCFDITimbre.InformacionGlobal.Perioricidad, ObjCFDITimbre.InformacionGlobal.Meses, ObjCFDITimbre.InformacionGlobal.Año)
+        End If
 #Region "Emisor"
         ' cfdi.agregarCfdiRelacionados()
         cfdi.Emisor(EmisorRFC, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, "")
@@ -2613,86 +2616,84 @@ Public Class Timbrado
             End if
 #End Region
 
-
-
         End If
 
 
 
 #Region "C O M P L E M E N T O   C A R T A   P O R T E"
 
-        'If UsuarioActual.CveEmpresa = 13 Then
+        If UsuarioActual.CveEmpresa = 13 Then
-        '    If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
-        '        Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
+            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
-        '        ''DATOS GENERALES
+                Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
-        '        cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
-        '        'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
 
-        '        'UBICACIONES
+                ''DATOS GENERALES
-        '        If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
-        '            For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
-        '                'origen
-        '                cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
-        '                'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
-        '                cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
-        '            Next
 
-        '        End If
+                'UBICACIONES
+                If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                    For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
+                        'origen
+                        cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                        'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
+                        cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
+                    Next
 
-        '        'MERCANCIAS
+                End If
-        '        If Carta.Mercancias IsNot Nothing Then
-        '            cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
-        '            If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
-        '                For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-        '                    If concep.ValorMercancia <= 0 Then concep.Moneda = ""
-        '                    cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-        '                    For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
-        '                        cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
-        '                    Next
-        '                Next
-        '            End If
-        '        End If
-        '        '
-        '        If Carta.FiguraTransporte IsNot Nothing Then
 
-        '            If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
+                'MERCANCIAS
+                If Carta.Mercancias IsNot Nothing Then
+                    cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
+                    If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
+                        For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
+                            If concep.ValorMercancia <= 0 Then concep.Moneda = ""
+                            cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                            For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
+                                cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
+                            Next
+                        Next
+                    End If
+                End If
+                '
+                If Carta.FiguraTransporte IsNot Nothing Then
 
-        '                cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
+                    If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
 
-        '                cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
+                        cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
 
-        '                cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
+                        cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
-        '                                        Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
-        '                                        Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
-        '                                        Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
 
-        '                If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
+                        cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
-        '                    For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
+                                                Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
-        '                        cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
+                                                Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
-        '                    Next
+                                                Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
 
-        '                End If
+                        If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
-        '            End If
+                            For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
+                                cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
+                            Next
 
-        '            If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
+                        End If
-        '                For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
+                    End If
-        '                    cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
-        '                    If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
-        '                        cfdi.CartaPortePartesTransporte("PT01")
-        '                        cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
-        '                    End If
-        '                Next
-        '            End If
 
-        '        End If
+                    If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
+                        For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
+                            cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
+                            If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
+                                cfdi.CartaPortePartesTransporte("PT01")
+                                cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+                            End If
+                        Next
+                    End If
 
-        '    End If
+                End If
-        'Else
+
+            End If
+        Else
 
 
-        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
                 Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
 
@@ -2757,7 +2758,7 @@ Public Class Timbrado
                     End If
                 End If
             End If
-        'End If
+        End If
 
 
 #End Region