Retencion de servicios desde crear a partir de

2020-03-18 19:19:18 -07:00
parent cc1ffba8c5
commit 833637aaa3
2 changed files with 56 additions and 52 deletions
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3355,7 +3355,7 @@
                                    <asp:Button ID="BtnGenerarRemision" runat="server" Text="Generar Remisión" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la remisión?" data-btn-ok-label="si" />
                                    <asp:Button ID="BtnGeneraAutorizacion" runat="server" Text="Generar Autorización" OnClick="BtnGeneraAutorizacion_Click" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la autorización?" data-btn-ok-label="si" />

-                                    <asp:Button ID="Button2" runat="server" Text="Button" />
+                                    <%--<asp:Button ID="Button2" runat="server" Text="Button" />--%>
                                    <asp:Button ID="BtnGenerarPoliza" runat="server" Text="GenerarPoliza" Visible="false" CssClass="btn myventasbutton btn-primary" />
                                    <asp:Button ID="BtnGenerarOS" runat="server" Text="Generar OS" Visible="false" CssClass="btn myventasbutton btn-primary" />

--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5335,65 +5335,65 @@ Partial Class Ventas
            UPPCreditoDisponible.Update()
        ElseIf UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso CveVenta > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Pd2", "Cot") Or (DdlTipoComprobante.SelectedValue = "Rem" And ModalidadEdicion And ViewState("CveClienteAnterior").ToString.ToEntero > 0 And LblRFC.Text.Trim <> "XAXX010101000")) Then
            Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero)
-                    If CreditoDispo > 0 Then
-                        Dim Vta As New ClsVentas
-                        Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
-                        Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
-                        Vta.Dispose()
-                        If Opcion > 0 Then
-                            If ModalidadEdicion AndAlso ViewState("CveCliente").ToString.ToEntero <> ViewState("CveClienteAnterior").ToString.ToEntero And DdlTipoComprobante.SelectedValue = "Rem" And ViewState("CveClienteAnterior").ToString.ToEntero > 0 And LblRFC.Text.Trim <> "XAXX010101000" Then
-                                ViewState("CveCliente") = ViewState("CveClienteAnterior").ToString.ToEntero
+            If CreditoDispo > 0 Then
+                Dim Vta As New ClsVentas
+                Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
+                Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                Vta.Dispose()
+                If Opcion > 0 Then
+                    If ModalidadEdicion AndAlso ViewState("CveCliente").ToString.ToEntero <> ViewState("CveClienteAnterior").ToString.ToEntero And DdlTipoComprobante.SelectedValue = "Rem" And ViewState("CveClienteAnterior").ToString.ToEntero > 0 And LblRFC.Text.Trim <> "XAXX010101000" Then
+                        ViewState("CveCliente") = ViewState("CveClienteAnterior").ToString.ToEntero

                        CargaCliente(ViewState("CveCliente").ToString.ToEntero)
-                                If Opcion > 0 Then
-                                    If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                                Else
-                                    If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
-                                End If
-                                BtnEmitirImprimir.Visible = False
-                                BtnVistaPrevia.Visible = False
-                                UpFacturar.Update()
-                                Exit Sub
-                            ElseIf DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso EsCreaApartirDe Then
-                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
-                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
-                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
-                                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
-                                BtnGenerarRemision.Visible = False
-                                BtnGenerarOS.Visible = False
-                                BtnEmitirImprimir.Visible = True
-                                BtnsFacturar.Visible = False
-                            Else
-
-                                If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
-                                    BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
-                                End If
-                                BtnGenerarRemision.Visible = False
-                                BtnGenerarOS.Visible = False
-                                BtnEmitirImprimir.Visible = False
-                                BtnsFacturar.Visible = False
-                                If ViewState("CveCliente").ToString.ToEntero <> ViewState("CveClienteAnterior").ToString.ToEntero Then
-                                    If Opcion > 0 Then
-                                        If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                                    Else
-                                        If Alertas Then Alert("El cliente tiene límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
-                                    End If
-                                End If
-                            End If
+                        If Opcion > 0 Then
+                            If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                        Else
-                            BtnGeneraAutorizacion.Visible = False
-                            If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
-                                BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
-                            End If
+                            If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
                        End If
-                    Else
+                        BtnEmitirImprimir.Visible = False
+                        BtnVistaPrevia.Visible = False
+                        UpFacturar.Update()
+                        Exit Sub
+                    ElseIf DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso EsCreaApartirDe Then
+                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
+                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
+                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
                        BtnGenerarRemision.Visible = False
+                        BtnGenerarOS.Visible = False
+                        BtnEmitirImprimir.Visible = True
+                        BtnsFacturar.Visible = False
+                    Else
+
                        If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
                            BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
                        End If
+                        BtnGenerarRemision.Visible = False
+                        BtnGenerarOS.Visible = False
+                        BtnEmitirImprimir.Visible = False
+                        BtnsFacturar.Visible = False
+                        If ViewState("CveCliente").ToString.ToEntero <> ViewState("CveClienteAnterior").ToString.ToEntero Then
+                            If Opcion > 0 Then
+                                If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+                            Else
+                                If Alertas Then Alert("El cliente tiene límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
+                            End If
+                        End If
+                    End If
+                Else
+                    BtnGeneraAutorizacion.Visible = False
+                    If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
+                        BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
                    End If
                End If
+            Else
+                BtnGenerarRemision.Visible = False
+                If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
+                    BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
+                End If
+            End If
+        End If

    End Sub

@@ -13755,7 +13755,9 @@ Partial Class Ventas
    End Sub
    Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
        CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero)
-        CargaRestriccionesCreditoCliente(Alertas:=True)
+        'If Me.CveVenta > 0 Then
+        '    CargaRestriccionesCreditoCliente(Alertas:=True)
+        'End If
    End Sub
    Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
        Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
@@ -24167,9 +24169,11 @@ Partial Class Ventas
                PlazoCobranzaRemision = ObjCliente.PlazoCobranzaRemision
                'TxtNumCtaPago.Text = ObjCliente.NumCtaPago
                TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
+                DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
            End If
        End If
        ObjCliente.Dispose()
+        DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)

        TrVistaPrevia.Visible = True
        TxtFechaVencimientoCotizacion.Text = Now.ToShortDateString
@@ -24930,7 +24934,7 @@ Partial Class Ventas

    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)

-        If CveVenta <= 0 Then
+        If CveVenta <= 0 OrElse EsCreaApartirDe Then
            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
                If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
                    For Each RowServicio As DataRow In TmpDT.Rows