diff --git a/AC/RepEstadoActividades.aspx.vb b/AC/RepEstadoActividades.aspx.vb index f2cd112c1..f26d16383 100644 --- a/AC/RepEstadoActividades.aspx.vb +++ b/AC/RepEstadoActividades.aspx.vb @@ -332,6 +332,9 @@ Partial Class AC_RepEstadoActividades If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) + ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then + params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf))) + params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf))) ElseIf (ChkFirma.Checked) Then params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf))) diff --git a/AC/RepSituacionFinanciera.aspx.vb b/AC/RepSituacionFinanciera.aspx.vb index 36109f21b..57265aeff 100644 --- a/AC/RepSituacionFinanciera.aspx.vb +++ b/AC/RepSituacionFinanciera.aspx.vb @@ -642,6 +642,9 @@ Partial Class AC_SituacionFinanciera If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) + ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then + params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf))) + params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf))) ElseIf (ChkFirma.Checked) Then params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf))) diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc index f17742f32..ccef55f1d 100644 --- a/AC/Reportes/RepEstadoActividades.rdlc +++ b/AC/Reportes/RepEstadoActividades.rdlc @@ -998,7 +998,7 @@ - 4.50688cm + 2.76063cm true true @@ -1019,8 +1019,8 @@ Textbox2 - 3.36021cm - 6.16434cm + 0.49389cm + 10.80759cm 0.9616cm 8.02269cm @@ -1097,7 +1097,7 @@ Textbox3 - 3.85438cm + 1.92292cm 0.62818cm 0.6cm 18.2021cm @@ -1112,44 +1112,6 @@ 2pt - - true - true - - - - - Director administrativo - - - - Textbox2 - 0.49389cm - 9.9076cm - 0.99688cm - 8.02269cm - 3 - - =Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value <> ""), False, True) - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3.73062cm + 2.27541cm true true @@ -2883,7 +2883,7 @@ Textbox3 - 3.13062cm + 1.41083cm 16.37931cm 0.6cm 3.95896cm @@ -2952,8 +2952,8 @@ Textbox2 - 2.73374cm - 6.03938cm + 0.07056cm + 10.88047cm 0.99688cm 8.02269cm 2 @@ -2973,45 +2973,6 @@ 2pt - - true - true - - - - - - - - - - Textbox2 - 0.10582cm - 10.37435cm - 0.99688cm - 8.02269cm - 3 - - =Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value <> ""), False, True) - - - - - - - 2pt - 2pt - 2pt - 2pt - - + + - + + + + =Parameters!ClienteNombre.Value + + - - -
  • - - + }*/ + + #showdiv1 { + left: 0 !important; + width: 100% !important; + } + + #ShowDiv3:hover { + line-height: 34px !important; + -webkit-transition: line-height ease 1s; + -moz-transition: line-height ease 1s; + -o-transition: line-height ease 1s; + transition: line-height ease 1s; + } + + #map { + position: fixed !important; + } + + .pac-container.pac-logo { + z-index: 100000; + } + + #iw-container { + margin-bottom: 10px; + } + + #iw-container .iw-title { + font-family: 'Open Sans Condensed', sans-serif; + font-size: 22px; + font-weight: 400; + padding: 10px; + background-color: #48b5e9; + color: white; + margin: 0; + border-radius: 2px 2px 0 0; + } + + #iw-container .iw-content { + font-size: 13px; + line-height: 18px; + font-weight: 400; + margin-right: 1px; + padding: 15px 5px 20px 15px; + max-height: 140px; + overflow-y: auto; + overflow-x: hidden; + } + + .iw-content img { + float: right; + margin: 0 5px 5px 10px; + } + + .iw-subTitle { + font-size: 16px; + font-weight: 700; + padding: 5px 0; + } + + .iw-bottom-gradient { + position: absolute; + width: 326px; + height: 25px; + bottom: 10px; + right: 18px; + background: linear-gradient(to bottom, rgba(255,255,255,0) 0%, rgba(255,255,255,1) 100%); + background: -webkit-linear-gradient(top, rgba(255,255,255,0) 0%, rgba(255,255,255,1) 100%); + background: -moz-linear-gradient(top, rgba(255,255,255,0) 0%, rgba(255,255,255,1) 100%); + background: -ms-linear-gradient(top, rgba(255,255,255,0) 0%, rgba(255,255,255,1) 100%); + } + + .modal.fade:not(.in).left .modal-dialog { + -webkit-transform: translate3d(-25%, 0, 0); + transform: translate3d(-25%, 0, 0); + } + + .modal.fade:not(.in).right .modal-dialog { + -webkit-transform: translate3d(25%, 0, 0); + transform: translate3d(25%, 0, 0); + } + + .modal.fade:not(.in).bottom .modal-dialog { + -webkit-transform: translate3d(0, 25%, 0); + transform: translate3d(0, 25%, 0); + } + + /* Alternative Angles */ + .modal.fade:not(.in).top-left .modal-dialog { + -webkit-transform: translate3d(-25%, -25%, 0); + transform: translate3d(-25%, -25%, 0); + } + + .modal.fade:not(.in).top-right .modal-dialog { + -webkit-transform: translate3d(25%, -25%, 0); + transform: translate3d(25%, -25%, 0); + } + + .modal.fade:not(.in).bottom-left .modal-dialog { + -webkit-transform: translate3d(-25%, 25%, 0); + transform: translate3d(-25%, 25%, 0); + } + + .modal.fade:not(.in).bottom-right .modal-dialog { + -webkit-transform: translate3d(25%, 25%, 0); + transform: translate3d(25%, 25%, 0); + } + + .minicolors { + position: relative; + MARGIN-TOP: 10PX; + WIDTH: 20%; + } + + table.dataTable, + table.dataTable th, + table.dataTable td { + -webkit-box-sizing: content-box; + -moz-box-sizing: content-box; + box-sizing: content-box; + } + + .dataTables_scrollBody > .dataTable > thead { + display: none !important; + } + + tr td:nth-child(4) { + text-align: center; + } + + .form-horizontal .control-label { + text-align: left; + } + + + +
  • + + - - - -
    • -
  • - - + + + +
    • +
  • + + - - - -
    • -
  • - - + + + +
    • +
  • + + - - - -
    • -
  • - - + + + +
    • +
  • + + - - - -
    • -
  • - - + + + +
    • +
  • + + - - - -
    • -
  • - - - - - -
    • -
  • - - + + + +
    • +
  • + + + + + +
    • +
  • + + - - - -
    • -
  • - - + + + +
    • +
  • + + - - - -
    • -
  • - - + + + +
    • +
  • + + - - - -
    • -
  • - - + + + +
    • +
  • + + - - - -
    • -     - - - - - - - - - - - - - - - - - - - - -
    - - - - - - + + + +
    + done_all Agregar + +
    + + + + + + + +     + <%-- - --%> - - - + --%> + + + - - - - + + + + + + + diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index 2e88f4ec5..e0566065a 100644 --- a/GPS/Rastreo.aspx.vb +++ b/GPS/Rastreo.aspx.vb @@ -617,10 +617,16 @@ Partial Class GPS_Rastreo AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble) Next + If ChkTrazarGeocercas.Checked Then Dim Dispositivos As String = Equipos.Replace(";", ",").Remove(Equipos.Length - 1, 1) CargaGeocercas(Dispositivos) + End If + + If ChkTrazarGeorutas.Checked Then + MostarGeoRutas() End If + RegistraScript("setTimeout(function(){ $('#LnkMostarGeocercas').css('display', 'block'); },1000);") Else Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia) @@ -715,6 +721,21 @@ Partial Class GPS_Rastreo SbJS.Append(" VerGeocercas(); },1000);") RegistraScript(SbJS.ToString) End If + End Sub + Private Sub MostarGeoRutas() + Dim count = 0 + RegistraScript($"initGeoRutas();", count.ToString()) + + For Each GvRow As GridViewRow In GvGeorutas.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkRutas").Checked Then + count += 1 + Dim Coord As String = SQLToGmaps(GvRow.DataKey("Coordenadas").ToString, "LINESTRING") + RegistraScript($"creaPolylineRuta({Coord}, '{GvRow.DataKey("Color").ToString}', '{GvRow.DataKey("GeoReferencia")}')", count.ToString()) + End If + End If + Next + End Sub Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs) @@ -1136,6 +1157,7 @@ Partial Class GPS_Rastreo dvDispositivos.Visible = True dvTrazo.Visible = False dvTrazoGeo.Visible = True + dvTrazoRutas.Visible = True ChkTrazarGeocercas.Visible = True dvMinutos.Visible = False RegistraScript("$('#dvConsulta').modal();TerminaDibujado();") @@ -1148,7 +1170,8 @@ Partial Class GPS_Rastreo dvDispositivos.Visible = True txtFechaF.Text = "" dvTrazo.Visible = False - dvTrazoGeo.Visible = False + dvTrazoGeo.Visible = False + dvTrazoRutas.Visible = False dvMinutos.Visible = False BtnRastrear.ValidationGroup = "GrpFechas" RegistraScript("$('#dvConsulta').modal();TerminaDibujado();") @@ -1160,6 +1183,7 @@ Partial Class GPS_Rastreo txtFechaF.Text = "" dvTrazo.Visible = False dvTrazoGeo.Visible = False + dvTrazoRutas.Visible = False dvDispositivos.Visible = True dvMinutos.Visible = False GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 AND LimiteVelocidad = 1") @@ -1175,7 +1199,8 @@ Partial Class GPS_Rastreo txtFechaF.Text = "" dvDispositivos.Visible = True dvTrazo.Visible = False - dvTrazoGeo.Visible = False + dvTrazoGeo.Visible = False + dvTrazoRutas.Visible = False dvMinutos.Visible = True dvEventos.Visible = False BtnRastrear.ValidationGroup = "GrpFechas" @@ -1188,6 +1213,7 @@ Partial Class GPS_Rastreo dvDispositivos.Visible = True dvTrazo.Visible = False dvTrazoGeo.Visible = False + dvTrazoRutas.Visible = False dvMinutos.Visible = False dvEventos.Visible = False BtnRastrear.ValidationGroup = "GrpFechas" @@ -1198,6 +1224,7 @@ Partial Class GPS_Rastreo dvDispositivos.Visible = True dvTrazo.Visible = False dvTrazoGeo.Visible = False + dvTrazoRutas.Visible = False dvMinutos.Visible = False dvEventos.Visible = False BtnRastrear.ValidationGroup = "xx" @@ -1208,6 +1235,7 @@ Partial Class GPS_Rastreo dvMinutos.Visible = False dvTrazo.Visible = True dvTrazoGeo.Visible = True + dvTrazoRutas.Visible = True dvEventos.Visible = False BtnRastrear.ValidationGroup = "xx" RegistraScript("$('#dvConsulta').modal();TerminaDibujado();") @@ -1219,7 +1247,8 @@ Partial Class GPS_Rastreo dvDispositivos.Visible = True dvMinutos.Visible = False dvTrazo.Visible = True - dvTrazoGeo.Visible = True + dvTrazoGeo.Visible = True + dvTrazoRutas.Visible = True dvEventos.Visible = False BtnRastrear.ValidationGroup = "xx" RegistraScript("$('#dvConsulta').modal();TerminaDibujado();") @@ -1229,7 +1258,8 @@ Partial Class GPS_Rastreo dvDispositivos.Visible = False dvMinutos.Visible = False dvTrazo.Visible = False - dvTrazoGeo.Visible = False + dvTrazoGeo.Visible = False + dvTrazoRutas.Visible = False dvEventos.Visible = False BtnRastrear.ValidationGroup = "xx" RegistraScript("$('#dvConsulta').modal();TerminaDibujado();") @@ -1246,6 +1276,11 @@ Partial Class GPS_Rastreo RegistraScript("$('#dvConsulta').modal();TerminaDibujado();") myModalLabel2.InnerHtml = "Contador de pasajeros" End If + If dvTrazoRutas.Visible Then + CargaGeoRutas() + Else + RegistraScript("$('#LnkMostarGeoRutas').css('display', 'none');") + End If If opcion <> "Speed" AndAlso opcion <> "TPS" AndAlso Filtrado Then CargaDispositivos() Filtrado = False @@ -2122,5 +2157,24 @@ Partial Class GPS_Rastreo End Try End Using Return retorno - End Function + End Function +#Region "G E O R U T A S" + Protected Sub ChkTrazarGeorutas_CheckedChanged(sender As Object, e As EventArgs) + If ChkTrazarGeorutas.Checked Then + RegistraScript("$('#DivGeoRutas').modal('show');") + End If + End Sub + + Private Sub CargaGeoRutas() + Dim ObjGPS As New ClsGPS + If ObjGPS.GeoReferenciaGet(-1, 1, "Ruta", UsuarioActual.CveCliente) Then + GvGeorutas.DataSource = ObjGPS.DtResultados + End If + ObjGPS.Dispose() + GvGeorutas.DataBind() + + UpGeorutas.Update() + End Sub +#End Region + End Class diff --git a/GPS/Rastreo/JS/GeoRutas.js b/GPS/Rastreo/JS/GeoRutas.js new file mode 100644 index 000000000..0cd74aafc --- /dev/null +++ b/GPS/Rastreo/JS/GeoRutas.js @@ -0,0 +1,145 @@ +//REGION GEORUTAS +var markersRutas = []; +var polylinesGeoRutas = []; +var polybounds = []; + +function initGeoRutas() { + NuevaConsultaGeoRutas(); + var upRutasDiv = document.createElement('div'); + var upRutas = new ControlGeoRutas(upRutasDiv, map); + + map.controls[google.maps.ControlPosition.TOP_LEFT].push(upRutasDiv); +} + +function creaPolylineRuta(coords, color, GeoCerca) { + var polyline = new google.maps.Polyline({ + path: coords, + strokeColor: color, + strokeOpacity: 0.8, + strokeWeight: 2, + fillOpacity: 0.35 + }); + + polyline.setMap(map); + polylinesGeoRutas.push(polyline); + polybounds.push(coords[0]); + polybounds.push(coords[coords.length - 1]); + CreaMarcadorPoligonoRuta(coords, GeoCerca); +} + +function CreaMarcadorPoligonoRuta(coords, GeoCerca) { + var bounds = new google.maps.LatLngBounds(); + for (i = 0; i < coords.length; i++) { + bounds.extend(coords[i]); + } + + var marker = new google.maps.Marker({ + position: bounds.getCenter(), + title: GeoCerca, + map: map + }); + + var infowindow = new google.maps.InfoWindow({ + content: '

    ' + GeoCerca + '

    ' + }); + + marker.addListener('click', function () { + closeLastOpenedInfoWindow(); + infowindow.open(map, marker); + lastOpenedInfoWindow = infowindow; + }); + + markersRutas.push(marker); +} + +function NuevaConsultaGeoRutas() { + + for (var i = 0; i < polylinesGeoRutas.length; i++) { + polylinesGeoRutas[i].setMap(null); + } + + for (var i = 0; i < markersRutas.length; i++) { + markersRutas[i].setMap(null); + } + + polylinesGeoRutas = []; + polybounds = []; + markersRutas = []; +} + +function ControlGeoRutas(controlDiv, map) { + + // Set CSS for the control border. + var controlUI = document.createElement('div'); + controlUI.style.marginLeft = '10px'; + controlUI.style.zIndex = '0'; + controlUI.style.cursor = 'pointer'; + // controlUI.style.position = 'absolute'; + controlUI.style.left = "0px"; + controlUI.style.width = "150px"; + controlUI.style.marginTop = "10px" + controlUI.style.top = "0px"; + controlUI.className = 'gmnoprint'; + + controlDiv.appendChild(controlUI); + + var ControlSub1 = document.createElement('div') + ControlSub1.style.float = 'left'; + ControlSub1.className = 'gm-style-mtc' + controlUI.appendChild(ControlSub1) + + var ControlSub2 = document.createElement('div') + ControlSub2.style.direction = 'ltr'; + ControlSub2.style.overflow = 'hidden'; + ControlSub2.id = "LnkMostarGeoRutas" + ControlSub2.style.textAlign = 'center'; + ControlSub2.style.position = 'relative'; + ControlSub2.style.color = 'rgb(0,0,0)'; + ControlSub2.style.fontFamily = ' "Open Sans", sans-serif; '; + ControlSub2.style.msUserSelect = 'none;'; + ControlSub2.style.fontSize = '11px' + ControlSub2.style.display = 'block' + ControlSub2.style.backgroundColor = 'rgb(255,255,255)' + ControlSub2.style.padding = '11px' + ControlSub2.style.backgroundClip = 'padding-box' + ControlSub2.style.minWidth = '28px' + ControlSub2.style.fontWeight = '500' + ControlSub2.style.boxShadow = '0 1px 4px -1px rgba(0,0,0,.3)'; + ControlSub2.innerHTML = 'Mostrar GeoRutas' + ControlSub1.appendChild(ControlSub2) + + ControlSub1.addEventListener('click', function () { + VerGeoRutas(); + }); + +} + +var IsRutasVisibles = false; + +function VerGeoRutas() { + if (IsRutasVisibles) { + HideGeoRutas(); + IsRutasVisibles = false; + } else { + CargaGeoRutas(); + IsRutasVisibles = true; + } +} + +function HideGeoRutas() { + for (var i = 0; i < polylinesGeoRutas.length; i++) { + polylinesGeoRutas[i].setMap(null); + } + for (var j = 0; j < markersRutas.length; j++) { + markersRutas[j].setMap(null); + } +} + +function CargaGeoRutas() { + for (var i = 0; i < polylinesGeoRutas.length; i++) { + polylinesGeoRutas[i].setMap(map); + } + for (var j = 0; j < markersRutas.length; j++) { + markersRutas[j].setMap(map); + } +} \ No newline at end of file diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 74573a093..3b705d02a 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -110,6 +110,14 @@ + +
    + + + + + +
    @@ -169,6 +177,7 @@ Código +
    @@ -179,6 +188,7 @@ Producto +
    diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index e73e41295..05f4dc33f 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) - If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) @@ -137,9 +137,9 @@ Partial Class Inventarios_KardexAlmacen For Each Dr As DataRow In dt.Rows TotColumna += Dr.Item(index).ToString.ToDouble Next - If Not TotColumna > 0 Then - ListaBorrar.Add(dt.Columns(index)) - End If + 'If Not TotColumna > 0 Then + ' ListaBorrar.Add(dt.Columns(index)) + 'End If Next For Each item As DataColumn In ListaBorrar dt.Columns().Remove(item) @@ -226,7 +226,7 @@ Partial Class Inventarios_KardexAlmacen e.Row.Cells(2).Visible = False e.Row.Cells(3).Visible = False If e.Row.RowType = DataControlRowType.Header Then - e.Row.Cells(6).ToolTip = "Costo Promedio" + 'e.Row.Cells(6).ToolTip = "Costo" End If End Sub diff --git a/RH/Reclutamiento.aspx b/RH/Reclutamiento.aspx index 75ae8c1b9..5108a7c66 100644 --- a/RH/Reclutamiento.aspx +++ b/RH/Reclutamiento.aspx @@ -2171,11 +2171,19 @@
    + Seleccione uno - Alicia Cordova + Pamela Cabrera + Paola Guerrereo + Lucero Millanes + + <%--Alicia Cordova Matilde Gonzalez - Claudia Hernandez + Claudia Hernandez--%> + + + diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb index b1f92e239..1a334f1a0 100644 --- a/RH/Reclutamiento.aspx.vb +++ b/RH/Reclutamiento.aspx.vb @@ -5352,7 +5352,8 @@ Partial Class RH_Reclutamiento End If Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero) - Edad = Now.Year - TxtFechaN4.Text.ToDate.Year + Edad = Now.Year - TxtFechaN4.Text.ToDate.Year + If ValidaGuardaFirmaContratoEvento() Then If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal, TxtLugarnacimiento4.Text, TxtContactoEmergencia4.Text, TxtTipoSangre4.Text, TxtViveCon4.Text, txtCasaDondevive4.Text, DDLEstadoCivil4.Text.ToEntero, @@ -5447,7 +5448,10 @@ Partial Class RH_Reclutamiento DdlRuta.Items.Insert(0, New ListItem("Seleccione una ruta", "-1")) DDLUsuarioNomina.DataBind() - DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then + DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + End If DdlUniforme.DataBind() DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1")) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 8c43686a8..5f9618df9 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -594,7 +594,7 @@
    - +
    diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 4c705db45..f7efa6c91 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3862,7 +3862,7 @@ Partial Class Clientes Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) - lista.Add(New CrystalParametro("NombreCliente", $"Cliente: {LtlCliente.Text}")) + lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) @@ -3933,7 +3933,7 @@ Partial Class Clientes Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) - lista.Add(New CrystalParametro("NombreCliente", $"Cliente: {LtlCliente.Text}")) + lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) @@ -8745,7 +8745,7 @@ Partial Class Clientes 'If ObjFactura.CveCliente > 0 Then ' If TmpDT.Rows.Count > 0 Then - ' Dim Retorno = ObjFactura.EmitirFactura() + ' Dim Retorno = ObjFactura.EmitirFactura(false) ' For Each Mensaje In Retorno.Mensajes ' Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion)) ' Next @@ -8792,14 +8792,16 @@ Partial Class Clientes CreaObjetosVenta(2) - 'If ObjFactura.CveCliente > 0 Then - ' If TmpDT.Rows.Count > 0 Then - ' Dim Retorno = ObjFactura.EmitirFactura() - ' For Each Mensaje In Retorno.Mensajes - ' Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion)) - ' Next - ' End If - 'End If + If ObjFactura.CveCliente > 0 Then + If TmpDT.Rows.Count > 0 Then + Dim Retorno = ObjFactura.EmitirFactura(False) + For Each Mensaje In Retorno.Mensajes + Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion)) + Next + End If + End If + + Alert("Listo") CargaUsados() @@ -8857,7 +8859,7 @@ Partial Class Clientes e.Row.FCCheckBox("ChkCargo").Visible = False Else e.Row.FCCheckBox("ChkCargo").Checked = False - e.Row.FCCheckBox("ChkCargo").Visible = True + e.Row.FCCheckBox("ChkCargo").Visible = False 'True End If If FacturadoBonificacion Then @@ -9647,29 +9649,29 @@ Partial Class Clientes ' ObjVentas.Commit() ' CargaUsados() - ' Dim DtDetallesVenta As New DataTable + ' 'Dim DtDetallesVenta As New DataTable - ' If ObjVentas.GetVentaDetalle(CveVenta) Then + ' 'If ObjVentas.GetVentaDetalle(CveVenta) Then - ' DtDetallesVenta = ObjVentas.DtResultados - ' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta) + ' ' DtDetallesVenta = ObjVentas.DtResultados + ' ' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta) - ' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto) + ' ' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto) - ' Dim ObjTimbrado As New Timbrado - ' Dim SeTimbro As Boolean = False + ' ' Dim ObjTimbrado As New Timbrado + ' ' Dim SeTimbro As Boolean = False - ' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) + ' ' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) - ' If SeTimbro Then - ' Alert("Se timbro correctamente") - ' Else - ' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError) - ' End If + ' ' If SeTimbro Then + ' ' Alert("Se timbro correctamente") + ' ' Else + ' ' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError) + ' ' End If - ' Else - ' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError) - ' End If + ' 'Else + ' ' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError) + ' 'End If ' End If diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 541ccc1fc..a763ee493 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2793,7 +2793,7 @@
    -
    +