Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -2214,6 +2214,7 @@ Partial Class Ventas
|
||||
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
|
||||
TrAlmacenAsignado.Visible = True
|
||||
TrAlmacenOrigen.Visible = True
|
||||
End If
|
||||
|
||||
Dim CveAlmacenDestino As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenDestino", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero()
|
||||
@@ -2232,6 +2233,7 @@ Partial Class Ventas
|
||||
Else
|
||||
RequiereAlmacenDestino = False
|
||||
TrAlmacenAsignado.Visible = False
|
||||
TrAlmacenOrigen.Visible = False
|
||||
End If
|
||||
|
||||
'ENVIO DE FACTURA
|
||||
@@ -2244,11 +2246,12 @@ Partial Class Ventas
|
||||
|
||||
'Modalidad Contrato
|
||||
If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then
|
||||
TrAlmacenOrigen.Visible = False
|
||||
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
|
||||
TrAlmacenAsignado.Visible = True
|
||||
|
||||
TrAlmacenOrigen.Visible = True
|
||||
End If
|
||||
|
||||
UPCondicionesPago.Visible = False
|
||||
RequiereAlmacenDestino = True
|
||||
CveContrato = Request("CveContrato").ToEntero()
|
||||
@@ -3016,11 +3019,28 @@ Partial Class Ventas
|
||||
DdlAlmacenAsignado.DataBind()
|
||||
End If
|
||||
|
||||
Dim CveAlmacenOrigen As Integer = DrContrato("CveAlmacenOrigen").ToString().ToEntero()
|
||||
|
||||
If CveAlmacenOrigen > 0 Then
|
||||
'TrAlmacenOrigen.Visible = True
|
||||
|
||||
DdlAlmacenOrigen.Items.Clear()
|
||||
DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1, CveAlmacen:=CveAlmacenOrigen) '.FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
|
||||
DdlAlmacenOrigen.DataBind()
|
||||
DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString())
|
||||
|
||||
End If
|
||||
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
|
||||
DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
|
||||
DdlAlmacenAsignado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlAlmacenAsignado.SelectedValueExist(CveAlmacenDestino.ToString())
|
||||
DdlAlmacenAsignado.DataBind()
|
||||
|
||||
DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
|
||||
DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString())
|
||||
DdlAlmacenOrigen.DataBind()
|
||||
End If
|
||||
|
||||
UpParametros.Update()
|
||||
@@ -3274,7 +3294,10 @@ Partial Class Ventas
|
||||
DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} {If(DdlTipoComprobante.SelectedValue = "Ped", "", "AND CveTipoAlmacen IN (4,10)")}")
|
||||
DdlAlmacenAsignado.DataBind()
|
||||
DdlAlmacenAsignado.Enabled = True
|
||||
|
||||
TrAlmacenAsignado.Visible = True
|
||||
TrAlmacenOrigen.Visible = True
|
||||
|
||||
TrTipoPedido.Visible = True
|
||||
TrObs.InnerText = "No. Serie"
|
||||
SpObs.InnerText = "Contrato"
|
||||
@@ -7357,16 +7380,20 @@ Partial Class Ventas
|
||||
If ObjContr.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
If ObjContr.DtResultados.Rows.Count > 0 Then
|
||||
' si es flexible que notifique el monto maximo, si no lo es que notifique el porcentaje alcanzado... flexible = 2, no flexible = 1
|
||||
Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString().ToDouble
|
||||
|
||||
|
||||
'SI ES FLEXIBLE QUE NOTIFIQUE EL MONTO MAXIMO, SI NO LO ES QUE NOTIFIQUE EL PORCENTAJE ALCANZADO... FLEXIBLE = 2, NO FLEXIBLE = 1
|
||||
If ObjContr.DtResultados.Rows(0)("ModalidadDetalle").ToString() = "1" Then
|
||||
Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString().ToDouble
|
||||
|
||||
If PorcentajeAvance >= 100 Then
|
||||
EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString())
|
||||
End If
|
||||
Else
|
||||
Dim MontoMaximo As Double = ObjContr.DtResultados.Rows(0)("ImporteMax").ToString().ToDouble
|
||||
Dim Avance As Double = ObjContr.DtResultados.Rows(0)("Avance").ToString().ToDouble
|
||||
|
||||
Dim PorcentajeAvance As Double = (Avance / MontoMaximo) * 100
|
||||
|
||||
If PorcentajeAvance >= 100 And MontoMaximo > 0 Then
|
||||
EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString(), MontoMaximo)
|
||||
@@ -7554,7 +7581,6 @@ Partial Class Ventas
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CreaObjetosVentaAmortizacion(ObjVentas As ClsVentas, FolioFiscalRelacionado As String, CveAnticipoPadre As Integer,
|
||||
Optional CveVentasPadre As Integer = -1, Optional NCDescuento As Boolean = False)
|
||||
ObjFacturaDevolucion = New Modelos.Factura
|
||||
@@ -12243,7 +12269,9 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
|
||||
DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3"))
|
||||
If Not DdlTipoAmortizacionAnticipo.Items.Cast(Of ListItem).Any(Function(x) x.Value = "3") Then
|
||||
DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3"))
|
||||
End If
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(343) = "1" Then
|
||||
@@ -13102,6 +13130,7 @@ Partial Class Ventas
|
||||
If DdlTipoComprobante.SelectedValue = "Rem" Then
|
||||
DdlTipoComprobante.Enabled = False
|
||||
TrAlmacenAsignado.Visible = False
|
||||
TrAlmacenOrigen.Visible = False
|
||||
UpParametros.Update()
|
||||
End If
|
||||
|
||||
@@ -14196,6 +14225,7 @@ Partial Class Ventas
|
||||
'REINICIALIZA VALORES DE ENTREGA POR ADELANTADO
|
||||
RequiereAlmacenDestino = False
|
||||
TrAlmacenAsignado.Visible = False
|
||||
TrAlmacenOrigen.Visible = False
|
||||
|
||||
If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135) = "1" Then
|
||||
Alert("Se ocupa una autorización.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -14287,10 +14317,21 @@ Partial Class Ventas
|
||||
DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (10)")
|
||||
DdlAlmacenAsignado.DataBind()
|
||||
End If
|
||||
|
||||
Dim CveAlmacenOrigen As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenOrigen", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero()
|
||||
|
||||
If CveAlmacenOrigen > 0 Then
|
||||
DdlAlmacenOrigen.Items.Clear()
|
||||
DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1, CveAlmacen:=CveAlmacenOrigen) '.FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
|
||||
DdlAlmacenOrigen.DataBind()
|
||||
DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString())
|
||||
End If
|
||||
|
||||
UpParametros.Update()
|
||||
Else
|
||||
RequiereAlmacenDestino = False
|
||||
TrAlmacenAsignado.Visible = False
|
||||
TrAlmacenOrigen.Visible = False
|
||||
End If
|
||||
|
||||
'ENVIO DE FACTURA
|
||||
|
||||
Reference in New Issue
Block a user