Ventas/Ventas.aspx.vb

@@ -3442,7 +3442,7 @@ Partial Class Ventas
                         LblAlertRefacInv.Visible = True
                     End If
 
-                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe") AndAlso Not CveEstatus.Contiene(4, 5, 12, 13, 20) Then
+                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe", "RNC") AndAlso Not CveEstatus.Contiene(4, 5, 12, 13, 20) Then
                         If UsuarioActual.TienePermisoProceso(159) Then
                             Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                             If TienePermiso <> "" Then
@@ -14976,6 +14976,7 @@ Partial Class Ventas
 
                                         Else
                                             OcurrioError = True
+                                            Alert("Error traspaso almacen(sin Movtos. Detalle). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
                                         End If
 
                                         MovDetalle.Dispose()
@@ -15117,6 +15118,7 @@ Partial Class Ventas
                 Dim CveVentaDetalle = If(ConceptoEntrada = 3, TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero)
                 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN
                 If CveVentaDetalle < 0 Then
+                    Alert("no se encontro la venta detalle. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
                     OcurrioError = True
                     Exit For
                 End If
@@ -15175,6 +15177,7 @@ Partial Class Ventas
                                 'End If
                             Catch ex As Exception
                                 OcurrioError = True
+                                Alert("Error inesperado (15147). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError)
                             End Try
                             Cont += 1
                         Next
@@ -17681,7 +17684,7 @@ Partial Class Ventas
 
         'End If
 
-        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then
             Dim sb As New StringBuilder()
             sb.Append("La factura se encuentra en el  siguiente estatus del SAT:<br/>")