Retencion de servicios desde crear a partir de
This commit is contained in:
@@ -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="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="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="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" />
|
<asp:Button ID="BtnGenerarOS" runat="server" Text="Generar OS" Visible="false" CssClass="btn myventasbutton btn-primary" />
|
||||||
|
|
||||||
|
|||||||
@@ -5335,65 +5335,65 @@ Partial Class Ventas
|
|||||||
UPPCreditoDisponible.Update()
|
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
|
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)
|
Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero)
|
||||||
If CreditoDispo > 0 Then
|
If CreditoDispo > 0 Then
|
||||||
Dim Vta As New ClsVentas
|
Dim Vta As New ClsVentas
|
||||||
Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
|
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)
|
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
|
||||||
Vta.Dispose()
|
Vta.Dispose()
|
||||||
If Opcion > 0 Then
|
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
|
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
|
ViewState("CveCliente") = ViewState("CveClienteAnterior").ToString.ToEntero
|
||||||
|
|
||||||
CargaCliente(ViewState("CveCliente").ToString.ToEntero)
|
CargaCliente(ViewState("CveCliente").ToString.ToEntero)
|
||||||
If Opcion > 0 Then
|
If Opcion > 0 Then
|
||||||
If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
|
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
|
|
||||||
Else
|
Else
|
||||||
BtnGeneraAutorizacion.Visible = False
|
If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
|
||||||
If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
|
|
||||||
BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
|
|
||||||
End If
|
|
||||||
End If
|
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
|
BtnGenerarRemision.Visible = False
|
||||||
|
BtnGenerarOS.Visible = False
|
||||||
|
BtnEmitirImprimir.Visible = True
|
||||||
|
BtnsFacturar.Visible = False
|
||||||
|
Else
|
||||||
|
|
||||||
If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
|
If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
|
||||||
BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
|
BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
|
||||||
End If
|
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
|
||||||
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
|
End Sub
|
||||||
|
|
||||||
@@ -13755,7 +13755,9 @@ Partial Class Ventas
|
|||||||
End Sub
|
End Sub
|
||||||
Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
|
Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
|
||||||
CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero)
|
CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero)
|
||||||
CargaRestriccionesCreditoCliente(Alertas:=True)
|
'If Me.CveVenta > 0 Then
|
||||||
|
' CargaRestriccionesCreditoCliente(Alertas:=True)
|
||||||
|
'End If
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||||
Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
|
Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
|
||||||
@@ -24167,9 +24169,11 @@ Partial Class Ventas
|
|||||||
PlazoCobranzaRemision = ObjCliente.PlazoCobranzaRemision
|
PlazoCobranzaRemision = ObjCliente.PlazoCobranzaRemision
|
||||||
'TxtNumCtaPago.Text = ObjCliente.NumCtaPago
|
'TxtNumCtaPago.Text = ObjCliente.NumCtaPago
|
||||||
TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
|
TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
|
||||||
|
DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
ObjCliente.Dispose()
|
ObjCliente.Dispose()
|
||||||
|
DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
|
||||||
|
|
||||||
TrVistaPrevia.Visible = True
|
TrVistaPrevia.Visible = True
|
||||||
TxtFechaVencimientoCotizacion.Text = Now.ToShortDateString
|
TxtFechaVencimientoCotizacion.Text = Now.ToShortDateString
|
||||||
@@ -24930,7 +24934,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
|
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 UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
|
||||||
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
|
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
|
||||||
For Each RowServicio As DataRow In TmpDT.Rows
|
For Each RowServicio As DataRow In TmpDT.Rows
|
||||||
|
|||||||
Reference in New Issue
Block a user