SubTipo Activo Fijo:
+ SubTipo Fijo:
Producto Servicio:
+
| Enero | -Febero | +Febrero | Marzo | Abril | Mayo | diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 56e6c5379..0ef7196ce 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -67,9 +67,16 @@
|---|
-
+
Cuenta
@@ -728,7 +735,54 @@
-
+
+
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 6e2809470..c5225c895 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -4,6 +4,7 @@ Imports System.Data
Imports Extensiones
Imports System.Linq
Imports System.Web.Services
+Imports GemBox.Spreadsheet
Partial Class ContabilidadC_RegPrePoliza
Inherits ClsPaginas
@@ -171,6 +172,8 @@ Partial Class ContabilidadC_RegPrePoliza
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+
+
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
End If
@@ -223,8 +226,9 @@ Partial Class ContabilidadC_RegPrePoliza
Contabilizar()
End If
Exit Sub
+ LnkExcel.Visible = False
Else
-
+ LnkExcel.Visible = True
CreaDT()
BtnEliminar.Visible = False
@@ -527,13 +531,20 @@ Partial Class ContabilidadC_RegPrePoliza
If UsuarioActual.CveEmpresa.Contiene(120) Then
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+ DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+
Else
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+ DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+
End If
DdlPlantilla.DataBind()
DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
+
+ DdlPlantilla2.DataBind()
+ DdlPlantilla2.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
End Sub
Private Sub CargaConceptos()
@@ -801,6 +812,8 @@ Partial Class ContabilidadC_RegPrePoliza
dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
dr("CveCuenta") = drt("CveCuenta")
DtMovimientos.Rows.Add(dr)
+
+
Next
@@ -1754,5 +1767,252 @@ Partial Class ContabilidadC_RegPrePoliza
End If
ObjGral.Dispose()
End Sub
+
+ Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+ RegistraScript(String.Format("$('#{0}').modal();", "DivCargaExcel"))
+
+ End Sub
+
+ Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
+ Dim NombreArchivo As String
+ SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+ Dim workbook As New ExcelFile()
+ Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString)
+
+ Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero
+ Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
+
+ Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows
+ Select New With
+ {
+ .ConceptoAdministrativo = row.Item("ConceptoContable"),
+ .Cuenta = "",
+ .NombreCuenta = "",
+ .Cargo = "",
+ .Abono = "",
+ .Referencia = "",
+ .Concepto = "",
+ .SubProyecto = row.Item("SubProyecto"),
+ .CveConceptoContable = row.Item("CveConcepto"),
+ .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
+ .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1)
+ }).QueryToDataTable(True)
+
+ worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+ {
+ .ColumnHeaders = True,
+ .StartRow = 0,
+ .StartColumn = 0
+ })
+
+ Dim columnCount = worksheet.CalculateMaxUsedColumns()
+ For i = 0 To columnCount
+ worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+ Next
+ worksheet.Columns("I").Hidden = True
+ worksheet.Columns("J").Hidden = True
+ worksheet.Columns("K").Hidden = True
+
+
+ NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString
+ workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
+
+
+ End Sub
+
+ Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+ If TxtExcel.getfiles().Archivos.Count > 0 Then
+ Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+
+ Dim Directorio As String = Server.MapPath("~") & file.patch
+
+ Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+ CargarArchivo(Directorio, file.filename, Tipo)
+ Else
+ Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
+ End If
+ End Sub
+ Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+ Dim dt As New DataTable
+ ' Conexion As Odbc.OdbcConnection = Nothing
+ Dim ErrorArchivo = False
+ Dim ErrorExcel = False
+
+ dt = ReadExcelFile(Ruta + FileName, True)
+
+
+ If Not ErrorArchivo Then
+
+ If Not dt.Columns(0).ColumnName = "ConceptoAdministrativo" Then
+ Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(1).ColumnName = "Cuenta" Then
+ Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(2).ColumnName = "NombreCuenta" Then
+ Alert("El nombre de la tercera columna debe ser 'NombreCuenta'.Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(3).ColumnName = "Cargo" Then
+ Alert("El nombre de la cuarta columna debe ser 'Cargo'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(4).ColumnName = "Abono" Then
+ Alert("El nombre de la quinta columna debe ser 'Abono' .Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(5).ColumnName = "Referencia" Then
+ Alert("El nombre de la sexta columna debe ser 'Referencia'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(6).ColumnName = "Concepto" Then
+ Alert("El nombre de la séptima columna debe ser 'Concepto'.Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(7).ColumnName = "SubProyecto" Then
+ Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ End If
+
+ If Not ErrorArchivo Then
+
+
+ Dim ObjConta As New ClsContabilidad()
+ ObjConta.IniciaTransacSQL()
+ Try
+ Dim TieneError As Boolean = False
+ Dim ContadorUpdate As Integer = 0
+ Dim ContadorError As Integer = 0
+ Dim NombreCuenta As String = ""
+ Dim CvePrePoliza As Integer = 0
+ Dim Cuenta As String = ""
+ Dim Reporte As New StringBuilder
+ Dim TotalCargos As Integer = 0
+ Dim TotalAbonos As Integer = 0
+
+
+ CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, DdlPlantilla2.SelectedItem.Text.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero)
+
+
+ For Each Row As DataRow In dt.Rows
+ NombreCuenta = Row("NombreCuenta").ToString
+ Cuenta = Row("Cuenta").ToString
+
+ Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
+ Dim Concepto As String = Row("Concepto").ToString
+ Dim Referencia As String = Row("Referencia").ToString
+ Dim IdCuenta As Integer = -1
+ Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
+ Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
+ Dim YaExiste As Boolean = False
+ Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
+ Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
+
+ If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
+ If ObjConta.DtResultados.Rows.Count > 0 Then
+ IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
+ 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
+ Else
+ Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} ")
+ TieneError = True
+ YaExiste = True
+ End If
+ Else
+ TieneError = True
+ Exit For
+ End If
+
+
+ 'If TipoCuenta.Contiene("A", "C", "E") Then
+ ' CargoAbono = False
+ 'End If
+
+ If YaExiste = False Then
+ If IdCuenta > 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
+ TieneError = True
+ Exit For
+ End If
+ Else
+ IdCuenta = -2
+ End If
+ End If
+
+
+ Next
+ If Not TieneError Then
+ ObjConta.Commit()
+ Alert(String.Format("
+
+
+
+ Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) + + Alert($"Se agregó la póliza {ObjConta.ContaFolio}") + + Else + Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError) + ObjConta.RollBack() + End If + + + Catch ex As Exception + ObjConta.RollBack() + End Try + + ObjConta.Dispose() + End If + End Sub + + Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable + SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) + Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) + + Dim unnamed As Integer = 0 + Dim cols As Integer + Dim columns As String() + Dim curRow As Integer = 0 + Dim curCol As Integer = 0 + Dim dataTable As DataTable = New DataTable() + Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0) + + For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 + + If firstRowHasHeaders Then + + If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then + dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString().Trim) + Else + dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) + End If + + curRow = 1 + Else + dataTable.Columns.Add("Column " & (cols + 1)) + End If + + Next + + While curRow < worksheet.Rows.Count + + columns = New String(cols - 1) {} + + For curCol = 0 To cols - 1 + + If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then + columns(curCol) = "" + Else + columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() + End If + + Next + + dataTable.Rows.Add(columns) + curRow += 1 + + End While + + Return dataTable + + End Function End Class diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index c863ad3d2..720b93107 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -316,7 +316,7 @@ Partial Class Contabilidad2_CatCuentas Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") - If UsuarioActual.Empresa.TipoContabilidad <> 1 Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa) @@ -372,6 +372,10 @@ Partial Class Contabilidad2_CatCuentas 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad +<<<<<<< HEAD + Dim ObjConta2 As ClsContPAQi +======= +>>>>>>> ee1135d888f76469fa6e3e68f0b6393f8450045a Dim CuentaEfectivo As Integer = 0 Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable @@ -386,7 +390,7 @@ Partial Class Contabilidad2_CatCuentas End If If idnew > 0 Then - If UsuarioActual.Empresa.TipoContabilidad <> 1 Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa) Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text If ObjConta2.GetCuentas(-1, "-1", -1) Then @@ -397,58 +401,71 @@ Partial Class Contabilidad2_CatCuentas IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero End If - If IdPadre > 0 Then - Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador) - If idnew2 > 0 Then - If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then + Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa) + + If ObjConta2.GetCuentas(-1, "-1", -1) Then + Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero + Dim IdAgrupador As Integer + + If ObjConta2.GetAgrupadoresSAT() Then + IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero + End If + + If IdPadre > 0 Then + Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador) + + If idnew2 > 0 Then + If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then + End If + End If + End If End If - + ObjConta2.Dispose() End If + + Dim dr As DataRow = DtDatos.NewRow + dr("CveCuenta") = idnew + dr("CuentaFormato") = TxtCuenta.Text + 'dr("CuentaFormato") = Tcuenta.Text + dr("Nombre") = Tnombre.Text + dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text) + 'dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text) + dr("Tipo") = DTcuenta.SelectedValue.ToString + dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString + dr("CvePadre") = IDSelected + dr("Codigo") = Tnombre.Text + dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero + dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero + dr("NomIdioma") = TxtNomIngles.Text.Trim + DtDatos.Rows.Add(dr) + ArbolCuentas.DataSource = DtDatos + '.Attributes.Add("data-hijos","0"); + Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) + item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1 + Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL) + If (IsNothing(objul)) Then + objul = New ADServerControl.DragableUL + objul.ID = String.Format("ul{0}", item.Cve) + item.Controls.Add(objul) + End If + ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)) + + LimpiarCampos() + updatos.Update() + CargaDatos() + + Alert("La cuenta se guardo correctamente") End If - ObjConta2.Dispose() - End If + + ObjConta.Dispose() + + If ObjConta2 IsNot Nothing Then ObjConta2.Dispose() - 'Dim dr As DataRow = DtDatos.NewRow - 'dr("CveCuenta") = idnew - 'dr("CuentaFormato") = TxtCuenta.Text - ''dr("CuentaFormato") = Tcuenta.Text - 'dr("Nombre") = Tnombre.Text - 'dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text) - ''dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text) - 'dr("Tipo") = DTcuenta.SelectedValue.ToString - 'dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString - 'dr("CvePadre") = IDSelected - 'dr("Codigo") = Tnombre.Text - 'dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero - 'dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero - 'dr("NomIdioma") = TxtNomIngles.Text.Trim - 'DtDatos.Rows.Add(dr) - 'ArbolCuentas.DataSource = DtDatos - ''.Attributes.Add("data-hijos","0"); - 'Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) - 'item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1 - 'Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL) - 'If (IsNothing(objul)) Then - ' objul = New ADServerControl.DragableUL - ' objul.ID = String.Format("ul{0}", item.Cve) - ' item.Controls.Add(objul) - 'End If - 'ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)) - ''ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)) - - ''updatos.Visible = False - ''nuevacuenta.Visible = False - LimpiarCampos() - updatos.Update() - CargaDatos() - - Alert("La cuenta se guardo correctamente") - End If - - ObjConta.Dispose() End Sub Private Sub LimpiarCampos() TxtCuenta.Text = "" @@ -496,7 +513,7 @@ Partial Class Contabilidad2_CatCuentas Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") - If UsuarioActual.Empresa.TipoContabilidad <> 1 Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa) If ObjConta2.GetCuentas(-1, "-1", -1) Then Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero diff --git a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc index d2db328a8..e6d4abd83 100644 --- a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc +++ b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc @@ -1,1016 +1,5 @@ -
Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) + Alert(String.Format("
Prepóliza: Prepóliza", CvePrePoliza, ObjConta.ContaFolio)) Alert($"Se agregó la póliza {ObjConta.ContaFolio}") diff --git a/Global.asax b/Global.asax index 11258feff..a5425d84b 100644 --- a/Global.asax +++ b/Global.asax @@ -74,7 +74,7 @@ Using ObjActivosFijos As New ClsAF If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing - If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing + 'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing diff --git a/Inicio.aspx b/Inicio.aspx index f1548a284..20d7705e5 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -535,7 +535,7 @@
+ <%--
-
+ --%>
<%-- DIRECTORIO TELEFONICO --%>
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 3293c0fa6..1f26f44b1 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -125,11 +125,22 @@ Partial Class Inventarios_AjustesSeccionAlmacen
If gvr.FCCheckBox("ChkEditCaducidad").Checked And FechaCaducidadNueva.Length > 0 And FechaCaducidadNueva <> FechaCaducidadOriginal Then
If Not ListaCaducidad.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaCaducidad.Add(gvr.DataKey("CvePS").ToEntero, FechaCaducidadNueva) 'guardo que dato le corresponde
Modificar = True
+ If FechaCaducidadOriginal = "" Then
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False, False)
+ Else
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True, True)
+ End If
End If
If gvr.FCCheckBox("ChkLote").Checked And LoteNuevo.Length > 0 And LoteNuevo <> LoteOriginal Then
If Not ListaLote.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaLote.Add(gvr.DataKey("CvePS").ToEntero, LoteNuevo) 'guardo que dato le corresponde
Modificar = True
+ If LoteOriginal = "" Then
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False, False)
+ Else
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True, True)
+ End If
+
End If
If Modificar Then
@@ -187,6 +198,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If
+ If Lote = "" Then
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, False, False)
+ Else
+ ErrorMovInv = Not ObjPS.UpdateAplicaLoteCaducidadAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True, True)
+ End If
+
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
ErrorMovInv = True
Exit For
@@ -420,7 +437,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim Lote As String = RowExcel("Lote").ToString()
Dim FechaCaducidad As Date = IfNull(RowExcel("FechaCaducidad"), MinFecha).ToString.ToDate
- Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS} and ISNULL(Serie,'') = '{Serie}'")
+ Dim RowExistencia As DataRow = DtExistenciasSecciones.FiltroPrimero($"CvePS={CvePS} and ISNULL(Serie,'') = '{Serie}'", Orderby:="Serie,Lote,FechaCaducidad")
If RowExistencia IsNot Nothing Then
Dim CveSeccionAlmacenSalida As Integer = RowExistencia("CveSeccionAlmacen").ToString().ToEntero()
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index e11c48081..13fe60ac7 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -263,6 +263,15 @@ Partial Class Inventarios_EntregaAlmacen
End Set
End Property
+ Private Property ValidaLoteCaducidad As Boolean
+ Get
+ Return CType(ViewState("ValidaLoteCaducidad"), Boolean)
+ End Get
+ Set(value As Boolean)
+ ViewState("ValidaLoteCaducidad") = value
+ End Set
+ End Property
+
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -270,7 +279,7 @@ Partial Class Inventarios_EntregaAlmacen
InicializaValores()
CargaParametrosAD()
- If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then DdlAlmacen.AutoPostBack = True
+ If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119) Then DdlAlmacen.AutoPostBack = True
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Then
@@ -527,7 +536,7 @@ Partial Class Inventarios_EntregaAlmacen
CveVentaAD = -2
CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero())
End Sub
- Private Sub CargaVentaPorSurtir(CveVenta As Integer)
+ Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1)
LbSurtida.Visible = False
CveContrato = -1
CveSubProyecto = -1
@@ -544,14 +553,14 @@ Partial Class Inventarios_EntregaAlmacen
Dim ObjInventario As New ClsInventarios
- If ObjInventario.EntregaAlmacenGet(CveVenta) Then
+ If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
- DtDatos = ObjInventario.DtResultados
- DtDatos.Columns.Add("Consec", GetType(Integer))
- DtDatos.Columns.Add("CantidadGV", GetType(Double))
- DtDatos.Columns.Add("CantidadTraspaso", GetType(Double))
+ DtDatos = ObjInventario.DtResultados
+ If Not DtDatos.Columns.Contains("Consec") Then DtDatos.Columns.Add("Consec", GetType(Integer))
+ If Not DtDatos.Columns.Contains("CantidadGV") Then DtDatos.Columns.Add("CantidadGV", GetType(Double))
+ If Not DtDatos.Columns.Contains("CantidadTraspaso") Then DtDatos.Columns.Add("CantidadTraspaso", GetType(Double))
Dim Index = 1
For Each Dr As DataRow In DtDatos.Rows
Dr("Consec") = Index
@@ -574,8 +583,15 @@ Partial Class Inventarios_EntregaAlmacen
HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
If UsuarioActual.TienePermisoProceso(201) Then
HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}"
- End If
-
+ End If
+
+ 'filtra los Almacenes de domicilio
+ If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
+ StrAlmacenes = String.Format("{0} AND Almacen like '%Domicilio%' ", StrAlmacenes)
+ Else
+ StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
+ End If
+
LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString()
LbObservacionesAlmacen.Text = DtDatos.Rows(0)("ObservacionesAlmacen").ToString()
CveVentaSurtir = CveVenta
@@ -605,43 +621,45 @@ Partial Class Inventarios_EntregaAlmacen
If TipoMovimiento = 2 And TipoDocto = "Rem" And Not CveAlmacenTraspasoDestino > 0 Then
Alert("La remisión que se intenta devolver presenta inconsistencias. Comuniquese con servicio tecnico SIG.", TipoMensaje.MsgError)
BtnGuardar.Visible = False
- End If
-
- DdlAlmacen.Items.Clear()
- If CveAlmacenTraspasoOrigen > 0 Then 'Not (EsDevolucionVenta = 1 And DtDatos.Rows(0)("TipoDocto").ToString() = "Rem" And UsuarioActual.Empresa.Funcionalidad(145) = "1") - ESTO ES PARA CUANDO SEA REMISION DE ENTREGA POR ADELANTADO FUNCIONA LA DEVOLUCION
- DdlAlmacen.Items.Insert(0, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacenTraspasoOrigen}"), CveAlmacenTraspasoOrigen.ToString()))
- Else
- '[IPP] PARCHE - Debe hacerse permiso proceso - 17Enero2018
- Dim RestriccionAlmacenSubProyecto = If(UsuarioActual.CveEmpresa.Contiene(72, 80), $" AND CveSubProyecto = {CveSubProyecto}", "")
- DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"{StrAlmacenes} {RestriccionAlmacenSubProyecto}")
- End If
- DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
- DdlAlmacen.SelectedValue = "-1"
- DdlAlmacen.DataBind()
- DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
- If CveAlmacenTraspasoOrigen > 0 Then
- DdlAlmacen.SelectedValueExist(CveAlmacenTraspasoOrigen)
- End If
-
- If Not DtDatos.Columns.Contains("Serie") Then
- DtDatos.Columns.Add("Serie", GetType(String))
- End If
- If Not DtDatos.Columns.Contains("Lote") Then
- DtDatos.Columns.Add("Lote", GetType(String))
- End If
- If Not DtDatos.Columns.Contains("CveSeccion") Then
- DtDatos.Columns.Add("CveSeccion", GetType(Integer))
- End If
- If Not DtDatos.Columns.Contains("FechaCaducidad") Then
- DtDatos.Columns.Add("FechaCaducidad", GetType(Date))
- End If
- If Not DtDatos.Columns.Contains("Seleccionado") Then
- DtDatos.Columns.Add("Seleccionado", GetType(Boolean))
- End If
- If Not DtDatos.Columns.Contains("CantidadSeleccionada") Then
- DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
- End If
-
+ End If
+
+
+ If CveAlmacen <= 0 Then
+ DdlAlmacen.Items.Clear()
+ If CveAlmacenTraspasoOrigen > 0 Then 'Not (EsDevolucionVenta = 1 And DtDatos.Rows(0)("TipoDocto").ToString() = "Rem" And UsuarioActual.Empresa.Funcionalidad(145) = "1") - ESTO ES PARA CUANDO SEA REMISION DE ENTREGA POR ADELANTADO FUNCIONA LA DEVOLUCION
+ DdlAlmacen.Items.Clear()
+ DdlAlmacen.Items.Insert(0, New ListItem(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {CveAlmacenTraspasoOrigen}"), CveAlmacenTraspasoOrigen.ToString()))
+ Else
+ '[IPP] PARCHE - Debe hacerse permiso proceso - 17Enero2018
+ Dim RestriccionAlmacenSubProyecto = If(UsuarioActual.CveEmpresa.Contiene(72, 80), $" AND CveSubProyecto = {CveSubProyecto}", "")
+ DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"{StrAlmacenes} {RestriccionAlmacenSubProyecto}")
+ End If
+
+ DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+ DdlAlmacen.SelectedValue = "-1"
+ DdlAlmacen.DataBind()
+ DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+ If CveAlmacenTraspasoOrigen > 0 Then
+ DdlAlmacen.SelectedValueExist(CveAlmacenTraspasoOrigen)
+ End If
+ End If
+
+ If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto = 10276 Then
+ ValidaLoteCaducidad = True
+ End If
+
+ If Not DtDatos.Columns.Contains("Serie") Then DtDatos.Columns.Add("Serie", GetType(String))
+
+ If Not DtDatos.Columns.Contains("Lote") Then DtDatos.Columns.Add("Lote", GetType(String))
+
+ If Not DtDatos.Columns.Contains("CveSeccion") Then DtDatos.Columns.Add("CveSeccion", GetType(Integer))
+
+ If Not DtDatos.Columns.Contains("FechaCaducidad") Then DtDatos.Columns.Add("FechaCaducidad", GetType(Date))
+
+ If Not DtDatos.Columns.Contains("Seleccionado") Then DtDatos.Columns.Add("Seleccionado", GetType(Boolean))
+
+ If Not DtDatos.Columns.Contains("CantidadSeleccionada") Then DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
+
If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString().ToEntero()
Dim FormaPaq As Integer = FormaPaqueteria
@@ -692,7 +710,7 @@ Partial Class Inventarios_EntregaAlmacen
If TipoDocto.Contiene("Ing") AndAlso TipoMovimiento = 2 Then
Dim DtMov As DataTable = DtExistencias.FiltraParametros("CveConcepto = 40", "", {"CveAlmacen"})
- If DtMov.Rows.Count > 0 Then
+ If DtMov.Rows.Count > 0 AndAlso CveAlmacen <= 0 Then
Dim CveAlmacenDev As Integer = DtMov.Rows(0)("CveAlmacen").ToString().ToEntero()
DdlAlmacen.Items.Clear()
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveAlmacen = {CveAlmacenDev}")
@@ -719,7 +737,7 @@ Partial Class Inventarios_EntregaAlmacen
ObjInventario.Dispose()
UpGenerales.Update()
- CargaGvDatos()
+ If CveAlmacen <= 0 Then CargaGvDatos()
End Sub
Private Sub CargaTraspasoPorSurtir(CveTraspaso As Integer)
@@ -853,8 +871,9 @@ Partial Class Inventarios_EntregaAlmacen
'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
'SugerirFecha()
- If DdlAlmacen.SelectedValue.ToEntero > 0 Then
- SugiereLoteCaducidad(DdlAlmacen.SelectedValue.ToEntero)
+ If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
+ CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero)
+ ' SugiereLoteCaducidad(DdlAlmacen.SelectedValue.ToEntero)
End If
End If
GvDatos.DataSource = DtDatos
@@ -943,21 +962,25 @@ Partial Class Inventarios_EntregaAlmacen
e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
End If
- If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
- e.Row.FCTextBox("TxtCaducidad").Visible = True
- e.Row.FCLinkButton("LnkCaducidad").Visible = True
-
- Else
- e.Row.FCTextBox("TxtCaducidad").Visible = False
- e.Row.FCLinkButton("LnkCaducidad").Visible = False
- End If
-
- If CBool(e.Row.DBCampo("AplicaLote")) Then
- e.Row.FCTextBox("TxtLote").Visible = True
- Else
- e.Row.FCTextBox("TxtLote").Visible = False
- End If
-
+ If (ValidaLoteCaducidad) OrElse (UsuarioActual.CveEmpresa <> 119) Then
+ If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
+ e.Row.FCTextBox("TxtCaducidad").Visible = True
+ e.Row.FCLinkButton("LnkCaducidad").Visible = True
+ e.Row.FCTextBox("TxtCaducidad").readonly = True
+ Else
+ e.Row.FCTextBox("TxtCaducidad").Visible = False
+ e.Row.FCLinkButton("LnkCaducidad").Visible = False
+ End If
+
+ If CBool(e.Row.DBCampo("AplicaLote")) Then
+ e.Row.FCTextBox("TxtLote").Visible = True
+ e.Row.FCTextBox("TxtLote").readonly = True
+ Else
+ e.Row.FCTextBox("TxtLote").Visible = False
+ End If
+
+ End If
+
e.Row.FCButton("BtnDividir").Attributes.Add("onclick", String.Format("Dividir('{0}');", e.Row.FCTextBox("TxtDividir").ClientID))
e.Row.FCButton("BtnDividir").CommandArgument = e.Row.RowIndex.ToString()
e.Row.FCTextBox("TxtDividir").Attributes.Add("onkeyup", String.Format("LimitaCantidad({0},this,'{1}');", e.Row.DBCampo("CantidadF"), e.Row.FCButton("BtnDividir").ClientID))
@@ -1627,7 +1650,13 @@ Partial Class Inventarios_EntregaAlmacen
Exit For
End If
- Next
+ Next
+
+ If (Not ValidaLoteCaducidad) OrElse (UsuarioActual.CveEmpresa <> 119) Then
+ ValidaSeccion = False
+ ValidaCaducidad = False
+ ValidaLote = False
+ End If
If ValidaSeccion Then
Alert("La sección de almacen no ha sido especificada en todos los productos.", TipoMensaje.MsgAdvertencia)
@@ -1769,6 +1798,11 @@ Partial Class Inventarios_EntregaAlmacen
FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
+ If Not ValidaLoteCaducidad Then
+ FechaCaducidad = MinFecha
+ Lote = "-1"
+ End If
+
If Dr("CantidadGV").ToString().ToDecimal > 0 Then
If CBool(Dr("AplicaSerie")) Then
DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
@@ -2428,18 +2462,17 @@ Partial Class Inventarios_EntregaAlmacen
CantidadPendiente = Dr("CantidadGV").ToString().ToDecimal - Dr("CantidadTraspaso").ToString().ToDecimal - CantidadEntradaSinCosto
If CantidadPendiente > 0 Then
Dim PU As Decimal = 0
- Dim CveSeccionAlmacen As Integer = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
+
'SI FUE POR SERIE
DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
If DtDetalle.Rows.Count > 0 Then
For Each Dr1 As DataRow In DtDetalle.Rows
If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
- CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"ISNULL(CveTipoAlmacenDevolucion,0) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
- PU = DtExistencias.FiltroPrimeroValor("PU", $"ISNULL(CveTipoAlmacenDevolucion,0) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
+ PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
End If
- If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then
ErrorMovInv = True
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
Exit For
@@ -2448,11 +2481,10 @@ Partial Class Inventarios_EntregaAlmacen
ElseIf DtDetalleLote.Rows.Count > 0 Then
For Each Dr1 As DataRow In DtDetalleLote.Rows
If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
- CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
End If
- If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
ErrorMovInv = True
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
Exit For
@@ -2463,7 +2495,7 @@ Partial Class Inventarios_EntregaAlmacen
PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()}").ToString().ToDecimal
End If
- If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
ErrorMovInv = True
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar.")
Exit For
@@ -3039,8 +3071,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim CveMovimientoEntrada As Integer
Dim FolioEntrada As Integer
Dim ErrorMovInv As Boolean
- Dim DtDetalle As New DataTable
- Dim DtDetalleLote As New DataTable
+ Dim DtDetalle As New DataTable
Dim TextoError = ""
'PASA DATOS DEL GV A DATATABLE PARA MANEJOR CON FOR EACH
@@ -3150,7 +3181,7 @@ Partial Class Inventarios_EntregaAlmacen
CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
- DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
+ 'DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
If DtDetalle.Rows.Count > 0 Then 'SI FUE POR SERIE
For Each Dr1 As DataRow In DtDetalle.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
@@ -3158,17 +3189,17 @@ Partial Class Inventarios_EntregaAlmacen
TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
Exit For
End If
- Next
- ElseIf DtDetalleLote.Rows.Count > 0 Then 'SI FUE POR LOTE BATCH
- For Each Dr1 As DataRow In DtDetalleLote.Rows
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:="", Lote:=Dr1("Lote").ToString(), FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
- ErrorMovInv = True
- TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
- Exit For
- End If
- Next
+ Next
+ 'ElseIf DtDetalleLote.Rows.Count > 0 Then 'SI FUE POR LOTE BATCH
+ ' For Each Dr1 As DataRow In DtDetalleLote.Rows
+ ' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr1("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:="", Lote:=Dr1("Lote").ToString(), FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
+ ' ErrorMovInv = True
+ ' TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar."
+ ' Exit For
+ ' End If
+ ' Next
Else 'NORMAL
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, -1, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("CantidadGV").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, -1, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
ErrorMovInv = True
TextoError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
Exit For
@@ -3194,12 +3225,8 @@ Partial Class Inventarios_EntregaAlmacen
If CveMovimientoEntrada > 0 Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim CveSeccionAlmacen As Integer = -1
- For Each Dr As DataRow In ObjInventario.DtResultados.Rows
- 'If CBool(Dr("AplicaSeccion")) Then
- ' CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Almacen2, Dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero()
- 'Else
- ' CveSeccionAlmacen = -1
- 'End If
+ For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
CveSeccionAlmacen = -3
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), FechaCaducidad:=Dr("FechaCaducidad").ToString().ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
diff --git a/Inventarios/PrestamosdeProveedor.aspx b/Inventarios/PrestamosdeProveedor.aspx
index 2adadb1bd..0363de115 100644
--- a/Inventarios/PrestamosdeProveedor.aspx
+++ b/Inventarios/PrestamosdeProveedor.aspx
@@ -126,7 +126,7 @@
@@ -558,7 +558,7 @@
- --%>
+ --
-
+
+
+
+
+
+
+
+
+
+
+
+
@@ -501,11 +516,11 @@
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index bd4b1384c..ae6200ef3 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -50,6 +50,48 @@ Partial Class Inventarios_TrasladoSolicitud
End Set
End Property
+ Private Property AplicaSerie As Boolean
+ Get
+ If ViewState("AplicaSerie") Is Nothing Then
+ Return False
+ Else
+ Return CType(ViewState("AplicaSerie"), Boolean)
+ End If
+
+ End Get
+ Set(value As Boolean)
+ ViewState("AplicaSerie") = value
+ End Set
+ End Property
+
+ Private Property AplicaLote As Boolean
+ Get
+ If ViewState("AplicaLote") Is Nothing Then
+ Return False
+ Else
+ Return CType(ViewState("AplicaLote"), Boolean)
+ End If
+
+ End Get
+ Set(value As Boolean)
+ ViewState("AplicaLote") = value
+ End Set
+ End Property
+
+ Private Property AplicaCaducidad As Boolean
+ Get
+ If ViewState("AplicaCaducidad") Is Nothing Then
+ Return False
+ Else
+ Return CType(ViewState("AplicaCaducidad"), Boolean)
+ End If
+
+ End Get
+ Set(value As Boolean)
+ ViewState("AplicaCaducidad") = value
+ End Set
+ End Property
+
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -152,10 +194,27 @@ Partial Class Inventarios_TrasladoSolicitud
Dim ObjClientes As New ClsClientes
If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
- If ObjInventarios.DtResultados.Rows.Count > 0 Then
+ If ObjInventarios.DtResultados.Rows.Count > 0 Then
+ For Each rowtp As DataRow In ObjInventarios.DtResultados.Rows
+ If Not AplicaSerie Then
+ AplicaSerie = rowtp("Serie").ToString <> ""
+ End If
+ If Not AplicaLote Then
+ AplicaLote = rowtp("Lote").ToString <> ""
+ End If
+ If Not AplicaCaducidad Then
+ AplicaCaducidad = rowtp("FechaCaducidad").ToString <> ""
+ End If
+ Next
+
+ Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProductoServicio.SelectedValue.ToEntero).FiltroPrimero("")
+
+
+ GvDatos.Columns(4).Visible = False
+ GvDatos.Columns(5).Visible = AplicaSerie
+ GvDatos.Columns(6).Visible = AplicaLote
+ GvDatos.Columns(7).Visible = AplicaCaducidad
- GvDatos.Columns(4).Visible = False
- GvDatos.Columns(5).Visible = True
DivFolio.Visible = True
LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
@@ -369,14 +428,14 @@ Partial Class Inventarios_TrasladoSolicitud
Row("CveUM") = DdlUM.SelectedValue.ToEntero
Row("UnidadMedida") = DdlUM.SelectedItem.Text
Row("Observaciones") = ""
+ Row("Lote") = "-1"
+ Row("Serie") = "-1"
+ Row("FechaCaducidad") = MinFecha
If divLote.Visible Then
Row("Lote") = TxtLote.Text
GvDatos.Columns(6).Visible = True
Lote = TxtLote.Text.ToString
- Else
- Row("Lote") = "-1"
- Lote = "-1"
End If
@@ -384,8 +443,9 @@ Partial Class Inventarios_TrasladoSolicitud
Row("FechaCaducidad") = TxtCaducidad.Text
GvDatos.Columns(7).Visible = True
FechaCaducidad = TxtCaducidad.Text.ToDate
+ RFVFechaCad.Enabled = True
+
Else
- Row("FechaCaducidad") = MinFecha
FechaCaducidad = MinFecha
End If
@@ -393,8 +453,6 @@ Partial Class Inventarios_TrasladoSolicitud
If Div4.Visible Then
Row("Serie") = TxtSerie.Text
GvDatos.Columns(5).Visible = True
- Else
- Row("Serie") = "-1"
End If
@@ -621,7 +679,7 @@ Partial Class Inventarios_TrasladoSolicitud
For Each row As GridViewRow In GvDatos.Rows
CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
- Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
+ Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=row.DataKey("Lote").ToString, FechaCaducidad:=row.DataKey("FechaCaducidad").ToString.ToDate)
If Existencia - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
MensajeExistencia.AppendFormat("
- {0}. Existencia: {1}", CodigoPS, Existencia) TieneErrorExistencia = True @@ -666,9 +724,11 @@ Partial Class Inventarios_TrasladoSolicitud Dim Precio As Double = Row.DataKey("Precio").ToEntero Dim Observaciones As String = Row.DataKey("Observaciones") Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero - Dim Serie As String = Row.DataKey("Serie") + Dim Serie As String = Row.DataKey("Serie") + Dim Lote As String = Row.DataKey("Lote") + Dim FechaCaducidad As Date = Row.DataKey("FechaCaducidad").ToDate - If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie) Then + If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie, Lote, FechaCaducidad) Then TieneError = True Exit For End If @@ -1019,15 +1079,17 @@ Partial Class Inventarios_TrasladoSolicitud DdlUM.SelectedValue = "-1" DdlUM.DataBind() DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString) - Dim AplicaSerie As Boolean = drPS("AplicaSerie").ToString = "True" - Div4.Visible = AplicaSerie + AplicaSerie = drPS("AplicaSerie").ToString = "True" + Div4.Visible = AplicaSerie + + AplicaLote = drPS("AplicaLote").ToString = "True" + divLote.Visible = AplicaLote + RFVLote.Enabled = AplicaLote - Dim AplicaLote As Boolean = drPS("AplicaLote").ToString = "True" - divLote.Visible = AplicaLote - - Dim AplicaCaducidad As Boolean = drPS("AplicaCaducidad").ToString = "True" + AplicaCaducidad = drPS("AplicaCaducidad").ToString = "True" divCaducidad.Visible = AplicaCaducidad - divCaducidad2.Visible = AplicaCaducidad + divCaducidad2.Visible = AplicaCaducidad + RFVFechaCad.Enabled = AplicaCaducidad End If UpPS.Update() @@ -1180,5 +1242,23 @@ Partial Class Inventarios_TrasladoSolicitud GvDatos.Columns(5).Visible = Mostrar End Sub + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.FCLiteral("LtlSerie").ToString = "-1" Then + e.Row.FCLiteral("LtlSerie").Text = "" + End If + + If e.Row.FCLiteral("LtlLote").ToString = "-1" Then + e.Row.FCLiteral("LtlLote").Text = "" + End If + + If e.Row.FCLiteral("LtlFechaCaducidad").ToString.ToDate = MinFecha Then + e.Row.FCLiteral("LtlFechaCaducidad").Text = "" + End If + + End If + + + End Sub End Class diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index eaf48f3d2..0eb7d8095 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -443,6 +443,7 @@
+
@@ -456,7 +457,7 @@
+
+
+
+
+
+
+
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 35736ad6d..e9af1d651 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -526,19 +526,73 @@ Partial Class Inventarios_TraspasoAlmacen
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimero("") ' Estado = -1
- If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString.ToDecimal > 0 Then
- 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
- If Cantidad Mod DrPS("VentaMinima").ToString.ToDecimal <> 0 Then
- Alert(String.Format("El producto se vende solo en cantidades de {0:#,###.####}", DrPS("VentaMinima")))
- Exit Sub
+ If DrPS IsNot Nothing Then
+
+ If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString.ToDecimal > 0 Then
+ 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
+ If Cantidad Mod DrPS("VentaMinima").ToString.ToDecimal <> 0 Then
+ Alert(String.Format("El producto se vende solo en cantidades de {0:#,###.####}", DrPS("VentaMinima")))
+ Exit Sub
+ End If
End If
- End If
- Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, If(TxtnSerie.Visible, TxtnSerie.Text, "-1"), If(TxtnLote.Visible, TxtnLote.Text, "-1"), If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha))
+ 'codigo provisional.
+ Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+
+
+ If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.checked And CveSubP.Contiene(10276) Then
+
+ Dim ObjInventarios As New ClsInventarios
+ If ObjInventarios.GetExistenciasCaducidad(CveProducto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.selectedvalue) Then
+ Dim dtt As DataTable = ObjInventarios.DtResultados
+
+ If Cantidad > dtt.SUMD("Cantidad") Then
+ Alert("No se cuenta con la cantidad requerida")
+ Else
+ 'recorro las existencias para tomar la cantidad
+ Dim i As Decimal = 0
+ Dim CantidadRestante As Decimal = Cantidad
+ For Each drr As DataRow In dtt.Rows
+ If drr("Cantidad").ToString.ToDecimal < CantidadRestante Then
+ i = drr("Cantidad").ToString.ToDecimal
+ Else
+ i = CantidadRestante
+ End If
+ AgregarPS(i, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Lote:=drr("Lote").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie)
+ CantidadRestante -= i
+ If CantidadRestante <= 0 Then Exit For
+ Next
+ End If
+
+ End If
+
+ ObjInventarios.Dispose()
+
+ Else
+
+ 'codigo temporal
+ Dim tLote As String
+ Dim tCaducidad As Date
+
+ tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1")
+ tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha)
+
+ If CveSubP <> 10276 Then
+ tLote = "-1"
+ tCaducidad = MinFecha
+ End If
+
+
+ Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, If(TxtnSerie.Visible, TxtnSerie.Text, "-1"), tLote, tCaducidad)
+
+ If Valido Then
+ AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, ""), Lote:=If(tLote = "-1", "", tLote), FechaCaducidad:=tCaducidad, CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie)
+ End If
+
+ End If
+
+ End If
- If Valido Then
- AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, ""), Lote:=If(TxtnLote.Visible, TxtnLote.Text, ""), FechaCaducidad:=If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha), CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie)
- End If
End If
End Sub
@@ -550,26 +604,39 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Inv As New ClsInventarios
Dim Existencia As Decimal = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), PendientePorSurtir:=1)
- 'la primera vez valida, que la existencia global, cumpla, considerando lo pendiente por surtir
- 'las segunda consulta, que tenga existencia, ya con los parametros especificos
- If FechaCaducidad > MinFecha OrElse Serie <> "" OrElse Lote <> "" Then
- ExistenciaEspecificada = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, PendientePorSurtir:=-1)
- Else
- ExistenciaEspecificada = Existencia
- End If
- Inv.Dispose()
- If Existencia - Cantidad - CantidadEnGrid < 0 OrElse ExistenciaEspecificada - Cantidad - CantidadEnGrid < 0 Then
- If Existencia < 0 OrElse ExistenciaEspecificada < 0 Then
- Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
- RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
+ If Existencia > 0 Then
+ 'la primera vez valida, que la existencia global, cumpla, considerando lo pendiente por surtir
+ 'las segunda consulta, que tenga existencia, ya con los parametros especificos
+ If (FechaCaducidad > MinFecha OrElse Serie <> "" OrElse Lote <> "") Then
+ ExistenciaEspecificada = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, PendientePorSurtir:=-1)
+ Dim StrB As New stringbuilder
+ StrB.appendformat("CvePS = {0} AND CveUM = {1} ", CvePS, CveUnidadMedida)
+ If Serie <> "" Then StrB.appendformat(" AND Serie = '{0}' ", Serie)
+ If Lote <> "" Then StrB.appendformat(" AND Lote = '{0}' ", Lote)
+ If FechaCaducidad.ToDate > MinFecha Then StrB.appendformat(" AND FechaCaducidad = '{0}' ", FechaCaducidad.ToShortDateString)
+ Dim CantidadEspecificaEnGrid As Decimal = DtMovimientos.SUMD("Cantidad", StrB.tostring)
+
+ If ExistenciaEspecificada - Cantidad - CantidadEspecificaEnGrid < 0 Then
+ Alert(String.Format("Solo hay en existencia: {0:#,###.##}", ExistenciaEspecificada), TipoMensaje.MsgAdvertencia)
+ RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
+ Retorno = False
+ End If
Else
- Alert(String.Format("Solo hay en existencia: {0}", Existencia), TipoMensaje.MsgAdvertencia)
- RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
+ ExistenciaEspecificada = Existencia
+ If Existencia - Cantidad - CantidadEnGrid < 0 Then
+ Alert(String.Format("Solo hay en existencia: {0:#,###.##}", ExistenciaEspecificada), TipoMensaje.MsgAdvertencia)
+ RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
+ Retorno = False
+ End If
End If
- Retorno = False
+ Else
+ Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
+ RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
End If
+ Inv.Dispose()
+
Return Retorno
End Function
Private Sub AgregarPS(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, Optional Observaciones As String = "", Optional CveSeccionAlmacen As Integer = -1, Optional SeccionAlmacen As String = "", Optional Serie As String = "", Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha, Optional Limpia As Boolean = True, Optional CveSeccionAlmacenDestino As Integer = -1)
@@ -1482,6 +1549,13 @@ Partial Class Inventarios_TraspasoAlmacen
' CargaGvDatos()
'End Sub
+ Protected Sub ChkSugiereFechaCaducidad_CheckedChanged(sender As Object, e As EventArgs)
+
+ TxtnFechaCaducidad.visible = Not ChkSugiereFechaCaducidad.checked
+ TxtnLote.visible = Not ChkSugiereFechaCaducidad.checked
+
+ End Sub
+
#End Region
@@ -1544,8 +1618,8 @@ Partial Class Inventarios_TraspasoAlmacen
GvDatosRecepcion.DataBind()
GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
- GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("Lote") <> ""
- GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad").ToDate > MinFecha
+ GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
+ GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha
GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
'Dt.Dispose()
End If
@@ -1607,14 +1681,29 @@ Partial Class Inventarios_TraspasoAlmacen
'dtt.Dispose()
End If
+
+ If e.Row.DBCampo("AplicaLote").ToString.Trim = "1" Then
+ e.Row.FCTextBox("TxtLote").visible = True
+ End If
+
+ If e.Row.DBCampo("AplicaCaducidad").ToString.Trim = "1" Then
+ e.Row.FCTextBox("TxtCaducidad").visible = True
+ End If
+
End If
+
+
+
+
+
+
'FUNCIONALIDAD PISTOLA DE CODIGOS
If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
- e.Row.FCTextBox("TxtCantidad").Enabled = False
- End If
+ e.Row.FCTextBox("TxtCantidad").Enabled = False
+ End If
- End If
+ End If
End Sub
Protected Sub BtnCancelarTraspaso_Click(sender As Object, e As EventArgs)
@@ -1838,7 +1927,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()
-
+ Dim CveSubProyectoRecibe = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero
Dim RealizarMovimientoVirtual As Boolean = False
@@ -1885,7 +1974,16 @@ Partial Class Inventarios_TraspasoAlmacen
Exit For
End If
Dim PrecioEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, gvr.DataKey("PU").ToString.ToDecimal)
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
+ ''RMF codigo temporal. por implementación
+ Dim tLote As String = gvr.DataKey("Lote").ToString
+ Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
+
+ If CveSubProyectoRecibe = 10276 Then
+ tLote = gvr.FCTextBox("TxtLote").text
+ tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").text.todate
+ End If
+
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de salida"
Exit For
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 9fe95c550..1d89bde3c 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -88,6 +88,7 @@ Partial Class CatSubProyectos
Private Sub RecargaGlobal()
GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+ GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
End Sub
#Region "O R D E N A M I E N T O"
diff --git a/PortalGPS/InicioGPS.aspx b/PortalGPS/InicioGPS.aspx
index 51c7e7c0a..aad37218f 100644
--- a/PortalGPS/InicioGPS.aspx
+++ b/PortalGPS/InicioGPS.aspx
@@ -340,5 +340,5 @@
}
-
+
diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx
index c4114baf4..acdd6b0e0 100644
--- a/PortalProveedor/PortalProveedor.aspx
+++ b/PortalProveedor/PortalProveedor.aspx
@@ -493,7 +493,7 @@
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
-
+
+
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 3c125be18..89a9b347e 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -6,8 +6,8 @@ Imports System.Data
Imports System.Threading
Partial Class Sistemas_UsuarioDetalle
- Inherits ClsPaginas
-
+ Inherits ClsPaginas
+
#Region "P R O P I E D A D E S"
Private Property DTEstatusSubProyectos As DataTable
Get
@@ -84,6 +84,11 @@ Partial Class Sistemas_UsuarioDetalle
Get
Return ViewState("Password").ToString
End Get
+ End Property
+ Private ReadOnly Property CodigoAcceso As String
+ Get
+ Return ViewState("CodigoAcceso").ToString
+ End Get
End Property
Private Property DtClasificaciones As DataTable
Get
@@ -390,10 +395,10 @@ Partial Class Sistemas_UsuarioDetalle
Set(value As Integer)
ViewState("CveEmpresaAnterior") = value
End Set
- End Property
+ End Property
#End Region
-
-
+
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -444,27 +449,30 @@ Partial Class Sistemas_UsuarioDetalle
TrDescuentoAutorizado.Visible = True
End If
-
- CargaDatos()
- InicializaClonarUsuario()
- InicializaRestricciones()
- CargaGvBitacora()
- CargaEmpresasAsignaciones()
- CreaDtAsignacionesMultiEmpresa()
- CveEmpresaAnterior = DdlEmpresaAsignaciones.SelectedValue.ToEntero
-
+ If UsuarioActual.Empresa.Funcionalidad(599) = "1" Then
+ TrCodigoAcceso.Visible = True
End If
- End Sub
-
- 'DOCUMENTACION
- 'LOS CAMPOS DE DATATABLE "ACCION" SE REFIERE AL ESTATUS DE LOS CAMBIOS QUE OCURRIERON ANTES DE DARLE GUARDAR
- ' 0/NULL/VACIO = ORIGINAL (SIN CAMBIO)
- ' 1 = AGREGADO
- ' 2 = ELIMINADO
- ' 3 = NADA (AGREGADO Y ELIMINADO): CUANDO AGREGA UN REGISTRO Y LO ELIMINA, ES DECIR, NO SE GUARDA NADA
- ' 4 = UPDATE
-
+ CargaDatos()
+ InicializaClonarUsuario()
+ InicializaRestricciones()
+ CargaGvBitacora()
+ CargaEmpresasAsignaciones()
+ CreaDtAsignacionesMultiEmpresa()
+ CveEmpresaAnterior = DdlEmpresaAsignaciones.SelectedValue.ToEntero
+
+ End If
+ End Sub
+
+ 'DOCUMENTACION
+ 'LOS CAMPOS DE DATATABLE "ACCION" SE REFIERE AL ESTATUS DE LOS CAMBIOS QUE OCURRIERON ANTES DE DARLE GUARDAR
+ ' 0/NULL/VACIO = ORIGINAL (SIN CAMBIO)
+ ' 1 = AGREGADO
+ ' 2 = ELIMINADO
+ ' 3 = NADA (AGREGADO Y ELIMINADO): CUANDO AGREGA UN REGISTRO Y LO ELIMINA, ES DECIR, NO SE GUARDA NADA
+ ' 4 = UPDATE
+
+
#Region " C A R G A R - D A T O S "
Private Sub CargaDatos()
@@ -518,10 +526,10 @@ Partial Class Sistemas_UsuarioDetalle
CargarRol()
CargaAsignaciones()
- CargaUsuarioResponsable
-
- ' ValidaAccesoEstatusOC()
-
+ CargaUsuarioResponsable()
+
+ ' ValidaAccesoEstatusOC()
+
End Sub
Public Sub CargaUsuarioResponsable()
@@ -545,7 +553,7 @@ Partial Class Sistemas_UsuarioDetalle
ViewState("CveRol") = ObjUsuario.CveRol.ToString
DdlRol.SelectedValue = ObjUsuario.CveRol.ToString
TxtCorreo.Text = ObjUsuario.Correo
-
+ TxtCodigoAcceso.Text = ObjUsuario.DtResultados.Rows(0)("CodigoAcceso").ToString()
Dim autoip As String = ObjUsuario.DtResultados.Rows(0)("AutorizadoxIP").ToString().ToUpper()
'chkSessionxEquipo.Checked = (autoip = "1" OrElse autoip = "TRUE")
@@ -553,6 +561,7 @@ Partial Class Sistemas_UsuarioDetalle
'DdlAutoriza.SelectedValue = ObjUsuario.CveAutoriza.ToString
ViewState("Password") = ObjUsuario.Contraseña
+ ViewState("CodigoAcceso") = ObjUsuario.DtResultados.Rows(0)("CodigoAcceso").ToString()
ViewState("CveEmpresa") = ObjUsuario.CveEmpresaPredeterminada
DdlEmpresa.SelectedValue = CveEmpresa.ToString
@@ -749,23 +758,23 @@ Partial Class Sistemas_UsuarioDetalle
If CveTipoDocumentoAsignado <> "-1" Then DdlTipoDocumento.SelectedValueExist(CveTipoDocumentoAsignado)
UpFiltrosAsignarPermiso.Update()
- End Sub
+ End Sub
#End Region
-
- 'Private Sub CargaSucursal()
- ' DtSubProyectos2 = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
- ' If DtSubProyectos2.Rows.Count > 0 Then
- ' Dim dr As DataRow
- ' dr = DtSubProyectos2(0)
- ' CveSucursal = dr("CveSucursal").ToString.ToEntero
- ' Else
- ' CveSucursal = -1
- ' End If
-
- 'End Sub
-
+
+ 'Private Sub CargaSucursal()
+ ' DtSubProyectos2 = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
+ ' If DtSubProyectos2.Rows.Count > 0 Then
+ ' Dim dr As DataRow
+ ' dr = DtSubProyectos2(0)
+ ' CveSucursal = dr("CveSucursal").ToString.ToEntero
+ ' Else
+ ' CveSucursal = -1
+ ' End If
+
+ 'End Sub
+
#Region " G U A R D A R - U P D A T E "
-
+
Private Function ValidaUsername(Username As String, Correo As String) As Boolean
Dim Retorno As Boolean = True
'If CveUsuario = -1 Then
@@ -818,10 +827,11 @@ Partial Class Sistemas_UsuarioDetalle
DtAsignacionesMultiEmpresa.Rows.Add(Row)
End If
+ Dim CodigoAcceso As String = If(String.IsNullOrEmpty(TxtCodigoAcceso.Text.Trim), "-1", TxtCodigoAcceso.Text.Trim)
'REGISTRA O ACTUALIZA LOS DATOS GENERALES DEL USUARIO
If CveUsuario = -1 Then
- CveUsuario = ObjUsuarios.AddUsuario(TxtUsuario.Text.Trim, Encripta(ContraseñaPredeterminada), TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, UsuarioActual.CveUsuario, DdlEmpresa.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, CveAlmacenAsignado:=DdlAlmacenGeneral.SelectedValue.ToEntero, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble)
+ CveUsuario = ObjUsuarios.AddUsuario(TxtUsuario.Text.Trim, Encripta(ContraseñaPredeterminada), TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, UsuarioActual.CveUsuario, DdlEmpresa.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, CveAlmacenAsignado:=DdlAlmacenGeneral.SelectedValue.ToEntero, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble, CodigoAcceso:=CodigoAcceso)
EsNuevoUsuario = True
If CveUsuario = -1 Then
TieneError = True
@@ -833,7 +843,7 @@ Partial Class Sistemas_UsuarioDetalle
End If
Next
Else
- If Not ObjUsuarios.UpdateUsuario(TxtUsuario.Text.Trim, TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, ChkEstatus.Checked, DdlEmpresa.SelectedValue.ToEntero, CveUsuario, DdlAlmacenGeneral.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble) Then
+ If Not ObjUsuarios.UpdateUsuario(TxtUsuario.Text.Trim, TxtNombre.Text.Trim, DdlRol.SelectedValue.ToEntero, TxtCorreo.Text.Trim, DdlPersonal.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, ChkCambiarContraseña.Checked, ChkEstatus.Checked, DdlEmpresa.SelectedValue.ToEntero, CveUsuario, DdlAlmacenGeneral.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, AsignarSubProyecto:=ChkAsignarSubProyecto.Checked, AsignarOC:=ChkAsignarOC.Checked, DescuentoAutorizado:=TxtDescuentoAutorizado.Text.ToDouble, CodigoAcceso:=CodigoAcceso) Then
TieneError = True
End If
@@ -1398,10 +1408,10 @@ Partial Class Sistemas_UsuarioDetalle
Catch ex As Exception
OnError("Ocurrió error al mandar MAIL", ex)
End Try
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region " E L I M I N A R - U S U A R I O "
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
''DENTRO DEL PROCEDIMIENTO ELIMINA TODO LO RELACIONADO CON EL USUARIO (ALMACENES, SUBPROYECTOS, ACCESO A EMPRESAS...)
@@ -1413,10 +1423,10 @@ Partial Class Sistemas_UsuarioDetalle
Alert("Ocurrió un error al eliminar el usuario. Por favor vuelva a intentar", TipoMensaje.MsgError)
End If
ObjUsuario.Dispose()
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region " CONTRASEÑA "
Protected Sub LnkRestablecer_Click(sender As Object, e As EventArgs) Handles LnkRestablecer.Click
Dim Usuario As New ClsSisUsuarios
@@ -1430,11 +1440,15 @@ Partial Class Sistemas_UsuarioDetalle
Protected Sub LnkVerPass_Click(sender As Object, e As EventArgs) Handles LnkVerPass.Click
Alert(Extensiones.Decripta(Password))
- End Sub
-
+ End Sub
+ Protected Sub LnkVerCodigoAcceso_Click(sender As Object, e As EventArgs) Handles LnkVerCodigoAcceso.Click
+ Alert(CodigoAcceso)
+ End Sub
+
+
#End Region
-
-
+
+
#Region "TAB - ASIGNACIONES"
Protected Sub DdlEmpresaAsignaciones_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEmpresaAsignaciones.SelectedIndexChanged
@@ -1496,8 +1510,8 @@ Partial Class Sistemas_UsuarioDetalle
DtAsignacionesMultiEmpresa.Columns.Add("CveSucursal", GetType(Integer))
DtAsignacionesMultiEmpresa.Columns.Add("CveAlmacen", GetType(Integer))
DtAsignacionesMultiEmpresa.Columns.Add("CveTipoDocumento", GetType(String))
- End Sub
-
+ End Sub
+
#Region " PROYECTOS-SUBPROYECTOS "
Private Sub CargaProyectos()
DdlProyecto.Items.Clear()
@@ -1879,8 +1893,8 @@ Partial Class Sistemas_UsuarioDetalle
End If
End If
ChkAsignarAllProyectos.Checked = False
- End Sub
-
+ End Sub
+
#Region "GV SUBPROYECTOS"
Protected Sub GvSubProyectos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSubProyectos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -1982,14 +1996,14 @@ Partial Class Sistemas_UsuarioDetalle
GvSubProyectos.EditIndex = -1
CargaGvSubProyectos()
- End Sub
-
+ End Sub
+
#End Region
-
+
#End Region
-
+
#Region " ALMACENES "
-
+
Private Function GetAlmacenesSinGV() As String
Dim SB As New StringBuilder
Dim prefix As String = ""
@@ -2098,8 +2112,8 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub CargaGVAlmacen()
GvAlmacenes.DataSource = DtAlmacenes.FiltraParametros(String.Format("CveEmpresa = {0} And (isnull(Accion,0) < 2 Or Accion = 4)", DdlEmpresaAsignaciones.SelectedValue.ToEntero))
GvAlmacenes.DataBind()
- End Sub
-
+ End Sub
+
#Region "GV ALMACENES"
Protected Sub GvAlmacenes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAlmacenes.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -2186,11 +2200,11 @@ Partial Class Sistemas_UsuarioDetalle
GvAlmacenes.EditIndex = -1
CargaGVAlmacen()
- End Sub
+ End Sub
#End Region
-
+
#End Region
-
+
#Region " CUENTAS BANCARIAS "
Private Sub CargaCuentasBancarias()
DdlCuentasBancarias.Items.Clear()
@@ -2253,9 +2267,9 @@ Partial Class Sistemas_UsuarioDetalle
DtCuentasBancarias.AcceptChanges()
CargaGvCuentasBancarias()
- End Sub
+ End Sub
#End Region
-
+
#Region " ESTATUS DE ÓRDENES DE COMPRA"
Private Sub CargaEstatusOrdenesCompra()
' Exit Sub
@@ -2449,9 +2463,9 @@ Partial Class Sistemas_UsuarioDetalle
Else
CargaGridEstatusUsuarioOC("OC")
End If
- End Sub
+ End Sub
#Region "GRIDVIEW"
-
+
Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim tmpT As DataTable = DTEstatusSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto").ToString))
@@ -2706,13 +2720,13 @@ Partial Class Sistemas_UsuarioDetalle
End If
Next
End If
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#End Region
-
+
#Region "ESTATUS DE ORDENES DE SERVICIO"
Private Sub CargaEstatusOS()
CreaGridEstatusOS()
@@ -2865,9 +2879,9 @@ Partial Class Sistemas_UsuarioDetalle
End If
Next
Next
- End Sub
+ End Sub
#End Region
-
+
#Region " ESTATUS ORDENES DE COMPRA - CLASIFICACIONES USUARIO OC "
Private Sub InicializaEstasClasificacionesOC()
@@ -2929,15 +2943,15 @@ Partial Class Sistemas_UsuarioDetalle
ObjOC.Dispose()
CargaGVOCClasificaciones()
- End Sub
-
-
-
+ End Sub
+
+
+
#End Region
-
+
#End Region
-
-
+
+
#Region "TAB - ACCESO MODULOS"
Public Sub CargaModulosAcceso()
Dim ObjPermisos As New ClsSisUsuarios
@@ -3023,10 +3037,10 @@ Partial Class Sistemas_UsuarioDetalle
Alert("Los Permisos se eliminaron correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/Sistemas/Usuarios.aspx""")
End If
ObjUsuario.Dispose()
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "TAB - PERMISO MODULOS"
Public Sub CargaModulosPermisos()
Dim ObjProcesos As New ClsSisUsuarios
@@ -3126,10 +3140,10 @@ Partial Class Sistemas_UsuarioDetalle
Alert("Los Procesos se eliminaron correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/Sistemas/Usuarios.aspx""")
End If
ObjUsuario.Dispose()
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "TAB - ACCESO EMPRESAS"
Private Sub CargaEmpresas()
Dim ClsUsuarios As New ClsSisUsuarios
@@ -3319,10 +3333,10 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub LnkRenviaCorreo_Click(sender As Object, e As EventArgs) Handles LnkRenviaCorreo.Click
EnviaCorreo()
Alert("Correo enviado con exito.", TipoMensaje.MsgInformacion)
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "TAB - RESTRICCIONES ACCESO "
Private Sub InicializaRestricciones()
CargaDtRestricciones()
@@ -3535,8 +3549,8 @@ Partial Class Sistemas_UsuarioDetalle
CargaGvRestricciones()
RegistraScript("$('#DivAgregarRestricción').modal('hide')")
- End Sub
-
+ End Sub
+
#Region " GV "
Private Sub GvRestricciones_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvRestricciones.RowCommand
@@ -3626,13 +3640,13 @@ Partial Class Sistemas_UsuarioDetalle
End If
CargaGvRestricciones()
- End Sub
+ End Sub
#End Region
-
-
+
+
#End Region
-
-
+
+
#Region "TAB - INDICADORES"
Public Sub CargaGridIndicadores()
Dim Objeto As New ClsIndicadores
@@ -3649,11 +3663,11 @@ Partial Class Sistemas_UsuarioDetalle
e.Row.FCCheckBox("chkIndicador").Checked = True
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
-
+
+
#Region " CLONAR USUARIO "
Private Sub InicializaClonarUsuario()
DdlUsuarioClonar.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -3739,12 +3753,12 @@ Partial Class Sistemas_UsuarioDetalle
'CargaDatos()
Return Retorno
- End Function
-
-
+ End Function
+
+
#End Region
-
-
+
+
#Region " MANDA CORREO "
Private Sub MandaCorreo(Asunto As String, Para As String, Body As String)
Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
@@ -3752,13 +3766,13 @@ Partial Class Sistemas_UsuarioDetalle
Dim Mail As New ClsSisMail()
'Mail.MandaCorreo(ClsPaginas.EmpresaNotificaciones, Para, Asunto, "", "", Nothing, Body)
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
- End Sub
-
-
-
+ End Sub
+
+
+
#End Region
-
-
+
+
#Region " ASIGNACIONES DE PERMISOS "
Protected Sub DdlEmpresaAsignarPermiso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEmpresaAsignarPermiso.SelectedIndexChanged
CargaAsignaciones()
@@ -3782,8 +3796,8 @@ Partial Class Sistemas_UsuarioDetalle
CargaDtEstatusOC()
CargaGvEstatusOC()
- End Sub
-
+ End Sub
+
#Region " EMPRESAS "
Public Sub CargaDTEmpresasAsignar()
Dim ObjPermisos As New ClsSisUsuarios
@@ -3842,10 +3856,10 @@ Partial Class Sistemas_UsuarioDetalle
CargaAsignaciones()
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " ROLES "
Private Sub CargaDtRolesAsignar()
Dim ClsUsuarios As New ClsSisUsuarios
@@ -3934,9 +3948,9 @@ Partial Class Sistemas_UsuarioDetalle
DTRolesAsignar.AcceptChanges()
CargaGVRolesAsignar()
- End Sub
+ End Sub
#End Region
-
+
#Region " ALMACENES "
Private Sub CargaDtAlmacenAsignar()
Dim ClsUsuarios As New ClsSisUsuarios
@@ -4027,11 +4041,11 @@ Partial Class Sistemas_UsuarioDetalle
DtAlmacenesAsignar.AcceptChanges()
CargaGVAlmacenAsignar()
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region " PROYECTOS-SUBPROYECTOS "
Private Sub CargaDtSubProyectosAsignar()
Dim ClsUsuarios As New ClsSisUsuarios
@@ -4142,10 +4156,10 @@ Partial Class Sistemas_UsuarioDetalle
DtSubProyectosAsignar.AcceptChanges()
CargarGvSubProyectosAsignar()
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " CUENTAS BANCARIAS "
Private Sub CargaCuentasBancariasAsignar()
DdlCuentasBancariasAsignar.Items.Clear()
@@ -4230,9 +4244,9 @@ Partial Class Sistemas_UsuarioDetalle
DtCuentasBancariasAsignar.AcceptChanges()
CargaGvCuentasBancariasAsignar()
- End Sub
+ End Sub
#End Region
-
+
#Region " MODULOS "
Public Sub CargaDTModulosAsignar()
Dim ObjPermisos As New ClsSisUsuarios
@@ -4267,10 +4281,10 @@ Partial Class Sistemas_UsuarioDetalle
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " PERMISOS "
Public Sub CargaDTPermisosAsignar()
Dim ObjPermisos As New ClsSisUsuarios
@@ -4305,9 +4319,9 @@ Partial Class Sistemas_UsuarioDetalle
End If
End If
- End Sub
+ End Sub
#End Region
-
+
#Region " INDICADORES "
Public Sub CargaDTIndicadoresAsignar()
Dim ObjIndicadores As New ClsSisUsuarios
@@ -4335,13 +4349,13 @@ Partial Class Sistemas_UsuarioDetalle
End If
End If
- End Sub
+ End Sub
#End Region
-
-
+
+
#End Region
-
-
+
+
#Region " USUARIO CONTROLADO "
Private Sub InicializaUsuarioControlado()
Dim ClsUsuarios As New ClsSisUsuarios
@@ -4391,12 +4405,12 @@ Partial Class Sistemas_UsuarioDetalle
End If
ClsUsuarios.Dispose()
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "C O N T O L E S DE U S U A R I O S"
-
+
#Region "ESTATUS DE ÓRDENES DE COMPRA"
Private Sub CargaDtEstatusOCPermisos()
Dim ClsUsuarios As New ClsSisUsuarios
@@ -4517,10 +4531,10 @@ Partial Class Sistemas_UsuarioDetalle
DTEstatusOC = dt
DTEstatusOCAsignar = dt
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "GV ESTATUS DE OC"
Protected Sub GvEstatusOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusOC.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -4631,11 +4645,11 @@ Partial Class Sistemas_UsuarioDetalle
GvEstatusUsuariosOC.Columns(i).Visible = (dtValida IsNot Nothing AndAlso dtValida.Rows.Count = 1)
End If
Next
- End Sub
-
+ End Sub
+
#End Region
#End Region
-
+
Protected Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs)
If DtClasificaciones IsNot Nothing Then
Dim CveClasificacion As Integer = DdlClasificacion.SelectedValue.ToEntero
@@ -4762,10 +4776,10 @@ Partial Class Sistemas_UsuarioDetalle
- End Sub
-
+ End Sub
+
#Region "USUARIO RESPONSABLE"
-
+
Protected Sub BtnUpdateUsuarioResponsable_Click(sender As Object, e As EventArgs)
Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.UpdateUsuarioResponsableMasivo(CveUsuario, DdlUsuarioResponsable.SelectedValue.ToEntero) Then
@@ -4773,10 +4787,10 @@ Partial Class Sistemas_UsuarioDetalle
RegistraScript("$('#DivUpdateUsuarioResponsable').modal('hide')")
End If
ObjUsuarios.Dispose()
- End Sub
-
+ End Sub
+
#End Region
-
+
Protected Sub LnkAutorizarEquipo_Click(sender As Object, e As EventArgs)
'CveUsuario
Dim AdsCodex As String = Encripta(String.Format("{0}_{1}_{2}", CveUsuario, DateTime.Now.Ticks, UsuarioActual.CveUsuario))
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 4b1283c3a..3a0aabf9f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -7981,7 +7981,11 @@ Partial Class Clientes
Dim Row2 As DataRow = Nothing
Row2 = Dt2.NewRow()
LtlLimiteCreditoModal.Text = LimiteCredito.FormatoNumero()
- Row2("limite") = LimiteCredito - Saldo
+ If LimiteCredito > 0 Then
+ Row2("limite") = LimiteCredito - Saldo
+ Else
+ Row2("limite") = 0
+ End If
Row2("saldo") = Saldo
Dt2.Rows.Add(Row2)
Dim query2 = From s In Dt2.AsEnumerable() Select New With {.year = "", .limite = s("limite").ToString(), .saldo = s("saldo").ToString()}
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index b54300575..6f6ec5d8b 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -585,6 +585,14 @@
+
+
+
+
+
- {0}. Existencia: {1}", CodigoPS, Existencia) TieneErrorExistencia = True @@ -666,9 +724,11 @@ Partial Class Inventarios_TrasladoSolicitud Dim Precio As Double = Row.DataKey("Precio").ToEntero Dim Observaciones As String = Row.DataKey("Observaciones") Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero - Dim Serie As String = Row.DataKey("Serie") + Dim Serie As String = Row.DataKey("Serie") + Dim Lote As String = Row.DataKey("Lote") + Dim FechaCaducidad As Date = Row.DataKey("FechaCaducidad").ToDate - If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie) Then + If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie, Lote, FechaCaducidad) Then TieneError = True Exit For End If @@ -1019,15 +1079,17 @@ Partial Class Inventarios_TrasladoSolicitud DdlUM.SelectedValue = "-1" DdlUM.DataBind() DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString) - Dim AplicaSerie As Boolean = drPS("AplicaSerie").ToString = "True" - Div4.Visible = AplicaSerie + AplicaSerie = drPS("AplicaSerie").ToString = "True" + Div4.Visible = AplicaSerie + + AplicaLote = drPS("AplicaLote").ToString = "True" + divLote.Visible = AplicaLote + RFVLote.Enabled = AplicaLote - Dim AplicaLote As Boolean = drPS("AplicaLote").ToString = "True" - divLote.Visible = AplicaLote - - Dim AplicaCaducidad As Boolean = drPS("AplicaCaducidad").ToString = "True" + AplicaCaducidad = drPS("AplicaCaducidad").ToString = "True" divCaducidad.Visible = AplicaCaducidad - divCaducidad2.Visible = AplicaCaducidad + divCaducidad2.Visible = AplicaCaducidad + RFVFechaCad.Enabled = AplicaCaducidad End If UpPS.Update() @@ -1180,5 +1242,23 @@ Partial Class Inventarios_TrasladoSolicitud GvDatos.Columns(5).Visible = Mostrar End Sub + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.FCLiteral("LtlSerie").ToString = "-1" Then + e.Row.FCLiteral("LtlSerie").Text = "" + End If + + If e.Row.FCLiteral("LtlLote").ToString = "-1" Then + e.Row.FCLiteral("LtlLote").Text = "" + End If + + If e.Row.FCLiteral("LtlFechaCaducidad").ToString.ToDate = MinFecha Then + e.Row.FCLiteral("LtlFechaCaducidad").Text = "" + End If + + End If + + + End Sub End Class diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index eaf48f3d2..0eb7d8095 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -443,6 +443,7 @@
+
-
-
-
-
-
-
-
-
-
-
- <%--Clonar Usuario --%>
-
- Clonar Usuario
-
-
-
- Actualizar Gestor Cobranza
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
" style="display: inline-block; margin-right: -20px; width: 150px;" />
" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
diff --git a/Scripts/custom.js b/Scripts/custom.js
index afe9649fa..74eac68b9 100644
--- a/Scripts/custom.js
+++ b/Scripts/custom.js
@@ -1200,7 +1200,8 @@ function setwebservice(idDdlWS, idhdValue, idhdText, btn) {
metodo: (!(DdlWS.data('metodo')) || DdlWS.data('metodo') == 'getps') ? ((!(DdlWS.parent().data('metodo')) || DdlWS.parent().data('metodo') == 'getps') ? 'getps' : DdlWS.parent().data('metodo')) : DdlWS.data('metodo'),
Pagina: (!(DdlWS.data('pagina')) || DdlWS.data('pagina') == '') ? '-2' : DdlWS.data('pagina'),
ColTexto: (!(DdlWS.data('coltexto')) || DdlWS.data('coltexto') == '') ? 'NC' : DdlWS.data('coltexto'),
- aplicaparaventa: (!(DdlWS.data('aplicaparaventa')) || DdlWS.data('aplicaparaventa') == '') ? -1 : DdlWS.data('aplicaparaventa')
+ aplicaparaventa: (!(DdlWS.data('aplicaparaventa')) || DdlWS.data('aplicaparaventa') == '') ? -1 : DdlWS.data('aplicaparaventa'),
+ cvemarca: (!(DdlWS.data('cvemarca')) || DdlWS.data('cvemarca') == '') ? -1 : DdlWS.data('cvemarca')
//Metodo: metodo
};
diff --git a/Sistemas/UsuarioDetalle.aspx b/Sistemas/UsuarioDetalle.aspx
index e8217723e..512355535 100644
--- a/Sistemas/UsuarioDetalle.aspx
+++ b/Sistemas/UsuarioDetalle.aspx
@@ -1,166 +1,167 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="UsuarioDetalle.aspx.vb" Inherits="Sistemas_UsuarioDetalle" %>
-
-<%@ PreviousPageType VirtualPath="Usuarios.aspx" %>
-
-
+
+
-
-
-
+
+
+
-
-
+
-
-
+
+ | Usuario: | -
-
+
-
-
+
-
+
+
-
+
-
-
-
-
- | ||||||||||||||||||||||||||
| Empresa: | +
+ |
+ ||||||||||||||||||||||||||
| Sessión por equipo | ++ | ||||||||||||||||||||||||||
| Autorizar equipo | ++ | ||||||||||||||||||||||||||
| Código Acceso: | +
+ |
+
+ |
+
+
-
+
+
+
-
-
+
+
+
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- |
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- |
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
|
- |
-
- |
-
- |
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- |
- |
-
-
|
- |
-
-
|
- |
-
-
|
- |
-
-
|
- |
-
-
|
- |
-
-
|
- |
-
-
|
- |
-
-
|
- |
-
-
|
- |
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
+
-
-
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ |
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ |
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
|
+ |
+
+ |
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ |
+ |
+
+
|
+ |
+
+
|
+ |
+
+
|
+ |
+
+
|
+ |
+
+
|
+ |
+
+
|
+ |
+
+
|
+ |
+
+
|
+ |
+
+
|
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
+
+
-
-
+
-
Empresa:
-
-
-
-
-
-
- <%--EMPRESAS--%>
-
-
-
-
-
- <%--ROLES--%>
-
-
-
-
-
-
- Empresas
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--INDICADORES--%>
-
-
-
-
-
-
-
-
-
- Indicadores
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--ALMACENES--%>
-
-
-
-
-
- <%--SUBPROYECTOS--%>
-
-
-
-
- <%--CUENTAS BANCARIAS--%>
-
-
-
-
- <%--MODULOS--%>
-
-
-
-
-
- <%--PERMISOS--%>
-
-
-
-
-
-
- Módulos
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Permisos
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
- -
|
- |
-
-
-
-
-
-
-
-
-
-
-
- Bitacora
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
+
+
-
-
+ <%--EMPRESAS--%>
+
+
+
+
+
+ <%--ROLES--%>
+
+
+
+
+
+
+ Empresas
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--INDICADORES--%>
+
+
+
+
+
+
+
+
+
+ Indicadores
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--ALMACENES--%>
+
+
+
+
+
+ <%--SUBPROYECTOS--%>
+
+
+
+
+ <%--CUENTAS BANCARIAS--%>
+
+
+
+
+ <%--MODULOS--%>
+
+
+
+
+
+
+
+
+ <%--PERMISOS--%>
+
+
+
+
+
+
+ Módulos
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Permisos
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+ +
|
+ |
+
+
+
+
+
+
+
+
+
+
+
+ Bitacora
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
-
-
-
- <%--modal-lg--%>
-
-
+
+
+
+
+
+
+
+
+
+ <%--modal-lg--%>
+
+
<%--
-
-
-
-
-
-
-
-
Restrincción por Equipo:
@@ -2507,365 +2527,366 @@
--%>
-
-
-
-
-
-
-
+
--%>
+
+
+
-
Aplica Restricción:
-
-
-
- -
-
-
-
-
-
-
-
-
- | Día de la Semana | -Hora Inicio | -Hora Fin | -
|
- |
-
-
-
-
-
- 
-
- |
-
-
-
-
-
-
-
- |
-
|
- |
-
-
-
-
-
-
-
- |
-
-
-
-
-
-
-
- |
-
|
- |
-
-
-
-
-
-
-
- |
-
-
-
-
-
-
-
- |
-
|
- |
-
-
-
-
-
-
-
- |
-
-
-
-
-
-
-
- |
-
|
- |
-
-
-
-
-
-
-
- |
-
-
-
-
-
-
-
- |
-
|
- |
-
-
-
-
-
-
-
- |
-
-
-
-
-
-
-
- |
-
|
- |
-
-
-
-
-
-
-
- |
-
-
-
-
-
-
-
- |
-
|
- |
-
-
-
-
-
-
-
- |
-
-
-
-
-
-
-
- |
-
+
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ | Día de la Semana | +Hora Inicio | +Hora Fin | +
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
|
+ |
+
+
+
+
+
+
+
+ |
+
+
+
+
+
+
+
+ |
+
+
+
@@ -833,7 +841,7 @@
-
@@ -1917,6 +1925,46 @@
+
+ <%-- ******************************************** Bloqueo de Caja *************************************************************************************************************************************** --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -2974,11 +3042,11 @@
@@ -3008,11 +3076,11 @@
+
+
+
+ +
+
+
+
+
@@ -2945,11 +3013,11 @@
@@ -3046,6 +3114,20 @@