diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index fa6b8bc56..dcbf88e55 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -419,7 +419,7 @@ - + diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c932404b9..80f566d0c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5514,6 +5514,15 @@ Public Class ClsInventarios #End Region + + + + + + + + + #Region "Camiones" Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -5624,6 +5633,13 @@ Public Class ClsInventarios End Function #End Region + + + + + + + Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaMedRinGet") diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index de1740aa1..fe1026c75 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -242,13 +242,14 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetVentasPendientesCancelacion(CveEmpresa As Integer, CveUsuarioConsulta As Integer) As Boolean + Public Function GetVentasPendientesCancelacion(CveEmpresa As Integer, CveUsuarioConsulta As Integer, Optional CveVenta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasPendientesCancelacionGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With Try @@ -5270,7 +5271,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Optional CveEstatus As Integer = -1) As Boolean + Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesGet") With SqlAdapter.SelectCommand.Parameters @@ -5278,6 +5279,9 @@ Public Class ClsVentas .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7a03c7d0b..657dbc7f1 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2154,18 +2154,21 @@ Namespace Modelos End If 'si es selectedvalue = 42, es entrada ,3 -salida - Dim CveConceptoUsados As Integer = If(factura.CveConceptoMovimiento = 42, 1, 2) + If Not factura.EsGarantia Then + Dim CveConceptoUsados As Integer = If(factura.CveConceptoMovimiento = 42, 1, 2) - If factura.Cliente.EsDistribuidor AndAlso factura.CveConceptoMovimiento = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then + If factura.Cliente.EsDistribuidor AndAlso factura.CveConceptoMovimiento = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then + + If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, Dr("Cantidad").ToString.ToDecimal(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario, + UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, factura.Fecha, CveMovimiento:=CveMovimiento) Then + ' Mensaje = "Error al guardar Movimientos de distribuidor" + Resultado = False + Exit For + End If - If Not ObjAcum.DistribuidorMovtosAdd(factura.CveCliente, Dr("Cantidad").ToString.ToDecimal(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario, - UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, factura.Fecha, CveMovimiento:=CveMovimiento) Then - ' Mensaje = "Error al guardar Movimientos de distribuidor" - Resultado = False - Exit For End If - End If + Next End If @@ -2182,6 +2185,40 @@ Namespace Modelos Return Resultado End Function + + Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios) As Integer + Dim CveMovimiento As Integer = -1 + Try + Dim CveConceptoSalidaUsado As Integer = 45 + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, + factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU") + If CveMovimiento <= 0 Then + CveMovimiento = -1 + Else + Dim DtMovimientosEntrada As DataTable = Nothing + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, factura.CveEmpresa) Then + DtMovimientosEntrada = ObjInventario.DtResultados.Copy() + End If + + If DtMovimientosEntrada IsNot Nothing Then + For Each Dr As DataRow In DtMovimientosEntrada.Rows + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + CveMovimiento = -1 + Exit For + End If + Next + + DtMovimientosEntrada.Dispose() + DtMovimientosEntrada = Nothing + End If + End If + Catch ex As Exception + OnError("Ocurrió un erro al cancelar el movimiento de usado", ex) + CveMovimiento = -1 + End Try + + Return CveMovimiento + End Function Private Function GuardarPolizasVirtuales(SqlTransaccion As SqlClient.SqlTransaction, ObjFactura As Modelos.Factura) As Boolean Dim Resultado As Boolean = True @@ -2405,17 +2442,25 @@ Namespace Modelos 'VERIFICA SI TIENE MOVIMIENTO DE ENTRADA DE USADO If CveMovimiento > 0 AndAlso CveAlmacen > 0 Then + Dim CveMovimientoReferencia As Integer = -1 + Dim TipoMovto68 = TipoMovimiento + 'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS + If ValorMultiplicador = -1 Then + CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario) + Else + CveMovimientoReferencia = CveMovimiento + End If - If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL + If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then + Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=Importe68, Contabilizable:=False) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, ImporteMX:=Importe68, Contabilizable:=False) Then ErrorPrepoliza = True End If - Dim Importe318 As Decimal = importeMovimiento - Importe68 + Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True @@ -2428,7 +2473,6 @@ Namespace Modelos Else ErrorPrepoliza = True End If - Else If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then @@ -6493,7 +6537,7 @@ Namespace Modelos End Property Public Property MotivoDescuento As String = "" - Public Property EsGarantia As Boolean + Public Property EsGarantia As Boolean = False #Region "Totales" diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 733d36cba..adcce23d0 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -51,6 +51,83 @@ Public Class Timbrado #End Region + Public Function ObtenerAcuse(CveVenta As Integer, UsuarioActual As Usuario) As Boolean + Dim Retorno As Boolean = False + Try + Dim RowVentas As DataRow = Nothing + Dim RFCEmisor = UsuarioActual.Empresa.RFC + Dim RFCReceptor As String = "" + Dim FolioFiscal As String = "" + Dim FolioSustitucion As String = "" + Dim CvePACCancelacion As Integer = -1 + Dim CveSATMotivoCancelacion As Integer = -1 + Dim CveMotivoCancelacion As Integer = -1 + Dim TotalT As Decimal = 0 + + Using ObjVentas As New ClsVentas + If ObjVentas.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, 100, CveVenta) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + RowVentas = ObjVentas.DtResultados.Rows(0) + End If + End Using + + If RowVentas IsNot Nothing Then + FolioFiscal = RowVentas("FolioFiscal").ToString() + RFCReceptor = RowVentas("RFCReceptor").ToString() + CvePACCancelacion = RowVentas("CvePAC").ToString().ToEntero() + CveMotivoCancelacion = RowVentas("CveMotivoCancelacion").ToString().ToEntero() + TotalT = RowVentas("Total").ToString().ToDecimal() + FolioSustitucion = RowVentas("FolioFiscalSustitucion").ToString() + End If + + If CveMotivoCancelacion > 0 Then + Dim Row As DataRow = ClsPaginas.GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimero("") + If Row IsNot Nothing Then + CveSATMotivoCancelacion = Row("CveSATMotivoCancelacion").ToString().ToEntero() + End If + End If + + + If CvePACCancelacion = 4 Then + Dim solicitud As New WSGF.Service1SoapClient + Dim resp As New WSGF.StructXml() + resp = solicitud.GetAcuse(RFCEmisor, "rene.molina@adsistemas.mx", "rene2018", FolioFiscal) + If (resp.Estado = 0) Then + + Dim xmlDoc As New System.Xml.XmlDocument() + xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.CfdiB64))) + Dim xpath As String = "Acuse/Folios" + Dim nodes = xmlDoc.SelectNodes(xpath) + CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero + + xpath = "Acuse/Signature" + nodes = xmlDoc.SelectNodes(xpath) + + Me.CancelacionAcuse = xmlDoc.GetElementsByTagName("SignatureValue")(0).InnerText + Me.CancelacionFecha = xmlDoc.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate + Retorno = True + Else + CancelacionAcuse = resp.Descripcion + Retorno = False + End If + solicitud = Nothing + Else + If CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion, FolioSustitucion:=FolioSustitucion) Then + 'GENERAMOS EL ACUSE Y MANDAMOS MAIL DE CON EL ACUSE DE CANCELACIÓN + CancelacionFecha = Me.CancelacionFecha + CancelacionAcuse = Me.CancelacionAcuse + Retorno = True + End If + End If + + Catch ex As Exception + OnError("Ocurrió un error al intentar obtener el acuse", ex) + Retorno = False + End Try + + Return Retorno + End Function + + Public Shared Function VerificarVigenciaSAT(uuid As String, emisor As String, receptor As String, total As String, produccion As Boolean) As AcuseCancelacionSAT Dim Retorno As AcuseCancelacionSAT = Nothing Dim resp As Cancelacion2022.AcuseSat = New Cancelacion2022.AcuseSat() diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 9fbf0c80c..927dddc9b 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 78d5d76c9..d660ba9ab 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -14,6 +14,8 @@ Imports Stimulsoft.Report.Components Imports Stimulsoft.Report.Dictionary Imports Stimulsoft.Report.Web Imports Newtonsoft.Json.Linq +Imports System +Imports Microsoft.VisualBasic Partial Class PopUpVerFactura Inherits ClsPaginas @@ -262,7 +264,7 @@ Partial Class PopUpVerFactura Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio")) Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional") - NumeroTrailer = row("NumeroTrailer").ToString() + NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString()) LongitudCaja = row("LongitudCaja").ToString() LineaTransportacion = row("LineaTransportacion").ToString() @@ -4166,6 +4168,11 @@ Partial Class PopUpVerFactura 'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios") ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") Else + If UsuarioActual.CveEmpresa = 140 Then + params.Add(New ReportParameter("Concepto", ConceptoReporte)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) + End If params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("Almacen", Almacen)) @@ -4830,6 +4837,19 @@ Partial Class PopUpVerFactura Dim Titulo As String = "Acuse de cancelación de CFDI" Dim EstadoCFDI As String = "Cancelado" + + 'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO + If String.IsNullOrEmpty(SelloCancelacion) Then + Dim ObjCancelacion As New Timbrado + If ObjCancelacion.ObtenerAcuse(CveVenta, UsuarioActual) Then + SelloCancelacion = ObjCancelacion.CancelacionAcuse + + If FechaCancelacion = Nothing OrElse FechaCancelacion = MinFecha Then + FechaCancelacion = ObjCancelacion.CancelacionFecha + End If + End If + End If + If CveEstatusFactura = 20 Then Titulo = "Acuse de solicitud de cancelación de CFDI" EstadoCFDI = "Vigente" diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx index 744690695..a2a338199 100644 --- a/Documentacion/TableroMaterialidad.aspx +++ b/Documentacion/TableroMaterialidad.aspx @@ -11,9 +11,39 @@ #C_Tab_Tlablero tr td:nth-child(n+2) { text-align: center } - .spanfoliofiscal{ - white-space:nowrap; + + .spanfoliofiscal { + white-space: nowrap; } + th:not(.Modulo5) + th.Modulo5, + th:not(.Modulo6) + th.Modulo6, + th:not(.Modulo7) + th.Modulo7{ + border-left:1px solid black; + } + th.Modulo5 + th:not(.Modulo5), + th.Modulo6 + th:not(.Modulo6), + th.Modulo7 + th:not(.Modulo7){ + border-left:1px solid black; + } + .ADScroller-header .trtitle{ + display:none; + } + /* + tr:first-child th.Modulo5, + tr th.Modulo6, + tr th.Modulo7{ + border-left:1px solid black; + } + tr th.Modulo5:nth-child(1), + tr th.Modulo6:nth-child(1), + tr th.Modulo7:nth-child(1){ + border-left:1px solid black; + } + tr th.Modulo5:nth-last-child(1), + tr th.Modulo6:nth-last-child(1), + tr th.Modulo7:nth-last-child(1){ + border-right:1px solid black; + }*/ @@ -24,6 +54,10 @@ + +
  • + +
  • Cargar Doctos <%--Cargar Doctos--%> @@ -32,6 +66,7 @@ Cargar XML PDF <%--Cargar XML PDF--%>
    • +
  • Enviar
    •      @@ -83,9 +118,13 @@ - + +
    + + @@ -95,9 +134,9 @@ - + - <%-- + <%-- class='Modulo5' @@ -115,7 +154,7 @@ "; + + LtlThs.Text = string.Format("{0}{1}", LtlThs.Text, string.Concat(Enumerable.Repeat("", dt.Rows.Count))); + LtlThs.Text = string.Format("{0}", LtlThs.Text); + int filas = dt.FiltraParametros("Modulo =5").Rows.Count; + if(filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + filas = dt.FiltraParametros("Modulo =6").Rows.Count; + if (filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + filas = dt.FiltraParametros("Modulo =7").Rows.Count; + if (filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + LtlThs.Text = string.Format("{0}", LtlThs.Text); RPTTableroHeader.DataSource = edoc.DSResultados.Tables[1]; RPTTableroHeader.DataBind(); RptDatos.DataBind(); @@ -350,12 +380,12 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas } - public void procesararchivo(string xmlobject,int periodo, bool guardarInformacion =false) + public void procesararchivo(string xmlobject, int periodo, bool guardarInformacion = false) { using (ClsEdocumentacion edoc = new ClsEdocumentacion()) { - if (edoc.materialidadDoctos(xmlobject,UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, periodo, guardarInformacion)) + if (edoc.materialidadDoctos(xmlobject, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, periodo, guardarInformacion)) { if (edoc.DtResultados.Rows.Count > 0) { @@ -542,6 +572,71 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas Alert("El correo se ha enviado."); } + + protected void BtnAgregarDocumento_Click(object sender, EventArgs e) + { + + Txtdocumentacion.Text = ""; + TxtOrden.Text = "1"; + TxtPeriodicidad.Text = "1"; + TxtDiasLimite.Text = "1"; + BtnAgregarDocumentoModal.Text = "Agregar"; + LtlTituloModalDocumentacion.Text = "Agregar documentación"; + DdlDocumentacionTipo.SelectedIndex = 0; + chkEstatus.Checked = true; + chkRequerido.Checked = true; + + ActualizarDocumentacion = false; + UpModalDocumentacion.Update(); + RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static', keyboard: false});"); + } + + + + protected void BtnAgregarDocumentoModal_Click(object sender, EventArgs e) + { + using (ClsEdocumentacion objRH = new ClsEdocumentacion()) + { + int intCompleto = 0; + int _estatus = 0; + int _requerido = 0; + string _formato = ""; + + + if (chkEstatus.Checked) + _estatus = 1; + + if (chkRequerido.Checked) + _requerido = 1; + + if (ActualizarDocumentacion) + { + //_formato = GuardarArchivo(CveDocumentacion); + if (objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + RegistraScript(string.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")); + Alert("Documento Actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); + cargadatos(); + } + } + else if (objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + //CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero; + //_formato = GuardarArchivo(CveDocumentacion); + if (objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + } + + RegistraScript(string.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")); + Alert("Documento agregado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); + cargadatos(); + } + + ActualizarDocumentacion = false; + + } + + } } public class archivoxmlpdf { diff --git a/Edoc/CatDocumentos.aspx.vb b/Edoc/CatDocumentos.aspx.vb index 2858a24c0..f4a6cd1aa 100644 --- a/Edoc/CatDocumentos.aspx.vb +++ b/Edoc/CatDocumentos.aspx.vb @@ -323,49 +323,51 @@ Partial Class RH_CatDocumentos Protected Sub BtnAgregarDocumentoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDocumentoModal.Click - Dim objRH As New ClsEdocumentacion - Dim intCompleto As Integer = 0 - Dim _estatus As Integer = 0 - Dim _requerido As Integer = 0 - Dim _formato As String = "" - - - If chkEstatus.Checked Then - _estatus = 1 - End If - - If chkRequerido.Checked Then - _requerido = 1 - End If - - If ActualizarDocumentacion Then - - _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, - TxtPeriodicidad.Text.ToEntero) Then - - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) - Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion) - CargaDocumentacion() - End If - - Else - If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero) Then - - CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero - _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, - TxtPeriodicidad.Text.ToEntero) Then - - End If - - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) - Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion) - CargaDocumentacion() - End If - End If - - ActualizarDocumentacion = False + Using objRH As New ClsEdocumentacion + + Dim intCompleto As Integer = 0 + Dim _estatus As Integer = 0 + Dim _requerido As Integer = 0 + Dim _formato As String = "" + + + If chkEstatus.Checked Then + _estatus = 1 + End If + + If chkRequerido.Checked Then + _requerido = 1 + End If + + If ActualizarDocumentacion Then + + _formato = GuardarArchivo(CveDocumentacion) + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, + TxtPeriodicidad.Text.ToEntero) Then + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) + Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion) + CargaDocumentacion() + End If + + Else + If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero) Then + + CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero + _formato = GuardarArchivo(CveDocumentacion) + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, + TxtPeriodicidad.Text.ToEntero) Then + + End If + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) + Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion) + CargaDocumentacion() + End If + End If + + ActualizarDocumentacion = False + End Using End Sub diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index 7ba21b50b..ce9d8faf0 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index f4d1e0625..7520029be 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -2,541 +2,6 @@ - - - - true - true - - - - - Serie: - - - - - - - - =Parameters!Serie.Value - - - - - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - Textbox81 - 0.36804in - 4.70028in - 0.18682in - 2.8585in - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - Fit - 0.23694in - 2.38455cm - 3.48217cm - 1 - - - - - - true - true - - - - - Cliente: - - - - =Parameters!ClienteCodigo.Value - - - - - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Domicilio: - - - - =Parameters!ClienteDireccion.Value - - - - , - - - - =Parameters!ClienteCiudad.Value - - - - , - - - - =Parameters!ClienteEstado.Value - - - - - - - Textbox36 - 1.83775cm - 4.3204cm - 0.96667cm - 14.87889cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 3.08165cm - 0.635cm - 0cm - 18.56429cm - 3 - - - - - - true - true - - - - - POR ESTE - - - - PAGARÉ - - - - PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE - - - - BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV - - - - , EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, LA CANTIDAD DE - - - - $ - - - - - - - - =Parameters!Total.Value - - - - *** - - - - SON - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - *** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU VENCIMIENTO - - - - =Parameters!Vencimiento.Value - - - - , DE NO PAGARSE CAUSARÍA UN - - - - INTERÉS MORATORIO - - - - DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO. - - - - - - - 8.35197cm - 6.8587cm - 0cm - 6.65396cm - 5 - - - - - - true - true - - - - - ACEPTO (AMOS) DE CONFORMIDAD - - - - - - - Textbox39 - 8.52836cm - 6.8587cm - 0.6cm - 6.65396cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Obligado - - - - - - - Textbox38 - 6.90569cm - 6.8587cm - 0.67938cm - 6.65396cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - - Start - - true - 7.49312in - 0.20879in - 3.59384in - 7.78795in - - =iif(Parameters!AplicaPagare.Value="0",True,False) - - - - - true true @@ -824,7 +289,6 @@ 4.36025cm 1.28875in 3.20861in - 1 @@ -1062,7 +526,7 @@ 0.05395in 1.21305in 8.22763in - 2 + 1 @@ -1131,7 +595,7 @@ 0.13011cm 2.1447cm 4.08234cm - 3 + 2 @@ -1432,7 +896,7 @@ 5.03983in 1.62345in 3.24175in - 4 + 3 @@ -1544,7 +1008,7 @@ 13.31398cm 1.42163cm 7.72123cm - 5 + 4 @@ -2203,7 +1667,7 @@ 0.05854in 0.34081in 8.22304in - 6 + 5 @@ -2229,7 +1693,7 @@ 0.14868cm 0.14316cm 20.88652cm - 7 + 6 @@ -2260,7 +1724,7 @@ 15.09838cm 0.14316cm 5.93682cm - 8 + 7 @@ -2297,7 +1761,7 @@ 2.30237in 0.18861in 5.97921in - 9 + 8 @@ -2327,7 +1791,7 @@ 0.13011cm 0.1cm 20.88652cm - 10 + 9 @@ -2358,7 +1822,7 @@ 0.18043cm 0.14316cm 20.85477cm - 11 + 10 @@ -2392,7 +1856,7 @@ 5.62203cm 0.34219cm 9.30316cm - 12 + 11 @@ -2510,7 +1974,7 @@ 15.09838cm 0.48004cm 5.93682cm - 13 + 12 @@ -3004,11 +2468,11 @@ true - 15.53176cm + 14.89676cm 0.13702cm 2.97096cm 20.89818cm - 14 + 13 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3283,7 +2747,7 @@ 0.05854in 0.34081in 2.08542in - 15 + 14 @@ -3329,7 +2793,7 @@ 8.39473cm 1.07794cm 20.85477cm - 16 + 15 @@ -3348,7 +2812,7 @@ 0.15969cm 2.38455cm 3.48217cm - 17 + 16 @@ -3437,7 +2901,7 @@ 4.38884cm 2.05902cm 8.12128cm - 18 + 17 @@ -3449,11 +2913,11 @@ - 14.70114cm + 14.16139cm 14.38124cm 0cm 6.65396cm - 19 + 18 @@ -3480,11 +2944,11 @@ Textbox39 - 14.87753cm + 14.33778cm 14.38124cm - 0.6cm + 0.47784cm 6.65396cm - 20 + 19 @@ -3521,9 +2985,9 @@ Textbox38 13.25486cm 14.38124cm - 0.67938cm + 0.4148cm 6.65396cm - 21 + 20 @@ -3572,7 +3036,7 @@ 0.13011cm 1.21002cm 4.23014cm - 22 + 21 @@ -3583,8 +3047,587 @@ 2pt + + + + + 20.4cm + + + + + 5cm + + + + + + + true + true + + + + + Serie: + + + + + + + + =Parameters!Serie.Value + + + + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + Textbox81 + 0.01788in + 4.70028in + 0.18682in + 2.8585in + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + Fit + 0.23694in + 1.40934cm + 2.57947cm + 1 + + + + + + true + true + + + + + + + + + Cliente: + + + + =Parameters!ClienteCodigo.Value + + + + - + + + + =Parameters!ClienteNombre.Value + + + + - + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Domicilio: + + + + =Parameters!ClienteDireccion.Value + + + + , + + + + =Parameters!ClienteCiudad.Value + + + + , + + + + =Parameters!ClienteEstado.Value + + + + + + + Textbox36 + 0.55521cm + 3.35769cm + 0.85414cm + 14.87889cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 1.44462cm + 0cm + 20.4cm + 3 + + + + + + true + true + + + + + POR ESTE + + + + PAGARÉ + + + + PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE + + + + BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV + + + + , EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, LA CANTIDAD DE + + + + $ + + + + + + + + =Parameters!Total.Value + + + + *** + + + + SON + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + *** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU VENCIMIENTO + + + + =Parameters!Vencimiento.Value + + + + , DE NO PAGARSE CAUSARÍA UN + + + + INTERÉS MORATORIO + + + + DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO. + + + + + + + 4.51022cm + 6.8587cm + 0cm + 6.65396cm + 5 + + + + + + true + true + + + + + ACEPTO (AMOS) DE CONFORMIDAD + + + + + + + Textbox39 + 4.43261cm + 6.8587cm + 0.46771cm + 6.65396cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Obligado + + + + + + + Textbox38 + 3.66719cm + 6.8587cm + 0.54709cm + 6.65396cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + + Start + + true + + =iif(Parameters!AplicaPagare.Value="0",True,False) + + + + + + + + + + + + + + + + + + + + + + DsOC + 17.9352cm + 0.34808cm + 5cm + 20.4cm + 22 + + + 10pt + + - 28.16088cm + 22.9352cm @@ -3594,7 +3637,7 @@ 21.1673cm - 0.63499cm + 0.5327cm true true diff --git a/Empresas/140/Formatos/Salidas.rdlc b/Empresas/140/Formatos/Salidas.rdlc index 647555d66..781193cf7 100644 --- a/Empresas/140/Formatos/Salidas.rdlc +++ b/Empresas/140/Formatos/Salidas.rdlc @@ -253,12 +253,11 @@ - 0.69042cm + 0.47875cm - true true @@ -291,7 +290,6 @@ - true true @@ -323,7 +321,6 @@ - true true @@ -353,7 +350,6 @@ - true true @@ -383,7 +379,6 @@ - true true @@ -443,7 +438,7 @@ DsInventarios 0.17639cm 0.22456cm - 1.11096cm + 0.89929cm 20.39972cm - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -629,15 +592,15 @@ - Textbox34 - 1.02789cm - 4.37211cm - 0.95277cm - 8.10916cm - 1 + 1.71608cm + 0.67239cm + 20.62428cm @@ -648,21 +611,6 @@ 2pt - - External - =Parameters!LogoPath.Value - FitProportional - 0.3175cm - 0.19987cm - 1.66316cm - 3.43141cm - 2 - - - - true true @@ -682,11 +630,11 @@ Textbox15 - 2.34504cm - 2.45652cm - 0.6cm - 9.54145cm - 3 + 2.68428cm + 10.74503cm + 0.56824cm + 9.56615cm + 1 @@ -711,11 +659,11 @@ Textbox18 - 3.11789cm - 2.43182cm + 3.42537cm + 10.74503cm 0.6cm - 9.54145cm - 4 + 9.56615cm + 2 @@ -743,11 +691,11 @@ Textbox16 - 3.097cm - 0.26872cm - 0.6cm + 3.43623cm + 8.61368cm + 0.57827cm 2.11724cm - 5 + 3 =IIF(Parameters!FacturadoA.Value = "", True, False) @@ -778,11 +726,11 @@ Textbox14 - 2.34504cm - 0.25631cm - 0.6cm + 2.68428cm + 8.60127cm + 0.56824cm 2.12965cm - 6 + 4 =IIF(Parameters!FacturaProveedor.Value = "", True, False) @@ -820,7 +768,7 @@ 13.63291cm 0.89103cm 4.09693cm - 7 + 5 @@ -856,7 +804,7 @@ 17.72984cm 0.9263cm 2.57165cm - 8 + 6 @@ -884,11 +832,11 @@ Textbox4 - 3.09701cm - 12.65424cm + 3.42537cm + 0.32995cm 0.59999cm 1.80326cm - 9 + 7 @@ -906,9 +854,11 @@ =Parameters!Almacen.Value - + @@ -941,7 +891,6 @@ =Parameters!Fecha.Value @@ -952,11 +901,11 @@ Textbox32 - 3.12876cm - 14.4575cm + 3.42537cm + 2.13321cm 0.58913cm - 5.9022cm - 11 + 6.43631cm + 9 @@ -984,11 +933,11 @@ Textbox3 - 2.34505cm - 12.65424cm - 0.59999cm + 2.70516cm + 0.32995cm + 0.54736cm 1.80326cm - 12 + 10 @@ -1018,11 +967,11 @@ Textbox3 - 1.27306cm + 1.20956cm 13.63291cm 0.47477cm 4.09693cm - 13 + 11 =IIF(Parameters!FolioRelacionado.Value = "",true,false) @@ -1055,11 +1004,11 @@ Textbox31 - 1.27306cm + 1.20956cm 17.72984cm 0.47477cm 2.57165cm - 14 + 12 =IIF(Parameters!FolioRelacionado.Value = "",true,false) @@ -1073,6 +1022,53 @@ 2pt + + Embedded + Logo2 + Fit + 0.1299in + 0.61281in + 1.32508in + 13 + + + + + + true + true + + + + + BDH BATERÍAS DISTRIBUCIONES DE HERMOSILLO S.A. DE C.V. + + + + + + + Textbox2 + 3.83674cm + 1.55733cm + 9.26108cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true + true + true + + + + + Sello Digital del CFDI: + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 5.15368in + 0.06752in + 1.41544in + 8.23953in + + + + + + + + + 0.54014in + + + 0.59111in + + + 0.80359in + + + 0.66404in + + + 2.60074in + + + 0.83102in + + + 0.6403in + + + 0.69088in + + + 0.80447in + + + + + 0.19645in + + + + + true + true + + + + + # Cant. + + + + + + + + 2pt + + + + 2pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Unidad + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clave Pr./Se + + + + + + + Textbox29 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clave U. + + + + + + + Textbox2 + + + + + 2pt + + + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox17 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Precio + + + + + + + Textbox53 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa IVA + + + + + + + Textbox21 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descto. + + + + + + + Textbox23 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SubTotal + + + + + + + Textbox1 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.16561in + + + + + true + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!SATClaveUM.Value + + + + + + + SATClaveUM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!PS.Value & IIF(Fields!Obs.Value <> "",System.Environment.NewLine &"Observaciones: ","") & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!PU.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!PorcentajeIVA.Value + + + + + + + PorcentajeIVA + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + true + + + + + =Fields!Cantidad.Value * Fields!PU.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 1.92778in + 0.09836in + 0.36206in + 8.16629in + 1 + + + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ELECTRICA SERVEC S DE RL DE CV + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en Sucursal: + + + + =Parameters!Sucursal.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =UCase(Parameters!TipoDocumento.Value) + + + + + + + Textbox8 + 18.23008cm + 0.96018cm + 2.79101cm + 6 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox8 + 0.97782cm + 18.23008cm + 0.6cm + 2.79101cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora: + + + + + + + + + =Parameters!Fecha.Value + + + + + + + Textbox8 + 1.57782cm + 18.23008cm + 0.86903cm + 2.79101cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + true + + + + + Folio Fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + + + Fecha y hora de certificacion: + + + + =Parameters!FechaCertificacion.Value + + + + + + + + + No. de Serie del Certificado del SAT: + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + Textbox4 + 2.88607cm + 0.28014cm + 1.09007cm + 9.71199cm + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + true + + + + + No. de Serie del Certificado del CSD: + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!CiudadSucursal.Value + + + + + + + + =Parameters!Fecha.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + =Parameters!ClienteColonia.Value + + + + + + + + =Parameters!ClienteCiudad.Value + + + + + + + + =Parameters!ClienteEstado.Value + + + + CP + + + + =Parameters!ClienteCP.Value + + + + + + + + =Parameters!ClientePais.Value + + + + + + + + + + + =Parameters!ClienteTelefono.Value + + + + + + + + =iif(Parameters!ClienteContactoMail.Value = "","","Correo: ") + + + + =Parameters!ClienteContactoMail.Value + + + + + + + =Parameters!ClienteRFC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CondicionPago.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ord. Compra: + + + + =Parameters!OrdenCompra.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo de Comprobante:I + + + + =UCase(Parameters!TipoDocumento.Value) + + + + ,Moneda: + + + + =Parameters!MonedaAbreviatura.Value + + + + , Uso de CFDI: + + + + =Parameters!UsoCFDI.Value + + + + , Forma de Pago: + + + + =Parameters!FormaPago.Value + + + + , Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + . + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.88535cm + + + + + 0.48004cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.82569cm + + + true + true + + + + + =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 10.3836cm + 15.31342cm + 0.48004cm + 5.71104cm + 17 + + + + + + true + true + + + + + REVISAR BIEN EL PRODUCTO, UNA VEZ ENTREGADO EL MATERIAL NO SE ACEPTAN DEVOLUCIONES. + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sucursal Matriz + + + + + + + + + Beneficiario: ELECTRICA SERVEC S DE RL DE CV + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sucursal Tijuana + + + + + + + + + Beneficiario: ELECTRICA SERVEC S DE RL DE CV + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + RFIRMAELECTRONICAEDITABLE + FitProportional + 0.28346cm + 0.51012cm + 1.73059cm + 3.63914cm + 21 + + + + + + true + true + + + + + Cuentas Bancarias + + + + Textbox3 + 7.75847cm + 0.25136cm + 0.53798cm + 18.6975cm + 22 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.69848cm + 2.57101cm + 0.41981cm + 6.35221cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.63922cm + + + 2.27051cm + + + 3.25097cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.22386cm + 2.57101cm + 0.85604cm + 15.9454cm + 2 + + + + + + true + true + + + + + VERSION 3.3 + + + + + + + Textbox5 + 2.15724cm + 17.53151cm + 0.52063cm + 3.32021cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.03101cm + 0.54004cm + 20.79183cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 16.79845cm + 0.15747cm + 2.67787cm + 20.85172cm + 23 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + 19.47632cm + + + + + + + Textbox35 + 0.01763cm + 18.52109cm + 0.50624cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Now() + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario Imprimió: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + + + . + + + + + - 18.23806cm + 18.23807cm - - - Entrega Almacén (Surtir Mercancia) - - - - -
  • -   -
    • -     - - - - <%--FILTROS--%> - - - -
    -
    -
    -
      -
    • Cliente: - - - - - - - - - <%----%> -
      • -
    • Serie-Folio: - - - - - - - - - - -
      • -
    -
    -
    - - <%----%> -
    -
    - -
    -     -     -     - - - -
    - -
    - - <%--DATOS DE LA VENTA--%> -
    - - -
    -
    -
    -
    - - Venta a surtir -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    Cliente <%# DataBinder.Eval(Container.DataItem, "Documentacion") %> ><%# DataBinder.Eval(Container.DataItem, "Documentacion") %>
    <%# String.Format("{0:dd/MM/yyyy} - {1:dd/MM/yyyy}", DataBinder.Eval(Container.DataItem, "InicioPeriodo"), DataBinder.Eval(Container.DataItem, "FinPeriodo")) %> <%# DataBinder.Eval(Container.DataItem, "Antiguedad") %> XML Timbrados PDF Timbrados - Enviar + @@ -249,9 +288,9 @@
    - Procesar + Procesar
    - +
    @@ -360,33 +399,37 @@ - + - Fecha
    inicio + Fecha
    + inicio     - + - Fecha
    fin + Fecha
    + fin     - + - Fecha
    pago + Fecha
    + pago     - + - Días
    pago + Días
    + pago     @@ -439,9 +482,9 @@ - +
    - Guardar + Guardar
    @@ -621,6 +664,93 @@ + + + diff --git a/Documentacion/TableroMaterialidad.aspx.cs b/Documentacion/TableroMaterialidad.aspx.cs index d232db48c..5524b48a0 100644 --- a/Documentacion/TableroMaterialidad.aspx.cs +++ b/Documentacion/TableroMaterialidad.aspx.cs @@ -19,6 +19,16 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { #region "Propiedades" + public Boolean ActualizarDocumentacion + { + get { return ViewState["ActualizarDocumentacion"] != null ? (Boolean)ViewState["ActualizarDocumentacion"] : false; } + set { ViewState["ActualizarDocumentacion"] = value; } + } + public int CveDocumentacion + { + get { return ViewState["CveDocumentacion"] != null ? ViewState["CveDocumentacion"].ToString().ToEntero() : 0; } + set { ViewState["CveDocumentacion"] = value; } + } public int anio { get { return ViewState["anio"] != null ? ViewState["anio"].ToString().ToEntero() : 0; } @@ -67,6 +77,26 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { RptDatos.DataSource = edoc.DSResultados.Tables[0]; dt = edoc.DSResultados.Tables[1]; + LtlThs.Text = "
    GeneralesPor ClienteNivel empleado
    - - - - - - - - - - - - - - - - - - - - -
    Cliente: - -
    Folio: - - <%----%> -
    Observaciones Grales: - -
    Observaciones Almacén: - -
    Dirección Envío: - - -
    - - - - - - - - - <%--DATOS DEL MOVIMIENTO--%> -
    - - -
    -
    -
    -
    - - Datos del movimiento -
    -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Almacén: - - - -
    Fecha: -
    -
    - - - - - - - - - - - - -
    -
    -
    Guía: - -
    Observaciones: - -
    Transitorio: - -
    - -
    - -
    - -
    - - - -
    -
    - - - - - - - ver detalle de entrega - -
    -
    -
    -
    -     -     -
    - - - - - - - - - -
    -
    - - <%--PENDIENTES DE SURTIR--%> -
    -
    -
    -
    - - Ventas por surtir -
    -
    -
    -
    -
    -
    - - - - -   - - - - - - - - Sucursal: - - - - - - - - - - - - - - - - - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    - - - <%--ADVERTENCIA--%> -
    -
    -
    - - Información: - -
    -
    -
    - <%--ADVERTENCIA--%> -
    -
    -
    - - Información: - -
    -
    -
    -
    - - - - - - - - - - - - - - -
    - - <%--PERSONAL ENTREGA--%> -
    -
    -
    -
    - - PERSONAL AUTORIZADO PARA ENTREGAS EN ALMACÉN: -
    -
    -
    - - - - - - <%----%> - <%-- - - - - - --%> - - - - - -
    - -
    -
    -
    -
    -     -     - - - - - -
    -
    -
    - - Salida de Inventario -
    -
    -
    -
    -
    -
    - -
    -
    -
    - - <%--AGREGAR POR CODIGO DE BARRAS--%> - - -
    - -
    -
    - -
    -
    -
    - - - - - - -
    - - - - - - - -
    -
    -
    -     -     - - - <%--GV DATOS--%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - - - - - - - - - -
    -     -     - - - - - - -     -     - -
    -
    - -     -     - - - <%--BOTON GUARDAR--%> - - -
    - -
    -
    - -
    -     -     - - - <%--AGREGA POR SERIE--%> - - - - - - - - <%--CANTIDAD ESPECIAL--%> - - - - - - - - - - - <%--CANTIDAD ESPECIAL 2--%> - - - - - - - <%--NUMERO DE GUIA--%> - - - - - - - - - - - -     - - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" EnableEventValidation="false" %> + + + + + + + + Entrega Almacén (Surtir Mercancia) + + + + +
  • +   +
    • +     + + + + <%--FILTROS--%> + + + +
    +
    +
    +
      +
    • Cliente: + + + + + + + + + + + + + + + + + <%----%> +
      • +
    • Serie-Folio: + + + + + + + + + + + + + + + + + + +
      • +
    +
    +
    + + <%----%> +
    +
    + +
    +     +     +     + + + +
    + +
    + + <%--DATOS DE LA VENTA--%> +
    + + +
    +
    +
    +
    + + Venta a surtir +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + +
    Cliente: + +
    Folio: + + <%----%> +
    Observaciones Grales: + +
    Observaciones Almacén: + +
    Dirección Envío: + + +
    +
    +
    +
    +     +     +
    + + + <%--DATOS DEL MOVIMIENTO--%> +
    + + +
    +
    +
    +
    + + Datos del movimiento +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    Almacén: + + + +
    Fecha: +
    +
    + + + + + + + + + + + + +
    +
    +
    Guía: + +
    Observaciones: + +
    Transitorio: + +
    + +
    + +
    + +
    + + + +
    +
    + + + + + + + ver detalle de entrega + +
    +
    +
    +
    +     +     +
    + +
    + + + + + + + +
    +
    + + <%--PENDIENTES DE SURTIR--%> +
    +
    +
    +
    + + Ventas por surtir +
    +
    +
    +
    +
    +
    + + + + + +   + " style="display: inline-block; margin-right: -20px; width: 70px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +   + <%--
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 100px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    --%> + Sucursal: + + + + + + + + + + + + + + + + +     +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    + + + <%--ADVERTENCIA--%> +
    +
    +
    + + Información: + +
    +
    +
    + <%--ADVERTENCIA--%> +
    +
    +
    + + Información: + +
    +
    +
    +
    + + + + + + + + + + + + + + +
    + + <%--PERSONAL ENTREGA--%> +
    +
    +
    +
    + + PERSONAL AUTORIZADO PARA ENTREGAS EN ALMACÉN: +
    +
    +
    + + + + + + <%----%> + <%-- + + + + + --%> + + + + + +
    + +
    +
    +
    +
    +     +     + +
    + + + +
    +
    +
    + + Salida de Inventario +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + <%--AGREGAR POR CODIGO DE BARRAS--%> + + +
    + +
    +
    + +
    +
    +
    + + + + + + +
    + + + + + + + +
    +
    +
    +     +     + + + <%--GV DATOS--%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + + + + + + + +
    +     +     + + + + + + +     +     + +
    +
    + +     +     + + + <%--BOTON GUARDAR--%> + + +
    + +
    +
    + +
    +     +     + + + <%--AGREGA POR SERIE--%> + + + + + + + + <%--CANTIDAD ESPECIAL--%> + + + + + + + + + + + <%--CANTIDAD ESPECIAL 2--%> + + + + + + + <%--NUMERO DE GUIA--%> + + + + + + + + + + + +     + + + + + + + diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 37c4c7fc8..437cee0c5 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -159,6 +159,15 @@ Partial Class Inventarios_RecepcionUsados ViewState("TieneSalida") = value End Set End Property + + Private Property DTBCIUsados As DataTable + Get + Return If(IsNothing(ViewState("DTBCIUsados")), Nothing, CType(ViewState("DTBCIUsados"), DataTable)) + End Get + Set(value As DataTable) + ViewState("DTBCIUsados") = value + End Set + End Property Private Property DtBitacora As DataTable Get Return CType(ViewState("DtBitacora"), DataTable) @@ -2391,6 +2400,9 @@ Partial Class Inventarios_RecepcionUsados 'GUARDAR AJUSTES Me.ObjRemisionNC.DtAjustes = TmpDTAjustes + If Me.ObjRemisionNC.DtAjustes IsNot Nothing AndAlso Me.ObjRemisionNC.DtAjustes.Rows.Count > 0 Then + Me.ObjRemisionNC.EsGarantia = True + End If 'VALIDA PROMOCIONES Y EXISTENCIAS Dim ObjVentas As New ClsVentas @@ -2843,6 +2855,7 @@ Partial Class Inventarios_RecepcionUsados Dim CveMarca As Integer = -1 Dim CveClasificacion As Integer = -1 Dim PrecioSugerido As Decimal = 0 + Dim CveTamanio As Integer = -1 Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("") If drPS IsNot Nothing Then @@ -2857,6 +2870,7 @@ Partial Class Inventarios_RecepcionUsados Dim PS As String = drPS("PS").ToString CveMarca = drPS("CveMarca").ToString.ToEntero CveClasificacion = drPS("CveClasificacion").ToString.ToEntero + CveTamanio = drPS("CveTamaño").ToString.ToEntero Dim Arr = PS.Split("-"c) If Arr.Count > 1 Then @@ -2918,6 +2932,19 @@ Partial Class Inventarios_RecepcionUsados 'CvePrecioLista = CvePrecioListaPS End If + DdlBCIAjuste.Items.Clear() + If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then + DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}") + DdlBCIAjuste.DataBind() + DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) + If CveTamanio = 16 Then 'motobaterias + DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) + End If + 'UPPDatosUsado.Update() ''refresca el RFV + Else + DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) + End If + DdlTipoUso.Items.Clear() DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca) DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -2961,6 +2988,7 @@ Partial Class Inventarios_RecepcionUsados If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then DdlBCIAjuste.DataSource = ObjGral.DtResultados DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) + DTBCIUsados = ObjGral.DtResultados.Copy() End If ObjGral.Dispose() DdlBCIAjuste.DataBind() diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 0fa3a69e6..95c381d4a 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -339,13 +339,15 @@ Partial Class Inventarios_RepAnomalias ImgExcelProdcutosCoinciden.Visible = False LnkDescarExcelGrupos.Visible = True - GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0") - GvGrupos.DataBind() - - LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString - LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString - LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString - + If dt IsNot Nothing Then + GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0") + LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString + LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString + LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString + + End If + GvGrupos.DataBind() + If DdlGPO.SelectedValue.ToEntero = 1 Then PSIguales() End If diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 8f46ab1f2..a35765415 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -371,6 +371,9 @@ Partial Class Inventarios_TraspasoAlmacen DivMov.Visible = True ltlFolio.Text = dra("FolioGarantia").ToString Dim CveSub As Integer = dra("CveSubProyecto").ToString.ToEntero + lblCompraRef.Visible = False + hplRef.Visible = False + TxtObservaciones.Text = "Folio Garantia: " & dra("FolioGarantia").ToString 'If Mov.CveCompra > 0 Then ' hplRef.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={Mov.CveCompra}" @@ -564,7 +567,7 @@ Partial Class Inventarios_TraspasoAlmacen If CveProducto > 0 Then If TxtnSerie.Visible Then Cantidad = 1 - If TxtnSerie.Text = "" Then + If String.IsNullOrEmpty(TxtnSerie.Text.Trim()) OrElse String.IsNullOrWhiteSpace(TxtnSerie.Text.Trim()) Then Alert("Serie es necesario", TipoMensaje.MsgAdvertencia) RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')") Exit Sub diff --git a/Nomina/ISRCalculoAnual.aspx b/Nomina/ISRCalculoAnual.aspx deleted file mode 100644 index 6de631038..000000000 --- a/Nomina/ISRCalculoAnual.aspx +++ /dev/null @@ -1,128 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ISRCalculoAnual.aspx.cs" Inherits="Nomina_ISCalculoAnual" %> - - - - - - - Calculo anual de ISR - - - - - - - - - - - - -
    -
    -
    -
    - -
    - -
    -
    - - -
    - -
    -
    -
    - <%----%> -
    -
    - -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - diff --git a/Nomina/ISRCalculoAnual.aspx.cs b/Nomina/ISRCalculoAnual.aspx.cs deleted file mode 100644 index f6528e3b0..000000000 --- a/Nomina/ISRCalculoAnual.aspx.cs +++ /dev/null @@ -1,47 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Data; -using System.Linq; -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; -using Extensiones; - -public partial class Nomina_ISCalculoAnual : ClsPaginas -{ - protected void Page_Load(object sender, EventArgs e) - { - - DataTable dtejercicio = new DataTable(); - using (ClsNominas objnom = new ClsNominas()) - { - if (objnom.GetEjercicios(UsuarioActual.CveEmpresa)) - { - dtejercicio = objnom.DtResultados; - } - } - DdlEjercicios.DataSource = dtejercicio; - DdlEjercicios.DataBind(); - } - - protected void LnkConsultar_Click(object sender, EventArgs e) - { - CargaPersonalISRAnual(); - } - - protected void CargaPersonalISRAnual() - { - DataTable dtdatos = new DataTable(); - int ejercicio = DdlEjercicios.SelectedValue.ToEntero(); - using (ClsNominas objnom = new ClsNominas()) - { - if (objnom.PersonalISRAnual(-1, UsuarioActual.CveEmpresa, ejercicio)) - { - dtdatos = objnom.DTSetResultados.Tables[0]; - } - } - GVPersonalISRAnual.DataSource = dtdatos; - GVPersonalISRAnual.DataBind(); - upDatosPers.Update(); - } -} \ No newline at end of file diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 0e9b885e3..8d69c7440 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -622,6 +622,13 @@ + + Riesgo de puesto + + + + + @@ -794,6 +801,7 @@
    +
    diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 952096265..5ffc3dff2 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -564,6 +564,11 @@ Partial Class RH_CatPersonal Else GvDatos.Columns(42).Visible = False End If + If ChkRiesgoPuesto.Checked Then + GvDatos.Columns(43).Visible = True + Else + GvDatos.Columns(42).Visible = False + End If If (GvDatos.Rows.Count > 0) Then diff --git a/Site.master b/Site.master index 24da7ea86..4fc0a780b 100644 --- a/Site.master +++ b/Site.master @@ -417,8 +417,7 @@
    - -
    +
    diff --git a/Site.master.vb b/Site.master.vb index 29ac2ad05..45e8ac292 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -258,7 +258,7 @@ Partial Class Site If UsuarioActual.TienePermisoPagina(392) Then tdProspectos.Visible = True : ImgProspecto.Attributes.Add("onclick", "AbrirVentana('/Prospeccion/PopUpBuscarProspectos.aspx',980,547,'popBuscarProspectos');") - If UsuarioActual.TienePermisoPagina(228) Then tdBExi.Visible = True + If UsuarioActual.TienePermisoPagina(228) OrElse UsuarioActual.TienePermisoPagina(6) Then tdBExi.Visible = True 'Contratos If UsuarioActual.TienePermisoPagina(313) Then TdContratos.Visible = True diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index af813da4f..87754a473 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -31,14 +31,16 @@ -
    -
    +
    +
    +
    -
    -
      -
    • Estatus: +
      +
      + +
      @@ -46,16 +48,51 @@ -
      • -
    • Cliente: - +
    + +
    - -
  • Vendedor: +
    • + +
    - - +
    +
    +
    +
    +
    diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index d96767709..210e11f16 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -1,5 +1,4 @@ - -Imports Extensiones +Imports Extensiones Partial Class Ventas_CatAutorizacionLimites Inherits ClsPaginas @@ -24,6 +23,8 @@ Partial Class Ventas_CatAutorizacionLimites #Region "CARGAS" Private Sub CargaCombos() + txtFechaI.Text = Now.AddDays(-1).ToString("dd/MM/yyyy") + txtFechaI.Text = Now.ToString("dd/MM/yyyy") DdlCliente.setEsWebService(True) DdlClienteFiltro.setEsWebService(True) @@ -63,8 +64,12 @@ Partial Class Ventas_CatAutorizacionLimites CveCliente = DdlClienteFiltro.SelectedValue.ToEntero() End If + Dim FechaI, FechaF As Date + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha) + Dim ObjGral As New ClsVentas - If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), CveEstatus:=DdlEstatus.SelectedValue.ToEntero()) Then + If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then GvDatos.DataSource = ObjGral.DtResultados End If ObjGral.Dispose() @@ -175,7 +180,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero() - Dim Importe = gvRow.DataKey("Importe").ToEntero() + Dim Importe = gvRow.DataKey("Importe").ToDecimal() Dim CveEstatusAutorizacion As Integer = 1 Dim ObjVentas As New ClsVentas @@ -192,7 +197,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero() - Dim Importe = gvRow.DataKey("Importe").ToEntero() + Dim Importe = gvRow.DataKey("Importe").ToDecimal() Dim CveEstatusAutorizacion As Integer = 3 Dim ObjVentas As New ClsVentas diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 20fa8f6e1..fc434b7e5 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="Ventas - Clientes" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes.aspx.vb" Inherits="Clientes" %> +<%@ Page Title="Ventas - Clientes" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes.aspx.vb" Inherits="Clientes" ValidateRequest="false" %> <%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> <%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index e26c3d98f..ad071e15d 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -1891,12 +1891,89 @@