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

Ventas/Ventas.aspx.vb

@@ -3926,7 +3926,7 @@ Partial Class Ventas
                         LblAlertRefacInv.Visible = True
                     End If
 
-                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe", "RNC") AndAlso Not CveEstatus.Contiene(4, 5, 12, 13, 20) Then
+                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe", "RNC", "Pd2") 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
@@ -14777,6 +14777,7 @@ Partial Class Ventas
             If NuevaFactura = 1 AndAlso UsuarioActual.TienePermisoProceso(222) Then
                 If ObjVentas.GetVentaDetalle(ObjFacturaDevolucion.CveVenta) Then
                     TmpDT = ObjVentas.DtResultados
+                    TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer))
                 End If
                 ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFacturaDevolucion, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas)
             Else
@@ -20880,8 +20881,16 @@ Partial Class Ventas
             RegistraScript("$('#ModalCancelarDocumento').modal();")
             UpCancelarDocumento.Update()
             sb.Clear()
+        ElseIf DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
+            Dim ObjVentas As New ClsVentas
+            If ObjVentas.UpdateEstatusVenta(CveVenta, 22, UsuarioActual.CveEmpresa) Then
+                Dim redirectString As String = String.Format("document.location.href=""/Ventas/Ventas.aspx?CveVenta={0}""", CveVenta)
+                Alert("Pedido cancelado.", JSBtnAceptar:=redirectString)
+                ', "document.location.href=""/Ventas/Ventas.aspx?CveVenta=" & CveVenta
+            End If
+            ObjVentas.Dispose()
         Else
-            CancelarDocumento()
+                CancelarDocumento()
         End If
 
     End Sub
@@ -23584,7 +23593,7 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlVentaUsado_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaRNC(DdlVentaUsado.SelectedValue.ToEntero())
+        RblRNCTipo_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty)
     End Sub
 
     Private Sub InicializaAplicarNCMasiva()
@@ -23605,7 +23614,9 @@ Partial Class Ventas
         'LkNotaCredito.Visible = False
         DivGvCxC.Visible = True
         CargaCxC()
-        CargaRNC()
+        'CARGAR RNC
+        RblRNCTipo_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty)
+
         TxtNCPorcentaje.Attributes.Add("onkeyup", "CalculaImporteNCMasivo();")
         TxtNCImporte.Text = "0.00"
         TxtNCImporte.Enabled = False
@@ -23624,6 +23635,28 @@ Partial Class Ventas
         ObjMovtos.Dispose()
         GvCxC.DataBind()
     End Sub
+
+    Protected Sub RblRNCTipo_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Select Case RblRNCTipo.SelectedValue
+            Case "1" 'CARGOS
+                LtlCargos.Text = "CARGOS"
+                DivRNCCargo.Visible = True
+                DivRNCBon.Visible = False
+                CargaRNC(DdlVentaUsado.SelectedValue.ToEntero(), False, False)
+
+            Case "2" 'BONIFICACIONES
+                DivRNCCargo.Visible = False
+                DivRNCBon.Visible = True
+                CargaRNC(-1, True, False)
+
+            Case "3" 'AJUSTE/GARANTIAS
+                LtlCargos.Text = "AJUSTES/GARANTIAS"
+                DivRNCCargo.Visible = True
+                DivRNCBon.Visible = False
+                CargaRNC(DdlVentaUsado.SelectedValue.ToEntero(), False, True)
+
+        End Select
+    End Sub
     Protected Sub ChkMostarProductosRNC_CheckedChanged(sender As Object, e As EventArgs)
         If ChkMostarProductosRNC.Checked Then
             DivRNCCargos.Visible = False
@@ -23632,11 +23665,11 @@ Partial Class Ventas
         Else
             DivRNCCargos.Visible = True
             DivRNCCargosDetalle.Visible = False
-            CargaRNC(DdlVentaUsado.SelectedValue.ToEntero())
+            RblRNCTipo_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty)
         End If
         UpModalRemisionesNC.Update()
     End Sub
