AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correciones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-09-04 19:02:40 -07:00
parent 9c0420f379
commit 952d7f95ab
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Ventas.aspx.vb
View File

@@ -2250,8 +2250,8 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
TrAlmacenAsignado.Visible = True TrAlmacenAsignado.Visible = True
TrAlmacenOrigen.Visible = True TrAlmacenOrigen.Visible = True
End If End If
UPCondicionesPago.Visible = False UPCondicionesPago.Visible = False
RequiereAlmacenDestino = True RequiereAlmacenDestino = True
CveContrato = Request("CveContrato").ToEntero() CveContrato = Request("CveContrato").ToEntero()
@@ -3292,8 +3292,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.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.DataBind()
DdlAlmacenAsignado.Enabled = True DdlAlmacenAsignado.Enabled = True
TrAlmacenAsignado.Visible = True TrAlmacenAsignado.Visible = True
TrAlmacenOrigen.Visible = True TrAlmacenOrigen.Visible = True
TrTipoPedido.Visible = True TrTipoPedido.Visible = True
TrObs.InnerText = "No. Serie" TrObs.InnerText = "No. Serie"
SpObs.InnerText = "Contrato" SpObs.InnerText = "Contrato"
@@ -7575,7 +7577,6 @@ Partial Class Ventas
End If End If
End Sub End Sub
Private Sub CreaObjetosVentaAmortizacion(ObjVentas As ClsVentas, FolioFiscalRelacionado As String, CveAnticipoPadre As Integer, Private Sub CreaObjetosVentaAmortizacion(ObjVentas As ClsVentas, FolioFiscalRelacionado As String, CveAnticipoPadre As Integer,
Optional CveVentasPadre As Integer = -1, Optional NCDescuento As Boolean = False) Optional CveVentasPadre As Integer = -1, Optional NCDescuento As Boolean = False)
ObjFacturaDevolucion = New Modelos.Factura ObjFacturaDevolucion = New Modelos.Factura
@@ -12264,7 +12265,9 @@ Partial Class Ventas
End If End If
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then 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 End If
If UsuarioActual.Empresa.Funcionalidad(343) = "1" Then If UsuarioActual.Empresa.Funcionalidad(343) = "1" Then