-

Ventas/Ventas.aspx.vb

@@ -26324,10 +26324,10 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
-            Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
+        '    Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
 
         'If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
         '    Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
@@ -39567,10 +39567,9 @@ Partial Class Ventas
 
                                     TxtFechaPago.Enabled = False
                                     imgCalendario.Visible = False
-
-                                    TxtOrdenCompra.Text = RowLinea("LineaAdicionalComercializador").ToString()
                                 End If
 
+                                TxtOrdenCompra.Text = RowLinea("LineaAdicionalComercializador").ToString()
                                 Me.CveCategoriaLineaAdicional = RowLinea("CveCategoria").ToString().ToEntero()
                                 Me.CveMonedaLineaAdicional = RowLinea("CveMoneda").ToString().ToEntero()
                                 Me.SaldoLineaAdicional = RowLinea("Saldo").ToString().ToDecimal()
@@ -39693,25 +39692,15 @@ Partial Class Ventas
             End If
         End If
 
-
-        Dim OrdenCompra As String = "-1"
-
-        If UsuarioActual.CveEmpresa = 119 Then
-            Dim arrayStr As String() = DdlLineaAdicional.SelectedItem.Text.Split(":"c)
-            If arrayStr.Length > 0 Then
-                Dim OrdenCompraTmp As String = arrayStr(0).Replace("IMP", "").Trim
-                If TxtOrdenCompra.Text.Trim.Length > 0 Then
-                    If OrdenCompraTmp.ToUpper <> TxtOrdenCompra.Text.Trim.ToUpper Then
-                        OrdenCompra = $"{TxtOrdenCompra.Text}, {OrdenCompraTmp}"
-                    End If
-                Else
-                    OrdenCompra = $"{OrdenCompraTmp}"
-                End If
-            End If
-        End If
+        Dim OrdenCompra As String = TxtOrdenCompra.Text
 
         Using ObjVentas As New ClsVentas
             If ObjVentas.UpdateVentaLineaAdicional(DdlLineaAdicional.SelectedValue.ToEntero(), CveVenta, "", 1, UsuarioActual.CveEmpresa, OrdenCompra:=OrdenCompra) Then
+                Try
+                    GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+                Catch ex As Exception
+
+                End Try
                 Alert("Se actualizó la linea adicional de crédito de la venta")
             End If
         End Using