Timbrado v4.0

App_Code/CFDITimbre.vb

@@ -273,6 +273,7 @@ Public Class CFDIReceptor
     Public Property RFC As String
     Public Property Nombre As String
     Public Property RegimenFiscalReceptor As String = "601"
+    Public Property DomicilioFiscalReceptor As String = "601"
     Public Property ResidenciaFiscal As String = ""
     Public Property NumeroRegistroTributario As String = ""
     Public Property UsoCFDI As String
@@ -317,7 +318,7 @@ Public Class CFDIConceptos
     Public Property ClaveUnidad As String = ""
     Public Property Impuestos As List(Of CFDIConceptosImpuestos)
     Public Property Descuento As Decimal = 0.00D
-    Public Property ObjetoImpuesto As String = "01"
+    Public Property ObjetoImpuesto As String = "02"
     Public Property ImporteGravaIVAAdicional As Decimal = 0.00D 'caso IEPS
 
     Sub New()

App_Code/Modelos.vb

@@ -2125,7 +2125,8 @@ Namespace Modelos
             If factura.TipoDocto = "RNC" AndAlso factura.Num1 = 1 AndAlso factura.DtMovimientosUsados IsNot Nothing AndAlso ObjAcum IsNot Nothing Then
                 'Dim Mensaje As String = ""
                 Dim CveMovimiento = ObjInventario.AddMovimiento(factura.CveAlmacen, factura.CveConceptoMovimiento, 1, factura.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta,
-                                                            CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:=factura.ObservacionesMovimiento, CvePersonal:=-1, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, Modulo:="RU/G")
+                                                            CveSubProyecto, CveActivoFijo:=-1,
+                                                            Observaciones:=factura.MovimientoObservaciones, Recibio:=factura.MovimientoRecibio, CvePersonal:=-1, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, Modulo:="RU/GModel")
                 If CveMovimiento <= 0 Then
                     'Mensaje = "Error al guardar los movimientos"
                     Resultado = False
@@ -6259,7 +6260,8 @@ Namespace Modelos
         Public Property CveAlmacen As Integer
         Public Property GenerarSalidaAlmacen As Boolean = False
         Public Property CveConceptoMovimiento As Integer
-        Public Property ObservacionesMovimiento As String
+        Public Property MovimientoObservaciones As String
+        Public Property MovimientoRecibio As String
         Public Property DtMovimientosUsados As DataTable
         Public Property CveAlmacenDevolucion As Integer
         Public Property CveVenta As Integer
@@ -9965,6 +9967,8 @@ Namespace Modelos
         Public Property Pais As String
         Public Property RFC As String
         Public Property CP As String
+        Public Property CveRegimenFiscal As Integer
+        Public Property CodigoRegimenFiscal As String
         Public Property Telefono As String
         Public Property Contacto As String
         Public Property Mail As String

App_Code/Timbrado.vb

@@ -3292,10 +3292,10 @@ Public Class Timbrado
 
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
 
-            EmisorRFC = "ZUÑ920208KL4"
+            EmisorRFC = "EKU9003173C9"
-            ObjCFDITimbre.Receptor.Nombre = "ZAPATERIA URTADO ÑERI SA DE CV"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE SA DE CV"
-            ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key"
+            ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
-            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer"
+            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
 
             Clave = "12345678a"
             TimbraProduccion = False
@@ -3399,7 +3399,7 @@ Public Class Timbrado
 
 #Region "Receptor"
 
-        cfdi.Receptor(ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Receptor.Nombre, ObjCFDITimbre.Comprobante.LugarExpedicion, ObjCFDITimbre.Receptor.ResidenciaFiscal, ObjCFDITimbre.Receptor.NumeroRegistroTributario, ObjCFDITimbre.Receptor.RegimenFiscalReceptor, ObjCFDITimbre.Receptor.UsoCFDI)
+        cfdi.Receptor(ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Receptor.Nombre, ObjCFDITimbre.Receptor.DomicilioFiscalReceptor, ObjCFDITimbre.Receptor.ResidenciaFiscal, ObjCFDITimbre.Receptor.NumeroRegistroTributario, ObjCFDITimbre.Receptor.RegimenFiscalReceptor, ObjCFDITimbre.Receptor.UsoCFDI)
 
 #End Region
 
@@ -3855,7 +3855,7 @@ Public Class Timbrado
 
                 If FolioFiscal <> "" Then
 
-                    cfdi.EscribirXml(RutaArchivo & NombreArchivoXML)
+                    cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")
 
                     sw.Stop()
                     swTiempo.AppendFormat("Guardado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
@@ -3944,7 +3944,7 @@ Public Class Timbrado
             Else
                 Retorno = cfdi.Mensaje
                 MensajeErrorCFDI = cfdi.Mensaje
-                If cfdi.Xml <> "" Then cfdi.EscribirXml(RutaArchivo & NombreArchivoXML)
+                If cfdi.Xml <> "" Then cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")
 
             End If
         End If

Ventas/Ventas.aspx.vb

@@ -10945,6 +10945,8 @@ Partial Class Ventas
             Timbre.Receptor.Nombre = Obj.Cliente.Nombre
         End If
 
+        Timbre.Receptor.RegimenFiscalReceptor = Obj.Cliente.CodigoRegimenFiscal
+        Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
         Timbre.Receptor.ResidenciaFiscal = ""
         Timbre.Receptor.NumeroRegistroTributario = ""
         Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI