Merge branch 'master' of http://192.168.10.111:8383/SIG

2022-02-02 21:59:40 -07:00
parent a7acb78de4 1ed12662ae
commit 04a45531e0
39 changed files with 40985 additions and 33669 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1905,6 +1905,14 @@ Partial Class Ventas
            ViewState("CveVendedorVenta") = value
        End Set
    End Property
+    Private Property CveVendedorCliente As Integer
+        Get
+            Return If(IsNothing(ViewState("CveVendedorCliente")), -1, ViewState("CveVendedorCliente")).ToString().ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveVendedorCliente") = value
+        End Set
+    End Property
    Private Property DiasCredito As Integer
        Get
            Return ViewState("DiasCredito").ToString().ToEntero()
@@ -2177,6 +2185,7 @@ Partial Class Ventas
            ViewState("CvePrecioLista") = 0
            ViewState("CvePrecioListaCliente") = 0
            Me.CveVendedorVenta = -1
+            Me.CveVendedorCliente = -1
            Me.EsGarantia = False
            idCuentaContabilizacion = 1
            CveEmpresaCRM = 0
@@ -4245,13 +4254,13 @@ Partial Class Ventas
                Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0)
                Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString().ToEntero()
                HdnCveVenta.Value = CveVenta.ToString()
-                Dim DtUsados As DataTable = Nothing
+                Dim DtUsadosPendientes As DataTable = Nothing

                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                    Dim ObjUsados As New ClsVentas

                    If ObjUsados.GetVentasUsados(CveVenta, -1, DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa) Then
-                        DtUsados = ObjUsados.DtResultados
+                        DtUsadosPendientes = ObjUsados.DtResultados
                    End If
                    ObjUsados.Dispose()
                End If
@@ -5191,7 +5200,7 @@ Partial Class Ventas
                    'Si es Empresa de Acumuladores
                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                        'Si ya se surtió y recibió
-                        If (DbRowVenta("SaldoAlmacen").ToString().ToDecimal > 0 And (DtUsados Is Nothing Or DtUsados.Rows.Count = 0)) OrElse (TmpDT.MAX("CveTipoPS") = "1") Then
+                        If (DbRowVenta("SaldoAlmacen").ToString().ToDecimal > 0 And (DtUsadosPendientes Is Nothing Or DtUsadosPendientes.Rows.Count = 0)) OrElse (TmpDT.MAX("CveTipoPS") = "1") Then
                            BtnsFacturar.Visible = True
                        Else
                            BtnsFacturar.Visible = False
@@ -6050,6 +6059,7 @@ Partial Class Ventas

                If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then
                    DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero())
+                    CveVendedorCliente = ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero()
                End If

                'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO
@@ -17011,7 +17021,12 @@ Partial Class Ventas
    End Sub
    Private Sub CargaVendedores()

-        Dim CveVendedorActual = DdlVendedor.SelectedValue
+        Dim CveVendedorActual = DdlVendedor.SelectedValue.ToEntero()
+
+        If Not CveVendedorActual > 0 AndAlso Me.CveVendedorCliente > 0 Then
+            DdlVendedor.SelectedValueExist(Me.CveVendedorCliente)
+            CveVendedorActual = Me.CveVendedorCliente
+        End If

        DdlVendedor.Items.Clear()
        If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
@@ -17038,6 +17053,10 @@ Partial Class Ventas
            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
        End If

+        If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
+            DdlVendedor.Enabled = False
+        End If
+
        'TxtCorreoNotificaciones.Text = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
    End Sub
 #End Region
@@ -27518,7 +27537,7 @@ Partial Class Ventas
                UltimoRenglonRNC += 1

                'SOLO AGREGA SI LA CANTIDAD ES MAYOR CERO
-                If Cantidad.RoundSQL(6) > 0D Then
+                If Cantidad.RoundSQL(6) > 0D AndAlso ImportePU.RoundSQL(6) > 0 Then
                    AgregaTempDT(TmpDTCargo, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(),
                                        DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                        Obs, Cantidad, ImportePU, RowUsado("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowUsado("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA,
@@ -27611,7 +27630,7 @@ Partial Class Ventas
                UltimoRenglonRNC += 1

                'SOLO AGREGA SI LA CANTIDAD ES MAYOR CERO
-                If Cantidad.RoundSQL(6) > 0D Then
+                If Cantidad.RoundSQL(6) > 0D AndAlso ImportePU.RoundSQL(6) > 0 Then
                    AgregaTempDT(TmpDTCargo, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(),
                                        DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                        Obs, Cantidad, ImportePU, RowUsado("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, 0, ImporteRetIVA,
@@ -27703,7 +27722,7 @@ Partial Class Ventas
                    UltimoRenglonRNC += 1

                    'SOLO AGREGA SI LA CANTIDAD ES MAYOR CERO
-                    If Cantidad.RoundSQL(6) > 0D Then
+                    If Cantidad.RoundSQL(6) > 0D AndAlso ImportePU.RoundSQL(6) > 0 Then
                        AgregaTempDT(TmpDTDescNCBonificacion, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(),
                                    DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                    Obs, Cantidad, ImportePU, RowCargo("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowCargo("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA,
@@ -27797,7 +27816,7 @@ Partial Class Ventas
                    UltimoRenglonRNC += 1

                    'SOLO AGREGA SI LA CANTIDAD ES MAYOR CERO
-                    If Cantidad.RoundSQL(6) > 0D Then
+                    If Cantidad.RoundSQL(6) > 0D AndAlso ImportePU.RoundSQL(6) > 0 Then
                        AgregaTempDT(TmpDTDescNCBonificacion, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(),
                                    DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                    Obs, Cantidad, ImportePU, RowCargo("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowCargo("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA,
@@ -27885,7 +27904,7 @@ Partial Class Ventas
                UltimoRenglonRNC += 1

                'SOLO AGREGA SI LA CANTIDAD ES MAYOR CERO
-                If Cantidad.RoundSQL(6) > 0D Then
+                If Cantidad.RoundSQL(6) > 0D AndAlso ImportePU.RoundSQL(6) > 0 Then
                    AgregaTempDT(TmpDTDescNCBonificacion, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(),
                                        DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                        Obs, Cantidad, ImportePU, RowUsado("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, 0, ImporteRetIVA,
@@ -27972,7 +27991,7 @@ Partial Class Ventas
                UltimoRenglonRNC += 1

                'SOLO AGREGA SI LA CANTIDAD ES MAYOR CERO
-                If Cantidad.RoundSQL(6) > 0D Then
+                If Cantidad.RoundSQL(6) > 0D AndAlso ImportePU.RoundSQL(6) > 0 Then
                    AgregaTempDT(TmpDTCargo, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(),
                                        DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto,
                                        Obs, Cantidad, ImportePU, RowRNC("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowRNC("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA,