diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index ef402e041..bbe6bc894 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -268,7 +268,30 @@ Partial Class Inventarios_EntregaAlmacen
ViewState("FormaPaqueteria") = value
End Set
End Property
-
+ 'Private Property IndexSeccionAlmacen As Integer
+ ' Get
+ ' Return CType(ViewState("IndexSeccionAlmacen"), Integer)
+ ' End Get
+ ' Set(value As Integer)
+ ' ViewState("IndexSeccionAlmacen") = value
+ ' End Set
+ 'End Property
+ Private Property ArchivoBitacora As String
+ Get
+ Return CType(ViewState("ArchivoBitacora"), String)
+ End Get
+ Set(value As String)
+ ViewState("ArchivoBitacora") = value
+ End Set
+ End Property
+ Private Property ArchivoBitacoraDetalle As String
+ Get
+ Return CType(ViewState("ArchivoBitacoraDetalle"), String)
+ End Get
+ Set(value As String)
+ ViewState("ArchivoBitacoraDetalle") = value
+ End Set
+ End Property
#End Region
@@ -318,7 +341,10 @@ Partial Class Inventarios_EntregaAlmacen
DdlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
DdlAlmacen.SelectedValue = "-1"
DdlAlmacen.DataBind()
- DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+ If UsuarioActual.CveAlmacen > 0 Then
+ DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+ RecargaporAlmacenes()
+ End If
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorio.DataBind()
@@ -551,6 +577,15 @@ Partial Class Inventarios_EntregaAlmacen
If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+ ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
+ ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
+ If ArchivoBitacora <> "" Then
+ Dim Archivo = New System.IO.FileInfo(ArchivoBitacora)
+ If Archivo.Exists() Then
+ HplCargaBitacora.Visible = True
+ uppCargaBitacora.Update()
+ End If
+ End If
DtDatos = ObjInventario.DtResultados
If Not DtDatos.Columns.Contains("Consec") Then DtDatos.Columns.Add("Consec", GetType(Integer))
@@ -1280,6 +1315,7 @@ Partial Class Inventarios_EntregaAlmacen
Row("FechaCaducidad") = If(AplicaCaducidad, TxtFechaCaducidad.Text, MinFecha.ToShortDateString)
DtDatosDetalle.Rows.Add(Row)
+ ActualizaBitacora()
RegistraScript("playsonidito('beep-07.wav')", "Sonidito")
If Tipo = 1 Then
@@ -1307,11 +1343,44 @@ Partial Class Inventarios_EntregaAlmacen
End Try
DtDatosDetalle.AcceptChanges()
+ ActualizaBitacora()
CargaSerie()
End Sub
#End Region
+#Region "Bitacora"
+ Private Sub ActualizaBitacora(Optional Eliminar As Boolean = False)
+ If Not Eliminar Then
+ DtDatos.TableName = "DtDatos"
+ DtDatosDetalle.TableName = "DtDatosDetalle"
+ DtDatos.WriteXml(ArchivoBitacora, XmlWriteMode.WriteSchema)
+ DtDatosDetalle.WriteXml(ArchivoBitacoraDetalle, XmlWriteMode.WriteSchema)
+ Else
+ File.Delete(ArchivoBitacora)
+ End If
+ End Sub
+
+ Protected Sub HplCargaBitacora_Click(sender As Object, e As EventArgs)
+
+ If IO.File.Exists(ArchivoBitacora) Then
+ 'DtInv.Clear()
+ 'DtDatosDetalle.Clear()
+ DtDatos.ReadXml(ArchivoBitacora)
+ If IO.File.Exists(ArchivoBitacoraDetalle) Then
+ Dim dtt As New DataTable
+ dtt.ReadXml(ArchivoBitacoraDetalle)
+ DtDatosDetalle = dtt
+ Alert("Registro(s) Recuperados", TipoMensaje.ToastInformacion)
+ End If
+ CargaGvDatos()
+
+ Else
+ Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
+ End If
+
+ End Sub
+#End Region
#Region " AGREGA CON LOTE BATCH "
Private Sub CreaDtDetalleLote()
@@ -3894,7 +3963,11 @@ Partial Class Inventarios_EntregaAlmacen
RegistraScript("$('#ModalVerSugerencias').modal('hide')")
End Sub
- Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
+ Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlAlmacen.SelectedIndexChanged
+ RecargaporAlmacenes()
+ End Sub
+
+ Private Sub RecargaporAlmacenes()
If DdlAlmacen.SelectedValue <> "-1" Then
CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
End If
diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx
index bdd49fea6..35fdb222e 100644
--- a/Inventarios/RecepcionAlmacen.aspx
+++ b/Inventarios/RecepcionAlmacen.aspx
@@ -17,13 +17,15 @@
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 08b0b90ee..63926a0a9 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1354,6 +1354,8 @@ Partial Class RH_Personal
Private Sub CargaEstados(pCvePais As Integer)
DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais)
DdlEstados.DataBind()
+ DdlEstadosDomicilio.DataSource = GlobalDTGralEstados("-1", pCvePais)
+ DdlEstadosDomicilio.DataBind()
End Sub
'Private Sub CargaSucursales()
@@ -1607,6 +1609,8 @@ Partial Class RH_Personal
TxtColonia.Text = ObjPersonal.Colonia
'DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString())
DdlEstados.SelectedValueExistInsert(ObjPersonal.CveEstado.ToString(), drow("EstadoText").ToString())
+ DdlEstadosDomicilio.SelectedValueExistInsert(drow("CveEstadoDomicilio").ToString(), drow("EstadoDomicilioText").ToString())
+ TxtCiudadOrigen.Text = drow("CiudadOrigen").ToString()
TxtCP.Text = ObjPersonal.CP
TxtColonia.Text = ObjPersonal.Colonia
TxtCiudad.Text = ObjPersonal.Ciudad
@@ -2061,6 +2065,10 @@ Partial Class RH_Personal
+
+
+
+
If TieneError Then
ObjPersonal.RollBack()
Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia)
@@ -2068,6 +2076,9 @@ Partial Class RH_Personal
ObjPersonal.Commit()
Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
+
+
+
CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
@@ -2075,6 +2086,12 @@ Partial Class RH_Personal
GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
If CvePersonal > 0 Then
+ Dim strquery As String = String.Format("UPDATE RH_Personal SET CveEstadoDomicilio = {2},CiudadOrigen ='{3}' WHERE CvePersonal ={1} AND CveEmpresa = {0} ",
+ UsuarioActual.CveEmpresa, CvePersonal, DdlEstadosDomicilio.SelectedValue.ToEntero(), TxtCiudadOrigen.Text)
+ Using objbase As New ClsClaseBase
+ If (objbase.runQuerystr(strquery)) Then
+ End If
+ End Using
CargaDatos()
End If
@@ -7481,27 +7498,98 @@ Partial Class RH_Personal
End Sub
Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs)
- Dim RutaArchivo As String = "C:\Proyectos\SIGGIT\General\CONTRATO.doc"
+ Dim RutaArchivo As String = "F:\Proyectos\wwwSIG\General\CONTRATO.doc"
- Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
+ Dim dSDTotal As Decimal = 0
+ Dim SDTotalText As String = ""
+ Dim SDTotal As String = ""
+ Dim SueldoDiario As String = ""
+ Dim septimodia As String = ""
+ Dim Aguinaldo As String = ""
+ Dim Vacaciones As String = ""
+ Dim Prima As String = ""
+ Dim vacacionesyprima As String = ""
+ Dim Utilidades As String = ""
+ Dim strquery As String = String.Format("EXEC PA_Agro_ValidacionNomGet @CveValidacionNomina=-1,@CveEmpresa ={0} ", UsuarioActual.CveEmpresa)
+ Using objbase As New ClsClaseBase
+ If (objbase.runQuerystr(strquery)) Then
+ Dim dbrow As DataRow
+ dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =4")
+ If Not IsNothing(dbrow) Then
+ SueldoDiario = String.Format("{0:N2}", dbrow("Importe"))
+ dSDTotal = dbrow("Importe").ToString().ToDecimal()
+ End If
+ dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =5")
+ If Not IsNothing(dbrow) Then
+ septimodia = String.Format("{0:N2}", dbrow("Importe"))
+ dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
+ End If
+ dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =6")
+ If Not IsNothing(dbrow) Then
+ Aguinaldo = String.Format("{0:N2}", dbrow("Importe"))
+ dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
+ End If
+ dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =8")
+ If Not IsNothing(dbrow) Then
+ vacacionesyprima = String.Format("{0:N2}", dbrow("Importe"))
+ Dim temptotal As Decimal = dbrow("Importe").ToString().ToDecimal()
- Dim ObjRH As New ClsRH
+ Vacaciones = String.Format("{0:N2}", temptotal / 1.5)
+ Prima = String.Format("{0:N2}", (temptotal / 1.5) * 0.5)
+
+ dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
+ End If
+ dbrow = objbase.DtResultados.FiltroPrimero("CveValidacionNomina =7")
+ If Not IsNothing(dbrow) Then
+ Utilidades = String.Format("{0:N2}", dbrow("Importe"))
+ dSDTotal = dSDTotal + dbrow("Importe").ToString().ToDecimal()
+ End If
+ SDTotalText = Texto2Letras(dSDTotal.ToString().ToDouble())
+ SDTotal = String.Format("{0:N2}", dSDTotal)
+
+
+ End If
+ End Using
+
+ Dim Tags As New List(Of TagsDocumentos)
+ Dim ObjRH As New ClsRH()
If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
- Dim Tags As New List(Of TagsDocumentos)
+ If ObjRH.CveSubProyecto.Contiene(11884, 11883) Then
+ RutaArchivo = "F:\Proyectos\wwwSIG\General\CONTRATOINVERNADERO.doc"
+
+ End If
Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto))
Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString()))
- Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text))
+ Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text.ToUpper()))
Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text))
- Tags.Add(New TagsDocumentos("{CiudadOrigen}", TxtCiudad.Text))
+ Tags.Add(New TagsDocumentos("{CiudadOrigen}", String.Format("{0},{1}", TxtCiudadOrigen.Text, DdlEstados.SelectedItem.Text).ToUpper()))
Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC))
+ Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0},{1}", TxtCiudad.Text, DdlEstadosDomicilio.SelectedItem.Text).ToUpper()))
+ Tags.Add(New TagsDocumentos("{CALLE}", TxtCalle.Text))
+ Tags.Add(New TagsDocumentos("{NO}", TxtNumExt.Text))
+ Tags.Add(New TagsDocumentos("{COLONIA}", TxtColonia.Text))
+ Tags.Add(New TagsDocumentos("{CP}", TxtCP.Text))
+
+
+ Tags.Add(New TagsDocumentos("{SDTotalText}", SDTotalText))
+ Tags.Add(New TagsDocumentos("{SDTotal}", SDTotal))
+ Tags.Add(New TagsDocumentos("{SueldoDiario}", SueldoDiario))
+ Tags.Add(New TagsDocumentos("{septimodia}", septimodia))
+ Tags.Add(New TagsDocumentos("{Aguinaldo}", Aguinaldo))
+
+ Tags.Add(New TagsDocumentos("{Vacaciones}", Vacaciones))
+ Tags.Add(New TagsDocumentos("{Prima}", Prima))
+ Tags.Add(New TagsDocumentos("{vacacionesyprima}", vacacionesyprima))
+ Tags.Add(New TagsDocumentos("{Utilidades}", Utilidades))
+
+
Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso)))
Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso)))
Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso)))
- objGemBoxDocument.SustituirTags(Tags)
End If
ObjRH.Dispose()
@@ -7509,6 +7597,8 @@ Partial Class RH_Personal
+ Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo)
+ objGemBoxDocument.SustituirTags(Tags)
objGemBoxDocument.GuardarStreamPDF()