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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-09-09 09:29:57 -07:00
parent 85a50e7f21 34cd30bacf
commit 870b9e06a1
4 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/Modelos.vb
View File

@@ -4645,7 +4645,7 @@ Namespace Modelos
Dim TotalCostoAcumulado As Decimal = 0 Dim TotalCostoAcumulado As Decimal = 0
Dim cont As Integer = 1 Dim cont As Integer = 1
Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER) 'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER)
For Each RowInv As DataRow In tmpCostos.Rows For Each RowInv As DataRow In tmpCostos.Rows
ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL() ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
@@ -5350,7 +5350,7 @@ Namespace Modelos
End If End If
CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
FacturaDevolucion.CveVenta = CveVenta FacturaDevolucion.CveVenta = CveVenta
FacturaDevolucion.CvePrePoliza = CvePrePoliza FacturaDevolucion.CvePrePoliza = CvePrePoliza

2
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -14,7 +14,7 @@ Partial Class Inventarios_KardexAlmacen
CargaCombos() CargaCombos()
ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
pnlOrden.Visible = False pnlOrden.Visible = False
If UsuarioActual.CveEmpresa = 141 Then If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
pnlOrden.Visible = True pnlOrden.Visible = True
DdlOrden.SelectedValue = 2 DdlOrden.SelectedValue = 2
End If End If

18
OC/OC.aspx.vb
View File

@@ -1234,6 +1234,10 @@ Partial Class OC
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero
'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
If CveConfianzaProveedor <= 0 Then
CveConfianzaProveedor = 2
End If
End If End If
'Anticipos 'Anticipos
@@ -5335,9 +5339,17 @@ Partial Class OC
If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If Objeto.DtResultados.Rows.Count > 0 Then If Objeto.DtResultados.Rows.Count > 0 Then
Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero() If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
ChkCotizacion.Checked = CveConfianzaProveedor > 0 Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
If CveConfianzaProveedor <= 0 Then
CveConfianzaProveedor = 2
End If
ChkCotizacion.Checked = CveConfianzaProveedor > 0
ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
End If
End If End If
End If End If

8
Ventas/ProductosServicios.aspx.vb
View File

@@ -2607,10 +2607,10 @@ Partial Class ProductosyServicios
End Sub End Sub
Protected Sub BtnAddSeccionAlmacen_Click(sender As Object, e As EventArgs) Protected Sub BtnAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then 'If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then
Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia) ' Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If 'End If
Dim Row As DataRow = Nothing Dim Row As DataRow = Nothing
Row = DtSeccionAlmacen.NewRow Row = DtSeccionAlmacen.NewRow