-    Private Sub CargaRNC(Optional CveVentaUsado As Integer = -1)
+    Private Sub CargaRNC(Optional CveVentaUsado As Integer = -1, Optional CargarBonificaciones As Boolean = False, Optional CargarSoloGarantias As Boolean = False)
         Dim DtNC As DataTable = Nothing
 
         Dim ObjMovtos As New ClsMovimientos()
@@ -23645,16 +23678,24 @@ Partial Class Ventas
         End If
         ObjMovtos.Dispose()
 
-        TmpDTRNCBonificacionesSeleccionadas = Nothing
-
-        GvRemisionesNC.DataSource = DtNC.FiltraParametros("TipoRNC = 1")
-        GvRemisionesNCBon.DataSource = TmpDTRNCBonificacionesSeleccionadas
+        Me.TmpDTRNCBonificacionesSeleccionadas = Nothing
 
         Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2")
         Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal))
         Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal))
         Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer))
 
+        If CargarBonificaciones Then
+            Me.TmpDTRNCBonificacionesSeleccionadas = Me.TmpDTRNCBonificacionesCliente.Copy()
+        End If
+
+        If CargarSoloGarantias Then
+            GvRemisionesNC.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = True")
+        Else
+            GvRemisionesNC.DataSource = DtNC.FiltraParametros("TipoRNC = 1 AND EsGarantia = False")
+        End If
+        GvRemisionesNCBon.DataSource = Me.TmpDTRNCBonificacionesSeleccionadas
+
         GvRemisionesNC.DataBind()
         GvRemisionesNCBon.DataBind()
 
@@ -24121,12 +24162,18 @@ Partial Class Ventas
 
                 End If
             Else
-                For Each RNC In ListaRemisionesNC
-                    DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales, NivelTotal:=DdlNCNivelImporte.SelectedValue.ToEntero(), AplicaNCUsado:=(UsuarioActual.CveEmpresa = 140)), True, MissingSchemaAction.Ignore)
-                Next
-                For Each RNC In ListaNCBonificacion
-                    DtImpuestosBonificacion.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales, NivelTotal:=DdlNCNivelImporte.SelectedValue.ToEntero(), AplicaNCUsado:=(UsuarioActual.CveEmpresa = 140)), True, MissingSchemaAction.Ignore)
-                Next
+                If ListaRemisionesNC IsNot Nothing Then
+                    For Each RNC In ListaRemisionesNC
+                        DtImpuestos.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales, NivelTotal:=DdlNCNivelImporte.SelectedValue.ToEntero(), AplicaNCUsado:=(UsuarioActual.CveEmpresa = 140)), True, MissingSchemaAction.Ignore)
+                    Next
+                End If
+
+                If ListaNCBonificacion IsNot Nothing Then
+                    For Each RNC In ListaNCBonificacion
+                        DtImpuestosBonificacion.Merge(CargaDtImpuestosNC(RNC.CveVenta, RNC.TotalRemNCAplicado, NCDescuento:=True, AplicaImpuestosLocales:=AplicaImpuestosLocales, NivelTotal:=DdlNCNivelImporte.SelectedValue.ToEntero(), AplicaNCUsado:=(UsuarioActual.CveEmpresa = 140)), True, MissingSchemaAction.Ignore)
+                    Next
+                End If
+
             End If
 
 
@@ -24322,12 +24369,11 @@ Partial Class Ventas
         For Each RNC In ListaNC
             Dim UltimoRenglonRNC As Integer = 1
             Dim TotalAcumuladoRNC As Decimal = 0
+            Dim Terminar As Boolean = False
 
             For Each RowUsado As DataRow In RNC.DtDetalle.Rows
 
-                Dim PorcentajeAplicado = (RNC.TotalRemNCAplicado / RNC.Total)
-
-                Dim Cantidad As Decimal = RowUsado("Cantidad").ToString().ToDecimal() * PorcentajeAplicado
+                Dim Cantidad As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
 
                 Dim Obs = RowUsado("CodigoPS").ToString()
 
@@ -24347,8 +24393,33 @@ Partial Class Ventas
 
                 TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
 
