diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index f3365603a..c1ae046c4 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7615,7 +7615,7 @@ Public Class ClsPaginas End If Dim urlHost As String = "hhttp://sig.adssistemas.mx:7998/" If EsProduccion Then - urlHost = "http://sig.adssistemas.mx:6599/" + urlHost = "http://192.200.113.178:6599/" End If 'SITIO DE PRUEBA EN IIS Dim Url As Uri = New Uri(String.Format("{0}{1}", urlHost, Opcion)) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 18032d741..5ea5979ef 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2159,13 +2159,14 @@ Public Class ClsVentas #Region "V E N T A S - P R E C I O L I S T A S" - Public Function GetPreciosListaSPPermitidos(CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Public Function GetPreciosListaSPPermitidos(CveSubProyecto As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PrecioListaSPPermitdosGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 438ad97d9..b7975235e 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1644,7 +1644,7 @@ + DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe,CveSATPS,NumeroParte"> @@ -6125,7 +6125,10 @@ // totalPoints += ToDouble($(this).val()); let txtvalue = ToDouble($(this).val()); //let asdasdasd = $(this).data('tcanticipo'); - let TCAnticipo = ToDouble($(this).data('tcanticipo')); + let TCAnticipo = 1; + if ($(this).data('tcanticipo')) { + TCAnticipo = ToDouble($(this).data('tcanticipo')); + } if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) { txtvalue = ToDouble(txtvalue / TCAnticipo); @@ -6146,7 +6149,10 @@ $('input[name*=TxtComision]').each(function () { //totalPoints += ToDouble($(this).val()); let txtvalue = ToDouble($(this).val()); - let TCAnticipo = ToDouble($(this).data('tcanticipo')); + let TCAnticipo = 1; + if ($(this).data('tcanticipo')) { + TCAnticipo = ToDouble($(this).data('tcanticipo')); + } if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) { txtvalue = ToDouble(txtvalue / TCAnticipo); } else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) { diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index dbd4e0133..0d7f05061 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3812,6 +3812,7 @@ Partial Class Compras_Compras Dim PorcentajeIEPS As Decimal = 0 Dim PorcentajeRetISR As Decimal = 0 Dim PorcentajeRetIVA As Decimal = 0 + Dim NoIdentificacion As String = "" Dim DtTemporalGuardados As DataTable = New DataTable DtTemporalGuardados.Columns.Add("Contador", GetType(Integer)) DtTemporalGuardados.Columns.Add("Tipo", GetType(Integer)) @@ -3871,6 +3872,7 @@ Partial Class Compras_Compras PorcentajeIEPS = 0 PorcentajeRetISR = 0 PorcentajeRetIVA = 0 + NoIdentificacion = "" 'CARGA NODO ACTUAL @@ -3896,6 +3898,8 @@ Partial Class Compras_Compras 'OBTIENE SUBTOTAL SubTotalTemp += If(Total > 0, Total, PU * ValorXML(node, "cantidad").ToDecimal) + 'OBTIENE NoIdentificacion + If ValorXML(node, "noIdentificacion") IsNot Nothing Then NoIdentificacion = ValorXML(node, "noIdentificacion").Trim 'OBTIENE UM If ValorXML(node, "unidad") IsNot Nothing Then UMM = ValorXML(node, "unidad").Trim @@ -9919,6 +9923,7 @@ Partial Class Compras_Compras e.Row.FCTextBox("TxtAnticipo").Attributes.Add("data-tcanticipo", tTCFecha.ToString) + e.Row.FCTextBox("TxtComision").Attributes.Add("data-tcanticipo", tTCFecha.ToString) Dim TCAnt As Decimal = If(DdlMoneda.SelectedValue = "1", 1, If(CveCompra > 0, LblTC.Text.Replace("TC:", "").ToDecimal, TxtTC.Text.ToDecimal)) @@ -13309,7 +13314,7 @@ Partial Class Compras_Compras DDLDevolucion.Items.Clear() Dim dtt As DataTable = objcompras.DtResultados If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then 'solo los últimos 3 meses - dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-6).ToString("yyyy/MM/dd")}#") + dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-12).ToString("yyyy/MM/dd")}#") End If DDLDevolucion.DataSource = dtt DDLDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -14534,9 +14539,26 @@ Partial Class Compras_Compras DTOCGV = If(ArrayCveOC.Length > 1, DTOCGV.FiltraParametros("", "Producto"), DTOCGV) CargaTipoCentroCostoOC() + GvOC1.DataSource = DTOCGV GvOC1.DataBind() + 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO + If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then + For Each Gvr As GridViewRow In GvOC1.Rows + Dim Change As Boolean = False + For Each Dr2 As DataRow In TmpDT.Rows + If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then + Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString + Change = True + End If + Next + If Not Change Then + Gvr.FCTextBox("TxtCantidad").Text = "0" + End If + Next + End If + Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOGV.Rows.Count > 1 Then GvOC1.Columns(0).Visible = True @@ -22010,6 +22032,7 @@ Public Class ClsCompraManagerCompras TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer)) TmpDT.Columns.Add("TemporadaCuadro", GetType(String)) + TmpDT.Columns.Add("NoIdentificacion", GetType(String)) TmpDT.AcceptChanges() diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 386792d7a..760d15aa0 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1557,6 +1557,16 @@ Partial Class PopUpVerFactura Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1" If ConsultaPorSucursal Then + 'SI NO TIENE ESTOS VALORES, SARCALOS DEL CORTE + If CveCorte > 0 AndAlso (FechaConsulta = ModExtensiones.MaxFecha OrElse CveSubProyecto <= 0) Then + Using ObjVta As New ClsPuntoVenta + If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then + FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date + CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero() + End If + End Using + End If + CveCorte = -1 End If @@ -1638,7 +1648,10 @@ Partial Class PopUpVerFactura If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then If DtReporteCorte IsNot Nothing Then - Dim DtTT = GenerateTransposedTable(DtReporteCorte) + Dim dtDatos = DtReporteCorte.Clone() + dtDatos.ImportRow(DtReporteCorte.Rows(0)) + + Dim DtTT = GenerateTransposedTable(dtDatos) Dim DtDatosVentas As New DataTable() DtDatosVentas.Columns.Add(New DataColumn("Orden", GetType(Integer))) DtDatosVentas.Columns.Add(New DataColumn("Columna", GetType(String))) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index fa8c75001..f7fce04d7 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -149,13 +149,14 @@ padding-top: 2px; padding-bottom: 2px; } + #ModalConceptos table.table > tbody > tr > td, #ModalConceptos table.table > tbody > tr > th, #ModalConceptos table.table > thead > tr > td, #ModalConceptos table.table > thead > tr > th { font-size: 11px; padding-top: 2px; - padding-bottom: 2px; + padding-bottom: 2px; } .GvConceptos.table > tbody > tr.ConceptosTotales td { @@ -215,7 +216,7 @@ - +
  • Autorizar
  • @@ -288,6 +289,9 @@
  • Nómina tabular
  • +
  • + Nómina Personalizar +
  • Nómina Fiscal
  • @@ -305,7 +309,8 @@
  • Procesar archivo SUA EBA PDF -
  • <%-- + + <%--
  • CancelarTimbre
  • --%> @@ -1438,7 +1443,7 @@
    - + @@ -3826,8 +3831,8 @@ Cargar - - + + @@ -4929,7 +4934,7 @@ - +