diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 12d2a0ae5..1be72d541 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6990,7 +6990,7 @@ Public Class ClsPaginas
Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
lrds.Add(rds5)
- If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
+ If UsuarioActual.CveEmpresa.Contiene(141, 152) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString))
End If
'Imprime los parametros
@@ -8137,7 +8137,7 @@ Public Class ClsPaginas
Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
- If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro Costo"
+ If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo"
Case 2
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 7e1ee24e2..bf13b3e27 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -1956,14 +1956,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Return Retorno
End Function
- Public Function UpdateSalarioImss(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiarioSS As Double) As Boolean
+ Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
Dim Retorno As Boolean = False
- SqlDataAdapter("PA_RH_PersonalUpdateSalarioImss")
+ SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@SDI", SqlDbType.Money).Value = SDI
- .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS
+ .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
End With
Try
SqlAdapter.Fill(Data)
diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx
index 887e726ba..e76a349bd 100644
--- a/Bancos/RepCortes.aspx
+++ b/Bancos/RepCortes.aspx
@@ -52,7 +52,7 @@
Personalizar
-
+
@@ -72,7 +72,8 @@
diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index 3d72f3b1c..b9d589ecc 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -55,7 +55,6 @@ Partial Class Inventarios_RepMaximoMinimo
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
-
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -358,14 +357,81 @@ Partial Class Inventarios_RepMaximoMinimo
#End Region
Protected Sub LnkUpFile_Click(sender As Object, e As EventArgs)
- RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+ Dim Filesgral As List(Of Archivo) = TxtArchivoMaxMin.getfiles().Archivos
+ Dim continuar As Boolean = Filesgral.Count > 0
+ Dim stringError As String = ""
+ Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing)
+
+ If continuar Then
+ Dim FileExtension As String = fileItem.Extencion.ToUpper()
+
+ If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
+ Else
+ continuar = False
+ stringError = "No se inserto un archivo de tipo Excel"
+ End If
+ End If
+
+ Dim DTEXcel As DataTable = New DataTable()
+ If continuar Then
+ DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True)
+ DTEXcel.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
+ DTEXcel.Columns.Add(New DataColumn("CveAlmacen", GetType(Integer)))
+ Dim dtAlmacen As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1)
+ For Each drow As DataRow In DTEXcel.Rows
+ Dim Drps As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa, -1, "-1", -1, -1, drow("Codigo").ToString())
+ Dim dralmacen As DataRow = dtAlmacen.FiltroPrimero(String.Format("Almacen='{0}'", drow("Almacen")))
+ If Drps.Rows.Count > 0 Then
+ drow("CvePS") = Drps.Rows(0)("CvePS")
+ End If
+ If Not IsNothing(dralmacen) Then
+ drow("CveAlmacen") = dralmacen("CveAlmacen")
+ End If
+ DTEXcel.AcceptChanges()
+ Next
+ continuar = True
+ End If
+ If continuar Then
+
+ Using ObjMaxMin As New ClsInventarios
+ ObjMaxMin.IniciaTransacSQL()
+ Dim DtResultados As New DataTable
+ If ObjMaxMin.RepMaximoMinimo(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+ DtResultados = ObjMaxMin.DtResultados
+ End If
+ For Each drow As DataRow In DTEXcel.Select("CvePS>0 AND CveAlmacen >0")
+ If continuar Then
+ If IsNothing(DtResultados.FiltroPrimero(String.Format("CveAlmacen={0} AND CvePS={1}", drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero()))) Then
+ continuar = ObjMaxMin.AddAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario)
+ Else
+ continuar = ObjMaxMin.UpdateAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario)
+ End If
+ End If
+ Next
+ If continuar Then
+ ObjMaxMin.Commit()
+ Else
+ ObjMaxMin.RollBack()
+ End If
+ End Using
+ End If
+ If continuar Then
+ CargaGrid()
+ Alert("los cambios se han guardado satisfactoriamente")
+ RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+ End If
End Sub
Protected Sub LnkCargarMaximosMinimos_Click(sender As Object, e As EventArgs)
-
+ TxtArchivoMaxMin.Text = ""
RegistraScript("$('#DmodalCargarMaximosMinimos').modal();")
Upcargamasiva.Update()
End Sub
Protected Sub LnkDescargarFormato_Click(sender As Object, e As EventArgs)
+ Using ObjMaxMin As New ClsInventarios
+ If ObjMaxMin.RepMaximoMinimo(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+ ObjMaxMin.DtResultados.FiltraParametros("", "", New String() {"Codigo", "Almacen", "Maximo", "Minimo"}).ExportToExcel(String.Format("MaximosyMinimos{0:dd-MM-yyyy}", DateTime.Now))
+ End If
+ End Using
End Sub
End Class
diff --git a/OC/OC.aspx b/OC/OC.aspx
index af0786933..01867c377 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -1485,6 +1485,10 @@
+
+ Asignado a:
+
+
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 8df2ee5f5..fe3846255 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -817,6 +817,7 @@ Partial Class OC
End If
End If
+ MostrarUsuarioAsignado()
Me.Form.DefaultButton = ""
End Sub
@@ -3128,7 +3129,7 @@ Partial Class OC
Else
If objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
- CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
+ CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
Promocion:=Promocion) Then
@@ -8038,6 +8039,13 @@ Partial Class OC
UpSolicitarAnticipo.Update()
End Sub
+ Private Sub MostrarUsuarioAsignado()
+ If CveUsuarioAsignado > 0 Then
+ PnlUsuarioYaAsignado.Visible = True
+ Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuario:=CveUsuarioAsignado).FiltroPrimeroValor("Nombre")
+ LblUsuarioYaAsignado.Text = NombreUsuario
+ End If
+ End Sub
'Private Sub CargaVentaRelacionada()
' Dim GridViewPSAux As GridView = GvD
' Dim CveOCDetalle As New StringBuilder()
diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx
index b01887af2..68f0df94b 100644
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -97,6 +97,9 @@
Excel por Atender
+
+ PDF Pendientes
+
Excel Pendientes
@@ -107,6 +110,7 @@
+
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index f6bb99b72..f3c5712af 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -22,9 +22,17 @@ Partial Class RepOC
Set(value As DataTable)
ViewState("DtPorAtender") = value
End Set
- End Property
+ End Property
+ Private Property DtPendiente As DataTable
+ Get
+ Return DirectCast(ViewState("DtPendiente"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtPendiente") = value
+ End Set
+ End Property
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
@@ -87,6 +95,7 @@ Partial Class RepOC
CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
GvPendientes.Columns(5).HeaderText = LblSubProyecto.Text
+ GvConsultar.Columns(5).HeaderText = LblSubProyecto.Text
DivProyectos.Visible = DdlProyectos.Visible
End Sub
@@ -182,6 +191,7 @@ Partial Class RepOC
Protected Sub btnConsultarPendientes_Click(sender As Object, e As EventArgs) Handles btnConsultarPendientes.Click
LbPorAtender.Visible = True
LbPendientes.Visible = True
+ LbPendientesPDF.Visible = True
LbConsultar.Visible = False
Tab.Visible = True
@@ -214,6 +224,7 @@ Partial Class RepOC
DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
GvPendientes.DataSource = OC.DtResultados
+ DtPendiente = OC.DtResultados
GvPendientes.DataBind()
'If (GvPendientes.Rows.Count > 0) Then
' GvPendientes.UseAccessibleHeader = True
@@ -312,6 +323,7 @@ Partial Class RepOC
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
LbPorAtender.Visible = False
LbPendientes.Visible = False
+ LbPendientesPDF.Visible = False
LbConsultar.Visible = True
DivConsultar.Visible = True
DivPendiete.Visible = False
@@ -330,7 +342,8 @@ Partial Class RepOC
CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
GvConsultar.DataSource = OC.DtResultados
- DtOC = OC.DtResultados
+ DtOC = OC.DtResultados
+ DtPorAtender = OC.DtResultados
LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero
If UsuarioActual.TienePermisoProceso(227) Then
@@ -459,6 +472,7 @@ Partial Class RepOC
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("AgrupadoPor", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}"))
params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text))
+ params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
@@ -480,7 +494,27 @@ Partial Class RepOC
End Sub
Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click
- GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+ 'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
+ ImprimirPendientes("EXCEL")
+ End Sub
+ Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
+ ImprimirPendientes("PDF")
+ End Sub
+
+ Private Sub ImprimirPendientes(format As String)
+ If UsuarioActual.CveEmpresa.Contiene(72) Then
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
+ params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
+ params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))
+
+ ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format)
+ Else
+ GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
+ End If
End Sub
Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
If UsuarioActual.CveEmpresa.Contiene(72) Then
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 07f000578..fc309b263 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -4588,21 +4588,21 @@
-
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 1dde0e7a6..1ab33cd40 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1477,7 +1477,7 @@ Partial Class RH_Personal
TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString()
TxtSDI.Text = ObjPersonal.SDI.ToString()
TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
- TxtFISalariodiarioImss.Text = ObjPersonal.SalarioDiarioSS.ToString()
+ TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
TxtBono.Text = ObjPersonal.Bono.ToString()
TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
TxtFIAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
@@ -6205,39 +6205,34 @@ Partial Class RH_Personal
TxtFIPrimaVacacional.Text = "25"
End If
-
-
- TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
+ TxtFISalariodiario.Text = TxtSalarioDiario.Text
TxtFactordeIntegracion.Text = ""
TxtFISalarioDiarioIntegrado.Text = ""
+ If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+ TxtFIDiasVacaciones.Text = "6"
+ Else
+ Using objRH As New ClsRH
+ If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+ If objRH.DtResultados.Rows.Count > 0 Then
+ If objRH.DtResultados.Rows.Count > 0 Then
+ Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
+ TxtFIDiasVacaciones.Text = If(diasvaca > 5, diasvaca, 6).ToString()
+ Else
+ TxtFIDiasVacaciones.Text = "6"
+ End If
+ Else
-
- Dim objRH As New ClsRH
-
- If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
- If objRH.DtResultados.Rows.Count > 0 Then
-
- If objRH.DtResultados.Rows.Count > 0 Then
- TxtFIDiasVacaciones.Text = objRH.DtResultados(0)("Dias").ToString
- Else
- TxtFIDiasVacaciones.Text = "6"
+ End If
End If
- Else
-
- End If
- End If
-
- objRH.Dispose()
-
-
-
+ End Using
+ End If
RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
UpFactordeintegracion.Update()
End Sub
- Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
- Dim SD As Decimal = TxtFISalariodiarioImss.Text.ToDecimal()
+ Private Sub calcularSDI()
+ Dim SD As Decimal = TxtFISalariodiario.Text.ToDecimal()
Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal()
@@ -6245,18 +6240,26 @@ Partial Class RH_Personal
Dim SDI As Decimal = (SD * FI)
TxtFactordeIntegracion.Text = FI.ToString()
TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
- UpFactordeintegracion.Update()
- Alert(String.Format(" salario diario integreado {0:###0.########}", SDI))
+ UpFactordeintegracion.Update()
+ End Sub
+ Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
+ calcularSDI()
+ Alert(String.Format(" salario diario integreado {0}", TxtFISalarioDiarioIntegrado.Text))
End Sub
Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs)
- LnkCalcularFactordeintegracion_Click(Nothing, Nothing)
+ calcularSDI()
Using ObjPersonal As ClsRH = New ClsRH()
- If ObjPersonal.UpdateSalarioImss(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiarioImss.Text.ToDouble) Then
- TxtSalarioCotizado.Text = TxtFISalariodiarioImss.Text
+ If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
+ TxtSalarioDiario.Text = TxtFISalariodiario.Text
+ TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
+ 'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
+ 'TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
+ TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
UpDatos.Update()
- Alert("Se ha actualizado el salario diario integreado")
+ Alert("Se ha actualizado el salario diario integreado")
+ RegistraScript("$('#DmodalFactordeIntegraccion').modal('hide')")
End If
End Using
End Sub
@@ -6273,8 +6276,10 @@ Partial Class RH_Personal
Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtSalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioPago.Text.ToDecimal()) Then
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
+ TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
+ TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
UpDatos.Update()
Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
End If
diff --git a/Ventas/RepAuxiliarFacturas.aspx b/Ventas/RepAuxiliarFacturas.aspx
index 557ef1378..4bc26339a 100644
--- a/Ventas/RepAuxiliarFacturas.aspx
+++ b/Ventas/RepAuxiliarFacturas.aspx
@@ -35,7 +35,7 @@
-
+
Fecha Inicio:
@@ -136,7 +136,7 @@
-
+
diff --git a/Ventas/RepAuxiliarFacturas.aspx.vb b/Ventas/RepAuxiliarFacturas.aspx.vb
index 82890d330..801f64372 100644
--- a/Ventas/RepAuxiliarFacturas.aspx.vb
+++ b/Ventas/RepAuxiliarFacturas.aspx.vb
@@ -58,7 +58,8 @@ Partial Class Ventas_RepAuxiliarFacturas
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not IsPostBack Then
+ If Not IsPostBack Then
+ txtFechaI.Text = String.Format("01{0:/MM/yyyy}", DateTime.Now)
CargaCombos()
End If
End Sub
@@ -208,8 +209,7 @@ Partial Class Ventas_RepAuxiliarFacturas
UPDatos.Update()
End Sub
- Private Sub CargaDatos()
-
+ Private Sub CargaDatos()
Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
Dim FechaI, FechaF As Date
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)