From b4a381c2160b5bfcc78505488b992ffc85aaf9d8 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Jan 2022 23:16:50 -0700 Subject: [PATCH] Timbrado v4.0 --- App_Code/CFDITimbre.vb | 3 ++- App_Code/Modelos.vb | 8 ++++++-- App_Code/Timbrado.vb | 14 +++++++------- Ventas/Ventas.aspx.vb | 2 ++ 4 files changed, 17 insertions(+), 10 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 98dc2add6..4a747409e 100644 --- a/App_Code/CFDITimbre.vb +++ b/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() diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7a03c7d0b..cef14b36e 100644 --- a/App_Code/Modelos.vb +++ b/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 diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 6690ddf14..2bcc5fbfd 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3292,10 +3292,10 @@ Public Class Timbrado If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then - EmisorRFC = "ZUÑ920208KL4" - ObjCFDITimbre.Receptor.Nombre = "ZAPATERIA URTADO ÑERI SA DE CV" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer" + EmisorRFC = "EKU9003173C9" + UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE SA DE CV" + ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" + 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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 71fc88e46..3fffe1fc1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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