merge - ClsPaginas

Ventas/Ventas.aspx.vb

@@ -2184,6 +2184,37 @@ Partial Class Ventas
             ViewState("DtMercancias") = value
         End Set
     End Property
+
+
+    Private Property ClienteCodigoRegimenFiscal As String
+        Get
+
+            If ViewState("ClienteCodigoRegimenFiscal") Is Nothing Then
+                ViewState("ClienteCodigoRegimenFiscal") = ""
+            End If
+            Return ViewState("ClienteCodigoRegimenFiscal").ToString
+
+        End Get
+        Set(value As String)
+            ViewState("ClienteCodigoRegimenFiscal") = value
+        End Set
+    End Property
+
+
+    Private Property ClienteRegimenFiscal As String
+        Get
+
+            If ViewState("ClienteRegimenFiscal") Is Nothing Then
+                ViewState("ClienteRegimenFiscal") = ""
+            End If
+            Return ViewState("ClienteRegimenFiscal").ToString
+
+        End Get
+        Set(value As String)
+            ViewState("ClienteRegimenFiscal") = value
+        End Set
+    End Property
+
 #End Region
 
     '#Region "AuxiliarConta"
@@ -6015,6 +6046,9 @@ Partial Class Ventas
                 TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString())
                 DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero()
 
+                ClienteCodigoRegimenFiscal = ObjCliente.DtResultados.Rows(0)("CodigoRegimenFiscal").ToString()
+                ClienteRegimenFiscal = ObjCliente.DtResultados.Rows(0)("RegimenFiscal").ToString()
+
                 If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then
                     Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
                     BtnEmitirImprimir.Visible = EstatusCliente
@@ -9695,7 +9729,24 @@ Partial Class Ventas
 
         ObjFacturaDevolucion.Fecha = Now
 
-        ObjFacturaDevolucion.Version = "3.3"
+
+
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            ObjFacturaDevolucion.Version = "4.0"
+
+            If ObjFacturaDevolucion.Cliente Is Nothing Then
+                ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
+            End If
+
+            ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+            ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
+        Else
+            ObjFacturaDevolucion.Version = "3.3"
+        End If
+
+
+
+
         ObjFacturaDevolucion.CveMetodoPago33 = 1
         ObjFacturaDevolucion.MetodoPago33 = "Pago en una sola exhibición"
         ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE"
@@ -9977,7 +10028,20 @@ Partial Class Ventas
         End If
         ObjFacturaBonificacion.Fecha = Now
 
-        ObjFacturaBonificacion.Version = "3.3"
+
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            ObjFacturaBonificacion.Version = "4.0"
+
+            If ObjFacturaBonificacion.Cliente Is Nothing Then
+                ObjFacturaBonificacion.Cliente = New Modelos.ClienteModel
+            End If
+
+            ObjFacturaBonificacion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+            ObjFacturaBonificacion.Cliente.RegimenFiscal = ClienteRegimenFiscal
+        Else
+            ObjFacturaBonificacion.Version = "3.3"
+        End If
+
         ObjFacturaBonificacion.CveMetodoPago33 = 1
         ObjFacturaBonificacion.MetodoPago33 = "Pago en una sola exhibición"
         ObjFacturaBonificacion.ClaveMetodoPagoSAT = "PUE"
@@ -10377,7 +10441,18 @@ Partial Class Ventas
             ObjFactura = New Modelos.Factura
         End If
 
-        ObjFactura.Version = "3.3"
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            ObjFactura.Version = "4.0"
+            If ObjFactura.Cliente Is Nothing Then
+                ObjFactura.Cliente = New Modelos.ClienteModel
+            End If
+
+            ObjFactura.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+            ObjFactura.Cliente.RegimenFiscal = ClienteRegimenFiscal
+        Else
+            ObjFactura.Version = "3.3"
+        End If
+
         ObjFactura.CveUsuario = UsuarioActual.CveUsuario
         ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
         ObjFactura.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal)
@@ -11152,7 +11227,19 @@ Partial Class Ventas
 
         ObjFacturaDevolucion.SerieFolioPadre = HdnFolioFiscalNC.Value.ToString()
 
-        ObjFacturaDevolucion.Version = "3.3"
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            ObjFacturaDevolucion.Version = "4.0"
+
+            If ObjFacturaDevolucion.Cliente Is Nothing Then
+                ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
+            End If
+
+            ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+            ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
+        Else
+            ObjFacturaDevolucion.Version = "3.3"
+        End If
+
         ObjFacturaDevolucion.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero()
         ObjFacturaDevolucion.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
         ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
@@ -16433,7 +16520,7 @@ Partial Class Ventas
 
         If RespCancelacion.Verificado Then
 
-            If ObjBanco.UpdateComplementoPago(CveComplementoPago, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+            If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPago, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, ObjCancelacion.CancelacionFecha, ObjCancelacion.CancelacionAcuse, 1) Then
                 CargaComplementosPago()
                 Alert("El complemento se canceló correctamente.")
             End If
@@ -33420,7 +33507,20 @@ Partial Class Ventas
             ObjFacturaProntoPago.TipoDocto = "Egs"
             ObjFacturaProntoPago.Fecha = Now
 
-            ObjFacturaProntoPago.Version = "3.3"
+
+            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                ObjFacturaProntoPago.Version = "4.0"
+
+                If ObjFacturaProntoPago.Cliente Is Nothing Then
+                    ObjFacturaProntoPago.Cliente = New Modelos.ClienteModel
+                End If
+
+                ObjFacturaProntoPago.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+                ObjFacturaProntoPago.Cliente.RegimenFiscal = ClienteRegimenFiscal
+            Else
+                ObjFacturaProntoPago.Version = "3.3"
+            End If
+
             ObjFacturaProntoPago.CveMetodoPago33 = 1
             ObjFacturaProntoPago.MetodoPago33 = "Pago en una sola exhibición"
             ObjFacturaProntoPago.ClaveMetodoPagoSAT = "PUE"