Cambios BDH

2021-03-19 09:50:48 -07:00
parent 165d3a321b
commit 009cb95dcc
11 changed files with 809 additions and 480 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2738,7 +2738,7 @@ Partial Class Ventas
            divProyectoPyME.Visible = DdlProyecto.Visible

            'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
-            If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta <= 0 Then
                ImgOtrosConceptos.Visible = False
                TrFormaEntrega.Visible = False
                TabDetalleVentas.Visible = False
@@ -2855,6 +2855,19 @@ Partial Class Ventas
            End If
            LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveVenta:{0}}});""> <i class=""fa fa-plus""></i> Tarea</a>", CveVenta)

+            'SI ESTA CARGANDO UNA REFACTURACION. VALIDAR QUE LA FACTURA ANTERIOR ESTE CANCELADA
+            If Me.ObjFacturaNC IsNot Nothing Then
+
+                If Me.CveDevolucion > 0 AndAlso Me.NuevaFactura = 1 Then
+                    Dim TipoEstatus As Integer = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.ObjFacturaNC.CveEstatusFactura}").ToEntero()
+                    If TipoEstatus <> 5 Then
+                        Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido cancelado. Favor de verificar el documento", TipoMensaje.MsgAdvertencia)
+                        BtnEmitirImprimir.Visible = False
+                        UpFacturar.Update()
+                    End If
+                End If
+            End If
+
        End If

        ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ???
@@ -2893,7 +2906,8 @@ Partial Class Ventas
        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
            BtnModalAddPS.Enabled = False
        End If
-        MostrarOpcioensPaqueteria()
+        MostrarOpcionesPaqueteria()
+
    End Sub
    Private Sub BloqueaClasificaciones()
        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
@@ -6436,6 +6450,7 @@ Partial Class Ventas

                DdlNCFactura.SelectedValueExist(pCveVenta)
                DdlNCFactura.Enabled = False
+
            End If

        Else
@@ -15771,15 +15786,21 @@ Partial Class Ventas
            If LblCliente.Text <> "Cliente" And Not EstatusCliente Then
                Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
            End If
-            BtnEmitirImprimir.Visible = EstatusCliente
-            TrVistaPrevia.Visible = EstatusCliente
+            If Not CveEmpresaCRM > 0 Then
+                BtnEmitirImprimir.Visible = EstatusCliente
+                TrVistaPrevia.Visible = EstatusCliente
+            Else
+                BtnEmitirImprimir.Visible = True
+                TrVistaPrevia.Visible = True
+            End If
+
        End If

        If DdlTipoComprobante.SelectedValue = "Ing" Then
            ImgAntiPend.Visible = True
        End If

-        MostrarOpcioensPaqueteria()
+        MostrarOpcionesPaqueteria()

        TrAtencionA.Visible = True
        tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
@@ -15975,9 +15996,22 @@ Partial Class Ventas
                TxtFolio.Text = DT.Rows(0)("FActual").ToString()

                If Not FacturarDocumentoNuevo Then
-                    BtnCrearApartirDe.Enabled = EstatusCliente
-                    BtnEmitirImprimir.Visible = EstatusCliente
-                    TrVistaPrevia.Visible = EstatusCliente
+                    If Not CveEmpresaCRM > 0 Then
+                        BtnCrearApartirDe.Enabled = EstatusCliente
+                        BtnEmitirImprimir.Visible = EstatusCliente
+                        TrVistaPrevia.Visible = EstatusCliente
+                    Else
+                        If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then
+                            BtnCrearApartirDe.Enabled = EstatusCliente
+                            BtnEmitirImprimir.Visible = EstatusCliente
+                            TrVistaPrevia.Visible = EstatusCliente
+                        Else
+                            BtnCrearApartirDe.Enabled = True
+                            BtnEmitirImprimir.Visible = True
+                            TrVistaPrevia.Visible = True
+                        End If
+                    End If
+
                End If

                UpFacturar.Update()
@@ -18033,6 +18067,7 @@ Partial Class Ventas
            Dim DtMovimientosDetalles As DataTable
            DtRemConceptosSurtidos = Nothing

+            Dim TieneMovimientosServicioDomicilio As Boolean = False
            Dim TieneMovimientosSinCosto As Boolean = False
            Dim TieneMovimientosContrato As Boolean = False

@@ -18070,6 +18105,8 @@ Partial Class Ventas
                    If DtMovimientos.Rows.Count > 0 Then
                        Dim GeneroMovimientoAlmacen As Boolean = False

+                        TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=29") > 0
+
                        TieneMovimientosSinCosto = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=26") > 0

                        TieneMovimientosContrato = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen IN (11)") > 0
@@ -18093,7 +18130,7 @@ Partial Class Ventas

                                        If RemisionesLista.Count > 0 Then
                                            AplicaMovimientoDetalleEntrada = True
-                                            If TieneMovimientosSinCosto Then
+                                            If TieneMovimientosSinCosto OrElse TieneMovimientosServicioDomicilio Then
                                                MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
                                            Else
                                                If TieneMovimientosContrato Then
@@ -19267,6 +19304,7 @@ Partial Class Ventas
                    End If
                Else
                    sb.Append("<b>No encontrado</b> <br/>")
+                    script = "BtnRefacturacionConfirmarAceptacion();"
                End If
            Else
                sb.Append("¿Desea realizar la refacturación?<br/>")
@@ -21758,21 +21796,27 @@ Partial Class Ventas
                    Alert($"Los servicios de cancelación del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastAdventencia, "")
                End If

-                If resp.CveEstatus = 5 AndAlso Not EsRefacturacion Then
-                    Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnEnviarMailCancelacion();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;<a onclick='Recargar()'>No</>&nbsp;&nbsp;&nbsp;&nbsp;")
+                If resp.HuboError Then
+                    Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
                Else
-                    If EsRefacturacion Then
-                        If resp.CveEstatus = 20 Then
-                            LigaRedirigir = $"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}"
-                        ElseIf resp.CveEstatus.Contiene(4, 5) Then
-                            LigaRedirigir = $"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1"
+                    If resp.CveEstatus = 5 AndAlso Not EsRefacturacion Then
+                        Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnEnviarMailCancelacion();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;<a onclick='Recargar()'>No</>&nbsp;&nbsp;&nbsp;&nbsp;")
+                    Else
+                        If EsRefacturacion Then
+                            If resp.CveEstatus = 20 Then
+                                LigaRedirigir = $"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={CveVenta}"
+                            ElseIf resp.CveEstatus.Contiene(4, 5) Then
+                                LigaRedirigir = $"Ventas.aspx?CveDevolucion={CveVenta}&NuevaFactura=1"
+                            Else
+                                Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
+                            End If
                        Else
                            Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
                        End If
-                    Else
-                        Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
                    End If
                End If
+
+
            Else
                Alert("Ocurrió un error al generar la cancelación", TipoMensaje.MsgError)
            End If
@@ -29285,7 +29329,7 @@ Partial Class Ventas
        CargaEventoBitacora()
    End Sub

-    Private Sub MostrarOpcioensPaqueteria()
+    Private Sub MostrarOpcionesPaqueteria()
        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped") And UsuarioActual.Empresa.Funcionalidad(280) = "1"
        trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
        trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq