Ventas/Ventas.aspx.vb

@@ -14944,6 +14944,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()
@@ -15085,6 +15086,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
@@ -15143,6 +15145,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