+                'SI EL IMPORTE ES MAYOR REALIZA EL AJUSTE
+                If TotalAcumuladoRNC > RNC.TotalRemNCAplicado Then
+                    Terminar = True
+                    'RESTA LO SUMANDO DEL ACUMULADO
+                    TotalAcumuladoRNC -= (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
+
+                    Dim Diferencia As Decimal = RNC.TotalRemNCAplicado - TotalAcumuladoRNC
+
+                    Dim TotalPartida As Decimal = (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
+
+                    Dim PorcentajePorAplicar As Decimal = (Diferencia / TotalPartida)
+
+                    Cantidad = Cantidad * PorcentajePorAplicar
+
+                    TotalCalculableImpuestos = (Cantidad * ImportePU)
+                    ImporteIVA = (TotalCalculableImpuestos * RowUsado("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2)
+                    ImporteIEPS = (TotalCalculableImpuestos * RowUsado("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2)
+                    ImporteRetIVA = (TotalCalculableImpuestos * RowUsado("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2)
+                    ImporteRetISR = (TotalCalculableImpuestos * RowUsado("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2)
+
+                    ImporteTotal = TotalCalculableImpuestos
+
+                    TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
+                End If
+
                 'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE
-                If UltimoRenglonRNC = RNC.DtDetalle.Rows.Count Then
+                If UltimoRenglonRNC = RNC.DtDetalle.Rows.Count OrElse Terminar Then
                     Dim Ajuste As Decimal = 0
                     If Math.Abs(RNC.TotalRemNCAplicado - TotalAcumuladoRNC) > 0.00 Then
                         Ajuste = RNC.TotalRemNCAplicado - TotalAcumuladoRNC
@@ -24363,6 +24434,10 @@ Partial Class Ventas
                                         Obs, Cantidad, ImportePU, RowUsado("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowUsado("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA,
                                         RowUsado("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, RowUsado("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, 0.0, ImporteTotal, "", "", -1, -1,
                                         DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1, CveVentaDetalleRNC:=RowUsado("CveVentaDetalle").ToString().ToEntero())
+
+                If Terminar Then
+                    Exit For
+                End If
             Next
 
         Next
@@ -24426,6 +24501,7 @@ Partial Class Ventas
             For Each RNCBonificacion In ListaNCBonificacion
                 Dim UltimoRenglonRNC As Integer = 1
                 Dim TotalAcumuladoRNC As Decimal = 0
+                Dim Terminar As Boolean = False
 
                 Dim RNCCargo = ListaNC.Where(Function(f) f.CveVenta = RNCBonificacion.CveVentaRNCCargo).FirstOrDefault()
 
@@ -24433,7 +24509,7 @@ Partial Class Ventas
 
                     Dim PorcentajeAplicado = (RNCBonificacion.TotalRemNCAplicado / RNCBonificacion.Total)
 
-                    Dim Cantidad As Decimal = RowCargo("Cantidad").ToString().ToDecimal() * PorcentajeAplicado
+                    Dim Cantidad As Decimal = RowCargo("Cantidad").ToString().ToDecimal() '* PorcentajeAplicado
 
                     Dim Obs = RowCargo("CodigoPS").ToString()
 
@@ -24453,6 +24529,31 @@ Partial Class Ventas
 
                     TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
 
+                    'SI EL IMPORTE ES MAYOR REALIZA EL AJUSTE
+                    If TotalAcumuladoRNC > RNCBonificacion.TotalRemNCAplicado Then
+                        Terminar = True
+                        'RESTA LO SUMANDO DEL ACUMULADO
+                        TotalAcumuladoRNC -= (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
+
+                        Dim Diferencia As Decimal = RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC
+
+                        Dim TotalPartida As Decimal = (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
+
+                        Dim PorcentajePorAplicar As Decimal = (Diferencia / TotalPartida)
+
+                        Cantidad = Cantidad * PorcentajePorAplicar
+
+                        TotalCalculableImpuestos = (Cantidad * ImportePU)
+                        ImporteIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2)
+                        ImporteIEPS = (TotalCalculableImpuestos * RowCargo("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2)
+                        ImporteRetIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2)
+                        ImporteRetISR = (TotalCalculableImpuestos * RowCargo("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2)
+
+                        ImporteTotal = TotalCalculableImpuestos
+
+                        TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR)
+                    End If
+
                     'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE
                     If UltimoRenglonRNC = RNCCargo.DtDetalle.Rows.Count Then
                         Dim Ajuste As Decimal = 0
@@ -24493,6 +24594,7 @@ Partial Class Ventas
             TmpDT = ObjVentas.DtResultados.Copy()
             TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
             TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+            TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer))
         End If
 
         If AplicaNCMasiva OrElse AplicaNCUsado Then
@@ -27478,6 +27580,18 @@ Partial Class Ventas
 
         Dim TotalRemNCAplicado As Decimal = 0
 
+        Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
+        Dim NCConcepto As Integer = -1
+
+        Select Case RblRNCTipo.SelectedValue
+            Case "1" 'CARGOS
+                NCConcepto = ArrayNC(3).ToEntero()
+            Case "2" 'BONIFICACIONES
+                NCConcepto = ArrayNC(4).ToEntero()
+            Case "3" 'AJUSTE/GARANTIAS
+                NCConcepto = ArrayNC(1).ToEntero()
+        End Select
+
         If ChkMostarProductosRNC.Checked Then
 
             Me.AplicaRNCXDetalle = True
@@ -27560,24 +27674,18 @@ Partial Class Ventas
                 For Each RNC In ListaRemisionesNC.Where(Function(x) x.Num2 = 1)
                     Dim Salir As Boolean = False
 
-                    Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
-                    Dim NCAjuste As Integer = -1
-                    Dim NCGarantiaTotal As Integer = -1
-                    If ArrayNC.Length > 2 Then
-                        NCAjuste = ArrayNC(1).ToEntero()
-                        NCGarantiaTotal = ArrayNC(2).ToEntero()
-                    End If
-
                     Using ObjAcum As New ClsAcumuladores
                         If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then
                             'SI ES GARANTIA TOTAL
                             If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then
-                                DdlNCPS.SelectedValueExist(NCGarantiaTotal)
-                                DdlNCPS.Enabled = False
+                                If ArrayNC.Length > 2 Then
+                                    NCConcepto = ArrayNC(2).ToEntero()
+                                End If
                                 Salir = True
                             Else
-                                DdlNCPS.SelectedValueExist(NCAjuste)
-                                DdlNCPS.Enabled = False
+                                If ArrayNC.Length > 2 Then
+                                    NCConcepto = ArrayNC(1).ToEntero()
+                                End If
                             End If
                         End If
                     End Using
@@ -27590,7 +27698,6 @@ Partial Class Ventas
                 DdlNCPS.Enabled = True
             End If
 
-
             For Each GvRow As GridViewRow In GvRemisionesNCBon.Rows
                 If GvRow.RowType = DataControlRowType.DataRow Then
                     If GvRow.FCCheckBox("ChkAplicar").Checked Then
@@ -27609,8 +27716,22 @@ Partial Class Ventas
                     End If
                 End If
             Next
+
+            'SI SON SOLO BONIFICACIONES GENERA LA NC PRINCIPAL EN BASE A ESAS
+            If RblRNCTipo.SelectedValue.ToString() = "2" AndAlso ListaRemisionesNC.Count = 0 Then
+                ListaRemisionesNC.AddRange(ListaNCBonificacion)
+                ListaNCBonificacion.Clear()
+            End If
+
         End If
 
+        Dim DrPSSeleccionado As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCConcepto).FiltroPrimero("")
+        If DrPSSeleccionado IsNot Nothing Then
+            DdlNCPS.SelectedValueExistInsert(NCConcepto, DrPSSeleccionado("PS").ToString())
+            DdlNCPS.Enabled = False
+        End If
+
+
         TxtImportesRemisionesNC.Text = TotalRemNCAplicado.FormatoNumero
         TxtNCImporte.Text = TotalRemNCAplicado.FormatoNumero
 
@@ -28409,5 +28530,4 @@ Partial Class Ventas
         Public ImporteBonificacion As Decimal = 0
         Public IVABonificacion As Decimal = 0
     End Class
-
 End Class