+
+
+
+
<%--- Cliente:
@@ -30,23 +93,14 @@
--%>
- - Proyecto:
-
-
-
-
- - SubProyecto:
-
-
-
-
- - Turno:
-
-
-
-
+
+
@@ -62,98 +116,130 @@
-
-
-
-
-
+
+
+
+
+
+
+
+ Información
-
-
-
- Nombre
-
-
-
-
-
-
- Proyecto
-
-
- <%----%>
-
-
-
-
- Sub Proyecto
-
-
- <%----%>
-
-
-
-
- Turno
-
-
- <%----%>
-
-
-
- <%--
- Supervisor
-
-
-
-
-
-
- --%>
-
- SDD
-
-
-
-
-
-
-
-
- SDI
-
-
-
-
-
-
-
-
- SD IMSS
-
-
-
-
-
-
-
-
-
- ¿CALCULAR SDI?
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+ Codigo
+
+
+
+
+
+
+ Nombre
+
+
+
+
+
+
+ Proyecto
+
+
+ <%----%>
+
+
+
+
+
+
+ <%----%>
+
+
+
+
+ Turno
+
+
+ <%----%>
+
+
+
+
+ SDD
+
+
+
+
+
+
+
+
+ SDI
+
+
+
+
+
+
+
+
+ SD IMSS
+
+
+
+
+
+
+
+
+ ¿CALCULAR SDI?
+
+
+
+
+
+
+ Supervisor
+
+
+
+
+
+
+
+ Cliente
+
+
+
+
+
+
+
+
+
+
+
-
+
@@ -200,15 +286,17 @@
Calcular Salario Diario Integrado
-
+
-
diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb
index 5e946ba74..5c81bf818 100644
--- a/RH/ActualizacionMasiva.aspx.vb
+++ b/RH/ActualizacionMasiva.aspx.vb
@@ -12,7 +12,15 @@ Partial Class RH_ActualizacionMasiva
SetPermisos()
'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
- CargaProyecto()
+ 'CargaProyecto()
+ CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto)
+ divddlproyeto.Visible = DdlProyecto.Visible
+ GvDatos.Columns(2).Visible = DdlProyecto.Visible
+ GvDatos.Columns(3).HeaderText = LblSubProyeccto.Text
+ GvDatos.DataSource = New DataTable()
+ GvDatos.DataBind()
+
+ GvDatos.CssClass = String.Format("{0} {1}", GvDatos.CssClass, If(DdlProyecto.Visible, "Columns4", ""))
CargaTurnos()
CargaSupervisores()
End If
@@ -70,16 +78,6 @@ Partial Class RH_ActualizacionMasiva
' DdlCliente.Attributes.Remove("onclick")
'End Sub
- Private Sub CargaProyecto()
- ViewState("DTProyectos") = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
-
- Dim Row As DataRow = DirectCast(ViewState("DTProyectos"), DataTable).NewRow()
- Row("CveProyecto") = -1 : Row("Proyecto") = "Sin Proyecto asignado"
- DirectCast(ViewState("DTProyectos"), DataTable).Rows.InsertAt(Row, 0)
-
- DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
- DdlProyecto.DataBind()
- End Sub
Private Sub CargaSubProyecto()
ViewState("DTSubProyectos") = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
@@ -90,20 +88,18 @@ Partial Class RH_ActualizacionMasiva
End Sub
Private Sub CargaTurnos()
- ViewState("DTTurno") = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ ViewState("DTTurno") = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+ DdlTurno.DataSource = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
DdlTurno.DataBind()
End Sub
Private Sub CargaSupervisores()
- ViewState("DTUsuarios") = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+ ViewState("DTUsuarios") = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND EsSupervisorRH = 1 ", UsuarioActual.CveEmpresa))
Dim Row As DataRow = DirectCast(ViewState("DTUsuarios"), DataTable).NewRow()
Row("CveUsuario") = -1 : Row("Nombre") = "Sin Supervisor Asignado"
DirectCast(ViewState("DTUsuarios"), DataTable).Rows.InsertAt(Row, 0)
- 'DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
- 'DdlSupervisor.DataBind()
End Sub
#End Region
@@ -113,9 +109,10 @@ Partial Class RH_ActualizacionMasiva
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-
- Using ObjPersonal As New ClsRH
-
+ consultardata()
+ End Sub
+ Public Sub consultardata()
+ Using ObjPersonal As New ClsRH()
If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjPersonal.DtResultados
Else
@@ -123,7 +120,6 @@ Partial Class RH_ActualizacionMasiva
End If
End Using
-
GvDatos.DataBind()
UPDatos.Update()
End Sub
@@ -154,18 +150,21 @@ Partial Class RH_ActualizacionMasiva
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
- e.Row.FCLiteral("LtlNombre").Text = "Sub Proyecto: " & If(e.Row.DBCampo("SubProyecto") = String.Empty, "Sin Proyecto Asignado", e.Row.DBCampo("SubProyecto"))
- e.Row.Cells(0).ColumnSpan = 7
- For i As Integer = 1 To 6
+ e.Row.FCLiteral("LtlCodigo").Text = String.Format("{0}: {1}", LblSubProyeccto.Text, If(e.Row.DBCampo("SubProyecto") = String.Empty, "Sin Proyecto Asignado", e.Row.DBCampo("SubProyecto")))
+
+ e.Row.Cells(0).ColumnSpan = 11
+ For i As Integer = 1 To 10
e.Row.Cells(i).Visible = False
Next
+ e.Row.CssClass = "Titulos2"
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
- e.Row.FCLiteral("LtlNombre").Text = "Turno: " & e.Row.DBCampo("Turno")
- e.Row.Cells(0).ColumnSpan = 7
- For i As Integer = 1 To 6
+ e.Row.FCLiteral("LtlCodigo").Text = String.Format("Turno: {0}", e.Row.DBCampo("Turno"))
+ e.Row.Cells(0).ColumnSpan = 11
+ For i As Integer = 1 To 10
e.Row.Cells(i).Visible = False
Next
+ e.Row.CssClass = "Titulos3"
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
Else
'If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
@@ -177,6 +176,14 @@ Partial Class RH_ActualizacionMasiva
e.Row.FCTextBox("TxtSalarioCotizado").Text = e.Row.FCTextBox("TxtSalarioCotizado").Text.Replace(",", "")
+ e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
+ e.Row.FCDropDownList("DdlSupervisor").DataBind()
+ e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
+ e.Row.FCDropDownList("DdlSupervisor").SelectedValueExist(e.Row.DBCampo("CveSupervisor").ToString())
+
+ e.Row.FCDropDownLost("DdlClientes").SelectedValue = e.Row.DBCampo("CveCliente")
+ e.Row.FCDropDownLost("DdlClientes").SelectedText = e.Row.DBCampo("Cliente")
+
''Deshabilita todo
'e.Row.Cells(1).Enabled = True : e.Row.Cells(2).Enabled = True : e.Row.Cells(3).Enabled = True : e.Row.Cells(4).Enabled = True
'e.Row.Cells(5).Enabled = True : e.Row.Cells(6).Enabled = True : e.Row.Cells(7).Enabled = True
@@ -188,7 +195,7 @@ Partial Class RH_ActualizacionMasiva
End If
End Sub
- Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+ Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs)
'Dim ObjPersonal As New ClsRH
'ObjPersonal.IniciaTransacSQL()
@@ -309,7 +316,7 @@ Partial Class RH_ActualizacionMasiva
Response.BinaryWrite(memoryStream.ToArray())
Response.[End]()
Catch ex As Exception
- Alert("Ocurrio un error al generar el Formato de salario" & ex.ToString())
+ Alert(String.Format("Ocurrio un error al generar el Formato de salario {0}", ex.ToString()))
End Try
End Sub
Protected Sub LnkCargarSalarios_Click(sender As Object, e As EventArgs)
@@ -344,8 +351,7 @@ Partial Class RH_ActualizacionMasiva
DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros(" LEN(Codigo)>0 ")
Catch ex As Exception
continuar = False
- stringError = "Ocurrio un Error al procesar el excel "
- String.Format("{0} " & vbCrLf & "{0}", stringError, ex.ToString()).GuardaLog()
+ String.Format("Ocurrio un Error al procesar el excel {0}{1}", vbCrLf, ex.ToString()).GuardaLog()
End Try
End If
If continuar Then
@@ -386,4 +392,30 @@ Partial Class RH_ActualizacionMasiva
End If
End Sub
+
+ Protected Sub BtnGuardarSupervisor_Click(sender As Object, e As EventArgs)
+ Dim CvePersonal As Integer = 0
+ Dim listpersonal As New List(Of RequestUpSupervisorMasiva)
+ For Each Row As GridViewRow In GvDatos.Rows
+ CvePersonal = Row.DataKey("CvePersonal").ToEntero()
+ If CvePersonal > 0 Then
+ listpersonal.Add(New RequestUpSupervisorMasiva() With {.CvePersonal = CvePersonal, .CveUsuario = Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero(),
+ .CveCliente = Row.FCDropDownLost("DdlClientes").SelectedValue.ToEntero()})
+ End If
+ Next
+ Dim continuar As Boolean = False
+ Using ObjPersonal As ClsRH = New ClsRH()
+ ObjPersonal.IniciaTransacSQL()
+ If ObjPersonal.UpPersonalSupervisorMasiva(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, listpersonal) Then
+ ObjPersonal.Commit()
+ continuar = True
+ Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
+ Else
+ ObjPersonal.RollBack()
+ End If
+ End Using
+ If continuar Then
+ consultardata()
+ End If
+ End Sub
End Class
diff --git a/Scripts/custom.js b/Scripts/custom.js
index 6be5230a7..d08183fbc 100644
--- a/Scripts/custom.js
+++ b/Scripts/custom.js
@@ -71,15 +71,21 @@ function log(mensaje) {
}
function FiltrarTabla(idtxt, idtable, idcontador) {
if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', 'table-row'); }
- else { $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); $('table#' + idtable + ' tr:contains("' + $('#' + idtxt).val() + '")').css('display', 'table-row'); }
+ else {
+ $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); $('table#' + idtable + ' tr:contains("' + $('#' + idtxt).val() + '")').css('display', 'table-row');
+ $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
+ }
if ($('#' + idcontador).length > 0) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
}
}
function FiltrarTablaV2(idtxt, idtable, idcontador) {
- if ($(idtxt).val() == '') { $(idtable + ' tr').css('display', 'table-row'); }
- else { $(idtable + ' tr:not(.ADtr)').css('display', 'none'); $(idtable + ' tr:contains("' + $(idtxt).val() + '")').css('display', 'table-row'); }
+ if ($(idtxt).val() == '') { $(idtable + ' tr').css('display', ''); }
+ else {
+ $(idtable + ' tr:not(.ADtr)').css('display', 'none'); $(idtable + ' tr:contains("' + $(idtxt).val() + '")').css('display', '');
+ $('div.ADScroller .ADScroller-header '+idtable + ' tr:not(.ADtr)').css('display', '');
+ }
if ($('#' + idcontador).length > 0) {
$('#' + idcontador).html($(idtable + ' tr:visible').length);
}
diff --git a/Ventas/RepConciliacionEmitidosSat.aspx b/Ventas/RepConciliacionEmitidosSat.aspx
index fa07791c0..0c790f970 100644
--- a/Ventas/RepConciliacionEmitidosSat.aspx
+++ b/Ventas/RepConciliacionEmitidosSat.aspx
@@ -215,7 +215,7 @@
diff --git a/Ventas/RepConciliacionEmitidosSat.aspx.cs b/Ventas/RepConciliacionEmitidosSat.aspx.cs
index b318417ef..7cf8cc869 100644
--- a/Ventas/RepConciliacionEmitidosSat.aspx.cs
+++ b/Ventas/RepConciliacionEmitidosSat.aspx.cs
@@ -224,13 +224,14 @@ public partial class Ventas_RepConciliacionEmitidosSat : ClsPaginas
ClsCGame ObjCGame = new ClsCGame(ObjVentas.IniciaTransacSQL());
ClsEdocumentacion ObjDocCliente = new ClsEdocumentacion(ObjVentas.IniciaTransacSQL());
ClsAcumuladores ObjAcum = new ClsAcumuladores(ObjVentas.IniciaTransacSQL());
- //ClsContPAQi ObjContPaq = null;
+ ClsContPAQi ObjContPaq = null;
//StringBuilder MensajeAlert = new StringBuilder() ;
Modelos.Factura.MMensajeFactura Resp = new Modelos.Factura.MMensajeFactura();
DataTable DtDetalle = objfact.DtDetalle;
try
{
- // objfact.GuardarVenta(ref objfact, ref ObjVentas, ref ObjConta, ref ObjInventario, ref ObjContr, ref DtDetalle, objfact.CveNCaVincular, ref ObjContPaq, ref ObjBancos, ref ObjOS, ref ObjEventos, ref ObjCGame, ref ObjClientes, ref Resp, ObjAcum: ObjAcum);
+ objfact.GuardarVenta(ref objfact, ref ObjVentas, ref ObjConta, ref ObjInventario, ref ObjContr, ref DtDetalle, objfact.CveNCaVincular, ref ObjContPaq,
+ ref ObjBancos, ref ObjOS, ref ObjEventos, ref ObjCGame, ref ObjClientes, false, ObjAcum,ref Resp);
}
catch (Exception e)
@@ -803,6 +804,28 @@ public partial class Ventas_RepConciliacionEmitidosSat : ClsPaginas
}
//String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
}
+
+ protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e)
+ {
+
+ int CveClasificacion = DdlClasificacion.SelectedValue.ToEntero();
+ if (UsuarioActual.Empresa.Funcionalidad(141).ToString() == "1")
+ {
+
+ DdlPS.setEsWebService(true);
+ DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString());
+ DdlPS.ddlWS.Attributes.Add("data-pagina", "ventas/ventas");
+ DdlPS.ddlWS.Attributes.Add("data-Estatus", "1");
+ }
+ else
+ {
+
+ DdlPS.setEsWebService(false);
+ DdlPS.ddl.DataSource = get_GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion: CveClasificacion, Estatus: 1, AplicaParaVenta: 1);
+ DdlPS.ddl.DataBind();
+ }
+ UpModalDefaults.Update();
+ }
}
namespace ADSistemaLibrary2.SatXml
{
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e35a5f8a6..3dddaee0d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2478,6 +2478,25 @@ Partial Class Ventas
HlFacturasRelaciondas.Visible = True
End If
+ If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
+ DdlSubProyectoDatos.SelectedValueExist(11954)
+ Using ObjVentas As New ClsNominas
+
+ If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", -Request("CveOrdenProduccion").ToEntero()) Then
+ TmpDT = ObjVentas.DtResultados
+ TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
+ TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
+ TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer))
+ TmpDT.Columns.Add("TieneProntoPago", GetType(String))
+ TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
+ GvPS.DataSource = ObjVentas.DtResultados
+ GvPS.DataBind()
+
+ 'IEPS A NIVEL DETALLE
+ 'TxtIEPS.Text = If(TmpDT.SUM("IEPS") > 0, TmpDT.SUM("IEPS").FormatoNumero, TxtIEPS.Text)
+ End If
+ End Using
+ End If
If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
DdlMoneda.SelectedValueExist(2)
Using ObjVentas As New ClsNominas
diff --git a/vwd.webinfo b/vwd.webinfo
index e457e81ff..f65beefe5 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -412,6 +412,8 @@
+
+